From 28f642be3f9dda57bf9181e07968fc69b558e5c6 Mon Sep 17 00:00:00 2001
From: Raymond <Raymond@.(none)>
Date: Tue, 15 Jun 2010 18:28:49 +0200
Subject: [PATCH] Added include for extension.

---
 Includes/mml.simba | 57 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 Includes/mml.simba

diff --git a/Includes/mml.simba b/Includes/mml.simba
new file mode 100644
index 0000000..39c0b57
--- /dev/null
+++ b/Includes/mml.simba
@@ -0,0 +1,57 @@
+procedure GetClientDimensions(var w,h : integer);
+begin
+  Client.IOManager.GetDimensions(w, h);
+end;
+
+procedure SetDesktopAsClient;
+begin
+  Client.IOManager.SetDesktop;
+end;
+
+function SetTargetBitmap(bitmap: TMufasaBitmap): integer;
+begin;
+  result:= Client.IOManager.SetTargetBitmap(Bitmap);
+end;
+
+procedure SetImageTarget(idx: integer);
+begin
+  Client.IOManager.SetImageTarget(idx);
+end;
+
+function GetImageTarget: integer;
+begin
+  Client.IOManager.GetImageTarget(result);
+end;
+
+function Freeze: boolean;
+begin
+  Client.IOManager.SetFrozen(true);
+  result := true; //dunno what the result is supposed to mean
+end;
+
+function Unfreeze: boolean;
+begin
+  Client.IOManager.SetFrozen(false);
+  result := true; //dunno what the result is supposed to mean
+end;
+
+function FindDTMs(DTM: Integer; var p: TPointArray; xs, ys, xe, ye: Integer): Boolean;
+begin
+  with Client do
+    result := MFinder.FindDTMs(MDTMs[DTM], p, xs, ys, xe, ye);
+end;
+
+procedure FreeDTM(DTM: Integer);
+begin
+  Client.MDTMs.FreeDTM(DTM);
+end;
+
+function DTMFromString(const DTMString: String): Integer;
+begin
+  Result := Client.MDTMs.StringToDTM(DTMString);
+end;
+
+function AddDTM(const d: TMDTM): Integer;
+begin
+  Result := Client.MDTMs.AddDTM(d);
+end;