ThumbWheel.st
changeset 5773 96d70d18af18
parent 5429 d722dd969628
child 5774 23a70abef424
--- 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'!