hg/stx-libwidg2: comparison MenuPanel.st

equal deleted inserted replaced

-:5ca73a020d36
+:74c81c1e30d7
 ^ anItem activeHelpText.
 ! !
 !MenuPanel methodsFor:'image registration'!
-imageOnDevice:anImage
+imageOnMyDevice:anImage
 "returns image registered on device
 "
 ^ self class image:anImage onDevice:device
 !
 (displayLabel isNil or:[displayLabel isString]) ifTrue:[
 ^ self
 ].
 displayLabel isImageOrForm ifTrue:[
-displayLabel := menuPanel imageOnDevice:displayLabel.
+displayLabel := menuPanel imageOnMyDevice:displayLabel.
 ^ self.
 ].
 (displayLabel isKindOf:LabelAndIcon) ifTrue:[
 (icon := displayLabel image) notNil ifTrue:[
-displayLabel image:(menuPanel imageOnDevice:icon)
+displayLabel image:(menuPanel imageOnMyDevice:icon)
 ].
 (icon := displayLabel icon) notNil ifTrue:[
-displayLabel icon:(menuPanel imageOnDevice:icon)
+displayLabel icon:(menuPanel imageOnMyDevice:icon)
 ].
 ^ self
 ].
 displayLabel isArray ifFalse:[^ self].
 displayLabel keysAndValuesDo:[:i :el|
 (el notNil and:[el isString not]) ifTrue:[
 el isImageOrForm ifTrue:[
-displayLabel at:i put:(menuPanel imageOnDevice:el).
+displayLabel at:i put:(menuPanel imageOnMyDevice:el).
 ] ifFalse:[
 el class == LabelAndIcon ifTrue:[
 (icon := el image) notNil ifTrue:[
-el image:(menuPanel imageOnDevice:icon)
+el image:(menuPanel imageOnMyDevice:icon)
 ].
 (icon := el icon) notNil ifTrue:[
-el icon:(menuPanel imageOnDevice:icon)
+el icon:(menuPanel imageOnMyDevice:icon)
 ]
 ]
 ]
 ]
 ].
 ! !
 !MenuPanel class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.364 2003-04-22 09:43:24 cg Exp $'
+^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.365 2003-04-25 00:09:09 cg Exp $'
 ! !
 MenuPanel initialize!

changeset 2488	74c81c1e30d7
parent 2485	b3d92f4a5f7b
child 2503	4f34d55dae21