#BUGFIX by stefan
authorStefan Vogel <sv@exept.de>
Mon, 28 Nov 2016 23:08:22 +0100
changeset 17121 0d404f4364cd
parent 17120 dd6828abc760
child 17122 217cc7b2af3b
child 17138 72bf03c1ff80
#BUGFIX by stefan class: FileOperation
FileOperation.st
--- a/FileOperation.st	Mon Nov 28 23:07:37 2016 +0100
+++ b/FileOperation.st	Mon Nov 28 23:08:22 2016 +0100
@@ -989,17 +989,17 @@
 doCreateLinkFrom:oldPath to:newPathArg soft:symbolic
     "actually create a soft or hard link"
 
-    |resources err newPath newPathFile oldPathFile|
+    |resources newPath newPathFile oldPathFile|
 
     newPath := newPathArg.
 
     resources := AbstractFileBrowser classResources.
 
-    (oldPath size == 0) ifTrue:[
+    oldPath isNil ifTrue:[
         self operationError:'Missing source'.
         ^ self.
     ].
-    (newPath size == 0) ifTrue:[
+    newPath isNil ifTrue:[
         self operationError:'Missing link name (target)'.
         ^ self.
     ].
@@ -1037,8 +1037,7 @@
         ^ self.
     ].
     ErrorSignal handle:[:ex |
-        err := ex errorString.
-        self operationError:err.
+        self operationError:ex description.
     ] do:[
         symbolic ifTrue:[
             newPathFile createAsSymbolicLinkTo:oldPathFile.