equal
deleted
inserted
replaced
364 |
364 |
365 "Modified: / 20-09-2010 / 11:34:07 / cg" |
365 "Modified: / 20-09-2010 / 11:34:07 / cg" |
366 ! |
366 ! |
367 |
367 |
368 selectedColor: aColor |
368 selectedColor: aColor |
369 (drawingColorHolders at:mouseKeyColorMode) value:aColor |
369 (drawingColorHolders at:(mouseKeyColorMode min:drawingColorHolders size)) value:aColor |
370 ! |
370 ! |
371 |
371 |
372 selectedColorIndex |
372 selectedColorIndex |
373 ^ (drawingPixelHolders at:mouseKeyColorMode) value |
373 ^ (drawingPixelHolders at:mouseKeyColorMode) value |
374 ! |
374 ! |
375 |
375 |
376 selectedColorIndex: aPixelIndex |
376 selectedColorIndex: aPixelIndex |
377 (drawingPixelHolders at:mouseKeyColorMode) value: aPixelIndex |
377 (drawingPixelHolders at:(mouseKeyColorMode min:drawingPixelHolders size)) value: aPixelIndex |
378 ! |
378 ! |
379 |
379 |
380 setModified |
380 setModified |
381 self modified:true |
381 self modified:true |
382 ! |
382 ! |
814 self selectedColor:clr. |
814 self selectedColor:clr. |
815 masked ifTrue:[self selectedColorIndex:nil]. |
815 masked ifTrue:[self selectedColorIndex:nil]. |
816 self changed:#selectedColor with:clr. |
816 self changed:#selectedColor with:clr. |
817 ] ifFalse:[ |
817 ] ifFalse:[ |
818 readOnly ifFalse:[ |
818 readOnly ifFalse:[ |
819 mouseKeyColorMode := button. |
819 (button between:1 and:2) ifTrue:[ |
820 self makeUndo. |
820 mouseKeyColorMode := button. |
821 |
821 self makeUndo. |
822 clickInfoCallBack notNil ifTrue:[ |
822 |
823 "/ still a kludge, but less ugly ... |
823 clickInfoCallBack notNil ifTrue:[ |
824 clickInfoCallBack value:button value:p |
824 "/ still a kludge, but less ugly ... |
825 ]. |
825 clickInfoCallBack value:button value:p |
826 "/ editMode is something like #point, #rectangle etc. |
826 ]. |
827 [ |
827 "/ editMode is something like #point, #rectangle etc. |
828 self perform: (editMode, 'At:') asSymbol with:p |
828 [ |
829 ] on:Error do:[:ex | |
829 self perform: (editMode, 'At:') asSymbol with:p |
830 (Dialog confirm:('Error during operation: ', ex description,'\\Debug ?') withCRs ) |
830 ] on:Error do:[:ex | |
831 ifTrue:[ |
831 (Dialog confirm:('Error during operation: ', ex description,'\\Debug ?') withCRs ) |
832 ex reject |
832 ifTrue:[ |
|
833 ex reject |
|
834 ]. |
833 ]. |
835 ]. |
834 ]. |
836 ]. |
835 ]. |
837 ]. |
836 ] |
838 ] |
837 ] |
839 ] |
2857 ! ! |
2859 ! ! |
2858 |
2860 |
2859 !ImageEditView class methodsFor:'documentation'! |
2861 !ImageEditView class methodsFor:'documentation'! |
2860 |
2862 |
2861 version |
2863 version |
2862 ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.266 2015-03-26 09:35:43 cg Exp $' |
2864 ^ '$Header$' |
2863 ! |
2865 ! |
2864 |
2866 |
2865 version_CVS |
2867 version_CVS |
2866 ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.266 2015-03-26 09:35:43 cg Exp $' |
2868 ^ '$Header$' |
2867 ! ! |
2869 ! ! |
2868 |
2870 |
2869 |
2871 |
2870 ImageEditView initialize! |
2872 ImageEditView initialize! |