--- a/AppModel.st Fri Feb 28 14:23:13 1997 +0100
+++ b/AppModel.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/Attic/AppModel.st,v 1.43 1997-02-18 11:02:04 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.44 1997-02-28 13:24:07 cg Exp $'
! !
ApplicationModel initialize!
--- 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!
--- a/SimpleDialog.st Fri Feb 28 14:23:13 1997 +0100
+++ b/SimpleDialog.st Fri Feb 28 14:24:07 1997 +0100
@@ -164,9 +164,18 @@
!
openFor:anApplication interface:aSelector
+ ^ self openFor:anApplication interface:aSelector withBindings:nil
+
+ "Modified: 28.2.1997 / 14:09:40 / cg"
+!
+
+openFor:anApplication interface:aSelector withBindings:bindings
+ builder addBindings:bindings.
self source:anApplication.
^ self openFrom:(anApplication class interfaceSpecFor:aSelector)
+ "Created: 28.2.1997 / 14:09:06 / cg"
+ "Modified: 28.2.1997 / 14:13:10 / cg"
!
openFrom:anInterfaceSpec
@@ -195,5 +204,5 @@
!SimpleDialog class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.4 1997-02-28 09:28:58 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.5 1997-02-28 13:23:54 cg Exp $'
! !