--- a/PopUpMenu.st	Mon Sep 03 15:08:59 2001 +0200
+++ b/PopUpMenu.st	Wed Sep 05 16:33:38 2001 +0200
@@ -1131,22 +1131,24 @@
     aMenu hideOnLeave:true.
 "
     menuView subMenuAt:indexOrName put:aMenu.
-    "tell the submenu to notify me when action is performed"
-    aMenu superMenu:self.
+    aMenu notNil ifTrue:[
+        "tell the submenu to notify me when action is performed"
+        aMenu superMenu:self.
+    ].
 
     "
      |v m someObject|
 
      v := View new.
      m := PopUpMenu labels:#('1' '2' '3')
-		 selectors:#(one two nil)
-		  receiver:someObject 
-		       for:nil.
+                 selectors:#(one two nil)
+                  receiver:someObject 
+                       for:nil.
      m subMenuAt:3 put:(PopUpMenu
-			     labels:#('a' 'b' 'c')
-			  selectors:#(a b c)
-			   receiver:someObject 
-				for:nil).
+                             labels:#('a' 'b' 'c')
+                          selectors:#(a b c)
+                           receiver:someObject 
+                                for:nil).
      v middleButtonMenu:m.
      v realize
     "
@@ -1568,5 +1570,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.85 2001-05-17 22:20:46 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.86 2001-09-05 14:33:23 cg Exp $'
 ! !