hg/stx-libwidg2: ImageEditView.st@3302aab746d2 (annotated)

636 d53428252193 revised version tz parents: 633 diff changeset	1	"
704 01140e14c065 Fix copyright. Stefan Vogel <sv@exept.de> parents: 694 diff changeset	2	COPYRIGHT (c) 1997 by eXept Software AG
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	3	All Rights Reserved
636 d53428252193 revised version tz parents: 633 diff changeset	4
d53428252193 revised version tz parents: 633 diff changeset	5	This software is furnished under a license and may be used
d53428252193 revised version tz parents: 633 diff changeset	6	only in accordance with the terms of that license and with the
d53428252193 revised version tz parents: 633 diff changeset	7	inclusion of the above copyright notice. This software may not
d53428252193 revised version tz parents: 633 diff changeset	8	be provided or otherwise made available to, or used by, any
d53428252193 revised version tz parents: 633 diff changeset	9	other person. No title to or ownership of the software is
d53428252193 revised version tz parents: 633 diff changeset	10	hereby transferred.
d53428252193 revised version tz parents: 633 diff changeset	11	"
d53428252193 revised version tz parents: 633 diff changeset	12
1763 7d6d64622ee4 change & updates fixed (monochrome bitmaps) Claus Gittinger <cg@exept.de> parents: 1706 diff changeset	13	"{ Package: 'stx:libwidg2' }"
7d6d64622ee4 change & updates fixed (monochrome bitmaps) Claus Gittinger <cg@exept.de> parents: 1706 diff changeset	14
1 c6ca7bfedf31 Initial revision claus parents: diff changeset	15	ImageView subclass:#ImageEditView
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	16	instanceVariableNames:'magnification imageReaderClass resourceClass resourceSelector
2747 818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	17	mouseKeyColorMode undoImages modifiedHolder editMode
818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	18	lastPastePoint imageInfoHolder activityInfoHolder
818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	19	pickedColorHolder drawingColors drawingPixels drawingColorHolders
2009 4f556ff9fec5 pick with SHIFT-click in the mag-view Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	20	drawingPixelHolders clickInfoCallBack'
2440 a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	21	classVariableNames:'Clipboard ClipboardMagnified LastMagnification
1994 d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	22	GridMagnificationLimit MaxUndos LastSaveDirectory LastSaveClass'
1035 5da83bdbd65e checkin from browser Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	23	poolDictionaries:''
1706 a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	24	category:'Views-Misc'
1 c6ca7bfedf31 Initial revision claus parents: diff changeset	25	!
c6ca7bfedf31 Initial revision claus parents: diff changeset	26
636 d53428252193 revised version tz parents: 633 diff changeset	27	!ImageEditView class methodsFor:'documentation'!
d53428252193 revised version tz parents: 633 diff changeset	28
d53428252193 revised version tz parents: 633 diff changeset	29	copyright
d53428252193 revised version tz parents: 633 diff changeset	30	"
704 01140e14c065 Fix copyright. Stefan Vogel <sv@exept.de> parents: 694 diff changeset	31	COPYRIGHT (c) 1997 by eXept Software AG
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	32	All Rights Reserved
636 d53428252193 revised version tz parents: 633 diff changeset	33
d53428252193 revised version tz parents: 633 diff changeset	34	This software is furnished under a license and may be used
d53428252193 revised version tz parents: 633 diff changeset	35	only in accordance with the terms of that license and with the
d53428252193 revised version tz parents: 633 diff changeset	36	inclusion of the above copyright notice. This software may not
d53428252193 revised version tz parents: 633 diff changeset	37	be provided or otherwise made available to, or used by, any
d53428252193 revised version tz parents: 633 diff changeset	38	other person. No title to or ownership of the software is
d53428252193 revised version tz parents: 633 diff changeset	39	hereby transferred.
d53428252193 revised version tz parents: 633 diff changeset	40	"
d53428252193 revised version tz parents: 633 diff changeset	41	!
d53428252193 revised version tz parents: 633 diff changeset	42
d53428252193 revised version tz parents: 633 diff changeset	43	documentation
d53428252193 revised version tz parents: 633 diff changeset	44	"
2747 818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	45	An ImageEditView is a view which can be used by applications
818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	46	like the Image Editor for editing or inspecting (bitmap-) images.
636 d53428252193 revised version tz parents: 633 diff changeset	47
d53428252193 revised version tz parents: 633 diff changeset	48	[see also:]
2747 818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	49	ImageEditor Image
636 d53428252193 revised version tz parents: 633 diff changeset	50
d53428252193 revised version tz parents: 633 diff changeset	51	[author:]
2747 818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	52	Thomas Zwick
636 d53428252193 revised version tz parents: 633 diff changeset	53	"
d53428252193 revised version tz parents: 633 diff changeset	54	! !
353 0442fc169b82 * empty log message * Claus Gittinger <cg@exept.de> parents: 322 diff changeset	55
1245 68581e6aaf23 code cleanup Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	56	!ImageEditView class methodsFor:'initialization'!
68581e6aaf23 code cleanup Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	57
68581e6aaf23 code cleanup Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	58	initialize
68581e6aaf23 code cleanup Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	59	MaxUndos := 5.
1706 a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	60	GridMagnificationLimit := 8 @ 8.
1245 68581e6aaf23 code cleanup Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	61
68581e6aaf23 code cleanup Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	62	"
68581e6aaf23 code cleanup Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	63	self initialize
68581e6aaf23 code cleanup Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	64	"
68581e6aaf23 code cleanup Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	65	! !
68581e6aaf23 code cleanup Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	66
1706 a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	67	!ImageEditView class methodsFor:'accessing'!
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	68
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	69	gridMagnificationLimit
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	70	^ GridMagnificationLimit
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	71	!
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	72
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	73	gridMagnificationLimit:anInteger
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	74	GridMagnificationLimit := anInteger
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	75	! !
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	76
2480 6b82ad413d70 added copyToClipboard Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	77	!ImageEditView class methodsFor:'helpers'!
6b82ad413d70 added copyToClipboard Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	78
6b82ad413d70 added copyToClipboard Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	79	copyImageToClipboard:copiedImage
6b82ad413d70 added copyToClipboard Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	80	ClipboardMagnified := nil.
6b82ad413d70 added copyToClipboard Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	81	Clipboard := copiedImage.
6b82ad413d70 added copyToClipboard Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	82	! !
6b82ad413d70 added copyToClipboard Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	83
2634 dc5098a445d4 resources Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	84	!ImageEditView class methodsFor:'resources'!
dc5098a445d4 resources Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	85
dc5098a445d4 resources Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	86	classResources
dc5098a445d4 resources Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	87	^ ImageEditor classResources
dc5098a445d4 resources Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	88	! !
dc5098a445d4 resources Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	89
7 19b36b78ee01 * empty log message * claus parents: 5 diff changeset	90	!ImageEditView methodsFor:'accessing'!
19b36b78ee01 * empty log message * claus parents: 5 diff changeset	91
1031 a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	92	activityInfoHolder
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	93	"return the value of the instance variable 'activityInfoHolder' (automatically generated)"
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	94
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	95	^ activityInfoHolder
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	96
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	97	"Created: / 29.7.1998 / 18:49:39 / cg"
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	98	!
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	99
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	100	activityInfoHolder:something
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	101	"set the value of the instance variable 'activityInfoHolder' (automatically generated)"
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	102
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	103	activityInfoHolder := something.
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	104
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	105	"Created: / 29.7.1998 / 18:49:39 / cg"
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	106	!
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	107
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	108	clearModified
2747 818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	109	self modified:false
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	110	!
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	111
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	112	clickInfoCallBack:aTwoArgBlock
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	113	clickInfoCallBack := aTwoArgBlock
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	114
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	115	"Created: / 10.2.2000 / 23:07:14 / cg"
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	116	!
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	117
2440 a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	118	clipBoard
a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	119	^ Clipboard
a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	120	!
a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	121
2009 4f556ff9fec5 pick with SHIFT-click in the mag-view Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	122	drawingColors:anArrayTwoColors
4f556ff9fec5 pick with SHIFT-click in the mag-view Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	123	(drawingColorHolders at:1) value:(anArrayTwoColors at:1).
4f556ff9fec5 pick with SHIFT-click in the mag-view Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	124	(drawingColorHolders at:2) value:(anArrayTwoColors at:2).
4f556ff9fec5 pick with SHIFT-click in the mag-view Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	125	!
4f556ff9fec5 pick with SHIFT-click in the mag-view Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	126
1031 a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	127	imageInfoHolder
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	128	"return the value of the instance variable 'imageInfoHolder' (automatically generated)"
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	129
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	130	^ imageInfoHolder
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	131
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	132	"Created: / 29.7.1998 / 18:29:50 / cg"
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	133	!
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	134
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	135	imageInfoHolder:something
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	136	"set the value of the instance variable 'imageInfoHolder' (automatically generated)"
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	137
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	138	imageInfoHolder := something.
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	139
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	140	"Created: / 29.7.1998 / 18:29:50 / cg"
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	141	!
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	142
624 d98fe4700fc2 checkin from browser tz parents: 606 diff changeset	143	magnification
d98fe4700fc2 checkin from browser tz parents: 606 diff changeset	144
d98fe4700fc2 checkin from browser tz parents: 606 diff changeset	145	^magnification
d98fe4700fc2 checkin from browser tz parents: 606 diff changeset	146
255 1dfa8deddaef checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	147	!
1dfa8deddaef checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	148
636 d53428252193 revised version tz parents: 633 diff changeset	149	magnification: aPoint
1037 3735af6b5b24 remmeber scrollOffset Claus Gittinger <cg@exept.de> parents: 1036 diff changeset	150	\|oldOrg\|
255 1dfa8deddaef checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	151
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	152	magnification ~= aPoint
624 d98fe4700fc2 checkin from browser tz parents: 606 diff changeset	153	ifTrue:
d98fe4700fc2 checkin from browser tz parents: 606 diff changeset	154	[
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	155	oldOrg := self viewOrigin / magnification.
441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	156	magnification := aPoint asPoint.
1037 3735af6b5b24 remmeber scrollOffset Claus Gittinger <cg@exept.de> parents: 1036 diff changeset	157
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	158	self scrollTo:(oldOrg * magnification) rounded redraw:false.
1037 3735af6b5b24 remmeber scrollOffset Claus Gittinger <cg@exept.de> parents: 1036 diff changeset	159	"/ self scrollToTopLeft.
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	160	self contentsChanged.
441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	161	self invalidate.
2440 a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	162	ClipboardMagnified := nil.
686 33833bcbb5cd some cleans tz parents: 678 diff changeset	163	]
1037 3735af6b5b24 remmeber scrollOffset Claus Gittinger <cg@exept.de> parents: 1036 diff changeset	164
3735af6b5b24 remmeber scrollOffset Claus Gittinger <cg@exept.de> parents: 1036 diff changeset	165	"Modified: / 31.7.1998 / 02:38:47 / cg"
624 d98fe4700fc2 checkin from browser tz parents: 606 diff changeset	166	!
255 1dfa8deddaef checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	167
2747 818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	168	modified:aBoolean
818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	169	modifiedHolder value:aBoolean
818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	170	!
818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	171
818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	172	modifiedHolder
818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	173	^ modifiedHolder
818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	174	!
818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	175
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	176	resourceClass
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	177
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	178	^resourceClass
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	179	!
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	180
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	181	resourceClass: aClassOrSymbol
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	182
686 33833bcbb5cd some cleans tz parents: 678 diff changeset	183	resourceClass := aClassOrSymbol isClass ifTrue: [aClassOrSymbol name] ifFalse: [aClassOrSymbol asSymbol]
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	184	!
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	185
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	186	resourceMessage
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	187
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	188	^resourceClass, ' ', resourceSelector
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	189	!
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	190
636 d53428252193 revised version tz parents: 633 diff changeset	191	resourceMessage: aString
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	192
636 d53428252193 revised version tz parents: 633 diff changeset	193	(aString isString and: [aString trimBlanks size > 0])
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	194	ifTrue:
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	195	[
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	196	resourceClass := (aString readStream upTo: Character space) asSymbol.
441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	197	resourceSelector := (aString copy reverse readStream upTo: Character space) reverse asSymbol
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	198	]
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	199	ifFalse:
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	200	[
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	201	^nil
686 33833bcbb5cd some cleans tz parents: 678 diff changeset	202	]
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	203
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	204
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	205	!
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	206
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	207	resourceSelector
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	208
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	209	^resourceSelector
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	210	!
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	211
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	212	resourceSelector: aStringOrSymbol
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	213
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	214	resourceSelector := aStringOrSymbol asSymbol
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	215	!
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	216
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	217	selectedColor
2009 4f556ff9fec5 pick with SHIFT-click in the mag-view Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	218	^ (drawingColorHolders at:mouseKeyColorMode) value
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	219	!
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	220
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	221	selectedColor: aColor
2009 4f556ff9fec5 pick with SHIFT-click in the mag-view Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	222	(drawingColorHolders at:mouseKeyColorMode) value:aColor
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	223	!
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	224
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	225	selectedColorIndex
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	226
2009 4f556ff9fec5 pick with SHIFT-click in the mag-view Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	227	^ (drawingPixelHolders at:mouseKeyColorMode) value
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	228	!
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	229
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	230	selectedColorIndex: aPixelIndex
2009 4f556ff9fec5 pick with SHIFT-click in the mag-view Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	231	(drawingPixelHolders at:mouseKeyColorMode) value: aPixelIndex
995 cd84d6f8c449 several undos tz parents: 994 diff changeset	232	!
cd84d6f8c449 several undos tz parents: 994 diff changeset	233
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	234	setModified
2747 818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	235	self modified:true
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	236	!
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	237
995 cd84d6f8c449 several undos tz parents: 994 diff changeset	238	undoImages
cd84d6f8c449 several undos tz parents: 994 diff changeset	239
cd84d6f8c449 several undos tz parents: 994 diff changeset	240	^undoImages
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	241	! !
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	242
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	243	!ImageEditView methodsFor:'drawing'!
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	244
1036 d860072f3b49 gridMag default. Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	245	drawFrame
d860072f3b49 gridMag default. Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	246
d860072f3b49 gridMag default. Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	247	self paint:Color black.
d860072f3b49 gridMag default. Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	248	self lineWidth: (magnification x//3 min: 3).
1104 a7101d656dab use margin in #drawFrame tz parents: 1103 diff changeset	249	self displayRectangle: ((0@0) extent:(image extent * magnification) + margin).
1036 d860072f3b49 gridMag default. Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	250	self lineWidth:1.
d860072f3b49 gridMag default. Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	251	!
d860072f3b49 gridMag default. Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	252
d860072f3b49 gridMag default. Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	253	drawFramesIn: aRectangle
d860072f3b49 gridMag default. Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	254
1706 a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	255	magnification >= GridMagnificationLimit
1036 d860072f3b49 gridMag default. Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	256	ifTrue:
d860072f3b49 gridMag default. Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	257	[
1706 a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	258	\|origin lineStartingPoint lineEndingPoint oldColor\|
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	259	origin := aRectangle origin - 1.
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	260	lineStartingPoint := origin + (0@magnification y).
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	261	lineEndingPoint := lineStartingPoint + (aRectangle width@0).
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	262	oldColor := self paint.
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	263	self xoring:
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	264	[
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	265	self displayLineFrom: lineStartingPoint to: lineEndingPoint.
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	266	lineStartingPoint x to: lineStartingPoint x + aRectangle width - magnification x by: magnification x do:
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	267	[:x\|
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	268	self displayLineFrom: x@(origin y) to: x@(origin y + magnification y)
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	269	].
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	270	].
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	271	self paint: oldColor.
1036 d860072f3b49 gridMag default. Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	272	]
d860072f3b49 gridMag default. Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	273
d860072f3b49 gridMag default. Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	274
d860072f3b49 gridMag default. Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	275
d860072f3b49 gridMag default. Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	276	!
d860072f3b49 gridMag default. Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	277
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	278	drawPasteRectangleAt: aPoint
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	279
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	280	\|currentPoint gridCorrection extent org\|
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	281
1706 a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	282	magnification >= GridMagnificationLimit ifFalse: [gridCorrection := 0] ifTrue: [gridCorrection := 1].
1449 e5852c20c18a * empty log message * Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	283	currentPoint := aPoint // magnification*magnification + margin.
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	284
2085 4cf52f994f0a checkin from browser Claus Gittinger <cg@exept.de> parents: 2072 diff changeset	285	self repairDamage.
4cf52f994f0a checkin from browser Claus Gittinger <cg@exept.de> parents: 2072 diff changeset	286
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	287	currentPoint ~= lastPastePoint ifTrue:[
2440 a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	288	ClipboardMagnified isNil ifTrue:[
a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	289	ClipboardMagnified := (Clipboard magnifiedBy: magnification) onDevice: device
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	290	].
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	291
2440 a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	292	extent := ClipboardMagnified extent.
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	293
1967 1b4524f3105f checkin from browser Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	294	"/ currentPoint := currentPoint - self viewOrigin.
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	295
2085 4cf52f994f0a checkin from browser Claus Gittinger <cg@exept.de> parents: 2072 diff changeset	296	self redraw: (((lastPastePoint ? currentPoint)"-self viewOrigin") extent: extent).
4cf52f994f0a checkin from browser Claus Gittinger <cg@exept.de> parents: 2072 diff changeset	297	self repairDamage.
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	298
2085 4cf52f994f0a checkin from browser Claus Gittinger <cg@exept.de> parents: 2072 diff changeset	299	false " (extent x > 400 or: [extent y > 400])" ifTrue:[
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	300	self xoring: [
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	301	self fillRectangle: (currentPoint extent: extent)
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	302	]
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	303	] ifFalse:[
2440 a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	304	ClipboardMagnified notNil ifTrue:[
a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	305	self displayDeviceForm: ClipboardMagnified
2089 8c0aed9152c4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	306	x: currentPoint x - self viewOrigin x
8c0aed9152c4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	307	y: currentPoint y - self viewOrigin y.
8c0aed9152c4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	308	].
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	309	editMode == #pasteUnder ifTrue:[
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	310	self redrawImageX:currentPoint x y:currentPoint y width:extent x height:extent y unmaskedOnly:true
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	311	]
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	312	]
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	313	].
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	314	lastPastePoint := currentPoint.
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	315
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	316	"Modified: / 18.5.1999 / 20:23:33 / cg"
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	317	!
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	318
662 61b7601829ea with modal support tz parents: 636 diff changeset	319	fillFramedRectangle: aRectangle
61b7601829ea with modal support tz parents: 636 diff changeset	320
61b7601829ea with modal support tz parents: 636 diff changeset	321	self fillRectangle: aRectangle.
61b7601829ea with modal support tz parents: 636 diff changeset	322	self drawFramesIn: aRectangle
61b7601829ea with modal support tz parents: 636 diff changeset	323	!
61b7601829ea with modal support tz parents: 636 diff changeset	324
1449 e5852c20c18a * empty log message * Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	325	redraw:aRectangle
2053 5c19fe5b2db3 invalidate rather than redraw Claus Gittinger <cg@exept.de> parents: 2034 diff changeset	326	self invalidate:(aRectangle origin "+ self viewOrigin" extent:aRectangle extent).
5c19fe5b2db3 invalidate rather than redraw Claus Gittinger <cg@exept.de> parents: 2034 diff changeset	327	"/ super redraw:(aRectangle origin + self viewOrigin extent:aRectangle extent).
1449 e5852c20c18a * empty log message * Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	328
2053 5c19fe5b2db3 invalidate rather than redraw Claus Gittinger <cg@exept.de> parents: 2034 diff changeset	329	"Modified: / 15.11.2001 / 16:43:53 / cg"
1449 e5852c20c18a * empty log message * Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	330	!
e5852c20c18a * empty log message * Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	331
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	332	redrawImageX:x y:y width:w height:h
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	333	self redrawImageX:x y:y width:w height:h unmaskedOnly:false
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	334
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	335	"Modified: / 18.5.1999 / 20:14:03 / cg"
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	336	!
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	337
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	338	redrawImageX:x y:y width:w height:h unmaskedOnly:unmaskedOnly
636 d53428252193 revised version tz parents: 633 diff changeset	339
1037 3735af6b5b24 remmeber scrollOffset Claus Gittinger <cg@exept.de> parents: 1036 diff changeset	340	\|ih iw magX magY minX maxX minY maxY
3735af6b5b24 remmeber scrollOffset Claus Gittinger <cg@exept.de> parents: 1036 diff changeset	341	color lastColor lastY runW x0 xI yI maskColor mask
1180 dcb9dede5128 checkin from browser Claus Gittinger <cg@exept.de> parents: 1160 diff changeset	342	sizeOfMaskPoint useNearestColor\|
dcb9dede5128 checkin from browser Claus Gittinger <cg@exept.de> parents: 1160 diff changeset	343
dcb9dede5128 checkin from browser Claus Gittinger <cg@exept.de> parents: 1160 diff changeset	344	useNearestColor := device visualType == #PseudoColor.
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	345
1037 3735af6b5b24 remmeber scrollOffset Claus Gittinger <cg@exept.de> parents: 1036 diff changeset	346	mask := image mask.
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	347	ih := image height.
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	348	iw := image width.
662 61b7601829ea with modal support tz parents: 636 diff changeset	349	magX := magnification x.
61b7601829ea with modal support tz parents: 636 diff changeset	350	magY := magnification y.
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	351
662 61b7601829ea with modal support tz parents: 636 diff changeset	352	minX := (x // magX - 1) max: 0.
725 0e051202859d checkin from browser tz parents: 724 diff changeset	353	minX >= iw ifTrue:[minX := (iw - 1) max: 0].
662 61b7601829ea with modal support tz parents: 636 diff changeset	354	minY := (y // magY - 1) max: 0.
725 0e051202859d checkin from browser tz parents: 724 diff changeset	355	minY >= ih ifTrue:[minY := (ih - 1) max: 0].
662 61b7601829ea with modal support tz parents: 636 diff changeset	356	maxX := (x + w) // magX + 1.
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	357	maxX > iw ifTrue:[maxX := iw].
662 61b7601829ea with modal support tz parents: 636 diff changeset	358	maxY := (y + h) // magY + 1.
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	359	maxY > ih ifTrue:[maxY := ih].
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	360
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	361	lastY := -1.
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	362
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	363	x0 := minX.
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	364	runW := 0.
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	365	maskColor := false.
662 61b7601829ea with modal support tz parents: 636 diff changeset	366	sizeOfMaskPoint := magnification//3.
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	367	image
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	368	colorsFromX:minX y:minY toX:maxX-1 y:maxY-1
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	369	do:[:xx :yy :color\|
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	370
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	371	shown ifFalse:[^ self].
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	372
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	373	yy ~~ lastY ifTrue:[
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	374	runW ~~ 0 ifTrue:[
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	375	\|origin\|
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	376
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	377	origin := (x0 * magX + margin)@(lastY * magY + margin).
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	378	(unmaskedOnly not or:[maskColor not]) ifTrue:[
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	379	self fillFramedRectangle: (origin extent: (runW@magY)).
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	380	maskColor ifTrue:[
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	381	self xoring: [self fillRectangle: (origin + sizeOfMaskPoint extent: sizeOfMaskPoint)]
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	382	]
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	383	].
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	384	runW := 0.
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	385	].
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	386	x0 := xx.
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	387	lastY := yy.
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	388	].
1160 5d89296c4b04 * empty log message * Claus Gittinger <cg@exept.de> parents: 1158 diff changeset	389
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	390	color ~= lastColor ifTrue:[
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	391	runW ~~ 0 ifTrue:[
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	392	\|origin\|
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	393	origin := (x0 * magX + margin)@(yy * magY + margin).
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	394	(unmaskedOnly not or:[maskColor not]) ifTrue:[
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	395	self fillFramedRectangle: (origin extent: (runW@magY)).
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	396	maskColor ifTrue:[
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	397	self xoring: [self fillRectangle: (origin + sizeOfMaskPoint extent: sizeOfMaskPoint)]
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	398	].
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	399	].
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	400	runW := 0.
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	401	].
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	402
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	403	lastColor := color.
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	404	useNearestColor ifTrue:[
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	405	lastColor := lastColor nearestOn:device
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	406	].
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	407	self paint:lastColor.
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	408	mask notNil ifTrue:[
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	409	maskColor := false.
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	410	(mask pixelAtX:xx y:yy) == 0 ifTrue:[
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	411	unmaskedOnly ifFalse:[
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	412	self paint: (lastColor := self viewBackground).
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	413	].
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	414	maskColor := true.
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	415	].
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	416	lastColor := nil.
1160 5d89296c4b04 * empty log message * Claus Gittinger <cg@exept.de> parents: 1158 diff changeset	417	].
5d89296c4b04 * empty log message * Claus Gittinger <cg@exept.de> parents: 1158 diff changeset	418	runW := 0.
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	419	x0 := xx.
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	420	].
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	421	runW := runW + magX
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	422	].
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	423
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	424	runW ~~ 0 ifTrue:[
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	425	\|origin\|
624 d98fe4700fc2 checkin from browser tz parents: 606 diff changeset	426
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	427	origin := (x0 * magX + margin)@(lastY * magY + margin).
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	428	(unmaskedOnly not or:[maskColor not]) ifTrue:[
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	429	self fillFramedRectangle: (origin extent: runW@magY).
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	430	maskColor ifTrue:[
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	431	self xoring:[
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	432	self fillRectangle: (origin + sizeOfMaskPoint extent: sizeOfMaskPoint)
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	433	]
1180 dcb9dede5128 checkin from browser Claus Gittinger <cg@exept.de> parents: 1160 diff changeset	434	].
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	435	]
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	436	].
1037 3735af6b5b24 remmeber scrollOffset Claus Gittinger <cg@exept.de> parents: 1036 diff changeset	437
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	438	"Created: / 18.5.1999 / 20:13:39 / cg"
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	439	"Modified: / 18.5.1999 / 20:36:20 / cg"
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	440	!
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	441
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	442	redrawX:x y:y width:w height:h
636 d53428252193 revised version tz parents: 633 diff changeset	443
1967 1b4524f3105f checkin from browser Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	444	\|ih iw xI yI devImage imgWidth imgHeight\|
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	445
1037 3735af6b5b24 remmeber scrollOffset Claus Gittinger <cg@exept.de> parents: 1036 diff changeset	446	image isNil ifTrue:[^self].
662 61b7601829ea with modal support tz parents: 636 diff changeset	447
1037 3735af6b5b24 remmeber scrollOffset Claus Gittinger <cg@exept.de> parents: 1036 diff changeset	448	magnification = (1@1) ifTrue: [
1510 fd0cd6065dc6 catch image conversion errors. Claus Gittinger <cg@exept.de> parents: 1449 diff changeset	449	Object errorSignal handle:[:ex \|
2092 36ef3048dbf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2089 diff changeset	450	Transcript showCR:'cannot convert image: ', ex description.
1510 fd0cd6065dc6 catch image conversion errors. Claus Gittinger <cg@exept.de> parents: 1449 diff changeset	451	] do:[
1763 7d6d64622ee4 change & updates fixed (monochrome bitmaps) Claus Gittinger <cg@exept.de> parents: 1706 diff changeset	452	devImage := image onDevice:device.
7d6d64622ee4 change & updates fixed (monochrome bitmaps) Claus Gittinger <cg@exept.de> parents: 1706 diff changeset	453	devImage ~~ image ifTrue:[
7d6d64622ee4 change & updates fixed (monochrome bitmaps) Claus Gittinger <cg@exept.de> parents: 1706 diff changeset	454	image := devImage.
1764 3dd553f8d9f0 oops - leftover halts Claus Gittinger <cg@exept.de> parents: 1763 diff changeset	455	self changed:#image.
1763 7d6d64622ee4 change & updates fixed (monochrome bitmaps) Claus Gittinger <cg@exept.de> parents: 1706 diff changeset	456	].
1510 fd0cd6065dc6 catch image conversion errors. Claus Gittinger <cg@exept.de> parents: 1449 diff changeset	457	].
fd0cd6065dc6 catch image conversion errors. Claus Gittinger <cg@exept.de> parents: 1449 diff changeset	458	image device == device ifTrue:[
fd0cd6065dc6 catch image conversion errors. Claus Gittinger <cg@exept.de> parents: 1449 diff changeset	459	^ super redrawX:x y:y width:w height:h
fd0cd6065dc6 catch image conversion errors. Claus Gittinger <cg@exept.de> parents: 1449 diff changeset	460	].
1037 3735af6b5b24 remmeber scrollOffset Claus Gittinger <cg@exept.de> parents: 1036 diff changeset	461	].
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	462
1449 e5852c20c18a * empty log message * Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	463	self clippingRectangle: (x@y extent:w@h).
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	464
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	465	self redrawImageX:x y:y width:w height:h.
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	466
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	467	"/ right of image ?
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	468	adjust == #center ifTrue:
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	469	[
1449 e5852c20c18a * empty log message * Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	470	xI := (width - ih) // 2 - margin.
e5852c20c18a * empty log message * Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	471	yI := (height - iw) // 2 - margin.
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	472	]
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	473	ifFalse:
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	474	[
1449 e5852c20c18a * empty log message * Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	475	xI := yI := margin
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	476	].
1967 1b4524f3105f checkin from browser Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	477
1b4524f3105f checkin from browser Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	478	imgWidth := image width.
1b4524f3105f checkin from browser Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	479	imgHeight := image height.
1b4524f3105f checkin from browser Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	480
1b4524f3105f checkin from browser Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	481	(x + w - 1) > (xI + (magnification x * imgWidth)) ifTrue:
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	482	[
1967 1b4524f3105f checkin from browser Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	483	self clearRectangleX:(xI + (magnification x * imgWidth))
1449 e5852c20c18a * empty log message * Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	484	y:y
1967 1b4524f3105f checkin from browser Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	485	width:(x + w - (magnification x * imgWidth) - xI)
1449 e5852c20c18a * empty log message * Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	486	height:h
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	487	].
1967 1b4524f3105f checkin from browser Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	488	(y + h - 1) > (yI + (magnification y * imgHeight)) ifTrue:
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	489	[
1449 e5852c20c18a * empty log message * Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	490	self clearRectangleX:margin
1967 1b4524f3105f checkin from browser Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	491	y:(yI + (magnification y * imgHeight))
1449 e5852c20c18a * empty log message * Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	492	width:w
1967 1b4524f3105f checkin from browser Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	493	height:(y + h - (magnification y * imgHeight) - yI)
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	494	].
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	495	self drawFrame.
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	496	self clippingRectangle: nil.
1037 3735af6b5b24 remmeber scrollOffset Claus Gittinger <cg@exept.de> parents: 1036 diff changeset	497
3735af6b5b24 remmeber scrollOffset Claus Gittinger <cg@exept.de> parents: 1036 diff changeset	498	"Modified: / 31.7.1998 / 02:22:45 / cg"
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	499	! !
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	500
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	501	!ImageEditView methodsFor:'edit modes'!
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	502
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	503	editMode
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	504
1106 57c41df67ae5 support radio buttons of the ImageEditor tz parents: 1104 diff changeset	505	^editMode
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	506	!
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	507
2440 a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	508	editMode: anEditModeSymbol
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	509
2440 a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	510	editMode := anEditModeSymbol
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	511	!
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	512
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	513	mouseKeyColorMode
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	514
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	515	^mouseKeyColorMode printString
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	516	!
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	517
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	518	mouseKeyColorMode:aMode
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	519
1106 57c41df67ae5 support radio buttons of the ImageEditor tz parents: 1104 diff changeset	520	mouseKeyColorMode := aMode
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	521	! !
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	522
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	523	!ImageEditView methodsFor:'event handling'!
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	524
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	525	buttonMotion:state x:x y:y
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	526
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	527	\|p\|
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	528
2072 abd4e246f393 care for negative pos in buttonMotion (win32 klusge) Claus Gittinger <cg@exept.de> parents: 2053 diff changeset	529	(x < 0 or:[y < 0]) ifTrue:[
abd4e246f393 care for negative pos in buttonMotion (win32 klusge) Claus Gittinger <cg@exept.de> parents: 2053 diff changeset	530	^ self
abd4e246f393 care for negative pos in buttonMotion (win32 klusge) Claus Gittinger <cg@exept.de> parents: 2053 diff changeset	531	].
abd4e246f393 care for negative pos in buttonMotion (win32 klusge) Claus Gittinger <cg@exept.de> parents: 2053 diff changeset	532
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	533	p := x@y.
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	534
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	535	state ~~ 0 ifTrue:[
1245 68581e6aaf23 code cleanup Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	536	("self selectedColor notNil" true
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	537	and:[(self imageContainsPoint:p)
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	538	and:[editMode == #point]])
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	539	ifTrue:[
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	540	self pointAt:p.
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	541	^ self
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	542	].
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	543	self drawCursorAt:p.
1011 325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	544	] ifFalse:[
2092 36ef3048dbf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2089 diff changeset	545	"/ Transcript showCR:'m'.
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	546	self drawCursorAt:p.
2508 ffb079bfe8b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2507 diff changeset	547	self inPasteMode ifTrue: [
2092 36ef3048dbf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2089 diff changeset	548	"/ Transcript show:'p '; showCR:(self imageContainsPastePoint:p).
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	549	("self selectedColor notNil" true and: [self imageContainsPastePoint:p])
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	550	ifTrue: [self drawPasteRectangleAt:p]
1245 68581e6aaf23 code cleanup Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	551	ifFalse: [self cursor:Cursor stop. self releasePasteDrawing]
68581e6aaf23 code cleanup Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	552	]
686 33833bcbb5cd some cleans tz parents: 678 diff changeset	553	]
1019 e68414752bc9 only change the cursor for myself. Claus Gittinger <cg@exept.de> parents: 1013 diff changeset	554
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	555	"Modified: / 10.2.2000 / 22:03:18 / cg"
624 d98fe4700fc2 checkin from browser tz parents: 606 diff changeset	556	!
255 1dfa8deddaef checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	557
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	558	buttonPress:button x:x y:y
2277 012c57905267 allow pinging the mask Claus Gittinger <cg@exept.de> parents: 2240 diff changeset	559	\|p mouseButtonColorToolBar clr masked\|
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	560
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	561	p := x@y.
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	562
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	563	self drawCursorAt:p.
1011 325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	564
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	565	("self selectedColor notNil" true
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	566	and: [self imageContainsPoint:p])
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	567	ifTrue:[
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	568	self sensor shiftDown ifTrue:[
2277 012c57905267 allow pinging the mask Claus Gittinger <cg@exept.de> parents: 2240 diff changeset	569	(image maskAt:(p // magnification)) == 0 ifTrue:[
012c57905267 allow pinging the mask Claus Gittinger <cg@exept.de> parents: 2240 diff changeset	570	masked := true.
012c57905267 allow pinging the mask Claus Gittinger <cg@exept.de> parents: 2240 diff changeset	571	] ifFalse:[
012c57905267 allow pinging the mask Claus Gittinger <cg@exept.de> parents: 2240 diff changeset	572	masked := false.
012c57905267 allow pinging the mask Claus Gittinger <cg@exept.de> parents: 2240 diff changeset	573	clr := image colorAt:(p // magnification).
012c57905267 allow pinging the mask Claus Gittinger <cg@exept.de> parents: 2240 diff changeset	574	].
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	575	pickedColorHolder notNil ifTrue:[
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	576	"/ select the color under the cursor, place it into the
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	577	"/ pickedColorHolder/
2009 4f556ff9fec5 pick with SHIFT-click in the mag-view Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	578	pickedColorHolder value:clr.
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	579	].
2009 4f556ff9fec5 pick with SHIFT-click in the mag-view Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	580	self selectedColor:clr.
2277 012c57905267 allow pinging the mask Claus Gittinger <cg@exept.de> parents: 2240 diff changeset	581	masked ifTrue:[self selectedColorIndex:nil].
2009 4f556ff9fec5 pick with SHIFT-click in the mag-view Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	582	self changed:#selectedColor with:clr.
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	583	] ifFalse:[
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	584	mouseKeyColorMode := button.
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	585	self makeUndo.
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	586
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	587	"/ "/ cg: what a kludge - please change to use a valueHolder,
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	588	"/ "/ which gets the information ...
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	589	"/ mouseButtonColorToolBar := masterApplication builder componentAt: #MouseButtonColorToolBar.
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	590	"/ mouseButtonColorToolBar notNil ifTrue:[
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	591	"/ (mouseButtonColorToolBar itemAt: mouseKeyColorMode) toggleIndication.
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	592	"/ mouseButtonColorToolBar do: [:i\| i updateIndicators].
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	593	"/ ].
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	594
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	595	clickInfoCallBack notNil ifTrue:[
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	596	"/ still a kludge, but less ugly ...
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	597	clickInfoCallBack value:button value:p
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	598	].
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	599	"/ editMode is something like #point, #rectangle etc.
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	600	self perform: (editMode, 'At:') asSymbol with:p
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	601	]
686 33833bcbb5cd some cleans tz parents: 678 diff changeset	602	]
995 cd84d6f8c449 several undos tz parents: 994 diff changeset	603
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	604	"Modified: / 10.2.2000 / 23:11:33 / cg"
632 be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	605	!
be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	606
994 5727c2484ecd bugs fixed in undo/mask and point painting/preview and pasting tz parents: 877 diff changeset	607	buttonRelease:button x:x y:y
5727c2484ecd bugs fixed in undo/mask and point painting/preview and pasting tz parents: 877 diff changeset	608
5727c2484ecd bugs fixed in undo/mask and point painting/preview and pasting tz parents: 877 diff changeset	609	self drawCursorAt: x@y.
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	610
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	611	("self selectedColor notNil" true and: [self imageContainsPoint: x@y])
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	612	ifTrue: [
1763 7d6d64622ee4 change & updates fixed (monochrome bitmaps) Claus Gittinger <cg@exept.de> parents: 1706 diff changeset	613	image release.
1011 325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	614
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	615	"/ "/ cg: what a kludge - please change to use a valueHolder,
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	616	"/ "/ which gets the information ...
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	617	"/ masterApplication imagePreView invalidate.
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	618
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	619	"/ cg: still a kludge - but less ugly
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	620	self changed:#subImageIn with:(image bounds).
994 5727c2484ecd bugs fixed in undo/mask and point painting/preview and pasting tz parents: 877 diff changeset	621	]
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	622
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	623	"Modified: / 10.2.2000 / 23:41:41 / cg"
994 5727c2484ecd bugs fixed in undo/mask and point painting/preview and pasting tz parents: 877 diff changeset	624	!
5727c2484ecd bugs fixed in undo/mask and point painting/preview and pasting tz parents: 877 diff changeset	625
2508 ffb079bfe8b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2507 diff changeset	626	inPasteMode
ffb079bfe8b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2507 diff changeset	627	^ (editMode startsWith:#paste)
ffb079bfe8b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2507 diff changeset	628	!
ffb079bfe8b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2507 diff changeset	629
686 33833bcbb5cd some cleans tz parents: 678 diff changeset	630	pointerLeave:state
33833bcbb5cd some cleans tz parents: 678 diff changeset	631
688 e1c30adb37bf updates coord info label while defining boxes tz parents: 686 diff changeset	632	super pointerLeave: state.
686 33833bcbb5cd some cleans tz parents: 678 diff changeset	633
1031 a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	634	self updateImageInfo: self imageInfoString.
1019 e68414752bc9 only change the cursor for myself. Claus Gittinger <cg@exept.de> parents: 1013 diff changeset	635	self cursor:Cursor normal.
995 cd84d6f8c449 several undos tz parents: 994 diff changeset	636
2508 ffb079bfe8b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2507 diff changeset	637	self inPasteMode ifTrue: [
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	638	self releasePasteDrawing
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	639	]
995 cd84d6f8c449 several undos tz parents: 994 diff changeset	640
1031 a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	641	"Modified: / 29.7.1998 / 18:27:42 / cg"
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	642	! !
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	643
636 d53428252193 revised version tz parents: 633 diff changeset	644	!ImageEditView methodsFor:'image editing'!
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	645
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	646	boxAt: aPoint
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	647	"draw a rectangular outline with the currently selected color"
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	648
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	649	\|choosedBox imageBox clr\|
1038 6c0bb03e88a1 no need to invalidate after assign of new image. Claus Gittinger <cg@exept.de> parents: 1037 diff changeset	650
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	651	(clr := self selectedColor) notNil ifTrue:[
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	652	choosedBox := self dragRectangleStartingAt: aPoint emphasis: #box.
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	653	imageBox := choosedBox origin//magnification extent: (choosedBox extent//magnification).
2415 9645c5eae388 change obsolete method call penk parents: 2349 diff changeset	654	image drawRectangle:imageBox withColor:clr.
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	655	image restored.
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	656	self redraw: (choosedBox expandedBy: 1).
1038 6c0bb03e88a1 no need to invalidate after assign of new image. Claus Gittinger <cg@exept.de> parents: 1037 diff changeset	657
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	658	"/ "/ cg: what a kludge - please change to use a valueHolder,
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	659	"/ "/ which gets the information ...
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	660	"/ masterApplication imagePreView redraw: (imageBox expandedBy: 1).
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	661
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	662	"/ cg: still a kludge - but less ugly
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	663	self changed:#subImageIn with:(imageBox expandedBy: 1).
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	664
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	665	self setModified.
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	666	].
441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	667
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	668	"Modified: / 10.2.2000 / 23:42:08 / cg"
632 be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	669	!
be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	670
2756 5a1646996277 * empty log message * Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	671	brightenImage
5a1646996277 * empty log message * Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	672	self makeUndo.
5a1646996277 * empty log message * Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	673	self image: (image copy lightened).
5a1646996277 * empty log message * Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	674	self setModified.
5a1646996277 * empty log message * Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	675	!
5a1646996277 * empty log message * Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	676
632 be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	677	copyAt: aPoint
2440 a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	678	\|choosenBox r box copiedImage\|
1084 87c661e6c333 scroll when dragging out of the view in copy-mode. Claus Gittinger <cg@exept.de> parents: 1060 diff changeset	679
1449 e5852c20c18a * empty log message * Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	680	choosenBox := self dragRectangleStartingAt: aPoint emphasis: #inverseFilledBox.
2440 a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	681	box := choosenBox origin // magnification extent: (choosenBox extent // magnification).
a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	682	copiedImage := image subImageIn: box.
a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	683
2480 6b82ad413d70 added copyToClipboard Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	684	self class copyImageToClipboard:copiedImage.
2440 a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	685
1449 e5852c20c18a * empty log message * Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	686	r := (choosenBox expandedBy:1).
e5852c20c18a * empty log message * Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	687	self redraw:r
632 be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	688
1084 87c661e6c333 scroll when dragging out of the view in copy-mode. Claus Gittinger <cg@exept.de> parents: 1060 diff changeset	689	"Modified: / 21.8.1998 / 20:16:41 / cg"
632 be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	690	!
be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	691
2480 6b82ad413d70 added copyToClipboard Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	692	copyImageToClipboard
6b82ad413d70 added copyToClipboard Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	693	self class copyImageToClipboard:image.
6b82ad413d70 added copyToClipboard Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	694	!
6b82ad413d70 added copyToClipboard Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	695
1228 0aae4f7389ca renamed - crob -> crop Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	696	cropLeft:doLeft right:doRight top:doTop bottom:doBottom
1121 af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	697	\|yMinNew yMaxNew xMinNew xMaxNew
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	698	pix stillCrobbing xMax yMax x y\|
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	699
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	700	xMax := image width - 1.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	701	yMax := image height - 1.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	702
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	703	xMinNew := 0.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	704	doLeft ifTrue:[
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	705	pix := image pixelAtX:xMinNew y:0.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	706	stillCrobbing := true.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	707	[stillCrobbing] whileTrue:[
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	708	0 to:yMax do:[:y \|
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	709	(image pixelAtX:xMinNew y:y) ~~ pix ifTrue:[
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	710	stillCrobbing := false
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	711	]
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	712	].
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	713	stillCrobbing ifTrue:[
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	714	xMinNew := xMinNew + 1.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	715	xMinNew >= image width ifTrue:[
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	716	self warn:'Image is all the same color - no crob.'.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	717	^ self
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	718	]
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	719	].
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	720	].
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	721	].
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	722
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	723	xMaxNew := xMax.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	724	doRight ifTrue:[
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	725	stillCrobbing := true.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	726	pix := image pixelAtX:xMaxNew y:0.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	727	[stillCrobbing] whileTrue:[
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	728	0 to:yMax do:[:y \|
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	729	(image pixelAtX:xMaxNew y:y) ~~ pix ifTrue:[
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	730	stillCrobbing := false
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	731	]
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	732	].
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	733	stillCrobbing ifTrue:[
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	734	xMaxNew := xMaxNew - 1.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	735	].
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	736	].
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	737	].
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	738
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	739	yMinNew := 0.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	740	doTop ifTrue:[
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	741	pix := image pixelAtX:xMinNew y:yMinNew.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	742	stillCrobbing := true.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	743	[stillCrobbing] whileTrue:[
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	744	xMinNew to:xMaxNew do:[:x \|
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	745	(image pixelAtX:x y:yMinNew) ~~ pix ifTrue:[
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	746	stillCrobbing := false
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	747	]
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	748	].
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	749	stillCrobbing ifTrue:[
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	750	yMinNew := yMinNew + 1.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	751	].
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	752	].
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	753	].
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	754
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	755	yMaxNew := yMax.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	756	doRight ifTrue:[
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	757	stillCrobbing := true.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	758	pix := image pixelAtX:xMaxNew y:yMaxNew.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	759	[stillCrobbing] whileTrue:[
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	760	xMinNew to:xMaxNew do:[:x \|
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	761	(image pixelAtX:x y:yMaxNew) ~~ pix ifTrue:[
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	762	stillCrobbing := false
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	763	]
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	764	].
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	765	stillCrobbing ifTrue:[
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	766	yMaxNew := yMaxNew - 1.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	767	].
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	768	].
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	769	].
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	770
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	771	(xMinNew == 0
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	772	and:[xMaxNew == (image width - 1)
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	773	and:[yMinNew == 0
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	774	and:[yMaxNew == (image height - 1)]]]) ifTrue:[
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	775	self warn:'No border found - no crob.'.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	776	^ self
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	777	].
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	778
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	779	"/ self warn:'extract subImage '
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	780	"/ , (xMinNew @ yMinNew) printString
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	781	"/ , ' -> '
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	782	"/ , (xMaxNew @ yMaxNew) printString.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	783
2006 99e13c98314c checkin from browser Claus Gittinger <cg@exept.de> parents: 1994 diff changeset	784	self makeUndo.
1121 af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	785	self
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	786	makeSubImageX:xMinNew y:yMinNew
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	787	width:(xMaxNew - xMinNew + 1)
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	788	height:(yMaxNew - yMinNew + 1)
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	789
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	790	"Created: / 7.9.1998 / 14:25:52 / cg"
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	791	"Modified: / 7.9.1998 / 16:35:35 / cg"
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	792	!
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	793
2756 5a1646996277 * empty log message * Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	794	darkenImage
5a1646996277 * empty log message * Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	795	self makeUndo.
5a1646996277 * empty log message * Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	796	self image: (image copy darkened).
5a1646996277 * empty log message * Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	797	self setModified.
5a1646996277 * empty log message * Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	798	!
5a1646996277 * empty log message * Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	799
632 be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	800	fillAt: aPoint
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	801	"perform a flood-fill with the currently selected color"
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	802
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	803	windowGroup withExecuteCursorDo:[
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	804	\|filledPoints clr\|
1002 5d2e4c03a78e grid magnification can be changed tz parents: 996 diff changeset	805
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	806	(clr := self selectedColor) notNil ifTrue:[
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	807	self updateActivity:'Flood filling - press CTRL-y to abort ...'.
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	808	[
2349 4cf7b4f1345e * empty log message * Claus Gittinger <cg@exept.de> parents: 2338 diff changeset	809	image floodFillAt: aPoint//magnification withColor:clr.
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	810	image restored.
1038 6c0bb03e88a1 no need to invalidate after assign of new image. Claus Gittinger <cg@exept.de> parents: 1037 diff changeset	811
2349 4cf7b4f1345e * empty log message * Claus Gittinger <cg@exept.de> parents: 2338 diff changeset	812	self invalidate.
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	813	self changed:#subImageIn with:(image bounds).
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	814
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	815	self setModified.
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	816	] valueOnUnwindDo:[
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	817	self updateActivity:'Flood fill aborted.'
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	818	].
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	819	].
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	820	self updateActivity:''
632 be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	821	]
1031 a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	822
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	823	"Modified: / 10.2.2000 / 23:40:58 / cg"
632 be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	824	!
be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	825
be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	826	filledBoxAt: aPoint
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	827	"fill a rectangular area with the currently selected color"
632 be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	828
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	829	\|choosedBox imageBox clr\|
1038 6c0bb03e88a1 no need to invalidate after assign of new image. Claus Gittinger <cg@exept.de> parents: 1037 diff changeset	830
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	831	(clr := self selectedColor) notNil ifTrue:[
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	832	choosedBox := self dragRectangleStartingAt: aPoint emphasis: #filledBox.
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	833	imageBox := choosedBox origin//magnification extent: (choosedBox extent//magnification).
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	834	image fillRectangle:imageBox withColor:clr.
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	835	image restored.
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	836	self redraw: (choosedBox expandedBy: 1).
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	837
5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	838	self changed:#subImageIn with:(imageBox expandedBy: 1).
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	839	self setModified.
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	840	]
441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	841
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	842	"Modified: / 10.2.2000 / 23:37:04 / cg"
632 be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	843	!
be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	844
636 d53428252193 revised version tz parents: 633 diff changeset	845	flipHorizontal
d53428252193 revised version tz parents: 633 diff changeset	846
995 cd84d6f8c449 several undos tz parents: 994 diff changeset	847	self makeUndo.
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	848	self image: image copy flipHorizontal.
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	849	self setModified.
636 d53428252193 revised version tz parents: 633 diff changeset	850	!
d53428252193 revised version tz parents: 633 diff changeset	851
d53428252193 revised version tz parents: 633 diff changeset	852	flipVertical
d53428252193 revised version tz parents: 633 diff changeset	853
995 cd84d6f8c449 several undos tz parents: 994 diff changeset	854	self makeUndo.
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	855	self image: image copy flipVertical.
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	856	self setModified.
636 d53428252193 revised version tz parents: 633 diff changeset	857	!
d53428252193 revised version tz parents: 633 diff changeset	858
1706 a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	859	magnifyImageTo:newSize
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	860	self makeUndo.
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	861	self image: (image magnifiedBy: newSize/image extent).
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	862	self setModified.
636 d53428252193 revised version tz parents: 633 diff changeset	863	!
d53428252193 revised version tz parents: 633 diff changeset	864
1992 3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	865	makeBorderedImageX:newX y:newY width:newWidth height:newHeight
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	866	\|newImage oldWidth oldHeight\|
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	867
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	868	oldWidth := image width.
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	869	oldHeight := image height.
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	870
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	871	newImage := image class width:newWidth height:newHeight depth:image depth.
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	872	newImage photometric:image photometric.
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	873	newImage colorMap:image colorMap copy.
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	874	newImage bits:(ByteArray new:(newImage bytesPerRow * newHeight)).
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	875
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	876	image mask notNil
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	877	ifTrue:[
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	878	\|newMaskImage\|
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	879
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	880	newMaskImage := Depth1Image width:newWidth height:newHeight.
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	881	newMaskImage photometric: image mask photometric.
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	882	newMaskImage colorMap: image mask colorMap copy.
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	883	newMaskImage bits:(ByteArray new: newMaskImage bytesPerRow * newHeight).
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	884	newImage mask: newMaskImage
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	885	].
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	886
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	887	newImage copyFrom:image x:0 y:0 toX:newX y:newY width:oldWidth height:oldHeight.
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	888	self makeUndo.
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	889	self image:newImage.
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	890	self setModified.
1992 3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	891
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	892	"Created: / 7.9.1998 / 13:00:16 / cg"
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	893	"Modified: / 7.9.1998 / 14:15:32 / cg"
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	894	!
3aa650794ab4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	895
2168 d531fe16bae2 more colormap operations Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	896	makeBrighter
d531fe16bae2 more colormap operations Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	897	^ self makeNewColorMapByMapping:[:clr \| clr lightened].
d531fe16bae2 more colormap operations Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	898	!
d531fe16bae2 more colormap operations Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	899
d531fe16bae2 more colormap operations Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	900	makeDarker
d531fe16bae2 more colormap operations Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	901	^ self makeNewColorMapByMapping:[:clr \| clr darkened].
d531fe16bae2 more colormap operations Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	902	!
d531fe16bae2 more colormap operations Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	903
1886 e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	904	makeGrayScale
2168 d531fe16bae2 more colormap operations Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	905	^ self makeNewColorMapByMapping:[:clr \| Color brightness:(clr brightness)].
d531fe16bae2 more colormap operations Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	906	!
d531fe16bae2 more colormap operations Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	907
d531fe16bae2 more colormap operations Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	908	makeInverse
d531fe16bae2 more colormap operations Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	909	^ self makeNewColorMapByMapping:[:clr \|
d531fe16bae2 more colormap operations Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	910	Color red:(100-clr red) green:(100-clr green) blue:(100-clr blue)].
d531fe16bae2 more colormap operations Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	911	!
d531fe16bae2 more colormap operations Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	912
d531fe16bae2 more colormap operations Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	913	makeNewColorMapByMapping:functionOfColor
2566 d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	914	\|xMax yMax map revMap anyChange
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	915	newColors newColorArray newImage pixelAction\|
2168 d531fe16bae2 more colormap operations Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	916
1886 e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	917	anyChange := false.
e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	918
e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	919	xMax := image width - 1.
e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	920	yMax := image height - 1.
e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	921
e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	922	newImage := image class width:image width height:image height depth:image depth.
e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	923	newImage photometric:image photometric.
2489 f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	924	"/ newImage colorMap:(image colorMap copy).
1886 e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	925	newImage bits:(ByteArray new:(image bits size)).
e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	926	newImage mask:(image mask copy).
e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	927
2566 d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	928	image colorMap notNil ifTrue:[
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	929	newColors := Set new.
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	930	newColorArray := OrderedCollection new.
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	931	map := Array new:256.
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	932	revMap := OrderedCollection new.
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	933
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	934	pixelAction :=
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	935	[:x :y \|
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	936	\|pix n_pix clr n_clr\|
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	937
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	938	pix := image pixelAtX:x y:y.
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	939	(n_pix := map at:pix+1) isNil ifTrue:[
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	940	clr := image colorAtX:x y:y.
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	941	n_clr := functionOfColor value:clr.
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	942	(newColors includes:n_clr) ifFalse:[
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	943	newColors add:n_clr.
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	944	newColorArray add:n_clr.
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	945	revMap add:pix.
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	946	map at:pix+1 put:(n_pix := revMap size - 1).
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	947	] ifTrue:[
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	948	"/ mhmh - multiple pixels mapped to the same color
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	949	n_pix := (newColorArray indexOf:n_clr) - 1.
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	950	map at:pix+1 put:n_pix.
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	951	]
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	952	].
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	953	newImage pixelAtX:x y:y put:n_pix.
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	954	].
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	955	] ifFalse:[
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	956	pixelAction :=
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	957	[:x :y \|
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	958
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	959	\|clr n_clr\|
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	960
1886 e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	961	clr := image colorAtX:x y:y.
2168 d531fe16bae2 more colormap operations Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	962	n_clr := functionOfColor value:clr.
2566 d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	963	newImage colorAtX:x y:y put:n_clr.
1886 e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	964	].
2566 d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	965	].
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	966
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	967	0 to:yMax do:[:y \|
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	968	0 to:xMax do:[:x \|
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	969	pixelAction value:x value:y
1886 e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	970	]
e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	971	].
e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	972
2566 d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	973	image colorMap notNil ifTrue:[
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	974	newImage colorMap:(MappedPalette withColors:newColorArray).
d0894c5f6d4d allow image processing of trueColor images Claus Gittinger <cg@exept.de> parents: 2556 diff changeset	975	].
1886 e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	976	self makeUndo.
e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	977	self image:newImage.
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	978	self setModified.
1886 e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	979	^ true
e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	980	!
e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	981
1121 af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	982	makeSubImageX:oldX y:oldY width:newWidth height:newHeight
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	983	\|newImage\|
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	984
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	985	newImage := image class width:newWidth height:newHeight depth:image depth.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	986	newImage photometric:image photometric.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	987	newImage colorMap:image colorMap copy.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	988	newImage bits:(ByteArray new:(newImage bytesPerRow * newHeight)).
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	989
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	990	image mask notNil
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	991	ifTrue:[
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	992	\|newMaskImage\|
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	993
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	994	newMaskImage := Depth1Image width:newWidth height:newHeight.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	995	newMaskImage photometric: image mask photometric.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	996	newMaskImage colorMap: image mask colorMap copy.
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	997	newMaskImage bits:(ByteArray new: newMaskImage bytesPerRow * newHeight).
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	998	newImage mask: newMaskImage
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	999	].
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	1000
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	1001	newImage copyFrom:image x:oldX y:oldY toX:0 y:0 width:newWidth height:newHeight.
2544 bcae3dbd3ccd do not scroll, when crobbing Claus Gittinger <cg@exept.de> parents: 2534 diff changeset	1002	self image:newImage scroll:false.
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1003	self setModified.
1121 af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	1004
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	1005	"Created: / 7.9.1998 / 13:00:16 / cg"
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	1006	"Modified: / 7.9.1998 / 14:15:32 / cg"
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	1007	!
af09c616fb7b added crob operations. Claus Gittinger <cg@exept.de> parents: 1116 diff changeset	1008
636 d53428252193 revised version tz parents: 633 diff changeset	1009	negativeImage
d53428252193 revised version tz parents: 633 diff changeset	1010
995 cd84d6f8c449 several undos tz parents: 994 diff changeset	1011	self makeUndo.
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1012	self image: (image copy bits:(image bits invert)).
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1013	self setModified.
636 d53428252193 revised version tz parents: 633 diff changeset	1014	!
d53428252193 revised version tz parents: 633 diff changeset	1015
d53428252193 revised version tz parents: 633 diff changeset	1016	pasteAt: aPoint
1011 325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1017	"paste the image in the clipboard at aPoint"
325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1018
2135 09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1019	self pasteAt:aPoint mode:nil.
1011 325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1020	!
325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1021
2135 09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1022	pasteAt: aPoint mode:modeSymbol
1011 325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1023	"paste the image in the clipboard at aPoint"
636 d53428252193 revised version tz parents: 633 diff changeset	1024
1986 630db3277f10 support pasing 24bit rgb image into an 8-bit palette image Claus Gittinger <cg@exept.de> parents: 1980 diff changeset	1025	\|answer anyColorMissing choosedBox imagePoint imgX imgY copiedImage imageBox newColorMap
2764 3302aab746d2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2756 diff changeset	1026	existingColors newColors allColors currentColorMap newColormap anyColorAdded oldColorMap\|
1888 ef622d292093 colormap conversion Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	1027
2440 a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	1028	Object errorSignal handle:[:ex\|
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1029	ex signal == Image unrepresentableColorSignal ifFalse:[
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1030	ex reject
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1031	].
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1032	self undo.
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1033	self warn: 'Paste failed !!\Increasing the images depth might help.' withCRs.
1823 d11286b90d3b paste mask Claus Gittinger <cg@exept.de> parents: 1781 diff changeset	1034	] do: [
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1035	windowGroup withExecuteCursorDo:[
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1036	choosedBox := self dragRectangleStartingAt: aPoint emphasis: #inverseFilledBox.
1011 325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1037
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1038	imagePoint := choosedBox origin//magnification.
1011 325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1039
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1040	copiedImage := Clipboard copy.
1987 eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1041
2440 a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	1042	true "/ image photometric == #palette
1888 ef622d292093 colormap conversion Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	1043	ifTrue:[
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1044	"/ for all colors in the pasted image,
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1045	"/ check, if its in the colormap of the
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1046	"/ target image.
995 cd84d6f8c449 several undos tz parents: 994 diff changeset	1047
2764 3302aab746d2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2756 diff changeset	1048	anyColorMissing := anyColorAdded := false.
3302aab746d2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2756 diff changeset	1049	oldColorMap := image colorMap.
3302aab746d2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2756 diff changeset	1050	oldColorMap notNil ifTrue:[
3302aab746d2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2756 diff changeset	1051	newColorMap := oldColorMap asOrderedCollection.
1957 9a4347986d96 paste with non-colormap image (i.e. truecolor). Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	1052	copiedImage usedValues do:[:pixel \|
2764 3302aab746d2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2756 diff changeset	1053	\|pastedColor \|
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	1054
1957 9a4347986d96 paste with non-colormap image (i.e. truecolor). Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	1055	pastedColor := copiedImage colorFromValue:pixel.
2764 3302aab746d2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2756 diff changeset	1056
3302aab746d2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2756 diff changeset	1057	(newColorMap detect: [:clr\| clr = pastedColor] ifNone: nil) isNil
2440 a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	1058	ifTrue:[
2764 3302aab746d2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2756 diff changeset	1059	newColorMap size < (1 bitShift:image depth) ifTrue:[
1957 9a4347986d96 paste with non-colormap image (i.e. truecolor). Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	1060	"/ add to colormap
9a4347986d96 paste with non-colormap image (i.e. truecolor). Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	1061	newColorMap add:pastedColor.
2764 3302aab746d2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2756 diff changeset	1062	anyColorAdded := true.
1957 9a4347986d96 paste with non-colormap image (i.e. truecolor). Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	1063	"/ Transcript showCR:'adding color:' , pastedColor displayString , ' to targets colorMap'.
9a4347986d96 paste with non-colormap image (i.e. truecolor). Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	1064	] ifFalse:[
9a4347986d96 paste with non-colormap image (i.e. truecolor). Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	1065	"/ Transcript showCR:'color:' , pastedColor displayString , ' not found in targets colorMap'.
1987 eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1066	"/ copiedImage colorMap notNil ifTrue:[
eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1067	"/ copiedImage colorMap at: pixel+1 put: Color black.
eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1068	"/ ].
1957 9a4347986d96 paste with non-colormap image (i.e. truecolor). Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	1069	anyColorMissing := true.
9a4347986d96 paste with non-colormap image (i.e. truecolor). Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	1070	]
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1071	]
1957 9a4347986d96 paste with non-colormap image (i.e. truecolor). Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	1072	].
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1073	].
2764 3302aab746d2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2756 diff changeset	1074
1888 ef622d292093 colormap conversion Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	1075	anyColorMissing ifTrue:[
ef622d292093 colormap conversion Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	1076	answer := Dialog
2172 737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1077	confirmWithCancel:'Some color(s) cannot be represented (colorMap full).\Use nearest or compute colorMap ?' withCRs
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1078	labels:#( 'Cancel' 'New ColorMap' 'Use Nearest' )
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1079	values:#( nil new nearest)
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1080	default:3.
1888 ef622d292093 colormap conversion Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	1081
ef622d292093 colormap conversion Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	1082	answer isNil ifTrue:[^ self].
1986 630db3277f10 support pasing 24bit rgb image into an 8-bit palette image Claus Gittinger <cg@exept.de> parents: 1980 diff changeset	1083
630db3277f10 support pasing 24bit rgb image into an 8-bit palette image Claus Gittinger <cg@exept.de> parents: 1980 diff changeset	1084	currentColorMap := image colorMap.
1987 eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1085	imgX := imagePoint x.
eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1086	imgY := imagePoint y.
1986 630db3277f10 support pasing 24bit rgb image into an 8-bit palette image Claus Gittinger <cg@exept.de> parents: 1980 diff changeset	1087
1888 ef622d292093 colormap conversion Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	1088	answer == #nearest ifTrue:[
ef622d292093 colormap conversion Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	1089	0 to:copiedImage height-1 do:[:y \|
ef622d292093 colormap conversion Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	1090	0 to:copiedImage width-1 do:[:x \|
ef622d292093 colormap conversion Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	1091	\|clr n_clr\|
ef622d292093 colormap conversion Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	1092
1987 eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1093	(copiedImage maskAtX:x y:y) == 0 ifTrue:[
eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1094	image mask isNil ifTrue:[
eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1095	image createMask.
eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1096	].
eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1097	image maskAtX:imgX+x y:imgY+y put:0.
eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1098	] ifFalse:[
2582 5f9a25414195 atX:y: changed to #colorAtX :y: penk parents: 2566 diff changeset	1099	clr := copiedImage colorAtX:x y:y.
1987 eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1100	n_clr := clr nearestIn:currentColorMap.
2582 5f9a25414195 atX:y: changed to #colorAtX :y: penk parents: 2566 diff changeset	1101	image colorAtX:imgX+x y:imgY+y put:n_clr
1987 eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1102	]
1888 ef622d292093 colormap conversion Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	1103	]
ef622d292093 colormap conversion Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	1104	].
1987 eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1105	image restored.
eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1106	self redraw: (imageBox := (imagePoint * magnification extent: (Clipboard extent * magnification)) expandedBy: 1@1).
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1107	self setModified.
1987 eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1108	^ self.
2135 09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1109	].
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1110	answer == #new ifTrue:[
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1111	existingColors := image usedValues asIdentitySet.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1112	newColors := copiedImage usedValues.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1113	allColors := existingColors addAll:newColors.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1114	allColors size > (1 bitShift:image depth) ifTrue:[
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1115	self warn:'Sorry: too many colors - unimplemented function'.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1116	self undo.
1986 630db3277f10 support pasing 24bit rgb image into an 8-bit palette image Claus Gittinger <cg@exept.de> parents: 1980 diff changeset	1117	^ self.
630db3277f10 support pasing 24bit rgb image into an 8-bit palette image Claus Gittinger <cg@exept.de> parents: 1980 diff changeset	1118	].
2135 09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1119
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1120	newColormap := OrderedCollection new.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1121	newColormap addAll:image usedColors.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1122	newColormap addAll:copiedImage usedColors.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1123	"/ translate image to use new colorMap...
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1124
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1125	"/ translate image to use new colors ...
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1126	0 to:image height-1 do:[:y \|
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1127	0 to:image width-1 do:[:x \|
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1128	\|clr n_idx\|
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1129
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1130	(image maskAtX:x y:y) == 1 ifTrue:[
2582 5f9a25414195 atX:y: changed to #colorAtX :y: penk parents: 2566 diff changeset	1131	clr := image colorAtX:x y:y.
2135 09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1132	n_idx := newColormap indexOf:clr.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1133	image pixelAtX:x y:y put:n_idx-1.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1134	]
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1135	]
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1136	].
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1137	image colorMap:newColormap.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1138	currentColorMap := newColormap.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1139
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1140	"/ paste new image...
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1141	0 to:copiedImage height-1 do:[:y \|
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1142	0 to:copiedImage width-1 do:[:x \|
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1143	\|clr idx\|
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1144
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1145	(copiedImage maskAtX:x y:y) == 1
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1146	ifTrue:[
2582 5f9a25414195 atX:y: changed to #colorAtX :y: penk parents: 2566 diff changeset	1147	clr := copiedImage colorAtX:x y:y.
2135 09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1148	idx := currentColorMap indexOf:clr.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1149	idx == 0 ifTrue:[
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1150	currentColorMap add:clr.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1151	idx := currentColorMap size.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1152	idx > (1 bitShift:image depth) ifTrue:[
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1153	self warn:'Sorry: too many colors'.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1154	self undo.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1155	^ self.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1156	].
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1157	].
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1158	image pixelAtX:imgX+x y:imgY+y put:idx-1.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1159	image maskAtX:imgX+x y:imgY+y put:1.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1160	]
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1161	]
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1162	].
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1163	image restored.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1164	self redraw: (imageBox := (imagePoint * magnification extent: (Clipboard extent * magnification)) expandedBy: 1@1).
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1165	self setModified.
1888 ef622d292093 colormap conversion Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	1166	^ self.
ef622d292093 colormap conversion Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	1167	].
2135 09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1168	self warn:'Sorry: unimplemented function'.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1169	self undo.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1170	^ self.
1888 ef622d292093 colormap conversion Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	1171	].
2764 3302aab746d2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2756 diff changeset	1172	anyColorAdded ifTrue:[
2490 62230519175a slowly getting rid of the Colormap class Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1173	image colorMap:(MappedPalette withColors:newColorMap).
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1174	].
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1175	].
1011 325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1176
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1177	copiedImage := image class fromImage: copiedImage.
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	1178	(newColorMap isNil
2135 09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1179	and:[modeSymbol isNil
1987 eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1180	and:[copiedImage mask isNil] ]) ifTrue:[
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	1181	"/ use images copy functionality
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	1182	"/ however, this copies the mask as well,
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	1183	"/ which is not useful here
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1184	image copyFrom: copiedImage x:0 y:0 toX: imagePoint x y: imagePoint y width: copiedImage width height: copiedImage height.
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1185	] ifFalse:[
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1186	imgX := imagePoint x.
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1187	imgY := imagePoint y.
1028 4dfe1c6cbc48 fixed paste-drag display (when scrolled) Claus Gittinger <cg@exept.de> parents: 1027 diff changeset	1188
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1189	0 to:copiedImage height-1 do:[:y \|
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1190	0 to:copiedImage width-1 do:[:x \|
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1191	\|wasMasked newMasked dstX dstY oldColor\|
1011 325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1192
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1193	dstX := imgX + x.
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1194	dstY := imgY + y.
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1195	wasMasked := (image maskAtX:dstX y:dstY) == 0.
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1196	newMasked := (copiedImage maskAtX:x y:y) == 0.
994 5727c2484ecd bugs fixed in undo/mask and point painting/preview and pasting tz parents: 877 diff changeset	1197
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1198	"/ with modeUnder,
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1199	"/ only replace, if its either unmasked,
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1200	"/ or the current drawing color.
2135 09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1201	(modeSymbol isNil
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1202	or:[wasMasked
2135 09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1203	or:[modeSymbol == #withMask]])
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1204	ifTrue:[
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	1205	newMasked ifFalse:[
2764 3302aab746d2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2756 diff changeset	1206	image colorAtX:dstX y:dstY put:(copiedImage colorAtX:x y:y).
1823 d11286b90d3b paste mask Claus Gittinger <cg@exept.de> parents: 1781 diff changeset	1207	wasMasked ifTrue:[
1986 630db3277f10 support pasing 24bit rgb image into an 8-bit palette image Claus Gittinger <cg@exept.de> parents: 1980 diff changeset	1208	image maskAtX:dstX y:dstY put:1
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	1209	].
1823 d11286b90d3b paste mask Claus Gittinger <cg@exept.de> parents: 1781 diff changeset	1210	] ifTrue:[
d11286b90d3b paste mask Claus Gittinger <cg@exept.de> parents: 1781 diff changeset	1211	wasMasked ifFalse:[
2135 09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1212	modeSymbol == #withMask ifTrue:[
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1213	image maskAtX:dstX y:dstY put:0
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1214	]
1823 d11286b90d3b paste mask Claus Gittinger <cg@exept.de> parents: 1781 diff changeset	1215	]
d11286b90d3b paste mask Claus Gittinger <cg@exept.de> parents: 1781 diff changeset	1216	].
1987 eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1217	].
eb9f2f7f1450 paste image Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	1218
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1219	]
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1220	].
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1221	].
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1222	image restored.
0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1223	self redraw: (imageBox := (imagePoint * magnification extent: (Clipboard extent * magnification)) expandedBy: 1@1).
1028 4dfe1c6cbc48 fixed paste-drag display (when scrolled) Claus Gittinger <cg@exept.de> parents: 1027 diff changeset	1224	"/ masterApplication imagePreView redraw: (imageBox expandedBy: 1).
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1225	self setModified.
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1226	]
1028 4dfe1c6cbc48 fixed paste-drag display (when scrolled) Claus Gittinger <cg@exept.de> parents: 1027 diff changeset	1227	]
4dfe1c6cbc48 fixed paste-drag display (when scrolled) Claus Gittinger <cg@exept.de> parents: 1027 diff changeset	1228
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	1229	"Modified: / 18.5.1999 / 20:40:37 / cg"
636 d53428252193 revised version tz parents: 633 diff changeset	1230	!
d53428252193 revised version tz parents: 633 diff changeset	1231
1011 325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1232	pasteUnderAt: aPoint
325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1233	"pasteUnder the image in the clipboard at aPoint.
325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1234	In this mode, only pixels which are not equal to
325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1235	the current color or masked are pasted."
325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1236
2135 09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1237	self pasteAt:aPoint mode:#under.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1238	!
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1239
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1240	pasteWithMaskAt: aPoint
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1241	"paste the image in the clipboard at aPoint.
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1242	In this mode, both the mask and the image pixel are pasted"
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1243
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1244
09782f280a97 added "paste with mask" Claus Gittinger <cg@exept.de> parents: 2092 diff changeset	1245	self pasteAt:aPoint mode:#withMask.
1011 325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1246	!
325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1247
1858 54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1248	performSpecialOperationOn:imageBox withColor:clr
2680 0e335115a3eb * empty log message * Claus Gittinger <cg@exept.de> parents: 2634 diff changeset	1249	\|operation x0 y0 x1 y1 pixelAction requiredColors missingColors answer\|
1858 54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1250
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1251	operation := Dialog
2680 0e335115a3eb * empty log message * Claus Gittinger <cg@exept.de> parents: 2634 diff changeset	1252	choose:(resources string:'Which Operation:')
0e335115a3eb * empty log message * Claus Gittinger <cg@exept.de> parents: 2634 diff changeset	1253	fromList:(resources array:#(
2172 737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1254	'slightly brightened'
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1255	'slightly darkened'
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1256	'brightened'
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1257	'darkened'
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1258	'-'
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1259	'greyed'
1858 54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1260	'grey pattern'
2172 737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1261	'-'
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1262	'reversed'
2680 0e335115a3eb * empty log message * Claus Gittinger <cg@exept.de> parents: 2634 diff changeset	1263	))
2177 340ce04ccc78 * empty log message * Claus Gittinger <cg@exept.de> parents: 2172 diff changeset	1264	values:#(slightlyBrightened slightlyDarkened brightened darkened nil greyed greyPattern nil reversed)
1858 54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1265	lines:6
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1266	cancel:nil.
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1267
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1268	self invalidate.
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1269	self windowGroup processExposeEvents.
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1270
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1271	operation isNil ifTrue:[^ false].
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1272
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1273	x0 := imageBox left.
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1274	y0 := imageBox top.
1861 ba1f1a884ebc * empty log message * Claus Gittinger <cg@exept.de> parents: 1859 diff changeset	1275	x1 := imageBox right - 1.
ba1f1a884ebc * empty log message * Claus Gittinger <cg@exept.de> parents: 1859 diff changeset	1276	y1 := imageBox bottom -1 .
1858 54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1277
2177 340ce04ccc78 * empty log message * Claus Gittinger <cg@exept.de> parents: 2172 diff changeset	1278	operation == #slightlyBrightened ifTrue:[
2172 737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1279	pixelAction := [:x :y :clr \| clr slightlyLightened].
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1280	].
2177 340ce04ccc78 * empty log message * Claus Gittinger <cg@exept.de> parents: 2172 diff changeset	1281	operation == #slightlyDarkened ifTrue:[
2172 737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1282	pixelAction := [:x :y :clr \| clr slightlyDarkened].
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1283	].
2177 340ce04ccc78 * empty log message * Claus Gittinger <cg@exept.de> parents: 2172 diff changeset	1284	operation == #brightened ifTrue:[
2172 737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1285	pixelAction := [:x :y :clr \| clr lightened].
1858 54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1286	].
2177 340ce04ccc78 * empty log message * Claus Gittinger <cg@exept.de> parents: 2172 diff changeset	1287	operation == #darkened ifTrue:[
2172 737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1288	pixelAction := [:x :y :clr \| clr darkened].
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1289	].
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1290	operation == #reversed ifTrue:[
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1291	pixelAction := [:x :y :clr \| Color red:(100-clr red) green:(100-clr green) blue:(100-clr blue) ].
1858 54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1292	].
2177 340ce04ccc78 * empty log message * Claus Gittinger <cg@exept.de> parents: 2172 diff changeset	1293	operation == #greyed ifTrue:[
2172 737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1294	pixelAction := [:x :y :clr \| clr blendWith:Color grey].
1858 54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1295	].
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1296	operation == #greyPattern ifTrue:[
2172 737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1297	pixelAction := [:x :y :clr \| Color grey].
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1298	].
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1299	pixelAction isNil ifTrue:[self halt. ^ false].
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1300
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1301	"/ compute required colors ...
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1302	requiredColors := Set new.
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1303	self image
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1304	colorsFromX:x0 y:y0 toX:x1 y:y1
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1305	do:[:x :y :clr \|
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1306	requiredColors add:(pixelAction value:x value:y value:clr)
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1307	].
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1308
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1309	missingColors := requiredColors select:[:clr \| (image colorMap includes:clr) not].
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1310
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1311	missingColors notEmpty ifTrue:[
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1312	answer := Dialog
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1313	confirmWithCancel:'Some color(s) cannot be represented in the images colorMap.\Use nearest or compute colorMap ?' withCRs
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1314	labels:#( 'Cancel' 'Add to ColorMap' 'Use Nearest')
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1315	values:#( nil add nearest)
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1316	default:3.
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1317	answer isNil ifTrue:[^ false].
2172 737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1318	answer == #add ifTrue:[
2680 0e335115a3eb * empty log message * Claus Gittinger <cg@exept.de> parents: 2634 diff changeset	1319	missingColors size + image colorMap size > (2 raisedTo:image depth) ifTrue:[
0e335115a3eb * empty log message * Claus Gittinger <cg@exept.de> parents: 2634 diff changeset	1320	self warn:'Missing colors cannot be added to images colormap.'.
0e335115a3eb * empty log message * Claus Gittinger <cg@exept.de> parents: 2634 diff changeset	1321	^ false
0e335115a3eb * empty log message * Claus Gittinger <cg@exept.de> parents: 2634 diff changeset	1322	].
2172 737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1323	missingColors do:[:eachColor \|
2680 0e335115a3eb * empty log message * Claus Gittinger <cg@exept.de> parents: 2634 diff changeset	1324	image colorMap add:eachColor
2172 737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1325	].
2680 0e335115a3eb * empty log message * Claus Gittinger <cg@exept.de> parents: 2634 diff changeset	1326	answer := #nearest.
2172 737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1327	].
1858 54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1328	].
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1329
2172 737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1330	"/ now, do it
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1331	self image
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1332	colorsFromX:x0 y:y0 toX:x1 y:y1
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1333	do:[:x :y :clr \|
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1334	\|newClr\|
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1335
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1336	newClr := pixelAction value:x value:y value:clr.
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1337	answer == #nearest ifTrue:[
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1338	newClr := newClr nearestIn:image colorMap
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1339	].
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1340	self image colorAtX:x y:y put:newClr
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1341	].
737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1342
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1343	self setModified.
2172 737d8733fb01 brightemed, darkened, reverse etc. added to operations. Claus Gittinger <cg@exept.de> parents: 2168 diff changeset	1344	^ true.
1858 54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1345	!
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1346
2009 4f556ff9fec5 pick with SHIFT-click in the mag-view Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	1347	pointAt:aPoint
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	1348	"draw a single pixel with the currently selected color"
636 d53428252193 revised version tz parents: 633 diff changeset	1349
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1350	\|imagePoint clr pix\|
796 b68b09ddc62b preview redrawing tz parents: 783 diff changeset	1351
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1352	imagePoint := aPoint // magnification.
1277 8c74c9cc6e22 fixed point-drawing Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	1353	(clr := self selectedColor) isNil ifTrue:[
8c74c9cc6e22 fixed point-drawing Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	1354	pix := self selectedColorIndex
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1355	].
2277 012c57905267 allow pinging the mask Claus Gittinger <cg@exept.de> parents: 2240 diff changeset	1356
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1357	pix notNil ifTrue:[
1277 8c74c9cc6e22 fixed point-drawing Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	1358	image colorMap atImageAndMask:imagePoint putValue:pix.
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1359	self setModified.
1277 8c74c9cc6e22 fixed point-drawing Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	1360	] ifFalse:[
2277 012c57905267 allow pinging the mask Claus Gittinger <cg@exept.de> parents: 2240 diff changeset	1361	"/ clr notNil ifTrue:[
1277 8c74c9cc6e22 fixed point-drawing Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	1362	image atImageAndMask:imagePoint put:clr.
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1363	self setModified.
2277 012c57905267 allow pinging the mask Claus Gittinger <cg@exept.de> parents: 2240 diff changeset	1364	"/ ]
1246 0cd36bffc789 checkin from browser Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	1365	].
1277 8c74c9cc6e22 fixed point-drawing Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	1366	self invalidate:((imagePoint * magnification extent: magnification) expandedBy: 1).
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	1367
441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	1368	"Modified: / 5.9.1998 / 13:25:29 / cg"
636 d53428252193 revised version tz parents: 633 diff changeset	1369	!
d53428252193 revised version tz parents: 633 diff changeset	1370
1374 44f511c341c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1373 diff changeset	1371	reduceColorResolutionBy:numBits
2534 39f2ebf77c40 colorreduction code moved to image Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	1372	\|newImage\|
2442 8941d3a736a0 oops - color-resolution had a bug with non-palette images Claus Gittinger <cg@exept.de> parents: 2440 diff changeset	1373
8941d3a736a0 oops - color-resolution had a bug with non-palette images Claus Gittinger <cg@exept.de> parents: 2440 diff changeset	1374	numBits > 7 ifTrue:[
8941d3a736a0 oops - color-resolution had a bug with non-palette images Claus Gittinger <cg@exept.de> parents: 2440 diff changeset	1375	self warn:'Max. number of bits to strip off is 7.'.
8941d3a736a0 oops - color-resolution had a bug with non-palette images Claus Gittinger <cg@exept.de> parents: 2440 diff changeset	1376	^ false
8941d3a736a0 oops - color-resolution had a bug with non-palette images Claus Gittinger <cg@exept.de> parents: 2440 diff changeset	1377	].
2534 39f2ebf77c40 colorreduction code moved to image Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	1378	newImage := image withColorResolutionReducedBy:numBits.
39f2ebf77c40 colorreduction code moved to image Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	1379	newImage isNil ifTrue:[
39f2ebf77c40 colorreduction code moved to image Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	1380	self warn:'Could not reduce color resolution.'.
39f2ebf77c40 colorreduction code moved to image Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	1381	^ false.
1885 5f85501aaea9 reduce color-resolution fixed Claus Gittinger <cg@exept.de> parents: 1882 diff changeset	1382	].
5f85501aaea9 reduce color-resolution fixed Claus Gittinger <cg@exept.de> parents: 1882 diff changeset	1383
1886 e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1384	self makeUndo.
e5b5a8850dc5 added make grayScale Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1385	self image:newImage.
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1386	self setModified.
1885 5f85501aaea9 reduce color-resolution fixed Claus Gittinger <cg@exept.de> parents: 1882 diff changeset	1387	^ true
1374 44f511c341c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1373 diff changeset	1388	!
44f511c341c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1373 diff changeset	1389
1706 a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1390	resizeImageTo:newSize
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1391
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1392	\|newImage newMaskImage\|
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1393
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1394	newImage := image class width: newSize x height: newSize y depth: image depth.
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1395	newImage photometric:image photometric.
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1396	newImage colorMap:image colorMap copy.
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1397	newImage bits: (ByteArray new: newImage bytesPerRow * newSize y).
636 d53428252193 revised version tz parents: 633 diff changeset	1398
1706 a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1399	image mask notNil ifTrue:[
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1400	newMaskImage := Depth1Image width: newSize x height: newSize y.
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1401	newMaskImage photometric: image mask photometric.
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1402	newMaskImage colorMap: image mask colorMap copy.
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1403	newMaskImage bits:(ByteArray new: newMaskImage bytesPerRow * newSize y).
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1404	newImage mask: newMaskImage
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1405	].
636 d53428252193 revised version tz parents: 633 diff changeset	1406
1706 a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1407	newImage copyFrom:image x:0 y:0 toX:0 y:0 width: (image width min:newSize x) height: (image height min:newSize y).
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1408	self makeUndo.
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1409	self image: newImage.
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1410	self setModified.
636 d53428252193 revised version tz parents: 633 diff changeset	1411	!
d53428252193 revised version tz parents: 633 diff changeset	1412
1706 a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1413	rotateImageBy:rotation
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1414	"rotate by (degrees)"
636 d53428252193 revised version tz parents: 633 diff changeset	1415
1706 a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1416	Object errorSignal handle:[:ex\|
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1417	self warn: 'Image rotation failed!!\' withCRs, 'Increaing the image depth could help.'
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1418	] do:[
a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1419	self makeUndo.
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1420	self image: (image hardRotated: rotation).
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1421	self setModified.
686 33833bcbb5cd some cleans tz parents: 678 diff changeset	1422	]
1031 a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1423
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1424	"Modified: / 29.7.1998 / 18:21:14 / cg"
636 d53428252193 revised version tz parents: 633 diff changeset	1425	!
d53428252193 revised version tz parents: 633 diff changeset	1426
2086 3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1427	shiftImageHorizontal:shiftH vertical:shiftV
2489 f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1428	self shiftImageHorizontal:shiftH vertical:shiftV wrap:false
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1429	!
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1430
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1431	shiftImageHorizontal:shiftH vertical:shiftV wrap:doWrap
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1432	"shift the pixels;
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1433	shift<0 is left-shift/up-shift; shift>0 is right-shift/down-shift;
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1434	doWrap controls if shifted-out pixels are to be shifted in at the opposite side.
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1435	i.e.:
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1436	0123456789 -> 3456789789 (shift: -3) 0123456789 -> 0120123456 (shift:3)
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1437	or, with wrap:
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1438	0123456789 -> 3456789012 (shift: -3) 0123456789 -> 7890123456 (shift:3)
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1439	"
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1440
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1441	\|newImage\|
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1442
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1443	newImage := self shifted:image horizontal:shiftH vertical:shiftV wrap:doWrap.
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1444	self image:newImage.
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1445	self setModified.
2489 f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1446	!
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1447
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1448	shifted:image horizontal:shiftH vertical:shiftV wrap:doWrap
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1449	"shift the pixels;
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1450	shift<0 is left-shift/up-shift; shift>0 is right-shift/down-shift;
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1451	doWrap controls if shifted-out pixels are to be shifted in at the opposite side.
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1452	i.e.:
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1453	0123456789 -> 3456789789 (shift: -3) 0123456789 -> 0120123456 (shift:3)
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1454	or, with wrap:
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1455	0123456789 -> 3456789012 (shift: -3) 0123456789 -> 7890123456 (shift:3)
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1456	"
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1457
2086 3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1458	\|w h srcX srcY dstX dstY newImage\|
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1459
2489 f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1460	doWrap ifTrue:[
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1461	"/ if wrapping, split into two operations to make wrap-code below simpler.
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1462
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1463	shiftH ~~ 0 ifTrue:[
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1464	shiftV ~~ 0 ifTrue:[
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1465	newImage := self shifted:image horizontal:shiftH vertical:0 wrap:doWrap.
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1466	newImage := self shifted:newImage horizontal:0 vertical:shiftV wrap:doWrap.
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1467	^ newImage
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1468	].
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1469	].
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1470	].
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1471	(shiftV == 0 and:[shiftH == 0]) ifTrue:[
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1472	^ image
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1473	].
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1474
2086 3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1475	w := image width.
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1476	h := image height.
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1477
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1478	newImage := image copy.
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1479
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1480	srcX := srcY := dstX := dstY := 0.
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1481	shiftH < 0 ifTrue:[
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1482	srcX := shiftH negated
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1483	] ifFalse:[
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1484	dstX := shiftH
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1485	].
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1486	shiftV < 0 ifTrue:[
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1487	srcY := shiftV negated
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1488	] ifFalse:[
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1489	dstY := shiftV
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1490	].
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1491
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1492	newImage copyFrom:image x:srcX y:srcY toX:dstX y:dstY width:w-shiftH abs height:h-shiftV abs.
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1493
2489 f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1494	doWrap ifTrue:[
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1495	srcX := srcY := dstX := dstY := 0.
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1496
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1497	"/ already simplified - see above
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1498	shiftH ~~ 0 ifTrue:[
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1499	"/ shiftV known to be 0
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1500	shiftH < 0 ifTrue:[
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1501	dstX := w-1-shiftH negated
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1502	] ifFalse:[
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1503	srcX := w-1-shiftH
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1504	].
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1505	w := shiftH abs.
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1506	] ifFalse:[
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1507	"/ shiftH known to be 0
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1508	shiftV < 0 ifTrue:[
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1509	dstY := h-1-shiftV negated
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1510	] ifFalse:[
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1511	srcY := h-1-shiftV
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1512	].
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1513	h := shiftV abs.
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1514	].
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1515	newImage copyFrom:image x:srcX y:srcY toX:dstX y:dstY width:w height:h.
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1516	^ newImage
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1517	].
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1518
f5654b8104f4 shift + wrap Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	1519	^ newImage.
2086 3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1520
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1521	"Created: / 7.9.1998 / 13:00:16 / cg"
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1522	"Modified: / 7.9.1998 / 14:15:32 / cg"
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1523	!
3e32adf8adab added shift operation Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1524
1858 54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1525	specialOperationAt: aPoint
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1526	"special operation on a rectangular area"
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1527
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1528	\|choosedBox imageBox\|
1858 54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1529
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1530	choosedBox := self dragRectangleStartingAt: aPoint emphasis: #filledBox.
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1531	imageBox := choosedBox origin//magnification extent: (choosedBox extent//magnification).
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1532
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1533	(self performSpecialOperationOn:imageBox withColor:self selectedColor) ifFalse:[
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1534	^ self
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1535	].
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1536
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1537	image restored.
1861 ba1f1a884ebc * empty log message * Claus Gittinger <cg@exept.de> parents: 1859 diff changeset	1538	self invalidate. "/ : (choosedBox expandedBy: 1).
ba1f1a884ebc * empty log message * Claus Gittinger <cg@exept.de> parents: 1859 diff changeset	1539
ba1f1a884ebc * empty log message * Claus Gittinger <cg@exept.de> parents: 1859 diff changeset	1540	"/ self redraw: (choosedBox expandedBy: 1).
1858 54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1541
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1542	"/ "/ cg: what a kludge - please change to use a valueHolder,
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1543	"/ "/ which gets the information ...
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1544	"/ masterApplication imagePreView redraw: (imageBox expandedBy: 1).
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1545
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1546	"/ cg: still a kludge - but less ugly
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1547	self changed:#subImageIn with:(imageBox expandedBy: 1).
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1548
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1549	self setModified.
1858 54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1550	!
54138b1b3efd * empty log message * Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	1551
636 d53428252193 revised version tz parents: 633 diff changeset	1552	undo
d53428252193 revised version tz parents: 633 diff changeset	1553
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	1554	undoImages notEmpty ifTrue:[
1374 44f511c341c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1373 diff changeset	1555	windowGroup withExecuteCursorDo:[
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1556	self clearModified.
1374 44f511c341c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1373 diff changeset	1557	self image: undoImages removeLast.
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	1558	self changed:#image.
1374 44f511c341c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1373 diff changeset	1559	]
636 d53428252193 revised version tz parents: 633 diff changeset	1560	]
1038 6c0bb03e88a1 no need to invalidate after assign of new image. Claus Gittinger <cg@exept.de> parents: 1037 diff changeset	1561
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	1562	"Modified: / 10.2.2000 / 23:21:24 / cg"
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	1563	! !
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	1564
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	1565	!ImageEditView methodsFor:'image setting'!
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	1566
2544 bcae3dbd3ccd do not scroll, when crobbing Claus Gittinger <cg@exept.de> parents: 2534 diff changeset	1567	image:anImage scroll:doScroll
1256 c4e0b9024475 checkin from browser Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	1568	\|retVal fileName\|
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	1569
1256 c4e0b9024475 checkin from browser Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	1570	anImage isImage ifTrue:[
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1571	true "(image isNil or: [self checkModified])" ifTrue: [
1256 c4e0b9024475 checkin from browser Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	1572	image notNil ifTrue: [
c4e0b9024475 checkin from browser Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	1573	fileName := image fileName.
c4e0b9024475 checkin from browser Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	1574	anImage fileName isNil ifTrue: [anImage fileName: fileName].
c4e0b9024475 checkin from browser Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	1575	].
2544 bcae3dbd3ccd do not scroll, when crobbing Claus Gittinger <cg@exept.de> parents: 2534 diff changeset	1576	super image:anImage scroll:doScroll.
1256 c4e0b9024475 checkin from browser Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	1577	retVal := self.
c4e0b9024475 checkin from browser Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	1578	].
c4e0b9024475 checkin from browser Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	1579	] ifFalse: [
2544 bcae3dbd3ccd do not scroll, when crobbing Claus Gittinger <cg@exept.de> parents: 2534 diff changeset	1580	super image:nil scroll:true.
1031 a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1581	].
1763 7d6d64622ee4 change & updates fixed (monochrome bitmaps) Claus Gittinger <cg@exept.de> parents: 1706 diff changeset	1582	self changed:#image.
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1583	self setModified.
1031 a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1584	self updateImageInfo: self imageInfoString.
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1585	^ retVal
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1586
1693 5f8be1b4f856 de-uglified Claus Gittinger <cg@exept.de> parents: 1510 diff changeset	1587	"Modified: / 10.2.2000 / 23:33:12 / cg"
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	1588	!
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	1589
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	1590	loadFromFile: aFileName
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1591	\|imageFromFile\|
624 d98fe4700fc2 checkin from browser tz parents: 606 diff changeset	1592
676 fd7918a3e6e6 load + preview redraw errors removed tz parents: 674 diff changeset	1593	aFileName isNil ifTrue: [^nil].
1774 3e9f6af51746 checkin from browser Claus Gittinger <cg@exept.de> parents: 1764 diff changeset	1594
3e9f6af51746 checkin from browser Claus Gittinger <cg@exept.de> parents: 1764 diff changeset	1595	Object errorSignal handle:[:exeption\|
3e9f6af51746 checkin from browser Claus Gittinger <cg@exept.de> parents: 1764 diff changeset	1596	self warn: exeption errorString.
3e9f6af51746 checkin from browser Claus Gittinger <cg@exept.de> parents: 1764 diff changeset	1597	^nil
3e9f6af51746 checkin from browser Claus Gittinger <cg@exept.de> parents: 1764 diff changeset	1598	] do:[
3e9f6af51746 checkin from browser Claus Gittinger <cg@exept.de> parents: 1764 diff changeset	1599	(imageFromFile := Image fromFile: aFileName) notNil
3e9f6af51746 checkin from browser Claus Gittinger <cg@exept.de> parents: 1764 diff changeset	1600	ifTrue:[
3e9f6af51746 checkin from browser Claus Gittinger <cg@exept.de> parents: 1764 diff changeset	1601	self releaseUndos.
3e9f6af51746 checkin from browser Claus Gittinger <cg@exept.de> parents: 1764 diff changeset	1602	self image: imageFromFile.
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1603	self clearModified.
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1604	"/ imageReaderClass := ImageReader allSubclasses
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1605	"/ detect: [:cls\| cls isValidImageFile: aFileName asFilename pathName]
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1606	"/ ifNone: [self error: 'Unknown image file format!!']
1774 3e9f6af51746 checkin from browser Claus Gittinger <cg@exept.de> parents: 1764 diff changeset	1607	] ifFalse:[
3e9f6af51746 checkin from browser Claus Gittinger <cg@exept.de> parents: 1764 diff changeset	1608	self error: 'Not an image file (or unrecognized format) !!'
3e9f6af51746 checkin from browser Claus Gittinger <cg@exept.de> parents: 1764 diff changeset	1609	]
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1610	].
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1611	^ imageFromFile
1031 a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1612
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1613	"Modified: / 29.7.1998 / 18:09:13 / cg"
624 d98fe4700fc2 checkin from browser tz parents: 606 diff changeset	1614	!
255 1dfa8deddaef checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	1615
633 594edef86630 revised version tz parents: 632 diff changeset	1616	loadFromMessage: aMessage
594edef86630 revised version tz parents: 632 diff changeset	1617
1781 b1078497810f * empty log message * Claus Gittinger <cg@exept.de> parents: 1774 diff changeset	1618	(self resourceMessage: aMessage) isNil ifTrue:[
b1078497810f * empty log message * Claus Gittinger <cg@exept.de> parents: 1774 diff changeset	1619	^ nil
633 594edef86630 revised version tz parents: 632 diff changeset	1620	].
624 d98fe4700fc2 checkin from browser tz parents: 606 diff changeset	1621
633 594edef86630 revised version tz parents: 632 diff changeset	1622	^self loadfromClass: resourceClass andSelector: resourceSelector
594edef86630 revised version tz parents: 632 diff changeset	1623
594edef86630 revised version tz parents: 632 diff changeset	1624
594edef86630 revised version tz parents: 632 diff changeset	1625	!
594edef86630 revised version tz parents: 632 diff changeset	1626
594edef86630 revised version tz parents: 632 diff changeset	1627	loadfromClass: aClassOrSymbol andSelector: aStringOrSymbol
678 9afa8810a8be image must not be nil after load failure tz parents: 676 diff changeset	1628	\|aClass\|
9afa8810a8be image must not be nil after load failure tz parents: 676 diff changeset	1629
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	1630	imageReaderClass := nil.
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	1631	self resourceClass: aClassOrSymbol.
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	1632	self resourceSelector: aStringOrSymbol.
678 9afa8810a8be image must not be nil after load failure tz parents: 676 diff changeset	1633
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1634	(aClass := Smalltalk at: resourceClass) isBehavior ifTrue:[
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1635	(aClass class implements: resourceSelector) ifTrue:[
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1636	image := aClass perform: resourceSelector.
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1637	] ifFalse:[
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1638	(aClass implements: resourceSelector) ifTrue:[
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1639	image := aClass basicNew perform: resourceSelector
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1640	]
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1641	].
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1642	image notNil ifTrue:[
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1643	image := image copy.
2030 3f5e2b7ec36a partial support for image-specs on the instance side Claus Gittinger <cg@exept.de> parents: 2021 diff changeset	1644	self releaseUndos.
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1645	self image: image.
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1646	self clearModified.
b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	1647	^ image
2030 3f5e2b7ec36a partial support for image-specs on the instance side Claus Gittinger <cg@exept.de> parents: 2021 diff changeset	1648	].
3f5e2b7ec36a partial support for image-specs on the instance side Claus Gittinger <cg@exept.de> parents: 2021 diff changeset	1649	].
3f5e2b7ec36a partial support for image-specs on the instance side Claus Gittinger <cg@exept.de> parents: 2021 diff changeset	1650	^ nil
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1651	! !
5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1652
2511 10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1653	!ImageEditView methodsFor:'image-dragging & info'!
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1654
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1655	dragRectangleStartingAt: aPointIn emphasis: emphasis
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1656	"drag a rectangle (filled or unfilled)"
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1657
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1658	\|currentPoint currentExtent firstPoint lastCurrentPoint gridCorrection
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1659	mp lastMp p whichQuarter scrollX scrollY aPoint\|
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1660
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1661	aPoint := aPointIn.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1662	firstPoint := currentPoint := lastCurrentPoint := aPoint//magnification*magnification.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1663	magnification >= GridMagnificationLimit ifFalse: [gridCorrection := 0] ifTrue: [gridCorrection := 1].
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1664
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1665	[device anyButtonPressed] whileTrue: [
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1666	mp := self sensor mousePoint.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1667	mp = lastMp ifTrue:[
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1668	Delay waitForSeconds:0.05
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1669	] ifFalse:[
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1670	lastMp := mp.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1671	mp := device translatePoint:mp fromView:nil toView:self.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1672	"/ mp is a device coordinate here ...
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1673	scrollX := 0.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1674	mp x > width ifTrue:[
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1675	scrollX := mp x - width.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1676	] ifFalse:[
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1677	mp x < 0 ifTrue:[
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1678	scrollX := mp x.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1679	]
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1680	].
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1681	scrollY := 0.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1682	mp y > height ifTrue:[
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1683	scrollY := mp y - height.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1684	] ifFalse:[
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1685	mp y < 0 ifTrue:[
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1686	scrollY := mp y.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1687	]
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1688	].
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1689	(scrollX + scrollY) ~~ 0 ifTrue:[
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1690	self scrollTo:(self viewOrigin + (scrollX @ scrollY)).
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1691	lastMp := nil.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1692	].
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1693
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1694	mp := mp + self viewOrigin.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1695	"/ mp is now a logical coordinate.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1696
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1697	currentPoint := (0@0) max: (image extent * magnification min: (p := mp)).
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1698	currentPoint := currentPoint//magnification*magnification.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1699	currentExtent := (firstPoint - currentPoint) abs.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1700	whichQuarter := (firstPoint x - currentPoint x) > 0
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1701	ifTrue: [(firstPoint y - currentPoint y) > 0 ifTrue: ["4"1@1] ifFalse: ["3"1@0]]
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1702	ifFalse: [(firstPoint y - currentPoint y) > 0 ifTrue: ["1"0@1] ifFalse: ["2"0@0]].
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1703
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1704	self drawCursorAt: p withLabel:
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1705	((firstPoint//magnification - whichQuarter + 1) printString,
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1706	' to: ',
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1707	(currentPoint//magnification + whichQuarter) printString),
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1708	' (extent: ',
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1709	(currentExtent//magnification) printString, ')'.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1710
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1711	currentPoint ~= lastCurrentPoint ifTrue:[
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1712	emphasis = #inverseFilledBox ifTrue: [
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1713	self redraw: ((firstPoint min: lastCurrentPoint) - 1 extent: (firstPoint - lastCurrentPoint) abs + 2).
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1714	self xoring: [self fillRectangle: ((firstPoint min: currentPoint) + margin extent: currentExtent - gridCorrection)]
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1715	].
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1716	emphasis = #box
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1717	ifTrue:[
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1718	\|origin extent lineWidthY lineWidthX\|
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1719	origin := (firstPoint min: lastCurrentPoint) - 1.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1720	extent := (firstPoint - lastCurrentPoint) abs + 2.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1721	lineWidthY := extent y min: (magnification y + 2).
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1722	lineWidthX := extent x min: (magnification x + 2).
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1723	self redraw: (origin extent: (extent x@lineWidthY)).
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1724	self redraw: ((origin x@(origin y + extent y - lineWidthY)) extent: (extent x@lineWidthY)).
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1725	self redraw: ((origin x@(origin y + lineWidthY)) extent: (lineWidthX@(0 max: (extent y - (lineWidthY * 2))))).
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1726	self redraw: (((origin x + extent x - lineWidthX)@(origin y + lineWidthY)) extent: (lineWidthX@(extent y - (lineWidthY * 2)))).
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1727	self selectedColor ~= Color noColor
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1728	ifTrue: [self paint: self selectedColor]
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1729	ifFalse: [self paint: self viewBackground].
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1730	origin := (firstPoint min: currentPoint) + margin.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1731	extent := currentExtent - gridCorrection.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1732	lineWidthY := extent y min: magnification y.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1733	lineWidthX := extent x min: magnification x.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1734	(lineWidthY > 0 and: [lineWidthX > 0])
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1735	ifTrue:[
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1736	self fillRectangle: (origin extent: (extent x@lineWidthY)).
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1737	self fillRectangle: ((origin x@(origin y + extent y - lineWidthY)) extent: (extent x@lineWidthY)).
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1738	self fillRectangle: ((origin x@(origin y + lineWidthY)) extent: (lineWidthX@(0 max: (extent y - (lineWidthY * 2))))).
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1739	self fillRectangle: (((origin x + extent x - lineWidthX)@(origin y + lineWidthY)) extent: (lineWidthX@(extent y - (lineWidthY * 2)))).
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1740	]
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1741	].
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1742	emphasis = #filledBox
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1743	ifTrue:[
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1744	self redraw: ((firstPoint min: lastCurrentPoint) - 1 extent: (firstPoint - lastCurrentPoint) abs + 2).
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1745	self selectedColor ~= Color noColor
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1746	ifTrue: [self paint: self selectedColor]
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1747	ifFalse: [self paint: self viewBackground].
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1748	self fillRectangle: ((firstPoint min: currentPoint) + margin extent: currentExtent - gridCorrection).
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1749	].
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1750	].
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1751	lastCurrentPoint := currentPoint.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1752	].
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1753	].
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1754
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1755	^((0@0) max: (firstPoint min: currentPoint)) extent: (firstPoint - currentPoint) abs
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1756
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1757	"Created: / 21.8.1998 / 20:17:07 / cg"
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1758	"Modified: / 10.10.2001 / 14:13:08 / cg"
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1759	!
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1760
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1761	drawCursorAt:aPoint
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1762	\|clr imgPoint r g b\|
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1763
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1764	image isNil ifTrue: [
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1765	self updateImageInfo: self imageInfoString.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1766	self cursor:Cursor stop.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1767	^ self
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1768	].
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1769
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1770	imgPoint := aPoint // magnification.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1771	((imgPoint x between:0 and:(image width-1))
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1772	and:[imgPoint y between:0 and: (image height-1)])
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1773	ifFalse:[
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1774	self updateImageInfo: self imageInfoString.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1775	self cursor:Cursor stop.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1776	] ifTrue: [
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1777	clr := image colorAt:imgPoint.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1778	r := clr redByte.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1779	g := clr greenByte.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1780	b := clr blueByte.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1781	self updateImageInfo: imgPoint printString
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1782	, ' (r:'
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1783	, r printString
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1784	, ' g:' , g printString
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1785	, ' b:' , b printString
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1786	, ' #' , (r hexPrintString:2) , (g hexPrintString:2) , (b hexPrintString:2)
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1787	, ' pixel:' , (image pixelAt:imgPoint) printString
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1788	, ')'.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1789	self cursor:Cursor crossHair
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1790	].
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1791
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1792	"Modified: / 29.7.1998 / 18:26:01 / cg"
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1793	!
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1794
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1795	drawCursorAt: aPoint withLabel: aLabel
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1796
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1797	((0@0 extent: image extent * magnification) containsPoint: aPoint)
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1798	ifFalse:[self cursor:Cursor stop]
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1799	ifTrue: [self cursor:Cursor crossHair].
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1800	self updateImageInfo: aLabel.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1801
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1802	"Modified: / 29.7.1998 / 18:26:04 / cg"
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1803	!
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1804
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1805	updateActivity: something
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1806	\|msg\|
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1807
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1808	msg := something printString.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1809
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1810	"/ cg: new code:
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1811	activityInfoHolder notNil ifTrue:[
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1812	activityInfoHolder value:msg.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1813	].
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1814
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1815	"Modified: / 29.7.1998 / 18:41:47 / cg"
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1816	!
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1817
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1818	updateImageInfo: something
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1819	\|msg coordLabel\|
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1820
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1821	msg := something printString.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1822
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1823	"/ cg: new code:
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1824	imageInfoHolder notNil ifTrue:[
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1825	msg ~= imageInfoHolder value ifTrue:[
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1826	imageInfoHolder value:msg.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1827	].
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1828	^ self
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1829	].
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1830
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1831	"/ "/ cg: what a kludge - please change to use a valueHolder,
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1832	"/ "/ which gets the coordinate ...
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1833	"/
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1834	"/ (masterApplication respondsTo: #coordLabel)
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1835	"/ ifTrue:[
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1836	"/ coordLabel := masterApplication coordLabel.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1837	"/
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1838	"/ coordLabel label ~= msg
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1839	"/ ifTrue:[
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1840	"/ coordLabel label: msg.
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1841	"/ "/ coordLabel redraw
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1842	"/ ]
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1843	"/ ]
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1844
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1845	"Modified: / 29.7.1998 / 19:00:21 / cg"
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1846	! !
10537dc4e961 category change Claus Gittinger <cg@exept.de> parents: 2508 diff changeset	1847
1327 ab99aad206dc category change Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	1848	!ImageEditView methodsFor:'initialize / release'!
ab99aad206dc category change Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	1849
ab99aad206dc category change Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	1850	destroy
2440 a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	1851	ClipboardMagnified := Clipboard := nil.
1327 ab99aad206dc category change Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	1852	LastMagnification := magnification.
ab99aad206dc category change Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	1853
ab99aad206dc category change Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	1854	super destroy
ab99aad206dc category change Claus Gittinger <cg@exept.de> parents: 1277 diff changeset	1855	!
1 c6ca7bfedf31 Initial revision claus parents: diff changeset	1856
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1857	initialize
624 d98fe4700fc2 checkin from browser tz parents: 606 diff changeset	1858
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1859	super initialize.
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	1860
686 33833bcbb5cd some cleans tz parents: 678 diff changeset	1861	self enableMotionEvents.
995 cd84d6f8c449 several undos tz parents: 994 diff changeset	1862
1374 44f511c341c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1373 diff changeset	1863	undoImages := List new: MaxUndos.
1706 a954781f4440 code cleanup Claus Gittinger <cg@exept.de> parents: 1693 diff changeset	1864	magnification := LastMagnification ? (8@8).
2747 818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	1865	modifiedHolder := false asValue.
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	1866	mouseKeyColorMode := 1.
995 cd84d6f8c449 several undos tz parents: 994 diff changeset	1867	resourceClass := resourceSelector := ''.
2009 4f556ff9fec5 pick with SHIFT-click in the mag-view Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	1868	drawingColorHolders := Array with:(nil asValue) with:(nil asValue). "/ left/right mouse colors
4f556ff9fec5 pick with SHIFT-click in the mag-view Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	1869	drawingPixelHolders := Array with:(nil asValue) with:(nil asValue). "/ left/right mouse colors
1106 57c41df67ae5 support radio buttons of the ImageEditor tz parents: 1104 diff changeset	1870	editMode := #point.
1 c6ca7bfedf31 Initial revision claus parents: diff changeset	1871	! !
c6ca7bfedf31 Initial revision claus parents: diff changeset	1872
636 d53428252193 revised version tz parents: 633 diff changeset	1873	!ImageEditView methodsFor:'printing & storing'!
1 c6ca7bfedf31 Initial revision claus parents: diff changeset	1874
1994 d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1875	askForFileNameToSave:msg
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1876	"ask for a fileName"
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1877
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1878	\|lastFn fn filters\|
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1879
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1880	filters := FileSelectionBrowser saveImageFileNameFilters.
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1881	lastFn := self image fileName.
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1882	lastFn isNil ifTrue:[
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1883	fn := FileSelectionBrowser
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1884	request: msg
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1885	inDirectory: LastSaveDirectory
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1886	withFileFilters: filters
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1887	] ifFalse:[
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1888	fn := FileSelectionBrowser
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1889	request: msg
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1890	fileName: lastFn
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1891	withFileFilters: filters
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1892	].
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1893
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1894	^ fn
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1895	!
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	1896
724 d6f4b89940ed undo disabling tz parents: 704 diff changeset	1897	loadFromClass
404 322e32d8f099 checkin from browser Claus Gittinger <cg@exept.de> parents: 398 diff changeset	1898
676 fd7918a3e6e6 load + preview redraw errors removed tz parents: 674 diff changeset	1899	^self loadFromMessage:
1184 58e399d8c312 checkin from browser Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	1900	(ResourceSelectionBrowser
58e399d8c312 checkin from browser Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	1901	request: 'Load Image From Class'
58e399d8c312 checkin from browser Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	1902	onSuperclass: nil
58e399d8c312 checkin from browser Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	1903	andClass: self resourceClass
58e399d8c312 checkin from browser Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	1904	andSelector: self resourceSelector
58e399d8c312 checkin from browser Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	1905	withResourceTypes: #(image fileImage programImage))
636 d53428252193 revised version tz parents: 633 diff changeset	1906
477 37f12d35c359 added #resize. Claus Gittinger <cg@exept.de> parents: 430 diff changeset	1907
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1908	!
5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1909
995 cd84d6f8c449 several undos tz parents: 994 diff changeset	1910	makeUndo
cd84d6f8c449 several undos tz parents: 994 diff changeset	1911
1374 44f511c341c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1373 diff changeset	1912	image notNil ifTrue:[
44f511c341c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1373 diff changeset	1913	undoImages size >= MaxUndos ifTrue:[
44f511c341c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1373 diff changeset	1914	undoImages removeFirst.
44f511c341c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1373 diff changeset	1915	].
44f511c341c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1373 diff changeset	1916	undoImages add: image copy
995 cd84d6f8c449 several undos tz parents: 994 diff changeset	1917	]
cd84d6f8c449 several undos tz parents: 994 diff changeset	1918	!
cd84d6f8c449 several undos tz parents: 994 diff changeset	1919
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	1920	print
2556 fc4dd338dee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 2555 diff changeset	1921	self printWithMagnification:1
fc4dd338dee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 2555 diff changeset	1922	!
fc4dd338dee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 2555 diff changeset	1923
fc4dd338dee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 2555 diff changeset	1924	printMagnified
fc4dd338dee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 2555 diff changeset	1925	self printWithMagnification:magnification
fc4dd338dee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 2555 diff changeset	1926	!
fc4dd338dee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 2555 diff changeset	1927
fc4dd338dee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 2555 diff changeset	1928	printWithMagnification:magnification
2555 43af374dfd5e checkin from browser Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	1929	\|stream\|
43af374dfd5e checkin from browser Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	1930
43af374dfd5e checkin from browser Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	1931	image isNil ifTrue:[^ self].
43af374dfd5e checkin from browser Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	1932
43af374dfd5e checkin from browser Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	1933	Printer supportsPostscript ifFalse:[
43af374dfd5e checkin from browser Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	1934	^ self warn:'No postscript printer configured !!'
43af374dfd5e checkin from browser Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	1935	].
43af374dfd5e checkin from browser Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	1936
43af374dfd5e checkin from browser Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	1937	stream := Printer newNative.
43af374dfd5e checkin from browser Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	1938	stream isNil ifTrue:[
43af374dfd5e checkin from browser Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	1939	^ self warn:'Cannot open printer stream !!'
43af374dfd5e checkin from browser Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	1940	].
43af374dfd5e checkin from browser Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	1941
43af374dfd5e checkin from browser Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	1942	self withWaitCursorDo:[
43af374dfd5e checkin from browser Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	1943	\|psgc\|
43af374dfd5e checkin from browser Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	1944
43af374dfd5e checkin from browser Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	1945	psgc := PSGraphicsContext on:stream.
43af374dfd5e checkin from browser Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	1946	psgc displayForm: (image magnifiedBy: magnification) x:0 y:0.
43af374dfd5e checkin from browser Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	1947	psgc close
398 7b7255a4db0d show a wait cursor while printing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1948	]
624 d98fe4700fc2 checkin from browser tz parents: 606 diff changeset	1949	!
d98fe4700fc2 checkin from browser tz parents: 606 diff changeset	1950
d98fe4700fc2 checkin from browser tz parents: 606 diff changeset	1951	save
d98fe4700fc2 checkin from browser tz parents: 606 diff changeset	1952
632 be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	1953	self saveImageOrMask: #image.
be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	1954
624 d98fe4700fc2 checkin from browser tz parents: 606 diff changeset	1955	!
d98fe4700fc2 checkin from browser tz parents: 606 diff changeset	1956
2239 d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	1957	save:image imageOrMask:what
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	1958	"save the image or the mask only (if what == #mask)"
297 d733af1b0ffe better saving functions; Claus Gittinger <cg@exept.de> parents: 296 diff changeset	1959
2239 d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	1960	image isNil ifTrue:[
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	1961	Dialog warn: 'No image to save!!'.
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	1962	^ self.
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	1963	].
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	1964	self save:image imageOrMask:what as:image fileName.
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	1965	!
297 d733af1b0ffe better saving functions; Claus Gittinger <cg@exept.de> parents: 296 diff changeset	1966
2239 d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	1967	save:image imageOrMask:what as:fileNameArg
1158 9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	1968	"save the image or the mask only (if what == #mask)"
628 7f36d8a7735f popup menu starts image editor tz parents: 627 diff changeset	1969
2240 2e9ad39f11c8 checkin from browser ca parents: 2239 diff changeset	1970	\|fileName fileNameString\|
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	1971
2239 d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	1972	fileName := fileNameArg asFilename.
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	1973
1158 9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	1974	Object errorSignal handle:[:ex\|
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	1975	\|msg\|
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	1976
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	1977	ex signal == Image fileCreationErrorSignal ifTrue:[
1896 0f430b35c451 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1888 diff changeset	1978	msg := resources string:'Cannot create file: ''%1''' with:fileName asFilename pathName allBold
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	1979	] ifFalse:[
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	1980	msg := ex errorString.
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	1981	].
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	1982	Dialog warn:msg.
1158 9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	1983	] do:[
9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	1984	Image informationLostQuerySignal handle:[:ex\|
9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	1985	"/ should make those warnings visible ...
9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	1986	(self confirm:(ex errorString , '\\Save anyway ?') withCRs) ifTrue:[
9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	1987	ex proceed.
9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	1988	]
9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	1989	] do:[
9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	1990	windowGroup withCursor:Cursor write do:[
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	1991	\|suff fn\|
1027 5bffbe90b8e2 show a wait-cursor while saving Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	1992
1158 9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	1993	image isNil ifTrue:[
9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	1994	^ self error: 'No image to save!!'
9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	1995	].
632 be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	1996
1158 9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	1997	what = #mask ifTrue:[
9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	1998	image mask isNil ifTrue: [^self error: 'No image mask to save!!'].
9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	1999	].
9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	2000
9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	2001	fileName name size = 0 ifTrue: [^self error: 'No file name detected!!'].
9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	2002	suff := fileName suffix asLowercase.
1373 c949e9f7757c give a warning, if saving in the given file-format is not Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	2003	imageReaderClass := nil.
c949e9f7757c give a warning, if saving in the given file-format is not Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	2004	imageReaderClass := MIMETypes imageReaderForSuffix:suff.
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	2005
1373 c949e9f7757c give a warning, if saving in the given file-format is not Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	2006	imageReaderClass isNil ifTrue: [
c949e9f7757c give a warning, if saving in the given file-format is not Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	2007	imageReaderClass := XPMReader.
2589 10827ba87692 obsolete method calls cleaned up Claus Gittinger <cg@exept.de> parents: 2582 diff changeset	2008	fileNameString := fileName name , '.xpm'.
2240 2e9ad39f11c8 checkin from browser ca parents: 2239 diff changeset	2009	fileName := fileNameString asFilename.
2e9ad39f11c8 checkin from browser ca parents: 2239 diff changeset	2010	image fileName:fileNameString.
1373 c949e9f7757c give a warning, if saving in the given file-format is not Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	2011	Dialog warn:(('Dont know how to write ''.' , suff , '''-files\\Saving in xpm format as ''%1''.')
2240 2e9ad39f11c8 checkin from browser ca parents: 2239 diff changeset	2012	withCRs bindWith:fileNameString allBold).
1373 c949e9f7757c give a warning, if saving in the given file-format is not Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	2013	].
c949e9f7757c give a warning, if saving in the given file-format is not Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	2014	(imageReaderClass canRepresent:image) ifFalse:[
1991 fff8dc641cff * empty log message * Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	2015	imageReaderClass == XPMReader ifTrue:[
fff8dc641cff * empty log message * Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	2016	Dialog warn:('Saving in ''.' , suff , '''-format is not supported (or image cannot be represented in this format).\\Please try another format.') withCRs.
fff8dc641cff * empty log message * Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	2017	^ self.
fff8dc641cff * empty log message * Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	2018	].
1373 c949e9f7757c give a warning, if saving in the given file-format is not Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	2019	imageReaderClass := XPMReader.
2589 10827ba87692 obsolete method calls cleaned up Claus Gittinger <cg@exept.de> parents: 2582 diff changeset	2020	fileNameString := fileName name , '.xpm'.
2240 2e9ad39f11c8 checkin from browser ca parents: 2239 diff changeset	2021	fileName := fileNameString asFilename.
2e9ad39f11c8 checkin from browser ca parents: 2239 diff changeset	2022	image fileName:fileNameString.
2690 53bc9dc52ce4 allow cancel when saving in wrong format Claus Gittinger <cg@exept.de> parents: 2680 diff changeset	2023	(Dialog confirm:(('Saving in ''.' , suff , '''-format is not supported (or image cannot be represented in this format).\\Saving in xpm format as ''%1''.')
53bc9dc52ce4 allow cancel when saving in wrong format Claus Gittinger <cg@exept.de> parents: 2680 diff changeset	2024	withCRs bindWith:fileNameString allBold)) ifFalse:[
53bc9dc52ce4 allow cancel when saving in wrong format Claus Gittinger <cg@exept.de> parents: 2680 diff changeset	2025	^ self.
53bc9dc52ce4 allow cancel when saving in wrong format Claus Gittinger <cg@exept.de> parents: 2680 diff changeset	2026	].
1373 c949e9f7757c give a warning, if saving in the given file-format is not Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	2027	].
2240 2e9ad39f11c8 checkin from browser ca parents: 2239 diff changeset	2028	Transcript showCR:('saving as:' , fileName pathName).
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	2029
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	2030	what = #image ifTrue: [ image saveOn:fileName using: imageReaderClass. self clearModified].
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	2031	what = #mask ifTrue: [image mask saveOn:fileName using: imageReaderClass].
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	2032
2240 2e9ad39f11c8 checkin from browser ca parents: 2239 diff changeset	2033	LastSaveDirectory := fileName directoryName.
2e9ad39f11c8 checkin from browser ca parents: 2239 diff changeset	2034	fileName exists ifFalse:[
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	2035	Dialog warn:'Oops image save failed.'
3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	2036	]
1158 9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	2037	]
9b413954d34d issue a warning, if information (mask) is Claus Gittinger <cg@exept.de> parents: 1121 diff changeset	2038	]
1027 5bffbe90b8e2 show a wait-cursor while saving Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	2039	]
5bffbe90b8e2 show a wait-cursor while saving Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	2040
1380 3b343d2e69ef fixed copy-paste with masked images. Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	2041	"Modified: / 18.5.1999 / 19:46:54 / cg"
633 594edef86630 revised version tz parents: 632 diff changeset	2042	!
594edef86630 revised version tz parents: 632 diff changeset	2043
2239 d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2044	saveAs
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2045
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2046	self saveImageFileAs
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2047	!
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2048
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2049	saveButtonImageToFileAs
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2050	\|fn\|
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2051
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2052	fn := self askForFileNameToSave:'Save Button Image to File'.
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2053	self saveButtonImageToFileAs:fn
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2054
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2055	"Modified: / 30.9.1998 / 23:04:11 / cg"
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2056	!
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2057
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2058	saveButtonImageToFileAs: aFileName
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2059	"save the image as if in a button in aFileName"
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2060
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2061	\|button grabbedImage\|
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2062
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2063	aFileName isNil ifTrue: [^nil].
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2064
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2065	image isNil ifTrue:[
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2066	self warn: 'No image or image mask detected!!'.
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2067	^ self.
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2068	].
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2069
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2070	button := Button label:image.
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2071	button openAt:5@5.
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2072	button waitUntilVisible.
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2073
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2074	grabbedImage := Image fromView:button.
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2075	button destroy.
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2076
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2077	self save:grabbedImage imageOrMask:#image as:aFileName
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2078
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2079	"/ self saveImageOrMask: #mask
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2080	!
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2081
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2082	saveImageFileAs
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2083	"ask for a fileName and save the image"
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2084
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2085	\|fn\|
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2086
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2087	fn := self askForFileNameToSave:'Save Image To File'.
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2088	self saveImageFileAs:fn
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2089	!
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2090
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2091	saveImageFileAs: aFileName
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2092	"save the image in aFileName"
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2093
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2094	aFileName isNil ifTrue: [^nil].
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2095	image notNil ifTrue:[
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2096	self save:image imageOrMask:#image as:aFileName.
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2097	] ifFalse:[
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2098	self warn: 'No image for saving!!'
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2099	]
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2100
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2101	"Modified: / 30.9.1998 / 23:04:55 / cg"
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2102	!
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2103
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2104	saveImageMaskFileAs
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2105	"ask for a fileName and save the mask only"
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2106
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2107	\|fn\|
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2108
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2109	fn := self askForFileNameToSave:'Save Image Mask To File'.
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2110	self saveImageMaskFileAs:fn
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2111
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2112	"Modified: / 30.9.1998 / 23:04:11 / cg"
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2113	!
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2114
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2115	saveImageMaskFileAs: aFileName
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2116	"save the mask only in aFileName"
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2117
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2118	aFileName isNil ifTrue: [^nil].
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2119	(image notNil and:[image mask notNil]) ifTrue:[
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2120	self save:image imageOrMask:#mask as:aFileName.
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2121	] ifFalse:[
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2122	self warn: 'No image or image mask detected!!'
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2123	]
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2124
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2125	"Modified: / 30.9.1998 / 23:06:24 / cg"
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2126	!
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2127
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2128	saveImageOrMask:what
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2129	"save the image or the mask only (if what == #mask)"
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2130
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2131	self save:image imageOrMask: what
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2132	!
d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2133
633 594edef86630 revised version tz parents: 632 diff changeset	2134	saveMethod
1994 d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	2135	Object errorSignal handle:[:ex\|
1882 fbb4a3a869f1 made image-method generator a class method (for reusability) martin parents: 1875 diff changeset	2136	self warn: ex errorString.
fbb4a3a869f1 made image-method generator a class method (for reusability) martin parents: 1875 diff changeset	2137	^nil
1994 d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	2138	] do: [
1882 fbb4a3a869f1 made image-method generator a class method (for reusability) martin parents: 1875 diff changeset	2139	\|category imageStoreStream cls sel mthd imageKey\|
822 cace81f0a86b do not overwrite method categories + toggle between mouse button colors tz parents: 796 diff changeset	2140
1882 fbb4a3a869f1 made image-method generator a class method (for reusability) martin parents: 1875 diff changeset	2141	windowGroup withExecuteCursorDo:[
2321 a35161597f7b saveMethod fixed Michael Beyl <mb@exept.de> parents: 2277 diff changeset	2142	(self resourceSelector trimBlanks size = 0) \| (cls := Smalltalk at: self resourceClass asSymbol) isClass not
1882 fbb4a3a869f1 made image-method generator a class method (for reusability) martin parents: 1875 diff changeset	2143	ifTrue: [^self saveMethodAs].
822 cace81f0a86b do not overwrite method categories + toggle between mouse button colors tz parents: 796 diff changeset	2144
2149 04e8367eaf70 code generation moved to CodeGeneratorTool Claus Gittinger <cg@exept.de> parents: 2135 diff changeset	2145	CodeGeneratorTool
04e8367eaf70 code generation moved to CodeGeneratorTool Claus Gittinger <cg@exept.de> parents: 2135 diff changeset	2146	createImageSpecMethodFor:self image
1882 fbb4a3a869f1 made image-method generator a class method (for reusability) martin parents: 1875 diff changeset	2147	comment:(ResourceSpecEditor codeGenerationCommentForClass: ImageEditor)
2149 04e8367eaf70 code generation moved to CodeGeneratorTool Claus Gittinger <cg@exept.de> parents: 2135 diff changeset	2148	in:cls class
1882 fbb4a3a869f1 made image-method generator a class method (for reusability) martin parents: 1875 diff changeset	2149	selector:self resourceSelector.
822 cace81f0a86b do not overwrite method categories + toggle between mouse button colors tz parents: 796 diff changeset	2150
1901 b4b286ec221f flush cached icons, when defining a new image-method Claus Gittinger <cg@exept.de> parents: 1896 diff changeset	2151	"/ flush cache images in the Icon class (kludge)
b4b286ec221f flush cached icons, when defining a new image-method Claus Gittinger <cg@exept.de> parents: 1896 diff changeset	2152	Icon flushCachedIcons.
2590 b811d560e00a modified flag after edit operations Claus Gittinger <cg@exept.de> parents: 2589 diff changeset	2153	self clearModified.
1901 b4b286ec221f flush cached icons, when defining a new image-method Claus Gittinger <cg@exept.de> parents: 1896 diff changeset	2154
1994 d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	2155	LastSaveClass := cls theNonMetaclass name.
1882 fbb4a3a869f1 made image-method generator a class method (for reusability) martin parents: 1875 diff changeset	2156	]
633 594edef86630 revised version tz parents: 632 diff changeset	2157	]
1027 5bffbe90b8e2 show a wait-cursor while saving Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	2158
1047 95f10ea8653d use #withExecuteCursorDo: Claus Gittinger <cg@exept.de> parents: 1038 diff changeset	2159	"Modified: / 31.7.1998 / 20:12:54 / cg"
633 594edef86630 revised version tz parents: 632 diff changeset	2160	!
594edef86630 revised version tz parents: 632 diff changeset	2161
594edef86630 revised version tz parents: 632 diff changeset	2162	saveMethodAs
1994 d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	2163	\|className\|
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	2164
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	2165	className := self resourceClass.
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	2166	className size == 0 ifTrue:[
2177 340ce04ccc78 * empty log message * Claus Gittinger <cg@exept.de> parents: 2172 diff changeset	2167	className := LastSaveClass
1994 d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	2168	].
633 594edef86630 revised version tz parents: 632 diff changeset	2169
636 d53428252193 revised version tz parents: 633 diff changeset	2170	(self resourceMessage:
1994 d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	2171	(ResourceSelectionBrowser
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	2172	request: 'Save Image In Class'
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	2173	onSuperclass: #Object
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	2174	andClass: className
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	2175	andSelector: self resourceSelector
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	2176	withResourceTypes: #(image fileImage))) notNil
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	2177	ifTrue: [
d2d9228d38ec * empty log message * Claus Gittinger <cg@exept.de> parents: 1992 diff changeset	2178	^ self saveMethod
674 f24ca336b717 if none image found for loading clear image tz parents: 662 diff changeset	2179	].
633 594edef86630 revised version tz parents: 632 diff changeset	2180	^nil
1 c6ca7bfedf31 Initial revision claus parents: diff changeset	2181	! !
c6ca7bfedf31 Initial revision claus parents: diff changeset	2182
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	2183	!ImageEditView methodsFor:'queries'!
5 be72e6ba4822 * empty log message * claus parents: 1 diff changeset	2184
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	2185	heightOfContents
5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	2186
686 33833bcbb5cd some cleans tz parents: 678 diff changeset	2187	image isNil ifTrue:[^0].
33833bcbb5cd some cleans tz parents: 678 diff changeset	2188	^(image height * magnification y) rounded
5 be72e6ba4822 * empty log message * claus parents: 1 diff changeset	2189	!
be72e6ba4822 * empty log message * claus parents: 1 diff changeset	2190
995 cd84d6f8c449 several undos tz parents: 994 diff changeset	2191	imageContainsPastePoint: aPoint
cd84d6f8c449 several undos tz parents: 994 diff changeset	2192
cd84d6f8c449 several undos tz parents: 994 diff changeset	2193	^image notNil and:
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	2194	[Clipboard notNil and:
441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	2195	[((0@0 corner:(image extent) "- 1" - Clipboard extent) containsPoint: (((aPoint - margin + 1) / magnification) floor))]]
995 cd84d6f8c449 several undos tz parents: 994 diff changeset	2196	!
cd84d6f8c449 several undos tz parents: 994 diff changeset	2197
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	2198	imageContainsPoint: aPoint
632 be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	2199
be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	2200	^image notNil and:
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	2201	[((0@0 corner:(image extent) - 1) containsPoint: (((aPoint - margin + 1) / magnification) floor))]
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	2202	!
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	2203
783 c81a097b84b8 revised version tz parents: 747 diff changeset	2204	imageInfoString
c81a097b84b8 revised version tz parents: 747 diff changeset	2205
c81a097b84b8 revised version tz parents: 747 diff changeset	2206	\|imageInfoString usedColors\|
1011 325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	2207
325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	2208	image isNil ifTrue: [imageInfoString := 'No image loaded.']
325d334e93c8 added paste-under (only paste where pixel ~= current selected) Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	2209	ifFalse: [
1116 441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	2210	image colorMap isNil ifTrue: [usedColors := '?'] ifFalse: [usedColors := image usedColors size].
441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	2211	imageInfoString := image width printString, 'x'
441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	2212	, image height printString, 'x'
441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	2213	, (2 raisedTo: image depth) printString
441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	2214	, (image mask notNil ifTrue: [' (mask + '] ifFalse: ['('])
441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	2215	, usedColors printString
441ff42c1472 fixes to allow 24bit images to be (at least) displayed Claus Gittinger <cg@exept.de> parents: 1106 diff changeset	2216	, ' used colors)'].
783 c81a097b84b8 revised version tz parents: 747 diff changeset	2217
c81a097b84b8 revised version tz parents: 747 diff changeset	2218	^imageInfoString
c81a097b84b8 revised version tz parents: 747 diff changeset	2219	!
c81a097b84b8 revised version tz parents: 747 diff changeset	2220
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	2221	widthOfContents
5 be72e6ba4822 * empty log message * claus parents: 1 diff changeset	2222
686 33833bcbb5cd some cleans tz parents: 678 diff changeset	2223	image isNil ifTrue:[^0].
33833bcbb5cd some cleans tz parents: 678 diff changeset	2224	^(image width * magnification x) rounded
5 be72e6ba4822 * empty log message * claus parents: 1 diff changeset	2225	! !
be72e6ba4822 * empty log message * claus parents: 1 diff changeset	2226
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	2227	!ImageEditView methodsFor:'release'!
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	2228
995 cd84d6f8c449 several undos tz parents: 994 diff changeset	2229	releasePasteDrawing
2085 4cf52f994f0a checkin from browser Claus Gittinger <cg@exept.de> parents: 2072 diff changeset	2230	self repairDamage.
2440 a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	2231	(lastPastePoint notNil and: [ClipboardMagnified notNil])
2747 818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	2232	ifTrue: [
2440 a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	2233	self redraw: ((lastPastePoint"-self viewOrigin") extent: (ClipboardMagnified extent)).
2085 4cf52f994f0a checkin from browser Claus Gittinger <cg@exept.de> parents: 2072 diff changeset	2234	"/ self repairDamage.
995 cd84d6f8c449 several undos tz parents: 994 diff changeset	2235	].
2440 a9abeb0e3562 checkin from browser Claus Gittinger <cg@exept.de> parents: 2415 diff changeset	2236	lastPastePoint := ClipboardMagnified := nil
995 cd84d6f8c449 several undos tz parents: 994 diff changeset	2237	!
cd84d6f8c449 several undos tz parents: 994 diff changeset	2238
cd84d6f8c449 several undos tz parents: 994 diff changeset	2239	releaseUndos
cd84d6f8c449 several undos tz parents: 994 diff changeset	2240	undoImages removeAll.
627 e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	2241	! !
e0bf28f61361 many many fixes/enhancements tz parents: 624 diff changeset	2242
632 be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	2243	!ImageEditView methodsFor:'testing'!
be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	2244
be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	2245	checkModified
2747 818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	2246	modifiedHolder value ifTrue:[
2634 dc5098a445d4 resources Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2247	((YesNoBox title:(resources string:'Image was not saved. Exit anyway ?'))
2591 87cab7199c7e Use 'Discard Changes and Exit' instead of 'Forget it...' Stefan Vogel <sv@exept.de> parents: 2590 diff changeset	2248	noText:(resources string:'Cancel');
2634 dc5098a445d4 resources Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2249	yesText:(resources string:'Exit without Saving');
2591 87cab7199c7e Use 'Discard Changes and Exit' instead of 'Forget it...' Stefan Vogel <sv@exept.de> parents: 2590 diff changeset	2250	showAtPointer;
2747 818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	2251	accepted
818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	2252	) ifFalse: [^false].
818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	2253
818a513a64c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	2254	self modified:false.
632 be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	2255	].
2591 87cab7199c7e Use 'Discard Changes and Exit' instead of 'Forget it...' Stefan Vogel <sv@exept.de> parents: 2590 diff changeset	2256	^ true
1031 a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	2257
a5ab5869b2ba cleaned up the interface to the apps infoPanel Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	2258	"Modified: / 29.7.1998 / 18:55:24 / cg"
632 be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	2259	! !
be1ac8ea33a7 checkin from browser tz parents: 628 diff changeset	2260
255 1dfa8deddaef checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	2261	!ImageEditView class methodsFor:'documentation'!
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	2262
5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	2263	version
2764 3302aab746d2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2756 diff changeset	2264	^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.198 2004-10-19 17:09:17 cg Exp $'
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 86 diff changeset	2265	! !
2239 d2f65f84f314 saveAsButtonImage added ca parents: 2177 diff changeset	2266
1245 68581e6aaf23 code cleanup Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	2267	ImageEditView initialize!

author	Claus Gittinger <cg@exept.de>
	Tue, 19 Oct 2004 19:09:17 +0200
changeset 2764	3302aab746d2
parent 2756	5a1646996277
child 2765	5bc0bfbeac33
permissions	-rw-r--r--