checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 28 Jul 1999 01:44:30 +0200
changeset 1464 3070de4c8b88
parent 1463 741925565153
child 1465 729190733159
checkin from browser
MenuPanel.st
--- a/MenuPanel.st	Tue Jul 27 13:24:45 1999 +0200
+++ b/MenuPanel.st	Wed Jul 28 01:44:30 1999 +0200
@@ -1942,12 +1942,13 @@
 rearrangeItemsIfItemVisibilityChanged
     "if I have any items with changing visibility, rearrange"
 
+    items isNil ifTrue:[^ self].
     items do:[:item |
-	item canChangeVisibility ifTrue:[
-	    mustRearrange := true.
-	    self rearrangeItems.
-	    ^ self
-	].
+        item canChangeVisibility ifTrue:[
+            mustRearrange := true.
+            self rearrangeItems.
+            ^ self
+        ].
     ]
 !
 
@@ -5446,6 +5447,6 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.168 1999-07-26 09:42:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.169 1999-07-27 23:44:30 cg Exp $'
 ! !
 MenuPanel initialize!