# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 895688753 -7200
# Node ID 9d8e155b931cec0e4bf00d36bed67b774fb34830
# Parent  7bc9203dc3177a029bf14335bd67e654c55e3465
added #openSpec: and #openSpecModal:

diff -r 7bc9203dc317 -r 9d8e155b931c AppModel.st
--- 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!
diff -r 7bc9203dc317 -r 9d8e155b931c ApplicationModel.st
--- 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!