ImageEditor.st
changeset 1309 0a45ef81b47e
parent 1250 644ed357b524
child 1329 a38c2e29d1fb
equal deleted inserted replaced
1308:e0bf7aae9c51 1309:0a45ef81b47e
   941                 )
   941                 )
   942                #(#MenuItem
   942                #(#MenuItem
   943                   #label: '-'
   943                   #label: '-'
   944                 )
   944                 )
   945                #(#MenuItem
   945                #(#MenuItem
       
   946                   #label: 'Show storeString'
       
   947                   #translateLabel: true
       
   948                   #value: #doShowStoreString
       
   949                   #activeHelpKey: #fileShowStoreString
       
   950                   #enabled: #imageIsLoaded
       
   951                 )
       
   952                #(#MenuItem
       
   953                   #label: '-'
       
   954                 )
       
   955                #(#MenuItem
   946                   #label: 'Print'
   956                   #label: 'Print'
   947                   #translateLabel: true
   957                   #translateLabel: true
   948                   #value: #doPrint
   958                   #value: #doPrint
   949                   #activeHelpKey: #filePrint
   959                   #activeHelpKey: #filePrint
   950                   #enabled: #imageIsLoaded
   960                   #enabled: #imageIsLoaded
  2787     imageEditView saveMethodAs notNil
  2797     imageEditView saveMethodAs notNil
  2788     ifTrue:
  2798     ifTrue:
  2789     [
  2799     [
  2790         self updateLabelsAndHistory
  2800         self updateLabelsAndHistory
  2791     ]
  2801     ]
       
  2802 !
       
  2803 
       
  2804 doShowStoreString
       
  2805     "opens a dialog showing the storeString
       
  2806      (sometimes useful to embed an image into source code)"
       
  2807 
       
  2808     |img|
       
  2809 
       
  2810     img := imageEditView image.
       
  2811     TextBox openOn:img storeString
  2792 ! !
  2812 ! !
  2793 
  2813 
  2794 !ImageEditor class methodsFor:'documentation'!
  2814 !ImageEditor class methodsFor:'documentation'!
  2795 
  2815 
  2796 version
  2816 version