--- a/Launcher.st	Wed Oct 15 13:15:55 1997 +0200
+++ b/Launcher.st	Wed Oct 15 13:16:36 1997 +0200
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.1.9 on 7-sep-1997 at 1:59:01 pm'                   !
+'From Smalltalk/X, Version:3.2.1 on 14-oct-1997 at 11:18:46 pm'                 !
 
 ApplicationModel subclass:#Launcher
 	instanceVariableNames:'myMenu buttonPanel transcript infoView projectInfoHolder helpIsOn
@@ -3022,13 +3022,13 @@
 
     |v|
 
-    v := self findWindow.
+    v := self findWindow:'select view to close:'.
     v notNil ifTrue:[
         v destroy.
     ].
 
     "Created: 28.10.1996 / 14:39:23 / cg"
-    "Modified: 8.1.1997 / 14:54:52 / cg"
+    "Modified: 14.10.1997 / 11:25:37 / cg"
 !
 
 findAndRaiseWindow
@@ -3036,12 +3036,12 @@
 
     |v|
 
-    v := self findWindow.
+    v := self findWindow:'select view to raise deiconified:'.
     v notNil ifTrue:[
         v raiseDeiconified.
     ].
 
-    "Modified: 8.1.1997 / 14:54:59 / cg"
+    "Modified: 14.10.1997 / 11:25:42 / cg"
 !
 
 fullScreenHardcopy
@@ -4520,7 +4520,7 @@
 
 !Launcher methodsFor:'private'!
 
-findWindow
+findWindow:title
     "a helper for find & destroy and find & raise operations;
      let user choose a view and return it; return nil on cancel"
 
@@ -4570,7 +4570,7 @@
     box noEnterField.
     box list:nameList.
     box label:(resources string:'view selection').
-    box title:(resources string:'select a view to raise deiconified:') withCRs.
+    box title:(resources string:title) withCRs.
     box action:[:selection |
         |v|
 
@@ -4582,8 +4582,8 @@
     box showAtPointer.
     ^ nil
 
-    "Created: 28.10.1996 / 14:38:41 / cg"
     "Modified: 1.4.1997 / 13:57:56 / cg"
+    "Created: 14.10.1997 / 11:24:42 / cg"
 !
 
 fontBoxForEncoding:encodingMatch
@@ -4830,5 +4830,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.294 1997-09-16 04:10:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.295 1997-10-15 11:16:36 cg Exp $'
 ! !