From 9a62bba8213d89a81ead39b552a7a68190229869 Mon Sep 17 00:00:00 2001
From: sg <sg>
Date: Sun, 9 Jul 2000 11:38:33 +0000
Subject: [PATCH] * Fixed TDOMNode_WithChildren.RemoveNode for the case when
 the node to be   removed is the first child node.

---
 fcl/xml/dom.pp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/fcl/xml/dom.pp b/fcl/xml/dom.pp
index c2f4385bb6..280e29e077 100644
--- a/fcl/xml/dom.pp
+++ b/fcl/xml/dom.pp
@@ -791,7 +791,7 @@ begin
     raise EDOMHierarchyRequest.Create('NodeWC.RemoveChild');
 
   if OldChild = FFirstChild then
-    FFirstChild := nil
+    FFirstChild := FFirstChild.NextSibling
   else
     OldChild.FPreviousSibling.FNextSibling := OldChild.FNextSibling;
 
@@ -1499,7 +1499,11 @@ end.
 
 {
   $Log$
-  Revision 1.15  2000-06-29 08:45:05  sg
+  Revision 1.16  2000-07-09 11:38:33  sg
+  * Fixed TDOMNode_WithChildren.RemoveNode for the case when the node to be
+    removed is the first child node.
+
+  Revision 1.15  2000/06/29 08:45:05  sg
   * RemoveAttributeNode bugfix
 
   Revision 1.14  2000/05/04 18:24:22  sg