1 'From Smalltalk/X, Version:2.10.5 on 14-mar-1995 at 11:07:27 am'!

     2 

     3 ToggleController subclass:#RadioButtonController

     4 	 instanceVariableNames:''

     5 	 classVariableNames:''

     6 	 poolDictionaries:''

     7 	 category:'Interface-Support'

     8 !

     9 

    10 !RadioButtonController methodsFor:'event handling'!

    11 

    12 buttonPress:button x:x y:y

    13     "radiobuttons change only off-to-on; turning off is done by other

    14      buttons"

    15 

    16     pressed ifFalse:[

    17         view toggle

    18     ]

    19 ! !

    20