# HG changeset patch
# User ca
# Date 857383928 -3600
# Node ID 40eaf3d339c9fe43b638caf1ec6fe34cb6054774
# Parent  350583677b5ba76e6dd44bd95c68a4bc66ab69df
set application after allButOpenFrom:

diff -r 350583677b5b -r 40eaf3d339c9 AppModel.st
--- a/AppModel.st	Sat Mar 01 23:15:10 1997 +0100
+++ b/AppModel.st	Mon Mar 03 11:12:08 1997 +0100
@@ -1070,7 +1070,9 @@
     self preBuildWith:builder.
     builder buildFromSpec:aSpec.
     builder window model:self.
-    builder window application:self.
+    (builder window respondsTo:#application:) ifTrue:[
+        builder window application:self.
+    ].
     self postBuildWith:builder.
 !
 
@@ -1276,6 +1278,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.44 1997-02-28 13:24:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.45 1997-03-03 10:12:08 ca Exp $'
 ! !
 ApplicationModel initialize!
diff -r 350583677b5b -r 40eaf3d339c9 ApplicationModel.st
--- a/ApplicationModel.st	Sat Mar 01 23:15:10 1997 +0100
+++ b/ApplicationModel.st	Mon Mar 03 11:12:08 1997 +0100
@@ -1070,7 +1070,9 @@
     self preBuildWith:builder.
     builder buildFromSpec:aSpec.
     builder window model:self.
-    builder window application:self.
+    (builder window respondsTo:#application:) ifTrue:[
+        builder window application:self.
+    ].
     self postBuildWith:builder.
 !
 
@@ -1276,6 +1278,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.44 1997-02-28 13:24:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.45 1997-03-03 10:12:08 ca Exp $'
 ! !
 ApplicationModel initialize!