614 |
614 |
615 |knownTopViews genLabel| |
615 |knownTopViews genLabel| |
616 |
616 |
617 |
617 |
618 genLabel := [:v | |
618 genLabel := [:v | |
619 |app appName busyOrNot sensor pending| |
619 |app appName busyOrNot sensor pending process| |
620 |
620 |
621 app := v application. |
621 app := v application. |
622 appName := (app isNil |
622 appName := (app isNil |
623 ifTrue:[''] |
623 ifTrue:[''] |
624 ifFalse:[app class nameWithoutPrefix,': ']). |
624 ifFalse:[app class nameWithoutPrefix,': ']). |
625 busyOrNot := ''. |
625 busyOrNot := ''. |
626 (sensor := v windowGroup sensor) notNil ifTrue:[ |
626 (sensor := v windowGroup sensor) notNil ifTrue:[ |
627 (pending := sensor pendingEvent) notNil ifTrue:[ |
627 (pending := sensor pendingEvent) notNil ifTrue:[ |
628 (Timestamp now - pending timeStamp) > 1 ifTrue:[ |
628 (Timestamp now - pending timeStamp) > 1 ifTrue:[ |
629 busyOrNot := ' [busy]' allBold colorizeAllWith:Color red |
629 ((process := v windowGroup process) notNil and:[ process isDebugged]) ifTrue:[ |
|
630 busyOrNot := ' [debug]' |
|
631 ] ifFalse:[ |
|
632 busyOrNot := ' [busy]' |
|
633 ]. |
|
634 busyOrNot := busyOrNot allBold colorizeAllWith:Color red |
630 ] |
635 ] |
631 ] |
636 ] |
632 ]. |
637 ]. |
633 appName,'"',(v label ? 'aView'),'"',busyOrNot |
638 appName,'"',(v label ? 'aView'),'"',busyOrNot |
634 ]. |
639 ]. |
6968 ! ! |
6973 ! ! |
6969 |
6974 |
6970 !AbstractLauncherApplication class methodsFor:'documentation'! |
6975 !AbstractLauncherApplication class methodsFor:'documentation'! |
6971 |
6976 |
6972 version |
6977 version |
6973 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.417 2012-09-26 12:17:39 cg Exp $' |
6978 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.418 2012-09-26 12:58:16 cg Exp $' |
6974 ! |
6979 ! |
6975 |
6980 |
6976 version_CVS |
6981 version_CVS |
6977 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.417 2012-09-26 12:17:39 cg Exp $' |
6982 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.418 2012-09-26 12:58:16 cg Exp $' |
6978 ! |
6983 ! |
6979 |
6984 |
6980 version_SVN |
6985 version_SVN |
6981 ^ '§Id: AbstractLauncherApplication.st 7796 2011-06-23 16:01:32Z vranyj1 §' |
6986 ^ '§Id: AbstractLauncherApplication.st 7796 2011-06-23 16:01:32Z vranyj1 §' |
6982 ! ! |
6987 ! ! |