equal
deleted
inserted
replaced
1610 margin := level abs |
1610 margin := level abs |
1611 |
1611 |
1612 "Modified: 8.2.1996 / 15:29:23 / cg" |
1612 "Modified: 8.2.1996 / 15:29:23 / cg" |
1613 ! ! |
1613 ! ! |
1614 |
1614 |
1615 !Button methodsFor:'focus change'! |
1615 !Button methodsFor:'focus handling'! |
1616 |
1616 |
1617 showFocus:explicit |
1617 showFocus:explicit |
|
1618 "the button got the keyboard focus |
|
1619 (either explicit, via tabbing; or implicit, by pointer movement)" |
|
1620 |
1618 focusLogo notNil ifTrue:[ |
1621 focusLogo notNil ifTrue:[ |
1619 controller enabled ifTrue:[ |
1622 controller enabled ifTrue:[ |
1620 logo := focusLogo. |
1623 logo := focusLogo. |
1621 ^ self invalidate. |
1624 ^ self invalidate. |
1622 "/ ^ self redraw |
1625 "/ ^ self redraw |
1630 "Created: / 17.9.1995 / 19:58:50 / claus" |
1633 "Created: / 17.9.1995 / 19:58:50 / claus" |
1631 "Modified: / 19.11.1998 / 13:02:48 / cg" |
1634 "Modified: / 19.11.1998 / 13:02:48 / cg" |
1632 ! |
1635 ! |
1633 |
1636 |
1634 showNoFocus:explicit |
1637 showNoFocus:explicit |
|
1638 "the button lost the keyboard focus |
|
1639 (either explicit, via tabbing; or implicit, by pointer movement)" |
|
1640 |
1635 focusLogo notNil ifTrue:[ |
1641 focusLogo notNil ifTrue:[ |
1636 disabledLogo notNil ifTrue:[ |
1642 disabledLogo notNil ifTrue:[ |
1637 controller enabled ifTrue:[ |
1643 controller enabled ifTrue:[ |
1638 logo := passiveLogo. |
1644 logo := passiveLogo. |
1639 ] ifFalse:[ |
1645 ] ifFalse:[ |
2234 ! ! |
2240 ! ! |
2235 |
2241 |
2236 !Button class methodsFor:'documentation'! |
2242 !Button class methodsFor:'documentation'! |
2237 |
2243 |
2238 version |
2244 version |
2239 ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.104 1999-03-10 22:31:29 cg Exp $' |
2245 ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.105 1999-03-19 20:09:51 cg Exp $' |
2240 ! ! |
2246 ! ! |