class: MenuPanel expeccoALM_1_9_0_1
authorClaus Gittinger <cg@exept.de>
Wed, 06 May 2015 14:55:15 +0200
changeset 4756 58b910fe4513
parent 4755 71a9b07691d8
child 4757 b977993f91f2
class: MenuPanel allow being asked for enabled when no menupanel is present (i.e. early, when the menupanel is not yet present)
MenuPanel.st
--- 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 $'
 ! !