ImageEditor.st
changeset 1882 80845a794f11
parent 1880 8a11bb0a86e6
child 1883 577a267a87cb
equal deleted inserted replaced
1881:dde52f4278c0 1882:80845a794f11
  1681     "
  1681     "
  1682 
  1682 
  1683     <resource: #menu>
  1683     <resource: #menu>
  1684 
  1684 
  1685     ^ 
  1685     ^ 
  1686      #(#Menu
  1686      #(Menu
  1687         #(
  1687         (
  1688          #(#MenuItem
  1688          (MenuItem
  1689             #label: '&File'
  1689             label: '&File'
  1690             #translateLabel: true
  1690             translateLabel: true
  1691             #submenu: 
  1691             submenu: 
  1692            #(#Menu
  1692            (Menu
  1693               #(
  1693               (
  1694                #(#MenuItem
  1694                (MenuItem
  1695                   #activeHelpKey: #fileNewImage
  1695                   activeHelpKey: fileNewImage
  1696                   #label: 'New...'
  1696                   label: 'New...'
  1697                   #itemValue: #doNewImage
  1697                   itemValue: doNewImage
  1698                   #translateLabel: true
  1698                   translateLabel: true
  1699                 )
  1699                 )
  1700                #(#MenuItem
  1700                (MenuItem
  1701                   #activeHelpKey: #fileNewImage
  1701                   activeHelpKey: fileNewImage
  1702                   #label: 'New from ClipBoard'
  1702                   label: 'New from ClipBoard'
  1703                   #itemValue: #doNewImageFromClipboard
  1703                   itemValue: doNewImageFromClipboard
  1704                   #translateLabel: true
  1704                   translateLabel: true
  1705                 )
  1705                 )
  1706                #(#MenuItem
  1706                (MenuItem
  1707                   #label: '-'
  1707                   label: '-'
  1708                 )
  1708                 )
  1709                #(#MenuItem
  1709                (MenuItem
  1710                   #activeHelpKey: #fileLoadFromClass
  1710                   activeHelpKey: fileLoadFromClass
  1711                   #label: 'Load...'
  1711                   label: 'Load...'
  1712                   #itemValue: #doLoadFromClass
  1712                   itemValue: doLoadFromClass
  1713                   #translateLabel: true
  1713                   translateLabel: true
  1714                 )
  1714                 )
  1715                #(#MenuItem
  1715                (MenuItem
  1716                   #activeHelpKey: #fileLoadFromFile
  1716                   activeHelpKey: fileLoadFromFile
  1717                   #label: 'Load from File...'
  1717                   label: 'Load from File...'
  1718                   #itemValue: #doLoadFromFile
  1718                   itemValue: doLoadFromFile
  1719                   #translateLabel: true
  1719                   translateLabel: true
  1720                 )
  1720                 )
  1721                #(#MenuItem
  1721                (MenuItem
  1722                   #activeHelpKey: #fileGrabImage
  1722                   activeHelpKey: fileGrabImage
  1723                   #label: 'Grab from Screen...'
  1723                   label: 'Grab from Screen...'
  1724                   #itemValue: #grabScreenImage
  1724                   itemValue: grabScreenImage
  1725                   #translateLabel: true
  1725                   translateLabel: true
  1726                 )
  1726                 )
  1727                #(#MenuItem
  1727                (MenuItem
  1728                   #enabled: #imageHasNextImage
  1728                   enabled: imageHasNextImage
  1729                   #label: 'Next in Sequence'
  1729                   label: 'Next in Sequence'
  1730                   #itemValue: #nextImageInSequence
  1730                   itemValue: nextImageInSequence
  1731                   #translateLabel: true
  1731                   translateLabel: true
  1732                 )
  1732                 )
  1733                #(#MenuItem
  1733                (MenuItem
  1734                   #label: '-'
  1734                   label: '-'
  1735                 )
  1735                 )
  1736                #(#MenuItem
  1736                (MenuItem
  1737                   #activeHelpKey: #fileSaveMethod
  1737                   activeHelpKey: fileSaveMethod
  1738                   #enabled: #imageIsLoadedAndClassDefined
  1738                   enabled: imageIsLoadedAndClassDefined
  1739                   #label: 'Save'
  1739                   label: 'Save'
  1740                   #itemValue: #doSaveMethod
  1740                   itemValue: doSaveMethod
  1741                   #translateLabel: true
  1741                   translateLabel: true
  1742                 )
  1742                 )
  1743                #(#MenuItem
  1743                (MenuItem
  1744                   #activeHelpKey: #fileSaveMethodAs
  1744                   activeHelpKey: fileSaveMethodAs
  1745                   #enabled: #imageIsLoaded
  1745                   enabled: imageIsLoaded
  1746                   #label: 'Save As...'
  1746                   label: 'Save As...'
  1747                   #itemValue: #doSaveMethodAs
  1747                   itemValue: doSaveMethodAs
  1748                   #translateLabel: true
  1748                   translateLabel: true
  1749                 )
  1749                 )
  1750                #(#MenuItem
  1750                (MenuItem
  1751                   #activeHelpKey: #fileSaveAs
  1751                   activeHelpKey: fileSaveAs
  1752                   #enabled: #imageIsLoaded
  1752                   enabled: imageIsLoaded
  1753                   #label: 'Save to File...'
  1753                   label: 'Save to File...'
  1754                   #itemValue: #doSaveImageFileAs
  1754                   itemValue: doSaveImageFileAs
  1755                   #translateLabel: true
  1755                   translateLabel: true
  1756                 )
  1756                 )
  1757                #(#MenuItem
  1757                (MenuItem
  1758                   #activeHelpKey: #fileSaveMaskAs
  1758                   activeHelpKey: fileSaveMaskAs
  1759                   #enabled: #imageIsLoaded
  1759                   enabled: imageIsLoaded
  1760                   #label: 'Save Mask to File...'
  1760                   label: 'Save Mask to File...'
  1761                   #itemValue: #doSaveImageMaskFileAs
  1761                   itemValue: doSaveImageMaskFileAs
  1762                   #translateLabel: true
  1762                   translateLabel: true
  1763                 )
  1763                 )
  1764                #(#MenuItem
  1764                (MenuItem
  1765                   #activeHelpKey: #fileSaveButtonImageAs
  1765                   activeHelpKey: fileSaveButtonImageAs
  1766                   #enabled: #imageIsLoaded
  1766                   enabled: imageIsLoaded
  1767                   #label: 'Save as Button to File...'
  1767                   label: 'Save as Button to File...'
  1768                   #itemValue: #doSaveButtonImageToFileAs
  1768                   itemValue: doSaveButtonImageToFileAs
  1769                   #translateLabel: true
  1769                   translateLabel: true
  1770                 )
  1770                 )
  1771                #(#MenuItem
  1771                (MenuItem
  1772                   #enabled: #imageIsLoaded
  1772                   enabled: imageIsLoaded
  1773                   #label: 'Copy to Clipboard'
  1773                   label: 'Copy to Clipboard'
  1774                   #itemValue: #doCopyImageToClipboard
  1774                   itemValue: doCopyImageToClipboard
  1775                   #translateLabel: true
  1775                   translateLabel: true
  1776                 )
  1776                 )
  1777                #(#MenuItem
  1777                (MenuItem
  1778                   #label: '-'
  1778                   label: '-'
  1779                 )
  1779                 )
  1780                #(#MenuItem
  1780                (MenuItem
  1781                   #activeHelpKey: #fileShowStoreString
  1781                   activeHelpKey: fileShowStoreString
  1782                   #enabled: #imageIsLoaded
  1782                   enabled: imageIsLoaded
  1783                   #label: 'Show storeString'
  1783                   label: 'Show storeString'
  1784                   #itemValue: #doShowStoreString
  1784                   itemValue: doShowStoreString
  1785                   #translateLabel: true
  1785                   translateLabel: true
  1786                 )
  1786                 )
  1787                #(#MenuItem
  1787                (MenuItem
  1788                   #activeHelpKey: #fileEditMask
  1788                   activeHelpKey: fileEditMask
  1789                   #enabled: #imageIsLoaded
  1789                   enabled: imageIsLoaded
  1790                   #label: 'Edit Mask'
  1790                   label: 'Edit Mask'
  1791                   #itemValue: #doEditMask
  1791                   itemValue: doEditMask
  1792                   #translateLabel: true
  1792                   translateLabel: true
  1793                 )
  1793                 )
  1794                #(#MenuItem
  1794                (MenuItem
  1795                   #label: '-'
  1795                   label: '-'
  1796                 )
  1796                 )
  1797                #(#MenuItem
  1797                (MenuItem
  1798                   #activeHelpKey: #filePrint
  1798                   activeHelpKey: filePrint
  1799                   #enabled: #imageIsLoaded
  1799                   enabled: imageIsLoaded
  1800                   #label: 'Print'
  1800                   label: 'Print'
  1801                   #itemValue: #doPrint
  1801                   itemValue: doPrint
  1802                   #translateLabel: true
  1802                   translateLabel: true
  1803                 )
  1803                 )
  1804                #(#MenuItem
  1804                (MenuItem
  1805                   #label: '-'
  1805                   label: '-'
  1806                 )
  1806                 )
  1807                #(#MenuItem
  1807                (MenuItem
  1808                   #activeHelpKey: #fileBrowseClass
  1808                   activeHelpKey: fileBrowseClass
  1809                   #enabled: #hasClassDefined
  1809                   enabled: hasClassDefined
  1810                   #label: 'Browse Class'
  1810                   label: 'Browse Class'
  1811                   #itemValue: #doBrowseClass
  1811                   itemValue: doBrowseClass
  1812                   #translateLabel: true
  1812                   translateLabel: true
  1813                 )
  1813                 )
  1814                #(#MenuItem
  1814                (MenuItem
  1815                   #label: '-'
  1815                   label: '-'
  1816                 )
  1816                 )
  1817                #(#MenuItem
  1817                (MenuItem
  1818                   #activeHelpKey: #fileExit
  1818                   activeHelpKey: fileExit
  1819                   #label: 'Exit'
  1819                   label: 'Exit'
  1820                   #itemValue: #closeRequest
  1820                   itemValue: closeRequest
  1821                   #translateLabel: true
  1821                   translateLabel: true
  1822                 )
  1822                 )
  1823                )
  1823                )
  1824               nil
  1824               nil
  1825               nil
  1825               nil
  1826             )
  1826             )
  1827           )
  1827           )
  1828          #(#MenuItem
  1828          (MenuItem
  1829             #enabled: #imageIsLoaded
  1829             enabled: imageIsLoaded
  1830             #label: 'Edit'
  1830             label: 'Edit'
  1831             #translateLabel: true
  1831             translateLabel: true
  1832             #submenu: 
  1832             submenu: 
  1833            #(#Menu
  1833            (Menu
  1834               #(
  1834               (
  1835                #(#MenuItem
  1835                (MenuItem
  1836                   #activeHelpKey: #editUndo
  1836                   activeHelpKey: editUndo
  1837                   #enabled: #valueOfCanUndo
  1837                   enabled: valueOfCanUndo
  1838                   #label: 'Undo'
  1838                   label: 'Undo'
  1839                   #itemValue: #doUndo
  1839                   itemValue: doUndo
  1840                   #translateLabel: true
  1840                   translateLabel: true
  1841                 )
  1841                 )
  1842                #(#MenuItem
  1842                (MenuItem
  1843                   #label: '-'
  1843                   label: '-'
  1844                 )
  1844                 )
  1845                #(#MenuItem
  1845                (MenuItem
  1846                   #activeHelpKey: #editFlipVertical
  1846                   activeHelpKey: editFlipVertical
  1847                   #label: 'Flip - Vertical'
  1847                   label: 'Flip - Vertical'
  1848                   #itemValue: #doFlipVertical
  1848                   itemValue: doFlipVertical
  1849                   #translateLabel: true
  1849                   translateLabel: true
  1850                 )
  1850                 )
  1851                #(#MenuItem
  1851                (MenuItem
  1852                   #activeHelpKey: #editFlipHorizontal
  1852                   activeHelpKey: editFlipHorizontal
  1853                   #label: 'Flip - Horizontal'
  1853                   label: 'Flip - Horizontal'
  1854                   #itemValue: #doFlipHorizontal
  1854                   itemValue: doFlipHorizontal
  1855                   #translateLabel: true
  1855                   translateLabel: true
  1856                 )
  1856                 )
  1857                #(#MenuItem
  1857                (MenuItem
  1858                   #label: '-'
  1858                   label: '-'
  1859                 )
  1859                 )
  1860                #(#MenuItem
  1860                (MenuItem
  1861                   #activeHelpKey: #editResize
  1861                   activeHelpKey: editResize
  1862                   #label: 'Resize...'
  1862                   label: 'Resize...'
  1863                   #itemValue: #doResizeImage
  1863                   itemValue: doResizeImage
  1864                   #translateLabel: true
  1864                   translateLabel: true
  1865                 )
  1865                 )
  1866                #(#MenuItem
  1866                (MenuItem
  1867                   #activeHelpKey: #editMagnifyImage
  1867                   activeHelpKey: editMagnifyImage
  1868                   #label: 'Magnify...'
  1868                   label: 'Magnify...'
  1869                   #itemValue: #doMagnifyImage
  1869                   itemValue: doMagnifyImage
  1870                   #translateLabel: true
  1870                   translateLabel: true
  1871                 )
  1871                 )
  1872                #(#MenuItem
  1872                (MenuItem
  1873                   #activeHelpKey: #editMagnifyImage
  1873                   activeHelpKey: editMagnifyImage
  1874                   #label: 'Magnify By...'
  1874                   label: 'Magnify By...'
  1875                   #itemValue: #doMagnifyImageBy
  1875                   itemValue: doMagnifyImageBy
  1876                   #translateLabel: true
  1876                   translateLabel: true
  1877                 )
  1877                 )
  1878                #(#MenuItem
  1878                (MenuItem
  1879                   #activeHelpKey: #editRotate
  1879                   activeHelpKey: editRotate
  1880                   #label: 'Rotate...'
  1880                   label: 'Rotate...'
  1881                   #itemValue: #doRotateImage
  1881                   itemValue: doRotateImage
  1882                   #translateLabel: true
  1882                   translateLabel: true
  1883                 )
  1883                 )
  1884                #(#MenuItem
  1884                (MenuItem
  1885                   #label: '-'
  1885                   label: '-'
  1886                 )
  1886                 )
  1887                #(#MenuItem
  1887                (MenuItem
  1888                   #label: 'Invert'
  1888                   label: 'Invert'
  1889                   #itemValue: #doNegativeImage
  1889                   itemValue: doNegativeImage
  1890                   #translateLabel: true
  1890                   translateLabel: true
  1891                 )
  1891                 )
  1892                #(#MenuItem
  1892                (MenuItem
  1893                   #label: '-'
  1893                   label: 'Brighten'
  1894                 )
  1894                   itemValue: doBrightenImage
  1895                #(#MenuItem
  1895                   translateLabel: true
  1896                   #label: 'Crop'
  1896                 )
  1897                   #translateLabel: true
  1897                (MenuItem
  1898                   #submenu: 
  1898                   label: 'Darken'
  1899                  #(#Menu
  1899                   itemValue: doDarkenImage
  1900                     #(
  1900                   translateLabel: true
  1901                      #(#MenuItem
  1901                 )
  1902                         #activeHelpKey: #cropAll
  1902                (MenuItem
  1903                         #label: 'All'
  1903                   label: '-'
  1904                         #itemValue: #doCropAll
  1904                 )
  1905                         #translateLabel: true
  1905                (MenuItem
       
  1906                   label: 'Crop'
       
  1907                   translateLabel: true
       
  1908                   submenu: 
       
  1909                  (Menu
       
  1910                     (
       
  1911                      (MenuItem
       
  1912                         activeHelpKey: cropAll
       
  1913                         label: 'All'
       
  1914                         itemValue: doCropAll
       
  1915                         translateLabel: true
  1906                       )
  1916                       )
  1907                      #(#MenuItem
  1917                      (MenuItem
  1908                         #label: '-'
  1918                         label: '-'
  1909                       )
  1919                       )
  1910                      #(#MenuItem
  1920                      (MenuItem
  1911                         #activeHelpKey: #cropLeft
  1921                         activeHelpKey: cropLeft
  1912                         #label: 'Left'
  1922                         label: 'Left'
  1913                         #itemValue: #doCropLeft
  1923                         itemValue: doCropLeft
  1914                         #translateLabel: true
  1924                         translateLabel: true
  1915                       )
  1925                       )
  1916                      #(#MenuItem
  1926                      (MenuItem
  1917                         #activeHelpKey: #cropRight
  1927                         activeHelpKey: cropRight
  1918                         #label: 'Right'
  1928                         label: 'Right'
  1919                         #itemValue: #doCropRight
  1929                         itemValue: doCropRight
  1920                         #translateLabel: true
  1930                         translateLabel: true
  1921                       )
  1931                       )
  1922                      #(#MenuItem
  1932                      (MenuItem
  1923                         #activeHelpKey: #cropTop
  1933                         activeHelpKey: cropTop
  1924                         #label: 'Top'
  1934                         label: 'Top'
  1925                         #itemValue: #doCropTop
  1935                         itemValue: doCropTop
  1926                         #translateLabel: true
  1936                         translateLabel: true
  1927                       )
  1937                       )
  1928                      #(#MenuItem
  1938                      (MenuItem
  1929                         #activeHelpKey: #cropBottom
  1939                         activeHelpKey: cropBottom
  1930                         #label: 'Bottom'
  1940                         label: 'Bottom'
  1931                         #itemValue: #doCropBottom
  1941                         itemValue: doCropBottom
  1932                         #translateLabel: true
  1942                         translateLabel: true
  1933                       )
  1943                       )
  1934                      #(#MenuItem
  1944                      (MenuItem
  1935                         #label: '-'
  1945                         label: '-'
  1936                       )
  1946                       )
  1937                      #(#MenuItem
  1947                      (MenuItem
  1938                         #activeHelpKey: #cropManual
  1948                         activeHelpKey: cropManual
  1939                         #label: 'Manual...'
  1949                         label: 'Manual...'
  1940                         #itemValue: #doCropManual
  1950                         itemValue: doCropManual
  1941                         #translateLabel: true
  1951                         translateLabel: true
  1942                       )
  1952                       )
  1943                      )
  1953                      )
  1944                     nil
  1954                     nil
  1945                     nil
  1955                     nil
  1946                   )
  1956                   )
  1947                 )
  1957                 )
  1948                #(#MenuItem
  1958                (MenuItem
  1949                   #activeHelpKey: #uncropManual
  1959                   activeHelpKey: uncropManual
  1950                   #label: 'Uncrop (Add Border)...'
  1960                   label: 'Uncrop (Add Border)...'
  1951                   #itemValue: #doUnCropManual
  1961                   itemValue: doUnCropManual
  1952                   #translateLabel: true
  1962                   translateLabel: true
  1953                 )
  1963                 )
  1954                #(#MenuItem
  1964                (MenuItem
  1955                   #activeHelpKey: #shiftManual
  1965                   activeHelpKey: shiftManual
  1956                   #label: 'Shift...'
  1966                   label: 'Shift...'
  1957                   #itemValue: #doShiftManual
  1967                   itemValue: doShiftManual
  1958                   #translateLabel: true
  1968                   translateLabel: true
  1959                 )
  1969                 )
  1960                )
  1970                )
  1961               nil
  1971               nil
  1962               nil
  1972               nil
  1963             )
  1973             )
  1964           )
  1974           )
  1965          #(#MenuItem
  1975          (MenuItem
  1966             #enabled: #imageIsLoaded
  1976             enabled: imageIsLoaded
  1967             #label: 'Mode'
  1977             label: 'Mode'
  1968             #translateLabel: true
  1978             translateLabel: true
  1969             #submenuChannel: #modeMenu
  1979             submenuChannel: modeMenu
  1970           )
  1980           )
  1971          #(#MenuItem
  1981          (MenuItem
  1972             #enabled: #imageIsLoaded
  1982             enabled: imageIsLoaded
  1973             #label: 'ColorMap'
  1983             label: 'ColorMap'
  1974             #translateLabel: true
  1984             translateLabel: true
  1975             #submenu: 
  1985             submenu: 
  1976            #(#Menu
  1986            (Menu
  1977               #(
  1987               (
  1978                #(#MenuItem
  1988                (MenuItem
  1979                   #label: 'Depth'
  1989                   label: 'Depth'
  1980                   #translateLabel: true
  1990                   translateLabel: true
  1981                   #submenu: 
  1991                   submenu: 
  1982                  #(#Menu
  1992                  (Menu
  1983                     #(
  1993                     (
  1984                      #(#MenuItem
  1994                      (MenuItem
  1985                         #activeHelpKey: #colorMap8
  1995                         activeHelpKey: colorMap8
  1986                         #label: '8-Plane'
  1996                         label: '8-Plane'
  1987                         #itemValue: #colorMapMode:
  1997                         itemValue: colorMapMode:
  1988                         #translateLabel: true
  1998                         translateLabel: true
  1989                         #argument: #depth8
  1999                         argument: depth8
  1990                         #choice: #colorMapMode
  2000                         choice: colorMapMode
  1991                         #choiceValue: #depth8
  2001                         choiceValue: depth8
  1992                       )
  2002                       )
  1993                      #(#MenuItem
  2003                      (MenuItem
  1994                         #activeHelpKey: #colorMap4
  2004                         activeHelpKey: colorMap4
  1995                         #label: '4-Plane'
  2005                         label: '4-Plane'
  1996                         #itemValue: #colorMapMode:
  2006                         itemValue: colorMapMode:
  1997                         #translateLabel: true
  2007                         translateLabel: true
  1998                         #argument: #depth4
  2008                         argument: depth4
  1999                         #choice: #colorMapMode
  2009                         choice: colorMapMode
  2000                         #choiceValue: #depth4
  2010                         choiceValue: depth4
  2001                       )
  2011                       )
  2002                      #(#MenuItem
  2012                      (MenuItem
  2003                         #activeHelpKey: #colorMap2
  2013                         activeHelpKey: colorMap2
  2004                         #label: '2-Plane'
  2014                         label: '2-Plane'
  2005                         #itemValue: #colorMapMode:
  2015                         itemValue: colorMapMode:
  2006                         #translateLabel: true
  2016                         translateLabel: true
  2007                         #argument: #depth2
  2017                         argument: depth2
  2008                         #choice: #colorMapMode
  2018                         choice: colorMapMode
  2009                         #choiceValue: #depth2
  2019                         choiceValue: depth2
  2010                       )
  2020                       )
  2011                      #(#MenuItem
  2021                      (MenuItem
  2012                         #activeHelpKey: #colorMap1
  2022                         activeHelpKey: colorMap1
  2013                         #label: '1-Plane'
  2023                         label: '1-Plane'
  2014                         #itemValue: #colorMapMode:
  2024                         itemValue: colorMapMode:
  2015                         #translateLabel: true
  2025                         translateLabel: true
  2016                         #argument: #depth1
  2026                         argument: depth1
  2017                         #choice: #colorMapMode
  2027                         choice: colorMapMode
  2018                         #choiceValue: #depth1
  2028                         choiceValue: depth1
  2019                       )
  2029                       )
  2020                      #(#MenuItem
  2030                      (MenuItem
  2021                         #label: '-'
  2031                         label: '-'
  2022                       )
  2032                       )
  2023                      #(#MenuItem
  2033                      (MenuItem
  2024                         #activeHelpKey: #colorMap8M
  2034                         activeHelpKey: colorMap8M
  2025                         #label: '8-Plane + Mask'
  2035                         label: '8-Plane + Mask'
  2026                         #itemValue: #colorMapMode:
  2036                         itemValue: colorMapMode:
  2027                         #translateLabel: true
  2037                         translateLabel: true
  2028                         #argument: #masked8
  2038                         argument: masked8
  2029                         #choice: #colorMapMode
  2039                         choice: colorMapMode
  2030                         #choiceValue: #masked8
  2040                         choiceValue: masked8
  2031                       )
  2041                       )
  2032                      #(#MenuItem
  2042                      (MenuItem
  2033                         #activeHelpKey: #colorMap4M
  2043                         activeHelpKey: colorMap4M
  2034                         #label: '4-Plane + Mask'
  2044                         label: '4-Plane + Mask'
  2035                         #itemValue: #colorMapMode:
  2045                         itemValue: colorMapMode:
  2036                         #translateLabel: true
  2046                         translateLabel: true
  2037                         #argument: #masked4
  2047                         argument: masked4
  2038                         #choice: #colorMapMode
  2048                         choice: colorMapMode
  2039                         #choiceValue: #masked4
  2049                         choiceValue: masked4
  2040                       )
  2050                       )
  2041                      #(#MenuItem
  2051                      (MenuItem
  2042                         #activeHelpKey: #colorMap2M
  2052                         activeHelpKey: colorMap2M
  2043                         #label: '2-Plane + Mask'
  2053                         label: '2-Plane + Mask'
  2044                         #itemValue: #colorMapMode:
  2054                         itemValue: colorMapMode:
  2045                         #translateLabel: true
  2055                         translateLabel: true
  2046                         #argument: #masked2
  2056                         argument: masked2
  2047                         #choice: #colorMapMode
  2057                         choice: colorMapMode
  2048                         #choiceValue: #masked2
  2058                         choiceValue: masked2
  2049                       )
  2059                       )
  2050                      #(#MenuItem
  2060                      (MenuItem
  2051                         #activeHelpKey: #colorMap1M
  2061                         activeHelpKey: colorMap1M
  2052                         #label: '1-Plane + Mask'
  2062                         label: '1-Plane + Mask'
  2053                         #itemValue: #colorMapMode:
  2063                         itemValue: colorMapMode:
  2054                         #translateLabel: true
  2064                         translateLabel: true
  2055                         #argument: #masked1
  2065                         argument: masked1
  2056                         #choice: #colorMapMode
  2066                         choice: colorMapMode
  2057                         #choiceValue: #masked1
  2067                         choiceValue: masked1
  2058                       )
  2068                       )
  2059                      )
  2069                      )
  2060                     nil
  2070                     nil
  2061                     nil
  2071                     nil
  2062                   )
  2072                   )
  2063                 )
  2073                 )
  2064                #(#MenuItem
  2074                (MenuItem
  2065                   #label: 'Colors'
  2075                   label: 'Colors'
  2066                   #translateLabel: true
  2076                   translateLabel: true
  2067                   #submenu: 
  2077                   submenu: 
  2068                  #(#Menu
  2078                  (Menu
  2069                     #(
  2079                     (
  2070                      #(#MenuItem
  2080                      (MenuItem
  2071                         #activeHelpKey: #compressColormap
  2081                         activeHelpKey: compressColormap
  2072                         #enabled: #hasColormap
  2082                         enabled: hasColormap
  2073                         #label: 'Compress Colormap'
  2083                         label: 'Compress Colormap'
  2074                         #itemValue: #compressColorMap
  2084                         itemValue: compressColorMap
  2075                         #translateLabel: true
  2085                         translateLabel: true
  2076                       )
  2086                       )
  2077                      #(#MenuItem
  2087                      (MenuItem
  2078                         #enabled: #hasColormap
  2088                         enabled: hasColormap
  2079                         #label: 'Sort Colormap'
  2089                         label: 'Sort Colormap'
  2080                         #itemValue: #sortColorMap
  2090                         itemValue: sortColorMap
  2081                         #translateLabel: true
  2091                         translateLabel: true
  2082                       )
  2092                       )
  2083                      #(#MenuItem
  2093                      (MenuItem
  2084                         #label: 'Reduce Number of Colors...'
  2094                         label: 'Reduce Number of Colors...'
  2085                         #itemValue: #reduceNumberOfColors
  2095                         itemValue: reduceNumberOfColors
  2086                         #translateLabel: true
  2096                         translateLabel: true
  2087                       )
  2097                       )
  2088                      )
  2098                      )
  2089                     nil
  2099                     nil
  2090                     nil
  2100                     nil
  2091                   )
  2101                   )
  2092                 )
  2102                 )
  2093                #(#MenuItem
  2103                (MenuItem
  2094                   #label: 'Process'
  2104                   label: 'Process'
  2095                   #translateLabel: true
  2105                   translateLabel: true
  2096                   #submenu: 
  2106                   submenu: 
  2097                  #(#Menu
  2107                  (Menu
  2098                     #(
  2108                     (
  2099                      #(#MenuItem
  2109                      (MenuItem
  2100                         #label: 'Make GrayScale'
  2110                         label: 'Make GrayScale'
  2101                         #itemValue: #makeGrayScale
  2111                         itemValue: makeGrayScale
  2102                         #translateLabel: true
  2112                         translateLabel: true
  2103                       )
  2113                       )
  2104                      #(#MenuItem
  2114                      (MenuItem
  2105                         #label: 'Make Brighter'
  2115                         label: 'Make Brighter'
  2106                         #itemValue: #makeBrighter
  2116                         itemValue: makeBrighter
  2107                         #translateLabel: true
  2117                         translateLabel: true
  2108                       )
  2118                       )
  2109                      #(#MenuItem
  2119                      (MenuItem
  2110                         #label: 'Make Darker'
  2120                         label: 'Make Darker'
  2111                         #itemValue: #makeDarker
  2121                         itemValue: makeDarker
  2112                         #translateLabel: true
  2122                         translateLabel: true
  2113                       )
  2123                       )
  2114                      #(#MenuItem
  2124                      (MenuItem
  2115                         #label: 'Make Inverse'
  2125                         label: 'Make Inverse'
  2116                         #itemValue: #makeInverse
  2126                         itemValue: makeInverse
  2117                         #translateLabel: true
  2127                         translateLabel: true
  2118                       )
  2128                       )
  2119                      #(#MenuItem
  2129                      (MenuItem
  2120                         #label: '-'
  2130                         label: '-'
  2121                       )
  2131                       )
  2122                      #(#MenuItem
  2132                      (MenuItem
  2123                         #label: 'Change HLS...'
  2133                         label: 'Change HLS...'
  2124                         #itemValue: #changeHLS
  2134                         itemValue: changeHLS
  2125                         #translateLabel: true
  2135                         translateLabel: true
  2126                       )
  2136                       )
  2127                      )
  2137                      )
  2128                     nil
  2138                     nil
  2129                     nil
  2139                     nil
  2130                   )
  2140                   )
  2131                 )
  2141                 )
  2132                #(#MenuItem
  2142                (MenuItem
  2133                   #label: 'Mask'
  2143                   label: 'Mask'
  2134                   #translateLabel: true
  2144                   translateLabel: true
  2135                   #submenu: 
  2145                   submenu: 
  2136                  #(#Menu
  2146                  (Menu
  2137                     #(
  2147                     (
  2138                      #(#MenuItem
  2148                      (MenuItem
  2139                         #activeHelpKey: #copyMask
  2149                         activeHelpKey: copyMask
  2140                         #enabled: #hasMask
  2150                         enabled: hasMask
  2141                         #label: 'Copy Mask'
  2151                         label: 'Copy Mask'
  2142                         #itemValue: #copyMask
  2152                         itemValue: copyMask
  2143                         #translateLabel: true
  2153                         translateLabel: true
  2144                       )
  2154                       )
  2145                      #(#MenuItem
  2155                      (MenuItem
  2146                         #activeHelpKey: #pasteMask
  2156                         activeHelpKey: pasteMask
  2147                         #enabled: #hasMask
  2157                         enabled: hasMask
  2148                         #label: 'Paste Mask'
  2158                         label: 'Paste Mask'
  2149                         #itemValue: #pasteMask
  2159                         itemValue: pasteMask
  2150                         #translateLabel: true
  2160                         translateLabel: true
  2151                       )
  2161                       )
  2152                      #(#MenuItem
  2162                      (MenuItem
  2153                         #label: 'Clear Masked Pixels'
  2163                         label: 'Clear Masked Pixels'
  2154                         #itemValue: #clearMaskedPixels
  2164                         itemValue: clearMaskedPixels
  2155                         #translateLabel: true
  2165                         translateLabel: true
  2156                       )
  2166                       )
  2157                      )
  2167                      )
  2158                     nil
  2168                     nil
  2159                     nil
  2169                     nil
  2160                   )
  2170                   )
  2162                )
  2172                )
  2163               nil
  2173               nil
  2164               nil
  2174               nil
  2165             )
  2175             )
  2166           )
  2176           )
  2167          #(#MenuItem
  2177          (MenuItem
  2168             #label: 'Settings'
  2178             label: 'Settings'
  2169             #translateLabel: true
  2179             translateLabel: true
  2170             #submenu: 
  2180             submenu: 
  2171            #(#Menu
  2181            (Menu
  2172               #(
  2182               (
  2173                #(#MenuItem
  2183                (MenuItem
  2174                   #activeHelpKey: #settingsGridMagnification
  2184                   activeHelpKey: settingsGridMagnification
  2175                   #label: 'Grid Magnification Limit...'
  2185                   label: 'Grid Magnification Limit...'
  2176                   #itemValue: #doChangeGridMagnification
  2186                   itemValue: doChangeGridMagnification
  2177                   #translateLabel: true
  2187                   translateLabel: true
  2178                 )
  2188                 )
  2179                )
  2189                )
  2180               nil
  2190               nil
  2181               nil
  2191               nil
  2182             )
  2192             )
  2183           )
  2193           )
  2184          #(#MenuItem
  2194          (MenuItem
  2185             #label: 'History'
  2195             label: 'History'
  2186             #translateLabel: true
  2196             translateLabel: true
  2187             #submenuChannel: #menuHistory
  2197             submenuChannel: menuHistory
  2188           )
  2198           )
  2189          #(#MenuItem
  2199          (MenuItem
  2190             #label: 'Help'
  2200             label: 'Help'
  2191             #translateLabel: true
  2201             translateLabel: true
  2192             #startGroup: #right
  2202             startGroup: right
  2193             #submenuChannel: #menuHelp
  2203             submenuChannel: menuHelp
  2194           )
  2204           )
  2195          )
  2205          )
  2196         nil
  2206         nil
  2197         nil
  2207         nil
  2198       )
  2208       )
  4316     "Created: / 30.9.1998 / 23:51:23 / cg"
  4326     "Created: / 30.9.1998 / 23:51:23 / cg"
  4317 ! !
  4327 ! !
  4318 
  4328 
  4319 !ImageEditor methodsFor:'user actions-editing'!
  4329 !ImageEditor methodsFor:'user actions-editing'!
  4320 
  4330 
       
  4331 doBrightenImage
       
  4332     imageEditView brightenImage.
       
  4333     self listOfColors removeAll.
       
  4334     self findColorMapMode.     
       
  4335     imageEditView undoImages removeLast
       
  4336 !
       
  4337 
  4321 doBrowseClass
  4338 doBrowseClass
  4322     "opens a System Browser on the resourceClass and the resourceSelector"
  4339     "opens a System Browser on the resourceClass and the resourceSelector"
  4323 
  4340 
  4324     |cls|
  4341     |cls|
  4325 
  4342 
  4443 
  4460 
  4444     "Created: / 7.9.1998 / 13:00:19 / cg"
  4461     "Created: / 7.9.1998 / 13:00:19 / cg"
  4445     "Modified: / 7.9.1998 / 14:26:52 / cg"
  4462     "Modified: / 7.9.1998 / 14:26:52 / cg"
  4446 !
  4463 !
  4447 
  4464 
       
  4465 doDarkenImage
       
  4466     imageEditView darkenImage.
       
  4467     self listOfColors removeAll.
       
  4468     self findColorMapMode.     
       
  4469     imageEditView undoImages removeLast
       
  4470 !
       
  4471 
  4448 doEditMask
  4472 doEditMask
  4449     ""
  4473     ""
  4450 
  4474 
  4451     self image mask edit
  4475     self image mask edit
  4452 !
  4476 !