--- a/WindowGroup.st	Sat Sep 22 03:33:39 2018 +0200
+++ b/WindowGroup.st	Sun Sep 23 23:32:10 2018 +0200
@@ -394,6 +394,31 @@
 
 !
 
+allTopViews
+    |allWindowGroups allTopViews|
+
+    allTopViews := OrderedCollection new.
+    
+    allWindowGroups := WindowGroup scheduledWindowGroups.
+    allWindowGroups do:[:wg |
+        wg notNil ifTrue:[
+            (wg process notNil
+            or:[wg isModal and:[wg previousGroup notNil]]) ifTrue:[
+                (wg topViews ? #()) do:[:eachTopView |
+                    |element icon|
+
+                    (eachTopView id notNil)  ifTrue:[
+                        allTopViews add:eachTopView
+                    ]
+                ]
+            ]
+        ]
+    ].
+    ^ allTopViews
+
+    "Created: / 23-09-2018 / 23:30:44 / Claus Gittinger"
+!
+
 flushCachedActiveGroup
     self setActiveGroup:nil
 !