--- a/AbstractLauncherApplication.st	Wed Sep 26 14:44:28 2012 +0200
+++ b/AbstractLauncherApplication.st	Wed Sep 26 14:58:16 2012 +0200
@@ -616,7 +616,7 @@
 
 
     genLabel := [:v | 
-                    |app appName busyOrNot sensor pending|
+                    |app appName busyOrNot sensor pending process|
 
                     app := v application.
                     appName := (app isNil 
@@ -626,7 +626,12 @@
                     (sensor := v windowGroup sensor) notNil ifTrue:[
                         (pending := sensor pendingEvent) notNil ifTrue:[
                             (Timestamp now - pending timeStamp) > 1 ifTrue:[
-                                busyOrNot := ' [busy]' allBold colorizeAllWith:Color red
+                                ((process := v windowGroup process) notNil and:[ process isDebugged]) ifTrue:[
+                                    busyOrNot := ' [debug]'
+                                ] ifFalse:[
+                                    busyOrNot := ' [busy]'
+                                ].
+                                busyOrNot := busyOrNot allBold colorizeAllWith:Color red
                             ]
                         ]
                     ].
@@ -6970,11 +6975,11 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.417 2012-09-26 12:17:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.418 2012-09-26 12:58:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.417 2012-09-26 12:17:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.418 2012-09-26 12:58:16 cg Exp $'
 !
 
 version_SVN