equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
2 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 Permission is hereby granted, free of charge, to any person |
5 Permission is hereby granted, free of charge, to any person |
3898 |soCol wasOn lineNrAboveCursor ln originalLine prevTab| |
3896 |soCol wasOn lineNrAboveCursor ln originalLine prevTab| |
3899 |
3897 |
3900 wasOn := self hideCursor. |
3898 wasOn := self hideCursor. |
3901 |
3899 |
3902 "JV@2012-01-06: Do not play with autoindent iff cursor is at the very beginning of the line" |
3900 "JV@2012-01-06: Do not play with autoindent iff cursor is at the very beginning of the line" |
3903 (autoIndent |
3901 (self autoIndent |
3904 and:[cursorCol ~~ 1 |
3902 and:[cursorCol ~~ 1 |
3905 and:[ (tabPositions includes:cursorCol) |
3903 and:[ (tabPositions includes:cursorCol) |
3906 ]]) ifTrue:[ |
3904 ]]) ifTrue:[ |
3907 prevTab := (self prevTabBefore:cursorCol) max:1. |
3905 prevTab := (self prevTabBefore:cursorCol) max:1. |
3908 "JV@2011-12-10: The list can be shorter than cursorLine, |
3906 "JV@2011-12-10: The list can be shorter than cursorLine, |
3942 "/ ] |
3940 "/ ] |
3943 ] |
3941 ] |
3944 ]. |
3942 ]. |
3945 ]. |
3943 ]. |
3946 |
3944 |
3947 "/ (autoIndent |
3945 "/ (self autoIndent |
3948 "/ and:[cursorCol ~~ 1 |
3946 "/ and:[cursorCol ~~ 1 |
3949 "/ and:[cursorLine <= (list size)]]) |
3947 "/ and:[cursorLine <= (list size)]]) |
3950 "/ ifTrue:[ |
3948 "/ ifTrue:[ |
3951 "/ soCol := (self leftIndentForLine:cursorLine) + 1. |
3949 "/ soCol := (self leftIndentForLine:cursorLine) + 1. |
3952 "/ |
3950 "/ |
3995 ]. |
3993 ]. |
3996 wasOn ifTrue:[ self showCursor ] |
3994 wasOn ifTrue:[ self showCursor ] |
3997 |
3995 |
3998 "Modified: / 16-01-1998 / 22:33:04 / cg" |
3996 "Modified: / 16-01-1998 / 22:33:04 / cg" |
3999 "Modified: / 06-01-2012 / 12:42:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3997 "Modified: / 06-01-2012 / 12:42:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
4000 "Modified: / 24-03-2019 / 09:58:48 / Claus Gittinger" |
3998 "Modified (comment): / 26-06-2019 / 23:18:36 / Claus Gittinger" |
4001 ! |
3999 ! |
4002 |
4000 |
4003 getNewOriginText |
4001 getNewOriginText |
4004 |i size pole pom text helperText| |
4002 |i size pole pom text helperText| |
4005 |
4003 |