equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1996 by Claus Gittinger / eXept Software AG |
4 COPYRIGHT (c) 1996 by Claus Gittinger / eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
217 aGCOrStream isStream ifFalse:[ |
219 aGCOrStream isStream ifFalse:[ |
218 ^ super displayOn:aGCOrStream. |
220 ^ super displayOn:aGCOrStream. |
219 ]. |
221 ]. |
220 |
222 |
221 aGCOrStream |
223 aGCOrStream |
222 nextPutAll:self class name; |
224 nextPutAll:self className; |
223 nextPutAll:'(sending '. |
225 nextPutAll:'(sending '. |
224 |
226 |
225 selector storeOn:aGCOrStream. |
227 selector storeOn:aGCOrStream. |
226 aGCOrStream nextPutAll:' to '. |
228 aGCOrStream nextPutAll:' to '. |
227 destination printOn:aGCOrStream. |
229 destination printOn:aGCOrStream. |
228 aGCOrStream nextPut:$). |
230 aGCOrStream nextPut:$). |
229 |
231 |
230 "Modified (comment): / 22-02-2017 / 16:48:30 / cg" |
232 "Modified (comment): / 22-02-2017 / 16:48:30 / cg" |
|
233 "Modified: / 28-06-2019 / 09:02:49 / Claus Gittinger" |
231 ! ! |
234 ! ! |
232 |
235 |
233 !InterestConverter methodsFor:'testing'! |
236 !InterestConverter methodsFor:'testing'! |
234 |
237 |
235 isInterestConverter |
238 isInterestConverter |