equal
deleted
inserted
replaced
342 |
342 |
343 displayOn:aGCOrStream |
343 displayOn:aGCOrStream |
344 "return a printed representation of the receiver for displaying" |
344 "return a printed representation of the receiver for displaying" |
345 |
345 |
346 "/ what a kludge - Dolphin and Squeak mean: printOn: a stream; |
346 "/ what a kludge - Dolphin and Squeak mean: printOn: a stream; |
347 "/ ST/X (and some old ST80's) mean: draw-yourself on a GC. |
347 "/ old ST80 means: draw-yourself on a GC. |
348 (aGCOrStream isStream) ifFalse:[ |
348 (aGCOrStream isStream) ifFalse:[ |
349 ^ super displayOn:aGCOrStream |
349 ^ super displayOn:aGCOrStream |
350 ]. |
350 ]. |
351 |
351 |
352 aGCOrStream |
352 aGCOrStream |
358 leftOffset displayOn:aGCOrStream. |
358 leftOffset displayOn:aGCOrStream. |
359 aGCOrStream nextPutAll:' t: '. |
359 aGCOrStream nextPutAll:' t: '. |
360 topFraction displayOn:aGCOrStream. |
360 topFraction displayOn:aGCOrStream. |
361 aGCOrStream nextPut:$+. |
361 aGCOrStream nextPut:$+. |
362 topOffset displayOn:aGCOrStream. |
362 topOffset displayOn:aGCOrStream. |
363 aGCOrStream nextPut:$). |
363 aGCOrStream nextPut:$). |
|
364 |
|
365 "Modified (comment): / 22-02-2017 / 16:49:31 / cg" |
364 ! ! |
366 ! ! |
365 |
367 |
366 !LayoutOrigin methodsFor:'queries'! |
368 !LayoutOrigin methodsFor:'queries'! |
367 |
369 |
368 isLayoutOrigin |
370 isLayoutOrigin |