ImageEditor.st
changeset 2585 c6150678bc9f
parent 2576 9e8d63aadb11
child 2590 9f2cb061d07f
equal deleted inserted replaced
2584:a22f943ea63d 2585:c6150678bc9f
  1730         (
  1730         (
  1731          (MenuItem
  1731          (MenuItem
  1732             label: '&File'
  1732             label: '&File'
  1733             translateLabel: true
  1733             translateLabel: true
  1734             submenuChannel: menuFile
  1734             submenuChannel: menuFile
  1735             keepLinkedMenu: true
  1735             "/ keepLinkedMenu: true
  1736           )
  1736           )
  1737          (MenuItem
  1737          (MenuItem
  1738             label: 'Edit'
  1738             label: 'Edit'
  1739             translateLabel: true
  1739             translateLabel: true
  1740             submenuChannel: menuEdit
  1740             submenuChannel: menuEdit
  1741             keepLinkedMenu: true
  1741             "/ keepLinkedMenu: true
  1742           )
  1742           )
       
  1743          (MenuItem
       
  1744             label: 'Mode'
       
  1745             translateLabel: true
       
  1746             submenuChannel: modeMenu
       
  1747           )
       
  1748          (MenuItem
       
  1749             label: 'Colors'
       
  1750             translateLabel: true
       
  1751             submenuChannel: menuColors
       
  1752           )
       
  1753          (MenuItem
       
  1754             label: 'Settings'
       
  1755             translateLabel: true
       
  1756             submenuChannel: menuSettings
       
  1757           )
       
  1758          (MenuItem
       
  1759             label: 'History'
       
  1760             translateLabel: true
       
  1761             isVisible: isStandAlone
       
  1762             submenuChannel: menuHistory
       
  1763           )
       
  1764          (MenuItem
       
  1765             label: 'MENU_Help'
       
  1766             translateLabel: true
       
  1767             startGroup: conditionalRight
       
  1768             submenuChannel: menuHelp
       
  1769           )
       
  1770          )
       
  1771         nil
       
  1772         nil
       
  1773       )
       
  1774 !
       
  1775 
       
  1776 menuColors
       
  1777     "This resource specification was automatically generated
       
  1778      by the MenuEditor of ST/X."
       
  1779 
       
  1780     "Do not manually edit this!! If it is corrupted,
       
  1781      the MenuEditor may not be able to read the specification."
       
  1782 
       
  1783     "
       
  1784      MenuEditor new openOnClass:ImageEditor andSelector:#menuColors
       
  1785      (Menu new fromLiteralArrayEncoding:(ImageEditor menuColors)) startUp
       
  1786     "
       
  1787 
       
  1788     <resource: #menu>
       
  1789 
       
  1790     ^ 
       
  1791      #(Menu
       
  1792         (
  1743          (MenuItem
  1793          (MenuItem
  1744             enabled: imageIsLoaded
  1794             enabled: imageIsLoaded
  1745             label: 'Mode'
  1795             label: 'Depth'
  1746             translateLabel: true
       
  1747             submenuChannel: modeMenu
       
  1748           )
       
  1749          (MenuItem
       
  1750             enabled: imageIsLoaded
       
  1751             label: 'Colors'
       
  1752             translateLabel: true
  1796             translateLabel: true
  1753             submenu: 
  1797             submenu: 
  1754            (Menu
  1798            (Menu
  1755               (
  1799               (
  1756                (MenuItem
  1800                (MenuItem
  1757                   label: 'Depth'
  1801                   activeHelpKey: colorMap1
       
  1802                   label: '1-Plane'
       
  1803                   itemValue: colorMapMode:
  1758                   translateLabel: true
  1804                   translateLabel: true
  1759                   submenu: 
  1805                   argument: depth1
  1760                  (Menu
  1806                   choice: colorMapMode
  1761                     (
  1807                   choiceValue: depth1
  1762                      (MenuItem
  1808                 )
  1763                         activeHelpKey: colorMap1
  1809                (MenuItem
  1764                         label: '1-Plane'
  1810                   activeHelpKey: colorMap1M
  1765                         itemValue: colorMapMode:
  1811                   label: '1-Plane + Mask'
  1766                         translateLabel: true
  1812                   itemValue: colorMapMode:
  1767                         argument: depth1
       
  1768                         choice: colorMapMode
       
  1769                         choiceValue: depth1
       
  1770                       )
       
  1771                      (MenuItem
       
  1772                         activeHelpKey: colorMap1M
       
  1773                         label: '1-Plane + Mask'
       
  1774                         itemValue: colorMapMode:
       
  1775                         translateLabel: true
       
  1776                         argument: masked1
       
  1777                         choice: colorMapMode
       
  1778                         choiceValue: masked1
       
  1779                       )
       
  1780                      (MenuItem
       
  1781                         label: '-'
       
  1782                       )
       
  1783                      (MenuItem
       
  1784                         activeHelpKey: colorMap2
       
  1785                         label: '2-Plane'
       
  1786                         itemValue: colorMapMode:
       
  1787                         translateLabel: true
       
  1788                         argument: depth2
       
  1789                         choice: colorMapMode
       
  1790                         choiceValue: depth2
       
  1791                       )
       
  1792                      (MenuItem
       
  1793                         activeHelpKey: colorMap2M
       
  1794                         label: '2-Plane + Mask'
       
  1795                         itemValue: colorMapMode:
       
  1796                         translateLabel: true
       
  1797                         argument: masked2
       
  1798                         choice: colorMapMode
       
  1799                         choiceValue: masked2
       
  1800                       )
       
  1801                      (MenuItem
       
  1802                         label: '-'
       
  1803                       )
       
  1804                      (MenuItem
       
  1805                         activeHelpKey: colorMap4
       
  1806                         label: '4-Plane'
       
  1807                         itemValue: colorMapMode:
       
  1808                         translateLabel: true
       
  1809                         argument: depth4
       
  1810                         choice: colorMapMode
       
  1811                         choiceValue: depth4
       
  1812                       )
       
  1813                      (MenuItem
       
  1814                         activeHelpKey: colorMap4M
       
  1815                         label: '4-Plane + Mask'
       
  1816                         itemValue: colorMapMode:
       
  1817                         translateLabel: true
       
  1818                         argument: masked4
       
  1819                         choice: colorMapMode
       
  1820                         choiceValue: masked4
       
  1821                       )
       
  1822                      (MenuItem
       
  1823                         label: '-'
       
  1824                       )
       
  1825                      (MenuItem
       
  1826                         activeHelpKey: colorMap8
       
  1827                         label: '8-Plane'
       
  1828                         itemValue: colorMapMode:
       
  1829                         translateLabel: true
       
  1830                         argument: depth8
       
  1831                         choice: colorMapMode
       
  1832                         choiceValue: depth8
       
  1833                       )
       
  1834                      (MenuItem
       
  1835                         activeHelpKey: colorMap8M
       
  1836                         label: '8-Plane + Mask'
       
  1837                         itemValue: colorMapMode:
       
  1838                         translateLabel: true
       
  1839                         argument: masked8
       
  1840                         choice: colorMapMode
       
  1841                         choiceValue: masked8
       
  1842                       )
       
  1843                      (MenuItem
       
  1844                         label: '-'
       
  1845                       )
       
  1846                      (MenuItem
       
  1847                         activeHelpKey: colorMap16
       
  1848                         label: '16-Plane'
       
  1849                         itemValue: colorMapMode:
       
  1850                         translateLabel: true
       
  1851                         argument: depth16
       
  1852                         choice: colorMapMode
       
  1853                         choiceValue: depth16
       
  1854                       )
       
  1855                      (MenuItem
       
  1856                         activeHelpKey: colorMap16M
       
  1857                         label: '16-Plane + Mask'
       
  1858                         itemValue: colorMapMode:
       
  1859                         translateLabel: true
       
  1860                         argument: masked16
       
  1861                         choice: colorMapMode
       
  1862                         choiceValue: masked16
       
  1863                       )
       
  1864                      (MenuItem
       
  1865                         label: '-'
       
  1866                       )
       
  1867                      (MenuItem
       
  1868                         activeHelpKey: colorMap24
       
  1869                         label: '24-Plane'
       
  1870                         itemValue: colorMapMode:
       
  1871                         translateLabel: true
       
  1872                         argument: depth24
       
  1873                         choice: colorMapMode
       
  1874                         choiceValue: depth24
       
  1875                       )
       
  1876                      (MenuItem
       
  1877                         activeHelpKey: colorMap24M
       
  1878                         label: '24-Plane + Mask'
       
  1879                         itemValue: colorMapMode:
       
  1880                         translateLabel: true
       
  1881                         argument: masked24
       
  1882                         choice: colorMapMode
       
  1883                         choiceValue: masked24
       
  1884                       )
       
  1885                      (MenuItem
       
  1886                         label: '-'
       
  1887                       )
       
  1888                      (MenuItem
       
  1889                         activeHelpKey: colorMap32
       
  1890                         label: '32-Plane (rgba)'
       
  1891                         itemValue: colorMapMode:
       
  1892                         translateLabel: true
       
  1893                         argument: depth32
       
  1894                         choice: colorMapMode
       
  1895                         choiceValue: depth32
       
  1896                       )
       
  1897                      )
       
  1898                     nil
       
  1899                     nil
       
  1900                   )
       
  1901                 )
       
  1902                (MenuItem
       
  1903                   label: 'ColorMap'
       
  1904                   translateLabel: true
  1813                   translateLabel: true
  1905                   submenu: 
  1814                   argument: masked1
  1906                  (Menu
  1815                   choice: colorMapMode
  1907                     (
  1816                   choiceValue: masked1
  1908                      (MenuItem
  1817                 )
  1909                         activeHelpKey: compressColormap
  1818                (MenuItem
  1910                         enabled: hasColormap
  1819                   label: '-'
  1911                         label: 'Compress Colormap'
  1820                 )
  1912                         itemValue: compressColorMap
  1821                (MenuItem
  1913                         translateLabel: true
  1822                   activeHelpKey: colorMap2
  1914                       )
  1823                   label: '2-Plane'
  1915                      (MenuItem
  1824                   itemValue: colorMapMode:
  1916                         enabled: hasColormap
       
  1917                         label: 'Sort Colormap'
       
  1918                         itemValue: sortColorMap
       
  1919                         translateLabel: true
       
  1920                       )
       
  1921                      (MenuItem
       
  1922                         label: 'Reduce Number of Colors by Rounding...'
       
  1923                         itemValue: reduceNumberOfColors2
       
  1924                         translateLabel: true
       
  1925                       )
       
  1926                      (MenuItem
       
  1927                         label: 'Reduce Number of Colors by Masking Bits...'
       
  1928                         itemValue: reduceNumberOfColors
       
  1929                         translateLabel: true
       
  1930                       )
       
  1931                      (MenuItem
       
  1932                         label: 'Dither to Depth...'
       
  1933                         itemValue: ditherToDepth
       
  1934                         translateLabel: true
       
  1935                       )
       
  1936                      )
       
  1937                     nil
       
  1938                     nil
       
  1939                   )
       
  1940                 )
       
  1941                (MenuItem
       
  1942                   label: 'Process'
       
  1943                   translateLabel: true
  1825                   translateLabel: true
  1944                   submenu: 
  1826                   argument: depth2
  1945                  (Menu
  1827                   choice: colorMapMode
  1946                     (
  1828                   choiceValue: depth2
  1947                      (MenuItem
  1829                 )
  1948                         label: 'Make GrayScale'
  1830                (MenuItem
  1949                         itemValue: makeGrayScaleImage
  1831                   activeHelpKey: colorMap2M
  1950                         translateLabel: true
  1832                   label: '2-Plane + Mask'
  1951                       )
  1833                   itemValue: colorMapMode:
  1952                      (MenuItem
       
  1953                         enabled: hasNoColormap
       
  1954                         label: 'Make dithered 8Bit Palette'
       
  1955                         itemValue: makeDitheredPaletteImage
       
  1956                         translateLabel: true
       
  1957                         isVisible: false
       
  1958                       )
       
  1959                      (MenuItem
       
  1960                         label: 'Make Brighter'
       
  1961                         itemValue: makeBrighter
       
  1962                         translateLabel: true
       
  1963                       )
       
  1964                      (MenuItem
       
  1965                         label: 'Make Darker'
       
  1966                         itemValue: makeDarker
       
  1967                         translateLabel: true
       
  1968                       )
       
  1969                      (MenuItem
       
  1970                         label: 'Make Inverse'
       
  1971                         itemValue: makeInverse
       
  1972                         translateLabel: true
       
  1973                       )
       
  1974                      (MenuItem
       
  1975                         label: '-'
       
  1976                       )
       
  1977                      (MenuItem
       
  1978                         label: 'Change HLS...'
       
  1979                         itemValue: changeHLS
       
  1980                         translateLabel: true
       
  1981                       )
       
  1982                      (MenuItem
       
  1983                         label: 'Colorize...'
       
  1984                         itemValue: colorize
       
  1985                         translateLabel: true
       
  1986                       )
       
  1987                      )
       
  1988                     nil
       
  1989                     nil
       
  1990                   )
       
  1991                 )
       
  1992                (MenuItem
       
  1993                   label: 'Mask'
       
  1994                   translateLabel: true
  1834                   translateLabel: true
  1995                   submenu: 
  1835                   argument: masked2
  1996                  (Menu
  1836                   choice: colorMapMode
  1997                     (
  1837                   choiceValue: masked2
  1998                      (MenuItem
  1838                 )
  1999                         activeHelpKey: copyMask
  1839                (MenuItem
  2000                         enabled: hasMask
  1840                   label: '-'
  2001                         label: 'Copy Mask'
  1841                 )
  2002                         itemValue: copyMask
  1842                (MenuItem
  2003                         translateLabel: true
  1843                   activeHelpKey: colorMap4
  2004                       )
  1844                   label: '4-Plane'
  2005                      (MenuItem
  1845                   itemValue: colorMapMode:
  2006                         activeHelpKey: pasteMask
  1846                   translateLabel: true
  2007                         enabled: hasMask
  1847                   argument: depth4
  2008                         label: 'Paste Mask'
  1848                   choice: colorMapMode
  2009                         itemValue: pasteMask
  1849                   choiceValue: depth4
  2010                         translateLabel: true
  1850                 )
  2011                       )
  1851                (MenuItem
  2012                      (MenuItem
  1852                   activeHelpKey: colorMap4M
  2013                         enabled: hasMask
  1853                   label: '4-Plane + Mask'
  2014                         label: 'Clear Masked Pixels'
  1854                   itemValue: colorMapMode:
  2015                         itemValue: clearMaskedPixels
  1855                   translateLabel: true
  2016                         translateLabel: true
  1856                   argument: masked4
  2017                       )
  1857                   choice: colorMapMode
  2018                      )
  1858                   choiceValue: masked4
  2019                     nil
  1859                 )
  2020                     nil
  1860                (MenuItem
  2021                   )
  1861                   label: '-'
       
  1862                 )
       
  1863                (MenuItem
       
  1864                   activeHelpKey: colorMap8
       
  1865                   label: '8-Plane'
       
  1866                   itemValue: colorMapMode:
       
  1867                   translateLabel: true
       
  1868                   argument: depth8
       
  1869                   choice: colorMapMode
       
  1870                   choiceValue: depth8
       
  1871                 )
       
  1872                (MenuItem
       
  1873                   activeHelpKey: colorMap8M
       
  1874                   label: '8-Plane + Mask'
       
  1875                   itemValue: colorMapMode:
       
  1876                   translateLabel: true
       
  1877                   argument: masked8
       
  1878                   choice: colorMapMode
       
  1879                   choiceValue: masked8
       
  1880                 )
       
  1881                (MenuItem
       
  1882                   label: '-'
       
  1883                 )
       
  1884                (MenuItem
       
  1885                   activeHelpKey: colorMap16
       
  1886                   label: '16-Plane'
       
  1887                   itemValue: colorMapMode:
       
  1888                   translateLabel: true
       
  1889                   argument: depth16
       
  1890                   choice: colorMapMode
       
  1891                   choiceValue: depth16
       
  1892                 )
       
  1893                (MenuItem
       
  1894                   activeHelpKey: colorMap16M
       
  1895                   label: '16-Plane + Mask'
       
  1896                   itemValue: colorMapMode:
       
  1897                   translateLabel: true
       
  1898                   argument: masked16
       
  1899                   choice: colorMapMode
       
  1900                   choiceValue: masked16
       
  1901                 )
       
  1902                (MenuItem
       
  1903                   label: '-'
       
  1904                 )
       
  1905                (MenuItem
       
  1906                   activeHelpKey: colorMap24
       
  1907                   label: '24-Plane'
       
  1908                   itemValue: colorMapMode:
       
  1909                   translateLabel: true
       
  1910                   argument: depth24
       
  1911                   choice: colorMapMode
       
  1912                   choiceValue: depth24
       
  1913                 )
       
  1914                (MenuItem
       
  1915                   activeHelpKey: colorMap24M
       
  1916                   label: '24-Plane + Mask'
       
  1917                   itemValue: colorMapMode:
       
  1918                   translateLabel: true
       
  1919                   argument: masked24
       
  1920                   choice: colorMapMode
       
  1921                   choiceValue: masked24
       
  1922                 )
       
  1923                (MenuItem
       
  1924                   label: '-'
       
  1925                 )
       
  1926                (MenuItem
       
  1927                   activeHelpKey: colorMap32
       
  1928                   label: '32-Plane (rgba)'
       
  1929                   itemValue: colorMapMode:
       
  1930                   translateLabel: true
       
  1931                   argument: depth32
       
  1932                   choice: colorMapMode
       
  1933                   choiceValue: depth32
  2022                 )
  1934                 )
  2023                )
  1935                )
  2024               nil
  1936               nil
  2025               nil
  1937               nil
  2026             )
  1938             )
  2027           )
  1939           )
  2028          (MenuItem
  1940          (MenuItem
  2029             label: 'Settings'
  1941             enabled: imageIsLoaded
       
  1942             label: 'ColorMap'
  2030             translateLabel: true
  1943             translateLabel: true
  2031             submenu: 
  1944             submenu: 
  2032            (Menu
  1945            (Menu
  2033               (
  1946               (
  2034                (MenuItem
  1947                (MenuItem
  2035                   activeHelpKey: settingsGridMagnification
  1948                   activeHelpKey: compressColormap
  2036                   label: 'Grid Magnification Limit...'
  1949                   enabled: hasColormap
  2037                   itemValue: doChangeGridMagnification
  1950                   label: 'Compress Colormap'
       
  1951                   itemValue: compressColorMap
  2038                   translateLabel: true
  1952                   translateLabel: true
  2039                 )
  1953                 )
  2040                (MenuItem
  1954                (MenuItem
  2041                   label: 'Pen'
  1955                   enabled: hasColormap
       
  1956                   label: 'Sort Colormap'
       
  1957                   itemValue: sortColorMap
  2042                   translateLabel: true
  1958                   translateLabel: true
  2043                   submenu: 
  1959                 )
  2044                  (Menu
  1960                (MenuItem
  2045                     (
  1961                   label: 'Reduce Number of Colors by Rounding...'
  2046                      (MenuItem
  1962                   itemValue: reduceNumberOfColors2
  2047                         label: '1'
       
  2048                         itemValue: penWidth:
       
  2049                         translateLabel: true
       
  2050                         argument: 1
       
  2051                       )
       
  2052                      (MenuItem
       
  2053                         label: '5'
       
  2054                         itemValue: penWidth:
       
  2055                         translateLabel: true
       
  2056                         argument: 5
       
  2057                       )
       
  2058                      (MenuItem
       
  2059                         label: '10'
       
  2060                         itemValue: penWidth:
       
  2061                         translateLabel: true
       
  2062                         argument: 10
       
  2063                       )
       
  2064                      )
       
  2065                     nil
       
  2066                     nil
       
  2067                   )
       
  2068                 )
       
  2069                (MenuItem
       
  2070                   label: 'Spray'
       
  2071                   translateLabel: true
  1963                   translateLabel: true
  2072                   submenu: 
  1964                 )
  2073                  (Menu
  1965                (MenuItem
  2074                     (
  1966                   label: 'Reduce Number of Colors by Masking Bits...'
  2075                      (MenuItem
  1967                   itemValue: reduceNumberOfColors
  2076                         label: '4'
  1968                   translateLabel: true
  2077                         itemValue: spraySpot:
  1969                 )
  2078                         translateLabel: true
  1970                (MenuItem
  2079                         argument: 4
  1971                   label: 'Dither to Depth...'
  2080                       )
  1972                   itemValue: ditherToDepth
  2081                      (MenuItem
  1973                   translateLabel: true
  2082                         label: '8'
  1974                 )
  2083                         itemValue: spraySpot:
  1975                (MenuItem
  2084                         translateLabel: true
  1976                   label: '-'
  2085                         argument: 8
  1977                 )
  2086                       )
  1978                (MenuItem
  2087                      (MenuItem
  1979                   enabled: imageIsLoaded
  2088                         label: '16'
  1980                   label: 'Invert'
  2089                         itemValue: spraySpot:
  1981                   itemValue: doNegativeImage
  2090                         translateLabel: true
  1982                   translateLabel: true
  2091                         argument: 16
  1983                 )
  2092                       )
  1984                (MenuItem
  2093                      (MenuItem
  1985                   enabled: imageIsLoaded
  2094                         label: '32'
  1986                   label: 'Brighten'
  2095                         itemValue: spraySpot:
  1987                   itemValue: doBrightenImage
  2096                         translateLabel: true
  1988                   translateLabel: true
  2097                         argument: 32
  1989                 )
  2098                       )
  1990                (MenuItem
  2099                      )
  1991                   enabled: imageIsLoaded
  2100                     nil
  1992                   label: 'Darken'
  2101                     nil
  1993                   itemValue: doDarkenImage
  2102                   )
  1994                   translateLabel: true
  2103                 )
  1995                 )
  2104                )
  1996                )
  2105               nil
  1997               nil
  2106               nil
  1998               nil
  2107             )
  1999             )
  2108           )
  2000           )
  2109          (MenuItem
  2001          (MenuItem
  2110             label: 'History'
  2002             enabled: imageIsLoaded
  2111             translateLabel: true
  2003             label: 'Process'
  2112             isVisible: isStandAlone
  2004             translateLabel: true
  2113             submenuChannel: menuHistory
  2005             submenu: 
  2114           )
  2006            (Menu
  2115          (MenuItem
  2007               (
  2116             label: 'MENU_Help'
  2008                (MenuItem
  2117             translateLabel: true
  2009                   label: 'Make GrayScale'
  2118             startGroup: conditionalRight
  2010                   itemValue: makeGrayScaleImage
  2119             submenuChannel: menuHelp
  2011                   translateLabel: true
       
  2012                 )
       
  2013                (MenuItem
       
  2014                   enabled: hasNoColormap
       
  2015                   label: 'Make dithered 8Bit Palette'
       
  2016                   itemValue: makeDitheredPaletteImage
       
  2017                   translateLabel: true
       
  2018                   isVisible: false
       
  2019                 )
       
  2020                (MenuItem
       
  2021                   label: 'Make Brighter'
       
  2022                   itemValue: makeBrighter
       
  2023                   translateLabel: true
       
  2024                 )
       
  2025                (MenuItem
       
  2026                   label: 'Make Darker'
       
  2027                   itemValue: makeDarker
       
  2028                   translateLabel: true
       
  2029                 )
       
  2030                (MenuItem
       
  2031                   label: 'Make Inverse'
       
  2032                   itemValue: makeInverse
       
  2033                   translateLabel: true
       
  2034                 )
       
  2035                (MenuItem
       
  2036                   label: '-'
       
  2037                 )
       
  2038                (MenuItem
       
  2039                   label: 'Change HLS...'
       
  2040                   itemValue: changeHLS
       
  2041                   translateLabel: true
       
  2042                 )
       
  2043                (MenuItem
       
  2044                   label: 'Colorize...'
       
  2045                   itemValue: colorize
       
  2046                   translateLabel: true
       
  2047                 )
       
  2048                )
       
  2049               nil
       
  2050               nil
       
  2051             )
       
  2052           )
       
  2053          (MenuItem
       
  2054             enabled: imageIsLoaded
       
  2055             label: 'Mask'
       
  2056             translateLabel: true
       
  2057             submenu: 
       
  2058            (Menu
       
  2059               (
       
  2060                (MenuItem
       
  2061                   activeHelpKey: copyMask
       
  2062                   enabled: hasMask
       
  2063                   label: 'Copy Mask'
       
  2064                   itemValue: copyMask
       
  2065                   translateLabel: true
       
  2066                 )
       
  2067                (MenuItem
       
  2068                   activeHelpKey: pasteMask
       
  2069                   enabled: hasMask
       
  2070                   label: 'Paste Mask'
       
  2071                   itemValue: pasteMask
       
  2072                   translateLabel: true
       
  2073                 )
       
  2074                (MenuItem
       
  2075                   enabled: hasMask
       
  2076                   label: 'Clear Masked Pixels'
       
  2077                   itemValue: clearMaskedPixels
       
  2078                   translateLabel: true
       
  2079                 )
       
  2080                )
       
  2081               nil
       
  2082               nil
       
  2083             )
  2120           )
  2084           )
  2121          )
  2085          )
  2122         nil
  2086         nil
  2123         nil
  2087         nil
  2124       )
  2088       )
  2150           )
  2114           )
  2151          (MenuItem
  2115          (MenuItem
  2152             label: '-'
  2116             label: '-'
  2153           )
  2117           )
  2154          (MenuItem
  2118          (MenuItem
       
  2119             enabled: imageIsLoaded
  2155             activeHelpKey: editResize
  2120             activeHelpKey: editResize
  2156             label: 'Resize...'
  2121             label: 'Resize...'
  2157             itemValue: doResizeImage
  2122             itemValue: doResizeImage
  2158             translateLabel: true
  2123             translateLabel: true
  2159           )
  2124           )
  2160          (MenuItem
  2125          (MenuItem
       
  2126             enabled: imageIsLoaded
  2161             activeHelpKey: editMagnifyImage
  2127             activeHelpKey: editMagnifyImage
  2162             label: 'Magnify...'
  2128             label: 'Magnify...'
  2163             itemValue: doMagnifyImage
  2129             itemValue: doMagnifyImage
  2164             translateLabel: true
  2130             translateLabel: true
  2165           )
  2131           )
  2166          (MenuItem
  2132          (MenuItem
       
  2133             enabled: imageIsLoaded
  2167             activeHelpKey: editMagnifyImage
  2134             activeHelpKey: editMagnifyImage
  2168             label: 'Magnify By...'
  2135             label: 'Magnify By...'
  2169             itemValue: doMagnifyImageBy
  2136             itemValue: doMagnifyImageBy
  2170             translateLabel: true
  2137             translateLabel: true
  2171           )
  2138           )
  2172          (MenuItem
  2139          (MenuItem
       
  2140             enabled: imageIsLoaded
  2173             activeHelpKey: editRotate
  2141             activeHelpKey: editRotate
  2174             label: 'Rotate...'
  2142             label: 'Rotate...'
  2175             itemValue: doRotateImage
  2143             itemValue: doRotateImage
  2176             translateLabel: true
  2144             translateLabel: true
  2177           )
  2145           )
  2178          (MenuItem
  2146          (MenuItem
       
  2147             enabled: imageIsLoaded
  2179             activeHelpKey: edit3DProjection
  2148             activeHelpKey: edit3DProjection
  2180             label: '3D Projection...'
  2149             label: '3D Projection...'
  2181             itemValue: do3DProjection
  2150             itemValue: do3DProjection
  2182             translateLabel: true
  2151             translateLabel: true
  2183           )
  2152           )
  2184          (MenuItem
  2153          (MenuItem
       
  2154             enabled: imageIsLoaded
  2185             label: 'Flip'
  2155             label: 'Flip'
  2186             translateLabel: true
  2156             translateLabel: true
  2187             submenu: 
  2157             submenu: 
  2188            (Menu
  2158            (Menu
  2189               (
  2159               (
  2190                (MenuItem
  2160                (MenuItem
  2191                   activeHelpKey: editFlipVertical
  2161                   activeHelpKey: editFlipVertical
  2192                   label: 'Flip - Vertical'
  2162                   label: 'Flip - Vertical'
  2193                   itemValue: doFlipVertical
  2163                   itemValue: doFlipVertical
  2194                   translateLabel: true
  2164                   translateLabel: true
       
  2165                   enabled: imageIsLoaded
  2195                 )
  2166                 )
  2196                (MenuItem
  2167                (MenuItem
  2197                   activeHelpKey: editFlipHorizontal
  2168                   activeHelpKey: editFlipHorizontal
  2198                   label: 'Flip - Horizontal'
  2169                   label: 'Flip - Horizontal'
  2199                   itemValue: doFlipHorizontal
  2170                   itemValue: doFlipHorizontal
  2200                   translateLabel: true
  2171                   translateLabel: true
       
  2172                   enabled: imageIsLoaded
  2201                 )
  2173                 )
  2202                )
  2174                )
  2203               nil
  2175               nil
  2204               nil
  2176               nil
  2205             )
  2177             )
  2206           )
  2178           )
  2207          (MenuItem
  2179          (MenuItem
  2208             label: '-'
  2180             label: '-'
  2209           )
  2181           )
  2210          (MenuItem
  2182          (MenuItem
  2211             label: 'Invert'
  2183             enabled: imageIsLoaded
  2212             itemValue: doNegativeImage
       
  2213             translateLabel: true
       
  2214           )
       
  2215          (MenuItem
       
  2216             label: 'Brighten'
       
  2217             itemValue: doBrightenImage
       
  2218             translateLabel: true
       
  2219           )
       
  2220          (MenuItem
       
  2221             label: 'Darken'
       
  2222             itemValue: doDarkenImage
       
  2223             translateLabel: true
       
  2224           )
       
  2225          (MenuItem
       
  2226             label: '-'
       
  2227           )
       
  2228          (MenuItem
       
  2229             label: 'Crop'
  2184             label: 'Crop'
  2230             translateLabel: true
  2185             translateLabel: true
  2231             submenu: 
  2186             submenu: 
  2232            (Menu
  2187            (Menu
  2233               (
  2188               (
  2277               nil
  2232               nil
  2278               nil
  2233               nil
  2279             )
  2234             )
  2280           )
  2235           )
  2281          (MenuItem
  2236          (MenuItem
       
  2237             enabled: imageIsLoaded
  2282             activeHelpKey: uncropManual
  2238             activeHelpKey: uncropManual
  2283             label: 'Uncrop (Add Border)...'
  2239             label: 'Uncrop (Add Border)...'
  2284             itemValue: doUnCropManual
  2240             itemValue: doUnCropManual
  2285             translateLabel: true
  2241             translateLabel: true
  2286           )
  2242           )
  2287          (MenuItem
  2243          (MenuItem
       
  2244             enabled: imageIsLoaded
  2288             activeHelpKey: shiftManual
  2245             activeHelpKey: shiftManual
  2289             label: 'Shift...'
  2246             label: 'Shift...'
  2290             itemValue: doShiftManual
  2247             itemValue: doShiftManual
  2291             translateLabel: true
  2248             translateLabel: true
  2292           )
  2249           )
  2293          (MenuItem
  2250          (MenuItem
  2294             label: '-'
  2251             label: '-'
  2295           )
  2252           )
  2296          (MenuItem
  2253          (MenuItem
       
  2254             activeHelpKey: fileEditMask
       
  2255             enabled: imageIsLoaded
       
  2256             label: 'Edit Mask'
       
  2257             itemValue: doEditMask
       
  2258             translateLabel: true
       
  2259           )
       
  2260          (MenuItem
       
  2261             enabled: imageIsLoaded
  2297             label: 'Text...'
  2262             label: 'Text...'
  2298             itemValue: doInsertTextFromUser
  2263             itemValue: doInsertTextFromUser
  2299             translateLabel: true
  2264             translateLabel: true
  2300           )
  2265           )
  2301 
  2266 
  2414           )
  2379           )
  2415          (MenuItem
  2380          (MenuItem
  2416             label: '-'
  2381             label: '-'
  2417           )
  2382           )
  2418          (MenuItem
  2383          (MenuItem
       
  2384             activeHelpKey: fileEditMask
       
  2385             enabled: imageIsLoaded
       
  2386             label: 'Edit Mask'
       
  2387             itemValue: doEditMask
       
  2388             translateLabel: true
       
  2389             isVisible: false
       
  2390           )
       
  2391          (MenuItem
       
  2392             label: '-'
       
  2393             isVisible: false
       
  2394           )
       
  2395          (MenuItem
       
  2396             activeHelpKey: filePrint
       
  2397             enabled: imageIsLoaded
       
  2398             label: 'Print'
       
  2399             itemValue: doPrint
       
  2400             translateLabel: true
       
  2401           )
       
  2402          (MenuItem
       
  2403             label: '-'
       
  2404             isVisible: isStandAlone
       
  2405           )
       
  2406          (MenuItem
       
  2407             activeHelpKey: fileBrowseClass
       
  2408             enabled: hasClassDefined
       
  2409             label: 'Browse Class'
       
  2410             itemValue: doBrowseClass
       
  2411             translateLabel: true
       
  2412             isVisible: isStandAlone
       
  2413           )
       
  2414          (MenuItem
       
  2415             enabled: imageIsLoaded
       
  2416             label: 'Inspect Image'
       
  2417             itemValue: doInspectImage
       
  2418             translateLabel: true
       
  2419             isVisible: isStandAlone
       
  2420           )
       
  2421          (MenuItem
  2419             activeHelpKey: fileShowStoreString
  2422             activeHelpKey: fileShowStoreString
  2420             enabled: imageIsLoaded
  2423             enabled: imageIsLoaded
  2421             label: 'Show storeString'
  2424             label: 'Show storeString'
  2422             itemValue: doShowStoreString
  2425             itemValue: doShowStoreString
  2423             translateLabel: true
  2426             translateLabel: true
  2424           )
       
  2425          (MenuItem
       
  2426             activeHelpKey: fileEditMask
       
  2427             enabled: imageIsLoaded
       
  2428             label: 'Edit Mask'
       
  2429             itemValue: doEditMask
       
  2430             translateLabel: true
       
  2431           )
       
  2432          (MenuItem
       
  2433             label: '-'
       
  2434           )
       
  2435          (MenuItem
       
  2436             activeHelpKey: filePrint
       
  2437             enabled: imageIsLoaded
       
  2438             label: 'Print'
       
  2439             itemValue: doPrint
       
  2440             translateLabel: true
       
  2441           )
       
  2442          (MenuItem
       
  2443             label: '-'
       
  2444             isVisible: isStandAlone
       
  2445           )
       
  2446          (MenuItem
       
  2447             activeHelpKey: fileBrowseClass
       
  2448             enabled: hasClassDefined
       
  2449             label: 'Browse Class'
       
  2450             itemValue: doBrowseClass
       
  2451             translateLabel: true
       
  2452             isVisible: isStandAlone
       
  2453           )
       
  2454          (MenuItem
       
  2455             label: 'Inspect Image'
       
  2456             itemValue: doInspectImage
       
  2457             translateLabel: true
       
  2458             isVisible: isStandAlone
       
  2459           )
  2427           )
  2460          (MenuItem
  2428          (MenuItem
  2461             label: '-'
  2429             label: '-'
  2462             isVisible: isStandAlone
  2430             isVisible: isStandAlone
  2463           )
  2431           )
  2511                 #choice: #mouseKeyColorMode
  2479                 #choice: #mouseKeyColorMode
  2512                 #choiceValue: 2
  2480                 #choiceValue: 2
  2513             )
  2481             )
  2514           ) nil
  2482           ) nil
  2515           nil
  2483           nil
       
  2484       )
       
  2485 !
       
  2486 
       
  2487 menuSettings
       
  2488     "This resource specification was automatically generated
       
  2489      by the MenuEditor of ST/X."
       
  2490 
       
  2491     "Do not manually edit this!! If it is corrupted,
       
  2492      the MenuEditor may not be able to read the specification."
       
  2493 
       
  2494     "
       
  2495      MenuEditor new openOnClass:ImageEditor andSelector:#menuSettings
       
  2496      (Menu new fromLiteralArrayEncoding:(ImageEditor menuSettings)) startUp
       
  2497     "
       
  2498 
       
  2499     <resource: #menu>
       
  2500 
       
  2501     ^ 
       
  2502      #(Menu
       
  2503         (
       
  2504          (MenuItem
       
  2505             activeHelpKey: settingsGridMagnification
       
  2506             label: 'Grid Magnification Limit...'
       
  2507             itemValue: doChangeGridMagnification
       
  2508             translateLabel: true
       
  2509           )
       
  2510          (MenuItem
       
  2511             label: 'Pen'
       
  2512             translateLabel: true
       
  2513             submenu: 
       
  2514            (Menu
       
  2515               (
       
  2516                (MenuItem
       
  2517                   label: '1'
       
  2518                   itemValue: penWidth:
       
  2519                   translateLabel: true
       
  2520                   argument: 1
       
  2521                 )
       
  2522                (MenuItem
       
  2523                   label: '5'
       
  2524                   itemValue: penWidth:
       
  2525                   translateLabel: true
       
  2526                   argument: 5
       
  2527                 )
       
  2528                (MenuItem
       
  2529                   label: '10'
       
  2530                   itemValue: penWidth:
       
  2531                   translateLabel: true
       
  2532                   argument: 10
       
  2533                 )
       
  2534                )
       
  2535               nil
       
  2536               nil
       
  2537             )
       
  2538           )
       
  2539          (MenuItem
       
  2540             label: 'Spray'
       
  2541             translateLabel: true
       
  2542             submenu: 
       
  2543            (Menu
       
  2544               (
       
  2545                (MenuItem
       
  2546                   label: '4'
       
  2547                   itemValue: spraySpot:
       
  2548                   translateLabel: true
       
  2549                   argument: 4
       
  2550                 )
       
  2551                (MenuItem
       
  2552                   label: '8'
       
  2553                   itemValue: spraySpot:
       
  2554                   translateLabel: true
       
  2555                   argument: 8
       
  2556                 )
       
  2557                (MenuItem
       
  2558                   label: '16'
       
  2559                   itemValue: spraySpot:
       
  2560                   translateLabel: true
       
  2561                   argument: 16
       
  2562                 )
       
  2563                (MenuItem
       
  2564                   label: '32'
       
  2565                   itemValue: spraySpot:
       
  2566                   translateLabel: true
       
  2567                   argument: 32
       
  2568                 )
       
  2569                )
       
  2570               nil
       
  2571               nil
       
  2572             )
       
  2573           )
       
  2574          )
       
  2575         nil
       
  2576         nil
  2516       )
  2577       )
  2517 !
  2578 !
  2518 
  2579 
  2519 menuToolbar
  2580 menuToolbar
  2520     "This resource specification was automatically generated
  2581     "This resource specification was automatically generated
  5189 
  5250 
  5190 doBrightenImage
  5251 doBrightenImage
  5191     imageEditView brightenImage.
  5252     imageEditView brightenImage.
  5192     self listOfColors removeAll.
  5253     self listOfColors removeAll.
  5193     self findColorMapMode.     
  5254     self findColorMapMode.     
  5194     imageEditView removelastUndo
  5255     "/ imageEditView removelastUndo
  5195 !
  5256 !
  5196 
  5257 
  5197 doBrowseClass
  5258 doBrowseClass
  5198     "opens a System Browser on the resourceClass and the resourceSelector"
  5259     "opens a System Browser on the resourceClass and the resourceSelector"
  5199 
  5260 
  5328 
  5389 
  5329 doDarkenImage
  5390 doDarkenImage
  5330     imageEditView darkenImage.
  5391     imageEditView darkenImage.
  5331     self listOfColors removeAll.
  5392     self listOfColors removeAll.
  5332     self findColorMapMode.     
  5393     self findColorMapMode.     
  5333     imageEditView removelastUndo
  5394     "/ imageEditView removelastUndo
  5334 !
  5395 !
  5335 
  5396 
  5336 doEditMask
  5397 doEditMask
  5337     self image mask edit
  5398     self image mask edit
  5338 !
  5399 !
  5482         ^ self
  5543         ^ self
  5483     ].
  5544     ].
  5484     imageEditView negativeImage.
  5545     imageEditView negativeImage.
  5485     self listOfColors removeAll.
  5546     self listOfColors removeAll.
  5486     self findColorMapMode.     
  5547     self findColorMapMode.     
  5487     imageEditView removelastUndo
  5548     "/ imageEditView removelastUndo
  5488 !
  5549 !
  5489 
  5550 
  5490 doResizeImage
  5551 doResizeImage
  5491     "resizes the current image"
  5552     "resizes the current image"
  5492 
  5553