Hi frank
when I tried to save a project, Kommiter is invoked and I got
calibrateScrollbar
"Set the scrollbar parameters to match the texts."
| maxY range delta innerH |
self fullBounds.
maxY := self srcMorph extent y max: self dstMorph extent y.
innerH := self dstMorph innerBounds height.
delta := 91. "self dstMorph textMorph defaultLineHeight"
range := maxY - innerH max: 0.
range = 0
ifTrue: [
^ self scrollbarMorph
scrollDelta: 0.02 pageDelta: 0.2;
interval: 1.0;
setValue: 0.0 ].
self scrollbarMorph
scrollDelta: (delta / range) asFloat pageDelta: ((innerH -
delta) / range) asFloat;
interval: (innerH / maxY) asFloat;
setValue:
((self srcMorph scroller offset y max: self dstMorph
scroller offset y) / range min: 1.0) asFloat
^^^^^^^
where srcMoirph is a RubScrolledTextMorph
Stef
