|
400
|
1 |
"
|
|
|
2 |
COPYRIGHT (c) 1997 by eXept Software AG / Thomas Zwick
|
|
|
3 |
All Rights Reserved
|
|
|
4 |
|
|
|
5 |
This software is furnished under a license and may be used
|
|
|
6 |
only in accordance with the terms of that license and with the
|
|
405
|
7 |
inclusion of the above copyright notice. This software may not
|
|
400
|
8 |
be provided or otherwise made available to, or used by, any
|
|
405
|
9 |
other person. No title to or ownership of the software is
|
|
400
|
10 |
hereby transferred.
|
|
|
11 |
"
|
|
|
12 |
|
|
|
13 |
ToolApplicationModel subclass:#ImageEditor
|
|
|
14 |
instanceVariableNames:'colorMapMode selectedColorIndex postOpenAction'
|
|
|
15 |
classVariableNames:''
|
|
|
16 |
poolDictionaries:''
|
|
|
17 |
category:'Interface-Advanced-Tools'
|
|
|
18 |
!
|
|
|
19 |
|
|
|
20 |
!ImageEditor class methodsFor:'documentation'!
|
|
|
21 |
|
|
|
22 |
copyright
|
|
|
23 |
"
|
|
|
24 |
COPYRIGHT (c) 1997 by eXept Software AG / Thomas Zwick
|
|
|
25 |
All Rights Reserved
|
|
|
26 |
|
|
|
27 |
This software is furnished under a license and may be used
|
|
|
28 |
only in accordance with the terms of that license and with the
|
|
405
|
29 |
inclusion of the above copyright notice. This software may not
|
|
400
|
30 |
be provided or otherwise made available to, or used by, any
|
|
405
|
31 |
other person. No title to or ownership of the software is
|
|
400
|
32 |
hereby transferred.
|
|
|
33 |
"
|
|
|
34 |
!
|
|
|
35 |
|
|
|
36 |
documentation
|
|
|
37 |
"
|
|
|
38 |
By the Image Editor you are able to create, design, modify or just inspect images.
|
|
|
39 |
|
|
|
40 |
[start with:]
|
|
|
41 |
ImageEditor open
|
|
|
42 |
ImageEditor openOnClass:ImageEditor andSelector:#newImageIcon
|
|
|
43 |
|
|
|
44 |
[see also:]
|
|
|
45 |
ImageEditView Image
|
|
|
46 |
|
|
|
47 |
[author:]
|
|
|
48 |
Thomas Zwick
|
|
|
49 |
"
|
|
|
50 |
! !
|
|
|
51 |
|
|
|
52 |
!ImageEditor class methodsFor:'instance creation'!
|
|
|
53 |
|
|
|
54 |
openModalOnClass: aClass andSelector: aSelector
|
|
|
55 |
|
|
|
56 |
"self openModalOnClass: self andSelector: #newImageIcon"
|
|
|
57 |
|
|
415
|
58 |
|imageEditor className resourceClassName resourceSelector|
|
|
400
|
59 |
imageEditor := self new.
|
|
|
60 |
aClass isClass ifTrue: [className := aClass name].
|
|
|
61 |
aClass isString ifTrue: [className := aClass].
|
|
|
62 |
|
|
415
|
63 |
imageEditor postOpenAction: [imageEditor loadFromOrPrepareForMessage: className, ' ', aSelector].
|
|
400
|
64 |
imageEditor openModal.
|
|
|
65 |
|
|
|
66 |
resourceClassName := imageEditor valueOfResourceClass value.
|
|
|
67 |
resourceSelector := imageEditor valueOfResourceSelector value.
|
|
415
|
68 |
|
|
|
69 |
(className asString ~= resourceClassName) | (aSelector asString ~= resourceSelector)
|
|
|
70 |
ifTrue: [^resourceClassName, ' ', resourceSelector]
|
|
|
71 |
ifFalse:[^nil]
|
|
400
|
72 |
!
|
|
|
73 |
|
|
|
74 |
openOnClass: aClass andSelector: aSelector
|
|
|
75 |
|
|
|
76 |
"self openOnClass: self andSelector: #newImageIcon"
|
|
|
77 |
|
|
|
78 |
^self open loadFromMessage: aClass name, ' ', aSelector
|
|
|
79 |
!
|
|
|
80 |
|
|
|
81 |
openOnFile: image
|
|
|
82 |
|
|
|
83 |
"self openOnFile: 'bitmaps/SmalltalkX.xbm'"
|
|
|
84 |
|
|
|
85 |
^self open loadFromFile: image
|
|
|
86 |
!
|
|
|
87 |
|
|
|
88 |
openOnImage: image
|
|
|
89 |
|
|
|
90 |
"self openOnImage: self stxIcon"
|
|
|
91 |
|
|
|
92 |
^self open loadFromImage: image
|
|
|
93 |
! !
|
|
|
94 |
|
|
|
95 |
!ImageEditor class methodsFor:'accessing'!
|
|
|
96 |
|
|
|
97 |
listOfColorMaps
|
|
|
98 |
|
|
|
99 |
|colorMap|
|
|
|
100 |
(colorMap := OrderedCollection new)
|
|
|
101 |
add: Color black;
|
|
|
102 |
add: Color white;
|
|
|
103 |
add: Color red;
|
|
|
104 |
add: Color green;
|
|
|
105 |
add: Color blue;
|
|
|
106 |
add: Color cyan;
|
|
|
107 |
add: Color yellow;
|
|
|
108 |
add: Color magenta;
|
|
|
109 |
add: (Color red: 50 green: 0 blue: 0);
|
|
|
110 |
add: (Color red: 0 green: 50 blue: 0);
|
|
|
111 |
add: (Color red: 0 green: 0 blue: 50);
|
|
|
112 |
add: (Color red: 0 green: 50 blue: 50);
|
|
|
113 |
add: (Color red: 50 green: 50 blue: 0);
|
|
|
114 |
add: (Color red: 50 green: 0 blue: 50);
|
|
|
115 |
add: Color gray;
|
|
|
116 |
add: Color lightGray.
|
|
|
117 |
0 to: 5 do:
|
|
|
118 |
[:r|
|
|
|
119 |
0 to: 5 do:
|
|
|
120 |
[:g|
|
|
|
121 |
0 to: 5 do:
|
|
|
122 |
[:b|
|
|
|
123 |
colorMap add: (Color red: (r*100//5) ceiling green: (g*100//5) ceiling blue: (b*100//5) ceiling)
|
|
|
124 |
]
|
|
|
125 |
]
|
|
|
126 |
].
|
|
|
127 |
|
|
|
128 |
1 to: 25 do:
|
|
|
129 |
[:g|
|
|
|
130 |
colorMap add: (Color gray: (g*100//26) ceiling)
|
|
|
131 |
].
|
|
|
132 |
|
|
|
133 |
^Dictionary new
|
|
|
134 |
at: '8-plane' put: colorMap;
|
|
|
135 |
at: '8-plane + mask' put: colorMap;
|
|
|
136 |
at: '4-plane' put: (colorMap copyFrom: 1 to: 16);
|
|
|
137 |
at: '4-plane + mask' put: (colorMap copyFrom: 1 to: 16);
|
|
|
138 |
at: '2-plane' put: (colorMap copyFrom: 1 to: 4);
|
|
|
139 |
at: '2-plane + mask' put: (colorMap copyFrom: 1 to: 4);
|
|
|
140 |
at: '1-plane' put: (colorMap copyFrom: 1 to: 2);
|
|
|
141 |
at: '1-plane + mask' put: (colorMap copyFrom: 1 to: 2);
|
|
|
142 |
yourself
|
|
|
143 |
!
|
|
|
144 |
|
|
|
145 |
listOfDefaultSizes
|
|
|
146 |
|
|
|
147 |
^#('24x24' '16x16' '32x32')
|
|
|
148 |
! !
|
|
|
149 |
|
|
|
150 |
!ImageEditor class methodsFor:'interface specs'!
|
|
|
151 |
|
|
|
152 |
menu
|
|
|
153 |
"this window spec was automatically generated by the ST/X MenuEditor"
|
|
|
154 |
|
|
|
155 |
"do not manually edit this - the builder may not be able to
|
|
|
156 |
handle the specification if its corrupted."
|
|
|
157 |
|
|
|
158 |
"
|
|
|
159 |
MenuEditor new openOnClass:ImageEditor andSelector:#menu
|
|
|
160 |
(Menu new fromLiteralArrayEncoding:(ImageEditor menu)) startUp
|
|
|
161 |
"
|
|
|
162 |
|
|
|
163 |
<resource: #menu>
|
|
|
164 |
|
|
|
165 |
^
|
|
|
166 |
|
|
|
167 |
#(#Menu
|
|
|
168 |
|
|
|
169 |
#(
|
|
|
170 |
#(#MenuItem
|
|
|
171 |
#'label:' 'About'
|
|
|
172 |
#'labelImage:' #(#ResourceRetriever #ImageEditor #icon)
|
|
|
173 |
#'submenuChannel:' #menuAbout
|
|
|
174 |
)
|
|
|
175 |
#(#MenuItem
|
|
|
176 |
#'label:' 'File'
|
|
|
177 |
#'translateLabel:' true
|
|
|
178 |
#'submenu:'
|
|
|
179 |
#(#Menu
|
|
|
180 |
|
|
|
181 |
#(
|
|
|
182 |
#(#MenuItem
|
|
|
183 |
#'label:' 'New...'
|
|
|
184 |
#'value:' #newImage
|
|
|
185 |
)
|
|
|
186 |
#(#MenuItem
|
|
|
187 |
#'label:' '-'
|
|
|
188 |
)
|
|
|
189 |
#(#MenuItem
|
|
|
190 |
#'label:' 'Load From File...'
|
|
|
191 |
#'value:' #loadFromFile
|
|
|
192 |
)
|
|
|
193 |
#(#MenuItem
|
|
|
194 |
#'label:' 'Load From Class...'
|
|
|
195 |
#'value:' #loadFromClass
|
|
|
196 |
)
|
|
|
197 |
#(#MenuItem
|
|
|
198 |
#'label:' 'Load From Class With Superclass...'
|
|
|
199 |
#'translateLabel:' true
|
|
|
200 |
#'value:' #loadFromClassWithSuperclass
|
|
|
201 |
)
|
|
|
202 |
#(#MenuItem
|
|
|
203 |
#'label:' '-'
|
|
|
204 |
)
|
|
|
205 |
#(#MenuItem
|
|
|
206 |
#'label:' 'Save'
|
|
|
207 |
#'value:' #saveImageFile
|
|
|
208 |
#'enabled:' #imageIsLoaded
|
|
|
209 |
)
|
|
|
210 |
#(#MenuItem
|
|
|
211 |
#'label:' 'Save As...'
|
|
|
212 |
#'value:' #saveImageFileAs
|
|
|
213 |
#'enabled:' #imageIsLoaded
|
|
|
214 |
)
|
|
|
215 |
#(#MenuItem
|
|
|
216 |
#'label:' 'Save Mask As...'
|
|
|
217 |
#'value:' #saveImageMaskFileAs
|
|
|
218 |
#'enabled:' #imageIsLoaded
|
|
|
219 |
)
|
|
|
220 |
#(#MenuItem
|
|
|
221 |
#'label:' '-'
|
|
|
222 |
)
|
|
|
223 |
#(#MenuItem
|
|
|
224 |
#'label:' 'Save Method'
|
|
|
225 |
#'value:' #saveMethod
|
|
|
226 |
#'enabled:' #imageIsLoaded
|
|
|
227 |
)
|
|
|
228 |
#(#MenuItem
|
|
|
229 |
#'label:' 'Save Method As...'
|
|
|
230 |
#'value:' #saveMethodAs
|
|
|
231 |
#'enabled:' #imageIsLoaded
|
|
|
232 |
)
|
|
|
233 |
#(#MenuItem
|
|
|
234 |
#'label:' '-'
|
|
|
235 |
)
|
|
|
236 |
#(#MenuItem
|
|
|
237 |
#'label:' 'Print'
|
|
|
238 |
#'value:' #print
|
|
|
239 |
#'enabled:' #imageIsLoaded
|
|
|
240 |
)
|
|
|
241 |
#(#MenuItem
|
|
|
242 |
#'label:' '-'
|
|
|
243 |
)
|
|
|
244 |
#(#MenuItem
|
|
|
245 |
#'label:' 'Browse Class'
|
|
|
246 |
#'value:' #browseClass
|
|
|
247 |
#'enabled:' #imageIsLoaded
|
|
|
248 |
)
|
|
|
249 |
#(#MenuItem
|
|
|
250 |
#'label:' '-'
|
|
|
251 |
)
|
|
|
252 |
#(#MenuItem
|
|
|
253 |
#'label:' 'Exit'
|
|
|
254 |
#'translateLabel:' true
|
|
|
255 |
#'value:' #closeRequest
|
|
|
256 |
)
|
|
|
257 |
) nil
|
|
|
258 |
nil
|
|
|
259 |
)
|
|
|
260 |
)
|
|
|
261 |
#(#MenuItem
|
|
|
262 |
#'label:' 'Edit'
|
|
|
263 |
#'enabled:' #imageIsLoaded
|
|
|
264 |
#'submenu:'
|
|
|
265 |
#(#Menu
|
|
|
266 |
|
|
|
267 |
#(
|
|
|
268 |
#(#MenuItem
|
|
|
269 |
#'label:' 'Undo'
|
|
|
270 |
#'value:' #undo
|
|
|
271 |
)
|
|
|
272 |
#(#MenuItem
|
|
|
273 |
#'label:' '-'
|
|
|
274 |
)
|
|
|
275 |
#(#MenuItem
|
|
|
276 |
#'label:' 'Flip - Vertical'
|
|
|
277 |
#'value:' #flipVertical
|
|
|
278 |
)
|
|
|
279 |
#(#MenuItem
|
|
|
280 |
#'label:' 'Flip - Horizontal'
|
|
|
281 |
#'value:' #flipHorizontal
|
|
|
282 |
)
|
|
|
283 |
#(#MenuItem
|
|
|
284 |
#'label:' '-'
|
|
|
285 |
)
|
|
|
286 |
#(#MenuItem
|
|
|
287 |
#'label:' 'Resize...'
|
|
|
288 |
#'value:' #resizeImage
|
|
|
289 |
)
|
|
|
290 |
#(#MenuItem
|
|
|
291 |
#'label:' 'Magnify...'
|
|
|
292 |
#'value:' #magnifyImage
|
|
|
293 |
)
|
|
|
294 |
#(#MenuItem
|
|
|
295 |
#'label:' 'Rotate...'
|
|
|
296 |
#'value:' #rotateImage
|
|
|
297 |
)
|
|
|
298 |
#(#MenuItem
|
|
|
299 |
#'label:' '-'
|
|
|
300 |
)
|
|
|
301 |
#(#MenuItem
|
|
|
302 |
#'label:' 'Negative'
|
|
|
303 |
#'value:' #negativeImage
|
|
|
304 |
)
|
|
|
305 |
) nil
|
|
|
306 |
nil
|
|
|
307 |
)
|
|
|
308 |
)
|
|
|
309 |
#(#MenuItem
|
|
|
310 |
#'label:' 'Color Map'
|
|
|
311 |
#'enabled:' #imageIsLoaded
|
|
|
312 |
#'submenu:'
|
|
|
313 |
#(#Menu
|
|
|
314 |
|
|
|
315 |
#(
|
|
|
316 |
#(#MenuItem
|
|
|
317 |
#'label:' '8-Plane'
|
|
|
318 |
#'argument:' '8-plane'
|
|
|
319 |
#'indication:' #'colorMapMode:value:'
|
|
|
320 |
)
|
|
|
321 |
#(#MenuItem
|
|
|
322 |
#'label:' '4-Plane'
|
|
|
323 |
#'argument:' '4-plane'
|
|
|
324 |
#'indication:' #'colorMapMode:value:'
|
|
|
325 |
)
|
|
|
326 |
#(#MenuItem
|
|
|
327 |
#'label:' '2-Plane'
|
|
|
328 |
#'argument:' '2-plane'
|
|
|
329 |
#'indication:' #'colorMapMode:value:'
|
|
|
330 |
)
|
|
|
331 |
#(#MenuItem
|
|
|
332 |
#'label:' '1-Plane'
|
|
|
333 |
#'argument:' '1-plane'
|
|
|
334 |
#'indication:' #'colorMapMode:value:'
|
|
|
335 |
)
|
|
|
336 |
#(#MenuItem
|
|
|
337 |
#'label:' '-'
|
|
|
338 |
)
|
|
|
339 |
#(#MenuItem
|
|
|
340 |
#'label:' '8-Plane + Mask'
|
|
|
341 |
#'argument:' '8-plane + mask'
|
|
|
342 |
#'indication:' #'colorMapMode:value:'
|
|
|
343 |
)
|
|
|
344 |
#(#MenuItem
|
|
|
345 |
#'label:' '4-Plane + Mask'
|
|
|
346 |
#'argument:' '4-plane + mask'
|
|
|
347 |
#'indication:' #'colorMapMode:value:'
|
|
|
348 |
)
|
|
|
349 |
#(#MenuItem
|
|
|
350 |
#'label:' '2-Plane + Mask'
|
|
|
351 |
#'argument:' '2-plane + mask'
|
|
|
352 |
#'indication:' #'colorMapMode:value:'
|
|
|
353 |
)
|
|
|
354 |
#(#MenuItem
|
|
|
355 |
#'label:' '1-Plane + Mask'
|
|
|
356 |
#'argument:' '1-plane + mask'
|
|
|
357 |
#'indication:' #'colorMapMode:value:'
|
|
|
358 |
)
|
|
|
359 |
) nil
|
|
|
360 |
nil
|
|
|
361 |
)
|
|
|
362 |
)
|
|
|
363 |
#(#MenuItem
|
|
|
364 |
#'label:' 'History'
|
|
|
365 |
#'submenuChannel:' #menuHistory
|
|
|
366 |
)
|
|
|
367 |
#(#MenuItem
|
|
|
368 |
#'label:' 'Help'
|
|
|
369 |
#'submenuChannel:' #menuHelp
|
|
|
370 |
)
|
|
|
371 |
) nil
|
|
|
372 |
nil
|
|
|
373 |
)
|
|
|
374 |
!
|
|
|
375 |
|
|
|
376 |
menuColorAssignment
|
|
|
377 |
"this window spec was automatically generated by the ST/X MenuEditor"
|
|
|
378 |
|
|
|
379 |
"do not manually edit this - the builder may not be able to
|
|
|
380 |
handle the specification if its corrupted."
|
|
|
381 |
|
|
|
382 |
"
|
|
|
383 |
MenuEditor new openOnClass:ImageEditor andSelector:#menuColorAssignment
|
|
|
384 |
(Menu new fromLiteralArrayEncoding:(ImageEditor menuColorAssignment)) startUp
|
|
|
385 |
"
|
|
|
386 |
|
|
|
387 |
<resource: #menu>
|
|
|
388 |
|
|
|
389 |
^
|
|
|
390 |
|
|
|
391 |
#(#Menu
|
|
|
392 |
|
|
|
393 |
#(
|
|
|
394 |
#(#MenuItem
|
|
|
395 |
#'label:' 'left'
|
|
|
396 |
#'nameKey:' #leftMouseKeyButton
|
|
|
397 |
#'argument:' '1'
|
|
|
398 |
#'labelImage:' #(#ResourceRetriever nil #leftMouseKeyIcon)
|
|
|
399 |
#'indication:' #'mouseKeyColorMode:value:'
|
|
|
400 |
)
|
|
|
401 |
#(#MenuItem
|
|
|
402 |
#'label:' 'right'
|
|
|
403 |
#'nameKey:' #rightMouseKeyButton
|
|
|
404 |
#'argument:' '2'
|
|
|
405 |
#'labelImage:' #(#ResourceRetriever nil #rightMouseKeyIcon)
|
|
|
406 |
#'indication:' #'mouseKeyColorMode:value:'
|
|
|
407 |
)
|
|
|
408 |
) nil
|
|
|
409 |
nil
|
|
|
410 |
)
|
|
|
411 |
!
|
|
|
412 |
|
|
|
413 |
menuToolbar
|
|
|
414 |
"this window spec was automatically generated by the ST/X MenuEditor"
|
|
|
415 |
|
|
|
416 |
"do not manually edit this - the builder may not be able to
|
|
|
417 |
handle the specification if its corrupted."
|
|
|
418 |
|
|
|
419 |
"
|
|
|
420 |
MenuEditor new openOnClass:ImageEditor andSelector:#menuToolbar
|
|
|
421 |
(Menu new fromLiteralArrayEncoding:(ImageEditor menuToolbar)) startUp
|
|
|
422 |
"
|
|
|
423 |
|
|
|
424 |
<resource: #menu>
|
|
|
425 |
|
|
|
426 |
^
|
|
|
427 |
|
|
|
428 |
#(#Menu
|
|
|
429 |
|
|
|
430 |
#(
|
|
|
431 |
#(#MenuItem
|
|
|
432 |
#'label:' 'newImage'
|
|
|
433 |
#'isButton:' true
|
|
|
434 |
#'value:' #newImage
|
|
|
435 |
#'labelImage:' #(#ResourceRetriever nil #newImageIcon)
|
|
|
436 |
)
|
|
|
437 |
#(#MenuItem
|
|
|
438 |
#'label:' 'loadFromClass'
|
|
|
439 |
#'isButton:' true
|
|
|
440 |
#'value:' #loadFromClass
|
|
|
441 |
#'labelImage:' #(#ResourceRetriever nil #loadFromClassIcon)
|
|
|
442 |
)
|
|
|
443 |
#(#MenuItem
|
|
|
444 |
#'label:' 'loadFromFile'
|
|
|
445 |
#'isButton:' true
|
|
|
446 |
#'value:' #loadFromFile
|
|
|
447 |
#'labelImage:' #(#ResourceRetriever nil #loadFromFileIcon)
|
|
|
448 |
)
|
|
|
449 |
#(#MenuItem
|
|
|
450 |
#'label:' '-'
|
|
|
451 |
)
|
|
|
452 |
#(#MenuItem
|
|
|
453 |
#'label:' 'saveMethod'
|
|
|
454 |
#'isButton:' true
|
|
|
455 |
#'value:' #saveMethod
|
|
|
456 |
#'enabled:' #imageIsLoaded
|
|
|
457 |
#'labelImage:' #(#ResourceRetriever nil #saveAsMethodIcon)
|
|
|
458 |
)
|
|
|
459 |
#(#MenuItem
|
|
|
460 |
#'label:' 'saveFile'
|
|
|
461 |
#'isButton:' true
|
|
|
462 |
#'value:' #saveImageFile
|
|
|
463 |
#'enabled:' #imageIsLoaded
|
|
|
464 |
#'labelImage:' #(#ResourceRetriever nil #saveIcon)
|
|
|
465 |
)
|
|
|
466 |
#(#MenuItem
|
|
|
467 |
#'label:' '-'
|
|
|
468 |
)
|
|
|
469 |
#(#MenuItem
|
|
|
470 |
#'label:' 'Point'
|
|
|
471 |
#'enabled:' #imageIsLoaded
|
|
|
472 |
#'argument:' 'point'
|
|
|
473 |
#'indication:' #'editMode:value:'
|
|
|
474 |
)
|
|
|
475 |
#(#MenuItem
|
|
|
476 |
#'label:' 'Box'
|
|
|
477 |
#'enabled:' #imageIsLoaded
|
|
|
478 |
#'argument:' 'box'
|
|
|
479 |
#'indication:' #'editMode:value:'
|
|
|
480 |
)
|
|
|
481 |
#(#MenuItem
|
|
|
482 |
#'label:' 'Filled Box'
|
|
|
483 |
#'enabled:' #imageIsLoaded
|
|
|
484 |
#'argument:' 'filledBox'
|
|
|
485 |
#'indication:' #'editMode:value:'
|
|
|
486 |
)
|
|
|
487 |
#(#MenuItem
|
|
|
488 |
#'label:' 'Fill'
|
|
|
489 |
#'enabled:' #imageIsLoaded
|
|
|
490 |
#'argument:' 'fill'
|
|
|
491 |
#'indication:' #'editMode:value:'
|
|
|
492 |
)
|
|
|
493 |
#(#MenuItem
|
|
|
494 |
#'label:' 'Copy'
|
|
|
495 |
#'enabled:' #imageIsLoaded
|
|
|
496 |
#'argument:' 'copy'
|
|
|
497 |
#'indication:' #'editMode:value:'
|
|
|
498 |
)
|
|
|
499 |
#(#MenuItem
|
|
|
500 |
#'label:' 'Paste'
|
|
|
501 |
#'enabled:' #imageIsLoaded
|
|
|
502 |
#'argument:' 'paste'
|
|
|
503 |
#'indication:' #'editMode:value:'
|
|
|
504 |
)
|
|
|
505 |
) nil
|
|
|
506 |
nil
|
|
|
507 |
)
|
|
|
508 |
!
|
|
|
509 |
|
|
|
510 |
windowSpec
|
|
|
511 |
"this window spec was automatically generated by the ST/X UIPainter"
|
|
|
512 |
|
|
|
513 |
"do not manually edit this - the painter/builder may not be able to
|
|
|
514 |
handle the specification if its corrupted."
|
|
|
515 |
|
|
|
516 |
"
|
|
|
517 |
UIPainter new openOnClass:ImageEditor andSelector:#windowSpec
|
|
|
518 |
ImageEditor new openInterface:#windowSpec
|
|
|
519 |
"
|
|
|
520 |
"ImageEditor open"
|
|
|
521 |
|
|
|
522 |
<resource: #canvas>
|
|
|
523 |
|
|
|
524 |
^
|
|
|
525 |
|
|
|
526 |
#(#FullSpec
|
|
|
527 |
#'window:'
|
|
|
528 |
#(#WindowSpec
|
|
|
529 |
#'name:' 'Image Editor'
|
|
420
|
530 |
#'layout:' #(#LayoutFrame 189 0 240 0 688 0 585 0)
|
|
400
|
531 |
#'label:' 'Image Editor'
|
|
|
532 |
#'min:' #(#Point 400 320)
|
|
|
533 |
#'max:' #(#Point 1152 900)
|
|
420
|
534 |
#'bounds:' #(#Rectangle 189 240 689 586)
|
|
400
|
535 |
#'menu:' #menu
|
|
|
536 |
#'usePreferredExtent:' false
|
|
|
537 |
)
|
|
|
538 |
#'component:'
|
|
|
539 |
#(#SpecCollection
|
|
|
540 |
#'collection:'
|
|
|
541 |
#(
|
|
|
542 |
#(#MenuPanelSpec
|
|
|
543 |
#'name:' 'menuToolbarView'
|
|
415
|
544 |
#'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
|
|
400
|
545 |
#'menu:' #menuToolbar
|
|
|
546 |
#'style:' #(#FontDescription #helvetica #medium #roman 10)
|
|
|
547 |
#'showSeparatingLines:' true
|
|
|
548 |
)
|
|
|
549 |
#(#VariableHorizontalPanelSpec
|
|
|
550 |
#'name:' 'variableHorizontalPanel1'
|
|
415
|
551 |
#'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -22 1.0)
|
|
400
|
552 |
#'component:'
|
|
|
553 |
#(#SpecCollection
|
|
|
554 |
#'collection:'
|
|
|
555 |
#(
|
|
|
556 |
#(#ViewSpec
|
|
|
557 |
#'name:' 'view1'
|
|
|
558 |
#'component:'
|
|
|
559 |
#(#SpecCollection
|
|
|
560 |
#'collection:'
|
|
|
561 |
#(
|
|
|
562 |
#(#FramedBoxSpec
|
|
|
563 |
#'name:' 'framedBox1'
|
|
|
564 |
#'layout:' #(#LayoutFrame 1 0.0 3 0.0 110 0 65 0)
|
|
|
565 |
#'component:'
|
|
|
566 |
#(#SpecCollection
|
|
|
567 |
#'collection:'
|
|
|
568 |
#(
|
|
|
569 |
#(#ArrowButtonSpec
|
|
|
570 |
#'name:' 'magnifyDownButton'
|
|
|
571 |
#'layout:' #(#LayoutFrame 13 0 20 0 35 0 42 0)
|
|
|
572 |
#'model:' #magnifyDown
|
|
|
573 |
#'enableChannel:' #imageIsLoaded
|
|
|
574 |
#'isTriggerOnDown:' true
|
|
|
575 |
#'direction:' #left
|
|
|
576 |
)
|
|
|
577 |
#(#ArrowButtonSpec
|
|
|
578 |
#'name:' 'magnifyUpButton'
|
|
|
579 |
#'layout:' #(#LayoutFrame 73 0 20 0 95 0 42 0)
|
|
|
580 |
#'model:' #magnifyUp
|
|
|
581 |
#'enableChannel:' #imageIsLoaded
|
|
|
582 |
#'isTriggerOnDown:' true
|
|
|
583 |
#'direction:' #right
|
|
|
584 |
)
|
|
|
585 |
#(#InputFieldSpec
|
|
|
586 |
#'name:' 'magnificationInputField'
|
|
|
587 |
#'layout:' #(#LayoutFrame 36 0 20 0.0 72 0 42 0)
|
|
|
588 |
#'enableChannel:' #imageIsLoaded
|
|
|
589 |
#'model:' #valueOfMagnification
|
|
|
590 |
#'type:' #number
|
|
|
591 |
#'acceptOnReturn:' false
|
|
|
592 |
#'acceptOnTab:' false
|
|
|
593 |
#'numChars:' 2
|
|
|
594 |
)
|
|
|
595 |
)
|
|
|
596 |
)
|
|
|
597 |
#'label:' 'Magnification'
|
|
|
598 |
#'labelPosition:' #topLeft
|
|
|
599 |
#'style:' #(#FontDescription #helvetica #medium #roman 12)
|
|
|
600 |
)
|
|
|
601 |
#(#FramedBoxSpec
|
|
|
602 |
#'name:' 'framedBox2'
|
|
|
603 |
#'layout:' #(#LayoutFrame 1 0.0 68 0 0 1.0 -66 1)
|
|
|
604 |
#'component:'
|
|
|
605 |
#(#SpecCollection
|
|
|
606 |
#'collection:'
|
|
|
607 |
#(
|
|
|
608 |
#(#DataSetSpec
|
|
|
609 |
#'name:' 'colorDataSetView'
|
|
|
610 |
#'layout:' #(#LayoutFrame 11 0.0 19 0.0 20 1.0 -10 1.0)
|
|
|
611 |
#'model:' #selectionOfColor
|
|
|
612 |
#'style:' #(#FontDescription #helvetica #medium #roman 12)
|
|
|
613 |
#'hasHorizontalScrollBar:' true
|
|
|
614 |
#'hasVerticalScrollBar:' true
|
|
|
615 |
#'miniScrollerHorizontal:' true
|
|
|
616 |
#'miniScrollerVertical:' true
|
|
|
617 |
#'dataList:' #listOfColors
|
|
|
618 |
#'has3Dsepartors:' true
|
|
|
619 |
#'verticalSpacing:' 1
|
|
|
620 |
#'columns:'
|
|
|
621 |
#(
|
|
|
622 |
#(#DataSetColumnSpec
|
|
|
623 |
#'rendererType:' #rowSelector
|
|
|
624 |
#'backgroundSelector:' #yourself
|
|
|
625 |
)
|
|
|
626 |
#(#DataSetColumnSpec
|
|
415
|
627 |
#'label:' 'Red'
|
|
400
|
628 |
#'model:' #rowRedByte
|
|
|
629 |
#'canSelect:' false
|
|
|
630 |
)
|
|
|
631 |
#(#DataSetColumnSpec
|
|
415
|
632 |
#'label:' 'Green'
|
|
400
|
633 |
#'model:' #rowGreenByte
|
|
|
634 |
#'canSelect:' false
|
|
|
635 |
)
|
|
|
636 |
#(#DataSetColumnSpec
|
|
415
|
637 |
#'label:' 'Blue'
|
|
400
|
638 |
#'model:' #rowBlueByte
|
|
|
639 |
#'canSelect:' false
|
|
|
640 |
)
|
|
|
641 |
)
|
|
|
642 |
)
|
|
|
643 |
#(#MenuPanelSpec
|
|
|
644 |
#'name:' 'menuColorAssignmentPanel'
|
|
|
645 |
#'layout:' #(#LayoutFrame 11 0 -10 1 18 1 17 1)
|
|
|
646 |
#'enableChannel:' #imageIsLoaded
|
|
|
647 |
#'menu:' #menuColorAssignment
|
|
|
648 |
#'style:' #(#FontDescription #helvetica #medium #roman 10)
|
|
|
649 |
)
|
|
|
650 |
)
|
|
|
651 |
)
|
|
|
652 |
#'label:' 'Color Map'
|
|
|
653 |
#'labelPosition:' #topLeft
|
|
|
654 |
#'style:' #(#FontDescription #helvetica #medium #roman 12)
|
|
|
655 |
)
|
|
|
656 |
#(#VerticalPanelViewSpec
|
|
|
657 |
#'name:' 'verticalPanelView1'
|
|
405
|
658 |
#'layout:' #(#LayoutFrame 1 0.0 -68 1 83 0 0 1.0)
|
|
400
|
659 |
#'component:'
|
|
|
660 |
#(#SpecCollection
|
|
|
661 |
#'collection:'
|
|
|
662 |
#(
|
|
|
663 |
#(#LabelSpec
|
|
|
664 |
#'name:' 'classNameLabel'
|
|
|
665 |
#'label:' 'Class:'
|
|
|
666 |
#'adjust:' #right
|
|
405
|
667 |
#'extent:' #(#Point 82 21)
|
|
400
|
668 |
)
|
|
|
669 |
#(#LabelSpec
|
|
|
670 |
#'name:' 'selectorLabel'
|
|
|
671 |
#'label:' 'Selector:'
|
|
|
672 |
#'adjust:' #right
|
|
405
|
673 |
#'extent:' #(#Point 82 20)
|
|
400
|
674 |
)
|
|
|
675 |
#(#LabelSpec
|
|
|
676 |
#'name:' 'fileNameLabel'
|
|
|
677 |
#'label:' 'File Name:'
|
|
|
678 |
#'adjust:' #right
|
|
405
|
679 |
#'extent:' #(#Point 82 21)
|
|
400
|
680 |
)
|
|
|
681 |
)
|
|
|
682 |
)
|
|
|
683 |
#'horizontalLayout:' #fit
|
|
|
684 |
#'verticalLayout:' #fit
|
|
|
685 |
#'horizontalSpace:' 3
|
|
|
686 |
#'verticalSpace:' 3
|
|
|
687 |
)
|
|
|
688 |
#(#VerticalPanelViewSpec
|
|
|
689 |
#'name:' 'verticalPanelView2'
|
|
405
|
690 |
#'layout:' #(#LayoutFrame 85 0.0 -68 1 -6 1 0 1.0)
|
|
400
|
691 |
#'component:'
|
|
|
692 |
#(#SpecCollection
|
|
|
693 |
#'collection:'
|
|
|
694 |
#(
|
|
|
695 |
#(#InputFieldSpec
|
|
|
696 |
#'name:' 'resourceClassInputField'
|
|
|
697 |
#'activeHelpKey:' #classNameInputField
|
|
|
698 |
#'model:' #valueOfResourceClass
|
|
|
699 |
#'immediateAccept:' false
|
|
405
|
700 |
#'extent:' #(#Point 129 21)
|
|
400
|
701 |
)
|
|
|
702 |
#(#InputFieldSpec
|
|
|
703 |
#'name:' 'resourceSelectorInputField'
|
|
|
704 |
#'activeHelpKey:' #selectorInputFieldHelp
|
|
|
705 |
#'model:' #valueOfResourceSelector
|
|
|
706 |
#'immediateAccept:' false
|
|
|
707 |
#'acceptOnTab:' false
|
|
405
|
708 |
#'extent:' #(#Point 129 20)
|
|
400
|
709 |
)
|
|
|
710 |
#(#InputFieldSpec
|
|
|
711 |
#'name:' 'fileNameInputField'
|
|
|
712 |
#'activeHelpKey:' #fileNameInputFieldHelp
|
|
|
713 |
#'model:' #valueOfFileName
|
|
|
714 |
#'immediateAccept:' false
|
|
|
715 |
#'acceptOnTab:' false
|
|
405
|
716 |
#'extent:' #(#Point 129 21)
|
|
400
|
717 |
)
|
|
|
718 |
)
|
|
|
719 |
)
|
|
|
720 |
#'horizontalLayout:' #fit
|
|
|
721 |
#'verticalLayout:' #fit
|
|
|
722 |
#'horizontalSpace:' 3
|
|
|
723 |
#'verticalSpace:' 3
|
|
|
724 |
)
|
|
|
725 |
#(#ArbitraryComponentSpec
|
|
|
726 |
#'name:' 'imagePreView'
|
|
|
727 |
#'layout:' #(#LayoutFrame 111 0.0 9 0.0 -6 1 60 0)
|
|
|
728 |
#'hasHorizontalScrollBar:' true
|
|
|
729 |
#'hasVerticalScrollBar:' true
|
|
|
730 |
#'miniScrollerHorizontal:' true
|
|
|
731 |
#'miniScrollerVertical:' true
|
|
|
732 |
#'component:' #ImageView
|
|
|
733 |
#'hasBorder:' true
|
|
|
734 |
)
|
|
|
735 |
)
|
|
|
736 |
)
|
|
|
737 |
#'level:' -1
|
|
|
738 |
)
|
|
|
739 |
#(#ViewSpec
|
|
|
740 |
#'name:' 'view2'
|
|
|
741 |
#'component:'
|
|
|
742 |
#(#SpecCollection
|
|
|
743 |
#'collection:'
|
|
|
744 |
#(
|
|
|
745 |
#(#ArbitraryComponentSpec
|
|
|
746 |
#'name:' 'imageEditView'
|
|
|
747 |
#'layout:' #(#LayoutFrame 2 0.0 2 0.0 -2 1.0 1 1.0)
|
|
|
748 |
#'hasHorizontalScrollBar:' true
|
|
|
749 |
#'hasVerticalScrollBar:' true
|
|
|
750 |
#'component:' #ImageEditView
|
|
|
751 |
#'hasBorder:' false
|
|
|
752 |
)
|
|
|
753 |
)
|
|
|
754 |
)
|
|
|
755 |
#'level:' -1
|
|
|
756 |
)
|
|
|
757 |
)
|
|
|
758 |
)
|
|
|
759 |
#'handles:' #(#Any 0.45082 1.0)
|
|
|
760 |
)
|
|
|
761 |
#(#LabelSpec
|
|
|
762 |
#'name:' 'infoLabel'
|
|
|
763 |
#'layout:' #(#LayoutFrame 0 0 -22 1 -170 1 0 1.0)
|
|
|
764 |
#'labelChannel:' #valueOfInfoLabel
|
|
|
765 |
#'level:' 1
|
|
|
766 |
#'adjust:' #left
|
|
|
767 |
)
|
|
|
768 |
#(#LabelSpec
|
|
|
769 |
#'name:' 'timeLabel'
|
|
405
|
770 |
#'layout:' #(#LayoutFrame -80 1 -22 1 0 1.0 0 1.0)
|
|
400
|
771 |
#'labelChannel:' #valueOfTimeLabel
|
|
|
772 |
#'level:' 1
|
|
|
773 |
#'adjust:' #right
|
|
|
774 |
)
|
|
|
775 |
#(#LabelSpec
|
|
|
776 |
#'name:' 'coordLabel'
|
|
405
|
777 |
#'layout:' #(#LayoutFrame -170 1 -22 1 -80 1 0 1.0)
|
|
400
|
778 |
#'labelChannel:' #valueOfCoordLabel
|
|
|
779 |
#'level:' 1
|
|
|
780 |
#'adjust:' #left
|
|
|
781 |
)
|
|
|
782 |
)
|
|
|
783 |
)
|
|
|
784 |
)
|
|
|
785 |
!
|
|
|
786 |
|
|
|
787 |
windowSpecForNewImage
|
|
|
788 |
"this window spec was automatically generated by the ST/X UIPainter"
|
|
|
789 |
|
|
|
790 |
"do not manually edit this - the painter/builder may not be able to
|
|
|
791 |
handle the specification if its corrupted."
|
|
|
792 |
|
|
|
793 |
"
|
|
|
794 |
UIPainter new openOnClass:ImageEditor andSelector:#windowSpecForNewImage
|
|
|
795 |
ImageEditor new openInterface:#windowSpecForNewImage
|
|
|
796 |
"
|
|
|
797 |
|
|
|
798 |
<resource: #canvas>
|
|
|
799 |
|
|
|
800 |
^
|
|
|
801 |
|
|
|
802 |
#(#FullSpec
|
|
|
803 |
#'window:'
|
|
|
804 |
#(#WindowSpec
|
|
|
805 |
#'name:' 'New Image'
|
|
|
806 |
#'layout:' #(#LayoutFrame 194 0 152 0 461 0 248 0)
|
|
|
807 |
#'label:' 'New Image'
|
|
|
808 |
#'min:' #(#Point 10 10)
|
|
|
809 |
#'max:' #(#Point 1152 900)
|
|
|
810 |
#'bounds:' #(#Rectangle 194 152 462 249)
|
|
|
811 |
#'usePreferredExtent:' false
|
|
|
812 |
)
|
|
|
813 |
#'component:'
|
|
|
814 |
#(#SpecCollection
|
|
|
815 |
#'collection:'
|
|
|
816 |
#(
|
|
|
817 |
#(#ViewSpec
|
|
|
818 |
#'name:' 'View'
|
|
|
819 |
#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -38 1.0)
|
|
|
820 |
#'component:'
|
|
|
821 |
#(#SpecCollection
|
|
|
822 |
#'collection:'
|
|
|
823 |
#(
|
|
|
824 |
#(#FramedBoxSpec
|
|
|
825 |
#'name:' 'framedBox1'
|
|
|
826 |
#'layout:' #(#LayoutFrame 1 0.0 1 0.0 0 0.4 55 0)
|
|
|
827 |
#'component:'
|
|
|
828 |
#(#SpecCollection
|
|
|
829 |
#'collection:'
|
|
|
830 |
#(
|
|
|
831 |
#(#ComboBoxSpec
|
|
|
832 |
#'name:' 'defaultSizesComboBox'
|
|
|
833 |
#'layout:' #(#LayoutFrame 15 0.0 16 0.0 15 1.0 16 1.0)
|
|
|
834 |
#'model:' #selectionOfSize
|
|
|
835 |
#'type:' #string
|
|
|
836 |
#'comboList:' #listOfDefaultSizes
|
|
|
837 |
)
|
|
|
838 |
)
|
|
|
839 |
)
|
|
|
840 |
#'label:' 'Size'
|
|
|
841 |
#'labelPosition:' #topLeft
|
|
|
842 |
#'style:' #(#FontDescription #helvetica #medium #roman 12)
|
|
|
843 |
)
|
|
|
844 |
#(#FramedBoxSpec
|
|
|
845 |
#'name:' 'framedBox2'
|
|
|
846 |
#'layout:' #(#LayoutFrame 0 0.4 1 0.0 -1 1.0 55 0)
|
|
|
847 |
#'component:'
|
|
|
848 |
#(#SpecCollection
|
|
|
849 |
#'collection:'
|
|
|
850 |
#(
|
|
|
851 |
#(#ComboListSpec
|
|
|
852 |
#'name:' 'colorMapComboBox'
|
|
|
853 |
#'layout:' #(#LayoutFrame 15 0.0 16 0.0 15 1.0 16 1.0)
|
|
|
854 |
#'model:' #selectionOfColorMap
|
|
|
855 |
#'comboList:' #listOfColorMaps
|
|
|
856 |
#'useIndex:' false
|
|
|
857 |
)
|
|
|
858 |
)
|
|
|
859 |
)
|
|
|
860 |
#'label:' 'Color Map'
|
|
|
861 |
#'labelPosition:' #topLeft
|
|
|
862 |
#'style:' #(#FontDescription #helvetica #medium #roman 12)
|
|
|
863 |
)
|
|
|
864 |
)
|
|
|
865 |
)
|
|
|
866 |
#'level:' 1
|
|
|
867 |
)
|
|
|
868 |
#(#HorizontalPanelViewSpec
|
|
|
869 |
#'name:' 'horizontalPanelView1'
|
|
|
870 |
#'layout:' #(#LayoutFrame 0 0.0 -38 1 0 1.0 0 1.0)
|
|
|
871 |
#'component:'
|
|
|
872 |
#(#SpecCollection
|
|
|
873 |
#'collection:'
|
|
|
874 |
#(
|
|
|
875 |
#(#ActionButtonSpec
|
|
|
876 |
#'name:' 'actionButton2'
|
|
|
877 |
#'label:' 'Cancel'
|
|
|
878 |
#'model:' #cancel
|
|
|
879 |
#'extent:' #(#Point 100 22)
|
|
|
880 |
)
|
|
|
881 |
#(#ActionButtonSpec
|
|
|
882 |
#'name:' 'actionButton1'
|
|
|
883 |
#'label:' 'OK'
|
|
|
884 |
#'model:' #accept
|
|
|
885 |
#'isDefault:' true
|
|
|
886 |
#'extent:' #(#Point 100 22)
|
|
|
887 |
)
|
|
|
888 |
)
|
|
|
889 |
)
|
|
|
890 |
#'horizontalLayout:' #center
|
|
|
891 |
#'verticalLayout:' #center
|
|
|
892 |
#'horizontalSpace:' 2
|
|
|
893 |
#'verticalSpace:' 1
|
|
|
894 |
)
|
|
|
895 |
)
|
|
|
896 |
)
|
|
|
897 |
)
|
|
|
898 |
! !
|
|
|
899 |
|
|
|
900 |
!ImageEditor class methodsFor:'resources'!
|
|
|
901 |
|
|
|
902 |
leftMouseKeyIcon
|
|
|
903 |
"ImageEditor openOnClass:self andSelector:#leftMouseKeyIcon"
|
|
|
904 |
|
|
|
905 |
<resource: #image>
|
|
|
906 |
^(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 0 0 0 0 0 161 69 0 0 161 69 0 0 161 69 0 0 0 0 0 0 85 85 0 0 85 85 0 0 85 85 0 0 85 85 0 0 85 85 0 0 85 85 0 0 21 84 0 0 0 0 0 0 0 0 0]) ; colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[0 0 0 0 15 240 31 248 31 248 31 248 31 248 31 248 31 248 31 248 31 248 31 248 31 248 15 240 7 224 0 0]) ; yourself); yourself
|
|
|
907 |
!
|
|
|
908 |
|
|
|
909 |
loadFromClassIcon
|
|
|
910 |
"ImageEditor openOnClass:self andSelector:#loadFromClassIcon"
|
|
|
911 |
|
|
|
912 |
<resource: #image>
|
|
|
913 |
^(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(#[17 17 17 17 17 17 17 17 17 17 17 17 0 0 0 0 0 0 0 17 17 17 17 15 255 255 255 255 255 255 30 17 17 17 15 255 255 255 255 255 255 30 225 17 17 15 68 71 119 74 71 215 17 17 17 17 15 68 71 119 164 173 125 255 254 17 17 15 68 71 119 74 71 215 255 254 17 17 15 51 54 102 57 54 198 255 254 17 17 15 51 54 102 147 156 108 255 254 17 17 15 51 54 102 57 54 198 255 254 17 17 15 34 37 85 40 37 181 255 254 17 17 15 34 37 85 130 139 91 255 254 17 17 15 34 37 85 40 37 181 255 254 17 17 15 255 255 255 255 255 255 255 254 17 17 15 17 241 255 31 241 31 17 254 17 17 15 31 241 241 241 241 255 31 254 17 17 15 31 241 241 17 241 31 17 254 17 17 15 31 241 241 241 255 31 241 254 17 17 15 17 241 17 241 241 31 17 254 17 17 15 255 255 255 255 255 255 255 254 17 17 254 238 238 238 238 238 238 238 238 17 17 17 17 17 17 17 17 17 17 17 17]) ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:49.9962); add:(Color grey:49.9962); add:(Color grey:66.9978); add:(Color black); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[127 255 128 127 255 192 127 255 224 127 255 240 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248]) ; yourself); yourself!
|
|
|
914 |
|
|
|
915 |
loadFromFileIcon
|
|
|
916 |
"ImageEditor openOnClass:self andSelector:#loadFromFileIcon"
|
|
|
917 |
|
|
|
918 |
<resource: #image>
|
|
|
919 |
^(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(#[17 17 17 17 17 17 17 17 17 17 17 17 0 0 0 0 0 0 0 17 17 17 17 15 255 255 255 255 255 255 30 17 17 17 15 255 255 255 255 255 255 30 225 17 17 15 68 71 119 74 71 215 17 17 17 17 15 68 71 119 164 173 125 255 254 17 17 15 68 71 119 74 71 215 255 254 17 17 15 51 54 102 57 54 198 255 254 17 17 15 51 54 102 147 156 108 255 254 17 17 15 51 54 102 57 54 198 255 254 17 17 15 34 37 85 40 37 181 255 254 17 17 15 34 37 85 130 139 91 255 254 17 17 15 34 37 85 40 37 181 255 254 17 17 15 255 255 255 255 255 255 255 254 17 17 15 17 31 31 241 255 241 17 254 17 17 15 31 255 31 241 255 241 255 254 17 17 15 17 255 31 241 255 241 31 254 17 17 15 31 255 31 241 255 241 255 254 17 17 15 31 255 31 241 17 241 17 254 17 17 15 255 255 255 255 255 255 255 254 17 17 254 238 238 238 238 238 238 238 238 17 17 17 17 17 17 17 17 17 17 17 17]) ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:49.9962); add:(Color grey:49.9962); add:(Color grey:66.9978); add:(Color black); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[127 255 128 127 255 192 127 255 224 127 255 240 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248]) ; yourself); yourself!
|
|
|
920 |
|
|
|
921 |
newImageIcon
|
|
|
922 |
"ImageEditor openOnClass:self andSelector:#newImageIcon"
|
|
|
923 |
|
|
|
924 |
<resource: #image>
|
|
|
925 |
^(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(#[17 17 17 17 17 17 17 17 17 17 17 17 0 0 0 0 0 0 0 17 17 17 17 15 255 255 255 255 255 255 30 17 17 17 15 255 255 255 255 255 255 30 225 17 17 15 68 71 119 74 71 215 17 17 17 17 15 68 71 119 164 173 125 255 254 17 17 15 68 71 119 74 71 215 255 254 17 17 15 51 54 102 57 54 198 255 254 17 17 15 51 54 102 147 156 108 255 254 17 17 15 51 54 102 57 54 198 255 254 17 17 15 34 37 85 40 37 181 255 254 17 17 15 34 37 85 130 139 91 255 254 17 17 15 34 37 85 40 37 181 255 254 17 17 15 255 255 255 255 255 255 255 254 17 17 15 31 241 241 17 241 241 241 254 17 17 15 17 241 241 255 241 241 241 254 17 17 15 17 17 241 31 241 241 241 254 17 17 15 31 17 241 255 241 241 241 254 17 17 15 31 241 241 17 255 31 31 254 17 17 15 255 255 255 255 255 255 255 254 17 17 254 238 238 238 238 238 238 238 238 17 17 17 17 17 17 17 17 17 17 17 17]) ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:49.9962); add:(Color grey:49.9962); add:(Color grey:66.9978); add:(Color black); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[127 255 128 127 255 192 127 255 224 127 255 240 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248]) ; yourself); yourself!
|
|
|
926 |
|
|
|
927 |
rightMouseKeyIcon
|
|
|
928 |
"ImageEditor openOnClass:self andSelector:#rightMouseKeyIcon"
|
|
|
929 |
|
|
|
930 |
<resource: #image>
|
|
|
931 |
^(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 0 0 0 0 0 82 138 0 0 82 138 0 0 82 138 0 0 0 0 0 0 85 85 0 0 85 85 0 0 85 85 0 0 85 85 0 0 85 85 0 0 85 85 0 0 21 84 0 0 0 0 0 0 0 0 0]) ; colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[0 0 0 0 15 240 31 248 31 248 31 248 31 248 31 248 31 248 31 248 31 248 31 248 31 248 15 240 7 224 0 0]) ; yourself); yourself
|
|
|
932 |
!
|
|
|
933 |
|
|
|
934 |
saveAsMethodIcon
|
|
|
935 |
"ImageEditor openOnClass:self andSelector:#saveAsMethodIcon"
|
|
|
936 |
|
|
|
937 |
<resource: #image>
|
|
|
938 |
^(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(#[17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 30 225 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 20 68 119 116 164 125 126 30 17 17 17 20 68 119 122 74 215 209 225 17 17 17 20 68 119 116 164 125 126 30 17 17 17 19 51 102 99 147 108 96 240 17 17 17 19 51 102 105 57 198 207 15 17 17 17 19 51 102 99 147 108 96 240 17 17 17 18 34 85 82 130 91 94 238 17 17 17 18 34 85 88 40 181 190 238 17 17 17 18 34 85 82 130 91 94 238]) ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:49.9962); add:(Color grey:49.9962); add:(Color grey:66.9978); add:(Color black); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[0 0 0 32 0 0 0 0 0 35 51 128 36 74 64 36 74 64 19 50 64 0 0 0 0 0 0 6 0 0 6 0 0 9 0 0 0 0 0 1 255 252 1 255 252 1 255 252 1 255 252 1 255 252 1 255 252 1 255 252 1 255 252 1 255 252]) ; yourself); yourself! !
|
|
|
939 |
|
|
|
940 |
!ImageEditor methodsFor:'accessing'!
|
|
|
941 |
|
|
|
942 |
image
|
|
|
943 |
|
|
|
944 |
^self imageEditView image
|
|
|
945 |
!
|
|
|
946 |
|
|
|
947 |
postOpenAction: anAction
|
|
|
948 |
|
|
|
949 |
postOpenAction := anAction
|
|
|
950 |
! !
|
|
|
951 |
|
|
|
952 |
!ImageEditor methodsFor:'accessing - views'!
|
|
|
953 |
|
|
|
954 |
fileNameInputField
|
|
|
955 |
|
|
|
956 |
^builder componentAt: #fileNameInputField
|
|
|
957 |
!
|
|
|
958 |
|
|
|
959 |
imageEditView
|
|
|
960 |
|
|
|
961 |
^(builder componentAt: #imageEditView) subViews first
|
|
|
962 |
!
|
|
|
963 |
|
|
|
964 |
imagePreView
|
|
|
965 |
|
|
|
966 |
^(builder componentAt: #imagePreView) subViews first
|
|
|
967 |
|
|
|
968 |
!
|
|
|
969 |
|
|
|
970 |
resourceClassInputField
|
|
|
971 |
|
|
|
972 |
^builder componentAt: #resourceClassInputField
|
|
|
973 |
!
|
|
|
974 |
|
|
|
975 |
resourceSelectorInputField
|
|
|
976 |
|
|
|
977 |
^builder componentAt: #resourceSelectorInputField
|
|
|
978 |
! !
|
|
|
979 |
|
|
|
980 |
!ImageEditor methodsFor:'accessing menu'!
|
|
|
981 |
|
|
|
982 |
menu
|
|
|
983 |
"this window spec was automatically generated by the UI Builder"
|
|
|
984 |
|
|
|
985 |
^ self class menu
|
|
|
986 |
|
|
|
987 |
|
|
|
988 |
!
|
|
|
989 |
|
|
|
990 |
menuToolbar
|
|
|
991 |
"this window spec was automatically generated by the UI Builder"
|
|
|
992 |
|
|
|
993 |
^ self class menuToolbar
|
|
|
994 |
|
|
|
995 |
|
|
|
996 |
! !
|
|
|
997 |
|
|
|
998 |
!ImageEditor methodsFor:'aspects'!
|
|
|
999 |
|
|
|
1000 |
imageIsLoaded
|
|
|
1001 |
|
|
|
1002 |
|holder|
|
|
|
1003 |
(holder := builder bindingAt:#imageIsLoaded) isNil ifTrue:[
|
|
|
1004 |
builder aspectAt:#imageIsLoaded put:(holder := false asValue).
|
|
|
1005 |
].
|
|
|
1006 |
^ holder
|
|
|
1007 |
!
|
|
|
1008 |
|
|
|
1009 |
listOfColors
|
|
|
1010 |
|
|
|
1011 |
|holder|
|
|
|
1012 |
(holder := builder bindingAt:#listOfColors) isNil ifTrue:[
|
|
|
1013 |
builder aspectAt:#listOfColors put:(holder := List new).
|
|
|
1014 |
].
|
|
|
1015 |
^ holder
|
|
|
1016 |
!
|
|
|
1017 |
|
|
|
1018 |
selectionOfColor
|
|
|
1019 |
|
|
|
1020 |
|holder|
|
|
|
1021 |
(holder := builder bindingAt:#selectionOfColor) isNil ifTrue:[
|
|
|
1022 |
builder aspectAt:#selectionOfColor put:(
|
|
|
1023 |
holder := AspectAdaptor new subject:self; forAspect:#selectedColorIndex).
|
|
|
1024 |
].
|
|
|
1025 |
^ holder
|
|
|
1026 |
!
|
|
|
1027 |
|
|
|
1028 |
valueOfCoordLabel
|
|
|
1029 |
|
|
|
1030 |
|holder|
|
|
|
1031 |
(holder := builder bindingAt:#valueOfCoordLabel) isNil ifTrue:[
|
|
|
1032 |
builder aspectAt:#valueOfCoordLabel put:(holder := ValueHolder new).
|
|
|
1033 |
].
|
|
|
1034 |
^ holder
|
|
|
1035 |
!
|
|
|
1036 |
|
|
|
1037 |
valueOfFileName
|
|
|
1038 |
|
|
|
1039 |
|holder|
|
|
|
1040 |
(holder := builder bindingAt:#valueOfFileName) isNil ifTrue:[
|
|
|
1041 |
builder aspectAt:#valueOfFileName put:(holder := '' asValue).
|
|
|
1042 |
holder addDependent: self
|
|
|
1043 |
].
|
|
|
1044 |
^ holder
|
|
|
1045 |
!
|
|
|
1046 |
|
|
|
1047 |
valueOfMagnification
|
|
|
1048 |
|
|
|
1049 |
|holder|
|
|
|
1050 |
(holder := builder bindingAt:#valueOfMagnification) isNil ifTrue:[
|
|
|
1051 |
builder aspectAt:#valueOfMagnification put:(
|
|
|
1052 |
holder := AspectAdaptor new subject:self; forAspect:#magnification)
|
|
|
1053 |
].
|
|
|
1054 |
^ holder
|
|
|
1055 |
!
|
|
|
1056 |
|
|
|
1057 |
valueOfResourceClass
|
|
|
1058 |
|
|
|
1059 |
|holder|
|
|
|
1060 |
(holder := builder bindingAt:#valueOfResourceClass) isNil ifTrue:[
|
|
|
1061 |
builder aspectAt:#valueOfResourceClass put: (holder := '' asValue).
|
|
|
1062 |
holder addDependent: self
|
|
|
1063 |
].
|
|
|
1064 |
^ holder
|
|
|
1065 |
!
|
|
|
1066 |
|
|
|
1067 |
valueOfResourceSelector
|
|
|
1068 |
|
|
|
1069 |
|holder|
|
|
|
1070 |
(holder := builder bindingAt:#valueOfResourceSelector) isNil ifTrue:[
|
|
|
1071 |
builder aspectAt:#valueOfResourceSelector put: (holder := '' asValue).
|
|
|
1072 |
holder addDependent: self
|
|
|
1073 |
].
|
|
|
1074 |
^ holder
|
|
|
1075 |
! !
|
|
|
1076 |
|
|
|
1077 |
!ImageEditor methodsFor:'change & update'!
|
|
|
1078 |
|
|
|
1079 |
update:something with:aParameter from:changedObject
|
|
|
1080 |
|
|
|
1081 |
something == #value
|
|
|
1082 |
ifTrue:
|
|
|
1083 |
[
|
|
|
1084 |
(changedObject = self valueOfResourceClass)
|
|
|
1085 |
ifTrue:
|
|
|
1086 |
[
|
|
|
1087 |
|s what m|
|
|
|
1088 |
s := self resourceClassInputField contents withoutSpaces.
|
|
|
1089 |
what := Smalltalk classnameCompletion:s.
|
|
|
1090 |
self resourceClassInputField contents:what first.
|
|
|
1091 |
(what at:2) size ~~ 1 ifTrue:[
|
|
|
1092 |
Display beep
|
|
|
1093 |
]
|
|
|
1094 |
].
|
|
|
1095 |
(changedObject = self valueOfResourceClass) | (changedObject = self valueOfResourceSelector)
|
|
|
1096 |
ifTrue:
|
|
|
1097 |
[
|
|
|
1098 |
self loadFromMessage: self resourceClassInputField contents, ' ', self resourceSelectorInputField contents
|
|
|
1099 |
].
|
|
|
1100 |
(changedObject = self valueOfFileName)
|
|
|
1101 |
ifTrue:
|
|
|
1102 |
[
|
|
|
1103 |
self loadFromFile: self fileNameInputField contents
|
|
|
1104 |
].
|
|
|
1105 |
].
|
|
|
1106 |
|
|
|
1107 |
super update:something with:aParameter from:changedObject
|
|
|
1108 |
|
|
|
1109 |
! !
|
|
|
1110 |
|
|
|
1111 |
!ImageEditor methodsFor:'menu modes'!
|
|
|
1112 |
|
|
|
1113 |
colorMapMode: aMode
|
|
|
1114 |
|
|
|
1115 |
^colorMapMode = aMode
|
|
|
1116 |
!
|
|
|
1117 |
|
|
|
1118 |
colorMapMode: aMode value: aValue
|
|
|
1119 |
|
|
405
|
1120 |
|depth newColorMap newImage image newColors realColorMap oldFileName|
|
|
400
|
1121 |
|
|
|
1122 |
newColorMap := self class listOfColorMaps at: aMode.
|
|
|
1123 |
depth := (newColorMap size log: 2) asInteger.
|
|
|
1124 |
newImage := (Image implementorForDepth: depth) new.
|
|
|
1125 |
oldFileName := self image fileName.
|
|
|
1126 |
Object errorSignal handle:
|
|
|
1127 |
[:ex|
|
|
|
1128 |
Object errorSignal handle:
|
|
|
1129 |
[:ex|
|
|
|
1130 |
^self warn: 'Convertation failed!!'
|
|
|
1131 |
]
|
|
|
1132 |
do:
|
|
|
1133 |
[
|
|
|
1134 |
self image colorsFromX:0 y:0 toX:(self image width-1) y:(self image height-1) do:
|
|
|
1135 |
[:x :y :clr |
|
|
|
1136 |
(newColorMap includes: clr)
|
|
|
1137 |
ifTrue: [self image colorAtX:x y:y put:clr]
|
|
|
1138 |
ifFalse: [self image colorAtX:x y:y put: self image colorMap first]
|
|
|
1139 |
].
|
|
|
1140 |
image := newImage fromImage: self image.
|
|
|
1141 |
].
|
|
|
1142 |
]
|
|
|
1143 |
do:
|
|
|
1144 |
[
|
|
|
1145 |
image := newImage fromImage: self image
|
|
|
1146 |
].
|
|
|
1147 |
(String fromString: aMode) reverse readStream nextWord reverse = 'mask'
|
|
|
1148 |
ifTrue:
|
|
|
1149 |
[
|
|
|
1150 |
image mask isNil
|
|
|
1151 |
ifTrue:
|
|
|
1152 |
[
|
|
|
1153 |
image mask: (Depth1Image fromImage: (image asThresholdMonochromeImage: 0.1)).
|
|
|
1154 |
].
|
|
|
1155 |
]
|
|
|
1156 |
ifFalse:
|
|
|
1157 |
[
|
|
|
1158 |
image mask: nil.
|
|
405
|
1159 |
].
|
|
|
1160 |
realColorMap := OrderedCollection new.
|
|
|
1161 |
image realColorMap do:
|
|
|
1162 |
[:clr|
|
|
|
1163 |
(realColorMap includes: clr) ifFalse: [realColorMap add: clr]
|
|
400
|
1164 |
].
|
|
405
|
1165 |
newColors := realColorMap copyFrom: 1 to: (newColorMap size min: realColorMap size).
|
|
400
|
1166 |
newColorMap do:
|
|
|
1167 |
[:clr|
|
|
|
1168 |
((newColors size < newColorMap size) and: [(newColors includes: clr) not])
|
|
|
1169 |
ifTrue:
|
|
|
1170 |
[
|
|
|
1171 |
newColors add: clr
|
|
|
1172 |
]
|
|
405
|
1173 |
].
|
|
400
|
1174 |
image colorMap: newColors.
|
|
|
1175 |
colorMapMode := aMode.
|
|
|
1176 |
(self imageEditView image: image) notNil
|
|
|
1177 |
ifTrue:
|
|
|
1178 |
[
|
|
|
1179 |
self image fileName: oldFileName.
|
|
|
1180 |
self listOfColors contents: image colorMap.
|
|
|
1181 |
self findColorMapMode.
|
|
|
1182 |
self updateInputFieldsAndLabelsAndHistory.
|
|
|
1183 |
]
|
|
|
1184 |
!
|
|
|
1185 |
|
|
|
1186 |
editMode: aMode
|
|
|
1187 |
|
|
|
1188 |
^self imageEditView editMode = aMode
|
|
|
1189 |
!
|
|
|
1190 |
|
|
|
1191 |
editMode: aMode value: aValue
|
|
|
1192 |
|
|
|
1193 |
self imageEditView editMode: aMode
|
|
|
1194 |
!
|
|
|
1195 |
|
|
|
1196 |
mouseKeyColorMode: aMode
|
|
|
1197 |
|
|
|
1198 |
^self imageEditView mouseKeyColorMode = aMode
|
|
|
1199 |
!
|
|
|
1200 |
|
|
|
1201 |
mouseKeyColorMode: aMode value: aValue
|
|
|
1202 |
|
|
|
1203 |
self imageEditView mouseKeyColorMode: aMode.
|
|
|
1204 |
|
|
|
1205 |
self selectionOfColor value: (self listOfColors indexOf: self imageEditView selectedColor).
|
|
|
1206 |
! !
|
|
|
1207 |
|
|
|
1208 |
!ImageEditor methodsFor:'private'!
|
|
|
1209 |
|
|
|
1210 |
findColorMapMode
|
|
|
1211 |
|
|
|
1212 |
self image depth > 8 ifTrue: [colorMapMode := ''. self listOfColors removeAll. ^nil].
|
|
|
1213 |
colorMapMode := self image depth printString, '-plane'.
|
|
|
1214 |
self listOfColors isEmpty
|
|
|
1215 |
ifTrue:
|
|
|
1216 |
[
|
|
|
1217 |
self colorMapMode: colorMapMode value: nil
|
|
|
1218 |
].
|
|
|
1219 |
self imageEditView selectColor: (Array with: (self listOfColors at: 1) with: (self listOfColors at: 2)).
|
|
|
1220 |
self image mask notNil
|
|
|
1221 |
ifTrue:
|
|
|
1222 |
[
|
|
|
1223 |
colorMapMode := colorMapMode, ' + mask'.
|
|
|
1224 |
self listOfColors addFirst: (Color basicNew setColorId:0).
|
|
|
1225 |
self imageEditView selectColor: (Array with: (self listOfColors at: 2) with: (self listOfColors at: 1)).
|
|
|
1226 |
].
|
|
|
1227 |
self selectionOfColor value: 0.
|
|
|
1228 |
self selectionOfColor value: (self listOfColors indexOf: self imageEditView selectedColor).
|
|
|
1229 |
!
|
|
|
1230 |
|
|
|
1231 |
sortColorColumn: aColumn
|
|
|
1232 |
|
|
|
1233 |
|
|
|
1234 |
|
|
|
1235 |
!
|
|
|
1236 |
|
|
|
1237 |
updateInfoLabel
|
|
|
1238 |
|
|
|
1239 |
|usedColors|
|
|
|
1240 |
self image colorMap isNil ifTrue: [usedColors := '?'] ifFalse: [usedColors := self image usedColors size].
|
|
|
1241 |
self valueOfInfoLabel value:
|
|
|
1242 |
self image width printString, 'x',
|
|
|
1243 |
self image height printString, 'x',
|
|
|
1244 |
(2 raisedTo: self image depth) printString,
|
|
|
1245 |
(self image mask notNil ifTrue: [' (mask + '] ifFalse: ['(']),
|
|
|
1246 |
usedColors printString,
|
|
|
1247 |
' used colors)'
|
|
|
1248 |
|
|
|
1249 |
|
|
|
1250 |
!
|
|
|
1251 |
|
|
415
|
1252 |
updateInputFields
|
|
|
1253 |
|
|
|
1254 |
self valueOfResourceSelector removeDependent: self.
|
|
|
1255 |
self valueOfResourceSelector value: self imageEditView resourceSelector.
|
|
|
1256 |
self valueOfResourceSelector addDependent: self.
|
|
|
1257 |
|
|
|
1258 |
self valueOfResourceClass removeDependent: self.
|
|
|
1259 |
self imageEditView resourceClass notNil
|
|
|
1260 |
ifTrue: [self valueOfResourceClass value: self imageEditView resourceClass]
|
|
|
1261 |
ifFalse: [self valueOfResourceClass value: ''].
|
|
|
1262 |
self valueOfResourceClass addDependent: self.
|
|
|
1263 |
|
|
|
1264 |
!
|
|
|
1265 |
|
|
400
|
1266 |
updateInputFieldsAndLabelsAndHistory
|
|
|
1267 |
|
|
|
1268 |
self imageIsLoaded value: self image notNil.
|
|
|
1269 |
|
|
|
1270 |
self image isNil ifTrue: [^nil].
|
|
|
1271 |
|
|
|
1272 |
self updateInfoLabel.
|
|
|
1273 |
self imageEditView coordInfoBlock: [:value| self valueOfCoordLabel value: value].
|
|
|
1274 |
|
|
|
1275 |
self valueOfFileName removeDependent: self.
|
|
|
1276 |
self valueOfFileName value: self image fileName.
|
|
|
1277 |
self valueOfFileName addDependent: self.
|
|
|
1278 |
|
|
415
|
1279 |
self updateInputFields.
|
|
400
|
1280 |
|
|
|
1281 |
self imageEditView resourceMessage asCollectionOfWords size = 2
|
|
|
1282 |
ifTrue: [self addToHistory: self imageEditView resourceMessage -> #loadFromMessage:].
|
|
|
1283 |
|
|
|
1284 |
self image fileName notNil
|
|
|
1285 |
ifTrue: [self addToHistory: self image fileName -> #loadFromFile:].
|
|
|
1286 |
|
|
|
1287 |
|
|
|
1288 |
|
|
|
1289 |
! !
|
|
|
1290 |
|
|
|
1291 |
!ImageEditor methodsFor:'selection'!
|
|
|
1292 |
|
|
|
1293 |
magnification
|
|
|
1294 |
|
|
|
1295 |
(builder componentAt: #imageEditView) isNil ifTrue: [^1].
|
|
|
1296 |
^self imageEditView magnification x
|
|
|
1297 |
!
|
|
|
1298 |
|
|
|
1299 |
magnification: aValue
|
|
|
1300 |
|
|
|
1301 |
|magnification|
|
|
|
1302 |
magnification := aValue asInteger asPoint.
|
|
|
1303 |
(magnification = self imageEditView magnification) | (magnification = (0@0)) ifTrue: [^nil].
|
|
|
1304 |
self imageEditView magnification: magnification
|
|
|
1305 |
!
|
|
|
1306 |
|
|
|
1307 |
selectedColorIndex
|
|
|
1308 |
|
|
|
1309 |
^selectedColorIndex
|
|
|
1310 |
!
|
|
|
1311 |
|
|
|
1312 |
selectedColorIndex: anIndex
|
|
|
1313 |
|
|
|
1314 |
selectedColorIndex := anIndex.
|
|
|
1315 |
self imageEditView selectedColor: (self listOfColors at: anIndex ifAbsent: [^nil])
|
|
|
1316 |
|
|
|
1317 |
! !
|
|
|
1318 |
|
|
|
1319 |
!ImageEditor methodsFor:'startup / release'!
|
|
|
1320 |
|
|
|
1321 |
closeRequest
|
|
|
1322 |
|
|
|
1323 |
self imageEditView checkModified ifTrue:[super closeRequest]
|
|
|
1324 |
|
|
|
1325 |
!
|
|
|
1326 |
|
|
|
1327 |
open
|
|
|
1328 |
|
|
|
1329 |
super open.
|
|
420
|
1330 |
self imageEditView masterApplication: self.
|
|
400
|
1331 |
self resourceClassInputField entryCompletionBlock:
|
|
|
1332 |
[:value|
|
|
|
1333 |
|what|
|
|
|
1334 |
what := Smalltalk classnameCompletion: value withoutSpaces.
|
|
|
1335 |
self resourceClassInputField contents:what first.
|
|
|
1336 |
(what at:2) size ~~ 1 ifTrue:[
|
|
|
1337 |
Display beep
|
|
|
1338 |
]
|
|
|
1339 |
].
|
|
|
1340 |
self resourceSelectorInputField entryCompletionBlock:
|
|
|
1341 |
[:value|
|
|
|
1342 |
|cls what|
|
|
|
1343 |
(cls := Smalltalk at: self resourceClassInputField contents asSymbol) notNil
|
|
|
1344 |
ifTrue:
|
|
|
1345 |
[
|
|
|
1346 |
|firstPossibleSelector resourceType|
|
|
|
1347 |
what := cls class selectorCompletion: value withoutSpaces.
|
|
|
1348 |
firstPossibleSelector := what first asSymbol.
|
|
|
1349 |
(cls class selectors includes: firstPossibleSelector)
|
|
|
1350 |
ifTrue:
|
|
|
1351 |
[
|
|
|
1352 |
resourceType := (cls class compiledMethodAt: firstPossibleSelector) resourceType.
|
|
|
1353 |
((resourceType = #image) or: [resourceType = #fileImage])
|
|
|
1354 |
ifTrue:
|
|
|
1355 |
[
|
|
|
1356 |
self resourceSelectorInputField contents:firstPossibleSelector.
|
|
|
1357 |
].
|
|
|
1358 |
].
|
|
|
1359 |
(what at:2) size ~~ 1 ifTrue:[
|
|
|
1360 |
Display beep
|
|
|
1361 |
]
|
|
|
1362 |
]
|
|
|
1363 |
].
|
|
|
1364 |
!
|
|
|
1365 |
|
|
|
1366 |
postOpenWith:aBuilder
|
|
|
1367 |
|
|
415
|
1368 |
self imageEditView masterApplication: self.
|
|
400
|
1369 |
postOpenAction notNil ifTrue: [postOpenAction value].
|
|
|
1370 |
super postOpenWith:aBuilder.
|
|
|
1371 |
!
|
|
|
1372 |
|
|
|
1373 |
reOpen
|
|
|
1374 |
|
|
|
1375 |
self imageEditView checkModified ifTrue:[super reOpen]
|
|
|
1376 |
|
|
|
1377 |
! !
|
|
|
1378 |
|
|
|
1379 |
!ImageEditor methodsFor:'user actions - editing'!
|
|
|
1380 |
|
|
|
1381 |
browseClass
|
|
|
1382 |
|
|
|
1383 |
SystemBrowser openInClass: (Smalltalk at: self imageEditView resourceClass ifAbsent: [^nil]) class selector: self imageEditView resourceSelector
|
|
|
1384 |
!
|
|
|
1385 |
|
|
|
1386 |
flipHorizontal
|
|
|
1387 |
|
|
|
1388 |
self imageEditView flipHorizontal
|
|
|
1389 |
!
|
|
|
1390 |
|
|
|
1391 |
flipVertical
|
|
|
1392 |
|
|
|
1393 |
self imageEditView flipVertical
|
|
|
1394 |
!
|
|
|
1395 |
|
|
|
1396 |
magnifyDown
|
|
|
1397 |
|
|
|
1398 |
self valueOfMagnification value > 1
|
|
|
1399 |
ifTrue:
|
|
|
1400 |
[
|
|
|
1401 |
self valueOfMagnification value: self valueOfMagnification value - 1
|
|
|
1402 |
]
|
|
|
1403 |
!
|
|
|
1404 |
|
|
|
1405 |
magnifyImage
|
|
|
1406 |
|
|
|
1407 |
self imageEditView magnifyImage.
|
|
|
1408 |
self updateInfoLabel
|
|
|
1409 |
!
|
|
|
1410 |
|
|
|
1411 |
magnifyUp
|
|
|
1412 |
|
|
|
1413 |
self valueOfMagnification value < 99
|
|
|
1414 |
ifTrue:
|
|
|
1415 |
[
|
|
|
1416 |
self valueOfMagnification value: self valueOfMagnification value + 1
|
|
|
1417 |
]
|
|
|
1418 |
!
|
|
|
1419 |
|
|
|
1420 |
negativeImage
|
|
|
1421 |
|
|
|
1422 |
self imageEditView negativeImage.
|
|
|
1423 |
self listOfColors removeAll.
|
|
|
1424 |
self findColorMapMode.
|
|
|
1425 |
!
|
|
|
1426 |
|
|
|
1427 |
resizeImage
|
|
|
1428 |
|
|
|
1429 |
self imageEditView resizeImage.
|
|
|
1430 |
self updateInfoLabel
|
|
|
1431 |
!
|
|
|
1432 |
|
|
|
1433 |
rotateImage
|
|
|
1434 |
|
|
|
1435 |
self imageEditView rotateImage.
|
|
|
1436 |
self updateInfoLabel
|
|
|
1437 |
!
|
|
|
1438 |
|
|
|
1439 |
undo
|
|
|
1440 |
|
|
|
1441 |
self imageEditView undo
|
|
|
1442 |
! !
|
|
|
1443 |
|
|
|
1444 |
!ImageEditor methodsFor:'user actions - loading'!
|
|
|
1445 |
|
|
|
1446 |
loadFromClass
|
|
|
1447 |
|
|
|
1448 |
self loadFromInClassesOf: #Object.
|
|
|
1449 |
|
|
|
1450 |
!
|
|
|
1451 |
|
|
|
1452 |
loadFromClassWithSuperclass
|
|
|
1453 |
|
|
|
1454 |
|box|
|
|
|
1455 |
box := EnterBox new.
|
|
|
1456 |
box title:'Name of superclass:'.
|
|
|
1457 |
box okText:'OK'.
|
|
|
1458 |
box abortText:'Cancel'.
|
|
|
1459 |
box initialText: 'ApplicationModel'.
|
|
|
1460 |
box showAtPointer.
|
|
|
1461 |
box accepted
|
|
|
1462 |
ifTrue:
|
|
|
1463 |
[
|
|
|
1464 |
self loadFromInClassesOf: box contents asSymbol
|
|
|
1465 |
].
|
|
|
1466 |
|
|
|
1467 |
!
|
|
|
1468 |
|
|
|
1469 |
loadFromFile
|
|
|
1470 |
|
|
|
1471 |
self loadFromFile:
|
|
|
1472 |
(FileSelectionBrowser
|
|
|
1473 |
request: 'Load Image From'
|
|
|
1474 |
fileFilters: FileSelectionBrowser loadImageFileNameFilters)
|
|
|
1475 |
!
|
|
|
1476 |
|
|
|
1477 |
loadFromFile: aFileName
|
|
|
1478 |
|
|
|
1479 |
(aFileName notNil and: [(self imageEditView loadFromFile: aFileName) notNil])
|
|
|
1480 |
ifTrue:
|
|
|
1481 |
[
|
|
|
1482 |
self image colorMap notNil
|
|
|
1483 |
ifTrue:
|
|
|
1484 |
[
|
|
|
1485 |
self listOfColors contents: self image usedColors asSet.
|
|
|
1486 |
]
|
|
|
1487 |
ifFalse:
|
|
|
1488 |
[
|
|
|
1489 |
self listOfColors removeAll.
|
|
|
1490 |
].
|
|
|
1491 |
self findColorMapMode.
|
|
|
1492 |
self updateInputFieldsAndLabelsAndHistory.
|
|
|
1493 |
]
|
|
|
1494 |
|
|
|
1495 |
!
|
|
|
1496 |
|
|
|
1497 |
loadFromImage: image
|
|
|
1498 |
|
|
|
1499 |
(self imageEditView image: image) notNil
|
|
|
1500 |
ifTrue:
|
|
|
1501 |
[
|
|
|
1502 |
self image colorMap notNil
|
|
|
1503 |
ifTrue:
|
|
|
1504 |
[
|
|
|
1505 |
self listOfColors contents: self image usedColors asSet asOrderedCollection.
|
|
|
1506 |
]
|
|
|
1507 |
ifFalse:
|
|
|
1508 |
[
|
|
|
1509 |
self listOfColors removeAll.
|
|
|
1510 |
].
|
|
|
1511 |
self findColorMapMode.
|
|
|
1512 |
self updateInputFieldsAndLabelsAndHistory.
|
|
|
1513 |
]
|
|
|
1514 |
!
|
|
|
1515 |
|
|
|
1516 |
loadFromInClassesOf: aSuperclassOrSymbol
|
|
|
1517 |
|
|
|
1518 |
self imageEditView loadFromInClassesOf: aSuperclassOrSymbol.
|
|
|
1519 |
self image notNil
|
|
|
1520 |
ifTrue:
|
|
|
1521 |
[
|
|
|
1522 |
self listOfColors contents: self image usedColors asSet asOrderedCollection.
|
|
|
1523 |
self findColorMapMode.
|
|
|
1524 |
self updateInputFieldsAndLabelsAndHistory.
|
|
|
1525 |
]
|
|
|
1526 |
!
|
|
|
1527 |
|
|
|
1528 |
loadFromMessage: aMessage
|
|
|
1529 |
|
|
|
1530 |
(self imageEditView loadFromMessage: aMessage) notNil
|
|
|
1531 |
ifTrue:
|
|
|
1532 |
[
|
|
|
1533 |
self listOfColors contents: self image usedColors asSet asOrderedCollection.
|
|
|
1534 |
self findColorMapMode.
|
|
|
1535 |
self updateInputFieldsAndLabelsAndHistory.
|
|
|
1536 |
]
|
|
|
1537 |
!
|
|
|
1538 |
|
|
415
|
1539 |
loadFromOrPrepareForMessage: aMessage
|
|
|
1540 |
|
|
|
1541 |
(self imageEditView loadFromMessage: aMessage) notNil
|
|
|
1542 |
ifTrue:
|
|
|
1543 |
[
|
|
|
1544 |
self listOfColors contents: self image usedColors asSet asOrderedCollection.
|
|
|
1545 |
self findColorMapMode.
|
|
|
1546 |
self updateInputFieldsAndLabelsAndHistory.
|
|
|
1547 |
]
|
|
|
1548 |
ifFalse:
|
|
|
1549 |
[
|
|
|
1550 |
self imageEditView resourceMessage: aMessage.
|
|
|
1551 |
self updateInputFields.
|
|
|
1552 |
]
|
|
|
1553 |
!
|
|
|
1554 |
|
|
400
|
1555 |
newImage
|
|
|
1556 |
|
|
|
1557 |
|aspects|
|
|
|
1558 |
aspects := IdentityDictionary new
|
|
|
1559 |
at:#listOfSizes put: self class listOfDefaultSizes asValue;
|
|
|
1560 |
at:#listOfColorMaps put: self class listOfColorMaps keys asSortedCollection asValue;
|
|
|
1561 |
at:#selectionOfSize put: self class listOfDefaultSizes first copy asValue;
|
|
|
1562 |
at:#selectionOfColorMap put: self class listOfColorMaps keys asSortedCollection first asValue;
|
|
|
1563 |
yourself.
|
|
|
1564 |
|
|
|
1565 |
(self openDialogInterface:#windowSpecForNewImage withBindings:aspects)
|
|
|
1566 |
ifTrue:
|
|
|
1567 |
[
|
|
|
1568 |
|width height cMap imageClass image|
|
|
|
1569 |
width := 128 min: (Integer readFromString: ((aspects at:#selectionOfSize) value upTo: $x) onError:[24]).
|
|
|
1570 |
height := 128 min: (Integer readFromString: ((aspects at:#selectionOfSize) value copy reverse upTo: $x) reverse onError:[24]).
|
|
|
1571 |
|
|
|
1572 |
cMap := (self class listOfColorMaps at: (colorMapMode := (aspects at:#selectionOfColorMap) value)).
|
|
|
1573 |
imageClass := Image implementorForDepth: ((cMap size log: 2) asInteger).
|
|
|
1574 |
image := imageClass width: width height: height fromArray: (ByteArray new: width*height).
|
|
|
1575 |
|
|
|
1576 |
(colorMapMode copy reverse readStream nextWord reverse = 'mask')
|
|
|
1577 |
ifTrue:
|
|
|
1578 |
[
|
|
|
1579 |
image mask: (Depth1Image width: width height: height depth: 1 fromArray: (ByteArray new: width*height)) clearMaskedPixels.
|
|
|
1580 |
].
|
|
|
1581 |
image colorMap: cMap.
|
|
|
1582 |
image fillRectangleX:0 y:0 width:width height:height with:Color white.
|
|
|
1583 |
(self imageEditView image: image) notNil
|
|
|
1584 |
ifTrue:
|
|
|
1585 |
[
|
|
|
1586 |
self listOfColors contents: cMap.
|
|
|
1587 |
self findColorMapMode.
|
|
|
1588 |
self updateInputFieldsAndLabelsAndHistory
|
|
|
1589 |
]
|
|
|
1590 |
].
|
|
|
1591 |
! !
|
|
|
1592 |
|
|
|
1593 |
!ImageEditor methodsFor:'user actions - saving'!
|
|
|
1594 |
|
|
|
1595 |
print
|
|
|
1596 |
|
|
|
1597 |
self imageEditView print
|
|
|
1598 |
!
|
|
|
1599 |
|
|
|
1600 |
saveImageFile
|
|
|
1601 |
|
|
|
1602 |
self imageEditView saveImageFileAs: self fileNameInputField contents
|
|
|
1603 |
!
|
|
|
1604 |
|
|
|
1605 |
saveImageFileAs
|
|
|
1606 |
|
|
|
1607 |
self imageEditView saveImageFileAs.
|
|
|
1608 |
self updateInputFieldsAndLabelsAndHistory
|
|
|
1609 |
!
|
|
|
1610 |
|
|
|
1611 |
saveImageMaskFileAs
|
|
|
1612 |
|
|
|
1613 |
self imageEditView saveImageMaskFileAs
|
|
|
1614 |
!
|
|
|
1615 |
|
|
|
1616 |
saveMethod
|
|
|
1617 |
|
|
|
1618 |
(self imageEditView
|
|
|
1619 |
resourceSelector: self resourceSelectorInputField contents;
|
|
|
1620 |
resourceClass: self resourceClassInputField contents;
|
|
|
1621 |
saveMethod) notNil
|
|
|
1622 |
ifTrue:
|
|
|
1623 |
[
|
|
|
1624 |
self updateInputFieldsAndLabelsAndHistory
|
|
|
1625 |
]
|
|
|
1626 |
!
|
|
|
1627 |
|
|
|
1628 |
saveMethodAs
|
|
|
1629 |
|
|
|
1630 |
self imageEditView saveMethodAs notNil
|
|
|
1631 |
ifTrue:
|
|
|
1632 |
[
|
|
|
1633 |
self updateInputFieldsAndLabelsAndHistory
|
|
|
1634 |
]
|
|
|
1635 |
! !
|
|
|
1636 |
|
|
|
1637 |
!ImageEditor class methodsFor:'documentation'!
|
|
|
1638 |
|
|
|
1639 |
version
|
|
|
1640 |
^ '$Header$'
|
|
|
1641 |
! !
|