--- a/RadioButtonGroup.st	Wed Jun 05 16:59:46 1996 +0200
+++ b/RadioButtonGroup.st	Wed Jun 05 17:07:37 1996 +0200
@@ -190,7 +190,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/RadioButtonGroup.st,v 1.22 1996-05-18 15:41:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/RadioButtonGroup.st,v 1.23 1996-06-05 15:07:37 cg Exp $'
 ! !
 
 !RadioButtonGroup methodsFor:'accessing'!
@@ -269,32 +269,33 @@
     |newValue|
 
     self keysAndValuesDo:[:index :aComponent |
-       ((aToggle == aComponent) or:[aToggle isSubViewOf:aComponent]) ifTrue:[
-	    value ifTrue:[newValue := index]   
-	] ifFalse:[
+       ((aToggle == aComponent) or:[aToggle isComponentOf:aComponent]) ifTrue:[
+            value ifTrue:[newValue := index]   
+        ] ifFalse:[
 "/            aComponent isOn ifTrue:[
 "/               aComponent turnOff
 "/            ]
-	]
+        ]
     ].
 "/    aToggle turnOn.
     valueChannel value:newValue.
     self changed:#queryFrom:
 
     "Modified: 21.9.1995 / 13:42:06 / claus"
+    "Modified: 5.6.1996 / 14:25:51 / cg"
 !
 
 queryFrom:aToggle
     "a query from a toggle, if its the selected one"
 
     self keysAndValuesDo:[:index :aComponent |
-       ((aToggle == aComponent) or:[aToggle isSubViewOf:aComponent]) ifTrue:[
-	    ^ valueChannel value == index
+       ((aToggle == aComponent) or:[aToggle isComponentOf:aComponent]) ifTrue:[
+            ^ valueChannel value == index
        ]
     ].
     ^ false
 
-    "Modified: 14.11.1995 / 21:21:27 / cg"
+    "Modified: 5.6.1996 / 14:25:53 / cg"
 !
 
 update:something with:someArgument from:changedButton