equal
deleted
inserted
replaced
2639 before the patch will be pushed up" |
2639 before the patch will be pushed up" |
2640 |
2640 |
2641 |soCol wasOn lineNrAboveCursor ln prevTab| |
2641 |soCol wasOn lineNrAboveCursor ln prevTab| |
2642 |
2642 |
2643 wasOn := self hideCursor. |
2643 wasOn := self hideCursor. |
2644 autoIndent ifTrue:[ |
2644 "JV@2012-01-06: Do not play with autoindent iff cursor is at the very beggining of the line" |
|
2645 (autoIndent and:[cursorCol ~~ 1]) ifTrue:[ |
2645 prevTab := (self prevTabBefore:cursorCol) max:1. |
2646 prevTab := (self prevTabBefore:cursorCol) max:1. |
2646 "JV@2011-12-10: The list can be shorter that cursorLine, |
2647 "JV@2011-12-10: The list can be shorter that cursorLine, |
2647 trailing because empty lines are not physically in the list." |
2648 trailing because empty lines are not physically in the list." |
2648 (list size >= cursorLine) ifTrue:[ |
2649 (list size >= cursorLine) ifTrue:[ |
2649 ln := (list at:cursorLine) ? ''. |
2650 ln := (list at:cursorLine) ? ''. |
2710 ] |
2711 ] |
2711 ]. |
2712 ]. |
2712 wasOn ifTrue:[ self showCursor ] |
2713 wasOn ifTrue:[ self showCursor ] |
2713 |
2714 |
2714 "Modified: / 16-01-1998 / 22:33:04 / cg" |
2715 "Modified: / 16-01-1998 / 22:33:04 / cg" |
2715 "Modified (comment): / 10-12-2011 / 13:43:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2716 "Modified: / 06-01-2012 / 12:42:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2716 ! |
2717 ! |
2717 |
2718 |
2718 getNewOriginText |
2719 getNewOriginText |
2719 |i size pole pom text helperText| |
2720 |i size pole pom text helperText| |
2720 |
2721 |
3237 ! ! |
3238 ! ! |
3238 |
3239 |
3239 !CodeView2 class methodsFor:'documentation'! |
3240 !CodeView2 class methodsFor:'documentation'! |
3240 |
3241 |
3241 version |
3242 version |
3242 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.45 2011-12-20 15:22:01 vrany Exp $' |
3243 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.46 2012-01-06 15:26:14 vrany Exp $' |
3243 ! |
3244 ! |
3244 |
3245 |
3245 version_CVS |
3246 version_CVS |
3246 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.45 2011-12-20 15:22:01 vrany Exp $' |
3247 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.46 2012-01-06 15:26:14 vrany Exp $' |
3247 ! |
3248 ! |
3248 |
3249 |
3249 version_SVN |
3250 version_SVN |
3250 ^ '§Id: Tools__CodeView2.st 7797 2011-06-28 07:45:06Z vranyj1 §' |
3251 ^ '§Id: Tools__CodeView2.st 7797 2011-06-28 07:45:06Z vranyj1 §' |
3251 ! ! |
3252 ! ! |