# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 833967709 -7200
# Node ID d73bf4e4382e34c8cc231c6da8bbafa9c7c38d79
# Parent  54cd4d5f9e66eb673da9e2817a3f58903ac3fce5
checkin from browser

diff -r 54cd4d5f9e66 -r d73bf4e4382e MenuView.st
--- 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 $'
 ! !