equal
deleted
inserted
replaced
2849 ]. |
2849 ]. |
2850 ]. |
2850 ]. |
2851 |
2851 |
2852 len := self widthOfLine:lineNr. |
2852 len := self widthOfLine:lineNr. |
2853 len > width ifTrue:[ |
2853 len > width ifTrue:[ |
2854 ^ (self listAt:lineNr) string copy |
2854 ^ (self listAt:lineNr) asString copy |
2855 replaceAllForWhich:#isSeparator with:(Character space) |
2855 replaceAllForWhich:#isSeparator with:(Character space) |
2856 "/ collect:[:ch | ch isSeparator ifTrue:[$ ] ifFalse:[ch]] |
2856 "/ collect:[:ch | ch isSeparator ifTrue:[$ ] ifFalse:[ch]] |
2857 ]. |
2857 ]. |
2858 ^ nil |
2858 ^ nil |
2859 |
2859 |