--- a/AbstractLauncherApplication.st	Fri Mar 02 19:57:21 2012 +0100
+++ b/AbstractLauncherApplication.st	Sat Mar 03 05:23:22 2012 +0100
@@ -632,7 +632,7 @@
     "a helper for find & destroy and find & raise operations;
      let user choose a view and return it; return nil on cancel"
 
-    |knownTopViews nameList box|
+    |knownTopViews nameList box genLabel|
 
     knownTopViews := IdentitySet new.
     Screen allScreens do:[:aScreen |
@@ -660,17 +660,23 @@
         ]
     ].
 
+    genLabel := [:v | |app appName|
+                    app := v application.
+                    appName := (app isNil 
+                                    ifTrue:[''] 
+                                    ifFalse:[app class nameWithoutPrefix,': ']).
+                    appName , '"' , (v label ? 'aView') , '"'
+                ].
+
     knownTopViews := knownTopViews asOrderedCollection.
-    knownTopViews sort:[:v1 :v2 | |l1 l2|
-                                l1 := v1 label ? 'aView'.
-                                l2 := v2 label ? 'aView'.
-                                l1 < l2
+    knownTopViews sort:[:v1 :v2 |
+                                (genLabel value:v1) < (genLabel value:v2).
                        ].
 
     nameList := knownTopViews collect:[:v |
                                         |isDead wg p l|
 
-                                        l := v label ? 'aView'.
+                                        l := genLabel value:v.
                                         v device == Display ifFalse:[
                                             l := l , ' [' , (v device displayName ? '?') , ']'
                                         ].
@@ -702,6 +708,8 @@
     box extent:400@300.
     box open.
     ^ nil
+
+    "Modified: / 03-03-2012 / 05:15:11 / cg"
 !
 
 openApplication: classOrClassName
@@ -6897,11 +6905,11 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.409 2012-02-14 13:21:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.410 2012-03-03 04:23:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.409 2012-02-14 13:21:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.410 2012-03-03 04:23:22 cg Exp $'
 !
 
 version_SVN