equal
deleted
inserted
replaced
68 "Created: / 21-08-2015 / 19:23:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
68 "Created: / 21-08-2015 / 19:23:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
69 ! ! |
69 ! ! |
70 |
70 |
71 !TSimpleType methodsFor:'printing & storing'! |
71 !TSimpleType methodsFor:'printing & storing'! |
72 |
72 |
73 printOn:aStream |
|
74 aStream nextPut: $<; space. |
|
75 self printWithoutAnglesOn:aStream. |
|
76 aStream space; nextPut: $>. |
|
77 |
|
78 "Created: / 25-08-2015 / 23:22:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
79 ! |
|
80 |
|
81 printWithoutAnglesOn:aStream |
73 printWithoutAnglesOn:aStream |
82 aStream nextPutAll: name |
74 aStream nextPutAll: name |
83 |
75 |
84 "Modified: / 21-08-2015 / 17:08:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
76 "Modified: / 21-08-2015 / 17:08:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
85 ! ! |
77 ! ! |