Committing a new smart... it has some bug fixes, plus its open source. Experimenting with ps bugs too...

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@449 3f818213-9676-44b0-a9b4-5e4c4e03d09d

trunk/Projects/SAMufasaGUI/project1.lpi

@@ -10,7 +10,7 @@
       <TargetFileExt Value=""/>
       <Title Value="Simba"/>
       <UseXPManifest Value="True"/>
-      <ActiveEditorIndexAtStart Value="1"/>
+      <ActiveEditorIndexAtStart Value="5"/>
     </General>
     <VersionInfo>
       <ProjectVersion Value=""/>
@@ -26,7 +26,7 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <LaunchingApplication PathPlusParams="/usr/bin/gnome-terminal -t 'Lazarus Run Output' -e '$(LazarusDir)/tools/runwait.sh $(TargetCmdLine)'"/>
+        <LaunchingApplication Use="True" PathPlusParams="/usr/bin/gnome-terminal -t 'Lazarus Run Output' -e '$(LazarusDir)/tools/runwait.sh $(TargetCmdLine)'"/>
       </local>
     </RunParams>
     <RequiredPackages Count="2">
@@ -38,16 +38,14 @@
         <PackageName Value="LCL"/>
       </Item2>
     </RequiredPackages>
-    <Units Count="289">
+    <Units Count="291">
       <Unit0>
         <Filename Value="project1.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="project1"/>
         <CursorPos X="3" Y="36"/>
         <TopLine Value="15"/>
-        <EditorIndex Value="9"/>
         <UsageCount Value="205"/>
-        <Loaded Value="True"/>
       </Unit0>
       <Unit1>
         <Filename Value="unit1.pas"/>
@@ -141,9 +139,9 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="TestUnit"/>
-        <CursorPos X="6" Y="549"/>
-        <TopLine Value="731"/>
-        <EditorIndex Value="14"/>
+        <CursorPos X="3" Y="1550"/>
+        <TopLine Value="1548"/>
+        <EditorIndex Value="8"/>
         <UsageCount Value="202"/>
         <Loaded Value="True"/>
       </Unit13>
@@ -203,7 +201,7 @@
         <UnitName Value="MufasaTypes"/>
         <CursorPos X="20" Y="32"/>
         <TopLine Value="26"/>
-        <EditorIndex Value="4"/>
+        <EditorIndex Value="11"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit21>
@@ -270,8 +268,8 @@
         <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="mmlpsthread"/>
-        <CursorPos X="76" Y="571"/>
-        <TopLine Value="537"/>
+        <CursorPos X="27" Y="344"/>
+        <TopLine Value="318"/>
         <EditorIndex Value="1"/>
         <UsageCount Value="202"/>
         <Loaded Value="True"/>
@@ -279,9 +277,9 @@
       <Unit31>
         <Filename Value="../../Units/PascalScript/uPSComponent.pas"/>
         <UnitName Value="uPSComponent"/>
-        <CursorPos X="12" Y="918"/>
-        <TopLine Value="903"/>
-        <UsageCount Value="20"/>
+        <CursorPos X="2" Y="675"/>
+        <TopLine Value="669"/>
+        <UsageCount Value="21"/>
       </Unit31>
       <Unit32>
         <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/classesh.inc"/>
@@ -372,9 +370,11 @@
       <Unit45>
         <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/bitmap.inc"/>
         <IsPartOfProject Value="True"/>
-        <CursorPos X="10" Y="170"/>
-        <TopLine Value="170"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="15"/>
         <UsageCount Value="201"/>
+        <Loaded Value="True"/>
       </Unit45>
       <Unit46>
         <Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fpcanvas.inc"/>
@@ -491,11 +491,9 @@
       </Unit62>
       <Unit63>
         <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/mouse.inc"/>
-        <CursorPos X="11" Y="26"/>
-        <TopLine Value="12"/>
-        <EditorIndex Value="8"/>
-        <UsageCount Value="20"/>
-        <Loaded Value="True"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="21"/>
       </Unit63>
       <Unit64>
         <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/>
@@ -533,7 +531,9 @@
         <UnitName Value="uPSRuntime"/>
         <CursorPos X="89" Y="10"/>
         <TopLine Value="1"/>
-        <UsageCount Value="7"/>
+        <EditorIndex Value="7"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
       </Unit69>
       <Unit70>
         <Filename Value="../../Units/MMLAddon/plugins.pas"/>
@@ -541,17 +541,13 @@
         <UnitName Value="plugins"/>
         <CursorPos X="34" Y="70"/>
         <TopLine Value="49"/>
