From 58995711ad014952b1221311741ea9a2c804207f Mon Sep 17 00:00:00 2001
From: Wizzup? <Wizzup?@3f818213-9676-44b0-a9b4-5e4c4e03d09d>
Date: Fri, 4 Sep 2009 05:36:50 +0000
Subject: [PATCH] Cleaned up the lpi

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@22 3f818213-9676-44b0-a9b4-5e4c4e03d09d
---
 Projects/SAMufasaGUI/project1.lpi | 96 +++++++++++++++++++++++++------
 Projects/SAMufasaGUI/project1.lpr |  3 +-
 Projects/SAMufasaGUI/testunit.lrs |  2 -
 Units/MMLCore/files.pas           | 33 +++++++++++
 4 files changed, 112 insertions(+), 22 deletions(-)
 create mode 100644 Units/MMLCore/files.pas

diff --git a/Projects/SAMufasaGUI/project1.lpi b/Projects/SAMufasaGUI/project1.lpi
index ae1689c..bb4a1cc 100644
--- a/Projects/SAMufasaGUI/project1.lpi
+++ b/Projects/SAMufasaGUI/project1.lpi
@@ -6,7 +6,7 @@
       <MainUnit Value="0"/>
       <TargetFileExt Value=""/>
       <UseXPManifest Value="True"/>
-      <ActiveEditorIndexAtStart Value="1"/>
+      <ActiveEditorIndexAtStart Value="0"/>
     </General>
     <VersionInfo>
       <ProjectVersion Value=""/>
@@ -30,34 +30,32 @@
         <PackageName Value="LCL"/>
       </Item1>
     </RequiredPackages>
-    <Units Count="37">
+    <Units Count="42">
       <Unit0>
         <Filename Value="project1.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="project1"/>
-        <CursorPos X="1" Y="19"/>
+        <CursorPos X="71" Y="6"/>
         <TopLine Value="1"/>
         <EditorIndex Value="0"/>
-        <UsageCount Value="54"/>
+        <UsageCount Value="55"/>
         <Loaded Value="True"/>
       </Unit0>
       <Unit1>
         <Filename Value="unit1.pas"/>
-        <IsPartOfProject Value="True"/>
         <ComponentName Value="Form1"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="TestUnit"/>
         <CursorPos X="33" Y="57"/>
         <TopLine Value="32"/>
-        <UsageCount Value="54"/>
+        <UsageCount Value="55"/>
       </Unit1>
       <Unit2>
         <Filename Value="client.pas"/>
-        <IsPartOfProject Value="True"/>
         <UnitName Value="Client"/>
         <CursorPos X="18" Y="34"/>
         <TopLine Value="10"/>
-        <UsageCount Value="54"/>
+        <UsageCount Value="55"/>
       </Unit2>
       <Unit3>
         <Filename Value="../cogat/Units/CogatUnits/comptypes.pas"/>
@@ -68,19 +66,17 @@
       </Unit3>
       <Unit4>
         <Filename Value="mufasatypes.pas"/>
-        <IsPartOfProject Value="True"/>
         <UnitName Value="MufasaTypes"/>
         <CursorPos X="52" Y="20"/>
         <TopLine Value="1"/>
-        <UsageCount Value="54"/>
+        <UsageCount Value="55"/>
       </Unit4>
       <Unit5>
         <Filename Value="window.pas"/>
-        <IsPartOfProject Value="True"/>
         <UnitName Value="Window"/>
         <CursorPos X="4" Y="100"/>
         <TopLine Value="85"/>
-        <UsageCount Value="54"/>
+        <UsageCount Value="55"/>
       </Unit5>
       <Unit6>
         <Filename Value="../Documents/fpc/rtl/inc/systemh.inc"/>
@@ -90,11 +86,10 @@
       </Unit6>
       <Unit7>
         <Filename Value="input.pas"/>
-        <IsPartOfProject Value="True"/>
         <UnitName Value="Input"/>
         <CursorPos X="5" Y="20"/>
         <TopLine Value="15"/>
-        <UsageCount Value="53"/>
+        <UsageCount Value="54"/>
       </Unit7>
       <Unit8>
         <Filename Value="../cogat/Units/CogatUnits/compinput.pas"/>
@@ -133,11 +128,10 @@
       </Unit12>
       <Unit13>
         <Filename Value="Units/MMLCore/windowutil.pas"/>
-        <IsPartOfProject Value="True"/>
         <UnitName Value="windowutil"/>
         <CursorPos X="54" Y="20"/>
         <TopLine Value="20"/>
-        <UsageCount Value="46"/>
+        <UsageCount Value="47"/>
       </Unit13>
       <Unit14>
         <Filename Value="../Documents/lazarus/lcl/graphics.pp"/>
@@ -168,11 +162,12 @@
       </Unit17>
       <Unit18>
         <Filename Value="testunit.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="Form1"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="TestUnit"/>
