From 71294c99aa628f487d2094c101ecdf1ea829b3e1 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Thu, 24 Sep 2009 09:45:38 +0200
Subject: Support for relative symlink creation

---
 UMain.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'UMain.pas')

diff --git a/UMain.pas b/UMain.pas
index fbcf334..83ea9a1 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -4221,7 +4221,7 @@ begin
     else s1 := IncludeTrailingPathDelimiter(Engine.Path) + PDataItem(AListView.Selected.Data)^.FName;
   if Engine.Path <> EngineOpposite.Path
     then s2 := IncludeTrailingPathDelimiter(EngineOpposite.Path) + PDataItem(AListView.Selected.Data)^.FName
-    else s2 := '';
+    else s2 := IncludeTrailingPathDelimiter(EngineOpposite.Path) + Format('Link to %s', [PDataItem(AListView.Selected.Data)^.FName]);
 
   if CreateSymlink(s1, s2, Engine) then begin
     DoRefresh(LeftPanel, True, True);
-- 
cgit v1.2.3