--- a/Scroller.st Fri Nov 04 16:11:05 2016 +0100
+++ b/Scroller.st Fri Nov 04 16:18:34 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -98,14 +96,14 @@
thumbColor <Color> color of thumb
thumbFrameColor <Color> color of the frame around the thumb
scrollAction <Block> 1 arg block to be evaluated when scrolled
- (arg is position in percent)
+ (arg is position in percent)
orientation <Symbol> #horizontal or #vertical
thumbFrame <Rectangle> frame of thumb in pixels (cached)
thumbLevel <Number> level of thumb if 3d
scrolling <Boolean> true during scroll
pressOffset <Number> temporary (offset into frame when move started)
- synchronousOperation <Boolean> true if synchronous (i.e. dont wait till release
- to perform action)
+ synchronousOperation <Boolean> true if synchronous (i.e. don't wait till release
+ to perform action)
shadowForm <Form> bitmap of knob if any (shadow part)
lightForm <Form> bitmap of knob if any (light part)
inset <Integer> number of pixels to inset thumb from view borders
@@ -115,10 +113,10 @@
thumbHalfShadowColor <Color> used to draw smooth edges
thumbHalfLightColor <Color> used to draw smooth edges
thumbFrameSizeDifference <Integer> number of pixels the thumb is larger than
- it should be (can be negative for mswin-style)
+ it should be (can be negative for mswin-style)
tallyLevel <Integer> if not zero, specifies if tally-marks should
- go into or out of the display (actually only <0/>0 is checked)
- I dont know of a better word for these ...
+ go into or out of the display (actually only <0/>0 is checked)
+ I dont know of a better word for these ...
tallyMarks <Integer> number of tally marks
fixThumbHeight <Boolean> perform 'wrong' height computation a la mswindows
rangeStart <Number> the range of the scroller
@@ -150,9 +148,9 @@
scrollerNTallyMarks <Integer> number of tally-marks to draw on the thumb
scrollerTallyLevel <Integer> the 3D level of any tally marks
scrollerSnapBack <Boolean> win95 behavior: snap back to original position if scrollers view
- is left by mouse (with some distance)
+ is left by mouse (with some distance)
scrollerMiddleButtonJump <Boolean> xterm behavior: middle button has shift-click behavior
- (positions absolute to click position)
+ (positions absolute to click position)
notice: for mswindows style, we force a WRONG thumb-frame
computation, to make the thumb have constant size;
@@ -160,11 +158,11 @@
set scrollerThumbFixHeight to false (in the StyleSheet).
[author:]
- Claus Gittinger
+ Claus Gittinger
[see also:]
- ScrollBar
- ScrollableView HVScrollableView
+ ScrollBar
+ ScrollableView HVScrollableView
"
!
@@ -1188,7 +1186,7 @@
].
tallyMarks > 1 ifTrue:[
- "dont draw other marks if there is not enough space"
+ "don't draw other marks if there is not enough space"
h > (dist * (tallyMarks * 2)) ifTrue:[
self drawEdgedLineFrom:xL y:(yTop - dist) toX:xR y:(yTop - dist) level:tallyLevel lightColor:light shadowColor:shadow.
@@ -1212,7 +1210,7 @@
xLeft := xRight := x.
].
tallyMarks > 1 ifTrue:[
- "dont draw other marks if there is not enough space"
+ "don't draw other marks if there is not enough space"
w > (dist * (tallyMarks * 2)) ifTrue:[
self drawEdgedLineFrom:(xLeft - dist) y:yT toX:(xLeft - dist) y:yB level:tallyLevel lightColor:light shadowColor:shadow.