--- a/Scroller.st	Thu Jul 01 21:44:12 2021 +0100
+++ b/Scroller.st	Fri Jul 09 06:26:45 2021 +0100
@@ -1,5 +1,6 @@
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
+ COPYRIGHT (c) 2021 LabWare
 	      All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -48,6 +49,7 @@
 copyright
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
+ COPYRIGHT (c) 2021 LabWare
 	      All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -1437,7 +1439,7 @@
     shown ifTrue:[
         oldClip := self clippingBoundsOrNil.
         self clippingBounds:(Rectangle left:x top:y width:w height:h).
-        gc clearDeviceRectangleX:x y:y width:w height:h.
+        self clearDeviceRectangleX:x y:y width:w height:h.
 
         styleSheet name == #winVista ifTrue:[
             gc paint:(Color greyByte:16rE3).
@@ -1477,7 +1479,8 @@
         self clippingBounds:oldClip
     ]
 
-    "Modified: / 4.5.1999 / 18:51:53 / cg"
+    "Modified: / 04-05-1999 / 18:51:53 / cg"
+    "Modified: / 09-07-2021 / 06:24:20 / Jan Vrany <jan.vrany@labware.com>"
 ! !
 
 !Scroller methodsFor:'event handling'!
@@ -2820,5 +2823,10 @@
 
 version_CVS
     ^ '$Header$'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !