如何获取表格以显示图像

Question

我在Seaside中建立表格（使用VisualAge Smalltalk）。 我希望每个表行都有一个图像以及文本数据。 该方法如下所示：

其中PSIni getImageUrl返回url的主要部分。 最终url看起来像http://www.totallyobjects.com/images/pennstadt//15.jpg

谁能指出我如何完成这项工作？

 makeData: html usingMethod: aMethod

|tableData headingList methodList|

tableData := self perform: aMethod.
headingList := self headingList.
methodList := self methodList.

html table: [ 
    html tableRow: [ 
        headingList do: [ :each | html 
            tableHeading: each 
        ]
    ].
    tableData do: [ :one |          
        html tableRow: [
            methodList do: [ :each | 
                each = #image ifTrue: [ 
                    html tableData: (self showImageFor: one id using: html)
                ] ifFalse: [ 
                    html tableData: (one perform: each)                        
                ]
            ]
        ]
    ]
]

(self showImageFor: one id using: html)显然不起作用。 此方法如下所示：

showImageFor: anID using: html

html image width: 200; url: PSIni getImageURL, '/', anID printString, '.jpg'

其中PSIni getImageUrl返回url的主要部分。

最终的url看起来像： http : //www.totallyobjects.com/images/pennstadt/15.jpg，并且应该导致该图像出现在表行的一个元素中。

Answer 1

您需要嵌套画笔：

html tableData: [ (self showImageFor: one id using: html) ]

本书对此进行了详细说明： http : //book.seaside.st/book/fundamentals/rendering-components