--- 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.