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

ToggleController subclass:#RadioButtonController
	 instanceVariableNames:''
	 classVariableNames:''
	 poolDictionaries:''
	 category:'Interface-Support-Controllers'
!

!RadioButtonController methodsFor:'event handling'!

buttonPress:button x:x y:y
    "radiobuttons change only off-to-on; turning off is done by other
     buttons"

    pressed ifFalse:[
	view toggle
    ]
! !