--- a/Launcher.st	Mon Mar 03 10:39:08 1997 +0100
+++ b/Launcher.st	Mon Mar 03 14:12:02 1997 +0100
@@ -2882,21 +2882,23 @@
 !
 
 deIconifyAllWindows
-    |screen|
-
-    WindowGroup allInstancesDo:[:aWindowGroup |
-        aWindowGroup allTopViewsDo:[:aTopView |
+    (Array 
+        with:Project current
+        with:Project defaultProject
+    ) do:[:aProject |
+        aProject views do:[:aTopView |
             aTopView device == Screen current ifTrue:[
                 aTopView expand
-            ]
-        ]
-    ]
+            ].
+        ].
+    ].
+
 
     "
      Transcript topView application deIconifyAllWindows
     "
 
-    "Modified: 1.3.1997 / 20:25:14 / cg"
+    "Modified: 3.3.1997 / 14:10:19 / cg"
 !
 
 findAndDestroyWindow
@@ -2960,10 +2962,11 @@
 !
 
 iconifyAllWindows
-    |screen|
-
-    WindowGroup allInstancesDo:[:aWindowGroup |
-        aWindowGroup allTopViewsDo:[:aTopView |
+    (Array 
+        with:Project current
+        with:Project defaultProject
+    ) do:[:aProject |
+        aProject views do:[:aTopView |
             aTopView device == Screen current ifTrue:[
                 aTopView collapse
             ]
@@ -2971,7 +2974,7 @@
     ]
 
     "Created: 1.3.1997 / 20:10:58 / cg"
-    "Modified: 1.3.1997 / 20:22:01 / cg"
+    "Modified: 3.3.1997 / 14:10:31 / cg"
 !
 
 removeAllBreakAndTracePoints
@@ -4621,5 +4624,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.254 1997-03-01 21:57:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.255 1997-03-03 13:12:02 cg Exp $'
 ! !