-        <EditorIndex Value="5"/>
         <UsageCount Value="200"/>
-        <Loaded Value="True"/>
       </Unit70>
       <Unit71>
         <Filename Value="../../Units/MMLAddon/PSInc/psdefines.inc"/>
         <CursorPos X="1" Y="37"/>
         <TopLine Value="3"/>
-        <EditorIndex Value="2"/>
         <UsageCount Value="11"/>
-        <Loaded Value="True"/>
       </Unit71>
       <Unit72>
         <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/math.inc"/>
@@ -590,8 +586,8 @@
         <Filename Value="../../Units/MMLCore/dtm.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="dtm"/>
-        <CursorPos X="114" Y="245"/>
-        <TopLine Value="226"/>
+        <CursorPos X="84" Y="51"/>
+        <TopLine Value="33"/>
         <UsageCount Value="200"/>
       </Unit77>
       <Unit78>
@@ -632,9 +628,7 @@
         <UnitName Value="windowselector"/>
         <CursorPos X="37" Y="34"/>
         <TopLine Value="12"/>
-        <EditorIndex Value="12"/>
         <UsageCount Value="201"/>
-        <Loaded Value="True"/>
       </Unit82>
       <Unit83>
         <Filename Value="../../../usr/lib64/fpc/2.2.4/source/rtl/objpas/classes/classesh.inc"/>
@@ -673,9 +667,11 @@
       </Unit87>
       <Unit88>
         <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/dtm.inc"/>
-        <CursorPos X="35" Y="42"/>
-        <TopLine Value="64"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="16"/>
         <UsageCount Value="53"/>
+        <Loaded Value="True"/>
       </Unit88>
       <Unit89>
         <Filename Value="../../../cogat/compscript.pas"/>
@@ -773,9 +769,11 @@
       </Unit102>
       <Unit103>
         <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/window.inc"/>
-        <CursorPos X="52" Y="52"/>
-        <TopLine Value="22"/>
-        <UsageCount Value="9"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="3"/>
+        <UsageCount Value="11"/>
+        <Loaded Value="True"/>
       </Unit103>
       <Unit104>
         <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/compon.inc"/>
@@ -819,8 +817,10 @@
         <Filename Value="../../Units/PascalScript/uPSDebugger.pas"/>
         <UnitName Value="uPSDebugger"/>
         <CursorPos X="13" Y="627"/>
-        <TopLine Value="624"/>
-        <UsageCount Value="9"/>
+        <TopLine Value="323"/>
+        <EditorIndex Value="6"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
       </Unit110>
       <Unit111>
         <Filename Value="../../Units/MMLCore/web.pas"/>
@@ -1202,9 +1202,9 @@
         <ComponentName Value="ColourHistoryForm"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="colourhistory"/>
-        <CursorPos X="7" Y="73"/>
-        <TopLine Value="55"/>
-        <EditorIndex Value="11"/>
+        <CursorPos X="59" Y="72"/>
+        <TopLine Value="54"/>
+        <EditorIndex Value="4"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit166>
@@ -1373,10 +1373,10 @@
       </Unit190>
       <Unit191>
         <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/keyboard.inc"/>
-        <CursorPos X="26" Y="43"/>
-        <TopLine Value="12"/>
-        <EditorIndex Value="7"/>
-        <UsageCount Value="20"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="12"/>
+        <UsageCount Value="21"/>
         <Loaded Value="True"/>
       </Unit191>
       <Unit192>
@@ -1491,9 +1491,7 @@
         <UnitName Value="debugimage"/>
         <CursorPos X="1" Y="1"/>
         <TopLine Value="1"/>
-        <EditorIndex Value="13"/>
         <UsageCount Value="202"/>
-        <Loaded Value="True"/>
       </Unit207>
       <Unit208>
         <Filename Value="debugimage.lrs"/>
@@ -1601,7 +1599,7 @@
         <UnitName Value="framefunctionlist"/>
         <CursorPos X="26" Y="295"/>
         <TopLine Value="7"/>
-        <UsageCount Value="169"/>
+        <UsageCount Value="173"/>
       </Unit223>
       <Unit224>
         <Filename Value="../../../usr/local/share/lazarus/lcl/comctrls.pp"/>
@@ -1656,7 +1654,7 @@
         <UnitName Value="simpleanalyzer"/>
         <CursorPos X="52" Y="104"/>
         <TopLine Value="193"/>
-        <UsageCount Value="156"/>
+        <UsageCount Value="160"/>
       </Unit231>
       <Unit232>
         <Filename Value="../../Units/Misc/mPasLex.pas"/>
