Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 29 Apr 1999 22:07:39 +0200
changeset 1892 110a6e458b5a
parent 1891 35657ac662fc
child 1893 bce50b364466
checkin from browser
RButton.st file | annotate | diff | comparison | revisions
RadioButton.st file | annotate | diff | comparison | revisions 
--- a/RButton.st	Thu Apr 29 22:06:16 1999 +0200
+++ b/RButton.st	Thu Apr 29 22:07:39 1999 +0200
@@ -583,19 +583,19 @@
 drawWin95FocusFrame
     "redefined to draw the focus frame around the string-only"
 
-    |x y|
+    |x y m1|
 
     x := labelOriginX. " margin + 1. "
     y := labelOriginY. " margin + 1. "
+    m1 := margin + 1.
     self
         displayDottedRectangleX:x
         y:y
-        width:(width - x - margin - 1)
-        height:(height - y - margin - 1).
+        width:(width - x - m1)
+        height:(height - y - m1).
 
     "Created: / 17.9.1998 / 14:16:46 / cg"
-    "Modified: / 18.9.1998 / 16:56:24 / cg"
-
+    "Modified: / 29.4.1999 / 21:51:00 / cg"
 ! !
 
 !RadioButton methodsFor:'initialization'!
@@ -696,5 +696,5 @@
 !RadioButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/RButton.st,v 1.28 1999-04-28 12:22:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/RButton.st,v 1.29 1999-04-29 20:07:39 cg Exp $'
 ! !
--- a/RadioButton.st	Thu Apr 29 22:06:16 1999 +0200
+++ b/RadioButton.st	Thu Apr 29 22:07:39 1999 +0200
@@ -583,19 +583,19 @@
 drawWin95FocusFrame
     "redefined to draw the focus frame around the string-only"
 
-    |x y|
+    |x y m1|
 
     x := labelOriginX. " margin + 1. "
     y := labelOriginY. " margin + 1. "
+    m1 := margin + 1.
     self
         displayDottedRectangleX:x
         y:y
-        width:(width - x - margin - 1)
-        height:(height - y - margin - 1).
+        width:(width - x - m1)
+        height:(height - y - m1).
 
     "Created: / 17.9.1998 / 14:16:46 / cg"
-    "Modified: / 18.9.1998 / 16:56:24 / cg"
-
+    "Modified: / 29.4.1999 / 21:51:00 / cg"
 ! !
 
 !RadioButton methodsFor:'initialization'!
@@ -696,5 +696,5 @@
 !RadioButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.28 1999-04-28 12:22:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.29 1999-04-29 20:07:39 cg Exp $'
 ! !
hg/stx-libwidg