--- a/Scroller.st Mon Jan 07 18:26:17 2002 +0100
+++ b/Scroller.st Mon Jan 21 11:04:45 2002 +0100
@@ -1328,10 +1328,6 @@
"Modified: / 14.4.1998 / 18:37:34 / cg"
!
-buttonMultiPress:button x:x y:y
- ^ self buttonPress:button x:x y:y
-!
-
buttonPress:button x:x y:y
"button was pressed - if above thumb, page up; if below thumb, page down;
otherwise start scrolling.
@@ -2539,5 +2535,5 @@
!Scroller class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.158 2001-11-09 16:16:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.159 2002-01-21 10:04:45 cg Exp $'
! !