--- 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!