--- a/RadioButton.st	Mon Feb 06 01:52:01 1995 +0100
+++ b/RadioButton.st	Mon Feb 06 01:53:30 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.5 1994-10-10 03:02:48 claus Exp $
+$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.6 1995-02-06 00:53:09 claus Exp $
 '!
 
 !RadioButton class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.5 1994-10-10 03:02:48 claus Exp $
+$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.6 1995-02-06 00:53:09 claus Exp $
 "
 !
 
@@ -67,9 +67,9 @@
 XXtoggle
     "in addition to toggling, notify RadioButtonGroup"
 
-    enabled ifTrue:[
+    controller enabled ifTrue:[
 	super toggle.
-	pressed ifTrue:[
+	controller pressed ifTrue:[
 	    self changed
 	]
     ]
@@ -81,7 +81,7 @@
     "radiobuttons change only off-to-on; turning off is done by other
      buttons"
 
-    pressed ifFalse:[
+    controller pressed ifFalse:[
 	self toggle
     ]
 ! !