--- a/MenuView.st	Tue Jun 04 21:20:18 1996 +0200
+++ b/MenuView.st	Wed Jun 05 11:41:49 1996 +0200
@@ -142,6 +142,18 @@
 
 !MenuView class methodsFor:'instance creation'!
 
+forMenu:aTopMenu
+    "create and return a new menuView, which will be contained in
+     aTopMenus superView"
+
+    aTopMenu isNil ifTrue:[
+        ^ self new
+    ].
+    ^ self in:(aTopMenu superView).
+
+    "Created: 5.6.1996 / 11:29:27 / cg"
+!
+
 labels:labels
     "create and return a new MenuView. The parent view,
      selectors and receiver should be set later."
@@ -2518,5 +2530,5 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.85 1996-05-30 07:20:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.86 1996-06-05 09:41:49 cg Exp $'
 ! !