equal
deleted
inserted
replaced
812 logo := logo on:device. |
812 logo := logo on:device. |
813 |
813 |
814 self displayForm:logo x:labelOriginX y:labelOriginY. |
814 self displayForm:logo x:labelOriginX y:labelOriginY. |
815 ^ self |
815 ^ self |
816 ]. |
816 ]. |
817 logo := logo on:device. |
817 logo := logo onDevice:device. |
818 orgX := labelOriginX. |
818 orgX := labelOriginX. |
819 orgY := labelOriginY. |
819 orgY := labelOriginY. |
820 ] ifTrue:[ |
820 ] ifTrue:[ |
821 orgY := height - font height // 2 + font ascent. |
821 orgY := height - font height // 2 + font ascent. |
822 orgX := width - labelOriginX // 4 - 1. |
822 orgX := width - labelOriginX // 4 - 1. |
866 ! ! |
866 ! ! |
867 |
867 |
868 !ArrowButton class methodsFor:'documentation'! |
868 !ArrowButton class methodsFor:'documentation'! |
869 |
869 |
870 version |
870 version |
871 ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.46 1997-10-28 20:01:27 cg Exp $' |
871 ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.47 1998-01-27 18:06:10 tz Exp $' |
872 ! ! |
872 ! ! |