equal
deleted
inserted
replaced
1366 |
1366 |
1367 oldPaint := paint. |
1367 oldPaint := paint. |
1368 self paint:aColor. |
1368 self paint:aColor. |
1369 self fillRectangleX:x y:y width:w height:h. |
1369 self fillRectangleX:x y:y width:w height:h. |
1370 self paint:oldPaint. |
1370 self paint:oldPaint. |
1371 ! ! |
|
1372 |
|
1373 !GraphicsContext methodsFor:'bit blitting'! |
|
1374 |
|
1375 copyFrom:aGC toX:dstX y:dstY |
|
1376 "copy from a drawable - maybe self" |
|
1377 |
|
1378 self copyFrom:aGC x:0 y:0 toX:dstX y:dstY width:aGC width height:aGC height |
|
1379 ! |
|
1380 |
|
1381 copyFrom:aGC x:srcX y:srcY toX:dstX y:dstY width:w height:h |
|
1382 "copy from a drawable - maybe self" |
|
1383 |
|
1384 ^ self subclassResponsibility |
|
1385 ! |
|
1386 |
|
1387 copyFrom:aGC x:dstX y:dstY width:w height:h |
|
1388 "copy from a drawable - maybe self" |
|
1389 |
|
1390 self copyFrom:aGC x:0 y:0 toX:dstX y:dstY width:w height:h |
|
1391 ! ! |
1371 ! ! |
1392 |
1372 |
1393 !GraphicsContext methodsFor:'drawing'! |
1373 !GraphicsContext methodsFor:'drawing'! |
1394 |
1374 |
1395 display:someObject at:aPoint |
1375 display:someObject at:aPoint |