equal
deleted
inserted
replaced
396 "/ old ST80 means: draw-yourself on a GC. |
396 "/ old ST80 means: draw-yourself on a GC. |
397 (aGCOrStream isStream) ifFalse:[ |
397 (aGCOrStream isStream) ifFalse:[ |
398 ^ super displayOn:aGCOrStream |
398 ^ super displayOn:aGCOrStream |
399 ]. |
399 ]. |
400 aGCOrStream |
400 aGCOrStream |
401 nextPutAll:self class name; |
401 nextPutAll:self className; |
402 nextPut:$(. |
402 nextPut:$(. |
403 count printOn:aGCOrStream. |
403 count printOn:aGCOrStream. |
404 aGCOrStream nextPutAll:' name: '. |
404 aGCOrStream nextPutAll:' name: '. |
405 (name ? 'unnamed') printOn:aGCOrStream. |
405 (name ? 'unnamed') printOn:aGCOrStream. |
406 aGCOrStream nextPut:$). |
406 aGCOrStream nextPut:$). |
407 |
407 |
408 "Modified: / 28-06-1997 / 16:21:09 / cg" |
408 "Modified: / 28-06-1997 / 16:21:09 / cg" |
409 "Modified (comment): / 22-02-2017 / 16:47:54 / cg" |
409 "Modified (comment): / 22-02-2017 / 16:47:54 / cg" |
|
410 "Modified: / 28-06-2019 / 09:12:00 / Claus Gittinger" |
410 ! |
411 ! |
411 |
412 |
412 name |
413 name |
413 "return the semaphore's userFriendly name (only used by semaphore- and process monitors)" |
414 "return the semaphore's userFriendly name (only used by semaphore- and process monitors)" |
414 |
415 |