#TUNING by cg
class: ThumbWheel
changed: #redrawX:y:width:height:
draw by sending messages to gc instead of self.
(new GC structure)
--- 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"