--- 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.