@@ -1714,9 +1712,11 @@
       </Unit239>
       <Unit240>
         <Filename Value="../../Units/MMLAddon/PSInc/psexportedmethods.inc"/>
-        <CursorPos X="25" Y="163"/>
-        <TopLine Value="154"/>
-        <UsageCount Value="23"/>
+        <CursorPos X="8" Y="61"/>
+        <TopLine Value="36"/>
+        <EditorIndex Value="10"/>
+        <UsageCount Value="24"/>
+        <Loaded Value="True"/>
       </Unit240>
       <Unit241>
         <Filename Value="../../Units/Synapse/synautil.pas"/>
@@ -1731,7 +1731,7 @@
         <UnitName Value="updater"/>
         <CursorPos X="38" Y="211"/>
         <TopLine Value="65"/>
-        <UsageCount Value="129"/>
+        <UsageCount Value="133"/>
       </Unit242>
       <Unit243>
         <Filename Value="updateform.pas"/>
@@ -1742,7 +1742,7 @@
         <ComponentState Value="1"/>
         <CursorPos X="111" Y="102"/>
         <TopLine Value="207"/>
-        <UsageCount Value="124"/>
+        <UsageCount Value="128"/>
       </Unit243>
       <Unit244>
         <Filename Value="../../../Documents/lazarus/lcl/fileutil.pas"/>
@@ -1863,16 +1863,14 @@
         <UnitName Value="simbasettings"/>
         <CursorPos X="26" Y="9"/>
         <TopLine Value="11"/>
-        <UsageCount Value="87"/>
+        <UsageCount Value="91"/>
       </Unit261>
       <Unit262>
         <Filename Value="../../Units/MMLAddon/settings.pas"/>
         <UnitName Value="settings"/>
         <CursorPos X="29" Y="603"/>
         <TopLine Value="583"/>
-        <EditorIndex Value="10"/>
         <UsageCount Value="20"/>
-        <Loaded Value="True"/>
       </Unit262>
       <Unit263>
         <Filename Value="../../../fpc/packages/unixutil/src/unixutils.pp"/>
@@ -1903,7 +1901,7 @@
         <UnitName Value="reportbug"/>
         <CursorPos X="53" Y="23"/>
         <TopLine Value="21"/>
-        <UsageCount Value="70"/>
+        <UsageCount Value="74"/>
       </Unit266>
       <Unit267>
         <Filename Value="../../Units/Synapse/synsock.pas"/>
@@ -1960,9 +1958,7 @@
         <UnitName Value="newinternets"/>
         <CursorPos X="37" Y="171"/>
         <TopLine Value="153"/>
-        <EditorIndex Value="15"/>
-        <UsageCount Value="66"/>
-        <Loaded Value="True"/>
+        <UsageCount Value="70"/>
       </Unit274>
       <Unit275>
         <Filename Value="reportbug.lrs"/>
@@ -2010,8 +2006,8 @@
         <UnitName Value="IOManager"/>
         <CursorPos X="1" Y="543"/>
         <TopLine Value="526"/>
-        <EditorIndex Value="3"/>
-        <UsageCount Value="24"/>
+        <EditorIndex Value="9"/>
+        <UsageCount Value="25"/>
         <Loaded Value="True"/>
       </Unit281>
       <Unit282>
@@ -2019,8 +2015,8 @@
         <UnitName Value="os_linux"/>
         <CursorPos X="9" Y="342"/>
         <TopLine Value="325"/>
-        <EditorIndex Value="17"/>
-        <UsageCount Value="24"/>
+        <EditorIndex Value="14"/>
+        <UsageCount Value="25"/>
         <Loaded Value="True"/>
       </Unit282>
       <Unit283>
@@ -2035,8 +2031,8 @@
         <UnitName Value="os_windows"/>
         <CursorPos X="3" Y="314"/>
         <TopLine Value="300"/>
-        <EditorIndex Value="16"/>
-        <UsageCount Value="20"/>
+        <EditorIndex Value="13"/>
+        <UsageCount Value="21"/>
         <Loaded Value="True"/>
       </Unit284>
       <Unit285>
@@ -2059,9 +2055,7 @@
         <UnitName Value="libloader"/>
         <CursorPos X="1" Y="149"/>
         <TopLine Value="128"/>
-        <EditorIndex Value="6"/>
-        <UsageCount Value="24"/>
-        <Loaded Value="True"/>
+        <UsageCount Value="28"/>
       </Unit287>
       <Unit288>
         <Filename Value="../../Units/MMLAddon/tpa.pas"/>
