[Seaside] "IAExternalLink"

[Markus Fritsche]

This is a multi-part message in MIME format.
--------------060304030402010104070501
Content-Type: text/plain; charset=ISO-8859-15; format=flowed
Content-Transfer-Encoding: 8bit

Markus Fritsche wrote:

It's so simple... :-)

Heading for the recursion thing... (and, §$%§", my dialup-line is broken 
this evening).

Markus


--------------060304030402010104070501
Content-Type: text/html;
 name="IAExtLink.st"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="IAExtLink.st"

'From Squeak3.2gamma of 15 January 2002 [latest update: #4889] on 17 June 2002 at 11:10:41 pm'!
IAElement subclass: #IAExtLink
	instanceVariableNames: 'value description '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Markus-Test'!

!(Smalltalk robustClassNamed: #IAExtLink) methodsFor: 'as yet unclassified' stamp: 'MF 6/17/2002 23:07'!
defaultBindings
	self bind: #value toPath: id.
	self set: #description to: 'External Link'! !

!(Smalltalk robustClassNamed: #IAExtLink) methodsFor: 'as yet unclassified' stamp: 'MF 6/17/2002 23:00'!
printHtmlTo: context 
	| string |
	string _ '<a href="' , (context valueForBinding: value) asString , '">'
				, (context valueForBinding: description) , '</a>'.
	context print: string! !

--------------060304030402010104070501--