--- a/AbstractLauncherApplication.st	Thu Mar 21 19:58:38 2013 +0100
+++ b/AbstractLauncherApplication.st	Thu Mar 21 21:10:37 2013 +0100
@@ -633,7 +633,8 @@
 
 
     genLabel := [:v | 
-                    |app appName busyOrNot sensor pending process|
+                    |app appName busyOrNot iconifiedOrNot 
+                     sensor pending process|
 
                     app := v application.
                     appName := (app isNil 
@@ -652,7 +653,11 @@
                             ]
                         ]
                     ].
-                    appName,'"',(v label ? 'aView'),'"',busyOrNot
+                    iconifiedOrNot := ''.
+                    v topView isCollapsed ifTrue:[
+                        iconifiedOrNot := ' (collapsed)' colorizeAllWith:Color blue.
+                    ].
+                    appName,'"',(v label ? 'aView'),'"',busyOrNot,iconifiedOrNot
                 ].
 
     knownTopViews := IdentitySet new.
@@ -7007,13 +7012,14 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.423 2012-11-26 11:24:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.424 2013-03-21 20:10:37 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.423 2012-11-26 11:24:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.424 2013-03-21 20:10:37 cg Exp $'
 !
 
 version_SVN
     ^ '§Id: AbstractLauncherApplication.st 7796 2011-06-23 16:01:32Z vranyj1 §'
 ! !
+