--- a/MenuItem.st Mon Feb 13 23:20:51 2012 +0100
+++ b/MenuItem.st Tue Feb 14 15:17:29 2012 +0100
@@ -455,19 +455,19 @@
"Modified: / 19.6.1998 / 00:33:58 / cg"
!
-submenu:something
+submenu:aMenu
"set the submenu or nil"
- (something isValueModel or:[ something isBlock ]) ifTrue:[
+ (aMenu isValueModel or:[ aMenu isBlock ]) ifTrue:[
submenuChannel notNil ifTrue:[
"/ programmers error ?
"/ how can I decide which one to use if there is both
"/ a channel and a subMenu ...
self error:'overwriting submenuchannel' mayProceed:true.
].
- submenuChannel := something
+ submenuChannel := aMenu
] ifFalse:[
- submenu := something.
+ submenu := aMenu.
]
"Created: / 25.2.1997 / 20:59:28 / cg"
@@ -480,10 +480,10 @@
^ submenuChannel
!
-submenuChannel:something
+submenuChannel:aMenuHolder
"set the submenuChannel or nil"
- submenuChannel := something.
+ submenuChannel := aMenuHolder.
!
submenuProvider
@@ -1018,9 +1018,9 @@
!MenuItem class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.95 2011-10-12 21:03:46 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.96 2012-02-14 14:17:29 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.95 2011-10-12 21:03:46 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.96 2012-02-14 14:17:29 cg Exp $'
! !