--- a/RadioButton.st	Mon Nov 03 18:12:33 1997 +0100
+++ b/RadioButton.st	Mon Nov 03 18:19:15 1997 +0100
@@ -398,6 +398,7 @@
         ^ self
     ].
 
+    adjust := #left.
     showLamp := true.
     buttonOnLevel := DefaultActiveLevel.
     buttonOffLevel := DefaultPassiveLevel.
@@ -416,11 +417,20 @@
         ]
     ]
 
-    "Modified: / 3.11.1997 / 14:38:11 / cg"
+    "Modified: / 3.11.1997 / 18:13:48 / cg"
 ! !
 
 !RadioButton methodsFor:'private'!
 
+computeLabelOrigin
+    super computeLabelOrigin.
+    buttonStyle notNil ifTrue:[
+        labelOriginX := hSpace + 15 + hSpace
+    ]
+
+    "Modified: / 3.11.1997 / 18:17:58 / cg"
+!
+
 lampImageHeight
     buttonStyle isNil ifTrue:[^ super lampImageHeight].
     ^ 15
@@ -449,5 +459,5 @@
 !RadioButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.16 1997-11-03 17:12:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.17 1997-11-03 17:19:15 cg Exp $'
 ! !