equal
deleted
inserted
replaced
2 |
2 |
3 ToggleController subclass:#RadioButtonController |
3 ToggleController subclass:#RadioButtonController |
4 instanceVariableNames:'' |
4 instanceVariableNames:'' |
5 classVariableNames:'' |
5 classVariableNames:'' |
6 poolDictionaries:'' |
6 poolDictionaries:'' |
7 category:'Interface-Support' |
7 category:'Interface-Support-Controllers' |
8 ! |
8 ! |
9 |
9 |
10 !RadioButtonController methodsFor:'event handling'! |
10 !RadioButtonController methodsFor:'event handling'! |
11 |
11 |
12 buttonPress:button x:x y:y |
12 buttonPress:button x:x y:y |
13 "radiobuttons change only off-to-on; turning off is done by other |
13 "radiobuttons change only off-to-on; turning off is done by other |
14 buttons" |
14 buttons" |
15 |
15 |
16 pressed ifFalse:[ |
16 pressed ifFalse:[ |
17 view toggle |
17 view toggle |
18 ] |
18 ] |
19 ! ! |
19 ! ! |
20 |
20 |