equal
deleted
inserted
replaced
337 self canBeFilled ifTrue:[ |
337 self canBeFilled ifTrue:[ |
338 ^ FillingWrapper on:self |
338 ^ FillingWrapper on:self |
339 ]. |
339 ]. |
340 ^ self shouldNotImplement |
340 ^ self shouldNotImplement |
341 |
341 |
|
342 " |
|
343 |v r| |
|
344 |
|
345 v := View new. |
|
346 v extent:200@200. |
|
347 v openAndWait. |
|
348 r := Rectangle origin:10@10 corner:100@100. |
|
349 r asFiller displayOn:v. |
|
350 " |
|
351 |
342 "Modified: 12.2.1997 / 11:47:22 / cg" |
352 "Modified: 12.2.1997 / 11:47:22 / cg" |
343 ! |
353 ! |
344 |
354 |
345 asRectangle |
355 asRectangle |
346 "return the enclosing rectangle; same as #bounds" |
356 "return the enclosing rectangle; same as #bounds" |
374 attributes are used. Since we do not know how to do it, nothing is |
384 attributes are used. Since we do not know how to do it, nothing is |
375 drawn here." |
385 drawn here." |
376 |
386 |
377 ^ self subclassResponsibility |
387 ^ self subclassResponsibility |
378 |
388 |
|
389 " |
|
390 |v r| |
|
391 |
|
392 v := View new. |
|
393 v extent:200@200. |
|
394 v openAndWait. |
|
395 r := Rectangle origin:10@10 corner:100@100. |
|
396 r displayFilledOn:v. |
|
397 " |
|
398 |
379 "Modified: 8.5.1996 / 09:07:02 / cg" |
399 "Modified: 8.5.1996 / 09:07:02 / cg" |
380 ! |
400 ! |
381 |
401 |
382 displayOn:aGC |
402 displayOn:aGC |
383 "display myself on a graphicsContext; the current graphics |
403 "display myself on a graphicsContext; the current graphics |
384 attributes are used. The default here is to display the outline." |
404 attributes are used. The default here is to display the outline." |
385 |
405 |
386 ^ self displayStrokedOn:aGC |
406 ^ self displayStrokedOn:aGC |
|
407 |
|
408 " |
|
409 |v r| |
|
410 |
|
411 v := View new. |
|
412 v extent:200@200. |
|
413 v openAndWait. |
|
414 r := Rectangle origin:10@10 corner:100@100. |
|
415 r displayOn:v. |
|
416 " |
387 ! |
417 ! |
388 |
418 |
389 displayStrokedOn:aGC |
419 displayStrokedOn:aGC |
390 "display my outline on a graphicsContext; the current graphics |
420 "display my outline on a graphicsContext; the current graphics |
391 attributes are used. Since we do not know how to do it, nothing is |
421 attributes are used. Since we do not know how to do it, nothing is |
483 ! ! |
513 ! ! |
484 |
514 |
485 !Geometric class methodsFor:'documentation'! |
515 !Geometric class methodsFor:'documentation'! |
486 |
516 |
487 version |
517 version |
488 ^ '$Header: /cvs/stx/stx/libbasic/Geometric.st,v 1.26 2000-08-31 10:02:48 cg Exp $' |
518 ^ '$Header: /cvs/stx/stx/libbasic/Geometric.st,v 1.27 2001-10-02 11:27:42 cg Exp $' |
489 ! ! |
519 ! ! |
490 Geometric initialize! |
520 Geometric initialize! |