comment/format in: #recursiveRepair:startIn:
authorClaus Gittinger <cg@exept.de>
Fri, 23 Oct 2009 17:52:28 +0200
changeset 2688 98d48fa622b4
parent 2687 66343568f2b2
child 2689 5d46aa174dc9
comment/format in: #recursiveRepair:startIn:
UIObjectView.st
--- a/UIObjectView.st	Fri Oct 23 17:23:23 2009 +0200
+++ b/UIObjectView.st	Fri Oct 23 17:52:28 2009 +0200
@@ -1709,7 +1709,7 @@
                 color isNil ifTrue:[
                     "/ must force redraw of border
                     color := aView borderColor.
-                    aView borderColor:(Color colorId:1).
+                    aView borderColor:(Color colorId:1).  "/ kludge to force a redraw
                     aView borderColor:color.
                 ].
                 w := w - bwWidth.
@@ -3225,4 +3225,8 @@
 
 version
     ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
 ! !