equal
deleted
inserted
replaced
1847 special := #space |
1847 special := #space |
1848 ] ifFalse:[(self == Character lf) ifTrue:[ |
1848 ] ifFalse:[(self == Character lf) ifTrue:[ |
1849 special := #lf. |
1849 special := #lf. |
1850 ] ifFalse:[(self == Character return) ifTrue:[ |
1850 ] ifFalse:[(self == Character return) ifTrue:[ |
1851 special := #return. |
1851 special := #return. |
|
1852 ] ifFalse:[(self == Character backspace) ifTrue:[ |
|
1853 special := #backspace. |
1852 ] ifFalse:[(self == Character tab) ifTrue:[ |
1854 ] ifFalse:[(self == Character tab) ifTrue:[ |
1853 special := #tab. |
1855 special := #tab. |
1854 ] ifFalse:[(self == Character esc) ifTrue:[ |
1856 ] ifFalse:[(self == Character esc) ifTrue:[ |
1855 special := #esc. |
1857 special := #esc. |
1856 ] ifFalse:[(self == Character bell) ifTrue:[ |
1858 ] ifFalse:[(self == Character bell) ifTrue:[ |
1857 special := #bell. |
1859 special := #bell. |
1858 ]]]]]]. |
1860 ]]]]]]]. |
1859 |
1861 |
1860 special notNil ifTrue:[ |
1862 special notNil ifTrue:[ |
1861 aStream nextPutAll:'(Character '; nextPutAll:special; nextPut:$). |
1863 aStream nextPutAll:'(Character '; nextPutAll:special; nextPut:$). |
1862 ^ self |
1864 ^ self |
1863 ]. |
1865 ]. |