equal
deleted
inserted
replaced
2815 |
2815 |
2816 lineNr := self lineAtY:aPoint y. |
2816 lineNr := self lineAtY:aPoint y. |
2817 lineNr notNil ifTrue:[ |
2817 lineNr notNil ifTrue:[ |
2818 len := self widthOfLine:lineNr. |
2818 len := self widthOfLine:lineNr. |
2819 len > width ifTrue:[ |
2819 len > width ifTrue:[ |
2820 ^ (self listAt:lineNr) collect:[:ch | ch isSeparator ifTrue:[$ ] ifFalse:[ch]] |
2820 ^ (self listAt:lineNr) string collect:[:ch | ch isSeparator ifTrue:[$ ] ifFalse:[ch]] |
2821 ]. |
2821 ]. |
2822 ]. |
2822 ]. |
2823 ^ nil |
2823 ^ nil |
2824 ! ! |
2824 ! ! |
2825 |
2825 |