equal
deleted
inserted
replaced
998 colors ~= logo colorMap ifTrue:[ |
998 colors ~= logo colorMap ifTrue:[ |
999 logo release. |
999 logo release. |
1000 logo colorMap:colors. |
1000 logo colorMap:colors. |
1001 ]. |
1001 ]. |
1002 logo photometric:#palette. |
1002 logo photometric:#palette. |
1003 logo := logo onDevice:device. |
1003 logo := logo onDevice:self graphicsDevice. |
1004 |
1004 |
1005 self displayForm:logo x:labelOriginX y:labelOriginY. |
1005 self displayForm:logo x:labelOriginX y:labelOriginY. |
1006 ^ self |
1006 ^ self |
1007 ]. |
1007 ]. |
1008 logo := logo onDevice:device. |
1008 logo := logo onDevice:self graphicsDevice. |
1009 orgX := labelOriginX. |
1009 orgX := labelOriginX. |
1010 orgY := labelOriginY. |
1010 orgY := labelOriginY. |
1011 ] ifTrue:[ |
1011 ] ifTrue:[ |
1012 orgY := height - gc font height // 2 + gc font ascent. |
1012 orgY := height - gc font height // 2 + gc font ascent. |
1013 orgX := width - labelOriginX // 4 - 1. |
1013 orgX := width - labelOriginX // 4 - 1. |
1029 |
1029 |
1030 self paint:botRight. |
1030 self paint:botRight. |
1031 #(1 1 0) with:#(0 1 1) do:[:dX :dY | |
1031 #(1 1 0) with:#(0 1 1) do:[:dX :dY | |
1032 |x y| |
1032 |x y| |
1033 |
1033 |
1034 x := orgX + dX. |
1034 x := orgX + dX. |
1035 y := orgY + dY. |
1035 y := orgY + dY. |
1036 |
1036 |
1037 isString ifTrue:[ |
1037 isString ifTrue:[ |
1038 self displayString:logo x:x y:y. |
1038 self displayString:logo x:x y:y. |
1039 ] ifFalse:[ |
1039 ] ifFalse:[ |
1057 ! ! |
1057 ! ! |
1058 |
1058 |
1059 !ArrowButton class methodsFor:'documentation'! |
1059 !ArrowButton class methodsFor:'documentation'! |
1060 |
1060 |
1061 version |
1061 version |
1062 ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.75 2014-02-18 14:24:25 stefan Exp $' |
1062 ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.76 2014-03-19 10:04:37 stefan Exp $' |
1063 ! |
1063 ! |
1064 |
1064 |
1065 version_CVS |
1065 version_CVS |
1066 ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.75 2014-02-18 14:24:25 stefan Exp $' |
1066 ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.76 2014-03-19 10:04:37 stefan Exp $' |
1067 ! ! |
1067 ! ! |
1068 |
1068 |