ImageEditor.st
changeset 2826 653494536b68
parent 2821 850aa6d37ea3
child 2827 c99d2c520b28
equal deleted inserted replaced
2825:49853e842335 2826:653494536b68
  1998               (
  1998               (
  1999                (MenuItem
  1999                (MenuItem
  2000                   activeHelpKey: compressColormap
  2000                   activeHelpKey: compressColormap
  2001                   enabled: hasColormapHolder
  2001                   enabled: hasColormapHolder
  2002                   label: 'Compress Colormap'
  2002                   label: 'Compress Colormap'
  2003                   itemValue: menu_compressColorMap
  2003                   itemValue: #'menu_compressColorMap'
  2004                   translateLabel: true
  2004                   translateLabel: true
  2005                 )
  2005                 )
  2006                (MenuItem
  2006                (MenuItem
  2007                   enabled: hasColormapHolder
  2007                   enabled: hasColormapHolder
  2008                   label: 'Sort Colormap'
  2008                   label: 'Sort Colormap'
  2009                   itemValue: menu_sortColorMap
  2009                   itemValue: #'menu_sortColorMap'
  2010                   translateLabel: true
  2010                   translateLabel: true
  2011                 )
  2011                 )
  2012                (MenuItem
  2012                (MenuItem
  2013                   label: 'Reduce Number of Colors by Rounding...'
  2013                   label: 'Reduce Number of Colors by Rounding...'
  2014                   itemValue: reduceNumberOfColors2
  2014                   itemValue: reduceNumberOfColors2
  2061                   label: 'Make GrayScale'
  2061                   label: 'Make GrayScale'
  2062                   itemValue: makeGrayScaleImage
  2062                   itemValue: makeGrayScaleImage
  2063                   translateLabel: true
  2063                   translateLabel: true
  2064                 )
  2064                 )
  2065                (MenuItem
  2065                (MenuItem
  2066                   enabled: allowedToChangeImageDimensionAndDepth 
  2066                   enabled: allowedToChangeImageDimensionAndDepth
  2067                   label: 'Make dithered 8Bit Palette'
  2067                   label: 'Make dithered 8Bit Palette'
  2068                   itemValue: makeDitheredPaletteImage
  2068                   itemValue: makeDitheredPaletteImage
  2069                   translateLabel: true
  2069                   translateLabel: true
  2070                   isVisible: false
  2070                   isVisible: false
  2071                 )
  2071                 )
  2072                (MenuItem
  2072                (MenuItem
       
  2073                   label: 'Make Inverse'
       
  2074                   itemValue: makeInverse
       
  2075                   translateLabel: true
       
  2076                 )
       
  2077                (MenuItem
       
  2078                   label: '-'
       
  2079                 )
       
  2080                (MenuItem
       
  2081                   label: 'Make Slightly Brighter'
       
  2082                   itemValue: makeSlightlyBrighter
       
  2083                   translateLabel: true
       
  2084                 )
       
  2085                (MenuItem
       
  2086                   label: 'Make Slightly Darker'
       
  2087                   itemValue: makeSlightlyDarker
       
  2088                   translateLabel: true
       
  2089                 )
       
  2090                (MenuItem
       
  2091                   label: '-'
       
  2092                 )
       
  2093                (MenuItem
  2073                   label: 'Make Brighter'
  2094                   label: 'Make Brighter'
  2074                   itemValue: makeBrighter
  2095                   itemValue: makeBrighter
  2075                   translateLabel: true
  2096                   translateLabel: true
  2076                 )
  2097                 )
  2077                (MenuItem
  2098                (MenuItem
  2078                   label: 'Make Darker'
  2099                   label: 'Make Darker'
  2079                   itemValue: makeDarker
  2100                   itemValue: makeDarker
  2080                   translateLabel: true
       
  2081                 )
       
  2082                (MenuItem
       
  2083                   label: 'Make Inverse'
       
  2084                   itemValue: makeInverse
       
  2085                   translateLabel: true
  2101                   translateLabel: true
  2086                 )
  2102                 )
  2087                (MenuItem
  2103                (MenuItem
  2088                   label: '-'
  2104                   label: '-'
  2089                 )
  2105                 )
  2111               (
  2127               (
  2112                (MenuItem
  2128                (MenuItem
  2113                   activeHelpKey: copyMask
  2129                   activeHelpKey: copyMask
  2114                   enabled: hasMask
  2130                   enabled: hasMask
  2115                   label: 'Copy Mask'
  2131                   label: 'Copy Mask'
  2116                   itemValue: menu_copyMask
  2132                   itemValue: #'menu_copyMask'
  2117                   translateLabel: true
  2133                   translateLabel: true
  2118                 )
  2134                 )
  2119                (MenuItem
  2135                (MenuItem
  2120                   activeHelpKey: pasteMask
  2136                   activeHelpKey: pasteMask
  2121                   enabled: hasMask
  2137                   enabled: hasMask
  2122                   label: 'Paste Mask'
  2138                   label: 'Paste Mask'
  2123                   itemValue: menu_pasteMask
  2139                   itemValue: #'menu_pasteMask'
  2124                   translateLabel: true
  2140                   translateLabel: true
  2125                 )
  2141                 )
  2126                (MenuItem
  2142                (MenuItem
  2127                   enabled: hasMask
  2143                   enabled: hasMask
  2128                   label: 'Clear Masked Pixels'
  2144                   label: 'Clear Masked Pixels'
  2129                   itemValue: menu_clearMaskedPixels
  2145                   itemValue: #'menu_clearMaskedPixels'
  2130                   translateLabel: true
  2146                   translateLabel: true
  2131                 )
  2147                 )
  2132                (MenuItem
  2148                (MenuItem
  2133                   enabled: hasMask
  2149                   enabled: hasMask
  2134                   label: 'Clear Colormap Entry for Masked Pixels'
  2150                   label: 'Clear Colormap Entry for Masked Pixels'
  2135                   itemValue: menu_clearColormapEntry0AndMaskedPixels
  2151                   itemValue: #'menu_clearColormapEntry0AndMaskedPixels'
  2136                   translateLabel: true
  2152                   translateLabel: true
  2137                 )
  2153                 )
  2138                )
  2154                )
  2139               nil
  2155               nil
  2140               nil
  2156               nil
  2142           )
  2158           )
  2143          )
  2159          )
  2144         nil
  2160         nil
  2145         nil
  2161         nil
  2146       )
  2162       )
  2147 
       
  2148     "Modified: / 04-07-2010 / 10:16:23 / cg"
       
  2149 !
  2163 !
  2150 
  2164 
  2151 menuEdit
  2165 menuEdit
  2152     "This resource specification was automatically generated
  2166     "This resource specification was automatically generated
  2153      by the MenuEditor of ST/X."
  2167      by the MenuEditor of ST/X."
  5152 
  5166 
  5153 makeSelectedColorGray
  5167 makeSelectedColorGray
  5154     self processSelectedColorWith:[:clr | Color brightness:(clr brightness)]
  5168     self processSelectedColorWith:[:clr | Color brightness:(clr brightness)]
  5155 !
  5169 !
  5156 
  5170 
       
  5171 makeSlightlyBrighter
       
  5172     | anyChange|
       
  5173 
       
  5174     self withExecuteCursorDo:[
       
  5175         anyChange := imageEditView makeSlightlyBrighter.
       
  5176         anyChange ifFalse:[
       
  5177             Dialog warn:'Image unchanged'.
       
  5178         ] ifTrue:[
       
  5179             self updateImage.
       
  5180         ]
       
  5181     ].
       
  5182 
       
  5183     "Created: / 24-11-2010 / 11:06:11 / cg"
       
  5184 !
       
  5185 
       
  5186 makeSlightlyDarker
       
  5187     | anyChange|
       
  5188 
       
  5189     self withExecuteCursorDo:[
       
  5190         anyChange := imageEditView makeSlightlyDarker.
       
  5191         anyChange ifFalse:[
       
  5192             Dialog warn:'Image unchanged'.
       
  5193         ] ifTrue:[
       
  5194             self updateImage.
       
  5195         ]
       
  5196     ].
       
  5197 
       
  5198     "Created: / 24-11-2010 / 11:06:23 / cg"
       
  5199 !
       
  5200 
  5157 menu_clearColormapEntry0AndMaskedPixels
  5201 menu_clearColormapEntry0AndMaskedPixels
  5158     "ensure that there is a colorMap entry with 0/0/0 at position
  5202     "ensure that there is a colorMap entry with 0/0/0 at position
  5159      0 and then clear all masked pixels (to pixelValue 0)"
  5203      0 and then clear all masked pixels (to pixelValue 0)"
  5160 
  5204 
  5161     imageEditView makeUndo.
  5205     imageEditView makeUndo.