equal
deleted
inserted
replaced
5357 |
5357 |
5358 currentMax := line size + (nTabs * 7). |
5358 currentMax := line size + (nTabs * 7). |
5359 tmpString := line species new:currentMax. |
5359 tmpString := line species new:currentMax. |
5360 "/ hack/kludge: Text new will not create a wide string. |
5360 "/ hack/kludge: Text new will not create a wide string. |
5361 tmpString isText ifTrue:[ |
5361 tmpString isText ifTrue:[ |
5362 tmpString := tmpString asStringWithBitsPerCharacterAtLeast:tmpString string bitsPerCharacter. |
5362 tmpString := tmpString asStringWithBitsPerCharacterAtLeast:line string bitsPerCharacter. |
5363 ]. |
5363 ]. |
5364 dstIndex := 1. |
5364 dstIndex := 1. |
5365 line do:[:character | |
5365 line do:[:character | |
5366 (character == (Character tab)) ifTrue:[ |
5366 (character == (Character tab)) ifTrue:[ |
5367 nextTab := self nextTabAfter:dstIndex in:tabulatorTable. |
5367 nextTab := self nextTabAfter:dstIndex in:tabulatorTable. |
5400 ^ tmpString |
5400 ^ tmpString |
5401 ]. |
5401 ]. |
5402 ^ tmpString copyTo:dstIndex |
5402 ^ tmpString copyTo:dstIndex |
5403 |
5403 |
5404 "Modified: / 23-02-1996 / 19:11:01 / cg" |
5404 "Modified: / 23-02-1996 / 19:11:01 / cg" |
5405 "Modified (comment): / 26-05-2019 / 13:10:21 / Claus Gittinger" |
5405 "Modified: / 04-06-2019 / 12:30:55 / Claus Gittinger" |
5406 ! |
5406 ! |
5407 |
5407 |
5408 withTabsExpanded:line |
5408 withTabsExpanded:line |
5409 "expand tabs into spaces, return a new line string, |
5409 "expand tabs into spaces, return a new line string, |
5410 or original line, if no tabs are included. |
5410 or original line, if no tabs are included. |