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 @@
-
+
@@ -30,34 +30,32 @@
-
+
-
+
-
+
-
-
+
-
-
+
@@ -68,19 +66,17 @@
-
-
+
-
-
+
@@ -90,11 +86,10 @@
-
-
+
@@ -133,11 +128,10 @@
-
-
+
@@ -168,11 +162,12 @@
+
-
+
@@ -300,8 +295,57 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
@@ -314,6 +358,22 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
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.
+