ThumbWheel.st
changeset 5148 275375188608
parent 4993 f17ce640c51f
child 5167 44864b178d31
--- a/ThumbWheel.st	Thu Jun 30 18:28:53 2016 +0200
+++ b/ThumbWheel.st	Thu Jun 30 18:29:21 2016 +0200
@@ -726,13 +726,13 @@
      the ST/X way of notifying scrolls
     "
     scrollAction notNil ifTrue:[
-	scrollAction value:thumbPosition
+        scrollAction value:thumbPosition
     ].
     "
      the ST-80 way of notifying scrolls
     "
     self sendChangeMessageWith:thumbPosition.
-    self changed:#scrollerPosition.
+    dependents notNil ifTrue:[ self changed:#scrollerPosition ].
 
     "Created: 27.9.1996 / 18:14:02 / cg"
     "Modified: 28.5.1997 / 16:04:16 / cg"