equal
deleted
inserted
replaced
721 |
721 |
722 x := hSpace + margin. |
722 x := hSpace + margin. |
723 y := (height - imgTop height) // 2. |
723 y := (height - imgTop height) // 2. |
724 |
724 |
725 threeD ifFalse:[ |
725 threeD ifFalse:[ |
726 self paint:fgColor. |
726 imgTop notNil ifTrue:[ |
727 self displayForm:imgTop x:x y:y. |
727 self paint:fgColor. |
728 isActive ifTrue:[ |
728 self displayForm:imgTop x:x y:y. |
|
729 ]. |
|
730 (isActive and:[imgOn notNil]) ifTrue:[ |
729 self paint:(lampColor ? activeFgColor). |
731 self paint:(lampColor ? activeFgColor). |
730 self displayForm:imgOn x:x y:y |
732 self displayForm:imgOn x:x y:y |
731 ] |
733 ] |
732 ] ifTrue:[ |
734 ] ifTrue:[ |
733 lvl := isActive ifTrue:[buttonOnLevel] |
735 lvl := isActive ifTrue:[buttonOnLevel] |
882 ! ! |
884 ! ! |
883 |
885 |
884 !RadioButton class methodsFor:'documentation'! |
886 !RadioButton class methodsFor:'documentation'! |
885 |
887 |
886 version |
888 version |
887 ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.42 2008-08-12 21:01:27 stefan Exp $' |
889 ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.43 2008-10-13 07:18:21 stefan Exp $' |
888 ! ! |
890 ! ! |