@@ -2070,127 +2064,144 @@
         <TopLine Value="1677"/>
         <UsageCount Value="11"/>
       </Unit288>
+      <Unit289>
+        <Filename Value="../../Units/PascalScript/x86.inc"/>
+        <CursorPos X="1" Y="162"/>
+        <TopLine Value="134"/>
+        <EditorIndex Value="2"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
+      </Unit289>
+      <Unit290>
+        <Filename Value="../../Units/PascalScript/uPSUtils.pas"/>
+        <UnitName Value="uPSUtils"/>
+        <CursorPos X="63" Y="722"/>
+        <TopLine Value="713"/>
+        <EditorIndex Value="5"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
+      </Unit290>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="300" Column="36" TopLine="283"/>
+        <Caret Line="295" Column="29" TopLine="278"/>
       </Position1>
       <Position2>
         <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="301" Column="27" TopLine="283"/>
+        <Caret Line="333" Column="31" TopLine="316"/>
       </Position2>
       <Position3>
         <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="303" Column="53" TopLine="283"/>
+        <Caret Line="334" Column="41" TopLine="316"/>
       </Position3>
       <Position4>
-        <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="304" Column="41" TopLine="283"/>
+        <Filename Value="../../Units/MMLCore/iomanager.pas"/>
+        <Caret Line="543" Column="1" TopLine="526"/>
       </Position4>
       <Position5>
         <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="332" Column="30" TopLine="315"/>
+        <Caret Line="560" Column="43" TopLine="537"/>
       </Position5>
       <Position6>
         <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="333" Column="54" TopLine="315"/>
+        <Caret Line="571" Column="76" TopLine="537"/>
       </Position6>
       <Position7>
-        <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="331" Column="59" TopLine="315"/>
+        <Filename Value="../../Units/MMLAddon/PSInc/psexportedmethods.inc"/>
+        <Caret Line="64" Column="24" TopLine="36"/>
       </Position7>
       <Position8>
-        <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="93" Column="43" TopLine="77"/>
+        <Filename Value="../../Units/MMLAddon/PSInc/psexportedmethods.inc"/>
+        <Caret Line="61" Column="8" TopLine="36"/>
       </Position8>
       <Position9>
         <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="219" Column="34" TopLine="203"/>
+        <Caret Line="511" Column="27" TopLine="494"/>
       </Position9>
       <Position10>
-        <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="248" Column="33" TopLine="232"/>
+        <Filename Value="testunit.pas"/>
+        <Caret Line="1439" Column="47" TopLine="1421"/>
       </Position10>
       <Position11>
         <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="32" Column="42" TopLine="23"/>
+        <Caret Line="511" Column="29" TopLine="494"/>
       </Position11>
       <Position12>
         <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="37" Column="14" TopLine="23"/>
+        <Caret Line="508" Column="18" TopLine="491"/>
       </Position12>
       <Position13>
         <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="295" Column="29" TopLine="278"/>
+        <Caret Line="105" Column="22" TopLine="88"/>
       </Position13>
       <Position14>
         <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="333" Column="31" TopLine="316"/>
+        <Caret Line="344" Column="19" TopLine="325"/>
       </Position14>
       <Position15>
         <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="334" Column="41" TopLine="316"/>
+        <Caret Line="344" Column="10" TopLine="327"/>
       </Position15>
       <Position16>
         <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="18" Column="42" TopLine="1"/>
+        <Caret Line="106" Column="27" TopLine="89"/>
       </Position16>
       <Position17>
-        <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="37" Column="14" TopLine="20"/>
+        <Filename Value="../../Units/PascalScript/x86.inc"/>
+        <Caret Line="330" Column="29" TopLine="316"/>
       </Position17>
       <Position18>
-        <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="295" Column="29" TopLine="278"/>
+        <Filename Value="colourhistory.pas"/>
+        <Caret Line="73" Column="7" TopLine="55"/>
       </Position18>
       <Position19>
-        <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="333" Column="31" TopLine="316"/>
+        <Filename Value="../../Units/PascalScript/uPSDebugger.pas"/>
+        <Caret Line="627" Column="13" TopLine="323"/>
       </Position19>
       <Position20>
-        <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="334" Column="41" TopLine="316"/>
+        <Filename Value="../../Units/PascalScript/x86.inc"/>
+        <Caret Line="162" Column="1" TopLine="145"/>
       </Position20>
       <Position21>
-        <Filename Value="../../Units/MMLCore/libloader.pas"/>
-        <Caret Line="149" Column="1" TopLine="128"/>
+        <Filename Value="../../Units/PascalScript/x86.inc"/>
+        <Caret Line="330" Column="1" TopLine="313"/>
       </Position21>
       <Position22>
