equal
deleted
inserted
replaced
680 |
680 |
681 verticalScrollStep |
681 verticalScrollStep |
682 "return the amount by which to step-scroll vertically" |
682 "return the amount by which to step-scroll vertically" |
683 |
683 |
684 verticalScrollStep notNil ifTrue:[ ^ verticalScrollStep]. |
684 verticalScrollStep notNil ifTrue:[ ^ verticalScrollStep]. |
685 ^ (self graphicsDevice verticalPixelPerMillimeter * 20) asInteger |
685 ^ (device verticalPixelPerMillimeter * 20) asInteger |
686 "/ ^ (self height // 3) |
686 "/ ^ (self height // 3) |
687 ! ! |
687 ! ! |
688 |
688 |
689 !ViewScroller class methodsFor:'documentation'! |
689 !ViewScroller class methodsFor:'documentation'! |
690 |
690 |