equal
deleted
inserted
replaced
410 aGCOrStream isStream ifFalse:[ |
410 aGCOrStream isStream ifFalse:[ |
411 ^ super displayOn:aGCOrStream. |
411 ^ super displayOn:aGCOrStream. |
412 ]. |
412 ]. |
413 |
413 |
414 aGCOrStream |
414 aGCOrStream |
415 nextPutAll:self class name; |
415 nextPutAll:self className; |
416 nextPut:$(. |
416 nextPut:$(. |
417 self selectionIndex displayOn:aGCOrStream. |
417 self selectionIndex displayOn:aGCOrStream. |
418 aGCOrStream nextPut:$) |
418 aGCOrStream nextPut:$) |
419 |
419 |
420 "Modified (comment): / 22-02-2017 / 16:52:55 / cg" |
420 "Modified (comment): / 22-02-2017 / 16:52:55 / cg" |
|
421 "Modified: / 28-06-2019 / 09:11:54 / Claus Gittinger" |
421 ! ! |
422 ! ! |
422 |
423 |
423 !SelectionInList methodsFor:'private'! |
424 !SelectionInList methodsFor:'private'! |
424 |
425 |
425 clearSelection |
426 clearSelection |