1653 #(Menu |
1653 #(Menu |
1654 ( |
1654 ( |
1655 (MenuItem |
1655 (MenuItem |
1656 label: '&File' |
1656 label: '&File' |
1657 translateLabel: true |
1657 translateLabel: true |
1658 submenu: |
1658 submenuChannel: menuFile |
1659 (Menu |
1659 keepLinkedMenu: true |
1660 ( |
1660 ) |
1661 (MenuItem |
1661 (MenuItem |
1662 activeHelpKey: fileNewImageEditor |
|
1663 label: 'New ImageEditor' |
|
1664 itemValue: doNewImageEditor |
|
1665 translateLabel: true |
|
1666 ) |
|
1667 (MenuItem |
|
1668 activeHelpKey: fileNewImage |
|
1669 label: 'New...' |
|
1670 itemValue: doNewImage |
|
1671 translateLabel: true |
|
1672 ) |
|
1673 (MenuItem |
|
1674 activeHelpKey: fileNewImage |
|
1675 label: 'New from ClipBoard' |
|
1676 itemValue: doNewImageFromClipboard |
|
1677 translateLabel: true |
|
1678 ) |
|
1679 (MenuItem |
|
1680 label: '-' |
|
1681 ) |
|
1682 (MenuItem |
|
1683 activeHelpKey: fileLoadFromClass |
|
1684 label: 'Load...' |
|
1685 itemValue: doLoadFromClass |
|
1686 translateLabel: true |
|
1687 ) |
|
1688 (MenuItem |
|
1689 activeHelpKey: fileLoadFromFile |
|
1690 label: 'Load from File...' |
|
1691 itemValue: doLoadFromFile |
|
1692 translateLabel: true |
|
1693 ) |
|
1694 (MenuItem |
|
1695 activeHelpKey: fileGrabImage |
|
1696 label: 'Grab from Screen...' |
|
1697 itemValue: grabScreenImage |
|
1698 translateLabel: true |
|
1699 ) |
|
1700 (MenuItem |
|
1701 enabled: imageHasNextImage |
|
1702 label: 'Next in Sequence' |
|
1703 itemValue: nextImageInSequence |
|
1704 translateLabel: true |
|
1705 isVisible: isStandAlone |
|
1706 ) |
|
1707 (MenuItem |
|
1708 label: '-' |
|
1709 ) |
|
1710 (MenuItem |
|
1711 activeHelpKey: fileSaveMethod |
|
1712 enabled: imageIsLoadedAndClassDefined |
|
1713 label: 'Save' |
|
1714 itemValue: doSaveMethod |
|
1715 translateLabel: true |
|
1716 ) |
|
1717 (MenuItem |
|
1718 activeHelpKey: fileSaveMethodAs |
|
1719 enabled: imageIsLoaded |
|
1720 label: 'Save As...' |
|
1721 itemValue: doSaveMethodAs |
|
1722 translateLabel: true |
|
1723 ) |
|
1724 (MenuItem |
|
1725 activeHelpKey: fileSaveAs |
|
1726 enabled: imageIsLoaded |
|
1727 label: 'Save to File...' |
|
1728 itemValue: doSaveImageFileAs |
|
1729 translateLabel: true |
|
1730 ) |
|
1731 (MenuItem |
|
1732 activeHelpKey: fileSaveMaskAs |
|
1733 enabled: imageIsLoaded |
|
1734 label: 'Save Mask to File...' |
|
1735 itemValue: doSaveImageMaskFileAs |
|
1736 translateLabel: true |
|
1737 ) |
|
1738 (MenuItem |
|
1739 activeHelpKey: fileSaveButtonImageAs |
|
1740 enabled: imageIsLoaded |
|
1741 label: 'Save as Button to File...' |
|
1742 itemValue: doSaveButtonImageToFileAs |
|
1743 translateLabel: true |
|
1744 ) |
|
1745 (MenuItem |
|
1746 enabled: imageIsLoaded |
|
1747 label: 'Copy to Clipboard' |
|
1748 itemValue: doCopyImageToClipboard |
|
1749 translateLabel: true |
|
1750 ) |
|
1751 (MenuItem |
|
1752 label: '-' |
|
1753 ) |
|
1754 (MenuItem |
|
1755 activeHelpKey: fileShowStoreString |
|
1756 enabled: imageIsLoaded |
|
1757 label: 'Show storeString' |
|
1758 itemValue: doShowStoreString |
|
1759 translateLabel: true |
|
1760 ) |
|
1761 (MenuItem |
|
1762 activeHelpKey: fileEditMask |
|
1763 enabled: imageIsLoaded |
|
1764 label: 'Edit Mask' |
|
1765 itemValue: doEditMask |
|
1766 translateLabel: true |
|
1767 ) |
|
1768 (MenuItem |
|
1769 label: '-' |
|
1770 ) |
|
1771 (MenuItem |
|
1772 activeHelpKey: filePrint |
|
1773 enabled: imageIsLoaded |
|
1774 label: 'Print' |
|
1775 itemValue: doPrint |
|
1776 translateLabel: true |
|
1777 ) |
|
1778 (MenuItem |
|
1779 label: '-' |
|
1780 isVisible: isStandAlone |
|
1781 ) |
|
1782 (MenuItem |
|
1783 activeHelpKey: fileBrowseClass |
|
1784 enabled: hasClassDefined |
|
1785 label: 'Browse Class' |
|
1786 itemValue: doBrowseClass |
|
1787 translateLabel: true |
|
1788 isVisible: isStandAlone |
|
1789 ) |
|
1790 (MenuItem |
|
1791 label: 'Inspect Image' |
|
1792 itemValue: doInspectImage |
|
1793 translateLabel: true |
|
1794 isVisible: isStandAlone |
|
1795 ) |
|
1796 (MenuItem |
|
1797 label: '-' |
|
1798 isVisible: isStandAlone |
|
1799 ) |
|
1800 (MenuItem |
|
1801 activeHelpKey: fileExit |
|
1802 label: 'Exit' |
|
1803 itemValue: closeRequest |
|
1804 translateLabel: true |
|
1805 isVisible: isStandAlone |
|
1806 ) |
|
1807 ) |
|
1808 nil |
|
1809 nil |
|
1810 ) |
|
1811 ) |
|
1812 (MenuItem |
|
1813 enabled: imageIsLoaded |
|
1814 label: 'Edit' |
1662 label: 'Edit' |
1815 translateLabel: true |
1663 translateLabel: true |
1816 submenu: |
1664 submenuChannel: menuEdit |
1817 (Menu |
1665 keepLinkedMenu: true |
1818 ( |
|
1819 (MenuItem |
|
1820 activeHelpKey: editUndo |
|
1821 enabled: canUndoHolder |
|
1822 label: 'Undo' |
|
1823 itemValue: doUndo |
|
1824 translateLabel: true |
|
1825 ) |
|
1826 (MenuItem |
|
1827 label: '-' |
|
1828 ) |
|
1829 (MenuItem |
|
1830 activeHelpKey: editFlipVertical |
|
1831 label: 'Flip - Vertical' |
|
1832 itemValue: doFlipVertical |
|
1833 translateLabel: true |
|
1834 ) |
|
1835 (MenuItem |
|
1836 activeHelpKey: editFlipHorizontal |
|
1837 label: 'Flip - Horizontal' |
|
1838 itemValue: doFlipHorizontal |
|
1839 translateLabel: true |
|
1840 ) |
|
1841 (MenuItem |
|
1842 label: '-' |
|
1843 ) |
|
1844 (MenuItem |
|
1845 activeHelpKey: editResize |
|
1846 label: 'Resize...' |
|
1847 itemValue: doResizeImage |
|
1848 translateLabel: true |
|
1849 ) |
|
1850 (MenuItem |
|
1851 activeHelpKey: editMagnifyImage |
|
1852 label: 'Magnify...' |
|
1853 itemValue: doMagnifyImage |
|
1854 translateLabel: true |
|
1855 ) |
|
1856 (MenuItem |
|
1857 activeHelpKey: editMagnifyImage |
|
1858 label: 'Magnify By...' |
|
1859 itemValue: doMagnifyImageBy |
|
1860 translateLabel: true |
|
1861 ) |
|
1862 (MenuItem |
|
1863 activeHelpKey: editRotate |
|
1864 label: 'Rotate...' |
|
1865 itemValue: doRotateImage |
|
1866 translateLabel: true |
|
1867 ) |
|
1868 (MenuItem |
|
1869 label: '-' |
|
1870 ) |
|
1871 (MenuItem |
|
1872 label: 'Invert' |
|
1873 itemValue: doNegativeImage |
|
1874 translateLabel: true |
|
1875 ) |
|
1876 (MenuItem |
|
1877 label: 'Brighten' |
|
1878 itemValue: doBrightenImage |
|
1879 translateLabel: true |
|
1880 ) |
|
1881 (MenuItem |
|
1882 label: 'Darken' |
|
1883 itemValue: doDarkenImage |
|
1884 translateLabel: true |
|
1885 ) |
|
1886 (MenuItem |
|
1887 label: '-' |
|
1888 ) |
|
1889 (MenuItem |
|
1890 label: 'Crop' |
|
1891 translateLabel: true |
|
1892 submenu: |
|
1893 (Menu |
|
1894 ( |
|
1895 (MenuItem |
|
1896 activeHelpKey: cropManual |
|
1897 label: 'Manual...' |
|
1898 itemValue: doCropManual |
|
1899 translateLabel: true |
|
1900 ) |
|
1901 (MenuItem |
|
1902 label: '-' |
|
1903 ) |
|
1904 (MenuItem |
|
1905 activeHelpKey: cropAll |
|
1906 label: 'All' |
|
1907 itemValue: doCropAll |
|
1908 translateLabel: true |
|
1909 ) |
|
1910 (MenuItem |
|
1911 label: '-' |
|
1912 ) |
|
1913 (MenuItem |
|
1914 activeHelpKey: cropLeft |
|
1915 label: 'Left' |
|
1916 itemValue: doCropLeft |
|
1917 translateLabel: true |
|
1918 ) |
|
1919 (MenuItem |
|
1920 activeHelpKey: cropRight |
|
1921 label: 'Right' |
|
1922 itemValue: doCropRight |
|
1923 translateLabel: true |
|
1924 ) |
|
1925 (MenuItem |
|
1926 activeHelpKey: cropTop |
|
1927 label: 'Top' |
|
1928 itemValue: doCropTop |
|
1929 translateLabel: true |
|
1930 ) |
|
1931 (MenuItem |
|
1932 activeHelpKey: cropBottom |
|
1933 label: 'Bottom' |
|
1934 itemValue: doCropBottom |
|
1935 translateLabel: true |
|
1936 ) |
|
1937 ) |
|
1938 nil |
|
1939 nil |
|
1940 ) |
|
1941 ) |
|
1942 (MenuItem |
|
1943 activeHelpKey: uncropManual |
|
1944 label: 'Uncrop (Add Border)...' |
|
1945 itemValue: doUnCropManual |
|
1946 translateLabel: true |
|
1947 ) |
|
1948 (MenuItem |
|
1949 activeHelpKey: shiftManual |
|
1950 label: 'Shift...' |
|
1951 itemValue: doShiftManual |
|
1952 translateLabel: true |
|
1953 ) |
|
1954 ) |
|
1955 nil |
|
1956 nil |
|
1957 ) |
|
1958 ) |
1666 ) |
1959 (MenuItem |
1667 (MenuItem |
1960 enabled: imageIsLoaded |
1668 enabled: imageIsLoaded |
1961 label: 'Mode' |
1669 label: 'Mode' |
1962 translateLabel: true |
1670 translateLabel: true |
2291 nil |
1999 nil |
2292 nil |
2000 nil |
2293 ) |
2001 ) |
2294 ! |
2002 ! |
2295 |
2003 |
|
2004 menuEdit |
|
2005 "This resource specification was automatically generated |
|
2006 by the MenuEditor of ST/X." |
|
2007 |
|
2008 "Do not manually edit this!! If it is corrupted, |
|
2009 the MenuEditor may not be able to read the specification." |
|
2010 |
|
2011 " |
|
2012 MenuEditor new openOnClass:ImageEditor andSelector:#menuEdit |
|
2013 (Menu new fromLiteralArrayEncoding:(ImageEditor menuEdit)) startUp |
|
2014 " |
|
2015 |
|
2016 <resource: #menu> |
|
2017 |
|
2018 ^ |
|
2019 #(Menu |
|
2020 ( |
|
2021 (MenuItem |
|
2022 activeHelpKey: editUndo |
|
2023 enabled: canUndoHolder |
|
2024 label: 'Undo' |
|
2025 itemValue: doUndo |
|
2026 translateLabel: true |
|
2027 ) |
|
2028 (MenuItem |
|
2029 label: '-' |
|
2030 ) |
|
2031 (MenuItem |
|
2032 activeHelpKey: editResize |
|
2033 label: 'Resize...' |
|
2034 itemValue: doResizeImage |
|
2035 translateLabel: true |
|
2036 ) |
|
2037 (MenuItem |
|
2038 activeHelpKey: editMagnifyImage |
|
2039 label: 'Magnify...' |
|
2040 itemValue: doMagnifyImage |
|
2041 translateLabel: true |
|
2042 ) |
|
2043 (MenuItem |
|
2044 activeHelpKey: editMagnifyImage |
|
2045 label: 'Magnify By...' |
|
2046 itemValue: doMagnifyImageBy |
|
2047 translateLabel: true |
|
2048 ) |
|
2049 (MenuItem |
|
2050 activeHelpKey: editRotate |
|
2051 label: 'Rotate...' |
|
2052 itemValue: doRotateImage |
|
2053 translateLabel: true |
|
2054 ) |
|
2055 (MenuItem |
|
2056 label: 'Flip' |
|
2057 translateLabel: true |
|
2058 submenu: |
|
2059 (Menu |
|
2060 ( |
|
2061 (MenuItem |
|
2062 activeHelpKey: editFlipVertical |
|
2063 label: 'Flip - Vertical' |
|
2064 itemValue: doFlipVertical |
|
2065 translateLabel: true |
|
2066 ) |
|
2067 (MenuItem |
|
2068 activeHelpKey: editFlipHorizontal |
|
2069 label: 'Flip - Horizontal' |
|
2070 itemValue: doFlipHorizontal |
|
2071 translateLabel: true |
|
2072 ) |
|
2073 ) |
|
2074 nil |
|
2075 nil |
|
2076 ) |
|
2077 ) |
|
2078 (MenuItem |
|
2079 label: '-' |
|
2080 ) |
|
2081 (MenuItem |
|
2082 label: 'Invert' |
|
2083 itemValue: doNegativeImage |
|
2084 translateLabel: true |
|
2085 ) |
|
2086 (MenuItem |
|
2087 label: 'Brighten' |
|
2088 itemValue: doBrightenImage |
|
2089 translateLabel: true |
|
2090 ) |
|
2091 (MenuItem |
|
2092 label: 'Darken' |
|
2093 itemValue: doDarkenImage |
|
2094 translateLabel: true |
|
2095 ) |
|
2096 (MenuItem |
|
2097 label: '-' |
|
2098 ) |
|
2099 (MenuItem |
|
2100 label: 'Crop' |
|
2101 translateLabel: true |
|
2102 submenu: |
|
2103 (Menu |
|
2104 ( |
|
2105 (MenuItem |
|
2106 activeHelpKey: cropManual |
|
2107 label: 'Manual...' |
|
2108 itemValue: doCropManual |
|
2109 translateLabel: true |
|
2110 ) |
|
2111 (MenuItem |
|
2112 label: '-' |
|
2113 ) |
|
2114 (MenuItem |
|
2115 activeHelpKey: cropAll |
|
2116 label: 'All' |
|
2117 itemValue: doCropAll |
|
2118 translateLabel: true |
|
2119 ) |
|
2120 (MenuItem |
|
2121 label: '-' |
|
2122 ) |
|
2123 (MenuItem |
|
2124 activeHelpKey: cropLeft |
|
2125 label: 'Left' |
|
2126 itemValue: doCropLeft |
|
2127 translateLabel: true |
|
2128 ) |
|
2129 (MenuItem |
|
2130 activeHelpKey: cropRight |
|
2131 label: 'Right' |
|
2132 itemValue: doCropRight |
|
2133 translateLabel: true |
|
2134 ) |
|
2135 (MenuItem |
|
2136 activeHelpKey: cropTop |
|
2137 label: 'Top' |
|
2138 itemValue: doCropTop |
|
2139 translateLabel: true |
|
2140 ) |
|
2141 (MenuItem |
|
2142 activeHelpKey: cropBottom |
|
2143 label: 'Bottom' |
|
2144 itemValue: doCropBottom |
|
2145 translateLabel: true |
|
2146 ) |
|
2147 ) |
|
2148 nil |
|
2149 nil |
|
2150 ) |
|
2151 ) |
|
2152 (MenuItem |
|
2153 activeHelpKey: uncropManual |
|
2154 label: 'Uncrop (Add Border)...' |
|
2155 itemValue: doUnCropManual |
|
2156 translateLabel: true |
|
2157 ) |
|
2158 (MenuItem |
|
2159 activeHelpKey: shiftManual |
|
2160 label: 'Shift...' |
|
2161 itemValue: doShiftManual |
|
2162 translateLabel: true |
|
2163 ) |
|
2164 (MenuItem |
|
2165 label: '-' |
|
2166 ) |
|
2167 (MenuItem |
|
2168 label: 'Text...' |
|
2169 itemValue: doInsertTextFromUser |
|
2170 translateLabel: true |
|
2171 ) |
|
2172 ) |
|
2173 nil |
|
2174 nil |
|
2175 ) |
|
2176 |
|
2177 "Modified: / 11-11-2007 / 12:19:32 / cg" |
|
2178 ! |
|
2179 |
|
2180 menuFile |
|
2181 "This resource specification was automatically generated |
|
2182 by the MenuEditor of ST/X." |
|
2183 |
|
2184 "Do not manually edit this!! If it is corrupted, |
|
2185 the MenuEditor may not be able to read the specification." |
|
2186 |
|
2187 " |
|
2188 MenuEditor new openOnClass:ImageEditor andSelector:#menuFile |
|
2189 (Menu new fromLiteralArrayEncoding:(ImageEditor menuFile)) startUp |
|
2190 " |
|
2191 |
|
2192 <resource: #menu> |
|
2193 |
|
2194 ^ |
|
2195 #(Menu |
|
2196 ( |
|
2197 (MenuItem |
|
2198 activeHelpKey: fileNewImageEditor |
|
2199 label: 'New ImageEditor' |
|
2200 itemValue: doNewImageEditor |
|
2201 translateLabel: true |
|
2202 ) |
|
2203 (MenuItem |
|
2204 activeHelpKey: fileNewImage |
|
2205 label: 'New...' |
|
2206 itemValue: doNewImage |
|
2207 translateLabel: true |
|
2208 ) |
|
2209 (MenuItem |
|
2210 activeHelpKey: fileNewImage |
|
2211 label: 'New from ClipBoard' |
|
2212 itemValue: doNewImageFromClipboard |
|
2213 translateLabel: true |
|
2214 ) |
|
2215 (MenuItem |
|
2216 label: '-' |
|
2217 ) |
|
2218 (MenuItem |
|
2219 activeHelpKey: fileLoadFromClass |
|
2220 label: 'Load...' |
|
2221 itemValue: doLoadFromClass |
|
2222 translateLabel: true |
|
2223 ) |
|
2224 (MenuItem |
|
2225 activeHelpKey: fileLoadFromFile |
|
2226 label: 'Load from File...' |
|
2227 itemValue: doLoadFromFile |
|
2228 translateLabel: true |
|
2229 ) |
|
2230 (MenuItem |
|
2231 activeHelpKey: fileGrabImage |
|
2232 label: 'Grab from Screen...' |
|
2233 itemValue: grabScreenImage |
|
2234 translateLabel: true |
|
2235 ) |
|
2236 (MenuItem |
|
2237 enabled: imageHasNextImage |
|
2238 label: 'Next in Sequence' |
|
2239 itemValue: nextImageInSequence |
|
2240 translateLabel: true |
|
2241 isVisible: isStandAlone |
|
2242 ) |
|
2243 (MenuItem |
|
2244 label: '-' |
|
2245 ) |
|
2246 (MenuItem |
|
2247 activeHelpKey: fileSaveMethod |
|
2248 enabled: imageIsLoadedAndClassDefined |
|
2249 label: 'Save' |
|
2250 itemValue: doSaveMethod |
|
2251 translateLabel: true |
|
2252 ) |
|
2253 (MenuItem |
|
2254 activeHelpKey: fileSaveMethodAs |
|
2255 enabled: imageIsLoaded |
|
2256 label: 'Save As...' |
|
2257 itemValue: doSaveMethodAs |
|
2258 translateLabel: true |
|
2259 ) |
|
2260 (MenuItem |
|
2261 activeHelpKey: fileSaveAs |
|
2262 enabled: imageIsLoaded |
|
2263 label: 'Save to File...' |
|
2264 itemValue: doSaveImageFileAs |
|
2265 translateLabel: true |
|
2266 ) |
|
2267 (MenuItem |
|
2268 activeHelpKey: fileSaveMaskAs |
|
2269 enabled: imageIsLoaded |
|
2270 label: 'Save Mask to File...' |
|
2271 itemValue: doSaveImageMaskFileAs |
|
2272 translateLabel: true |
|
2273 ) |
|
2274 (MenuItem |
|
2275 activeHelpKey: fileSaveButtonImageAs |
|
2276 enabled: imageIsLoaded |
|
2277 label: 'Save as Button to File...' |
|
2278 itemValue: doSaveButtonImageToFileAs |
|
2279 translateLabel: true |
|
2280 ) |
|
2281 (MenuItem |
|
2282 enabled: imageIsLoaded |
|
2283 label: 'Copy to Clipboard' |
|
2284 itemValue: doCopyImageToClipboard |
|
2285 translateLabel: true |
|
2286 ) |
|
2287 (MenuItem |
|
2288 label: '-' |
|
2289 ) |
|
2290 (MenuItem |
|
2291 activeHelpKey: fileShowStoreString |
|
2292 enabled: imageIsLoaded |
|
2293 label: 'Show storeString' |
|
2294 itemValue: doShowStoreString |
|
2295 translateLabel: true |
|
2296 ) |
|
2297 (MenuItem |
|
2298 activeHelpKey: fileEditMask |
|
2299 enabled: imageIsLoaded |
|
2300 label: 'Edit Mask' |
|
2301 itemValue: doEditMask |
|
2302 translateLabel: true |
|
2303 ) |
|
2304 (MenuItem |
|
2305 label: '-' |
|
2306 ) |
|
2307 (MenuItem |
|
2308 activeHelpKey: filePrint |
|
2309 enabled: imageIsLoaded |
|
2310 label: 'Print' |
|
2311 itemValue: doPrint |
|
2312 translateLabel: true |
|
2313 ) |
|
2314 (MenuItem |
|
2315 label: '-' |
|
2316 isVisible: isStandAlone |
|
2317 ) |
|
2318 (MenuItem |
|
2319 activeHelpKey: fileBrowseClass |
|
2320 enabled: hasClassDefined |
|
2321 label: 'Browse Class' |
|
2322 itemValue: doBrowseClass |
|
2323 translateLabel: true |
|
2324 isVisible: isStandAlone |
|
2325 ) |
|
2326 (MenuItem |
|
2327 label: 'Inspect Image' |
|
2328 itemValue: doInspectImage |
|
2329 translateLabel: true |
|
2330 isVisible: isStandAlone |
|
2331 ) |
|
2332 (MenuItem |
|
2333 label: '-' |
|
2334 isVisible: isStandAlone |
|
2335 ) |
|
2336 (MenuItem |
|
2337 activeHelpKey: fileExit |
|
2338 label: 'Exit' |
|
2339 itemValue: closeRequest |
|
2340 translateLabel: true |
|
2341 isVisible: isStandAlone |
|
2342 ) |
|
2343 ) |
|
2344 nil |
|
2345 nil |
|
2346 ) |
|
2347 ! |
|
2348 |
2296 menuMouseButtonColors |
2349 menuMouseButtonColors |
2297 "This resource specification was automatically generated |
2350 "This resource specification was automatically generated |
2298 by the MenuEditor of ST/X." |
2351 by the MenuEditor of ST/X." |
2299 |
2352 |
2300 "Do not manually edit this!! If it is corrupted, |
2353 "Do not manually edit this!! If it is corrupted, |