--- a/ApplicationModel.st	Wed Apr 29 21:58:04 2009 +0200
+++ b/ApplicationModel.st	Thu Apr 30 18:25:27 2009 +0200
@@ -2730,10 +2730,20 @@
 openSpec:anInterfaceSpec withBindings:bindings
     "open a view as specified in anInterfaceSpec."
 
+    self openSpec:anInterfaceSpec withBindings:bindings modal:false
+!
+
+openSpec:anInterfaceSpec withBindings:bindings modal:modal
+    "open a view as specified in anInterfaceSpec."
+
     self createBuilder.
     builder bindings:bindings.            
     self allButOpenFrom:anInterfaceSpec.
-    self openWindow.
+    modal ifTrue:[
+        self openWindowModal.
+    ] ifFalse:[
+        self openWindow.
+    ]
 !
 
 openSpecModal:anInterfaceSpec
@@ -3528,7 +3538,7 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.283 2009-03-23 07:21:50 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.284 2009-04-30 16:25:27 cg Exp $'
 ! !
 
 ApplicationModel initialize!