equal
deleted
inserted
replaced
525 |
525 |
526 displayOn:aGCOrStream |
526 displayOn:aGCOrStream |
527 "return a printed representation of the receiver for displaying" |
527 "return a printed representation of the receiver for displaying" |
528 |
528 |
529 "/ what a kludge - Dolphin and Squeak mean: printOn: a stream; |
529 "/ what a kludge - Dolphin and Squeak mean: printOn: a stream; |
530 "/ ST/X (and some old ST80's) mean: draw-yourself on a GC. |
530 "/ old ST80 means: draw-yourself on a GC. |
531 (aGCOrStream isStream) ifFalse:[ |
531 (aGCOrStream isStream) ifFalse:[ |
532 ^ super displayOn:aGCOrStream |
532 ^ super displayOn:aGCOrStream |
533 ]. |
533 ]. |
534 |
534 |
535 aGCOrStream |
535 aGCOrStream |
549 rightOffset displayOn:aGCOrStream. |
549 rightOffset displayOn:aGCOrStream. |
550 aGCOrStream nextPutAll:' b: '. |
550 aGCOrStream nextPutAll:' b: '. |
551 bottomFraction displayOn:aGCOrStream. |
551 bottomFraction displayOn:aGCOrStream. |
552 aGCOrStream nextPut:$+. |
552 aGCOrStream nextPut:$+. |
553 bottomOffset displayOn:aGCOrStream. |
553 bottomOffset displayOn:aGCOrStream. |
554 aGCOrStream nextPut:$). |
554 aGCOrStream nextPut:$). |
555 |
555 |
556 "Modified: 20.9.1997 / 11:40:14 / cg" |
556 "Modified: / 20-09-1997 / 11:40:14 / cg" |
|
557 "Modified (comment): / 22-02-2017 / 16:52:10 / cg" |
557 ! ! |
558 ! ! |
558 |
559 |
559 !LayoutFrame methodsFor:'queries'! |
560 !LayoutFrame methodsFor:'queries'! |
560 |
561 |
561 corner |
562 corner |