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 3592 149f58a2a522
parent 3586 87081b50bb22
child 3598 76dd8e2f2fd8
equal deleted inserted replaced
3591:ed5a8bd176e3 3592:149f58a2a522 
  2790      by the MenuEditor of ST/X."
 
  2790      by the MenuEditor of ST/X."
 
  2791 
  2791 
  2792     "Do not manually edit this!! If it is corrupted,
 
  2792     "Do not manually edit this!! If it is corrupted,
 
  2793      the MenuEditor may not be able to read the specification."
 
  2793      the MenuEditor may not be able to read the specification."
 
  2794 
  2794 
       
  2795 
  2795     "
 
  2796     "
 
  2796      MenuEditor new openOnClass:ImageEditor andSelector:#colorMapMenu
 
  2797      MenuEditor new openOnClass:ImageEditor andSelector:#colorMapMenu
 
  2797      (Menu new fromLiteralArrayEncoding:(ImageEditor colorMapMenu)) startUp
 
  2798      (Menu new fromLiteralArrayEncoding:(ImageEditor colorMapMenu)) startUp
 
  2798     "
 
  2799     "
 
  2799 
  2800 
  2804         (
 
  2805         (
 
  2805          (MenuItem
 
  2806          (MenuItem
 
  2806             enabled: canAddColorToColormapHolder
 
  2807             enabled: canAddColorToColormapHolder
 
  2807             label: 'Add Color'
 
  2808             label: 'Add Color'
 
  2808             itemValue: addColorToColormap
 
  2809             itemValue: addColorToColormap
 
  2809             translateLabel: true
 
       
  2810           )
 
  2810           )
 
  2811          (MenuItem
 
  2811          (MenuItem
 
  2812             enabled: canAddColorToColormapHolder
 
  2812             enabled: canAddColorToColormapHolder
 
  2813             label: 'Add & Paste Color'
 
  2813             label: 'Add & Paste Color'
 
  2814             itemValue: addPastedColorToColormap
 
  2814             itemValue: addPastedColorToColormap
 
  2815             translateLabel: true
 
       
  2816           )
 
  2815           )
 
  2817          (MenuItem
 
  2816          (MenuItem
 
  2818             enabled: canAddColorToColormapHolder
 
  2817             enabled: canAddColorToColormapHolder
 
  2819             label: 'Pick and Add Color...'
 
  2818             label: 'Pick and Add Color...'
 
  2820             itemValue: pickAndAddColorToColormap
 
  2819             itemValue: pickAndAddColorToColormap
 
  2821             translateLabel: true
 
       
  2822           )
 
  2820           )
 
  2823          (MenuItem
 
  2821          (MenuItem
 
  2824             label: '-'
 
  2822             label: '-'
 
  2825           )
 
  2823           )
 
  2826          (MenuItem
 
  2824          (MenuItem
 
  2827             enabled: hasColormapAndSingleColorSelectedHolder
 
  2825             enabled: hasColormapAndSingleColorSelectedHolder
 
  2828             label: 'Cut Color'
 
  2826             label: 'Cut Color'
 
  2829             itemValue: cutColorFromColormap
 
  2827             itemValue: cutColorFromColormap
 
  2830             translateLabel: true
 
       
  2831             isVisible: false
 
  2828             isVisible: false
 
  2832           )
 
  2829           )
 
  2833          (MenuItem
 
  2830          (MenuItem
 
  2834             enabled: hasSingleColorSelectedHolder
 
  2831             enabled: hasSingleColorSelectedHolder
 
  2835             label: 'Copy Color'
 
  2832             label: 'Copy Color'
 
  2836             itemValue: copyColorFromColormap
 
  2833             itemValue: copyColorFromColormap
 
  2837             translateLabel: true
 
       
  2838             shortcutKey: Copy
 
  2834             shortcutKey: Copy
 
  2839           )
 
  2835           )
 
  2840          (MenuItem
 
  2836          (MenuItem
 
  2841             enabled: hasColormapAndSingleWritableColorSelectedHolder
 
  2837             enabled: hasColormapAndSingleWritableColorSelectedHolder
 
  2842             label: 'Pick and Paste Color...'
 
  2838             label: 'Pick and Paste Color...'
 
  2843             itemValue: pickAndPasteColor
 
  2839             itemValue: pickAndPasteColor
 
  2844             translateLabel: true
 
       
  2845           )
 
  2840           )
 
  2846          (MenuItem
 
  2841          (MenuItem
 
  2847             enabled: canChangeColorInColormapHolder
 
  2842             enabled: canChangeColorInColormapHolder
 
  2848             label: 'Paste Color'
 
  2843             label: 'Paste Color'
 
  2849             itemValue: pasteColorIntoColormap
 
  2844             itemValue: pasteColorIntoColormap
 
  2850             translateLabel: true
 
       
  2851             shortcutKey: Paste
 
  2845             shortcutKey: Paste
 
  2852           )
 
  2846           )
 
  2853          (MenuItem
 
  2847          (MenuItem
 
  2854             label: '-'
 
  2848             label: '-'
 
  2855           )
 
  2849           )
 
  2856          (MenuItem
 
  2850          (MenuItem
 
  2857             enabled: hasColormapAndSingleWritableColorSelectedHolder
 
  2851             enabled: hasColormapAndSingleWritableColorSelectedHolder
 
  2858             label: 'Edit Color...'
 
  2852             label: 'Edit Color...'
 
  2859             itemValue: editSelectedColor
 
  2853             itemValue: editSelectedColor
 
  2860             translateLabel: true
 
  2854           )
 
       
  2855          (MenuItem
 
       
  2856             enabled: hasColormapAndColorSelected
 
       
  2857             label: 'Make Gray'
 
       
  2858             itemValue: makeSelectedColorGray
 
       
  2859           )
 
       
  2860          (MenuItem
 
       
  2861             enabled: hasColormapAndSingleWritableColorSelectedHolder
 
       
  2862             label: 'Color Shift...'
 
       
  2863             itemValue: makeSelectedColorShifted
 
       
  2864           )
 
       
  2865          (MenuItem
 
       
  2866             label: '-'
 
       
  2867           )
 
       
  2868          (MenuItem
 
       
  2869             enabled: hasColormapAndColorSelected
 
       
  2870             label: 'Slightly Brighter'
 
       
  2871             itemValue: makeSelectedColorSlightlyBrighter
 
       
  2872           )
 
       
  2873          (MenuItem
 
       
  2874             enabled: hasColormapAndColorSelected
 
       
  2875             label: 'Slightly Darker'
 
       
  2876             itemValue: makeSelectedColorSlightlyDarker
 
  2861           )
 
  2877           )
 
  2862          (MenuItem
 
  2878          (MenuItem
 
  2863             enabled: hasColormapAndColorSelected
 
  2879             enabled: hasColormapAndColorSelected
 
  2864             label: 'Brighter'
 
  2880             label: 'Brighter'
 
  2865             itemValue: makeSelectedColorBrighter
 
  2881             itemValue: makeSelectedColorBrighter
 
  2866             translateLabel: true
 
       
  2867           )
 
  2882           )
 
  2868          (MenuItem
 
  2883          (MenuItem
 
  2869             enabled: hasColormapAndColorSelected
 
  2884             enabled: hasColormapAndColorSelected
 
  2870             label: 'Darker'
 
  2885             label: 'Darker'
 
  2871             itemValue: makeSelectedColorDarker
 
  2886             itemValue: makeSelectedColorDarker
 
  2872             translateLabel: true
 
       
  2873           )
 
       
  2874          (MenuItem
 
       
  2875             enabled: hasColormapAndColorSelected
 
       
  2876             label: 'Make Gray'
 
       
  2877             itemValue: makeSelectedColorGray
 
       
  2878             translateLabel: true
 
       
  2879           )
 
       
  2880          (MenuItem
 
       
  2881             enabled: hasColormapAndSingleWritableColorSelectedHolder
 
       
  2882             label: 'Color Shift'
 
       
  2883             itemValue: makeSelectedColorShifted
 
       
  2884             translateLabel: true
 
       
  2885           )
 
  2887           )
 
  2886          (MenuItem
 
  2888          (MenuItem
 
  2887             label: '-'
 
  2889             label: '-'
 
  2888           )
 
  2890           )
 
  2889          (MenuItem
 
  2891          (MenuItem
 
  2890             enabled: hasSingleColorSelectedHolder
 
  2892             enabled: hasSingleColorSelectedHolder
 
  2891             label: 'Inspect Color'
 
  2893             label: 'Inspect Color'
 
  2892             itemValue: inspectColor
 
  2894             itemValue: inspectColor
 
  2893             translateLabel: true
 
       
  2894           )
 
  2895           )
 
  2895          (MenuItem
 
  2896          (MenuItem
 
  2896             enabled: imageHasColormapHolder
 
  2897             enabled: imageHasColormapHolder
 
  2897             label: 'Inspect Colormap'
 
  2898             label: 'Inspect Colormap'
 
  2898             itemValue: inspectColormap
 
  2899             itemValue: inspectColormap
 
  2899             translateLabel: true
 
       
  2900           )
 
  2900           )
 
  2901          )
 
  2901          )
 
  2902         nil
 
  2902         nil
 
  2903         nil
 
  2903         nil
 
  2904       )
 
  2904       )
 
  2905 
       
  2906     "Modified: / 08-10-2017 / 15:02:33 / cg"
 
       
  2907 !
 
  2905 !
 
  2908 
  2906 
  2909 menu
 
  2907 menu
 
  2910     "This resource specification was automatically generated
 
  2908     "This resource specification was automatically generated
 
  2911      by the MenuEditor of ST/X."
 
  2909      by the MenuEditor of ST/X."
 
  7452     cmapOffset := self hasTransparentColorInColorList ifTrue:[1] ifFalse:[0].
 
  7450     cmapOffset := self hasTransparentColorInColorList ifTrue:[1] ifFalse:[0].
 
  7453     colors := self selectedColors value collect:[:idx | cMap at:idx-cmapOffset].
 
  7451     colors := self selectedColors value collect:[:idx | cMap at:idx-cmapOffset].
 
  7454     self changeHLSOfColors:colors.
 
  7452     self changeHLSOfColors:colors.
 
  7455 
  7453 
  7456     "Modified: / 05-09-2017 / 09:03:47 / cg"
 
  7454     "Modified: / 05-09-2017 / 09:03:47 / cg"
 
       
  7455 !
 
       
  7456 
       
  7457 makeSelectedColorSlightlyBrighter
 
       
  7458     self processSelectedColorsWith:[:clr | clr slightlyLightened]
 
       
  7459 !
 
       
  7460 
       
  7461 makeSelectedColorSlightlyDarker
 
       
  7462     self processSelectedColorsWith:[:clr | clr slightlyDarkened]
 
  7457 !
 
  7463 !
 
  7458 
  7464 
  7459 makeSlightlyBrighter
 
  7465 makeSlightlyBrighter
 
  7460     self updateImageAfterDoing:#makeSlightlyBrighter.
 
  7466     self updateImageAfterDoing:#makeSlightlyBrighter.
 
  7461 
  7467
hg/stx-libtool2