--- a/PopUpMenu.st	Sat Sep 08 21:16:18 2001 +0200
+++ b/PopUpMenu.st	Mon Sep 10 13:57:14 2001 +0200
@@ -391,12 +391,13 @@
 
     |newMenu|
 
+    aMenuView isView ifFalse:[
+        self error:'bad argument'
+    ].
     newMenu := self onSameDeviceAs:aMenuView. 
     newMenu addSubView:aMenuView.
     newMenu menuView:aMenuView.
     ^ newMenu
-
-    "Modified: 25.2.1997 / 20:52:42 / cg"
 !
 
 itemList:itemList resources:resources
@@ -1570,5 +1571,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.86 2001-09-05 14:33:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.87 2001-09-10 11:57:14 cg Exp $'
 ! !