ImageEditor.st
changeset 3022 4cdf177f5976
parent 3020 7ee98e6a7aab
child 3027 50657c666fdc
equal deleted inserted replaced
3021:3cdebdf0071d 3022:4cdf177f5976
  2535      by the MenuEditor of ST/X."
  2535      by the MenuEditor of ST/X."
  2536 
  2536 
  2537     "Do not manually edit this!! If it is corrupted,
  2537     "Do not manually edit this!! If it is corrupted,
  2538      the MenuEditor may not be able to read the specification."
  2538      the MenuEditor may not be able to read the specification."
  2539 
  2539 
       
  2540 
  2540     "
  2541     "
  2541      MenuEditor new openOnClass:ImageEditor andSelector:#menuFile
  2542      MenuEditor new openOnClass:ImageEditor andSelector:#menuFile
  2542      (Menu new fromLiteralArrayEncoding:(ImageEditor menuFile)) startUp
  2543      (Menu new fromLiteralArrayEncoding:(ImageEditor menuFile)) startUp
  2543     "
  2544     "
  2544 
  2545 
  2549         (
  2550         (
  2550          (MenuItem
  2551          (MenuItem
  2551             activeHelpKey: fileNewImageEditor
  2552             activeHelpKey: fileNewImageEditor
  2552             label: 'New ImageEditor'
  2553             label: 'New ImageEditor'
  2553             itemValue: doNewImageEditor
  2554             itemValue: doNewImageEditor
  2554             translateLabel: true
       
  2555           )
  2555           )
  2556          (MenuItem
  2556          (MenuItem
  2557             label: '-'
  2557             label: '-'
  2558           )
  2558           )
  2559          (MenuItem
  2559          (MenuItem
  2560             activeHelpKey: fileNewImage
  2560             activeHelpKey: fileNewImage
  2561             label: 'New...'
  2561             label: 'New...'
  2562             itemValue: doNewImage
  2562             itemValue: doNewImage
  2563             translateLabel: true
       
  2564           )
  2563           )
  2565          (MenuItem
  2564          (MenuItem
  2566             activeHelpKey: fileNewImage
  2565             activeHelpKey: fileNewImage
  2567             label: 'New from ClipBoard'
  2566             label: 'New from ClipBoard'
  2568             itemValue: doNewImageFromClipboard
  2567             itemValue: doNewImageFromClipboard
  2569             translateLabel: true
       
  2570           )
  2568           )
  2571          (MenuItem
  2569          (MenuItem
  2572             label: '-'
  2570             label: '-'
  2573           )
  2571           )
  2574          (MenuItem
  2572          (MenuItem
  2575             activeHelpKey: fileLoadFromClass
  2573             activeHelpKey: fileLoadFromClass
  2576             label: 'Load...'
  2574             label: 'Load...'
  2577             itemValue: doLoadFromClass
  2575             itemValue: doLoadFromClass
  2578             translateLabel: true
       
  2579           )
  2576           )
  2580          (MenuItem
  2577          (MenuItem
  2581             activeHelpKey: fileLoadFromFile
  2578             activeHelpKey: fileLoadFromFile
  2582             label: 'Load from File...'
  2579             label: 'Load from File...'
  2583             itemValue: doLoadFromFile
  2580             itemValue: doLoadFromFile
  2584             translateLabel: true
       
  2585           )
  2581           )
  2586          (MenuItem
  2582          (MenuItem
  2587             activeHelpKey: fileLoadFromURL
  2583             activeHelpKey: fileLoadFromURL
  2588             label: 'Load from URL...'
  2584             label: 'Load from URL...'
  2589             itemValue: doLoadFromURL
  2585             itemValue: doLoadFromURL
  2590             translateLabel: true
       
  2591           )
  2586           )
  2592          (MenuItem
  2587          (MenuItem
  2593             label: 'Grab'
  2588             label: 'Grab'
  2594             translateLabel: true
       
  2595             submenu: 
  2589             submenu: 
  2596            (Menu
  2590            (Menu
  2597               (
  2591               (
  2598                (MenuItem
  2592                (MenuItem
  2599                   activeHelpKey: fileGrabImageFromScreen
  2593                   activeHelpKey: fileGrabImageFromScreen
  2600                   label: 'Grab from Screen Area...'
  2594                   label: 'Grab from Screen Area...'
  2601                   itemValue: grabScreenImage
  2595                   itemValue: grabScreenImage
  2602                   translateLabel: true
       
  2603                 )
  2596                 )
  2604                (MenuItem
  2597                (MenuItem
  2605                   activeHelpKey: fileGrabImageFromScreen
  2598                   activeHelpKey: fileGrabImageFromScreen
  2606                   enabled: hasLastGrabScreenArea
  2599                   enabled: hasLastGrabScreenArea
  2607                   label: 'Grab again from same Screen Area'
  2600                   label: 'Grab again from same Screen Area'
  2608                   itemValue: grabScreenImageFromLastArea
  2601                   itemValue: grabScreenImageFromLastArea
  2609                   translateLabel: true
       
  2610                 )
  2602                 )
  2611                (MenuItem
  2603                (MenuItem
  2612                   label: '-'
  2604                   label: '-'
  2613                 )
  2605                 )
  2614                (MenuItem
  2606                (MenuItem
  2615                   activeHelpKey: fileGrabImageFromWindow
  2607                   activeHelpKey: fileGrabImageFromWindow
  2616                   label: 'Grab from Window...'
  2608                   label: 'Grab from Window...'
  2617                   itemValue: grabWindowImage
  2609                   itemValue: grabWindowImage
  2618                   translateLabel: true
       
  2619                 )
  2610                 )
  2620                )
  2611                )
  2621               nil
  2612               nil
  2622               nil
  2613               nil
  2623             )
  2614             )
  2628          (MenuItem
  2619          (MenuItem
  2629             activeHelpKey: fileSaveMethod
  2620             activeHelpKey: fileSaveMethod
  2630             enabled: imageIsLoadedAndClassDefined
  2621             enabled: imageIsLoadedAndClassDefined
  2631             label: 'Save'
  2622             label: 'Save'
  2632             itemValue: doSaveMethod
  2623             itemValue: doSaveMethod
  2633             translateLabel: true
       
  2634           )
  2624           )
  2635          (MenuItem
  2625          (MenuItem
  2636             activeHelpKey: fileSaveMethodAs
  2626             activeHelpKey: fileSaveMethodAs
  2637             enabled: imageIsLoadedHolder
  2627             enabled: imageIsLoadedHolder
  2638             label: 'Save As...'
  2628             label: 'Save As...'
  2639             itemValue: doSaveMethodAs
  2629             itemValue: doSaveMethodAs
  2640             translateLabel: true
       
  2641           )
  2630           )
  2642          (MenuItem
  2631          (MenuItem
  2643             activeHelpKey: fileSaveAs
  2632             activeHelpKey: fileSaveAs
  2644             enabled: imageIsLoadedHolder
  2633             enabled: imageIsLoadedHolder
  2645             label: 'Save to File...'
  2634             label: 'Save to File...'
  2646             itemValue: doSaveImageFileAs
  2635             itemValue: doSaveImageFileAs
  2647             translateLabel: true
       
  2648           )
  2636           )
  2649          (MenuItem
  2637          (MenuItem
  2650             activeHelpKey: fileSaveMaskAs
  2638             activeHelpKey: fileSaveMaskAs
  2651             enabled: imageIsLoadedHolder
  2639             enabled: imageIsLoadedHolder
  2652             label: 'Save Mask to File...'
  2640             label: 'Save Mask to File...'
  2653             itemValue: doSaveImageMaskFileAs
  2641             itemValue: doSaveImageMaskFileAs
  2654             translateLabel: true
       
  2655           )
  2642           )
  2656          (MenuItem
  2643          (MenuItem
  2657             activeHelpKey: fileSaveButtonImageAs
  2644             activeHelpKey: fileSaveButtonImageAs
  2658             enabled: imageIsLoadedHolder
  2645             enabled: imageIsLoadedHolder
  2659             label: 'Save as Button to File...'
  2646             label: 'Save as Button to File...'
  2660             itemValue: doSaveButtonImageToFileAs
  2647             itemValue: doSaveButtonImageToFileAs
  2661             translateLabel: true
       
  2662           )
  2648           )
  2663          (MenuItem
  2649          (MenuItem
  2664             label: '-'
  2650             label: '-'
  2665           )
  2651           )
  2666          (MenuItem
  2652          (MenuItem
  2667             activeHelpKey: filePrint
  2653             activeHelpKey: filePrint
  2668             enabled: imageIsLoadedHolder
  2654             enabled: imageIsLoadedHolder
  2669             label: 'Print'
  2655             label: 'Print'
  2670             itemValue: doPrint
  2656             itemValue: doPrint
  2671             translateLabel: true
       
  2672           )
  2657           )
  2673          (MenuItem
  2658          (MenuItem
  2674             label: '-'
  2659             label: '-'
  2675             isVisible: isStandAlone
  2660             isVisible: isStandAlone
  2676           )
  2661           )
  2677          (MenuItem
  2662          (MenuItem
  2678             activeHelpKey: fileBrowseClass
  2663             activeHelpKey: fileBrowseClass
  2679             enabled: hasClassDefinedHolder
  2664             enabled: hasClassDefinedHolder
  2680             label: 'Browse Class'
  2665             label: 'Browse Class'
  2681             itemValue: doBrowseClass
  2666             itemValue: doBrowseClass
  2682             translateLabel: true
       
  2683             isVisible: isStandAlone
  2667             isVisible: isStandAlone
  2684           )
  2668           )
  2685          (MenuItem
  2669          (MenuItem
  2686             enabled: imageIsLoadedHolder
  2670             enabled: imageIsLoadedHolder
  2687             label: 'Inspect Image'
  2671             label: 'Inspect Image'
  2688             itemValue: doInspectImage
  2672             itemValue: doInspectImage
  2689             translateLabel: true
       
  2690             isVisible: isStandAlone
  2673             isVisible: isStandAlone
  2691           )
  2674           )
  2692          (MenuItem
  2675          (MenuItem
  2693             activeHelpKey: fileShowStoreString
  2676             activeHelpKey: fileShowStoreString
  2694             enabled: imageIsLoadedHolder
  2677             enabled: imageIsLoadedHolder
  2695             label: 'Show storeString'
  2678             label: 'Show storeString'
  2696             itemValue: doShowStoreString
  2679             itemValue: doShowStoreString
  2697             translateLabel: true
  2680           )
       
  2681          (MenuItem
       
  2682             activeHelpKey: fileShowStoreString
       
  2683             enabled: imageIsLoadedHolder
       
  2684             label: 'Show Pixel Array Literal String'
       
  2685             itemValue: doShowPixelArrayLiteralString
  2698           )
  2686           )
  2699          (MenuItem
  2687          (MenuItem
  2700             label: '-'
  2688             label: '-'
  2701             isVisible: isStandAlone
  2689             isVisible: isStandAlone
  2702           )
  2690           )
  2703          (MenuItem
  2691          (MenuItem
  2704             activeHelpKey: fileExit
  2692             activeHelpKey: fileExit
  2705             label: 'Exit'
  2693             label: 'Exit'
  2706             itemValue: closeRequest
  2694             itemValue: closeRequest
  2707             translateLabel: true
       
  2708             isVisible: isStandAlone
  2695             isVisible: isStandAlone
  2709           )
  2696           )
  2710          )
  2697          )
  2711         nil
  2698         nil
  2712         nil
  2699         nil
  2713       )
  2700       )
  2714 
       
  2715     "Modified: / 01-02-2012 / 15:00:50 / cg"
       
  2716 !
  2701 !
  2717 
  2702 
  2718 menuMouseButtonColors
  2703 menuMouseButtonColors
  2719     "This resource specification was automatically generated
  2704     "This resource specification was automatically generated
  2720      by the MenuEditor of ST/X."
  2705      by the MenuEditor of ST/X."
  6688         self updateLabelsAndHistory.
  6673         self updateLabelsAndHistory.
  6689         self clearModified.
  6674         self clearModified.
  6690     ]
  6675     ]
  6691 !
  6676 !
  6692 
  6677 
       
  6678 doShowPixelArrayLiteralString
       
  6679     "opens a dialog showing a literal array-like storeString
       
  6680      (sometimes useful to embed an image into source code)"
       
  6681 
       
  6682     |img|
       
  6683 
       
  6684     img := imageEditView image.
       
  6685     TextBox openOn:img bits storeString
       
  6686 !
       
  6687 
  6693 doShowStoreString
  6688 doShowStoreString
  6694     "opens a dialog showing the storeString
  6689     "opens a dialog showing the storeString
  6695      (sometimes useful to embed an image into source code)"
  6690      (sometimes useful to embed an image into source code)"
  6696 
  6691 
  6697     |img|
  6692     |img|