2489 name: 'colorDataSetView' |
2489 name: 'colorDataSetView' |
2490 layout: (LayoutFrame 0 0.0 26 0.0 0 1.0 0 1.0) |
2490 layout: (LayoutFrame 0 0.0 26 0.0 0 1.0 0 1.0) |
2491 activeHelpKey: colorMapTable |
2491 activeHelpKey: colorMapTable |
2492 style: (FontDescription helvetica medium roman 10) |
2492 style: (FontDescription helvetica medium roman 10) |
2493 model: selectedColors |
2493 model: selectedColors |
2494 menu: colorMapMenu |
2494 menu: colorMapMenuHolder |
2495 hasHorizontalScrollBar: true |
2495 hasHorizontalScrollBar: true |
2496 hasVerticalScrollBar: true |
2496 hasVerticalScrollBar: true |
2497 miniScrollerHorizontal: true |
2497 miniScrollerHorizontal: true |
2498 miniScrollerVertical: true |
2498 miniScrollerVertical: true |
2499 dataList: listOfColors |
2499 dataList: listOfColors |
2679 |
2681 |
2680 ^ |
2682 ^ |
2681 #(Menu |
2683 #(Menu |
2682 ( |
2684 ( |
2683 (MenuItem |
2685 (MenuItem |
2684 enabled: hasColormapHolder |
2686 enabled: canAddColorToColormapHolder |
2685 label: 'Add Color' |
2687 label: 'Add Color' |
2686 itemValue: addColorToColormap |
2688 itemValue: addColorToColormap |
2687 translateLabel: true |
2689 translateLabel: true |
2688 ) |
2690 ) |
2689 (MenuItem |
2691 (MenuItem |
2690 enabled: hasColormapHolder |
2692 enabled: canAddColorToColormapHolder |
2691 label: 'Pick and Add Color...' |
2693 label: 'Pick and Add Color...' |
2692 itemValue: pickAndAddColorToColormap |
2694 itemValue: pickAndAddColorToColormap |
2693 translateLabel: true |
2695 translateLabel: true |
2694 ) |
2696 ) |
2695 (MenuItem |
2697 (MenuItem |
2696 label: '-' |
2698 label: '-' |
2697 ) |
2699 ) |
2698 (MenuItem |
2700 (MenuItem |
2699 enabled: hasColormapAndSingleColorSelected |
2701 enabled: hasColormapAndSingleColorSelectedHolder |
2700 label: 'Cut Color' |
2702 label: 'Cut Color' |
2701 itemValue: cutColorFromColormap |
2703 itemValue: cutColorFromColormap |
2702 translateLabel: true |
2704 translateLabel: true |
2703 isVisible: false |
2705 isVisible: false |
2704 ) |
2706 ) |
2708 itemValue: copyColorFromColormap |
2710 itemValue: copyColorFromColormap |
2709 translateLabel: true |
2711 translateLabel: true |
2710 shortcutKey: Copy |
2712 shortcutKey: Copy |
2711 ) |
2713 ) |
2712 (MenuItem |
2714 (MenuItem |
2713 enabled: hasColormapAndSingleColorSelected |
2715 enabled: hasColormapAndSingleWritableColorSelectedHolder |
2714 label: 'Pick and Paste Color...' |
2716 label: 'Pick and Paste Color...' |
2715 itemValue: pickAndPasteColor |
2717 itemValue: pickAndPasteColor |
2716 translateLabel: true |
2718 translateLabel: true |
2717 ) |
2719 ) |
2718 (MenuItem |
2720 (MenuItem |
|
2721 enabled: canChangeColorInColormapHolder |
2719 label: 'Paste Color' |
2722 label: 'Paste Color' |
2720 itemValue: pasteColorIntoColormap |
2723 itemValue: pasteColorIntoColormap |
2721 translateLabel: true |
2724 translateLabel: true |
2722 shortcutKey: Paste |
2725 shortcutKey: Paste |
2723 ) |
2726 ) |
2724 (MenuItem |
2727 (MenuItem |
2725 label: '-' |
2728 label: '-' |
2726 ) |
2729 ) |
2727 (MenuItem |
2730 (MenuItem |
2728 enabled: hasColormapAndSingleColorSelected |
2731 enabled: hasColormapAndSingleWritableColorSelectedHolder |
2729 label: 'Edit Color...' |
2732 label: 'Edit Color...' |
2730 itemValue: editSelectedColor |
2733 itemValue: editSelectedColor |
2731 translateLabel: true |
2734 translateLabel: true |
2732 ) |
2735 ) |
2733 (MenuItem |
2736 (MenuItem |
2734 enabled: hasColormapAndColorSelected |
2737 enabled: hasColormapAndSingleWritableColorSelectedHolder |
2735 label: 'Brighter' |
2738 label: 'Brighter' |
2736 itemValue: makeSelectedColorBrighter |
2739 itemValue: makeSelectedColorBrighter |
2737 translateLabel: true |
2740 translateLabel: true |
2738 ) |
2741 ) |
2739 (MenuItem |
2742 (MenuItem |
2740 enabled: hasColormapAndColorSelected |
2743 enabled: hasColormapAndSingleWritableColorSelectedHolder |
2741 label: 'Darker' |
2744 label: 'Darker' |
2742 itemValue: makeSelectedColorDarker |
2745 itemValue: makeSelectedColorDarker |
2743 translateLabel: true |
2746 translateLabel: true |
2744 ) |
2747 ) |
2745 (MenuItem |
2748 (MenuItem |
2746 enabled: hasColormapAndColorSelected |
2749 enabled: hasColormapAndSingleWritableColorSelectedHolder |
2747 label: 'Make Gray' |
2750 label: 'Make Gray' |
2748 itemValue: makeSelectedColorGray |
2751 itemValue: makeSelectedColorGray |
2749 translateLabel: true |
2752 translateLabel: true |
2750 ) |
2753 ) |
2751 (MenuItem |
2754 (MenuItem |
2752 enabled: hasColormapAndColorSelected |
2755 enabled: hasColormapAndSingleWritableColorSelectedHolder |
2753 label: 'Color Shift' |
2756 label: 'Color Shift' |
2754 itemValue: makeSelectedColorShifted |
2757 itemValue: makeSelectedColorShifted |
2755 translateLabel: true |
2758 translateLabel: true |
2756 ) |
2759 ) |
2757 (MenuItem |
2760 (MenuItem |
2762 label: 'Inspect Color' |
2765 label: 'Inspect Color' |
2763 itemValue: inspectColor |
2766 itemValue: inspectColor |
2764 translateLabel: true |
2767 translateLabel: true |
2765 ) |
2768 ) |
2766 (MenuItem |
2769 (MenuItem |
2767 enabled: hasColormapHolder |
2770 enabled: imageHasColormapHolder |
2768 label: 'Inspect Colormap' |
2771 label: 'Inspect Colormap' |
2769 itemValue: inspectColormap |
2772 itemValue: inspectColormap |
2770 translateLabel: true |
2773 translateLabel: true |
2771 ) |
2774 ) |
2772 ) |
2775 ) |
2773 nil |
2776 nil |
2774 nil |
2777 nil |
2775 ) |
2778 ) |
|
2779 |
|
2780 "Modified: / 31-08-2017 / 18:46:33 / cg" |
2776 ! |
2781 ! |
2777 |
2782 |
2778 menu |
2783 menu |
2779 "This resource specification was automatically generated |
2784 "This resource specification was automatically generated |
2780 by the MenuEditor of ST/X." |
2785 by the MenuEditor of ST/X." |
4334 ^ self infoLabelHolder |
4339 ^ self infoLabelHolder |
4335 |
4340 |
4336 "Modified: / 29.7.1998 / 18:49:03 / cg" |
4341 "Modified: / 29.7.1998 / 18:49:03 / cg" |
4337 ! |
4342 ! |
4338 |
4343 |
|
4344 canAddColorToColormap |
|
4345 |img| |
|
4346 |
|
4347 img := self image. |
|
4348 img isNil ifTrue:[^ false]. |
|
4349 img photometric == #blackIs0 ifTrue:[^ false]. |
|
4350 img photometric == #whiteIs0 ifTrue:[^ false]. |
|
4351 ^ true |
|
4352 |
|
4353 "Created: / 31-08-2017 / 18:32:27 / cg" |
|
4354 ! |
|
4355 |
|
4356 canAddColorToColormapHolder |
|
4357 ^ [self canAddColorToColormap] |
|
4358 |
|
4359 "Created: / 31-08-2017 / 18:32:40 / cg" |
|
4360 ! |
|
4361 |
|
4362 canChangeColorInColormap |
|
4363 |img| |
|
4364 |
|
4365 img := self image. |
|
4366 img isNil ifTrue:[^ false]. |
|
4367 img photometric == #palette ifFalse:[^ false]. |
|
4368 ^ true |
|
4369 |
|
4370 "Created: / 31-08-2017 / 18:34:12 / cg" |
|
4371 ! |
|
4372 |
|
4373 canChangeColorInColormapHolder |
|
4374 ^ [self canChangeColorInColormap] |
|
4375 |
|
4376 "Created: / 31-08-2017 / 18:34:18 / cg" |
|
4377 ! |
|
4378 |
4339 canResizeImage |
4379 canResizeImage |
4340 ^ self imageIsLoadedAndNotReadonlyHolder |
4380 ^ self imageIsLoadedAndNotReadonlyHolder |
4341 ! |
4381 ! |
4342 |
4382 |
4343 colorBoxVisibleHolder |
4383 colorBoxVisibleHolder |
4533 |
4573 |
4534 "Created: / 04-07-2010 / 10:12:22 / cg" |
4574 "Created: / 04-07-2010 / 10:12:22 / cg" |
4535 ! |
4575 ! |
4536 |
4576 |
4537 hasColormap |
4577 hasColormap |
|
4578 "true if a colormap is shown (might be a drwing map, not the real map)" |
|
4579 |
4538 |img| |
4580 |img| |
4539 |
4581 |
4540 ^ (img := self image) notNil |
4582 ^ (img := self image) notNil |
4541 and:[img colorMap notNil or:[ drawingColormap notNil or:[ self listOfColors notEmptyOrNil ]]] |
4583 and:[img colorMap notNil or:[ drawingColormap notNil or:[ self listOfColors notEmptyOrNil ]]] |
4542 |
4584 |
4543 "Created: / 30-09-1998 / 23:53:55 / cg" |
4585 "Created: / 30-09-1998 / 23:53:55 / cg" |
4544 "Modified: / 23-02-2017 / 09:57:45 / cg" |
4586 "Modified: / 23-02-2017 / 09:57:45 / cg" |
|
4587 "Modified (comment): / 31-08-2017 / 18:36:08 / cg" |
4545 ! |
4588 ! |
4546 |
4589 |
4547 hasColormapAndColorSelected |
4590 hasColormapAndColorSelected |
4548 ^ [ self hasColormapHolder value and:[self hasColorSelectedHolder value]] |
4591 ^ [ self hasColormapHolder value and:[self hasColorSelectedHolder value]] |
4549 |
4592 |
4550 "Modified: / 04-07-2010 / 10:13:13 / cg" |
4593 "Modified: / 04-07-2010 / 10:13:13 / cg" |
4551 ! |
4594 ! |
4552 |
4595 |
4553 hasColormapAndSingleColorSelected |
4596 hasColormapAndSingleColorSelected |
4554 ^ [ self hasColormapHolder value and:[self hasSingleColorSelectedHolder value]] |
4597 ^ self hasColormapHolder value and:[self hasSingleColorSelectedHolder value] |
4555 |
4598 |
4556 "Modified: / 04-07-2010 / 10:13:13 / cg" |
4599 "Modified: / 31-08-2017 / 18:44:49 / cg" |
|
4600 ! |
|
4601 |
|
4602 hasColormapAndSingleColorSelectedHolder |
|
4603 ^ [ self hasColormapAndSingleColorSelected value ] |
|
4604 |
|
4605 "Created: / 31-08-2017 / 18:44:36 / cg" |
|
4606 ! |
|
4607 |
|
4608 hasColormapAndSingleWritableColorSelectedHolder |
|
4609 ^ [ self hasColormapAndSingleColorSelected and:[self canChangeColorInColormap ]] |
|
4610 |
|
4611 "Created: / 31-08-2017 / 18:42:46 / cg" |
4557 ! |
4612 ! |
4558 |
4613 |
4559 hasColormapHolder |
4614 hasColormapHolder |
|
4615 "true if a colormap is shown (might be a drwing map, not the real map)" |
|
4616 |
4560 ^ [self hasColormap] |
4617 ^ [self hasColormap] |
4561 |
4618 |
4562 "Created: / 04-07-2010 / 10:13:05 / cg" |
4619 "Created: / 04-07-2010 / 10:13:05 / cg" |
|
4620 "Modified (comment): / 31-08-2017 / 18:36:47 / cg" |
4563 ! |
4621 ! |
4564 |
4622 |
4565 hasSingleColorSelectedHolder |
4623 hasSingleColorSelectedHolder |
4566 ^ [ self selectedColors value size == 1 "self selectedColorIndexOrNil notNil" ] |
4624 ^ [ self selectedColors value size == 1 "self selectedColorIndexOrNil notNil" ] |
4567 |
4625 |
4568 "Created: / 04-07-2010 / 10:12:22 / cg" |
4626 "Created: / 04-07-2010 / 10:12:22 / cg" |
|
4627 ! |
|
4628 |
|
4629 imageHasColormap |
|
4630 "true if a colormap is shown (might be a drwing map, not the real map)" |
|
4631 |
|
4632 |img| |
|
4633 |
|
4634 ^ (img := self image) notNil |
|
4635 and:[img colorMap notNil ] |
|
4636 |
|
4637 "Created: / 31-08-2017 / 18:36:25 / cg" |
|
4638 ! |
|
4639 |
|
4640 imageHasColormapHolder |
|
4641 ^ [self imageHasColormap] |
|
4642 |
|
4643 "Created: / 31-08-2017 / 18:36:42 / cg" |
4569 ! |
4644 ! |
4570 |
4645 |
4571 imageHasImageSequence |
4646 imageHasImageSequence |
4572 |img| |
4647 |img| |
4573 |
4648 |
5009 |
5084 |
5010 "Modified: / 21-10-2010 / 14:40:45 / cg" |
5085 "Modified: / 21-10-2010 / 14:40:45 / cg" |
5011 ! |
5086 ! |
5012 |
5087 |
5013 updateColorsFromImage:image |
5088 updateColorsFromImage:image |
5014 |colors| |
5089 |colors depth| |
5015 |
5090 |
5016 image depth > 16 ifTrue:[ |
5091 depth := image depth. |
5017 self listOfColors contents:#(). |
5092 |
5018 ^ self. |
5093 depth > 16 ifTrue:[ |
5019 ]. |
5094 colors := #() "/ too many - will only show the one's which are explicitly added. |
5020 |
5095 ] ifFalse:[ |
5021 colors := image colorMap. |
5096 ((image photometric == #blackIs0) |
5022 colors isNil ifTrue:[ |
5097 or:[ image photometric == #whiteIs0 ]) ifTrue:[ |
5023 Error handle:[:ex | |
5098 depth <= 8 ifTrue:[ |
5024 colors := OrderedCollection new. |
5099 colors := 1 to:(1 << depth) collect:[:i | image colorFromValue:i-1] |
5025 ] do:[ |
5100 ]. |
5026 colors := image usedColors asSet. |
|
5027 ]. |
5101 ]. |
5028 ]. |
5102 colors isNil ifTrue:[ |
|
5103 colors := image colorMap. |
|
5104 colors isNil ifTrue:[ |
|
5105 Error handle:[:ex | |
|
5106 colors := OrderedCollection new. |
|
5107 ] do:[ |
|
5108 colors := image usedColors asSet. |
|
5109 ]. |
|
5110 ]. |
|
5111 ]. |
|
5112 ]. |
5029 self listOfColors contents:(colors asOrderedCollection). |
5113 self listOfColors contents:(colors asOrderedCollection). |
5030 |
5114 |
5031 "Modified: / 18-01-2012 / 13:57:43 / cg" |
5115 "Modified: / 31-08-2017 / 18:54:53 / cg" |
5032 ! |
5116 ! |
5033 |
5117 |
5034 updateForNoImage |
5118 updateForNoImage |
5035 "updates channels and view, if image is loaded" |
5119 "updates channels and view, if image is loaded" |
5036 |
5120 |