-        <Filename Value="../../Units/MMLCore/libloader.pas"/>
-        <Caret Line="150" Column="1" TopLine="128"/>
+        <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/window.inc"/>
+        <Caret Line="37" Column="1" TopLine="19"/>
       </Position22>
       <Position23>
-        <Filename Value="../../Units/MMLCore/libloader.pas"/>
-        <Caret Line="151" Column="1" TopLine="128"/>
+        <Filename Value="../../Units/PascalScript/x86.inc"/>
+        <Caret Line="154" Column="16" TopLine="145"/>
       </Position23>
       <Position24>
-        <Filename Value="../../Units/MMLCore/libloader.pas"/>
-        <Caret Line="152" Column="1" TopLine="128"/>
+        <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
+        <Caret Line="115" Column="45" TopLine="106"/>
       </Position24>
       <Position25>
-        <Filename Value="../../Units/MMLCore/iomanager.pas"/>
-        <Caret Line="543" Column="1" TopLine="526"/>
+        <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
+        <Caret Line="128" Column="62" TopLine="106"/>
       </Position25>
       <Position26>
-        <Filename Value="../../Units/MMLCore/libloader.pas"/>
-        <Caret Line="149" Column="1" TopLine="128"/>
+        <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
+        <Caret Line="131" Column="62" TopLine="106"/>
       </Position26>
       <Position27>
-        <Filename Value="../../Units/MMLCore/libloader.pas"/>
-        <Caret Line="150" Column="1" TopLine="128"/>
+        <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
+        <Caret Line="344" Column="27" TopLine="318"/>
       </Position27>
       <Position28>
-        <Filename Value="../../Units/MMLCore/libloader.pas"/>
-        <Caret Line="151" Column="1" TopLine="128"/>
+        <Filename Value="../../Units/PascalScript/x86.inc"/>
+        <Caret Line="162" Column="1" TopLine="134"/>
       </Position28>
       <Position29>
-        <Filename Value="../../Units/MMLCore/libloader.pas"/>
-        <Caret Line="152" Column="1" TopLine="128"/>
+        <Filename Value="../../Units/PascalScript/uPSUtils.pas"/>
+        <Caret Line="730" Column="5" TopLine="713"/>
       </Position29>
       <Position30>
-        <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
-        <Caret Line="560" Column="43" TopLine="537"/>
+        <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/window.inc"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position30>
     </JumpHistory>
   </ProjectOptions>

trunk/Units/MMLAddon/PSInc/psexportedmethods.inc

@@ -58,7 +58,7 @@ AddFunction(@ps_RandomRange,'function RandomRange(aFrom,aTo: Integer): Integer;'
 SetCurrSection('Window');
 AddFunction(@Freeze, 'function Freeze:boolean;');
 AddFunction(@Unfreeze, 'function Unfreeze: boolean;');
-AddFunction(@GetClientDimensions, 'procedure GetClientDimensions(out w, h:integer);');
+AddFunction(@GetClientDimensions, 'procedure GetClientDimensions(var w, h:integer);');
 AddFunction(@SetTargetBitmap,'procedure SetTargetBitmap(Bitmap : integer);');
 AddFunction(@SetDesktopAsClient,'procedure SetDesktopAsClient');
 AddFunction(@SetTargetArray, 'procedure SetTargetArray(P: Integer; w, h: integer);');

trunk/Units/MMLAddon/mmlpsthread.pas

@@ -512,26 +512,28 @@ class function TMMLPSThread.GetExportedMethods: TExpMethodArr;
 var
   c : integer;
   CurrSection : string;
-procedure SetCurrSection(str : string);
-begin;
-  CurrSection := Str;
-end;
 
-procedure AddFunction( Ptr : Pointer; DeclStr : String);
-begin;
-//  SetLength(ExportedMethods,c+1);
+  procedure SetCurrSection(str : string);
+  begin;
+    CurrSection := Str;
+  end;
+
+  procedure AddFunction( Ptr : Pointer; DeclStr : String);
+  begin;
+  //  SetLength(ExportedMethods,c+1);
     if c >= 300 then
       raise exception.create('PSThread.LoadMethods: Exported more than 300 functions');
     Result[c].FuncDecl:= DeclStr;
     Result[c].FuncPtr:= Ptr;
     Result[c].Section:= CurrSection;
     inc(c);
-end;
+  end;
 
 begin
   c := 0;
   CurrSection := 'Other';
   SetLength(Result,300);
+
   {$i PSInc/psexportedmethods.inc}
 
   SetLength(Result,c);