hg/stx-libwidg: RButtC.st@ca75c90df7a9 (annotated)

104 ca75c90df7a9 Initial revision claus parents: diff changeset	1	'From Smalltalk/X, Version:2.10.5 on 14-mar-1995 at 11:07:27 am'!
ca75c90df7a9 Initial revision claus parents: diff changeset	2
ca75c90df7a9 Initial revision claus parents: diff changeset	3	ToggleController subclass:#RadioButtonController
ca75c90df7a9 Initial revision claus parents: diff changeset	4	instanceVariableNames:''
ca75c90df7a9 Initial revision claus parents: diff changeset	5	classVariableNames:''
ca75c90df7a9 Initial revision claus parents: diff changeset	6	poolDictionaries:''
ca75c90df7a9 Initial revision claus parents: diff changeset	7	category:'Interface-Support'
ca75c90df7a9 Initial revision claus parents: diff changeset	8	!
ca75c90df7a9 Initial revision claus parents: diff changeset	9
ca75c90df7a9 Initial revision claus parents: diff changeset	10	!RadioButtonController methodsFor:'event handling'!
ca75c90df7a9 Initial revision claus parents: diff changeset	11
ca75c90df7a9 Initial revision claus parents: diff changeset	12	buttonPress:button x:x y:y
ca75c90df7a9 Initial revision claus parents: diff changeset	13	"radiobuttons change only off-to-on; turning off is done by other
ca75c90df7a9 Initial revision claus parents: diff changeset	14	buttons"
ca75c90df7a9 Initial revision claus parents: diff changeset	15
ca75c90df7a9 Initial revision claus parents: diff changeset	16	pressed ifFalse:[
ca75c90df7a9 Initial revision claus parents: diff changeset	17	view toggle
ca75c90df7a9 Initial revision claus parents: diff changeset	18	]
ca75c90df7a9 Initial revision claus parents: diff changeset	19	! !
ca75c90df7a9 Initial revision claus parents: diff changeset	20

author	claus
	Sat, 18 Mar 1995 06:16:33 +0100
changeset 104	ca75c90df7a9
child 126	40228f4fd66b
permissions	-rw-r--r--