--- a/ApplicationSubView.st	Wed Feb 15 18:24:11 2006 +0100
+++ b/ApplicationSubView.st	Wed Feb 15 22:01:33 2006 +0100
@@ -14,7 +14,7 @@
 "{ Package: 'stx:libview2' }"
 
 View subclass:#ApplicationSubView
-	instanceVariableNames:'application'
+	instanceVariableNames:'application buildMenu'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Views-Basic'
@@ -100,11 +100,23 @@
     application := something.
 !
 
+buildMenu:aBoolean
+    "if true, the main menu is also built. Default is false"
+
+    buildMenu := aBoolean.
+!
+
 client:anApplication spec:aWindowSpecOrSpecSymbol builder:aBuilder
+    self 
+        client:anApplication 
+        spec:aWindowSpecOrSpecSymbol 
+        builder:aBuilder 
+        withMenu:(buildMenu ? false).
+!
+
+client:anApplication spec:aWindowSpecOrSpecSymbol builder:aBuilder withMenu:withMenu
     self application:anApplication.
-    ^ super client:anApplication spec:aWindowSpecOrSpecSymbol builder:aBuilder
-
-
+    ^ super client:anApplication spec:aWindowSpecOrSpecSymbol builder:aBuilder withMenu:withMenu
 ! !
 
 !ApplicationSubView methodsFor:'events'!
@@ -133,5 +145,5 @@
 !ApplicationSubView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationSubView.st,v 1.7 2005-10-13 23:14:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationSubView.st,v 1.8 2006-02-15 21:01:33 cg Exp $'
 ! !