# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 898220237 -7200
# Node ID cd056a68d67af4ad81be91e62e26b0b6568d9fd1
# Parent  e07277070839ee93e96e959f6f47b15f1f1326e5
checkin from browser

diff -r e07277070839 -r cd056a68d67a AppModel.st
--- a/AppModel.st	Fri Jun 19 02:44:59 1998 +0200
+++ b/AppModel.st	Fri Jun 19 03:37:17 1998 +0200
@@ -1241,8 +1241,7 @@
 "/    builder bindings:builder bindings.
 
     builder isNil ifTrue:[
-        builder := self builderClass new.
-        builder application:self.
+        self createBuilder.
     ].
 
     self preBuildWith:builder.
@@ -1254,7 +1253,7 @@
     ].
     self postBuildWith:builder.
 
-    "Modified: / 19.6.1998 / 01:39:16 / cg"
+    "Modified: / 19.6.1998 / 03:35:31 / cg"
 !
 
 allButOpenInterface:aSymbol
@@ -1524,6 +1523,15 @@
     "Modified: / 19.6.1998 / 01:45:24 / cg"
 !
 
+createBuilder
+    builder isNil ifTrue:[
+        builder := self builderClass new.
+        builder application:self.
+    ]
+
+    "Created: / 19.6.1998 / 03:32:37 / cg"
+!
+
 opened:whichTopView
     "the topView has been opened.
      This is sent by my topView when its really open
@@ -1795,6 +1803,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.87 1998-06-19 00:01:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.88 1998-06-19 01:37:17 cg Exp $'
 ! !
 ApplicationModel initialize!
diff -r e07277070839 -r cd056a68d67a ApplicationModel.st
--- a/ApplicationModel.st	Fri Jun 19 02:44:59 1998 +0200
+++ b/ApplicationModel.st	Fri Jun 19 03:37:17 1998 +0200
@@ -1241,8 +1241,7 @@
 "/    builder bindings:builder bindings.
 
     builder isNil ifTrue:[
-        builder := self builderClass new.
-        builder application:self.
+        self createBuilder.
     ].
 
     self preBuildWith:builder.
@@ -1254,7 +1253,7 @@
     ].
     self postBuildWith:builder.
 
-    "Modified: / 19.6.1998 / 01:39:16 / cg"
+    "Modified: / 19.6.1998 / 03:35:31 / cg"
 !
 
 allButOpenInterface:aSymbol
@@ -1524,6 +1523,15 @@
     "Modified: / 19.6.1998 / 01:45:24 / cg"
 !
 
+createBuilder
+    builder isNil ifTrue:[
+        builder := self builderClass new.
+        builder application:self.
+    ]
+
+    "Created: / 19.6.1998 / 03:32:37 / cg"
+!
+
 opened:whichTopView
     "the topView has been opened.
      This is sent by my topView when its really open
@@ -1795,6 +1803,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.87 1998-06-19 00:01:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.88 1998-06-19 01:37:17 cg Exp $'
 ! !
 ApplicationModel initialize!
diff -r e07277070839 -r cd056a68d67a SimpleDialog.st
--- a/SimpleDialog.st	Fri Jun 19 02:44:59 1998 +0200
+++ b/SimpleDialog.st	Fri Jun 19 03:37:17 1998 +0200
@@ -392,14 +392,14 @@
     accept := (ValueHolder with:false).
     close := (ValueHolder with:false).
     cancel := (ValueHolder with:false).
-    builder := self builderClass new.
+    self createBuilder.
     builder aspectAt:#accept put:accept.
     builder aspectAt:#close put:close.
     builder aspectAt:#cancel put:cancel.
     escapeIsCancel := true.
     closeAllowedChannel := true
 
-    "Modified: / 19.6.1998 / 02:22:41 / cg"
+    "Modified: / 19.6.1998 / 03:35:48 / cg"
 !
 
 initializeBuilderFor:aView 
@@ -594,5 +594,5 @@
 !SimpleDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.21 1998-06-19 00:23:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.22 1998-06-19 01:36:40 cg Exp $'
 ! !