ImageEditor.st
changeset 3625 b05e45a69b82
parent 3624 2b1381d671fc
child 3635 74101a749a34
equal deleted inserted replaced
3624:2b1381d671fc 3625:b05e45a69b82
  9234                     {(resources string:'Image Files'). '*.tif;*.png;*.gif;*.bmp;*.jpg'}.
  9234                     {(resources string:'Image Files'). '*.tif;*.png;*.gif;*.bmp;*.jpg'}.
  9235                     {(resources string:'All Files').   '*.*'} 
  9235                     {(resources string:'All Files').   '*.*'} 
  9236                 }
  9236                 }
  9237                 filterIndex:nil
  9237                 filterIndex:nil
  9238                 trueForSave:false
  9238                 trueForSave:false
       
  9239                 trueForMultiSelect:false
  9239                 trueForPromptOverwrite:false.
  9240                 trueForPromptOverwrite:false.
  9240         ].
  9241         ].
  9241     ] ifFalse:[    
  9242     ] ifFalse:[    
  9242         filters := FileSelectionBrowser loadImageFileNameFilters.
  9243         filters := FileSelectionBrowser loadImageFileNameFilters.
  9243         file notNil ifTrue:[
  9244         file notNil ifTrue:[
  9257         LastDirectory := file asFilename directoryName.
  9258         LastDirectory := file asFilename directoryName.
  9258         self loadFromFile:file
  9259         self loadFromFile:file
  9259     ]
  9260     ]
  9260 
  9261 
  9261     "Modified: / 16-02-2017 / 10:53:41 / cg"
  9262     "Modified: / 16-02-2017 / 10:53:41 / cg"
  9262     "Modified: / 24-10-2018 / 13:16:05 / sr"
  9263     "Modified: / 25-10-2018 / 10:55:54 / sr"
  9263 !
  9264 !
  9264 
  9265 
  9265 doLoadFromURL
  9266 doLoadFromURL
  9266     "opens a dialog for loading an image from a URL"
  9267     "opens a dialog for loading an image from a URL"
  9267 
  9268 
  9577                 filter:{
  9578                 filter:{
  9578                     {(resources string:'Image Files'). '*.tif;*.png;*.gif;*.bmp'}.
  9579                     {(resources string:'Image Files'). '*.tif;*.png;*.gif;*.bmp'}.
  9579                     {(resources string:'All Files').   '*.*'} 
  9580                     {(resources string:'All Files').   '*.*'} 
  9580                 }
  9581                 }
  9581                 filterIndex:nil
  9582                 filterIndex:nil
  9582                 trueForSave:true
  9583                 trueForSave:true    
       
  9584                 trueForMultiSelect:false
  9583                 trueForPromptOverwrite:true.    
  9585                 trueForPromptOverwrite:true.    
  9584         ].
  9586         ].
  9585     ] ifFalse:[ 
  9587     ] ifFalse:[ 
  9586         img fileName isNil ifTrue:[
  9588         img fileName isNil ifTrue:[
  9587             LastDirectory notNil ifTrue:[
  9589             LastDirectory notNil ifTrue:[
  9623         self updateLabelsAndHistory.
  9625         self updateLabelsAndHistory.
  9624         self clearModifiedAndRememberImageSavedAsFile:file.
  9626         self clearModifiedAndRememberImageSavedAsFile:file.
  9625     ]
  9627     ]
  9626 
  9628 
  9627     "Modified: / 27-02-2017 / 01:26:05 / cg"
  9629     "Modified: / 27-02-2017 / 01:26:05 / cg"
  9628     "Modified: / 24-10-2018 / 13:16:14 / sr"
  9630     "Modified: / 25-10-2018 / 10:56:01 / sr"
  9629 !
  9631 !
  9630 
  9632 
  9631 doSaveImageMaskFileAs
  9633 doSaveImageMaskFileAs
  9632     "opens a dialog for saving mask of current image to a file"
  9634     "opens a dialog for saving mask of current image to a file"
  9633 
  9635