Mercurial Mercurial > hg > stx-libtool2 / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ImageEditor.st
changeset 2792 f056aa5d29a7
parent 2791 7d01ac3a20e7
child 2796 f589f0efbaaf
equal deleted inserted replaced
2791:7d01ac3a20e7 2792:f056aa5d29a7 
  1589                              (ArrowButtonSpec
 
  1589                              (ArrowButtonSpec
 
  1590                                 name: 'magnifyDownButton'
 
  1590                                 name: 'magnifyDownButton'
 
  1591                                 layout: (LayoutFrame -80 1 -22 1 -58 1 0 1)
 
  1591                                 layout: (LayoutFrame -80 1 -22 1 -58 1 0 1)
 
  1592                                 activeHelpKey: magnifyImageDown
 
  1592                                 activeHelpKey: magnifyImageDown
 
  1593                                 model: doMagnifyDown
 
  1593                                 model: doMagnifyDown
 
  1594                                 enableChannel: imageIsLoaded
 
  1594                                 enableChannel: imageIsLoadedHolder
 
  1595                                 isTriggerOnDown: true
 
  1595                                 isTriggerOnDown: true
 
  1596                                 direction: left
 
  1596                                 direction: left
 
  1597                               )
 
  1597                               )
 
  1598                              (ArrowButtonSpec
 
  1598                              (ArrowButtonSpec
 
  1599                                 name: 'magnifyUpButton'
 
  1599                                 name: 'magnifyUpButton'
 
  1600                                 layout: (LayoutFrame -24 1 -22 1 -2 1 0 1)
 
  1600                                 layout: (LayoutFrame -24 1 -22 1 -2 1 0 1)
 
  1601                                 activeHelpKey: magnifyImageUp
 
  1601                                 activeHelpKey: magnifyImageUp
 
  1602                                 model: doMagnifyUp
 
  1602                                 model: doMagnifyUp
 
  1603                                 enableChannel: imageIsLoaded
 
  1603                                 enableChannel: imageIsLoadedHolder
 
  1604                                 isTriggerOnDown: true
 
  1604                                 isTriggerOnDown: true
 
  1605                                 direction: right
 
  1605                                 direction: right
 
  1606                               )
 
  1606                               )
 
  1607                              (InputFieldSpec
 
  1607                              (InputFieldSpec
 
  1608                                 name: 'magnificationInputField'
 
  1608                                 name: 'magnificationInputField'
 
  1609                                 layout: (LayoutFrame -57 1 -22 1 -26 1 0 1)
 
  1609                                 layout: (LayoutFrame -57 1 -22 1 -26 1 0 1)
 
  1610                                 activeHelpKey: magnificationNumber
 
  1610                                 activeHelpKey: magnificationNumber
 
  1611                                 enableChannel: imageIsLoaded
 
  1611                                 enableChannel: imageIsLoadedHolder
 
  1612                                 model: magnificationHolder
 
  1612                                 model: magnificationHolder
 
  1613                                 type: numberInRange
 
  1613                                 type: numberInRange
 
  1614                                 acceptOnReturn: true
 
  1614                                 acceptOnReturn: true
 
  1615                                 acceptOnTab: true
 
  1615                                 acceptOnTab: true
 
  1616                                 numChars: 2
 
  1616                                 numChars: 2
 
  1639             )
 
  1639             )
 
  1640            )
 
  1640            )
 
  1641          
  1641          
  1642         )
 
  1642         )
 
  1643       )
 
  1643       )
 
       
  1644 
       
  1645     "Modified: / 04-07-2010 / 10:18:33 / cg"
 
  1644 ! !
 
  1646 ! !
 
  1645 
  1647 
  1646 !ImageEditor class methodsFor:'menu specs'!
 
  1648 !ImageEditor class methodsFor:'menu specs'!
 
  1647 
  1649 
  1648 colorMapMenu
 
  1650 colorMapMenu
 
  1661 
  1663 
  1662     ^ 
  1664     ^ 
  1663      #(Menu
 
  1665      #(Menu
 
  1664         (
 
  1666         (
 
  1665          (MenuItem
 
  1667          (MenuItem
 
  1666             enabled: hasColormap
 
  1668             enabled: hasColormapHolder
 
  1667             label: 'Add Color'
 
  1669             label: 'Add Color'
 
  1668             itemValue: addColorToColormap
 
  1670             itemValue: addColorToColormap
 
  1669             translateLabel: true
 
  1671             translateLabel: true
 
  1670           )
 
  1672           )
 
  1671          (MenuItem
 
  1673          (MenuItem
 
  1672             enabled: hasColormap
 
  1674             enabled: hasColormapHolder
 
  1673             label: 'Pick and Add Color...'
 
  1675             label: 'Pick and Add Color...'
 
  1674             itemValue: pickAndAddColorToColormap
 
  1676             itemValue: pickAndAddColorToColormap
 
  1675             translateLabel: true
 
  1677             translateLabel: true
 
  1676           )
 
  1678           )
 
  1677          (MenuItem
 
  1679          (MenuItem
 
  1683             itemValue: cutColorFromColormap
 
  1685             itemValue: cutColorFromColormap
 
  1684             translateLabel: true
 
  1686             translateLabel: true
 
  1685             isVisible: false
 
  1687             isVisible: false
 
  1686           )
 
  1688           )
 
  1687          (MenuItem
 
  1689          (MenuItem
 
  1688             enabled: hasColorSelected
 
  1690             enabled: hasColorSelectedHolder
 
  1689             label: 'Copy Color'
 
  1691             label: 'Copy Color'
 
  1690             itemValue: copyColorFromColormap
 
  1692             itemValue: copyColorFromColormap
 
  1691             translateLabel: true
 
  1693             translateLabel: true
 
  1692           )
 
  1694           )
 
  1693          (MenuItem
 
  1695          (MenuItem
 
  1733           )
 
  1735           )
 
  1734          (MenuItem
 
  1736          (MenuItem
 
  1735             label: 'Inspect Color'
 
  1737             label: 'Inspect Color'
 
  1736             itemValue: inspectColor
 
  1738             itemValue: inspectColor
 
  1737             translateLabel: true
 
  1739             translateLabel: true
 
  1738             enabled: hasColorSelected
 
  1740             enabled: hasColorSelectedHolder
 
  1739           )
 
  1741           )
 
  1740          (MenuItem
 
  1742          (MenuItem
 
  1741             enabled: hasColormap
 
  1743             enabled: hasColormapHolder
 
  1742             label: 'Inspect Colormap'
 
  1744             label: 'Inspect Colormap'
 
  1743             itemValue: inspectColormap
 
  1745             itemValue: inspectColormap
 
  1744             translateLabel: true
 
  1746             translateLabel: true
 
  1745           )
 
  1747           )
 
  1746          )
 
  1748          )
 
  1747         nil
 
  1749         nil
 
  1748         nil
 
  1750         nil
 
  1749       )
 
  1751       )
 
  1750 
  1752 
  1751     "Modified: / 27-10-2007 / 10:24:00 / cg"
 
  1753     "Modified: / 04-07-2010 / 10:13:57 / cg"
 
  1752 !
 
  1754 !
 
  1753 
  1755 
  1754 menu
 
  1756 menu
 
  1755     "This resource specification was automatically generated
 
  1757     "This resource specification was automatically generated
 
  1756      by the MenuEditor of ST/X."
 
  1758      by the MenuEditor of ST/X."
 
  1976               nil
 
  1978               nil
 
  1977               nil
 
  1979               nil
 
  1978             )
 
  1980             )
 
  1979           )
 
  1981           )
 
  1980          (MenuItem
 
  1982          (MenuItem
 
  1981             enabled: imageIsLoaded
 
  1983             enabled: imageIsLoadedHolder
 
  1982             label: 'ColorMap'
 
  1984             label: 'ColorMap'
 
  1983             translateLabel: true
 
  1985             translateLabel: true
 
  1984             submenu: 
  1986             submenu: 
  1985            (Menu
 
  1987            (Menu
 
  1986               (
 
  1988               (
 
  1987                (MenuItem
 
  1989                (MenuItem
 
  1988                   activeHelpKey: compressColormap
 
  1990                   activeHelpKey: compressColormap
 
  1989                   enabled: hasColormap
 
  1991                   enabled: hasColormapHolder
 
  1990                   label: 'Compress Colormap'
 
  1992                   label: 'Compress Colormap'
 
  1991                   itemValue: menu_compressColorMap
 
  1993                   itemValue: menu_compressColorMap
 
  1992                   translateLabel: true
 
  1994                   translateLabel: true
 
  1993                 )
 
  1995                 )
 
  1994                (MenuItem
 
  1996                (MenuItem
 
  1995                   enabled: hasColormap
 
  1997                   enabled: hasColormapHolder
 
  1996                   label: 'Sort Colormap'
 
  1998                   label: 'Sort Colormap'
 
  1997                   itemValue: menu_sortColorMap
 
  1999                   itemValue: menu_sortColorMap
 
  1998                   translateLabel: true
 
  2000                   translateLabel: true
 
  1999                 )
 
  2001                 )
 
  2000                (MenuItem
 
  2002                (MenuItem
 
  2014                 )
 
  2016                 )
 
  2015                (MenuItem
 
  2017                (MenuItem
 
  2016                   label: '-'
 
  2018                   label: '-'
 
  2017                 )
 
  2019                 )
 
  2018                (MenuItem
 
  2020                (MenuItem
 
  2019                   enabled: imageIsLoaded
 
  2021                   enabled: imageIsLoadedHolder
 
  2020                   label: 'Brighten'
 
  2022                   label: 'Brighten'
 
  2021                   itemValue: doBrightenImage
 
  2023                   itemValue: doBrightenImage
 
  2022                   translateLabel: true
 
  2024                   translateLabel: true
 
  2023                 )
 
  2025                 )
 
  2024                (MenuItem
 
  2026                (MenuItem
 
  2025                   enabled: imageIsLoaded
 
  2027                   enabled: imageIsLoadedHolder
 
  2026                   label: 'Darken'
 
  2028                   label: 'Darken'
 
  2027                   itemValue: doDarkenImage
 
  2029                   itemValue: doDarkenImage
 
  2028                   translateLabel: true
 
  2030                   translateLabel: true
 
  2029                 )
 
  2031                 )
 
  2030                (MenuItem
 
  2032                (MenuItem
 
  2031                   enabled: imageIsLoaded
 
  2033                   enabled: imageIsLoadedHolder
 
  2032                   label: 'Invert'
 
  2034                   label: 'Invert'
 
  2033                   itemValue: doNegativeImage
 
  2035                   itemValue: doNegativeImage
 
  2034                   translateLabel: true
 
  2036                   translateLabel: true
 
  2035                 )
 
  2037                 )
 
  2036                )
 
  2038                )
 
  2037               nil
 
  2039               nil
 
  2038               nil
 
  2040               nil
 
  2039             )
 
  2041             )
 
  2040           )
 
  2042           )
 
  2041          (MenuItem
 
  2043          (MenuItem
 
  2042             enabled: imageIsLoaded
 
  2044             enabled: imageIsLoadedHolder
 
  2043             label: 'Process'
 
  2045             label: 'Process'
 
  2044             translateLabel: true
 
  2046             translateLabel: true
 
  2045             submenu: 
  2047             submenu: 
  2046            (Menu
 
  2048            (Menu
 
  2047               (
 
  2049               (
 
  2089               nil
 
  2091               nil
 
  2090               nil
 
  2092               nil
 
  2091             )
 
  2093             )
 
  2092           )
 
  2094           )
 
  2093          (MenuItem
 
  2095          (MenuItem
 
  2094             enabled: imageIsLoaded
 
  2096             enabled: imageIsLoadedHolder
 
  2095             label: 'Mask'
 
  2097             label: 'Mask'
 
  2096             translateLabel: true
 
  2098             translateLabel: true
 
  2097             submenu: 
  2099             submenu: 
  2098            (Menu
 
  2100            (Menu
 
  2099               (
 
  2101               (
 
  2130           )
 
  2132           )
 
  2131          )
 
  2133          )
 
  2132         nil
 
  2134         nil
 
  2133         nil
 
  2135         nil
 
  2134       )
 
  2136       )
 
       
  2137 
       
  2138     "Modified: / 04-07-2010 / 10:16:23 / cg"
 
  2135 !
 
  2139 !
 
  2136 
  2140 
  2137 menuEdit
 
  2141 menuEdit
 
  2138     "This resource specification was automatically generated
 
  2142     "This resource specification was automatically generated
 
  2139      by the MenuEditor of ST/X."
 
  2143      by the MenuEditor of ST/X."
 
  2195             label: '3D Projection...'
 
  2199             label: '3D Projection...'
 
  2196             itemValue: do3DProjection
 
  2200             itemValue: do3DProjection
 
  2197             translateLabel: true
 
  2201             translateLabel: true
 
  2198           )
 
  2202           )
 
  2199          (MenuItem
 
  2203          (MenuItem
 
  2200             enabled: imageIsLoaded
 
  2204             enabled: imageIsLoadedHolder
 
  2201             label: 'Flip'
 
  2205             label: 'Flip'
 
  2202             translateLabel: true
 
  2206             translateLabel: true
 
  2203             submenu: 
  2207             submenu: 
  2204            (Menu
 
  2208            (Menu
 
  2205               (
 
  2209               (
 
  2206                (MenuItem
 
  2210                (MenuItem
 
  2207                   activeHelpKey: editFlipVertical
 
  2211                   activeHelpKey: editFlipVertical
 
  2208                   label: 'Flip - Vertical'
 
  2212                   label: 'Flip - Vertical'
 
  2209                   itemValue: doFlipVertical
 
  2213                   itemValue: doFlipVertical
 
  2210                   translateLabel: true
 
  2214                   translateLabel: true
 
  2211                   enabled: imageIsLoaded
 
  2215                   enabled: imageIsLoadedHolder
 
  2212                 )
 
  2216                 )
 
  2213                (MenuItem
 
  2217                (MenuItem
 
  2214                   activeHelpKey: editFlipHorizontal
 
  2218                   activeHelpKey: editFlipHorizontal
 
  2215                   label: 'Flip - Horizontal'
 
  2219                   label: 'Flip - Horizontal'
 
  2216                   itemValue: doFlipHorizontal
 
  2220                   itemValue: doFlipHorizontal
 
  2217                   translateLabel: true
 
  2221                   translateLabel: true
 
  2218                   enabled: imageIsLoaded
 
  2222                   enabled: imageIsLoadedHolder
 
  2219                 )
 
  2223                 )
 
  2220                )
 
  2224                )
 
  2221               nil
 
  2225               nil
 
  2222               nil
 
  2226               nil
 
  2223             )
 
  2227             )
 
  2285             label: 'Uncrop (Add Border)...'
 
  2289             label: 'Uncrop (Add Border)...'
 
  2286             itemValue: doUnCropManual
 
  2290             itemValue: doUnCropManual
 
  2287             translateLabel: true
 
  2291             translateLabel: true
 
  2288           )
 
  2292           )
 
  2289          (MenuItem
 
  2293          (MenuItem
 
  2290             enabled: imageIsLoaded
 
  2294             enabled: imageIsLoadedHolder
 
  2291             activeHelpKey: shiftManual
 
  2295             activeHelpKey: shiftManual
 
  2292             label: 'Shift...'
 
  2296             label: 'Shift...'
 
  2293             itemValue: doShiftManual
 
  2297             itemValue: doShiftManual
 
  2294             translateLabel: true
 
  2298             translateLabel: true
 
  2295           )
 
  2299           )
 
  2296          (MenuItem
 
  2300          (MenuItem
 
  2297             label: '-'
 
  2301             label: '-'
 
  2298           )
 
  2302           )
 
  2299          (MenuItem
 
  2303          (MenuItem
 
  2300             activeHelpKey: fileEditMask
 
  2304             activeHelpKey: fileEditMask
 
  2301             enabled: imageIsLoaded
 
  2305             enabled: imageIsLoadedHolder
 
  2302             label: 'Edit Mask'
 
  2306             label: 'Edit Mask'
 
  2303             itemValue: doEditMask
 
  2307             itemValue: doEditMask
 
  2304             translateLabel: true
 
  2308             translateLabel: true
 
  2305           )
 
  2309           )
 
  2306          (MenuItem
 
  2310          (MenuItem
 
  2307             enabled: imageIsLoaded
 
  2311             enabled: imageIsLoadedHolder
 
  2308             label: 'Text...'
 
  2312             label: 'Text...'
 
  2309             itemValue: doInsertTextFromUser
 
  2313             itemValue: doInsertTextFromUser
 
  2310             translateLabel: true
 
  2314             translateLabel: true
 
  2311           )
 
  2315           )
 
  2312 
  2316 
  2313          )
 
  2317          )
 
  2314         nil
 
  2318         nil
 
  2315         nil
 
  2319         nil
 
  2316       )
 
  2320       )
 
       
  2321 
       
  2322     "Modified: / 04-07-2010 / 10:16:48 / cg"
 
  2317 !
 
  2323 !
 
  2318 
  2324 
  2319 menuFile
 
  2325 menuFile
 
  2320     "This resource specification was automatically generated
 
  2326     "This resource specification was automatically generated
 
  2321      by the MenuEditor of ST/X."
 
  2327      by the MenuEditor of ST/X."
 
  2398               nil
 
  2404               nil
 
  2399               nil
 
  2405               nil
 
  2400             )
 
  2406             )
 
  2401           )
 
  2407           )
 
  2402          (MenuItem
 
  2408          (MenuItem
 
  2403             enabled: imageHasNextImage
 
  2409             enabled: imageHasNextImageHolder
 
  2404             label: 'Next in Sequence'
 
  2410             label: 'Next in Sequence'
 
  2405             itemValue: nextImageInSequence
 
  2411             itemValue: nextImageInSequence
 
  2406             translateLabel: true
 
  2412             translateLabel: true
 
  2407             isVisible: isStandAlone
 
  2413             isVisible: isStandAlone
 
  2408           )
 
  2414           )
 
  2416             itemValue: doSaveMethod
 
  2422             itemValue: doSaveMethod
 
  2417             translateLabel: true
 
  2423             translateLabel: true
 
  2418           )
 
  2424           )
 
  2419          (MenuItem
 
  2425          (MenuItem
 
  2420             activeHelpKey: fileSaveMethodAs
 
  2426             activeHelpKey: fileSaveMethodAs
 
  2421             enabled: imageIsLoaded
 
  2427             enabled: imageIsLoadedHolder
 
  2422             label: 'Save As...'
 
  2428             label: 'Save As...'
 
  2423             itemValue: doSaveMethodAs
 
  2429             itemValue: doSaveMethodAs
 
  2424             translateLabel: true
 
  2430             translateLabel: true
 
  2425           )
 
  2431           )
 
  2426          (MenuItem
 
  2432          (MenuItem
 
  2427             activeHelpKey: fileSaveAs
 
  2433             activeHelpKey: fileSaveAs
 
  2428             enabled: imageIsLoaded
 
  2434             enabled: imageIsLoadedHolder
 
  2429             label: 'Save to File...'
 
  2435             label: 'Save to File...'
 
  2430             itemValue: doSaveImageFileAs
 
  2436             itemValue: doSaveImageFileAs
 
  2431             translateLabel: true
 
  2437             translateLabel: true
 
  2432           )
 
  2438           )
 
  2433          (MenuItem
 
  2439          (MenuItem
 
  2434             activeHelpKey: fileSaveMaskAs
 
  2440             activeHelpKey: fileSaveMaskAs
 
  2435             enabled: imageIsLoaded
 
  2441             enabled: imageIsLoadedHolder
 
  2436             label: 'Save Mask to File...'
 
  2442             label: 'Save Mask to File...'
 
  2437             itemValue: doSaveImageMaskFileAs
 
  2443             itemValue: doSaveImageMaskFileAs
 
  2438             translateLabel: true
 
  2444             translateLabel: true
 
  2439           )
 
  2445           )
 
  2440          (MenuItem
 
  2446          (MenuItem
 
  2441             activeHelpKey: fileSaveButtonImageAs
 
  2447             activeHelpKey: fileSaveButtonImageAs
 
  2442             enabled: imageIsLoaded
 
  2448             enabled: imageIsLoadedHolder
 
  2443             label: 'Save as Button to File...'
 
  2449             label: 'Save as Button to File...'
 
  2444             itemValue: doSaveButtonImageToFileAs
 
  2450             itemValue: doSaveButtonImageToFileAs
 
  2445             translateLabel: true
 
  2451             translateLabel: true
 
  2446           )
 
  2452           )
 
  2447          (MenuItem
 
  2453          (MenuItem
 
  2448             enabled: imageIsLoaded
 
  2454             enabled: imageIsLoadedHolder
 
  2449             label: 'Copy to Clipboard'
 
  2455             label: 'Copy to Clipboard'
 
  2450             itemValue: doCopyImageToClipboard
 
  2456             itemValue: doCopyImageToClipboard
 
  2451             translateLabel: true
 
  2457             translateLabel: true
 
  2452           )
 
  2458           )
 
  2453          (MenuItem
 
  2459          (MenuItem
 
  2454             label: '-'
 
  2460             label: '-'
 
  2455           )
 
  2461           )
 
  2456          (MenuItem
 
  2462          (MenuItem
 
  2457             activeHelpKey: fileEditMask
 
  2463             activeHelpKey: fileEditMask
 
  2458             enabled: imageIsLoaded
 
  2464             enabled: imageIsLoadedHolder
 
  2459             label: 'Edit Mask'
 
  2465             label: 'Edit Mask'
 
  2460             itemValue: doEditMask
 
  2466             itemValue: doEditMask
 
  2461             translateLabel: true
 
  2467             translateLabel: true
 
  2462             isVisible: false
 
  2468             isVisible: false
 
  2463           )
 
  2469           )
 
  2465             label: '-'
 
  2471             label: '-'
 
  2466             isVisible: false
 
  2472             isVisible: false
 
  2467           )
 
  2473           )
 
  2468          (MenuItem
 
  2474          (MenuItem
 
  2469             activeHelpKey: filePrint
 
  2475             activeHelpKey: filePrint
 
  2470             enabled: imageIsLoaded
 
  2476             enabled: imageIsLoadedHolder
 
  2471             label: 'Print'
 
  2477             label: 'Print'
 
  2472             itemValue: doPrint
 
  2478             itemValue: doPrint
 
  2473             translateLabel: true
 
  2479             translateLabel: true
 
  2474           )
 
  2480           )
 
  2475          (MenuItem
 
  2481          (MenuItem
 
  2476             label: '-'
 
  2482             label: '-'
 
  2477             isVisible: isStandAlone
 
  2483             isVisible: isStandAlone
 
  2478           )
 
  2484           )
 
  2479          (MenuItem
 
  2485          (MenuItem
 
  2480             activeHelpKey: fileBrowseClass
 
  2486             activeHelpKey: fileBrowseClass
 
  2481             enabled: hasClassDefined
 
  2487             enabled: hasClassDefinedHolder
 
  2482             label: 'Browse Class'
 
  2488             label: 'Browse Class'
 
  2483             itemValue: doBrowseClass
 
  2489             itemValue: doBrowseClass
 
  2484             translateLabel: true
 
  2490             translateLabel: true
 
  2485             isVisible: isStandAlone
 
  2491             isVisible: isStandAlone
 
  2486           )
 
  2492           )
 
  2487          (MenuItem
 
  2493          (MenuItem
 
  2488             enabled: imageIsLoaded
 
  2494             enabled: imageIsLoadedHolder
 
  2489             label: 'Inspect Image'
 
  2495             label: 'Inspect Image'
 
  2490             itemValue: doInspectImage
 
  2496             itemValue: doInspectImage
 
  2491             translateLabel: true
 
  2497             translateLabel: true
 
  2492             isVisible: isStandAlone
 
  2498             isVisible: isStandAlone
 
  2493           )
 
  2499           )
 
  2494          (MenuItem
 
  2500          (MenuItem
 
  2495             activeHelpKey: fileShowStoreString
 
  2501             activeHelpKey: fileShowStoreString
 
  2496             enabled: imageIsLoaded
 
  2502             enabled: imageIsLoadedHolder
 
  2497             label: 'Show storeString'
 
  2503             label: 'Show storeString'
 
  2498             itemValue: doShowStoreString
 
  2504             itemValue: doShowStoreString
 
  2499             translateLabel: true
 
  2505             translateLabel: true
 
  2500           )
 
  2506           )
 
  2501          (MenuItem
 
  2507          (MenuItem
 
  2511           )
 
  2517           )
 
  2512          )
 
  2518          )
 
  2513         nil
 
  2519         nil
 
  2514         nil
 
  2520         nil
 
  2515       )
 
  2521       )
 
       
  2522 
       
  2523     "Modified: / 04-07-2010 / 10:17:15 / cg"
 
  2516 !
 
  2524 !
 
  2517 
  2525 
  2518 menuMouseButtonColors
 
  2526 menuMouseButtonColors
 
  2519     "This resource specification was automatically generated
 
  2527     "This resource specification was automatically generated
 
  2520      by the MenuEditor of ST/X."
 
  2528      by the MenuEditor of ST/X."
 
  2536            #(
 
  2544            #(
 
  2537              #(#MenuItem
 
  2545              #(#MenuItem
 
  2538                 #label: 'Left Mouse Button'
 
  2546                 #label: 'Left Mouse Button'
 
  2539                 #nameKey: #leftMouseKeyButton
 
  2547                 #nameKey: #leftMouseKeyButton
 
  2540                 #activeHelpKey: #mouseKeyColorMode
 
  2548                 #activeHelpKey: #mouseKeyColorMode
 
  2541                 #enabled: #imageIsLoaded
 
  2549                 #enabled: #imageIsLoadedHolder
 
  2542                 #labelImage: #(#ResourceRetriever nil #leftMouseKeyIcon)
 
  2550                 #labelImage: #(#ResourceRetriever nil #leftMouseKeyIcon)
 
  2543                 #choice: #mouseKeyColorMode
 
  2551                 #choice: #mouseKeyColorMode
 
  2544                 #choiceValue: 1
 
  2552                 #choiceValue: 1
 
  2545             )
 
  2553             )
 
  2546              #(#MenuItem
 
  2554              #(#MenuItem
 
  2547                 #label: 'Right Mouse Button'
 
  2555                 #label: 'Right Mouse Button'
 
  2548                 #nameKey: #rightMouseKeyButton
 
  2556                 #nameKey: #rightMouseKeyButton
 
  2549                 #activeHelpKey: #mouseKeyColorMode
 
  2557                 #activeHelpKey: #mouseKeyColorMode
 
  2550                 #enabled: #imageIsLoaded
 
  2558                 #enabled: #imageIsLoadedHolder
 
  2551                 #labelImage: #(#ResourceRetriever nil #rightMouseKeyIcon)
 
  2559                 #labelImage: #(#ResourceRetriever nil #rightMouseKeyIcon)
 
  2552                 #choice: #mouseKeyColorMode
 
  2560                 #choice: #mouseKeyColorMode
 
  2553                 #choiceValue: 2
 
  2561                 #choiceValue: 2
 
  2554             )
 
  2562             )
 
  2555           ) nil
 
  2563           ) nil
 
  2556           nil
 
  2564           nil
 
  2557       )
 
  2565       )
 
       
  2566 
       
  2567     "Modified: / 04-07-2010 / 10:17:37 / cg"
 
  2558 !
 
  2568 !
 
  2559 
  2569 
  2560 menuSettings
 
  2570 menuSettings
 
  2561     "This resource specification was automatically generated
 
  2571     "This resource specification was automatically generated
 
  2562      by the MenuEditor of ST/X."
 
  2572      by the MenuEditor of ST/X."
 
  2689             labelImage: (ResourceRetriever XPToolbarIconLibrary loadImageFromMethodIcon)
 
  2699             labelImage: (ResourceRetriever XPToolbarIconLibrary loadImageFromMethodIcon)
 
  2690             keepLinkedMenu: true
 
  2700             keepLinkedMenu: true
 
  2691           )
 
  2701           )
 
  2692          (MenuItem
 
  2702          (MenuItem
 
  2693             activeHelpKey: fileSaveMethodAs
 
  2703             activeHelpKey: fileSaveMethodAs
 
  2694             enabled: imageIsLoaded
 
  2704             enabled: imageIsLoadedHolder
 
  2695             label: 'fileSaveMethodAs'
 
  2705             label: 'fileSaveMethodAs'
 
  2696             itemValue: doSaveMethodAs
 
  2706             itemValue: doSaveMethodAs
 
  2697             translateLabel: true
 
  2707             translateLabel: true
 
  2698             isButton: true
 
  2708             isButton: true
 
  2699             isVisible: isStandAlone
 
  2709             isVisible: isStandAlone
 
  2700             labelImage: (ResourceRetriever XPToolbarIconLibrary saveImageAsMethodAsIcon)
 
  2710             labelImage: (ResourceRetriever XPToolbarIconLibrary saveImageAsMethodAsIcon)
 
  2701           )
 
  2711           )
 
  2702          (MenuItem
 
  2712          (MenuItem
 
  2703             activeHelpKey: fileSaveMethod
 
  2713             activeHelpKey: fileSaveMethod
 
  2704             enabled: imageIsLoaded
 
  2714             enabled: imageIsLoadedHolder
 
  2705             label: 'saveAsMethod'
 
  2715             label: 'saveAsMethod'
 
  2706             itemValue: doSaveMethod
 
  2716             itemValue: doSaveMethod
 
  2707             translateLabel: true
 
  2717             translateLabel: true
 
  2708             isButton: true
 
  2718             isButton: true
 
  2709             isVisible: isNotStandAlone
 
  2719             isVisible: isNotStandAlone
 
  2720             isButton: true
 
  2730             isButton: true
 
  2721             labelImage: (ResourceRetriever ToolbarIconLibrary loadImageFromFileIcon)
 
  2731             labelImage: (ResourceRetriever ToolbarIconLibrary loadImageFromFileIcon)
 
  2722           )
 
  2732           )
 
  2723          (MenuItem
 
  2733          (MenuItem
 
  2724             activeHelpKey: fileSaveAs
 
  2734             activeHelpKey: fileSaveAs
 
  2725             enabled: imageIsLoaded
 
  2735             enabled: imageIsLoadedHolder
 
  2726             label: 'saveAsFile'
 
  2736             label: 'saveAsFile'
 
  2727             itemValue: doSaveImageFileAs
 
  2737             itemValue: doSaveImageFileAs
 
  2728             translateLabel: true
 
  2738             translateLabel: true
 
  2729             isButton: true
 
  2739             isButton: true
 
  2730             labelImage: (ResourceRetriever ToolbarIconLibrary saveImageToFileAsIcon)
 
  2740             labelImage: (ResourceRetriever ToolbarIconLibrary saveImageToFileAsIcon)
 
  2743           )
 
  2753           )
 
  2744          )
 
  2754          )
 
  2745         nil
 
  2755         nil
 
  2746         nil
 
  2756         nil
 
  2747       )
 
  2757       )
 
       
  2758 
       
  2759     "Modified: / 04-07-2010 / 10:17:49 / cg"
 
  2748 !
 
  2760 !
 
  2749 
  2761 
  2750 modeMenu
 
  2762 modeMenu
 
  2751     "This resource specification was automatically generated
 
  2763     "This resource specification was automatically generated
 
  2752      by the MenuEditor of ST/X."
 
  2764      by the MenuEditor of ST/X."
 
  2764     ^ 
  2776     ^ 
  2765      #(Menu
 
  2777      #(Menu
 
  2766         (
 
  2778         (
 
  2767          (MenuItem
 
  2779          (MenuItem
 
  2768             activeHelpKey: drawModePoint
 
  2780             activeHelpKey: drawModePoint
 
  2769             enabled: imageIsLoaded
 
  2781             enabled: imageIsLoadedHolder
 
  2770             label: 'Point'
 
  2782             label: 'Point'
 
  2771             translateLabel: true
 
  2783             translateLabel: true
 
  2772             labelImage: (ResourceRetriever ImageEditor pointIcon 'Point')
 
  2784             labelImage: (ResourceRetriever ImageEditor pointIcon 'Point')
 
  2773             choice: editMode
 
  2785             choice: editMode
 
  2774             choiceValue: point
 
  2786             choiceValue: point
 
  2775           )
 
  2787           )
 
  2776          (MenuItem
 
  2788          (MenuItem
 
  2777             activeHelpKey: drawModePoint
 
  2789             activeHelpKey: drawModePoint
 
  2778             enabled: imageIsLoaded
 
  2790             enabled: imageIsLoadedHolder
 
  2779             label: 'Spray'
 
  2791             label: 'Spray'
 
  2780             translateLabel: true
 
  2792             translateLabel: true
 
  2781             labelImage: (ResourceRetriever ImageEditor sprayIcon 'Spray')
 
  2793             labelImage: (ResourceRetriever ImageEditor sprayIcon 'Spray')
 
  2782             choice: editMode
 
  2794             choice: editMode
 
  2783             choiceValue: spray
 
  2795             choiceValue: spray
 
  2784           )
 
  2796           )
 
  2785          (MenuItem
 
  2797          (MenuItem
 
  2786             activeHelpKey: drawModeBox
 
  2798             activeHelpKey: drawModeBox
 
  2787             enabled: imageIsLoaded
 
  2799             enabled: imageIsLoadedHolder
 
  2788             label: 'Rect'
 
  2800             label: 'Rect'
 
  2789             translateLabel: true
 
  2801             translateLabel: true
 
  2790             labelImage: (ResourceRetriever ImageEditor rectIcon 'Rect')
 
  2802             labelImage: (ResourceRetriever ImageEditor rectIcon 'Rect')
 
  2791             choice: editMode
 
  2803             choice: editMode
 
  2792             choiceValue: box
 
  2804             choiceValue: box
 
  2793           )
 
  2805           )
 
  2794          (MenuItem
 
  2806          (MenuItem
 
  2795             activeHelpKey: drawModeFilledBox
 
  2807             activeHelpKey: drawModeFilledBox
 
  2796             enabled: imageIsLoaded
 
  2808             enabled: imageIsLoadedHolder
 
  2797             label: 'Filled Rectangle'
 
  2809             label: 'Filled Rectangle'
 
  2798             translateLabel: true
 
  2810             translateLabel: true
 
  2799             labelImage: (ResourceRetriever ImageEditor fillRectIcon 'Filled Rectangle')
 
  2811             labelImage: (ResourceRetriever ImageEditor fillRectIcon 'Filled Rectangle')
 
  2800             choice: editMode
 
  2812             choice: editMode
 
  2801             choiceValue: filledBox
 
  2813             choiceValue: filledBox
 
  2802           )
 
  2814           )
 
  2803          (MenuItem
 
  2815          (MenuItem
 
  2804             activeHelpKey: drawModeBox
 
  2816             activeHelpKey: drawModeBox
 
  2805             enabled: imageIsLoaded
 
  2817             enabled: imageIsLoadedHolder
 
  2806             label: 'Circle'
 
  2818             label: 'Circle'
 
  2807             translateLabel: true
 
  2819             translateLabel: true
 
  2808             labelImage: (ResourceRetriever ImageEditor circleIcon 'Circle')
 
  2820             labelImage: (ResourceRetriever ImageEditor circleIcon 'Circle')
 
  2809             choice: editMode
 
  2821             choice: editMode
 
  2810             choiceValue: circle
 
  2822             choiceValue: circle
 
  2811           )
 
  2823           )
 
  2812          (MenuItem
 
  2824          (MenuItem
 
  2813             activeHelpKey: drawModeFill
 
  2825             activeHelpKey: drawModeFill
 
  2814             enabled: imageIsLoaded
 
  2826             enabled: imageIsLoadedHolder
 
  2815             label: 'Fill'
 
  2827             label: 'Fill'
 
  2816             translateLabel: true
 
  2828             translateLabel: true
 
  2817             labelImage: (ResourceRetriever ImageEditor fillIcon 'Fill')
 
  2829             labelImage: (ResourceRetriever ImageEditor fillIcon 'Fill')
 
  2818             choice: editMode
 
  2830             choice: editMode
 
  2819             choiceValue: fill
 
  2831             choiceValue: fill
 
  2820           )
 
  2832           )
 
  2821          (MenuItem
 
  2833          (MenuItem
 
  2822             activeHelpKey: drawModeCopy
 
  2834             activeHelpKey: drawModeCopy
 
  2823             enabled: imageIsLoaded
 
  2835             enabled: imageIsLoadedHolder
 
  2824             label: 'Copy'
 
  2836             label: 'Copy'
 
  2825             translateLabel: true
 
  2837             translateLabel: true
 
  2826             labelImage: (ResourceRetriever ImageEditor copyIcon 'Copy')
 
  2838             labelImage: (ResourceRetriever ImageEditor copyIcon 'Copy')
 
  2827             choice: editMode
 
  2839             choice: editMode
 
  2828             choiceValue: copy
 
  2840             choiceValue: copy
 
  2829           )
 
  2841           )
 
  2830          (MenuItem
 
  2842          (MenuItem
 
  2831             activeHelpKey: drawModePaste
 
  2843             activeHelpKey: drawModePaste
 
  2832             enabled: imageIsLoaded
 
  2844             enabled: imageIsLoadedHolder
 
  2833             label: 'Paste'
 
  2845             label: 'Paste'
 
  2834             translateLabel: true
 
  2846             translateLabel: true
 
  2835             labelImage: (ResourceRetriever ImageEditor pasteIcon 'Paste')
 
  2847             labelImage: (ResourceRetriever ImageEditor pasteIcon 'Paste')
 
  2836             choice: editMode
 
  2848             choice: editMode
 
  2837             choiceValue: paste
 
  2849             choiceValue: paste
 
  2838           )
 
  2850           )
 
  2839          (MenuItem
 
  2851          (MenuItem
 
  2840             activeHelpKey: drawModePasteUnder
 
  2852             activeHelpKey: drawModePasteUnder
 
  2841             enabled: imageIsLoaded
 
  2853             enabled: imageIsLoadedHolder
 
  2842             label: 'Paste Under'
 
  2854             label: 'Paste Under'
 
  2843             translateLabel: true
 
  2855             translateLabel: true
 
  2844             labelImage: (ResourceRetriever ImageEditor pasteUnderIcon 'Paste Under')
 
  2856             labelImage: (ResourceRetriever ImageEditor pasteUnderIcon 'Paste Under')
 
  2845             choice: editMode
 
  2857             choice: editMode
 
  2846             choiceValue: pasteUnder
 
  2858             choiceValue: pasteUnder
 
  2847           )
 
  2859           )
 
  2848          (MenuItem
 
  2860          (MenuItem
 
  2849             activeHelpKey: drawModePasteWithMask
 
  2861             activeHelpKey: drawModePasteWithMask
 
  2850             enabled: imageIsLoaded
 
  2862             enabled: imageIsLoadedHolder
 
  2851             label: 'Paste with Mask'
 
  2863             label: 'Paste with Mask'
 
  2852             translateLabel: true
 
  2864             translateLabel: true
 
  2853             labelImage: (ResourceRetriever ImageEditor pasteWithMaskIcon 'Paste with Mask')
 
  2865             labelImage: (ResourceRetriever ImageEditor pasteWithMaskIcon 'Paste with Mask')
 
  2854             choice: editMode
 
  2866             choice: editMode
 
  2855             choiceValue: pasteWithMask
 
  2867             choiceValue: pasteWithMask
 
  2856           )
 
  2868           )
 
  2857          (MenuItem
 
  2869          (MenuItem
 
  2858             activeHelpKey: drawModeSpecial
 
  2870             activeHelpKey: drawModeSpecial
 
  2859             enabled: imageIsLoaded
 
  2871             enabled: imageIsLoadedHolder
 
  2860             label: 'Special'
 
  2872             label: 'Special'
 
  2861             translateLabel: true
 
  2873             translateLabel: true
 
  2862             labelImage: (ResourceRetriever ImageEditor specialIcon 'Special')
 
  2874             labelImage: (ResourceRetriever ImageEditor specialIcon 'Special')
 
  2863             choice: editMode
 
  2875             choice: editMode
 
  2864             choiceValue: specialOperation
 
  2876             choiceValue: specialOperation
 
  2865           )
 
  2877           )
 
  2866          )
 
  2878          )
 
  2867         nil
 
  2879         nil
 
  2868         nil
 
  2880         nil
 
  2869       )
 
  2881       )
 
       
  2882 
       
  2883     "Modified: / 04-07-2010 / 10:18:08 / cg"
 
  2870 !
 
  2884 !
 
  2871 
  2885 
  2872 previewMenu
 
  2886 previewMenu
 
  2873     "This resource specification was automatically generated
 
  2887     "This resource specification was automatically generated
 
  2874      by the MenuEditor of ST/X."
 
  2888      by the MenuEditor of ST/X."
 
  2901            (Menu
 
  2915            (Menu
 
  2902               (
 
  2916               (
 
  2903                (MenuItem
 
  2917                (MenuItem
 
  2904                   label: 'Gray'
 
  2918                   label: 'Gray'
 
  2905                   translateLabel: true
 
  2919                   translateLabel: true
 
  2906                   choice: previewBackgroundColor
 
  2920                   choice: previewBackgroundColorHolder
 
  2907                   choiceValue: nil
 
  2921                   choiceValue: nil
 
  2908                 )
 
  2922                 )
 
  2909                (MenuItem
 
  2923                (MenuItem
 
  2910                   label: 'Black'
 
  2924                   label: 'Black'
 
  2911                   translateLabel: true
 
  2925                   translateLabel: true
 
  2912                   choice: previewBackgroundColor
 
  2926                   choice: previewBackgroundColorHolder
 
  2913                   choiceValue: black
 
  2927                   choiceValue: black
 
  2914                 )
 
  2928                 )
 
  2915                (MenuItem
 
  2929                (MenuItem
 
  2916                   label: 'White'
 
  2930                   label: 'White'
 
  2917                   translateLabel: true
 
  2931                   translateLabel: true
 
  2918                   choice: previewBackgroundColor
 
  2932                   choice: previewBackgroundColorHolder
 
  2919                   choiceValue: white
 
  2933                   choiceValue: white
 
  2920                 )
 
  2934                 )
 
  2921                (MenuItem
 
  2935                (MenuItem
 
  2922                   label: '-'
 
  2936                   label: '-'
 
  2923                 )
 
  2937                 )
 
  2924                (MenuItem
 
  2938                (MenuItem
 
  2925                   label: 'Red'
 
  2939                   label: 'Red'
 
  2926                   translateLabel: true
 
  2940                   translateLabel: true
 
  2927                   choice: previewBackgroundColor
 
  2941                   choice: previewBackgroundColorHolder
 
  2928                   choiceValue: red
 
  2942                   choiceValue: red
 
  2929                 )
 
  2943                 )
 
  2930                (MenuItem
 
  2944                (MenuItem
 
  2931                   label: 'Green'
 
  2945                   label: 'Green'
 
  2932                   translateLabel: true
 
  2946                   translateLabel: true
 
  2933                   choice: previewBackgroundColor
 
  2947                   choice: previewBackgroundColorHolder
 
  2934                   choiceValue: green
 
  2948                   choiceValue: green
 
  2935                 )
 
  2949                 )
 
  2936                (MenuItem
 
  2950                (MenuItem
 
  2937                   label: 'Blue'
 
  2951                   label: 'Blue'
 
  2938                   translateLabel: true
 
  2952                   translateLabel: true
 
  2939                   choice: previewBackgroundColor
 
  2953                   choice: previewBackgroundColorHolder
 
  2940                   choiceValue: blue
 
  2954                   choiceValue: blue
 
  2941                 )
 
  2955                 )
 
  2942                )
 
  2956                )
 
  2943               nil
 
  2957               nil
 
  2944               nil
 
  2958               nil
 
  2946           )
 
  2960           )
 
  2947          )
 
  2961          )
 
  2948         nil
 
  2962         nil
 
  2949         nil
 
  2963         nil
 
  2950       )
 
  2964       )
 
       
  2965 
       
  2966     "Modified: / 04-07-2010 / 10:20:09 / cg"
 
  2951 !
 
  2967 !
 
  2952 
  2968 
  2953 toolsMenuToolbar
 
  2969 toolsMenuToolbar
 
  2954     "This resource specification was automatically generated
 
  2970     "This resource specification was automatically generated
 
  2955      by the MenuEditor of ST/X."
 
  2971      by the MenuEditor of ST/X."
 
  2967     ^ 
  2983     ^ 
  2968      #(#Menu
 
  2984      #(#Menu
 
  2969         #(
 
  2985         #(
 
  2970          #(#MenuItem
 
  2986          #(#MenuItem
 
  2971             #activeHelpKey: #drawModePoint
 
  2987             #activeHelpKey: #drawModePoint
 
  2972             #enabled: #imageIsLoaded
 
  2988             #enabled: #imageIsLoadedHolder
 
  2973             #label: 'Point'
 
  2989             #label: 'Point'
 
  2974             #translateLabel: true
 
  2990             #translateLabel: true
 
  2975             #isButton: true
 
  2991             #isButton: true
 
  2976             #labelImage: #(#ResourceRetriever #ImageEditor #pointIcon)
 
  2992             #labelImage: #(#ResourceRetriever #ImageEditor #pointIcon)
 
  2977             #choice: #editMode
 
  2993             #choice: #editMode
 
  2978             #choiceValue: #point
 
  2994             #choiceValue: #point
 
  2979           )
 
  2995           )
 
  2980          #(#MenuItem
 
  2996          #(#MenuItem
 
  2981             #activeHelpKey: #drawModeSpray
 
  2997             #activeHelpKey: #drawModeSpray
 
  2982             #enabled: #imageIsLoaded
 
  2998             #enabled: #imageIsLoadedHolder
 
  2983             #label: 'Spray'
 
  2999             #label: 'Spray'
 
  2984             #translateLabel: true
 
  3000             #translateLabel: true
 
  2985             #isButton: true
 
  3001             #isButton: true
 
  2986             #labelImage: #(#ResourceRetriever #ImageEditor #sprayIcon)
 
  3002             #labelImage: #(#ResourceRetriever #ImageEditor #sprayIcon)
 
  2987             #choice: #editMode
 
  3003             #choice: #editMode
 
  2988             #choiceValue: #spray
 
  3004             #choiceValue: #spray
 
  2989           )
 
  3005           )
 
  2990          #(#MenuItem
 
  3006          #(#MenuItem
 
  2991             #activeHelpKey: #drawModeBox
 
  3007             #activeHelpKey: #drawModeBox
 
  2992             #enabled: #imageIsLoaded
 
  3008             #enabled: #imageIsLoadedHolder
 
  2993             #label: 'Rect'
 
  3009             #label: 'Rect'
 
  2994             #translateLabel: true
 
  3010             #translateLabel: true
 
  2995             #isButton: true
 
  3011             #isButton: true
 
  2996             #labelImage: #(#ResourceRetriever #ImageEditor #rectIcon)
 
  3012             #labelImage: #(#ResourceRetriever #ImageEditor #rectIcon)
 
  2997             #choice: #editMode
 
  3013             #choice: #editMode
 
  2998             #choiceValue: #box
 
  3014             #choiceValue: #box
 
  2999           )
 
  3015           )
 
  3000          #(#MenuItem
 
  3016          #(#MenuItem
 
  3001             #activeHelpKey: #drawModeFilledBox
 
  3017             #activeHelpKey: #drawModeFilledBox
 
  3002             #enabled: #imageIsLoaded
 
  3018             #enabled: #imageIsLoadedHolder
 
  3003             #label: 'FillRect'
 
  3019             #label: 'FillRect'
 
  3004             #translateLabel: true
 
  3020             #translateLabel: true
 
  3005             #isButton: true
 
  3021             #isButton: true
 
  3006             #labelImage: #(#ResourceRetriever #ImageEditor #fillRectIcon)
 
  3022             #labelImage: #(#ResourceRetriever #ImageEditor #fillRectIcon)
 
  3007             #choice: #editMode
 
  3023             #choice: #editMode
 
  3008             #choiceValue: #filledBox
 
  3024             #choiceValue: #filledBox
 
  3009           )
 
  3025           )
 
  3010          #(#MenuItem
 
  3026          #(#MenuItem
 
  3011             #activeHelpKey: #drawModeCircle
 
  3027             #activeHelpKey: #drawModeCircle
 
  3012             #enabled: #imageIsLoaded
 
  3028             #enabled: #imageIsLoadedHolder
 
  3013             #label: 'Circle'
 
  3029             #label: 'Circle'
 
  3014             #translateLabel: true
 
  3030             #translateLabel: true
 
  3015             #isButton: true
 
  3031             #isButton: true
 
  3016             #labelImage: #(#ResourceRetriever #ImageEditor #circleIcon)
 
  3032             #labelImage: #(#ResourceRetriever #ImageEditor #circleIcon)
 
  3017             #choice: #editMode
 
  3033             #choice: #editMode
 
  3018             #choiceValue: #circle
 
  3034             #choiceValue: #circle
 
  3019           )
 
  3035           )
 
  3020          #(#MenuItem
 
  3036          #(#MenuItem
 
  3021             #activeHelpKey: #drawModeFill
 
  3037             #activeHelpKey: #drawModeFill
 
  3022             #enabled: #imageIsLoaded
 
  3038             #enabled: #imageIsLoadedHolder
 
  3023             #label: 'Fill'
 
  3039             #label: 'Fill'
 
  3024             #translateLabel: true
 
  3040             #translateLabel: true
 
  3025             #isButton: true
 
  3041             #isButton: true
 
  3026             #labelImage: #(#ResourceRetriever #ImageEditor #fillIcon)
 
  3042             #labelImage: #(#ResourceRetriever #ImageEditor #fillIcon)
 
  3027             #choice: #editMode
 
  3043             #choice: #editMode
 
  3028             #choiceValue: #fill
 
  3044             #choiceValue: #fill
 
  3029           )
 
  3045           )
 
  3030          #(#MenuItem
 
  3046          #(#MenuItem
 
  3031             #activeHelpKey: #drawModeCopy
 
  3047             #activeHelpKey: #drawModeCopy
 
  3032             #enabled: #imageIsLoaded
 
  3048             #enabled: #imageIsLoadedHolder
 
  3033             #label: 'Copy'
 
  3049             #label: 'Copy'
 
  3034             #translateLabel: true
 
  3050             #translateLabel: true
 
  3035             #isButton: true
 
  3051             #isButton: true
 
  3036             #labelImage: #(#ResourceRetriever #ImageEditor #copyIcon)
 
  3052             #labelImage: #(#ResourceRetriever #ImageEditor #copyIcon)
 
  3037             #choice: #editMode
 
  3053             #choice: #editMode
 
  3038             #choiceValue: #copy
 
  3054             #choiceValue: #copy
 
  3039           )
 
  3055           )
 
  3040          #(#MenuItem
 
  3056          #(#MenuItem
 
  3041             #activeHelpKey: #drawModePaste
 
  3057             #activeHelpKey: #drawModePaste
 
  3042             #enabled: #imageIsLoaded
 
  3058             #enabled: #imageIsLoadedHolder
 
  3043             #label: 'Paste'
 
  3059             #label: 'Paste'
 
  3044             #translateLabel: true
 
  3060             #translateLabel: true
 
  3045             #isButton: true
 
  3061             #isButton: true
 
  3046             #labelImage: #(#ResourceRetriever #ImageEditor #pasteIcon)
 
  3062             #labelImage: #(#ResourceRetriever #ImageEditor #pasteIcon)
 
  3047             #choice: #editMode
 
  3063             #choice: #editMode
 
  3048             #choiceValue: #paste
 
  3064             #choiceValue: #paste
 
  3049           )
 
  3065           )
 
  3050          #(#MenuItem
 
  3066          #(#MenuItem
 
  3051             #activeHelpKey: #drawModePasteUnder
 
  3067             #activeHelpKey: #drawModePasteUnder
 
  3052             #enabled: #imageIsLoaded
 
  3068             #enabled: #imageIsLoadedHolder
 
  3053             #label: 'Paste Under'
 
  3069             #label: 'Paste Under'
 
  3054             #translateLabel: true
 
  3070             #translateLabel: true
 
  3055             #isButton: true
 
  3071             #isButton: true
 
  3056             #labelImage: #(#ResourceRetriever #ImageEditor #pasteUnderIcon)
 
  3072             #labelImage: #(#ResourceRetriever #ImageEditor #pasteUnderIcon)
 
  3057             #choice: #editMode
 
  3073             #choice: #editMode
 
  3058             #choiceValue: #pasteUnder
 
  3074             #choiceValue: #pasteUnder
 
  3059           )
 
  3075           )
 
  3060          #(#MenuItem
 
  3076          #(#MenuItem
 
  3061             #activeHelpKey: #drawModePasteWithMask
 
  3077             #activeHelpKey: #drawModePasteWithMask
 
  3062             #enabled: #imageIsLoaded
 
  3078             #enabled: #imageIsLoadedHolder
 
  3063             #label: 'Paste With Mask'
 
  3079             #label: 'Paste With Mask'
 
  3064             #translateLabel: true
 
  3080             #translateLabel: true
 
  3065             #isButton: true
 
  3081             #isButton: true
 
  3066             #labelImage: #(#ResourceRetriever #ImageEditor #pasteWithMaskIcon)
 
  3082             #labelImage: #(#ResourceRetriever #ImageEditor #pasteWithMaskIcon)
 
  3067             #choice: #editMode
 
  3083             #choice: #editMode
 
  3068             #choiceValue: #pasteWithMask
 
  3084             #choiceValue: #pasteWithMask
 
  3069           )
 
  3085           )
 
  3070          #(#MenuItem
 
  3086          #(#MenuItem
 
  3071             #activeHelpKey: #drawModeSpecial
 
  3087             #activeHelpKey: #drawModeSpecial
 
  3072             #enabled: #imageIsLoaded
 
  3088             #enabled: #imageIsLoadedHolder
 
  3073             #label: 'Special'
 
  3089             #label: 'Special'
 
  3074             #translateLabel: true
 
  3090             #translateLabel: true
 
  3075             #isButton: true
 
  3091             #isButton: true
 
  3076             #labelImage: #(#ResourceRetriever #ImageEditor #specialIcon)
 
  3092             #labelImage: #(#ResourceRetriever #ImageEditor #specialIcon)
 
  3077             #choice: #editMode
 
  3093             #choice: #editMode
 
  3079           )
 
  3095           )
 
  3080          )
 
  3096          )
 
  3081         nil
 
  3097         nil
 
  3082         nil
 
  3098         nil
 
  3083       )
 
  3099       )
 
       
  3100 
       
  3101     "Modified: / 04-07-2010 / 10:18:24 / cg"
 
  3084 ! !
 
  3102 ! !
 
  3085 
  3103 
  3086 !ImageEditor class methodsFor:'tableColumns specs'!
 
  3104 !ImageEditor class methodsFor:'tableColumns specs'!
 
  3087 
  3105 
  3088 colorTableColumns
 
  3106 colorTableColumns
 
  3232     ^ self
 
  3250     ^ self
 
  3233 
  3251 
  3234     "Created: / 26.7.1998 / 12:17:03 / cg"
 
  3252     "Created: / 26.7.1998 / 12:17:03 / cg"
 
  3235 !
 
  3253 !
 
  3236 
  3254 
  3237 hasClassAndSelectorDefined
 
  3255 hasClassAndSelectorDefinedHolder
 
  3238     ^ [
 
  3256     ^ [
 
  3239         |cls|
 
  3257         |cls|
 
  3240 
  3258 
  3241         (cls := imageEditView resourceClass) notNil
 
  3259         (cls := imageEditView resourceClass) notNil
 
  3242         and:[imageEditView resourceSelector notNil]
 
  3260         and:[imageEditView resourceSelector notNil]
 
  3243       ]
 
  3261       ]
 
  3244 
  3262 
  3245     "Created: / 31.7.1998 / 02:02:54 / cg"
 
  3263     "Created: / 04-07-2010 / 10:11:10 / cg"
 
  3246 !
 
  3264 !
 
  3247 
  3265 
  3248 hasClassDefined
 
  3266 hasClassDefinedHolder
 
  3249     ^ [
 
  3267     ^ [
 
  3250         imageEditView resourceClass notNil
 
  3268         imageEditView resourceClass notNil
 
  3251       ]
 
  3269       ]
 
  3252 
  3270 
  3253     "Created: / 31.7.1998 / 02:02:22 / cg"
 
  3271     "Created: / 04-07-2010 / 10:11:47 / cg"
 
  3254 !
 
  3272 !
 
  3255 
  3273 
  3256 hasColorSelected
 
  3274 hasColorSelectedHolder
 
  3257     ^ self selectedColorIndexOrNil notNil
 
  3275     ^ [ self selectedColorIndexOrNil notNil ]
 
       
  3276 
       
  3277     "Created: / 04-07-2010 / 10:12:22 / cg"
 
  3258 !
 
  3278 !
 
  3259 
  3279 
  3260 hasColormap
 
  3280 hasColormap
 
  3261     ^ [self image notNil and:[self image colorMap notNil]]
 
  3281     ^ self image notNil and:[self image colorMap notNil]
 
  3262 
  3282 
  3263     "Created: / 30.9.1998 / 23:53:55 / cg"
 
  3283     "Created: / 30-09-1998 / 23:53:55 / cg"
 
       
  3284     "Modified: / 04-07-2010 / 10:13:26 / cg"
 
  3264 !
 
  3285 !
 
  3265 
  3286 
  3266 hasColormapAndColorSelected
 
  3287 hasColormapAndColorSelected
 
  3267     ^ [ self hasColormap and:[self hasColorSelected]]
 
  3288     ^ [ self hasColormapHolder value and:[self hasColorSelectedHolder value]]
 
  3268 !
 
  3289 
  3269 
  3290     "Modified: / 04-07-2010 / 10:13:13 / cg"
 
  3270 hasNoColormap
 
  3291 !
 
  3271     ^ [self image notNil and:[self image colorMap isNil]]
 
  3292 
  3272 
  3293 hasColormapHolder
 
  3273     "Created: / 30.9.1998 / 23:53:55 / cg"
 
  3294     ^ [self hasColormap]
 
  3274 !
 
  3295 
  3275 
  3296     "Created: / 04-07-2010 / 10:13:05 / cg"
 
  3276 imageHasNextImage
 
  3297 !
 
       
  3298 
       
  3299 imageHasNextImageHolder
 
  3277     "returns whether an image is loaded as value holder"
 
  3300     "returns whether an image is loaded as value holder"
 
  3278 
  3301 
  3279     ^ [self image notNil
 
  3302     ^ [self image notNil
 
  3280        and:[self image imageSequence notNil]]
 
  3303        and:[self image imageSequence notNil]]
 
  3281 
  3304 
  3282     "Created: / 31.7.1998 / 02:04:18 / cg"
 
  3305     "Created: / 04-07-2010 / 10:15:03 / cg"
 
  3283 !
 
  3306 !
 
  3284 
  3307 
  3285 imageInfoHolder
 
  3308 imageInfoHolder
 
  3286     |holder|
 
  3309     |holder|
 
       
  3310 
  3287     (holder := builder bindingAt:#imageInfoHolder) isNil ifTrue:[
 
  3311     (holder := builder bindingAt:#imageInfoHolder) isNil ifTrue:[
 
  3288         builder aspectAt:#imageInfoHolder put:(holder :=  '' asValue).
 
  3312         builder aspectAt:#imageInfoHolder put:(holder :=  '' asValue).
 
  3289     ].
 
  3313     ].
 
  3290     ^ holder
 
  3314     ^ holder
 
  3291 
  3315 
  3292     "Modified: / 29.7.1998 / 18:32:08 / cg"
 
  3316     "Modified: / 04-07-2010 / 10:15:14 / cg"
 
  3293 !
 
  3317 !
 
  3294 
  3318 
  3295 imageIsLoaded
 
  3319 imageIsLoadedAndAllowedToChangeImageDimensionAndDepth
 
  3296     "returns whether an image is loaded as value holder"
 
  3320     "returns whether an image is loaded as value holder"
 
  3297 
  3321 
       
  3322     ^ [ 
       
  3323         self imageIsLoadedHolder value
 
       
  3324         and:[ self allowedToChangeImageDimensionAndDepth ] 
       
  3325       ]
 
       
  3326 
       
  3327     "Modified: / 04-07-2010 / 10:15:43 / cg"
 
       
  3328 !
 
       
  3329 
       
  3330 imageIsLoadedAndClassDefined
 
       
  3331     "returns whether an image is loaded as value holder"
 
       
  3332 
       
  3333     ^ [self hasClassAndSelectorDefinedHolder value
 
       
  3334        and:[self imageIsLoadedHolder value]]
 
       
  3335 
       
  3336     "Created: / 31-07-1998 / 02:04:18 / cg"
 
       
  3337     "Modified: / 04-07-2010 / 10:15:48 / cg"
 
       
  3338 !
 
       
  3339 
       
  3340 imageIsLoadedHolder
 
       
  3341     "returns whether an image is loaded as value holder"
 
       
  3342 
  3298     |holder|
 
  3343     |holder|
 
       
  3344 
  3299     (holder := builder bindingAt:#imageIsLoaded) isNil ifTrue:[
 
  3345     (holder := builder bindingAt:#imageIsLoaded) isNil ifTrue:[
 
  3300         builder aspectAt:#imageIsLoaded put:(holder :=  false asValue).
 
  3346         builder aspectAt:#imageIsLoaded put:(holder :=  false asValue).
 
  3301     ].
 
  3347     ].
 
  3302     ^ holder
 
  3348     ^ holder
 
  3303 !
 
  3349 
  3304 
  3350     "Created: / 04-07-2010 / 10:15:38 / cg"
 
  3305 imageIsLoadedAndAllowedToChangeImageDimensionAndDepth
 
       
  3306     "returns whether an image is loaded as value holder"
 
       
  3307 
       
  3308     ^ [ 
       
  3309         self imageIsLoaded value
 
       
  3310         and:[ self allowedToChangeImageDimensionAndDepth ] 
       
  3311       ]
 
       
  3312 !
 
       
  3313 
       
  3314 imageIsLoadedAndClassDefined
 
       
  3315     "returns whether an image is loaded as value holder"
 
       
  3316 
       
  3317     ^ [self hasClassAndSelectorDefined value
 
       
  3318        and:[self imageIsLoaded value]]
 
       
  3319 
       
  3320     "Created: / 31.7.1998 / 02:04:18 / cg"
 
       
  3321 !
 
  3351 !
 
  3322 
  3352 
  3323 listOfColors
 
  3353 listOfColors
 
  3324     "returns the list of colors"
 
  3354     "returns the list of colors"
 
  3325 
  3355 
  3341         holder := AspectAdaptor new subject:self; forAspect:#magnification)
 
  3371         holder := AspectAdaptor new subject:self; forAspect:#magnification)
 
  3342     ].
 
  3372     ].
 
  3343     ^ holder
 
  3373     ^ holder
 
  3344 !
 
  3374 !
 
  3345 
  3375 
  3346 previewBackgroundColor
 
  3376 previewBackgroundColorHolder
 
  3347     |holder|
 
  3377     |holder|
 
       
  3378 
  3348     (holder := builder bindingAt:#previewBackgroundColor) isNil ifTrue:[
 
  3379     (holder := builder bindingAt:#previewBackgroundColor) isNil ifTrue:[
 
  3349         builder aspectAt:#previewBackgroundColor put:(holder := nil asValue).
 
  3380         builder aspectAt:#previewBackgroundColor put:(holder := nil asValue).
 
  3350         holder addDependent:self.
 
  3381         holder addDependent:self.
 
  3351     ].
 
  3382     ].
 
  3352     ^ holder
 
  3383     ^ holder
 
       
  3384 
       
  3385     "Created: / 04-07-2010 / 10:19:34 / cg"
 
  3353 !
 
  3386 !
 
  3354 
  3387 
  3355 selectionOfColor
 
  3388 selectionOfColor
 
  3356     "returns a valueHolder for the current selection of the edit color.
 
  3389     "returns a valueHolder for the current selection of the edit color.
 
  3357      Here, an AspectAdaptor which accesses selectedColorIndex is returned."
 
  3390      Here, an AspectAdaptor which accesses selectedColorIndex is returned."
 
  3455             tileMode:(changedObject value) tileOffset:(img extent);
 
  3488             tileMode:(changedObject value) tileOffset:(img extent);
 
  3456             clear; 
  3489             clear; 
  3457             invalidate.
 
  3490             invalidate.
 
  3458         ^ self
 
  3491         ^ self
 
  3459     ].
 
  3492     ].
 
  3460     changedObject == self previewBackgroundColor ifTrue:[
 
  3493     changedObject == self previewBackgroundColorHolder ifTrue:[
 
  3461         clr := changedObject value isNil 
  3494         clr := changedObject value isNil 
  3462                     ifTrue:[imageEditView viewBackground]
 
  3495                     ifTrue:[imageEditView viewBackground]
 
  3463                     ifFalse:[Color perform:changedObject value].
 
  3496                     ifFalse:[Color perform:changedObject value].
 
  3464         imagePreView 
  3497         imagePreView 
  3465             viewBackground:clr;
 
  3498             viewBackground:clr;
 
  3543         ^ self.
 
  3576         ^ self.
 
  3544     ].
 
  3577     ].
 
  3545 
  3578 
  3546     super update:something with:aParameter from:changedObject
 
  3579     super update:something with:aParameter from:changedObject
 
  3547 
  3580 
  3548     "Modified: / 10.2.2000 / 23:36:49 / cg"
 
  3581     "Modified: / 04-07-2010 / 10:19:51 / cg"
 
  3549 !
 
  3582 !
 
  3550 
  3583 
  3551 updateColorsFromImage:image
 
  3584 updateColorsFromImage:image
 
  3552     |colors|
 
  3585     |colors|
 
  3553 
  3586 
  3563 !
 
  3596 !
 
  3564 
  3597 
  3565 updateForNoImage
 
  3598 updateForNoImage
 
  3566     "updates channels and view, if image is loaded"
 
  3599     "updates channels and view, if image is loaded"
 
  3567 
  3600 
  3568     self imageIsLoaded value: false.
 
  3601     self imageIsLoadedHolder value: false.
 
  3569     self listOfColors removeAll.
 
  3602     self listOfColors removeAll.
 
  3570     self imagePreView image: nil
 
  3603     self imagePreView image: nil
 
  3571 
  3604 
  3572 
  3605     "Modified: / 04-07-2010 / 10:15:55 / cg"
 
  3573 
       
  3574 
       
  3575 !
 
  3606 !
 
  3576 
  3607 
  3577 updateLabelsAndHistory
 
  3608 updateLabelsAndHistory
 
  3578     "updates labels and history, if something has changed"
 
  3609     "updates labels and history, if something has changed"
 
  3579 
  3610 
  3580     |image|
 
  3611     |image|
 
  3581 
  3612 
  3582     image := self image.
 
  3613     image := self image.
 
  3583 
  3614 
  3584     self imageIsLoaded value: image notNil.
 
  3615     self imageIsLoadedHolder value: image notNil.
 
  3585     image isNil ifTrue: [^nil].
 
  3616     image isNil ifTrue: [^nil].
 
  3586 
  3617 
  3587     self updateInfoLabel.
 
  3618     self updateInfoLabel.
 
  3588 
  3619 
  3589     imageEditView resourceClass notNil ifTrue:[
 
  3620     imageEditView resourceClass notNil ifTrue:[
 
  3593     ].
 
  3624     ].
 
  3594 
  3625 
  3595     image fileName notNil ifTrue: [
 
  3626     image fileName notNil ifTrue: [
 
  3596         self addHistoryEntryForFile:image fileName.
 
  3627         self addHistoryEntryForFile:image fileName.
 
  3597     ].
 
  3628     ].
 
       
  3629 
       
  3630     "Modified: / 04-07-2010 / 10:16:02 / cg"
 
  3598 !
 
  3631 !
 
  3599 
  3632 
  3600 updateListOfColorsAndColormapMode
 
  3633 updateListOfColorsAndColormapMode
 
  3601     |selectedColor colorMap image|
 
  3634     |selectedColor colorMap image|
 
  3602 
  3635
hg/stx-libtool2