equal
deleted
inserted
replaced
289 |
289 |
290 <resource: #help> |
290 <resource: #help> |
291 |
291 |
292 ^ #( |
292 ^ #( |
293 |
293 |
|
294 #drawingColor1 |
|
295 'The color associated to the left mouse button.\Also the color used in fill operations' |
|
296 |
|
297 #drawingColor2 |
|
298 'The color associated to the right mouse button.\Also the second color used in gradient fill operations' |
|
299 |
294 #autoCropAll |
300 #autoCropAll |
295 'Find and remove all borders' |
301 'Find and remove all borders' |
296 |
302 |
297 #autoCropBottom |
303 #autoCropBottom |
298 'Find and remove bottom border' |
304 'Find and remove bottom border' |
558 #xfileSaveMethodAs |
564 #xfileSaveMethodAs |
559 'Save as Method...' |
565 'Save as Method...' |
560 |
566 |
561 ) |
567 ) |
562 |
568 |
563 "Modified: / 23-02-2017 / 09:48:23 / cg" |
569 "Modified: / 23-02-2017 / 10:23:21 / cg" |
564 ! |
570 ! |
565 |
571 |
566 helpSpec |
572 helpSpec |
567 "This resource specification was automatically generated |
573 "This resource specification was automatically generated |
568 by the UIHelpTool of ST/X." |
574 by the UIHelpTool of ST/X." |
2445 name: 'MouseButtonColorToolBar' |
2451 name: 'MouseButtonColorToolBar' |
2446 layout: (LayoutFrame 0 0.0 0 0 0 1.0 24 0) |
2452 layout: (LayoutFrame 0 0.0 0 0 0 1.0 24 0) |
2447 level: 0 |
2453 level: 0 |
2448 menu: menuMouseButtonColors |
2454 menu: menuMouseButtonColors |
2449 ) |
2455 ) |
|
2456 (ViewSpec |
|
2457 name: 'Box1' |
|
2458 layout: (LayoutFrame -40 1.0 4 0 -26 1.0 18 0) |
|
2459 activeHelpKey: drawingColor1 |
|
2460 level: -1 |
|
2461 backgroundChannel: drawingColor1Holder |
|
2462 ) |
|
2463 (ViewSpec |
|
2464 name: 'Box2' |
|
2465 layout: (LayoutFrame -25 1.0 4 0 -11 1.0 18 0) |
|
2466 activeHelpKey: drawingColor2 |
|
2467 level: -1 |
|
2468 backgroundChannel: drawingColor2Holder |
|
2469 ) |
2450 (DataSetSpec |
2470 (DataSetSpec |
2451 name: 'colorDataSetView' |
2471 name: 'colorDataSetView' |
2452 layout: (LayoutFrame 0 0.0 26 0.0 0 1.0 0 1.0) |
2472 layout: (LayoutFrame 0 0.0 26 0.0 0 1.0 0 1.0) |
2453 activeHelpKey: colorMapTable |
2473 activeHelpKey: colorMapTable |
2454 style: (FontDescription helvetica medium roman 10) |
2474 style: (FontDescription helvetica medium roman 10) |
3910 choiceValue: fillVerticalGradient |
3930 choiceValue: fillVerticalGradient |
3911 ) |
3931 ) |
3912 (MenuItem |
3932 (MenuItem |
3913 activeHelpKey: drawModeFill |
3933 activeHelpKey: drawModeFill |
3914 enabled: imageIsLoadedHolder |
3934 enabled: imageIsLoadedHolder |
|
3935 isVisible: false |
3915 label: 'Diagonal' |
3936 label: 'Diagonal' |
3916 labelImage: (ResourceRetriever ImageEditor fillDiagonalGradientRectIcon 'Diagonal') |
3937 labelImage: (ResourceRetriever ImageEditor fillDiagonalGradientRectIcon 'Diagonal') |
3917 choice: editMode |
3938 choice: editMode |
3918 choiceValue: fillDiagonalGradient |
3939 choiceValue: fillDiagonalGradient |
3919 ) |
3940 ) |
3990 ) |
4011 ) |
3991 nil |
4012 nil |
3992 nil |
4013 nil |
3993 ) |
4014 ) |
3994 |
4015 |
3995 "Modified: / 22-02-2017 / 20:38:36 / cg" |
4016 "Modified: / 23-02-2017 / 15:53:17 / cg" |
3996 ! |
4017 ! |
3997 |
4018 |
3998 previewMenu |
4019 previewMenu |
3999 "This resource specification was automatically generated |
4020 "This resource specification was automatically generated |
4000 by the MenuEditor of ST/X." |
4021 by the MenuEditor of ST/X." |
4547 ^ 1 |
4568 ^ 1 |
4548 |
4569 |
4549 "Created: / 19-02-2017 / 23:34:12 / cg" |
4570 "Created: / 19-02-2017 / 23:34:12 / cg" |
4550 ! |
4571 ! |
4551 |
4572 |
|
4573 drawingColor1Holder |
|
4574 "returns a valueHolder for the current selected mouse-button-1 color" |
|
4575 |
|
4576 |holder| |
|
4577 |
|
4578 (holder := builder bindingAt:#drawingColor1Holder) isNil ifTrue:[ |
|
4579 builder aspectAt:#drawingColor1Holder put:(holder := IndirectValue new) |
|
4580 ]. |
|
4581 ^ holder |
|
4582 |
|
4583 "Created: / 23-02-2017 / 10:18:25 / cg" |
|
4584 ! |
|
4585 |
|
4586 drawingColor2Holder |
|
4587 "returns a valueHolder for the current selected mouse-button-2 color" |
|
4588 |
|
4589 |holder| |
|
4590 |
|
4591 (holder := builder bindingAt:#drawingColor2Holder) isNil ifTrue:[ |
|
4592 builder aspectAt:#drawingColor2Holder put:(holder := IndirectValue new) |
|
4593 ]. |
|
4594 ^ holder |
|
4595 |
|
4596 "Created: / 23-02-2017 / 10:18:33 / cg" |
|
4597 ! |
|
4598 |
4552 floodFillBoxVisibleHolder |
4599 floodFillBoxVisibleHolder |
4553 |holder| |
4600 |holder| |
4554 |
4601 |
4555 (holder := builder bindingAt:#floodFillBoxVisibleHolder) isNil ifTrue:[ |
4602 (holder := builder bindingAt:#floodFillBoxVisibleHolder) isNil ifTrue:[ |
4556 builder aspectAt:#floodFillBoxVisibleHolder put:(holder := false asValue). |
4603 builder aspectAt:#floodFillBoxVisibleHolder put:(holder := false asValue). |
4608 |
4655 |
4609 "Created: / 04-07-2010 / 10:12:22 / cg" |
4656 "Created: / 04-07-2010 / 10:12:22 / cg" |
4610 ! |
4657 ! |
4611 |
4658 |
4612 hasColormap |
4659 hasColormap |
4613 ^ self image notNil and:[self image colorMap notNil] |
4660 |img| |
|
4661 |
|
4662 ^ (img := self image) notNil |
|
4663 and:[img colorMap notNil or:[ drawingColormap notNil or:[ self listOfColors notEmptyOrNil ]]] |
4614 |
4664 |
4615 "Created: / 30-09-1998 / 23:53:55 / cg" |
4665 "Created: / 30-09-1998 / 23:53:55 / cg" |
4616 "Modified: / 04-07-2010 / 10:13:26 / cg" |
4666 "Modified: / 23-02-2017 / 09:57:45 / cg" |
4617 ! |
4667 ! |
4618 |
4668 |
4619 hasColormapAndColorSelected |
4669 hasColormapAndColorSelected |
4620 ^ [ self hasColormapHolder value and:[self hasColorSelectedHolder value]] |
4670 ^ [ self hasColormapHolder value and:[self hasColorSelectedHolder value]] |
4621 |
4671 |
5875 |
5925 |
5876 aBuilder keyboardProcessor menuBar:nil. |
5926 aBuilder keyboardProcessor menuBar:nil. |
5877 self windowGroup addPreEventHook:self. |
5927 self windowGroup addPreEventHook:self. |
5878 self colorCropTabSelectionIndexChanged. |
5928 self colorCropTabSelectionIndexChanged. |
5879 |
5929 |
5880 "Modified: / 19-02-2017 / 23:39:10 / cg" |
5930 self drawingColor1Holder valueHolder:(imageEditView drawingColorHolders at:1). |
|
5931 self drawingColor2Holder valueHolder:(imageEditView drawingColorHolders at:2). |
|
5932 |
|
5933 "Modified: / 23-02-2017 / 10:19:27 / cg" |
5881 ! ! |
5934 ! ! |
5882 |
5935 |
5883 !ImageEditor methodsFor:'user actions-colormap'! |
5936 !ImageEditor methodsFor:'user actions-colormap'! |
5884 |
5937 |
5885 addColorToColormap |
5938 addColorToColormap |