hg/stx-libwidg: RButtC.st@40228f4fd66b (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:''
126 40228f4fd66b . claus parents: 104 diff changeset	7	category:'Interface-Support-Controllers'
104 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:[
126 40228f4fd66b . claus parents: 104 diff changeset	17	view toggle
104 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
	Wed, 10 May 1995 04:30:46 +0200
changeset 126	40228f4fd66b
parent 104	ca75c90df7a9
child 128	06a050529335
permissions	-rw-r--r--