equal
deleted
inserted
replaced
631 |
631 |
632 |knownTopViews genLabel| |
632 |knownTopViews genLabel| |
633 |
633 |
634 |
634 |
635 genLabel := [:v | |
635 genLabel := [:v | |
636 |app appName busyOrNot sensor pending process| |
636 |app appName busyOrNot iconifiedOrNot |
|
637 sensor pending process| |
637 |
638 |
638 app := v application. |
639 app := v application. |
639 appName := (app isNil |
640 appName := (app isNil |
640 ifTrue:[''] |
641 ifTrue:[''] |
641 ifFalse:[app class nameWithoutPrefix,': ']). |
642 ifFalse:[app class nameWithoutPrefix,': ']). |
650 ]. |
651 ]. |
651 busyOrNot := busyOrNot allBold colorizeAllWith:Color red |
652 busyOrNot := busyOrNot allBold colorizeAllWith:Color red |
652 ] |
653 ] |
653 ] |
654 ] |
654 ]. |
655 ]. |
655 appName,'"',(v label ? 'aView'),'"',busyOrNot |
656 iconifiedOrNot := ''. |
|
657 v topView isCollapsed ifTrue:[ |
|
658 iconifiedOrNot := ' (collapsed)' colorizeAllWith:Color blue. |
|
659 ]. |
|
660 appName,'"',(v label ? 'aView'),'"',busyOrNot,iconifiedOrNot |
656 ]. |
661 ]. |
657 |
662 |
658 knownTopViews := IdentitySet new. |
663 knownTopViews := IdentitySet new. |
659 Screen allScreens do:[:aScreen | |
664 Screen allScreens do:[:aScreen | |
660 aScreen knownViews do:[:aView | |
665 aScreen knownViews do:[:aView | |
7005 ! ! |
7010 ! ! |
7006 |
7011 |
7007 !AbstractLauncherApplication class methodsFor:'documentation'! |
7012 !AbstractLauncherApplication class methodsFor:'documentation'! |
7008 |
7013 |
7009 version |
7014 version |
7010 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.423 2012-11-26 11:24:30 cg Exp $' |
7015 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.424 2013-03-21 20:10:37 cg Exp $' |
7011 ! |
7016 ! |
7012 |
7017 |
7013 version_CVS |
7018 version_CVS |
7014 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.423 2012-11-26 11:24:30 cg Exp $' |
7019 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.424 2013-03-21 20:10:37 cg Exp $' |
7015 ! |
7020 ! |
7016 |
7021 |
7017 version_SVN |
7022 version_SVN |
7018 ^ '§Id: AbstractLauncherApplication.st 7796 2011-06-23 16:01:32Z vranyj1 §' |
7023 ^ '§Id: AbstractLauncherApplication.st 7796 2011-06-23 16:01:32Z vranyj1 §' |
7019 ! ! |
7024 ! ! |
|
7025 |