--- a/ThumbWheel.st	Tue Jan 24 23:22:31 2017 +0100
+++ b/ThumbWheel.st	Tue Jan 24 23:24:38 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1996 by eXept Software AG / Claus Gittinger
 	      All Rights Reserved
@@ -456,16 +454,16 @@
     x0 := 4.
     x1 := width - 4.
 
-    self paint:viewBackground. "/ View defaultViewBackgroundColor.
-    self fillRectangleX:x y:y width:w height:h.
+    gc paint:viewBackground. "/ View defaultViewBackgroundColor.
+    gc fillRectangleX:x y:y width:w height:h.
 
     thumbColor := View defaultViewBackgroundColor.
     thumbColor ~= viewBackground ifTrue:[
-        self paint:thumbColor.
+        gc paint:thumbColor.
         orientation == #vertical ifTrue:[
-            self fillRectangleX:3 y:y0 width:width-6 height:height-8.
+            gc fillRectangleX:3 y:y0 width:width-6 height:height-8.
         ] ifFalse:[
-            self fillRectangleX:x0 y:3 width:width-8 height:height-6.
+            gc fillRectangleX:x0 y:3 width:width-8 height:height-6.
         ]
     ].
 
@@ -482,55 +480,55 @@
         yT := yT min:y1.
 
         (pA > (angleRange * 7 // 8)) ifTrue:[
-            self paint:shadowColor
+            gc paint:shadowColor
         ] ifFalse:[
-            self paint:self blackColor.
+            gc paint:self blackColor.
         ].
 
         orientation == #vertical ifTrue:[
-            self displayLineFromX:3 y:yT toX:width-4 y:yT.
+            gc displayLineFromX:3 y:yT toX:width-4 y:yT.
         ] ifFalse:[
-            self displayLineFromX:xT y:3 toX:xT y:height-4.
+            gc displayLineFromX:xT y:3 toX:xT y:height-4.
         ].
 
         (pA between:(angleRange * 4 // 8) and:(angleRange * 7 // 8)) ifTrue:[
-            self paint:self whiteColor.
+            gc paint:self whiteColor.
             orientation == #vertical ifTrue:[
-                self displayLineFromX:3 y:yT-1 toX:width-5 y:yT-1.
+                gc displayLineFromX:3 y:yT-1 toX:width-5 y:yT-1.
             ] ifFalse:[
-                self displayLineFromX:xT-1 y:3 toX:xT-1 y:height-5.
+                gc displayLineFromX:xT-1 y:3 toX:xT-1 y:height-5.
             ].
 
             (pA between:(angleRange * 4 // 8) and:(angleRange * 6 // 8)) ifTrue:[
-                self paint:self whiteColor.
+                gc paint:self whiteColor.
                 orientation == #vertical ifTrue:[
-                    self displayLineFromX:3 y:yT-2 toX:width-5 y:yT-2.
+                    gc displayLineFromX:3 y:yT-2 toX:width-5 y:yT-2.
                 ] ifFalse:[
-                    self displayLineFromX:xT-2 y:3 toX:xT-2 y:height-5.
+                    gc displayLineFromX:xT-2 y:3 toX:xT-2 y:height-5.
                 ]
             ]
         ]
     ].
 
-    self paint:self whiteColor. "/lightColor.
+    gc paint:self whiteColor. "/lightColor.
     orientation == #vertical ifTrue:[
-        self displayLineFromX:2 y:y0 toX:2 y:y1.
+        gc displayLineFromX:2 y:y0 toX:2 y:y1.
     ] ifFalse:[
-        self displayLineFromX:x0 y:2 toX:x1 y:2.
+        gc displayLineFromX:x0 y:2 toX:x1 y:2.
     ].
 
-    self paint:shadowColor.
+    gc paint:shadowColor.
     orientation == #vertical ifTrue:[
-        self displayLineFromX:width-4 y:y0 toX:width-4 y:y1.
+        gc displayLineFromX:width-4 y:y0 toX:width-4 y:y1.
     ] ifFalse:[
-        self displayLineFromX:x0 y:height-4 toX:x1 y:height-4.
+        gc displayLineFromX:x0 y:height-4 toX:x1 y:height-4.
     ].
-    self displayLineFromX:width-4 y:y0-1 toX:width-4 y:y1+1.
+    gc displayLineFromX:width-4 y:y0-1 toX:width-4 y:y1+1.
 
     orientation == #vertical ifTrue:[
-        self displayLineFromX:width-4 y:y0 toX:width-4 y:y1.
+        gc displayLineFromX:width-4 y:y0 toX:width-4 y:y1.
     ] ifFalse:[
-        self displayLineFromX:x0 y:height-4 toX:x1 y:height-4.
+        gc displayLineFromX:x0 y:height-4 toX:x1 y:height-4.
     ].
 
     "Created: / 27.9.1996 / 16:04:49 / cg"