[Apophysis-cvs-commits] 2.10/Source Main.dfm,1.17,1.18 Main.pas,1.19,1.20

[Ronald H. <ron...@us...>]

Update of /cvsroot/apophysis/2.10/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27119/Source

Modified Files:
	Main.dfm Main.pas 
Log Message:
Change format of collection of flames to force correct XML syntax.

Index: Main.pas
===================================================================
RCS file: /cvsroot/apophysis/2.10/Source/Main.pas,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** Main.pas	25 Sep 2005 08:10:09 -0000	1.19
--- Main.pas	25 Sep 2005 08:32:27 -0000	1.20
***************
*** 1562,1566 ****
          FileList.LoadFromFile(filename);
  
!         if pos('<flame', FileList.text) <> 0 then
            repeat
              FileList.Delete(FileList.Count - 1);
--- 1562,1571 ----
          FileList.LoadFromFile(filename);
  
!         // fix first line
!         if (FileList.Count > 0) then begin
!           FileList[0] := '<Flames name="' + Tag + '">';
!         end;
! 
!         if pos('<flame ', FileList.text) <> 0 then
            repeat
              FileList.Delete(FileList.Count - 1);
***************
*** 1569,1576 ****
            repeat
              FileList.Delete(FileList.Count - 1);
!           until (Pos('<' + Tag + '>', FileList[FileList.count - 1]) <> 0);
  
          FileList.Add(Trim(FlameToXML(cp1, false)));
!         FileList.Add('</' + Tag + '>');
          FileList.SaveToFile(filename);
  
--- 1574,1582 ----
            repeat
              FileList.Delete(FileList.Count - 1);
!           until (Pos('<' + Tag + '>', FileList[FileList.count - 1]) <> 0) or
!                 (Pos('</Flames>', FileList[FileList.count - 1]) <> 0);
  
          FileList.Add(Trim(FlameToXML(cp1, false)));
!         FileList.Add('</Flames>');
          FileList.SaveToFile(filename);
  
***************
*** 1584,1590 ****
        AssignFile(IFile, filename);
        ReWrite(IFile);
!       Writeln(IFile, '<' + Tag + '>');
        Write(IFile, FlameToXML(cp1, false));
!       Writeln(IFile, '</' + Tag + '>');
        CloseFile(IFile);
      end;
--- 1590,1596 ----
        AssignFile(IFile, filename);
        ReWrite(IFile);
!       Writeln(IFile, '<Flames name="' + Tag + '">');
        Write(IFile, FlameToXML(cp1, false));
!       Writeln(IFile, '</Flames>');
        CloseFile(IFile);
      end;

Index: Main.dfm
===================================================================
RCS file: /cvsroot/apophysis/2.10/Source/Main.dfm,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** Main.dfm	25 Sep 2005 08:10:09 -0000	1.17
--- Main.dfm	25 Sep 2005 08:32:27 -0000	1.18
***************
*** 3,7 ****
    Top = 166
    Width = 605
!   Height = 575
    Caption = 'Apophysis'
    Color = clBtnFace
--- 3,7 ----
    Top = 166
    Width = 605
!   Height = 595
    Caption = 'Apophysis'
    Color = clBtnFace
***************
*** 314,318 ****
        Top = 1
        Width = 431
!       Height = 478
        Align = alClient
        AutoSize = True
--- 314,318 ----
        Top = 1
        Width = 431
!       Height = 492
        Align = alClient
        AutoSize = True