equal
deleted
inserted
replaced
6166 filter: |
6166 filter: |
6167 { |
6167 { |
6168 { (resources string:'Image Files') . '*.tif;*.png;*.gif;*.bmp;*.jpg' } . |
6168 { (resources string:'Image Files') . '*.tif;*.png;*.gif;*.bmp;*.jpg' } . |
6169 { (resources string:'All Files') . '*.*' } |
6169 { (resources string:'All Files') . '*.*' } |
6170 } |
6170 } |
6171 extension:'png' |
6171 extension:nil |
6172 blocking:false. |
6172 blocking:false. |
6173 ]. |
6173 ]. |
6174 ] ifFalse:[ |
6174 ] ifFalse:[ |
6175 filters := FileSelectionBrowser loadImageFileNameFilters. |
6175 filters := FileSelectionBrowser loadImageFileNameFilters. |
6176 file notNil ifTrue:[ |
6176 file notNil ifTrue:[ |
6189 file notNil ifTrue:[ |
6189 file notNil ifTrue:[ |
6190 LastDirectory := file asFilename directoryName. |
6190 LastDirectory := file asFilename directoryName. |
6191 self loadFromFile:file |
6191 self loadFromFile:file |
6192 ] |
6192 ] |
6193 |
6193 |
6194 "Modified: / 09-11-2010 / 14:25:56 / cg" |
6194 "Modified: / 09-11-2010 / 14:28:19 / cg" |
6195 ! |
6195 ! |
6196 |
6196 |
6197 doLoadFromURL |
6197 doLoadFromURL |
6198 "opens a dialog for loading an image from a URL" |
6198 "opens a dialog for loading an image from a URL" |
6199 |
6199 |
6421 filter: |
6421 filter: |
6422 { |
6422 { |
6423 { (resources string:'Image Files') . '*.tif;*.png;*.gif;*.bmp' } . |
6423 { (resources string:'Image Files') . '*.tif;*.png;*.gif;*.bmp' } . |
6424 { (resources string:'All Files') . '*.*' } |
6424 { (resources string:'All Files') . '*.*' } |
6425 } |
6425 } |
6426 extension:'png' |
6426 extension:nil |
6427 blocking:false. |
6427 blocking:false. |
6428 ]. |
6428 ]. |
6429 ] ifFalse:[ |
6429 ] ifFalse:[ |
6430 (FileSelectionBrowser isNil or:[DirectoryView isNil]) ifTrue:[ |
6430 (FileSelectionBrowser isNil or:[DirectoryView isNil]) ifTrue:[ |
6431 file notNil ifTrue:[ |
6431 file notNil ifTrue:[ |
6458 LastDirectory := file asFilename directoryName. |
6458 LastDirectory := file asFilename directoryName. |
6459 self updateLabelsAndHistory. |
6459 self updateLabelsAndHistory. |
6460 self clearModified. |
6460 self clearModified. |
6461 ] |
6461 ] |
6462 |
6462 |
6463 "Modified: / 09-11-2010 / 14:25:41 / cg" |
6463 "Modified: / 09-11-2010 / 14:28:31 / cg" |
6464 ! |
6464 ! |
6465 |
6465 |
6466 doSaveImageMaskFileAs |
6466 doSaveImageMaskFileAs |
6467 "opens a dialog for saving mask of current image to a file" |
6467 "opens a dialog for saving mask of current image to a file" |
6468 |
6468 |