commands and value links

[Norbert Hartl]

I'm trying to create a value link that can display a single command inside a document. But I struggled to create a proper link for the command. This seems only possible if you have a pier context and renderer at the same time which is not really the case as long as you are staying inside PRValueLink.

The only solution I could come up with is the following:

PRValueLink>>commandIn: aContext
	<value: 'command' comment: 'Display command as link'>
	(PRCommand withAllConcreteClasses
		detect: [ :each | each label = (self parameterAt: 'label' ) ]
		ifNone: [ ^ nil ])
			ifNotNilDo: [ :commandClass |
				^ [ :html | 
					html anchor
						goto: (aContext command: commandClass new);
						with: commandClass label]].
	^ nil

I have the impression there might be a solution without using a block. Any ideas? Or is it ok the way it is?

thanks,

Norbert