--- a/RadioButtonGroup.st	Sat Dec 11 02:41:07 1993 +0100
+++ b/RadioButtonGroup.st	Sat Dec 11 02:51:34 1993 +0100
@@ -10,11 +10,11 @@
  hereby transferred.
 "
 
-VariableArray subclass:#RadioButtonGroup
-	 instanceVariableNames:'buttonGroup'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Views-Support'
+OrderedCollection subclass:#RadioButtonGroup
+         instanceVariableNames:''
+         classVariableNames:''
+         poolDictionaries:''
+         category:'Views-Support'
 !
 
 RadioButtonGroup comment:'
@@ -25,7 +25,7 @@
 RadioButtonGroups controll the interaction between RadioButtons
 turning off other button(s) when one of the group is pressed.
 
-$Header: /cvs/stx/stx/libwidg/RadioButtonGroup.st,v 1.3 1993-10-13 02:48:51 claus Exp $
+$Header: /cvs/stx/stx/libwidg/RadioButtonGroup.st,v 1.4 1993-12-11 01:48:03 claus Exp $
 written nov 91 by claus
 '!
 
@@ -50,4 +50,3 @@
     ]
 
 ! !
-