equal
deleted
inserted
replaced
2756 self st80EditMode ifTrue:[ |
2756 self st80EditMode ifTrue:[ |
2757 "/ ensure that there is no conflict here: st80EditMode will |
2757 "/ ensure that there is no conflict here: st80EditMode will |
2758 "/ not allow a cursor position beyond the end of line, |
2758 "/ not allow a cursor position beyond the end of line, |
2759 "/ so avoid that cursorLine:col: will force us to the beginning of the line |
2759 "/ so avoid that cursorLine:col: will force us to the beginning of the line |
2760 originalLine size < prevTab ifTrue:[ |
2760 originalLine size < prevTab ifTrue:[ |
2761 list at:cursorLine put:ln |
2761 self at:cursorLine put:ln |
2762 ] |
2762 ] |
2763 ]. |
2763 ]. |
2764 self cursorLine:cursorLine col:prevTab. |
2764 self cursorLine:cursorLine col:prevTab. |
2765 wasOn ifTrue:[ self showCursor ]. |
2765 wasOn ifTrue:[ self showCursor ]. |
2766 ^ self |
2766 ^ self |
3447 ! ! |
3447 ! ! |
3448 |
3448 |
3449 !CodeView2 class methodsFor:'documentation'! |
3449 !CodeView2 class methodsFor:'documentation'! |
3450 |
3450 |
3451 version |
3451 version |
3452 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.73 2013-05-29 11:11:30 cg Exp $' |
3452 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.74 2013-05-29 17:26:31 cg Exp $' |
3453 ! |
3453 ! |
3454 |
3454 |
3455 version_CVS |
3455 version_CVS |
3456 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.73 2013-05-29 11:11:30 cg Exp $' |
3456 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.74 2013-05-29 17:26:31 cg Exp $' |
3457 ! |
3457 ! |
3458 |
3458 |
3459 version_SVN |
3459 version_SVN |
3460 ^ '$Id: Tools__CodeView2.st,v 1.73 2013-05-29 11:11:30 cg Exp $' |
3460 ^ '$Id: Tools__CodeView2.st,v 1.74 2013-05-29 17:26:31 cg Exp $' |
3461 ! ! |
3461 ! ! |
3462 |
3462 |
3463 |
3463 |
3464 CodeView2 initialize! |
3464 CodeView2 initialize! |