changeset 23659 | 2a7cd86b3931 |
parent 23658 | 99ec1c09e132 |
child 23661 | d1f55e676ed5 |
23658:99ec1c09e132 | 23659:2a7cd86b3931 |
---|---|
8139 |s| |
8139 |s| |
8140 |
8140 |
8141 s := WriteStream on:(String new:50). |
8141 s := WriteStream on:(String new:50). |
8142 self storeOn:s. |
8142 self storeOn:s. |
8143 ^ s contents |
8143 ^ s contents |
8144 ! |
|
8145 |
|
8146 transcribe |
|
8147 "print the receiver on the Transcript (without CR)" |
|
8148 |
|
8149 self printOn:(Processor activeProcess transcript) |
|
8150 |
|
8151 "Created: / 03-02-2019 / 13:01:29 / Claus Gittinger" |
|
8152 ! |
|
8153 |
|
8154 transcribeCR |
|
8155 "print the receiver on the Transcript (with CR)" |
|
8156 |
|
8157 |out| |
|
8158 |
|
8159 out := Processor activeProcess transcript. |
|
8160 self printOn:out. |
|
8161 out cr. |
|
8162 |
|
8163 " |
|
8164 1234 transcribe |
|
8165 1234 transcribeCR |
|
8166 " |
|
8167 |
|
8168 "Created: / 03-02-2019 / 13:02:46 / Claus Gittinger" |
|
8144 ! |
8169 ! |
8145 |
8170 |
8146 withErrorStreamDo:aBlock |
8171 withErrorStreamDo:aBlock |
8147 "{ Pragma: +optSpace }" |
8172 "{ Pragma: +optSpace }" |
8148 |
8173 |