link alias

Lukas, I find on a regular basis that I want to be able to provide an alias to value "links", e.g. the following displays a link to the current structure, with the text "Login", executing the login command, and this link is only displayed if the user is not logged in. +value:structure|link=Login|command=PULogin|loggedout+ This can be implemented very simply in PRValueLink>>#formatStructure: aStructure in: aContext do let me know if you include this addition, thanks in advance Keith ======= PRValueLink>>#formatStructure: aStructure in: aContext "Format ==aStructure==. Link it, if the parameter ==link== is given; embed it, if the paremeter ==embed== is given." | string | ((self selectAndReject: aStructure) isNil or: [ (aContext structure: aStructure) isValid not or: [ (aStructure propertyAt: #hideFromMenus ifAbsent: [ false ]) ] ]) ifTrue: [ ^ nil ]. "BEGIN MODIFICATION TO PROVIDE ALIAS TO LINK" string := self parameterAt: 'link'. string ifNil: [ string := self formatDescribed: aStructure default: #title ]. "END MODIFICATION TO PROVIDE ALIAS TO LINK" ^ ((self hasParameter: 'link') or: [ self hasParameter: 'embed' ]) ifTrue: [ PRInternalLink new embedded: (self hasParameter: 'embed'); parameters: self parameters; target: aStructure; addAll: (string isNil ifTrue: [ Array new ] ifFalse: [ Array with: (PRText content: string) ]); yourself ] ifFalse: [ string isNil ifFalse: [ PRText content: string ] ]