equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger |
4 COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger |
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 |
859 aGCOrStream isStream ifFalse:[ |
861 aGCOrStream isStream ifFalse:[ |
860 ^ super displayOn:aGCOrStream. |
862 ^ super displayOn:aGCOrStream. |
861 ]. |
863 ]. |
862 |
864 |
863 aGCOrStream |
865 aGCOrStream |
864 nextPutAll:self class name; |
866 nextPutAll:self className; |
865 nextPut:$(. |
867 nextPut:$(. |
866 self printOn:aGCOrStream. |
868 self printOn:aGCOrStream. |
867 aGCOrStream nextPut:$) |
869 aGCOrStream nextPut:$) |
868 |
870 |
869 "Modified (comment): / 22-02-2017 / 16:48:13 / cg" |
871 "Modified (comment): / 22-02-2017 / 16:48:13 / cg" |
|
872 "Modified: / 28-06-2019 / 09:22:22 / Claus Gittinger" |
870 ! |
873 ! |
871 |
874 |
872 printOn:aStream |
875 printOn:aStream |
873 "sometimes used by the SelectionInListView to get the name" |
876 "sometimes used by the SelectionInListView to get the name" |
874 |
877 |