equal
deleted
inserted
replaced
5199 |
5199 |
5200 selectionStartLine isNil ifTrue:[^ nil]. |
5200 selectionStartLine isNil ifTrue:[^ nil]. |
5201 sel := self textFromLine:selectionStartLine col:(selectionStartCol max:1) toLine:selectionEndLine col:selectionEndCol. |
5201 sel := self textFromLine:selectionStartLine col:(selectionStartCol max:1) toLine:selectionEndLine col:selectionEndCol. |
5202 sel notEmptyOrNil ifTrue:[ |
5202 sel notEmptyOrNil ifTrue:[ |
5203 "/ this is rubbish; we are now always using unicode internally |
5203 "/ this is rubbish; we are now always using unicode internally |
5204 "/ any many more conversions would be needed at many places... |
5204 "/ and many more conversions would be needed at many places... |
5205 (gc characterEncoding ? #'iso10646-1' "eg unicode") ~~ #'iso10646-1' ifTrue:[ |
5205 gc characterEncoding ~~ #'iso10646-1' ifTrue:[ |
5206 sel := sel encodeFrom:gc characterEncoding into:#'iso10646-1' |
5206 sel := sel encodeFrom:gc characterEncoding into:#'iso10646-1' |
5207 ]. |
5207 ]. |
5208 ]. |
5208 ]. |
5209 ^ sel |
5209 ^ sel |
5210 |
5210 |
5211 "Modified (comment): / 25-01-2012 / 00:29:09 / cg" |
5211 "Modified (comment): / 25-01-2012 / 00:29:09 / cg" |
|
5212 "Modified: / 19-01-2018 / 12:22:31 / stefan" |
5212 ! |
5213 ! |
5213 |
5214 |
5214 selectionAsString |
5215 selectionAsString |
5215 "return the selection as a String (i.e. without emphasis)" |
5216 "return the selection as a String (i.e. without emphasis)" |
5216 |
5217 |