equal
deleted
inserted
replaced
412 ]. |
412 ]. |
413 ] ifFalse:[ |
413 ] ifFalse:[ |
414 "/ ignore the selection and paste where we drop!! |
414 "/ ignore the selection and paste where we drop!! |
415 pastePoint := aPointOrNilOrKeep. |
415 pastePoint := aPointOrNilOrKeep. |
416 pastePoint isNil ifTrue:[ |
416 pastePoint isNil ifTrue:[ |
417 pastePoint := self graphicsDevice |
417 pastePoint := device |
418 translatePoint:(sensor mousePoint) |
418 translatePoint:(sensor mousePoint) |
419 fromView:nil |
419 fromView:nil |
420 toView:self. |
420 toView:self. |
421 ]. |
421 ]. |
422 containerToPasteInto isNil ifTrue:[ |
422 containerToPasteInto isNil ifTrue:[ |
503 aPointOrNilOrKeep == #keep ifTrue:[ |
503 aPointOrNilOrKeep == #keep ifTrue:[ |
504 newOrigin := uiPainterAttributes at:#origin. |
504 newOrigin := uiPainterAttributes at:#origin. |
505 ] ifFalse:[ |
505 ] ifFalse:[ |
506 thisAbsOrigin := uiPainterAttributes at:#absOrigin. |
506 thisAbsOrigin := uiPainterAttributes at:#absOrigin. |
507 |
507 |
508 newOrigin := self graphicsDevice |
508 newOrigin := device |
509 translatePoint:thisAbsOrigin |
509 translatePoint:thisAbsOrigin |
510 fromView:self |
510 fromView:self |
511 toView:containerToPasteInto. |
511 toView:containerToPasteInto. |
512 ]. |
512 ]. |
513 ] ifFalse:[ |
513 ] ifFalse:[ |
514 pastePoint isNil ifTrue:[ pastePoint := 0@0 ]. |
514 pastePoint isNil ifTrue:[ pastePoint := 0@0 ]. |
515 newOrigin := self graphicsDevice |
515 newOrigin := device |
516 translatePoint:pastePoint |
516 translatePoint:pastePoint |
517 fromView:self |
517 fromView:self |
518 toView:containerToPasteInto. |
518 toView:containerToPasteInto. |
519 ]. |
519 ]. |
520 |
520 |
1991 |
1991 |
1992 create |
1992 create |
1993 "colors on device" |
1993 "colors on device" |
1994 |
1994 |
1995 super create. |
1995 super create. |
1996 handleColorBlack := handleColorBlack onDevice:self graphicsDevice. |
1996 handleColorBlack := handleColorBlack onDevice:device. |
1997 handleColorWhite := handleColorWhite onDevice:self graphicsDevice. |
1997 handleColorWhite := handleColorWhite onDevice:device. |
1998 handleMasterColor := handleMasterColor onDevice:self graphicsDevice. |
1998 handleMasterColor := handleMasterColor onDevice:device. |
1999 ! |
1999 ! |
2000 |
2000 |
2001 initialize |
2001 initialize |
2002 "setup attributes |
2002 "setup attributes |
2003 " |
2003 " |