changeset 6112 | 14fe1826a075 |
parent 6111 | 8f59c48aa393 |
child 6114 | f1a6c00aa715 |
6111:8f59c48aa393 | 6112:14fe1826a075 |
---|---|
1069 |
1069 |
1070 |printString lines crlf| |
1070 |printString lines crlf| |
1071 |
1071 |
1072 "/ self ~~ Transcript ifTrue:[ ^ self tshow:anObject]. |
1072 "/ self ~~ Transcript ifTrue:[ ^ self tshow:anObject]. |
1073 printString := anObject printString. |
1073 printString := anObject printString. |
1074 printString size == 0 ifTrue:[ |
1074 printString isEmptyOrNil ifTrue:[ |
1075 self cr. |
1075 self cr. |
1076 ^ self. |
1076 ^ self. |
1077 ]. |
1077 ]. |
1078 |
1078 |
1079 self == Transcript ifTrue:[ |
1079 self == Transcript ifTrue:[ |
1117 ^ self. |
1117 ^ self. |
1118 ]. |
1118 ]. |
1119 self addLine:printString |
1119 self addLine:printString |
1120 |
1120 |
1121 "Modified: / 24-03-2012 / 20:00:08 / cg" |
1121 "Modified: / 24-03-2012 / 20:00:08 / cg" |
1122 "Modified: / 27-02-2017 / 15:22:47 / stefan" |
|
1122 ! |
1123 ! |
1123 |
1124 |
1124 space |
1125 space |
1125 self show:' ' |
1126 self show:' ' |
1126 ! |
1127 ! |