class: MenuPanel
allow being asked for enabled when no menupanel is present
(i.e. early, when the menupanel is not yet present)
--- a/MenuPanel.st Wed May 06 11:28:58 2015 +0200
+++ b/MenuPanel.st Wed May 06 14:55:15 2015 +0200
@@ -6599,16 +6599,17 @@
|state|
+ menuPanel isNil ifTrue:[ ^ false].
menuPanel enabled ifFalse:[^ false].
enableChannel isSymbol ifTrue:[
- state := self aspectAt:enableChannel.
- state isValueModel ifTrue:[
- enableChannel := state.
- enableChannel addDependent:self.
- ].
+ state := self aspectAt:enableChannel.
+ state isValueModel ifTrue:[
+ enableChannel := state.
+ enableChannel addDependent:self.
+ ].
] ifFalse:[
- state := enableChannel.
+ state := enableChannel.
].
^ state value ~~ false
!
@@ -8929,11 +8930,11 @@
!MenuPanel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.605 2015-05-06 09:28:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.606 2015-05-06 12:55:15 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.605 2015-05-06 09:28:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.606 2015-05-06 12:55:15 cg Exp $'
! !