--- a/RadioButton.st	Mon Nov 03 16:32:10 1997 +0100
+++ b/RadioButton.st	Mon Nov 03 18:12:33 1997 +0100
@@ -422,15 +422,19 @@
 !RadioButton methodsFor:'private'!
 
 lampImageHeight
+    buttonStyle isNil ifTrue:[^ super lampImageHeight].
     ^ 15
 
     "Created: / 3.11.1997 / 14:27:27 / cg"
+    "Modified: / 3.11.1997 / 18:10:39 / cg"
 !
 
 lampImageWidth
+    buttonStyle isNil ifTrue:[^ super lampImageWidth].
     ^ 15
 
     "Created: / 3.11.1997 / 14:27:23 / cg"
+    "Modified: / 3.11.1997 / 18:10:50 / cg"
 ! !
 
 !RadioButton methodsFor:'queries'!
@@ -445,5 +449,5 @@
 !RadioButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.15 1997-11-03 15:24:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.16 1997-11-03 17:12:33 cg Exp $'
 ! !