From d13eb6c161cb1182a3b6ef5a80fbd905575895d3 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 6 Aug 2008 10:08:18 +0000
Subject: [PATCH] IDE: fpdoc editor: implemented saving seealso links

git-svn-id: trunk@15969 -
---
 ide/fpdoceditwindow.pas | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/ide/fpdoceditwindow.pas b/ide/fpdoceditwindow.pas
index 17e51007b6..3ec38cebec 100644
--- a/ide/fpdoceditwindow.pas
+++ b/ide/fpdoceditwindow.pas
@@ -365,10 +365,18 @@ begin
 end;
 
 procedure TFPDocEditor.LinkChange(Sender: TObject);
+var
+  NewLink: String;
+  OldLink: string;
 begin
   if LinkListBox.ItemIndex<0 then
     Exit;
-  LinkListBox.Items[LinkListBox.ItemIndex] := MakeLink;
+  NewLink:=MakeLink;
+  OldLink:=LinkListBox.Items[LinkListBox.ItemIndex];
+  if NewLink<>OldLink then begin
+    LinkListBox.Items[LinkListBox.ItemIndex] := NewLink;
+    Modified:=true;
+  end;
 end;
 
 procedure TFPDocEditor.LinkListBoxClick(Sender: TObject);
@@ -1041,8 +1049,7 @@ begin
     CurDocFile.SetChildValue(TopNode,'elementlink',Values[fpdiElementLink]);
     CurDocFile.SetChildValue(TopNode,'descr',Values[fpdiDescription]);
     CurDocFile.SetChildValue(TopNode,'errors',Values[fpdiErrors]);
-    // ToDo:
-    //CurDocFile.SetChildValue(TopNode,'seealso',Values[fpdiSeeAlso]);
+    CurDocFile.SetChildValue(TopNode,'seealso',Values[fpdiSeeAlso]);
     CurDocFile.SetChildValue(TopNode,'example',Values[fpdiExample]);
   finally
     CurDocFile.EndUpdate;