| 1 | "{ Encoding: utf8 }" !
|
|---|
| 2 | !Slider methodsFor:'forced scroll'!
|
|---|
| 3 |
|
|---|
| 4 | pageDown
|
|---|
| 5 | | step |
|
|---|
| 6 |
|
|---|
| 7 | step := rangeStep notNil ifTrue:[ rangeStep ] ifFalse:[ (rangeEnd - rangeStart) / 20 "5%" ].
|
|---|
| 8 | self thumbOrigin: thumbOrigin + step.
|
|---|
| 9 | self tellOthers.
|
|---|
| 10 |
|
|---|
| 11 | "Modified: / 08-01-2017 / 20:57:50 / jv"
|
|---|
| 12 | ! !
|
|---|
| 13 |
|
|---|
| 14 | !Slider methodsFor:'forced scroll'!
|
|---|
| 15 |
|
|---|
| 16 | pageUp
|
|---|
| 17 | | step |
|
|---|
| 18 |
|
|---|
| 19 | step := rangeStep notNil ifTrue:[ rangeStep ] ifFalse:[ (rangeEnd - rangeStart) / 20 "5%" ].
|
|---|
| 20 | self thumbOrigin: thumbOrigin - step.
|
|---|
| 21 | self tellOthers.
|
|---|
| 22 |
|
|---|
| 23 | "Modified: / 08-01-2017 / 20:58:11 / jv"
|
|---|
| 24 | ! !
|
|---|
| 25 |
|
|---|
