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

---
 UCore.pas | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'UCore.pas')

diff --git a/UCore.pas b/UCore.pas
index b69b055..416bd45 100644
--- a/UCore.pas
+++ b/UCore.pas
@@ -2186,6 +2186,8 @@ begin
   Result := False;
   try
     AFSymlink := TFSymlink.Create(Application.MainForm);
+    AFSymLink.FileName := FileName;
+    AFSymLink.PossibleNewName := PossibleNewName;
     AFSymlink.FromEntry.Text := StrToUTF8(FileName);
     AFSymlink.ToEntry.Text := StrToUTF8(PossibleNewName);
     AFSymlink.ToEntry.SetFocus;
@@ -2261,6 +2263,7 @@ begin
     AFSymlink.FromEntry.Enabled := False;
     AFSymlink.ToEntry.Text := StrToUTF8(Data^.LnkPointTo);
     AFSymlink.ToEntry.SelectAll;
+    AFSymLink.RelativeCheckButton.Visible := False;
     if AFSymlink.Run = mbOK then Result := HandleEditSymlink(UTF8ToStr(AFSymlink.FromEntry.Text), UTF8ToStr(AFSymlink.ToEntry.Text));
   finally
     AFSymlink.Free;
-- 
cgit v1.2.3