[JVCL-Checkins] dev/JVCL3/devtools/PackagesGenerator ModelsForm.dfm,1.5,1.6 ModelsForm.pas,1.3,1.4 - Now saves the model when you click ok

[Olivier S. <ob...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/devtools/PackagesGenerator
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13329/dev/JVCL3/devtools/PackagesGenerator

Modified Files:
	ModelsForm.dfm ModelsForm.pas 
Log Message:
Now saves the model when you click ok


Index: ModelsForm.dfm
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/devtools/PackagesGenerator/ModelsForm.dfm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** ModelsForm.dfm	19 Feb 2004 21:55:14 -0000	1.5
--- ModelsForm.dfm	22 Feb 2004 03:24:49 -0000	1.6
***************
*** 16,19 ****
--- 16,22 ----
    Scaled = False
    OnShow = FormShow
+   DesignSize = (
+     525
+     473)
    PixelsPerInch = 96
    TextHeight = 13
***************
*** 173,176 ****
--- 176,182 ----
      Caption = ' Properties '
      TabOrder = 3
+     DesignSize = (
+       509
+       383)
      object lblName: TLabel
        Left = 160

Index: ModelsForm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/devtools/PackagesGenerator/ModelsForm.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ModelsForm.pas	12 Feb 2004 11:15:45 -0000	1.3
--- ModelsForm.pas	22 Feb 2004 03:24:49 -0000	1.4
***************
*** 304,307 ****
--- 304,308 ----
  procedure TfrmModels.btnOkClick(Sender: TObject);
  begin
+   SaveModel;
    xml.SaveToFile(filename);
    ModalResult := mrOk;