From 4e24fb845acd4a1fc6a772749eceb08129acaf08 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Thu, 24 Sep 2009 10:13:30 +0200
Subject: Remember relative path checkbox state from the symlink dialog

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

(limited to 'UCore.pas')

diff --git a/UCore.pas b/UCore.pas
index 416bd45..deccbb1 100644
--- a/UCore.pas
+++ b/UCore.pas
@@ -2192,8 +2192,10 @@ begin
     AFSymlink.ToEntry.Text := StrToUTF8(PossibleNewName);
     AFSymlink.ToEntry.SetFocus;
     AFSymlink.ToEntry.SelectAll;
+    AFSymLink.RelativeCheckButton.Checked := ConfMakeSymlinkRelative;
     if AFSymlink.Run = mbOK then Result := HandleCreateSymlink(UTF8ToStr(AFSymlink.FromEntry.Text),
                                            ProcessPattern(Engine, UTF8ToStr(AFSymlink.ToEntry.Text), Engine.Path, '', False));
+    if Result then ConfMakeSymlinkRelative := AFSymLink.RelativeCheckButton.Checked;
   finally
     AFSymlink.Free;
   end;
-- 
cgit v1.2.3