src/JavaVM.st
branchjk_new_structure
changeset 906 fea23aa2b228
parent 905 d03d9e05c581
child 907 9ab15562799b
--- a/src/JavaVM.st	Wed Aug 10 22:22:53 2011 +0000
+++ b/src/JavaVM.st	Wed Aug 10 22:58:10 2011 +0000
@@ -3504,7 +3504,7 @@
         ('JAVA: opening ' , name) infoPrintCR.
     ].
 
-    fn := name asFilename.
+    fn := name utf8Decoded asFilename.
     dir := fn directory pathName.
 
     readonly := false.
@@ -3540,7 +3540,7 @@
         ].
         stream := fn readStream.
     ] ifFalse:[    
-        fn exists ifTrue:[
+        fn exists ifFalse:[
             ^self throwFileNotFoundException: 'File does not exist'
         ].
         fn isDirectory ifTrue:[
@@ -3569,7 +3569,7 @@
 
     "Created: / 07-04-1998 / 19:14:09 / cg"
     "Modified: / 04-01-1999 / 14:34:42 / cg"
-    "Modified: / 10-08-2011 / 21:45:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 10-08-2011 / 23:49:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 fileStreamForReading:name
@@ -3996,9 +3996,10 @@
 
     <javanative: 'java/io/FileOutputStream' name: 'openAppend'>
 
-        ^ self commonOpen:nativeContext forAppend:true
-
-    "Modified: / 7.4.1998 / 19:13:42 / cg"
+    ^ self commonOpen:nativeContext forAppend:true
+
+    "Modified: / 07-04-1998 / 19:13:42 / cg"
+    "Modified (format): / 10-08-2011 / 23:48:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 _java_io_FileOutputStream_write: nativeContext
@@ -4204,11 +4205,10 @@
 
     <javanative: 'java/io/UnixFileSystem' name: 'canonicalize0'>
 
-    
     |  path |
 
     path := Java as_ST_String: (aJavaContext argAt: 1).
-    ^(Java as_String: path asFilename asAbsoluteFilename pathName)
+    ^(Java as_String: path utf8Encoded asFilename asAbsoluteFilename pathName utf8Decoded)
 
     "Created: / 10-12-2010 / 14:40:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !