--- a/RadioButton.st	Mon Sep 28 13:50:27 1998 +0200
+++ b/RadioButton.st	Mon Sep 28 18:18:41 1998 +0200
@@ -535,6 +535,24 @@
 
     "Created: / 3.11.1997 / 12:16:30 / cg"
     "Modified: / 3.11.1997 / 18:28:43 / cg"
+!
+
+drawWin95FocusFrame
+    "redefined to draw the focus frame around the string-only"
+
+    |x y|
+
+    x := labelOriginX. " margin + 1. "
+    y := labelOriginY. " margin + 1. "
+    self
+        displayDottedRectangleX:x
+        y:y
+        width:(width - x - margin - 1)
+        height:(height - y - margin - 1).
+
+    "Created: / 17.9.1998 / 14:16:46 / cg"
+    "Modified: / 18.9.1998 / 16:56:24 / cg"
+
 ! !
 
 !RadioButton methodsFor:'initialization'!
@@ -626,5 +644,5 @@
 !RadioButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.24 1998-07-30 19:35:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.25 1998-09-28 16:18:41 cg Exp $'
 ! !