1644 ) |
1644 ) |
1645 (MenuItem |
1645 (MenuItem |
1646 label: '-' |
1646 label: '-' |
1647 ) |
1647 ) |
1648 (MenuItem |
1648 (MenuItem |
1649 enabled: hasColormap |
1649 enabled: hasColormapAndColorSelected |
1650 label: 'Cut Color' |
1650 label: 'Cut Color' |
1651 itemValue: cutColorFromColormap |
1651 itemValue: cutColorFromColormap |
1652 translateLabel: true |
1652 translateLabel: true |
1653 isVisible: false |
1653 isVisible: false |
1654 ) |
1654 ) |
1655 (MenuItem |
1655 (MenuItem |
|
1656 enabled: hasColorSelected |
1656 label: 'Copy Color' |
1657 label: 'Copy Color' |
1657 itemValue: copyColorFromColormap |
1658 itemValue: copyColorFromColormap |
1658 translateLabel: true |
1659 translateLabel: true |
1659 ) |
1660 ) |
1660 (MenuItem |
1661 (MenuItem |
1661 enabled: hasColormap |
1662 enabled: hasColormapAndColorSelected |
1662 label: 'Pick and Paste Color...' |
1663 label: 'Pick and Paste Color...' |
1663 itemValue: pickAndPasteColor |
1664 itemValue: pickAndPasteColor |
1664 translateLabel: true |
1665 translateLabel: true |
1665 ) |
1666 ) |
1666 (MenuItem |
1667 (MenuItem |
1670 ) |
1671 ) |
1671 (MenuItem |
1672 (MenuItem |
1672 label: '-' |
1673 label: '-' |
1673 ) |
1674 ) |
1674 (MenuItem |
1675 (MenuItem |
1675 enabled: hasColormap |
1676 enabled: hasColormapAndColorSelected |
1676 label: 'Edit Color...' |
1677 label: 'Edit Color...' |
1677 itemValue: editSelectedColor |
1678 itemValue: editSelectedColor |
1678 translateLabel: true |
1679 translateLabel: true |
1679 ) |
1680 ) |
1680 (MenuItem |
1681 (MenuItem |
1681 enabled: hasColormap |
1682 enabled: hasColormapAndColorSelected |
1682 label: 'Brighter' |
1683 label: 'Brighter' |
1683 itemValue: makeSelectedColorBrighter |
1684 itemValue: makeSelectedColorBrighter |
1684 translateLabel: true |
1685 translateLabel: true |
1685 ) |
1686 ) |
1686 (MenuItem |
1687 (MenuItem |
1687 enabled: hasColormap |
1688 enabled: hasColormapAndColorSelected |
1688 label: 'Darker' |
1689 label: 'Darker' |
1689 itemValue: makeSelectedColorDarker |
1690 itemValue: makeSelectedColorDarker |
1690 translateLabel: true |
1691 translateLabel: true |
1691 ) |
1692 ) |
1692 (MenuItem |
1693 (MenuItem |
1693 enabled: hasColormap |
1694 enabled: hasColormapAndColorSelected |
1694 label: 'Make Gray' |
1695 label: 'Make Gray' |
1695 itemValue: makeSelectedColorGray |
1696 itemValue: makeSelectedColorGray |
1696 translateLabel: true |
1697 translateLabel: true |
1697 ) |
1698 ) |
1698 (MenuItem |
1699 (MenuItem |
1699 label: '-' |
1700 label: '-' |
1700 ) |
1701 ) |
1701 (MenuItem |
1702 (MenuItem |
1702 label: 'Inspect Color' |
1703 label: 'Inspect Color' |
1703 itemValue: inspectColor |
1704 itemValue: inspectColor |
|
1705 translateLabel: true |
|
1706 enabled: hasColorSelected |
|
1707 ) |
|
1708 (MenuItem |
|
1709 enabled: hasColormap |
|
1710 label: 'Inspect Colormap' |
|
1711 itemValue: inspectColormap |
1704 translateLabel: true |
1712 translateLabel: true |
1705 ) |
1713 ) |
1706 ) |
1714 ) |
1707 nil |
1715 nil |
1708 nil |
1716 nil |
3164 ] |
3172 ] |
3165 |
3173 |
3166 "Created: / 31.7.1998 / 02:02:22 / cg" |
3174 "Created: / 31.7.1998 / 02:02:22 / cg" |
3167 ! |
3175 ! |
3168 |
3176 |
|
3177 hasColorSelected |
|
3178 ^ self selectedColorIndexOrNil notNil |
|
3179 ! |
|
3180 |
3169 hasColormap |
3181 hasColormap |
3170 ^ [self image notNil and:[self image colorMap notNil]] |
3182 ^ [self image notNil and:[self image colorMap notNil]] |
3171 |
3183 |
3172 "Created: / 30.9.1998 / 23:53:55 / cg" |
3184 "Created: / 30.9.1998 / 23:53:55 / cg" |
|
3185 ! |
|
3186 |
|
3187 hasColormapAndColorSelected |
|
3188 ^ self hasColormap and:[self hasColorSelected] |
3173 ! |
3189 ! |
3174 |
3190 |
3175 hasNoColormap |
3191 hasNoColormap |
3176 ^ [self image notNil and:[self image colorMap isNil]] |
3192 ^ [self image notNil and:[self image colorMap isNil]] |
3177 |
3193 |