ApplicationModel.st
changeset 464 25e6380399c6
parent 438 c3d379e83de7
child 472 40eaf3d339c9
--- a/ApplicationModel.st	Fri Feb 28 14:23:13 1997 +0100
+++ b/ApplicationModel.st	Fri Feb 28 14:24:07 1997 +0100
@@ -421,11 +421,22 @@
     "create an instance of the application and open a view as
      specified by anInterfaceSymbol."
 
-    ^ self new openDialogInterface:anInterfaceSymbol
+    ^ self openDialogInterface:anInterfaceSymbol withBindings:nil
+
+    "Modified: 5.9.1995 / 17:54:50 / claus"
+    "Created: 14.2.1997 / 20:33:10 / cg"
+    "Modified: 28.2.1997 / 14:07:36 / cg"
+!
+
+openDialogInterface:anInterfaceSymbol withBindings:bindings
+    "create an instance of the application and open a view as
+     specified by anInterfaceSymbol."
+
+    ^ self new openDialogInterface:anInterfaceSymbol withBindings:bindings
 
     "Modified: 5.9.1995 / 17:54:50 / claus"
     "Modified: 13.1.1997 / 20:55:02 / cg"
-    "Created: 14.2.1997 / 20:33:10 / cg"
+    "Created: 28.2.1997 / 14:07:24 / cg"
 !
 
 openInterface:anInterfaceSymbol
@@ -965,7 +976,17 @@
 openDialogInterface:aSelector
     "open a dialog"
 
-    ^ SimpleDialog new openFor:self interface:aSelector
+    ^ self openDialogInterface:aSelector withBindings:nil
+
+    "Modified: 28.2.1997 / 14:08:01 / cg"
+!
+
+openDialogInterface:aSelector withBindings:bindings
+    "open a dialog"
+
+    ^ SimpleDialog new openFor:self interface:aSelector withBindings:bindings
+
+    "Created: 28.2.1997 / 14:07:45 / cg"
 !
 
 openWindow
@@ -1255,6 +1276,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.43 1997-02-18 11:02:04 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.44 1997-02-28 13:24:07 cg Exp $'
 ! !
 ApplicationModel initialize!