[Eas-dev-commit]eas/clip-ui form.prg,1.1.1.1,1.2

[Andrey C. <sku...@us...>]

Update of /cvsroot/eas-dev/eas/clip-ui
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8115

Modified Files:
	form.prg 
Log Message:
Fix <FORM> tag missing

Index: form.prg
===================================================================
RCS file: /cvsroot/eas-dev/eas/clip-ui/form.prg,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- form.prg	2 Mar 2004 13:14:26 -0000	1.1.1.1
+++ form.prg	3 Mar 2004 15:36:05 -0000	1.2
@@ -3,7 +3,7 @@
 /*						                 	   */
 /*   Copyright (C) 2003 by E/AS Software Foundation 		           */
 /*   Author: Andrey Cherepanov <sib...@ma...>			   */
-/*   Last change: 23 Feb 2004						   */
+/*   Last change: 03 Mar 2004						   */
 /*   									   */
 /*   This program is free software; you can redistribute it and/or modify  */
 /*   it under the terms of the GNU General Public License as               */
@@ -121,7 +121,11 @@
 			aadd(ct:attrNames, attrName)
 			ct:attr[attrName] := attrData
 		next
-		aadd(pt:childs, ct)
+		if valtype(pt) == "O" .and. "CHILDS" $ pt
+			aadd(pt:childs, ct)
+		else
+			?? "ERROR parse XML: parent object is empty. Possible tag <FORM> doesn't found or it isn't root element.&\n"
+		endif
 		aadd(self:tags, ct)
 
 		if .not. oTag:closed