--- a/ScrollableView.st	Thu Apr 19 12:24:32 2018 +0200
+++ b/ScrollableView.st	Sat Apr 21 16:58:41 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -1455,6 +1457,12 @@
     ]    
 !
 
+repairDamage
+    scrolledView repairDamage.
+    hScrollBar notNil ifTrue:[ hScrollBar repairDamage ].
+    vScrollBar notNil ifTrue:[ vScrollBar repairDamage ].
+!
+
 requestAutoAccept
     "request to accept: this is invoked when a dialog closes via accept or cancel.
      This forces my value to be accepted into my model.