--- a/AbstractFileBrowser.st	Mon Dec 13 11:46:46 2004 +0100
+++ b/AbstractFileBrowser.st	Mon Dec 13 11:49:43 2004 +0100
@@ -3552,10 +3552,10 @@
 newHardLink
     "ask for and create a hard link (unix only)"
 
-    self newLink:false.
-!
-
-newLink:symbolic
+    self newLink:#hard.
+!
+
+newLink:typeOfLink
 
     "ask for and create a symbolic if symbolic is true otherwise a hard link (unix only)"
 
@@ -3568,15 +3568,11 @@
     ].
     dir := sel first.
 
-    symbolic ifTrue:[
-        create := FileOperation createSoftLinkIn:dir.
-    ] ifFalse:[
-        create := FileOperation createHardLinkIn:dir.
-    ].
+    create := FileOperation createLinkIn:dir soft:(typeOfLink == #soft).
     create result ifFalse:[ ^ self].
     createdFile := create createdFile.
     createdFile notNil ifTrue:[
-        symbolic ifTrue:[
+        typeOfLink == #soft ifTrue:[
             self updateCurrentDirectory.
         ] ifFalse:[
             self updateAndSelect:(OrderedCollection with:createdFile).
@@ -3587,7 +3583,7 @@
 newSoftLink
     "ask for and create a soft link (unix only)"
 
-    self newLink:true.
+    self newLink:#soft.
 !
 
 pasteFiles
@@ -6575,5 +6571,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.274 2004-12-10 14:09:25 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.275 2004-12-13 10:49:43 cg Exp $'
 ! !

--- a/FileOperation.st	Mon Dec 13 11:46:46 2004 +0100
+++ b/FileOperation.st	Mon Dec 13 11:49:43 2004 +0100
@@ -72,6 +72,10 @@
     ^ Create createHardLinkIn:dir
 !
 
+createLinkIn:dir soft:soft
+    ^ Create createLinkIn:dir soft:soft
+!
+
 createSoftLinkIn:dir
     ^ Create createSoftLinkIn:dir
 !
@@ -471,21 +475,23 @@
 createHardLinkIn:aFile
     "create an new hard link in a files directory"
 
+    ^ self createLinkIn:aFile soft:false
+!
+
+createLinkIn:aFile soft:soft
+    "create an new soft or hard link in a files directory"
+
     |instance|
 
     instance := self new.
-    instance createHardLinkIn:aFile.
+    instance createLinkIn:aFile soft:soft.
     ^ instance
 !
 
 createSoftLinkIn:aFile
     "create an new soft link in a files directory"
 
-    |instance|
-
-    instance := self new.
-    instance createSoftLinkIn:aFile.
-    ^ instance
+    ^ self createLinkIn:aFile soft:true
 ! !
 
 !FileOperation::Create methodsFor:'accessing'!
@@ -1293,5 +1299,5 @@
 !FileOperation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.60 2004-12-13 10:46:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.61 2004-12-13 10:49:28 cg Exp $'
 ! !