--- a/MenuPanel.st	Tue Feb 01 14:53:30 2000 +0100
+++ b/MenuPanel.st	Tue Feb 01 14:56:07 2000 +0100
@@ -1686,28 +1686,28 @@
     "convert to Menu
     "
     self disabledRedrawDo:[
-	|menu newItems|
-
-	self removeAll.
-
-	(menu := aMenu) notNil ifTrue:[
-	    (aMenu isCollection) ifTrue:[
-		menu := Menu new.
-		menu fromLiteralArrayEncoding:aMenu.
-	    ] ifFalse:[
-		menu receiver notNil ifTrue:[receiver := menu receiver]
-	    ].
-	    (newItems := menu menuItems) notNil ifTrue:[
-		items := newItems collect:[:ni | 
-				|i|
-
-				i:= Item in:self.
-				i menuItem:ni.
-				i.
-			    ].
-	    ].
-	    self groupSizes:(menu groupSizes).
-	]
+        |menu newItems|
+
+        self removeAll.
+
+        (menu := aMenu) notNil ifTrue:[
+            (aMenu isCollection) ifTrue:[
+                menu := Menu new.
+                menu fromLiteralArrayEncoding:aMenu.
+            ] ifFalse:[
+                menu receiver notNil ifTrue:[receiver := menu receiver]
+            ].
+            (newItems := menu menuItems) size > 0 ifTrue:[
+                items := newItems collect:[:ni | 
+                                |i|
+
+                                i:= Item in:self.
+                                i menuItem:ni.
+                                i.
+                            ].
+            ].
+            self groupSizes:(menu groupSizes).
+        ]
     ]
 
     "Modified: / 8.8.1998 / 02:05:04 / cg"
@@ -5515,6 +5515,6 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.186 2000-01-31 14:01:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.187 2000-02-01 13:56:07 cg Exp $'
 ! !
 MenuPanel initialize!