--- a/Launcher.st	Tue Oct 15 12:32:16 1996 +0200
+++ b/Launcher.st	Tue Oct 15 13:54:10 1996 +0200
@@ -2158,6 +2158,43 @@
     "Created: 12.5.1996 / 15:30:15 / cg"
 !
 
+findAndRaiseWindow
+    |knownTopViews nameList box|
+
+    knownTopViews := IdentitySet new.
+    Screen allScreens do:[:aScreen |
+        aScreen knownViews do:[:aView |
+            aView notNil ifTrue:[
+                knownTopViews add:aView topView
+            ]
+        ]
+    ].
+
+    knownTopViews := knownTopViews select:[:aView | aView windowGroup notNil
+                                                    and:[aView windowGroup isModal not]].
+
+    knownTopViews := knownTopViews asOrderedCollection.
+    knownTopViews sort:[:v1 :v2 | v1 label < v2 label].
+    nameList := knownTopViews collect:[:v | v label].
+
+    box := ListSelectionBox new.
+    box noEnterField.
+    box list:nameList.
+    box label:'view selection'.
+    box title:'select a view to raise deiconified:'.
+    box action:[:selection |
+        |v|
+
+        v := knownTopViews at:box selectionIndex.
+        v raiseDeiconified.
+        box destroy.
+    ].
+    box showAtPointer.
+
+    "Created: 15.10.1996 / 12:43:06 / cg"
+    "Modified: 15.10.1996 / 12:51:49 / cg"
+!
+
 fullScreenHardcopy
     "after a second (to allow redraw of views under menu ...),
      save the contents of the whole screen."
@@ -3146,10 +3183,7 @@
                                         '-'
                                         'monitors'
                                         '-'
-                                        'view tree (all views)'
-                                        'view tree'
-                                        'inspect view'
-                                        'destroy view'
+                                        'views'
                                         '-'
                                         'hardcopy'
                                         '-'
@@ -3160,10 +3194,7 @@
                                         nil
                                         #monitors
                                         nil
-                                        #startFullWindowTreeView 
-                                        #startWindowTreeView 
-                                        #viewInspect 
-                                        #viewDestroy 
+                                        #views
                                         nil
                                         #hardcopy 
                                         nil
@@ -3193,6 +3224,26 @@
                            )
                 receiver:self).
 
+    m subMenuAt:#views 
+      put:(PopUpMenu
+                labels:(resources array:#(
+                                           'find & raise ...'
+                                           '-'
+                                           'view tree (all views)'
+                                           'view tree'
+                                           'inspect view'
+                                           'destroy view'
+                                         ))
+                selectors:#(
+                                        #findAndRaiseWindow 
+                                        nil
+                                        #startFullWindowTreeView 
+                                        #startWindowTreeView 
+                                        #viewInspect 
+                                        #viewDestroy 
+                           )
+                receiver:self).
+
     m subMenuAt:#misc 
       put:(PopUpMenu
                 labels:(resources array:#(
@@ -3223,7 +3274,7 @@
                            )
                 receiver:self).
 
-    "Modified: 12.5.1996 / 15:29:46 / cg"
+    "Modified: 15.10.1996 / 12:42:47 / cg"
 !
 
 setupTranscriptIn:aView 
@@ -3495,5 +3546,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.196 1996-10-14 18:44:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.197 1996-10-15 11:54:10 cg Exp $'
 ! !