equal
deleted
inserted
replaced
966 ] |
966 ] |
967 ]. |
967 ]. |
968 stillCrobbing ifTrue:[ |
968 stillCrobbing ifTrue:[ |
969 xMinNew := xMinNew + 1. |
969 xMinNew := xMinNew + 1. |
970 xMinNew >= image width ifTrue:[ |
970 xMinNew >= image width ifTrue:[ |
971 self warn:'Image is all the same color - no crob.'. |
971 self warn:(resources string:'Image is all the same color - no crob.'). |
972 ^ self |
972 ^ self |
973 ] |
973 ] |
974 ]. |
974 ]. |
975 ]. |
975 ]. |
976 ]. |
976 ]. |
2395 |
2395 |
2396 save:image imageOrMask:what |
2396 save:image imageOrMask:what |
2397 "save the image or the mask only (if what == #mask)" |
2397 "save the image or the mask only (if what == #mask)" |
2398 |
2398 |
2399 image isNil ifTrue:[ |
2399 image isNil ifTrue:[ |
2400 Dialog warn: 'No image to save!!'. |
2400 Dialog warn:(resources string:'No image to save!!'). |
2401 ^ self. |
2401 ^ self. |
2402 ]. |
2402 ]. |
2403 self save:image imageOrMask:what as:image fileName. |
2403 self save:image imageOrMask:what as:image fileName. |
2404 ! |
2404 ! |
2405 |
2405 |
2504 |button grabbedImage| |
2504 |button grabbedImage| |
2505 |
2505 |
2506 aFileName isNil ifTrue: [^nil]. |
2506 aFileName isNil ifTrue: [^nil]. |
2507 |
2507 |
2508 image isNil ifTrue:[ |
2508 image isNil ifTrue:[ |
2509 self warn: 'No image or image mask detected!!'. |
2509 self warn:(resources string:'No image or image mask to save!!'). |
2510 ^ self. |
2510 ^ self. |
2511 ]. |
2511 ]. |
2512 |
2512 |
2513 button := Button label:image. |
2513 button := Button label:image. |
2514 button openAt:5@5. |
2514 button openAt:5@5. |
2536 |
2536 |
2537 aFileName isNil ifTrue: [^nil]. |
2537 aFileName isNil ifTrue: [^nil]. |
2538 image notNil ifTrue:[ |
2538 image notNil ifTrue:[ |
2539 self save:image imageOrMask:#image as:aFileName. |
2539 self save:image imageOrMask:#image as:aFileName. |
2540 ] ifFalse:[ |
2540 ] ifFalse:[ |
2541 self warn: 'No image for saving!!' |
2541 self warn:(resources string:'No image for saving!!') |
2542 ] |
2542 ] |
2543 |
2543 |
2544 "Modified: / 30.9.1998 / 23:04:55 / cg" |
2544 "Modified: / 30.9.1998 / 23:04:55 / cg" |
2545 ! |
2545 ! |
2546 |
2546 |
2560 |
2560 |
2561 aFileName isNil ifTrue: [^nil]. |
2561 aFileName isNil ifTrue: [^nil]. |
2562 (image notNil and:[image mask notNil]) ifTrue:[ |
2562 (image notNil and:[image mask notNil]) ifTrue:[ |
2563 self save:image imageOrMask:#mask as:aFileName. |
2563 self save:image imageOrMask:#mask as:aFileName. |
2564 ] ifFalse:[ |
2564 ] ifFalse:[ |
2565 self warn: 'No image or image mask detected!!' |
2565 self warn:(resources string:'No image or image mask to save!!') |
2566 ] |
2566 ] |
2567 |
2567 |
2568 "Modified: / 30.9.1998 / 23:06:24 / cg" |
2568 "Modified: / 30.9.1998 / 23:06:24 / cg" |
2569 ! |
2569 ! |
2570 |
2570 |
2665 |stream| |
2665 |stream| |
2666 |
2666 |
2667 image isNil ifTrue:[^ self]. |
2667 image isNil ifTrue:[^ self]. |
2668 |
2668 |
2669 Printer supportsPostscript ifFalse:[ |
2669 Printer supportsPostscript ifFalse:[ |
2670 ^ self warn:'No postscript printer configured !!' |
2670 ^ self warn:(resources string:'No postscript printer configured !!') |
2671 ]. |
2671 ]. |
2672 |
2672 |
2673 stream := Printer newNative. |
2673 stream := Printer newNative. |
2674 stream isNil ifTrue:[ |
2674 stream isNil ifTrue:[ |
2675 ^ self warn:'Cannot open printer stream !!' |
2675 ^ self warn:(resources string:'Cannot open printer stream !!') |
2676 ]. |
2676 ]. |
2677 |
2677 |
2678 self withWaitCursorDo:[ |
2678 self withWaitCursorDo:[ |
2679 |psgc| |
2679 |psgc| |
2680 |
2680 |
2774 ! ! |
2774 ! ! |
2775 |
2775 |
2776 !ImageEditView class methodsFor:'documentation'! |
2776 !ImageEditView class methodsFor:'documentation'! |
2777 |
2777 |
2778 version |
2778 version |
2779 ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.255 2013-06-05 13:23:47 stefan Exp $' |
2779 ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.256 2013-06-25 22:22:31 cg Exp $' |
2780 ! |
2780 ! |
2781 |
2781 |
2782 version_CVS |
2782 version_CVS |
2783 ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.255 2013-06-05 13:23:47 stefan Exp $' |
2783 ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.256 2013-06-25 22:22:31 cg Exp $' |
2784 ! ! |
2784 ! ! |
2785 |
2785 |
2786 |
2786 |
2787 ImageEditView initialize! |
2787 ImageEditView initialize! |