equal
deleted
inserted
replaced
397 " |
397 " |
398 |
398 |
399 "Modified: 8.5.1996 / 09:07:02 / cg" |
399 "Modified: 8.5.1996 / 09:07:02 / cg" |
400 ! |
400 ! |
401 |
401 |
402 displayOn:aGC |
402 displayOn:aGCOrStream |
403 "display myself on a graphicsContext; the current graphics |
403 "display myself on a graphicsContext; the current graphics |
404 attributes are used. The default here is to display the outline." |
404 attributes are used. The default here is to display the outline." |
405 |
405 |
406 ^ self displayStrokedOn:aGC |
406 "/ what a kludge - Dolphin and Squeak mean: printOn:; |
|
407 "/ ST/X (and some old ST80's) mean: draw-yourself on. |
|
408 (aGCOrStream isStream or:[aGCOrStream == Transcript]) ifTrue:[ |
|
409 ^ super displayOn:aGCOrStream |
|
410 ]. |
|
411 ^ self displayStrokedOn:aGCOrStream |
407 |
412 |
408 " |
413 " |
409 |v r| |
414 |v r| |
410 |
415 |
411 v := View new. |
416 v := View new. |
513 ! ! |
518 ! ! |
514 |
519 |
515 !Geometric class methodsFor:'documentation'! |
520 !Geometric class methodsFor:'documentation'! |
516 |
521 |
517 version |
522 version |
518 ^ '$Header: /cvs/stx/stx/libbasic/Geometric.st,v 1.27 2001-10-02 11:27:42 cg Exp $' |
523 ^ '$Header: /cvs/stx/stx/libbasic/Geometric.st,v 1.28 2002-12-09 10:44:02 cg Exp $' |
519 ! ! |
524 ! ! |
|
525 |
520 Geometric initialize! |
526 Geometric initialize! |