-        <CursorPos X="52" Y="22"/>
+        <CursorPos X="1" Y="1"/>
         <TopLine Value="1"/>
         <EditorIndex Value="1"/>
         <UsageCount Value="21"/>
@@ -300,8 +295,57 @@
         <TopLine Value="2388"/>
         <UsageCount Value="10"/>
       </Unit36>
+      <Unit37>
+        <Filename Value="../../Units/MMLCore/client.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="Client"/>
+        <CursorPos X="38" Y="8"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="3"/>
+        <UsageCount Value="20"/>
+        <Loaded Value="True"/>
+      </Unit37>
+      <Unit38>
+        <Filename Value="../../Units/MMLCore/mufasatypes.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="MufasaTypes"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="2"/>
+        <UsageCount Value="20"/>
+        <Loaded Value="True"/>
+      </Unit38>
+      <Unit39>
+        <Filename Value="../../../cogat/Units/CogatUnits/compfiles.pas"/>
+        <UnitName Value="compFiles"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="6"/>
+        <UsageCount Value="20"/>
+        <Loaded Value="True"/>
+      </Unit39>
+      <Unit40>
+        <Filename Value="../../Units/MMLCore/files.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="files"/>
+        <CursorPos X="61" Y="9"/>
+        <TopLine Value="2"/>
+        <EditorIndex Value="5"/>
+        <UsageCount Value="21"/>
+        <Loaded Value="True"/>
+      </Unit40>
+      <Unit41>
+        <Filename Value="../../Units/MMLCore/window.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="Window"/>
+        <CursorPos X="49" Y="159"/>
+        <TopLine Value="131"/>
+        <EditorIndex Value="4"/>
+        <UsageCount Value="20"/>
+        <Loaded Value="True"/>
+      </Unit41>
     </Units>
-    <JumpHistory Count="3" HistoryIndex="2">
+    <JumpHistory Count="7" HistoryIndex="6">
       <Position1>
         <Filename Value="testunit.pas"/>
         <Caret Line="10" Column="7" TopLine="1"/>
@@ -314,6 +358,22 @@
         <Filename Value="testunit.pas"/>
         <Caret Line="103" Column="43" TopLine="95"/>
       </Position3>
+      <Position4>
+        <Filename Value="testunit.pas"/>
+        <Caret Line="9" Column="24" TopLine="1"/>
+      </Position4>
+      <Position5>
+        <Filename Value="../../Units/MMLCore/client.pas"/>
+        <Caret Line="8" Column="38" TopLine="1"/>
+      </Position5>
+      <Position6>
+        <Filename Value="../../Units/MMLCore/files.pas"/>
+        <Caret Line="14" Column="8" TopLine="1"/>
+      </Position6>
+      <Position7>
+        <Filename Value="testunit.pas"/>
+        <Caret Line="9" Column="32" TopLine="1"/>
+      </Position7>
     </JumpHistory>
   </ProjectOptions>
   <CompilerOptions>
diff --git a/Projects/SAMufasaGUI/project1.lpr b/Projects/SAMufasaGUI/project1.lpr
index 69979ec..e3b0935 100644
--- a/Projects/SAMufasaGUI/project1.lpr
+++ b/Projects/SAMufasaGUI/project1.lpr
@@ -7,14 +7,13 @@ uses
   cthreads, cmem,
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, TestUnit, LResources, Client, MufasaTypes, Window, Input, windowutil;
+  Forms, LResources, Window, files, MufasaTypes, Client, TestUnit;
 
 {$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
 
 begin
   {$I project1.lrs}
   Application.Initialize;
-  Application.CreateForm(TForm1, Form1);
   Application.Run;
 end.
 
diff --git a/Projects/SAMufasaGUI/testunit.lrs b/Projects/SAMufasaGUI/testunit.lrs
index e86ffb1..061a192 100644
--- a/Projects/SAMufasaGUI/testunit.lrs
+++ b/Projects/SAMufasaGUI/testunit.lrs
@@ -1,5 +1,3 @@
-{ This is an automatically generated lazarus resource file }
-
 LazarusResources.Add('TForm1','FORMDATA',[
   'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'@'#1#6'Height'#3#15#2#3'Top'#3#238#0#5'Wi'
   +'dth'#3#11#3#13'ActiveControl'#7#7'Button1'#7'Caption'#6#5'Form1'#12'ClientH'
diff --git a/Units/MMLCore/files.pas b/Units/MMLCore/files.pas
new file mode 100644
index 0000000..2663130
--- /dev/null
+++ b/Units/MMLCore/files.pas
@@ -0,0 +1,33 @@
+unit files;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils; 
+
+type
+    TMWindow = class(TObject)
+            constructor Create(Client: TObject);
+            destructor Destroy; override;
+        public
+
+
+    end;
+
+implementation
+
+constructor TMWindow.Create(Client: TObject);
+begin
+  inherited Create;
+end;
+
+destructor TMWindow.Destroy;
+begin
+
+  inherited;
+end;
+
+end.
+