Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Fri, 19 Jun 1998 03:37:17 +0200
changeset 978 cd056a68d67a
parent 977 e07277070839
child 979 cd28a5d673c9
checkin from browser
AppModel.st file | annotate | diff | comparison | revisions
ApplicationModel.st file | annotate | diff | comparison | revisions
SimpleDialog.st file | annotate | diff | comparison | revisions 
--- 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!
--- 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!
--- 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 $'
 ! !
hg/stx-libview2