changed:
authorClaus Gittinger <cg@exept.de>
Tue, 14 Dec 2010 13:53:05 +0100
changeset 2827 c99d2c520b28
parent 2826 653494536b68
child 2828 c5afe7613f98
changed: #doLoadFromFile #doSaveImageFileAs
ImageEditor.st
--- a/ImageEditor.st	Wed Nov 24 11:18:59 2010 +0100
+++ b/ImageEditor.st	Tue Dec 14 13:53:05 2010 +0100
@@ -6206,14 +6206,14 @@
                 title:title
                 inDirectory:(file notNil ifTrue:[file asFilename directory pathName] ifFalse:[LastDirectory])
                 initialAnswer:(file notNil ifTrue:[file asFilename baseName] ifFalse:['image.png'])
-                flags:#( ENABLESIZING "HIDEREADONLY" EXPLORER NOCHANGEDIR)
+                "/ flags:#( ENABLESIZING "HIDEREADONLY" EXPLORER NOCHANGEDIR)
                 filter:
                   {
                           { (resources string:'Image Files') . '*.tif;*.png;*.gif;*.bmp;*.jpg'  } .
                           { (resources string:'All Files') . '*.*'  } 
                   }
                 extension:nil
-                blocking:false.
+                "blocking:false".
         ].
     ] ifFalse:[    
         filters := FileSelectionBrowser loadImageFileNameFilters.
@@ -6235,7 +6235,7 @@
         self loadFromFile:file
     ]
 
-    "Modified: / 09-11-2010 / 14:28:19 / cg"
+    "Modified: / 14-12-2010 / 13:52:11 / cg"
 !
 
 doLoadFromURL
@@ -6461,14 +6461,14 @@
                 title:(resources string:'Save Image To')
                 inDirectory:(file notNil ifTrue:[file asFilename directory pathName] ifFalse:[LastDirectory])
                 initialAnswer:(file notNil ifTrue:[file asFilename baseName] ifFalse:['image.png'])
-                flags:#( ENABLESIZING "HIDEREADONLY" EXPLORER NOCHANGEDIR)
+                "/ flags:#( ENABLESIZING "HIDEREADONLY" EXPLORER NOCHANGEDIR)
                 filter:
                   {
                           { (resources string:'Image Files') . '*.tif;*.png;*.gif;*.bmp'  } .
                           { (resources string:'All Files') . '*.*'  } 
                   }
                 extension:nil
-                blocking:false.
+                "blocking:false".
         ].
     ] ifFalse:[    
         (FileSelectionBrowser isNil or:[DirectoryView isNil]) ifTrue:[
@@ -6504,7 +6504,7 @@
         self clearModified.
     ]
 
-    "Modified: / 09-11-2010 / 14:28:31 / cg"
+    "Modified: / 14-12-2010 / 13:51:47 / cg"
 !
 
 doSaveImageMaskFileAs