[Seaside] [VW][BUG][FIX] WAWalkback>>renderObject:labelled:on:

[Lukas Renggli]

Hi,

	WAWalkback>>renderObject: anObject labelled: aString on: html
		| objectString |
		[objectString := anObject printStringLimitedTo: 100]
			on: Error
			do: [objectString := '<font ...'].
		html tableRowWithLabel: aString column: objectString.

should be

	WAWalkback>>renderObject: anObject labelled: aString on: html
		| objectString |
		[objectString := anObject printStringLimitedTo: 100]
			on: Error
			do: [:err|objectString := '<font ...'].
		html tableRowWithLabel: aString column: objectString.

else VisualWorks raises "Unhandled exception: This block expects 0 
argument(s)". Maybe it would be good practice to add the block-variable 
in the seaside version as well. One can find the occurrences using:

	``@block on: ``@class do: [ ``@stmts ]

Cheers,
Lukas

-- 
Lukas Renggli
http://renggli.freezope.org