equal
deleted
inserted
replaced
812 |
812 |
813 "Modified (format): / 07-03-2012 / 20:08:02 / cg" |
813 "Modified (format): / 07-03-2012 / 20:08:02 / cg" |
814 "Modified: / 08-10-2014 / 22:56:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
814 "Modified: / 08-10-2014 / 22:56:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
815 ! |
815 ! |
816 |
816 |
|
817 displayLabel:aLabel h:lH on:aGC x:newX y:y h:h isHighlightedAsSelected:isHighlightedAsSelected |
|
818 | cx icon app mode | |
|
819 |
|
820 cx := x := newX. |
|
821 app := self application. |
|
822 mode := app mode. |
|
823 mode ~~ #display ifTrue:[ |
|
824 mode == #select ifTrue:[ |
|
825 icon := self checked |
|
826 ifTrue:[app class checkedIcon] |
|
827 ifFalse:[app class uncheckedIcon]. |
|
828 ] ifFalse:[ |
|
829 icon := self checked |
|
830 ifTrue:[app class checkedIconDisabled] |
|
831 ifFalse:[app class uncheckedIconDisabled]. |
|
832 ]. |
|
833 icon displayOn: aGC x: cx y: y + (h / 2) - (icon height / 2). |
|
834 cx := cx + 22."experimental value - this looks good" |
|
835 ]. |
|
836 |
|
837 super displayLabel:aLabel h:lH on:aGC x:cx y:y h:h isHighlightedAsSelected:isHighlightedAsSelected |
|
838 |
|
839 "Modified (format): / 07-03-2012 / 20:08:02 / cg" |
|
840 "Modified: / 08-10-2014 / 22:56:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
841 ! |
|
842 |
817 displayOn:aGCOrStream |
843 displayOn:aGCOrStream |
818 |
844 |
819 "/ what a kludge - Dolphin and Squeak mean: printOn: a stream; |
845 "/ what a kludge - Dolphin and Squeak mean: printOn: a stream; |
820 "/ ST/X (and some old ST80's) mean: draw-yourself on a GC. |
846 "/ ST/X (and some old ST80's) mean: draw-yourself on a GC. |
821 (aGCOrStream isStream) ifFalse:[ |
847 (aGCOrStream isStream) ifFalse:[ |
829 ! ! |
855 ! ! |
830 |
856 |
831 !LintRuleList class methodsFor:'documentation'! |
857 !LintRuleList class methodsFor:'documentation'! |
832 |
858 |
833 version |
859 version |
834 ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.27 2014-12-03 18:04:31 cg Exp $' |
860 ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.28 2015-02-01 13:17:29 cg Exp $' |
835 ! |
861 ! |
836 |
862 |
837 version_CVS |
863 version_CVS |
838 ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.27 2014-12-03 18:04:31 cg Exp $' |
864 ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.28 2015-02-01 13:17:29 cg Exp $' |
839 ! |
865 ! |
840 |
866 |
841 version_SVN |
867 version_SVN |
842 ^ '$Id: Tools__LintRuleList.st,v 1.27 2014-12-03 18:04:31 cg Exp $' |
868 ^ '$Id: Tools__LintRuleList.st,v 1.28 2015-02-01 13:17:29 cg Exp $' |
843 ! ! |
869 ! ! |
844 |
870 |