comment
authorClaus Gittinger <cg@exept.de>
Fri, 17 Jan 1997 16:44:47 +0100
changeset 1240 1dc8c6d791fd
parent 1239 f4bd3bc9f3f9
child 1241 c65f1c9d8de4
comment
WGroup.st
WindowGroup.st
--- a/WGroup.st	Fri Jan 17 00:17:10 1997 +0100
+++ b/WGroup.st	Fri Jan 17 16:44:47 1997 +0100
@@ -740,7 +740,7 @@
 allNonTopViewsDo:aBlock
     "evaluate aBlock for all nonTopviews (i.e. subviews) in this group.
      This works on a copy of the view collection, to allow for
-     destroy and other collection changing operations to be done."
+     destroy and other collection changing operations to be performed in the loop."
 
     views notNil ifTrue:[
         views copy nonNilElementsDo:aBlock
@@ -750,7 +750,7 @@
 allTopViewsDo:aBlock
     "evaluate aBlock for all topviews in this group.
      This works on a copy of the view collection, to allow for
-     destroy and other collection changing operations to be done."
+     destroy and other collection changing operations to be performed in the loop."
 
     topViews notNil ifTrue:[
 	topViews copy nonNilElementsDo:aBlock
@@ -760,7 +760,7 @@
 allTopViewsExcept:aView do:aBlock
     "evaluate aBlock for all topviews except aView in this group.
      This works on a copy of the view collection, to allow for
-     destroy and other collection changing operations to be done."
+     destroy and other collection changing operations to be performed in the loop."
 
     topViews notNil ifTrue:[
 	topViews copy nonNilElementsDo:[:v |
@@ -772,7 +772,7 @@
 allViewsDo:aBlock
     "evaluate aBlock for all views & topviews in this group.
      This works on a copy of the view collection, to allow for
-     destroy and other collection changing operations to be done."
+     destroy and other collection changing operations to be performed in the loop."
 
     self allTopViewsDo:aBlock.
     self allNonTopViewsDo:aBlock.
@@ -781,7 +781,7 @@
 partnersDo:aBlock
     "evaluate aBlock for all partnerViews.
      This works on a copy of the view collection, to allow for
-     destroy and other collection changing operations to be done."
+     destroy and other collection changing operations to be performed in the loop."
 
     topViews notNil ifTrue:[
 	topViews copy nonNilElementsDo:[:v |
@@ -793,7 +793,7 @@
 slavesDo:aBlock
     "evaluate aBlock for all slaveViews.
      This works on a copy of the view collection, to allow for
-     destroy and other collection changing operations to be done."
+     destroy and other collection changing operations to be performed in the loop."
 
     topViews notNil ifTrue:[
 	topViews copy nonNilElementsDo:[:v |
@@ -1465,6 +1465,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.95 1997-01-12 00:09:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.96 1997-01-17 15:44:47 cg Exp $'
 ! !
 WindowGroup initialize!
--- a/WindowGroup.st	Fri Jan 17 00:17:10 1997 +0100
+++ b/WindowGroup.st	Fri Jan 17 16:44:47 1997 +0100
@@ -740,7 +740,7 @@
 allNonTopViewsDo:aBlock
     "evaluate aBlock for all nonTopviews (i.e. subviews) in this group.
      This works on a copy of the view collection, to allow for
-     destroy and other collection changing operations to be done."
+     destroy and other collection changing operations to be performed in the loop."
 
     views notNil ifTrue:[
         views copy nonNilElementsDo:aBlock
@@ -750,7 +750,7 @@
 allTopViewsDo:aBlock
     "evaluate aBlock for all topviews in this group.
      This works on a copy of the view collection, to allow for
-     destroy and other collection changing operations to be done."
+     destroy and other collection changing operations to be performed in the loop."
 
     topViews notNil ifTrue:[
 	topViews copy nonNilElementsDo:aBlock
@@ -760,7 +760,7 @@
 allTopViewsExcept:aView do:aBlock
     "evaluate aBlock for all topviews except aView in this group.
      This works on a copy of the view collection, to allow for
-     destroy and other collection changing operations to be done."
+     destroy and other collection changing operations to be performed in the loop."
 
     topViews notNil ifTrue:[
 	topViews copy nonNilElementsDo:[:v |
@@ -772,7 +772,7 @@
 allViewsDo:aBlock
     "evaluate aBlock for all views & topviews in this group.
      This works on a copy of the view collection, to allow for
-     destroy and other collection changing operations to be done."
+     destroy and other collection changing operations to be performed in the loop."
 
     self allTopViewsDo:aBlock.
     self allNonTopViewsDo:aBlock.
@@ -781,7 +781,7 @@
 partnersDo:aBlock
     "evaluate aBlock for all partnerViews.
      This works on a copy of the view collection, to allow for
-     destroy and other collection changing operations to be done."
+     destroy and other collection changing operations to be performed in the loop."
 
     topViews notNil ifTrue:[
 	topViews copy nonNilElementsDo:[:v |
@@ -793,7 +793,7 @@
 slavesDo:aBlock
     "evaluate aBlock for all slaveViews.
      This works on a copy of the view collection, to allow for
-     destroy and other collection changing operations to be done."
+     destroy and other collection changing operations to be performed in the loop."
 
     topViews notNil ifTrue:[
 	topViews copy nonNilElementsDo:[:v |
@@ -1465,6 +1465,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.95 1997-01-12 00:09:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.96 1997-01-17 15:44:47 cg Exp $'
 ! !
 WindowGroup initialize!