Smalltalk Seaside-使用提交按钮进行报告

下面的内容有效吗

TransactionReport := WATableReport new
            rows: SpendingManager instance entriesForPosting asArray;
        columns: (OrderedCollection new    
        add: (WAReportColumn 
                    renderBlock: [ :each :html | (html submitButton 
                            callback: [ SpendingManager removeTransaction: each. self renderReport ];
                            text: 'Backout Transaction')]
                    title: '');

它确实会在每一行中呈现submit按钮，但单击它似乎什么也不做

---

我已经能够实现这一点，尽管它没有按钮那么漂亮：

add: (WAReportColumn new 
                title: '';
                valueBlock: [:anEvent | 'delete'];
                clickBlock: [ :each | SpendingManager instance removeTransaction: each]);
            yourself);  

---

仍然希望得到一些反馈。

不做任何操作的提交按钮很可能不在表单标签中。因此，如果将报表嵌入html表单：[]块，是否可以检查它是否有效

如果表单不是选项，则可以将提交按钮替换为锚定。如果这个方面很重要，您可以使用css使锚定看起来像按钮