equal
deleted
inserted
replaced
1027 |
1027 |
1028 newPath := (aFile isDirectory ifTrue:[ aFile ] ifFalse:[ aFile directory ]) asValue. |
1028 newPath := (aFile isDirectory ifTrue:[ aFile ] ifFalse:[ aFile directory ]) asValue. |
1029 oldPath := aFile asValue. |
1029 oldPath := aFile asValue. |
1030 |
1030 |
1031 box := Dialog new. |
1031 box := Dialog new. |
1032 box label:'Create Link'. |
1032 box label:(resources string:'Create Link'). |
1033 |
1033 |
1034 string := 'Create ', (symbolic ifTrue:['Symbolic'] ifFalse:['Hard']) ,' Link from:'. |
1034 string := 'Create %1 Link from:' bindWith:(symbolic ifTrue:['Symbolic'] ifFalse:['Hard']). |
1035 box addTextLabel:(resources string:string) adjust:#left. |
1035 box addTextLabel:(resources string:string) adjust:#left. |
1036 if1 := box addFilenameInputFieldOn:oldPath in:nil tabable:true. |
1036 if1 := box addFilenameInputFieldOn:oldPath in:nil tabable:true. |
1037 box addTextLabel:(resources string:'to:') adjust:#left. |
1037 box addTextLabel:(resources string:'to:') adjust:#left. |
1038 if2 := box addFilenameInputFieldOn:newPath in:nil value tabable:true. |
1038 if2 := box addFilenameInputFieldOn:newPath in:nil value tabable:true. |
1039 |
1039 |
1049 ^ self |
1049 ^ self |
1050 ]. |
1050 ]. |
1051 |
1051 |
1052 self doCreateLinkFrom:(oldPath value) to:(newPath value) soft:symbolic. |
1052 self doCreateLinkFrom:(oldPath value) to:(newPath value) soft:symbolic. |
1053 |
1053 |
1054 "Modified: / 30-11-2017 / 14:24:54 / cg" |
1054 "Modified: / 30-11-2017 / 14:53:13 / cg" |
1055 ! |
1055 ! |
1056 |
1056 |
1057 doCreateLinkFrom:oldPath to:newPathArg soft:symbolic |
1057 doCreateLinkFrom:oldPath to:newPathArg soft:symbolic |
1058 "actually create a soft or hard link" |
1058 "actually create a soft or hard link" |
1059 |
1059 |