changeset 4720 | f34e80b9a88f |
parent 4674 | 3b25441744b4 |
4719:71309d05a86a | 4720:f34e80b9a88f |
---|---|
1251 s nextPut:$). |
1251 s nextPut:$). |
1252 ^ self. |
1252 ^ self. |
1253 ]. |
1253 ]. |
1254 |
1254 |
1255 (sel == #displayString) ifTrue:[ |
1255 (sel == #displayString) ifTrue:[ |
1256 s := CharacterWriteStream on:''. |
1256 s := CharacterWriteStream new. |
1257 self displayOn:s. |
1257 self displayOn:s. |
1258 ^ s contents |
1258 ^ s contents |
1259 ]. |
1259 ]. |
1260 |
1260 |
1261 sel == #basicInspect ifTrue:[ |
1261 sel == #basicInspect ifTrue:[ |