equal
deleted
inserted
replaced
1162 "evaluate aBlock for all partnerViews. |
1162 "evaluate aBlock for all partnerViews. |
1163 This enumerates a copy of the view collection, to allow for |
1163 This enumerates a copy of the view collection, to allow for |
1164 destroy and other collection changing operations to be performed in the loop." |
1164 destroy and other collection changing operations to be performed in the loop." |
1165 |
1165 |
1166 self allTopViewsDo:[:v | |
1166 self allTopViewsDo:[:v | |
1167 (v type == #partner) ifTrue:[aBlock value:v]. |
1167 v isPartner ifTrue:[aBlock value:v]. |
1168 ]. |
1168 ]. |
1169 |
1169 |
1170 "Modified: 12.2.1997 / 12:21:41 / cg" |
1170 "Modified: 12.2.1997 / 12:21:41 / cg" |
1171 ! |
1171 ! |
1172 |
1172 |
1174 "evaluate aBlock for all slaveViews. |
1174 "evaluate aBlock for all slaveViews. |
1175 This enumerates a copy of the view collection, to allow for |
1175 This enumerates a copy of the view collection, to allow for |
1176 destroy and other collection changing operations to be performed in the loop." |
1176 destroy and other collection changing operations to be performed in the loop." |
1177 |
1177 |
1178 self allTopViewsDo:[:v | |
1178 self allTopViewsDo:[:v | |
1179 (v type == #slave) ifTrue:[aBlock value:v]. |
1179 v isSlave ifTrue:[aBlock value:v]. |
1180 ]. |
1180 ]. |
1181 |
1181 |
1182 "Modified: 12.2.1997 / 12:21:46 / cg" |
1182 "Modified: 12.2.1997 / 12:21:46 / cg" |
1183 ! ! |
1183 ! ! |
1184 |
1184 |
2657 ! ! |
2657 ! ! |
2658 |
2658 |
2659 !WindowGroup class methodsFor:'documentation'! |
2659 !WindowGroup class methodsFor:'documentation'! |
2660 |
2660 |
2661 version |
2661 version |
2662 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.239 2002-05-02 10:48:29 cg Exp $' |
2662 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.240 2002-05-03 18:04:24 cg Exp $' |
2663 ! ! |
2663 ! ! |
2664 WindowGroup initialize! |
2664 WindowGroup initialize! |