equal
deleted
inserted
replaced
2322 "scroll to make the selection line visible |
2322 "scroll to make the selection line visible |
2323 dont scroll, if any in the selection isVisible |
2323 dont scroll, if any in the selection isVisible |
2324 " |
2324 " |
2325 |firstLine| |
2325 |firstLine| |
2326 |
2326 |
2327 shown ifFalse:[^ self]. |
|
2328 |
|
2329 modelChangedDuringButtonPress notNil ifTrue:[^ self]. |
2327 modelChangedDuringButtonPress notNil ifTrue:[^ self]. |
2330 |
2328 |
2331 firstLine := self firstInSelection. |
2329 firstLine := self firstInSelection. |
2332 (firstLine isNil or:[firstLine == 0]) ifTrue:[^ self]. |
2330 (firstLine isNil or:[firstLine == 0]) ifTrue:[^ self]. |
2333 |
2331 |
2334 self selectionDo:[:aLnNr| |
2332 self selectionDo:[:aLnNr| |
2335 (self lineIsFullyVisible:aLnNr) ifTrue:[^ self]. |
2333 (self lineIsFullyVisible:aLnNr) ifTrue:[^ self]. |
2336 ]. |
2334 ]. |
2337 self makeLineVisible:(self firstInSelection). |
2335 self makeLineVisible:(self firstInSelection). |
2338 ! |
2336 ! |
2339 |
2337 |
2340 numberOfSelections |
2338 numberOfSelections |
2632 ! ! |
2630 ! ! |
2633 |
2631 |
2634 !SelectionInListModelView class methodsFor:'documentation'! |
2632 !SelectionInListModelView class methodsFor:'documentation'! |
2635 |
2633 |
2636 version |
2634 version |
2637 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.149 2010-02-01 12:20:11 cg Exp $' |
2635 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.150 2010-03-18 10:35:04 fm Exp $' |
2638 ! |
2636 ! |
2639 |
2637 |
2640 version_CVS |
2638 version_CVS |
2641 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.149 2010-02-01 12:20:11 cg Exp $' |
2639 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.150 2010-03-18 10:35:04 fm Exp $' |
2642 ! ! |
2640 ! ! |