--- a/AppModel.st Wed May 20 04:32:58 1998 +0200
+++ b/AppModel.st Wed May 20 20:25:53 1998 +0200
@@ -1346,7 +1346,8 @@
!ApplicationModel methodsFor:'startup / release'!
allButOpenFrom:aSpec
- "create my views but do not open the main window"
+ "create my views but do not open the main window.
+ The argument is a spec which defines the interface."
|realBuilder window|
@@ -1378,11 +1379,13 @@
].
self postBuildWith:builder.
- "Modified: / 19.4.1998 / 11:46:02 / cg"
+ "Modified: / 20.5.1998 / 20:07:41 / cg"
!
allButOpenInterface:aSymbol
- "create my views but do not open the main window"
+ "create my views but do not open the main window.
+ The argument specifies a selector of a method,
+ which when sent to myself should return a spec"
|spec|
@@ -1390,7 +1393,7 @@
self allButOpenFrom:spec.
^ builder
- "Modified: / 25.1.1998 / 19:45:29 / cg"
+ "Modified: / 20.5.1998 / 20:07:18 / cg"
!
close
@@ -1590,6 +1593,28 @@
"Modified: 13.1.1997 / 21:24:30 / cg"
!
+openSpec:anInterfaceSpec
+ "open a view as specified in anInterfaceSpec."
+
+ self allButOpenFrom:anInterfaceSpec.
+ self openWindow.
+ ^ builder
+
+ "Modified: / 14.2.1997 / 20:25:33 / cg"
+ "Created: / 20.5.1998 / 20:08:51 / cg"
+!
+
+openSpecModal:aSpec
+ "open an interface spec modal"
+
+ self allButOpenFrom:aSpec.
+ self openWindowModal.
+ ^ builder
+
+ "Modified: / 14.2.1997 / 20:25:33 / cg"
+ "Created: / 20.5.1998 / 20:20:21 / cg"
+!
+
postBuildWith:aBuilder
"this is sent after an interface is built from a spec.
Can be redefined in subclasses for additional setup after
@@ -1661,6 +1686,6 @@
!ApplicationModel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.79 1998-05-20 01:49:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.80 1998-05-20 18:25:53 cg Exp $'
! !
ApplicationModel initialize!
--- a/ApplicationModel.st Wed May 20 04:32:58 1998 +0200
+++ b/ApplicationModel.st Wed May 20 20:25:53 1998 +0200
@@ -1346,7 +1346,8 @@
!ApplicationModel methodsFor:'startup / release'!
allButOpenFrom:aSpec
- "create my views but do not open the main window"
+ "create my views but do not open the main window.
+ The argument is a spec which defines the interface."
|realBuilder window|
@@ -1378,11 +1379,13 @@
].
self postBuildWith:builder.
- "Modified: / 19.4.1998 / 11:46:02 / cg"
+ "Modified: / 20.5.1998 / 20:07:41 / cg"
!
allButOpenInterface:aSymbol
- "create my views but do not open the main window"
+ "create my views but do not open the main window.
+ The argument specifies a selector of a method,
+ which when sent to myself should return a spec"
|spec|
@@ -1390,7 +1393,7 @@
self allButOpenFrom:spec.
^ builder
- "Modified: / 25.1.1998 / 19:45:29 / cg"
+ "Modified: / 20.5.1998 / 20:07:18 / cg"
!
close
@@ -1590,6 +1593,28 @@
"Modified: 13.1.1997 / 21:24:30 / cg"
!
+openSpec:anInterfaceSpec
+ "open a view as specified in anInterfaceSpec."
+
+ self allButOpenFrom:anInterfaceSpec.
+ self openWindow.
+ ^ builder
+
+ "Modified: / 14.2.1997 / 20:25:33 / cg"
+ "Created: / 20.5.1998 / 20:08:51 / cg"
+!
+
+openSpecModal:aSpec
+ "open an interface spec modal"
+
+ self allButOpenFrom:aSpec.
+ self openWindowModal.
+ ^ builder
+
+ "Modified: / 14.2.1997 / 20:25:33 / cg"
+ "Created: / 20.5.1998 / 20:20:21 / cg"
+!
+
postBuildWith:aBuilder
"this is sent after an interface is built from a spec.
Can be redefined in subclasses for additional setup after
@@ -1661,6 +1686,6 @@
!ApplicationModel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.79 1998-05-20 01:49:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.80 1998-05-20 18:25:53 cg Exp $'
! !
ApplicationModel initialize!