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

author	Claus Gittinger <cg@exept.de>
	Tue, 14 Feb 2006 11:06:11 +0100
changeset 2917	ac62b66582ce
parent 2915	6f4e171a1092
child 3265	f22de2c4383d
permissions	-rw-r--r--