How do I get a table to display images - smalltalk

Question

I am building a table in Seaside (Using VisualAge Smalltalk). I would like to have each table row have an image as well as text data. This what the method looks like:
where PSIni getImageUrl returns the main part of the url. The final url looks like
http://www.totallyobjects.com/images/pennstadt//15.jpg
Can anyone point me as to how to get this done please?
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) obviously doesn't work. This method looks like this:
showImageFor: anID using: html
html image width: 200; url: PSIni getImageURL, '/', anID printString, '.jpg'
where PSIni getImageUrl returns the main part of the url.
The final url looks like:
http://www.totallyobjects.com/images/pennstadt/15.jpg
and should result in that image appearing in one element of a table row.

Answer 1

You need to nest the brushes:
html tableData: [ (self showImageFor: one id using: html) ]
It's explained in depth in the book: http://book.seaside.st/book/fundamentals/rendering-components