checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 04 Dec 1997 14:14:03 +0100
changeset 1965 765f9e696b42
parent 1964 63ad6bf3676f
child 1966 29b319f79dd0
checkin from browser
WGroup.st
WindowGroup.st
--- a/WGroup.st	Thu Dec 04 10:58:01 1997 +0100
+++ b/WGroup.st	Thu Dec 04 14:14:03 1997 +0100
@@ -730,7 +730,7 @@
                 [
                     startupAction value.
                     self eventLoopWhile:[true] onLeave:[]
-                ] valueOnUnwindDo:[
+                ] valueNowOrOnUnwindDo:[
                     self closeDownViews
                 ]
             ]
@@ -773,9 +773,9 @@
         ].
     ]
 
-    "Modified: 13.12.1995 / 14:04:53 / stefan"
-    "Created: 24.7.1997 / 12:52:04 / cg"
-    "Modified: 20.8.1997 / 18:11:33 / cg"
+    "Modified: / 13.12.1995 / 14:04:53 / stefan"
+    "Created: / 24.7.1997 / 12:52:04 / cg"
+    "Modified: / 4.12.1997 / 14:13:35 / cg"
 ! !
 
 !WindowGroup methodsFor:'enumerating'!
@@ -1779,6 +1779,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.122 1997-11-02 18:39:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.123 1997-12-04 13:14:03 cg Exp $'
 ! !
 WindowGroup initialize!
--- a/WindowGroup.st	Thu Dec 04 10:58:01 1997 +0100
+++ b/WindowGroup.st	Thu Dec 04 14:14:03 1997 +0100
@@ -730,7 +730,7 @@
                 [
                     startupAction value.
                     self eventLoopWhile:[true] onLeave:[]
-                ] valueOnUnwindDo:[
+                ] valueNowOrOnUnwindDo:[
                     self closeDownViews
                 ]
             ]
@@ -773,9 +773,9 @@
         ].
     ]
 
-    "Modified: 13.12.1995 / 14:04:53 / stefan"
-    "Created: 24.7.1997 / 12:52:04 / cg"
-    "Modified: 20.8.1997 / 18:11:33 / cg"
+    "Modified: / 13.12.1995 / 14:04:53 / stefan"
+    "Created: / 24.7.1997 / 12:52:04 / cg"
+    "Modified: / 4.12.1997 / 14:13:35 / cg"
 ! !
 
 !WindowGroup methodsFor:'enumerating'!
@@ -1779,6 +1779,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.122 1997-11-02 18:39:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.123 1997-12-04 13:14:03 cg Exp $'
 ! !
 WindowGroup initialize!