# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1465378878 -7200
# Node ID da50428c37637887beda8f5e37a3695fdc254b18
# Parent  cc9feb9317331eab9439cee79e38f2320228be15
#FEATURE by cg
class: UIObjectView
changed: #recursiveRepair:startIn:

diff -r cc9feb931733 -r da50428c3763 UIObjectView.st
--- 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.