improved scrollbar delay behavior -- jvr

b5ad35e6 · Just van Rossum · f1e40cc4 · b5ad35e6
Commit b5ad35e6 authored Apr 21, 1999 by Just van Rossum
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 2 deletions

Mac/Tools/IDE/Wcontrols.py Mac/Tools/IDE/Wcontrols.py +5 -2

No files found.
--- a/Mac/Tools/IDE/Wcontrols.py
+++ b/Mac/Tools/IDE/Wcontrols.py
@@ -305,8 +305,11 @@ class Scrollbar(ControlWidget):
 			self._control.HiliteControl(part)
 			self._hit(part)
 			oldpart = part
-			import time
-			time.sleep(0.3)
+			# slight delay before scrolling at top speed...
+			now = Evt.TickCount()
+			while Evt.StillDown():
+				if (Evt.TickCount() - now) > 18: # 0.3 seconds
+					break
 			while Evt.StillDown():
 				part = self._control.TestControl(point)
 				if part == oldpart: