# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 933119070 -7200
# Node ID 3070de4c8b8809d6f6ca8c228c67181ef3e2c700
# Parent  74192556515334ad29531dd96bae9e36d9b2cd60
checkin from browser

diff -r 741925565153 -r 3070de4c8b88 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!