hg/stx-libtool2: changeset 3310:da50428c3763

author	Claus Gittinger <cg@exept.de>
	Wed, 08 Jun 2016 11:41:18 +0200
changeset 3310	da50428c3763
parent 3309	cc9feb931733
child 3311	079f10e677f7

#FEATURE by cg class: UIObjectView changed: #recursiveRepair:startIn:

--- a/UIObjectView.st	Tue Jun 07 12:14:55 2016 +0200
+++ b/UIObjectView.st	Wed Jun 08 11:41:18 2016 +0200
@@ -1724,9 +1724,10 @@
             bwWidth ~~ 0 ifTrue:[
                 color isNil ifTrue:[
                     "/ must force redraw of border
-                    color := aView borderColor.
-                    aView borderColor:(Color colorId:1).  "/ kludge to force a redraw
-                    aView borderColor:color.
+                    "/ color := aView borderColor.
+                    "/ aView borderColor:(Color colorId:1).  "/ kludge to force a redraw
+                    "/ aView borderColor:color.
+                    aView invalidate.
                 ].
                 w := w - bwWidth.
                 h := h - bwWidth.