equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1995 by Claus Gittinger |
4 COPYRIGHT (c) 1995 by 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 |
531 (aGCOrStream isStream) ifFalse:[ |
533 (aGCOrStream isStream) ifFalse:[ |
532 ^ super displayOn:aGCOrStream |
534 ^ super displayOn:aGCOrStream |
533 ]. |
535 ]. |
534 |
536 |
535 aGCOrStream |
537 aGCOrStream |
536 nextPutAll:self class name; |
538 nextPutAll:self className; |
537 nextPutAll:'(l: '. |
539 nextPutAll:'(l: '. |
538 |
540 |
539 leftFraction displayOn:aGCOrStream. |
541 leftFraction displayOn:aGCOrStream. |
540 aGCOrStream nextPut:$+. |
542 aGCOrStream nextPut:$+. |
541 leftOffset displayOn:aGCOrStream. |
543 leftOffset displayOn:aGCOrStream. |
553 bottomOffset displayOn:aGCOrStream. |
555 bottomOffset displayOn:aGCOrStream. |
554 aGCOrStream nextPut:$). |
556 aGCOrStream nextPut:$). |
555 |
557 |
556 "Modified: / 20-09-1997 / 11:40:14 / cg" |
558 "Modified: / 20-09-1997 / 11:40:14 / cg" |
557 "Modified (comment): / 22-02-2017 / 16:52:10 / cg" |
559 "Modified (comment): / 22-02-2017 / 16:52:10 / cg" |
|
560 "Modified: / 28-06-2019 / 09:03:55 / Claus Gittinger" |
558 ! ! |
561 ! ! |
559 |
562 |
560 !LayoutFrame methodsFor:'queries'! |
563 !LayoutFrame methodsFor:'queries'! |
561 |
564 |
562 corner |
565 corner |