--- a/ThumbWheel.st Sun May 27 11:38:53 2018 +0200
+++ b/ThumbWheel.st Sun May 27 13:11:05 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1996 by eXept Software AG / Claus Gittinger
All Rights Reserved
@@ -16,9 +18,9 @@
View subclass:#ThumbWheel
instanceVariableNames:'orientation synchronousOperation thumbPosition thumbColor
thumbShadowColor thumbLightColor thumbEnteredColor tallyLevel
- tallyAngle rangeStart rangeEnd rangeStep angleRange
- unitsPerRotation entered press pressPos scrollAction
- endlessRotation startMoveAction endMoveAction keyboardStep'
+ tallyAngle rangeStart rangeEnd rangeStep angleRange entered press
+ pressPos scrollAction endlessRotation startMoveAction
+ endMoveAction keyboardStep'
classVariableNames:'DefaultViewBackground DefaultThumbColor DefaultThumbShadowColor
DefaultThumbLightColor DefaultTallyMarks DefaultTallyLevel
DefaultLevel DefaultBorderWidth'
@@ -535,7 +537,7 @@
"Modified: / 6.6.1998 / 23:30:38 / cg"
! !
-!ThumbWheel methodsFor:'events'!
+!ThumbWheel methodsFor:'event handling'!
buttonMotion:state x:x y:y
|deltaY deltaX d oldPos newPos|
@@ -577,7 +579,9 @@
"Created: / 27.9.1996 / 17:38:57 / cg"
"Modified: / 16.6.1998 / 10:24:40 / cg"
-!
+! !
+
+!ThumbWheel methodsFor:'events'!
buttonPress:button x:x y:y
press := x@y.
@@ -710,9 +714,9 @@
angleRange := 150. "/ 180 degrees are visible
tallyAngle := 10. "/ tally every 10 degrees
- unitsPerRotation := 360.
- "Modified: / 5.2.1998 / 22:20:39 / cg"
+ "Modified: / 05-02-1998 / 22:20:39 / cg"
+ "Modified: / 27-05-2018 / 12:31:00 / Claus Gittinger"
! !
!ThumbWheel methodsFor:'private'!