equal
deleted
inserted
replaced
555 Here, the linelength is enforced" |
555 Here, the linelength is enforced" |
556 |
556 |
557 col > numberOfColumns ifTrue:[ |
557 col > numberOfColumns ifTrue:[ |
558 autoWrapFlag ifTrue:[ |
558 autoWrapFlag ifTrue:[ |
559 self endEntry. |
559 self endEntry. |
560 self cursorLine:(self cursorLine + 1) col:(col-numberOfColumns). |
560 self cursorLine:(self cursorLine + 1) col:1 " (col-numberOfColumns) ". |
561 ^ 1. |
561 ^ 1. |
562 ]. |
562 ]. |
563 ]. |
563 ]. |
564 ^ col min:numberOfColumns |
564 ^ col min:numberOfColumns |
565 |
565 |
1150 inputTranslateCRToNL := false. |
1150 inputTranslateCRToNL := false. |
1151 inputTranslateBackspaceToDelete := false. |
1151 inputTranslateBackspaceToDelete := false. |
1152 autoWrapFlag := true. |
1152 autoWrapFlag := true. |
1153 noColors := false. |
1153 noColors := false. |
1154 "/ cursorType := #block. |
1154 "/ cursorType := #block. |
|
1155 "/ cursorTypeNoFocus := #frame. |
|
1156 |
1155 state := 0. |
1157 state := 0. |
1156 |
1158 |
1157 numberOfColumns := 80. |
1159 numberOfColumns := 80. |
1158 numberOfLines := 24. |
1160 numberOfLines := 24. |
1159 rangeStartLine := 1. |
1161 rangeStartLine := 1. |
1838 ]. |
1840 ]. |
1839 |
1841 |
1840 stringWithOutControl notNil ifTrue:[ |
1842 stringWithOutControl notNil ifTrue:[ |
1841 (cursorCol + outstandingLine size + stringWithOutControl size) >= numberOfColumns ifTrue:[ |
1843 (cursorCol + outstandingLine size + stringWithOutControl size) >= numberOfColumns ifTrue:[ |
1842 "/ characterwise, for correct wrap handling at line end |
1844 "/ characterwise, for correct wrap handling at line end |
1843 self endEntry. |
|
1844 stringWithOutControl do:[:eachCharacter | |
1845 stringWithOutControl do:[:eachCharacter | |
1845 self nextPut:eachCharacter. |
1846 self nextPut:eachCharacter. |
|
1847 self endEntry. |
|
1848 cursorCol >= numberOfColumns ifTrue:[ |
|
1849 self validateCursorCol:cursorCol inLine:cursorLine. |
|
1850 ]. |
1846 ]. |
1851 ]. |
1847 crnlFollows ifTrue:[ |
1852 crnlFollows ifTrue:[ |
1848 self nextPut:Character return. |
1853 self nextPut:Character return. |
1849 self nextPut:Character nl. |
1854 self nextPut:Character nl. |
1850 ]. |
1855 ]. |
2237 ! ! |
2242 ! ! |
2238 |
2243 |
2239 !TerminalView class methodsFor:'documentation'! |
2244 !TerminalView class methodsFor:'documentation'! |
2240 |
2245 |
2241 version |
2246 version |
2242 ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.167 2013-11-25 18:44:15 cg Exp $' |
2247 ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.168 2013-11-28 14:30:05 cg Exp $' |
2243 ! |
2248 ! |
2244 |
2249 |
2245 version_CVS |
2250 version_CVS |
2246 ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.167 2013-11-25 18:44:15 cg Exp $' |
2251 ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.168 2013-11-28 14:30:05 cg Exp $' |
2247 ! ! |
2252 ! ! |
2248 |
2253 |
2249 |
2254 |
2250 TerminalView initialize! |
2255 TerminalView initialize! |