equal
deleted
inserted
replaced
2591 |
2591 |
2592 |wasOn nextTab| |
2592 |wasOn nextTab| |
2593 |
2593 |
2594 wasOn := self hideCursor. |
2594 wasOn := self hideCursor. |
2595 nextTab := self nextTabAfter:cursorCol. |
2595 nextTab := self nextTabAfter:cursorCol. |
|
2596 "/ fallback to mod-8 tabs if beyond tab-list. |
|
2597 nextTab <= cursorCol ifTrue:[ |
|
2598 nextTab := cursorCol + 1. |
|
2599 nextTab := nextTab + (8 - (nextTab \\ 8)). |
|
2600 ]. |
2596 self insertStringAtCursor:(String new:(nextTab - cursorCol)). |
2601 self insertStringAtCursor:(String new:(nextTab - cursorCol)). |
2597 self makeCursorVisibleAndShowCursor:wasOn. |
2602 self makeCursorVisibleAndShowCursor:wasOn. |
2598 ! |
2603 ! |
2599 |
2604 |
2600 mergeLine:lineNr |
2605 mergeLine:lineNr |
6062 ! ! |
6067 ! ! |
6063 |
6068 |
6064 !EditTextView class methodsFor:'documentation'! |
6069 !EditTextView class methodsFor:'documentation'! |
6065 |
6070 |
6066 version |
6071 version |
6067 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.369 2005-02-25 13:32:15 cg Exp $' |
6072 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.370 2005-04-07 18:04:20 cg Exp $' |
6068 ! ! |
6073 ! ! |