--- a/RadioButtonGroup.st	Fri May 19 18:41:01 1995 +0200
+++ b/RadioButtonGroup.st	Tue Jun 06 06:16:07 1995 +0200
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/RadioButtonGroup.st,v 1.10 1995-04-11 16:24:11 claus Exp $
+$Header: /cvs/stx/stx/libwidg/RadioButtonGroup.st,v 1.11 1995-06-06 04:14:48 claus Exp $
 '!
 
 !RadioButtonGroup class methodsFor:'documentation '!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/RadioButtonGroup.st,v 1.10 1995-04-11 16:24:11 claus Exp $
+$Header: /cvs/stx/stx/libwidg/RadioButtonGroup.st,v 1.11 1995-06-06 04:14:48 claus Exp $
 "
 !
 
@@ -78,7 +78,7 @@
 	g add:b.
 	b := Toggle label:'three' in:panel.
 	g add:b.
-	top extent:(panel preferedExtent).
+	top extent:(panel preferredExtent).
 	top open.
 
     example (using RadioButtons for 'one-on behavior'):
@@ -94,7 +94,7 @@
 	g add:b.
 	b := RadioButton label:'three' in:panel.
 	g add:b.
-	top extent:(panel preferedExtent).
+	top extent:(panel preferredExtent).
 	top open.
 
     example (same, with button 'two' initially on):
@@ -111,7 +111,7 @@
 	b turnOn.
 	b := RadioButton label:'three' in:panel.
 	g add:b.
-	top extent:(panel preferedExtent).
+	top extent:(panel preferredExtent).
 	top open.
 "
 ! !
@@ -120,7 +120,7 @@
 
 add:aRadioButton
     super add:aRadioButton.
-    aRadioButton model:self; change:#elementChanged:from:.
+    aRadioButton model:self; changeMessage:#elementChanged:from:.
 "/    aRadioButton addDependent:self.
     (aRadioButton respondsTo:#group) ifTrue:[aRadioButton group:self]
 ! !