equal
deleted
inserted
replaced
3584 self cursorLine:cursorLine col:prevTab. |
3584 self cursorLine:cursorLine col:prevTab. |
3585 wasOn ifTrue:[ self showCursor ]. |
3585 wasOn ifTrue:[ self showCursor ]. |
3586 ^ self |
3586 ^ self |
3587 ]. |
3587 ]. |
3588 ] ifFalse:[ |
3588 ] ifFalse:[ |
3589 (ln copyFrom:prevTab+1 to:cursorCol-1) isBlank ifTrue:[ |
3589 "/ cg: this is ugly behavior; deleting multiple chars at the beginning |
3590 self deleteFromLine:cursorLine col:prevTab toLine:cursorLine col:cursorCol-1. |
3590 "/ is annoying. |
3591 self cursorLine:cursorLine col:prevTab. |
3591 "/ therefore, only do it, if there are only blanks after the cursor |
3592 wasOn ifTrue:[ self showCursor ]. |
3592 "/ (ln copyFrom:prevTab+1 to:((cursorCol-1) min:ln size)) isBlank ifTrue:[ |
3593 ^ self. |
3593 "/ self deleteFromLine:cursorLine col:prevTab toLine:cursorLine col:cursorCol-1. |
3594 ] |
3594 "/ self cursorLine:cursorLine col:prevTab. |
|
3595 "/ wasOn ifTrue:[ self showCursor ]. |
|
3596 "/ ^ self. |
|
3597 "/ ] |
3595 ] |
3598 ] |
3596 ]. |
3599 ]. |
3597 ]. |
3600 ]. |
3598 |
3601 |
3599 "/ (autoIndent |
3602 "/ (autoIndent |