1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-25 18:52:15 -05:00

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
This commit is contained in:
BenLand100 2010-01-22 03:11:37 +00:00
parent c0a68352af
commit bbd9f73942
5 changed files with 145 additions and 132 deletions

Binary file not shown.

Binary file not shown.

View File

@ -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>

View File

@ -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);');

View File

@ -512,6 +512,7 @@ class function TMMLPSThread.GetExportedMethods: TExpMethodArr;
var
c : integer;
CurrSection : string;
procedure SetCurrSection(str : string);
begin;
CurrSection := Str;
@ -532,6 +533,7 @@ begin
c := 0;
CurrSection := 'Other';
SetLength(Result,300);
{$i PSInc/psexportedmethods.inc}
SetLength(Result,c);