moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-11 03:45:06 -05:00
Code Issues Releases Wiki Activity

Some fixes for linux

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@168 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond 2009-11-01 15:04:03 +00:00
parent a3625f5d07
commit c0a090c01c
7 changed files with 1875 additions and 1771 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

344
Projects/SAMufasaGUI/project1.lpi
View File

@ -7,7 +7,7 @@
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<Title Value="Mufasa Stand Alone"/> <Title Value="Mufasa Stand Alone"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="16"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -33,7 +33,7 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="183"> <Units Count="194">
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -168,8 +168,8 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="TestUnit"/> <UnitName Value="TestUnit"/>
<CursorPos X="3" Y="432"/> <CursorPos X="45" Y="751"/>
<TopLine Value="419"/> <TopLine Value="739"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -225,8 +225,8 @@
<Filename Value="../../Units/MMLCore/client.pas"/> <Filename Value="../../Units/MMLCore/client.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="Client"/> <UnitName Value="Client"/>
<CursorPos X="28" Y="34"/> <CursorPos X="87" Y="4"/>
<TopLine Value="26"/> <TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="201"/> <UsageCount Value="201"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -310,26 +310,26 @@
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="mmlpsthread"/> <UnitName Value="mmlpsthread"/>
<CursorPos X="21" Y="184"/> <CursorPos X="31" Y="188"/>
<TopLine Value="162"/> <TopLine Value="188"/>
<EditorIndex Value="12"/> <EditorIndex Value="14"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit37> </Unit37>
<Unit38> <Unit38>
<Filename Value="../../Units/PascalScript/uPSComponent.pas"/> <Filename Value="../../Units/PascalScript/uPSComponent.pas"/>
<UnitName Value="uPSComponent"/> <UnitName Value="uPSComponent"/>
<CursorPos X="42" Y="625"/> <CursorPos X="12" Y="918"/>
<TopLine Value="625"/> <TopLine Value="903"/>
<EditorIndex Value="17"/>
<UsageCount Value="38"/> <UsageCount Value="38"/>
<Loaded Value="True"/>
</Unit38> </Unit38>
<Unit39> <Unit39>
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/classesh.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/classesh.inc"/>
<CursorPos X="15" Y="268"/> <CursorPos X="15" Y="268"/>
<TopLine Value="240"/> <TopLine Value="240"/>
<EditorIndex Value="9"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit39> </Unit39>
<Unit40> <Unit40>
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/types.pp"/> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/types.pp"/>
@ -381,9 +381,11 @@
</Unit46> </Unit46>
<Unit47> <Unit47>
<Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/>
<CursorPos X="73" Y="81"/> <CursorPos X="24" Y="75"/>
<TopLine Value="63"/> <TopLine Value="55"/>
<EditorIndex Value="15"/>
<UsageCount Value="74"/> <UsageCount Value="74"/>
<Loaded Value="True"/>
</Unit47> </Unit47>
<Unit48> <Unit48>
<Filename Value="../../../FPC/FPCCheckout/rtl/win/tthread.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/win/tthread.inc"/>
@ -468,10 +470,10 @@
<Unit60> <Unit60>
<Filename Value="../../../lazarus/lcl/lclintf.pas"/> <Filename Value="../../../lazarus/lcl/lclintf.pas"/>
<UnitName Value="LCLIntf"/> <UnitName Value="LCLIntf"/>
<CursorPos X="10" Y="161"/> <CursorPos X="26" Y="103"/>
<TopLine Value="150"/> <TopLine Value="91"/>
<EditorIndex Value="14"/> <EditorIndex Value="24"/>
<UsageCount Value="11"/> <UsageCount Value="12"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit60> </Unit60>
<Unit61> <Unit61>
@ -574,9 +576,11 @@
</Unit75> </Unit75>
<Unit76> <Unit76>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/>
<CursorPos X="11" Y="58"/> <CursorPos X="24" Y="31"/>
<TopLine Value="1"/> <TopLine Value="21"/>
<EditorIndex Value="16"/>
<UsageCount Value="18"/> <UsageCount Value="18"/>
<Loaded Value="True"/>
</Unit76> </Unit76>
<Unit77> <Unit77>
<Filename Value="../../Units/PascalScript/uPSCompiler.pas"/> <Filename Value="../../Units/PascalScript/uPSCompiler.pas"/>
@ -606,9 +610,11 @@
<Unit81> <Unit81>
<Filename Value="../../Units/PascalScript/uPSRuntime.pas"/> <Filename Value="../../Units/PascalScript/uPSRuntime.pas"/>
<UnitName Value="uPSRuntime"/> <UnitName Value="uPSRuntime"/>
<CursorPos X="1" Y="5864"/> <CursorPos X="29" Y="27"/>
<TopLine Value="5854"/> <TopLine Value="15"/>
<EditorIndex Value="19"/>
<UsageCount Value="17"/> <UsageCount Value="17"/>
<Loaded Value="True"/>
</Unit81> </Unit81>
<Unit82> <Unit82>
<Filename Value="../../Units/MMLAddon/plugins.pas"/> <Filename Value="../../Units/MMLAddon/plugins.pas"/>
@ -671,18 +677,18 @@
<Unit91> <Unit91>
<Filename Value="../../../lazarus/lcl/controls.pp"/> <Filename Value="../../../lazarus/lcl/controls.pp"/>
<UnitName Value="Controls"/> <UnitName Value="Controls"/>
<CursorPos X="15" Y="1300"/> <CursorPos X="15" Y="1323"/>
<TopLine Value="1289"/> <TopLine Value="1311"/>
<EditorIndex Value="2"/> <EditorIndex Value="5"/>
<UsageCount Value="13"/> <UsageCount Value="14"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit91> </Unit91>
<Unit92> <Unit92>
<Filename Value="../../../lazarus/lcl/include/control.inc"/> <Filename Value="../../../lazarus/lcl/include/control.inc"/>
<CursorPos X="20" Y="77"/> <CursorPos X="3" Y="1025"/>
<TopLine Value="65"/> <TopLine Value="1017"/>
<EditorIndex Value="3"/> <EditorIndex Value="6"/>
<UsageCount Value="10"/> <UsageCount Value="11"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit92> </Unit92>
<Unit93> <Unit93>
@ -712,7 +718,7 @@
<UnitName Value="dtm"/> <UnitName Value="dtm"/>
<CursorPos X="34" Y="141"/> <CursorPos X="34" Y="141"/>
<TopLine Value="113"/> <TopLine Value="113"/>
<UsageCount Value="199"/> <UsageCount Value="200"/>
</Unit96> </Unit96>
<Unit97> <Unit97>
<Filename Value="../../../cogat/Units/CogatUnits/comppicker.pas"/> <Filename Value="../../../cogat/Units/CogatUnits/comppicker.pas"/>
@ -727,7 +733,7 @@
<UnitName Value="colourpicker"/> <UnitName Value="colourpicker"/>
<CursorPos X="26" Y="198"/> <CursorPos X="26" Y="198"/>
<TopLine Value="191"/> <TopLine Value="191"/>
<UsageCount Value="195"/> <UsageCount Value="197"/>
</Unit98> </Unit98>
<Unit99> <Unit99>
<Filename Value="../../../cogat/Units/CogatUnits/compdragger.pas"/> <Filename Value="../../../cogat/Units/CogatUnits/compdragger.pas"/>
@ -752,7 +758,7 @@
<UnitName Value="windowselector"/> <UnitName Value="windowselector"/>
<CursorPos X="32" Y="12"/> <CursorPos X="32" Y="12"/>
<TopLine Value="31"/> <TopLine Value="31"/>
<UsageCount Value="185"/> <UsageCount Value="187"/>
</Unit101> </Unit101>
<Unit102> <Unit102>
<Filename Value="../../../usr/lib64/fpc/2.2.4/source/rtl/objpas/classes/classesh.inc"/> <Filename Value="../../../usr/lib64/fpc/2.2.4/source/rtl/objpas/classes/classesh.inc"/>
@ -786,7 +792,7 @@
<UnitName Value="dtmutil"/> <UnitName Value="dtmutil"/>
<CursorPos X="32" Y="18"/> <CursorPos X="32" Y="18"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="172"/> <UsageCount Value="174"/>
</Unit106> </Unit106>
<Unit107> <Unit107>
<Filename Value="../../../cogat/Units/CogatUnits/compmaths.pas"/> <Filename Value="../../../cogat/Units/CogatUnits/compmaths.pas"/>
@ -828,7 +834,7 @@
<UnitName Value="mmath"/> <UnitName Value="mmath"/>
<CursorPos X="32" Y="42"/> <CursorPos X="32" Y="42"/>
<TopLine Value="16"/> <TopLine Value="16"/>
<UsageCount Value="152"/> <UsageCount Value="154"/>
</Unit112> </Unit112>
<Unit113> <Unit113>
<Filename Value="../../../Documents/fpc/rtl/objpas/types.pp"/> <Filename Value="../../../Documents/fpc/rtl/objpas/types.pp"/>
@ -864,7 +870,7 @@
<UnitName Value="ocr"/> <UnitName Value="ocr"/>
<CursorPos X="43" Y="42"/> <CursorPos X="43" Y="42"/>
<TopLine Value="5"/> <TopLine Value="5"/>
<UsageCount Value="122"/> <UsageCount Value="124"/>
</Unit117> </Unit117>
<Unit118> <Unit118>
<Filename Value="../../Units/PascalScript/uPSR_extctrls.pas"/> <Filename Value="../../Units/PascalScript/uPSR_extctrls.pas"/>
@ -879,7 +885,7 @@
<UnitName Value="project"/> <UnitName Value="project"/>
<CursorPos X="46" Y="15"/> <CursorPos X="46" Y="15"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="119"/> <UsageCount Value="121"/>
</Unit119> </Unit119>
<Unit120> <Unit120>
<Filename Value="../../../FPC/FPCCheckout/rtl/inc/heap.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/inc/heap.inc"/>
@ -970,9 +976,9 @@
<Filename Value="../../../lazarus/lcl/comctrls.pp"/> <Filename Value="../../../lazarus/lcl/comctrls.pp"/>
<UnitName Value="ComCtrls"/> <UnitName Value="ComCtrls"/>
<CursorPos X="22" Y="260"/> <CursorPos X="22" Y="260"/>
<TopLine Value="232"/> <TopLine Value="234"/>
<EditorIndex Value="4"/> <EditorIndex Value="7"/>
<UsageCount Value="23"/> <UsageCount Value="24"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit134> </Unit134>
<Unit135> <Unit135>
@ -985,9 +991,11 @@
<Unit136> <Unit136>
<Filename Value="../../Units/PascalScript/uPSDebugger.pas"/> <Filename Value="../../Units/PascalScript/uPSDebugger.pas"/>
<UnitName Value="uPSDebugger"/> <UnitName Value="uPSDebugger"/>
<CursorPos X="3" Y="450"/> <CursorPos X="13" Y="627"/>
<TopLine Value="450"/> <TopLine Value="624"/>
<EditorIndex Value="18"/>
<UsageCount Value="17"/> <UsageCount Value="17"/>
<Loaded Value="True"/>
</Unit136> </Unit136>
<Unit137> <Unit137>
<Filename Value="../../Units/MMLCore/web.pas"/> <Filename Value="../../Units/MMLCore/web.pas"/>
@ -995,7 +1003,7 @@
<UnitName Value="web"/> <UnitName Value="web"/>
<CursorPos X="90" Y="16"/> <CursorPos X="90" Y="16"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="47"/> <UsageCount Value="49"/>
</Unit137> </Unit137>
<Unit138> <Unit138>
<Filename Value="../../../lazarus/lcl/lazhelphtml.pas"/> <Filename Value="../../../lazarus/lcl/lazhelphtml.pas"/>
@ -1194,10 +1202,10 @@
<ComponentName Value="ScriptFrame"/> <ComponentName Value="ScriptFrame"/>
<ResourceBaseClass Value="Frame"/> <ResourceBaseClass Value="Frame"/>
<UnitName Value="framescript"/> <UnitName Value="framescript"/>
<CursorPos X="23" Y="61"/> <CursorPos X="27" Y="61"/>
<TopLine Value="53"/> <TopLine Value="49"/>
<EditorIndex Value="11"/> <EditorIndex Value="13"/>
<UsageCount Value="40"/> <UsageCount Value="42"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit162> </Unit162>
<Unit163> <Unit163>
@ -1215,18 +1223,18 @@
<Unit165> <Unit165>
<Filename Value="../../../lazarus/lcl/extctrls.pp"/> <Filename Value="../../../lazarus/lcl/extctrls.pp"/>
<UnitName Value="ExtCtrls"/> <UnitName Value="ExtCtrls"/>
<CursorPos X="15" Y="170"/> <CursorPos X="14" Y="207"/>
<TopLine Value="142"/> <TopLine Value="195"/>
<EditorIndex Value="5"/> <EditorIndex Value="8"/>
<UsageCount Value="14"/> <UsageCount Value="15"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit165> </Unit165>
<Unit166> <Unit166>
<Filename Value="../../../lazarus/lcl/include/customnotebook.inc"/> <Filename Value="../../../lazarus/lcl/include/customnotebook.inc"/>
<CursorPos X="3" Y="519"/> <CursorPos X="56" Y="307"/>
<TopLine Value="514"/> <TopLine Value="296"/>
<EditorIndex Value="6"/> <EditorIndex Value="9"/>
<UsageCount Value="14"/> <UsageCount Value="15"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit166> </Unit166>
<Unit167> <Unit167>
@ -1298,16 +1306,16 @@
<UnitName Value="LMessages"/> <UnitName Value="LMessages"/>
<CursorPos X="11" Y="429"/> <CursorPos X="11" Y="429"/>
<TopLine Value="429"/> <TopLine Value="429"/>
<EditorIndex Value="13"/> <EditorIndex Value="23"/>
<UsageCount Value="11"/> <UsageCount Value="12"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit176> </Unit176>
<Unit177> <Unit177>
<Filename Value="../../../lazarus/lcl/include/customactionlist.inc"/> <Filename Value="../../../lazarus/lcl/include/customactionlist.inc"/>
<CursorPos X="29" Y="151"/> <CursorPos X="29" Y="151"/>
<TopLine Value="136"/> <TopLine Value="136"/>
<EditorIndex Value="15"/> <EditorIndex Value="27"/>
<UsageCount Value="11"/> <UsageCount Value="12"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit177> </Unit177>
<Unit178> <Unit178>
@ -1315,163 +1323,249 @@
<UnitName Value="ActnList"/> <UnitName Value="ActnList"/>
<CursorPos X="14" Y="188"/> <CursorPos X="14" Y="188"/>
<TopLine Value="166"/> <TopLine Value="166"/>
<EditorIndex Value="16"/> <EditorIndex Value="28"/>
<UsageCount Value="11"/> <UsageCount Value="12"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit178> </Unit178>
<Unit179> <Unit179>
<Filename Value="../../../lazarus/lcl/include/customaction.inc"/> <Filename Value="../../../lazarus/lcl/include/customaction.inc"/>
<CursorPos X="3" Y="247"/> <CursorPos X="3" Y="247"/>
<TopLine Value="245"/> <TopLine Value="245"/>
<EditorIndex Value="17"/> <EditorIndex Value="29"/>
<UsageCount Value="11"/> <UsageCount Value="12"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit179> </Unit179>
<Unit180> <Unit180>
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/lists.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/lists.inc"/>
<CursorPos X="3" Y="626"/> <CursorPos X="3" Y="626"/>
<TopLine Value="624"/> <TopLine Value="624"/>
<EditorIndex Value="10"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit180> </Unit180>
<Unit181> <Unit181>
<Filename Value="../../../lazarus/lcl/include/tabsheet.inc"/> <Filename Value="../../../lazarus/lcl/include/tabsheet.inc"/>
<CursorPos X="11" Y="46"/> <CursorPos X="11" Y="46"/>
<TopLine Value="13"/> <TopLine Value="20"/>
<EditorIndex Value="8"/> <EditorIndex Value="12"/>
<UsageCount Value="10"/> <UsageCount Value="11"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit181> </Unit181>
<Unit182> <Unit182>
<Filename Value="../../../lazarus/lcl/include/custompage.inc"/> <Filename Value="../../../lazarus/lcl/include/custompage.inc"/>
<CursorPos X="34" Y="177"/> <CursorPos X="34" Y="177"/>
<TopLine Value="174"/> <TopLine Value="174"/>
<EditorIndex Value="7"/> <EditorIndex Value="11"/>
<UsageCount Value="10"/> <UsageCount Value="11"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit182> </Unit182>
<Unit183>
<Filename Value="../../../fpc/rtl/inc/threadh.inc"/>
<CursorPos X="11" Y="135"/>
<TopLine Value="139"/>
<EditorIndex Value="3"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit183>
<Unit184>
<Filename Value="../../../fpc/rtl/inc/thread.inc"/>
<CursorPos X="28" Y="155"/>
<TopLine Value="152"/>
<EditorIndex Value="4"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit184>
<Unit185>
<Filename Value="../../../lazarus/lcl/widgetset/wsextctrls.pp"/>
<UnitName Value="WSExtCtrls"/>
<CursorPos X="50" Y="292"/>
<TopLine Value="292"/>
<UsageCount Value="10"/>
</Unit185>
<Unit186>
<Filename Value="../../../lazarus/lcl/interfaces/cocoa/cocoawsextctrls.pas"/>
<UnitName Value="CocoaWSExtCtrls"/>
<CursorPos X="22" Y="72"/>
<TopLine Value="59"/>
<UsageCount Value="10"/>
</Unit186>
<Unit187>
<Filename Value="../../../lazarus/lcl/interfaces/gtk/gtkwsextctrls.pp"/>
<UnitName Value="GtkWSExtCtrls"/>
<CursorPos X="67" Y="557"/>
<TopLine Value="569"/>
<EditorIndex Value="10"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit187>
<Unit188>
<Filename Value="../../../fpc/rtl/inc/objpash.inc"/>
<CursorPos X="21" Y="184"/>
<TopLine Value="172"/>
<EditorIndex Value="2"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit188>
<Unit189>
<Filename Value="../../../fpc/rtl/objpas/sysutils/osutilsh.inc"/>
<CursorPos X="11" Y="25"/>
<TopLine Value="13"/>
<EditorIndex Value="20"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit189>
<Unit190>
<Filename Value="../../../fpc/rtl/unix/sysutils.pp"/>
<UnitName Value="sysutils"/>
<CursorPos X="3" Y="1075"/>
<TopLine Value="1069"/>
<EditorIndex Value="21"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit190>
<Unit191>
<Filename Value="../../../fpc/rtl/unix/bunxh.inc"/>
<CursorPos X="13" Y="81"/>
<TopLine Value="78"/>
<EditorIndex Value="22"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit191>
<Unit192>
<Filename Value="../../../fpc/rtl/objpas/sysutils/datih.inc"/>
<CursorPos X="11" Y="179"/>
<TopLine Value="158"/>
<EditorIndex Value="25"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit192>
<Unit193>
<Filename Value="../../../fpc/rtl/objpas/sysutils/dati.inc"/>
<CursorPos X="12" Y="258"/>
<TopLine Value="254"/>
<EditorIndex Value="26"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit193>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/PascalScript/uPSComponent.pas"/>
<Caret Line="477" Column="14" TopLine="474"/> <Caret Line="877" Column="22" TopLine="865"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="framescript.pas"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/>
<Caret Line="61" Column="23" TopLine="53"/> <Caret Line="26" Column="37" TopLine="12"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/PascalScript/uPSRuntime.pas"/>
<Caret Line="44" Column="22" TopLine="35"/> <Caret Line="744" Column="39" TopLine="732"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/PascalScript/uPSRuntime.pas"/>
<Caret Line="60" Column="29" TopLine="49"/> <Caret Line="638" Column="21" TopLine="626"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/>
<Caret Line="163" Column="42" TopLine="143"/> <Caret Line="26" Column="27" TopLine="12"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="4" Column="64" TopLine="1"/> <Caret Line="68" Column="23" TopLine="56"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/PascalScript/uPSComponent.pas"/>
<Caret Line="5" Column="49" TopLine="82"/> <Caret Line="103" Column="3" TopLine="91"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/PascalScript/uPSComponent.pas"/>
<Caret Line="473" Column="15" TopLine="471"/> <Caret Line="918" Column="14" TopLine="915"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/PascalScript/uPSDebugger.pas"/>
<Caret Line="275" Column="19" TopLine="258"/> <Caret Line="627" Column="15" TopLine="624"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/PascalScript/uPSRuntime.pas"/>
<Caret Line="5" Column="67" TopLine="1"/> <Caret Line="6933" Column="20" TopLine="6930"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/>
<Caret Line="364" Column="64" TopLine="358"/> <Caret Line="26" Column="32" TopLine="12"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/PascalScript/uPSComponent.pas"/>
<Caret Line="744" Column="31" TopLine="735"/> <Caret Line="205" Column="39" TopLine="193"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/PascalScript/uPSComponent.pas"/>
<Caret Line="763" Column="1" TopLine="741"/> <Caret Line="110" Column="5" TopLine="98"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/PascalScript/uPSComponent.pas"/>
<Caret Line="42" Column="141" TopLine="38"/> <Caret Line="918" Column="12" TopLine="903"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/PascalScript/uPSDebugger.pas"/>
<Caret Line="713" Column="7" TopLine="711"/> <Caret Line="627" Column="13" TopLine="624"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/PascalScript/uPSRuntime.pas"/>
<Caret Line="113" Column="125" TopLine="104"/> <Caret Line="6933" Column="21" TopLine="6930"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/>
<Caret Line="753" Column="1" TopLine="732"/> <Caret Line="31" Column="4" TopLine="12"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/>
<Caret Line="747" Column="15" TopLine="721"/> <Caret Line="76" Column="28" TopLine="64"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="testunit.pas"/> <Filename Value="../../../lazarus/lcl/lclintf.pas"/>
<Caret Line="752" Column="49" TopLine="721"/> <Caret Line="103" Column="26" TopLine="91"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="../../../lazarus/lcl/comctrls.pp"/> <Filename Value="../../../fpc/rtl/objpas/sysutils/dati.inc"/>
<Caret Line="234" Column="57" TopLine="206"/> <Caret Line="258" Column="12" TopLine="254"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="../../../lazarus/lcl/include/tabsheet.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/>
<Caret Line="46" Column="11" TopLine="13"/> <Caret Line="75" Column="24" TopLine="55"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="../../../lazarus/lcl/comctrls.pp"/> <Filename Value="testunit.pas"/>
<Caret Line="260" Column="22" TopLine="232"/> <Caret Line="313" Column="44" TopLine="305"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="../../../lazarus/lcl/extctrls.pp"/> <Filename Value="testunit.pas"/>
<Caret Line="83" Column="64" TopLine="55"/> <Caret Line="518" Column="15" TopLine="516"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="../../../lazarus/lcl/include/custompage.inc"/> <Filename Value="testunit.pas"/>
<Caret Line="177" Column="34" TopLine="174"/> <Caret Line="321" Column="20" TopLine="305"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="733" Column="115" TopLine="721"/> <Caret Line="249" Column="93" TopLine="246"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="761" Column="21" TopLine="758"/> <Caret Line="765" Column="33" TopLine="807"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="767" Column="12" TopLine="761"/> <Caret Line="751" Column="45" TopLine="730"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="756" Column="3" TopLine="740"/> <Caret Line="7" Column="97" TopLine="1"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="745" Column="16" TopLine="729"/> <Caret Line="736" Column="47" TopLine="724"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/>
<Caret Line="713" Column="9" TopLine="711"/> <Caret Line="75" Column="24" TopLine="55"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>

18
Projects/SAMufasaGUI/testunit.lfm
View File

@ -1,10 +1,11 @@
object Form1: TForm1 object Form1: TForm1
Left = 229 Left = 278
Height = 553 Height = 553
Top = 78 Top = 235
Width = 723 Width = 723
ActiveControl = PageControl1
Caption = 'Action1' Caption = 'Action1'
ClientHeight = 533 ClientHeight = 528
ClientWidth = 723 ClientWidth = 723
Menu = MainMenu1 Menu = MainMenu1
OnClose = FormClose OnClose = FormClose
@ -60,7 +61,6 @@ object Form1: TForm1
Left = 191 Left = 191
Top = 2 Top = 2
Action = ActionCloseTab Action = ActionCloseTab
Caption = 'TB_CloseTab'
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 214 Left = 214
@ -157,8 +157,8 @@ object Form1: TForm1
end end
object StatusBar: TStatusBar object StatusBar: TStatusBar
Left = 0 Left = 0
Height = 23 Height = 21
Top = 510 Top = 507
Width = 723 Width = 723
Panels = < Panels = <
item item
@ -175,17 +175,17 @@ object Form1: TForm1
end end
object PanelMemo: TPanel object PanelMemo: TPanel
Left = 0 Left = 0
Height = 150 Height = 147
Top = 360 Top = 360
Width = 723 Width = 723
Align = alBottom Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
ClientHeight = 150 ClientHeight = 147
ClientWidth = 723 ClientWidth = 723
TabOrder = 2 TabOrder = 2
object Memo1: TMemo object Memo1: TMemo
Left = 1 Left = 1
Height = 148 Height = 145
Top = 1 Top = 1
Width = 721 Width = 721
Align = alClient Align = alClient

3244
Projects/SAMufasaGUI/testunit.lrs
View File

File diff suppressed because it is too large Load Diff

13
Projects/SAMufasaGUI/testunit.pas
View File

@ -310,7 +310,7 @@ begin
ss_Stopping: ss_Stopping:
begin //Terminate the thread the tough way. begin //Terminate the thread the tough way.
writeln('Terminating the Scriptthread'); writeln('Terminating the Scriptthread');
KillThread(ScriptThread.Handle); Writeln('Exit code terminate: ' +inttostr(KillThread(ScriptThread.Handle)));
ScriptThread.Free; ScriptThread.Free;
ScriptState := ss_None; ScriptState := ss_None;
end; end;
@ -734,6 +734,11 @@ procedure TForm1.PageControl1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean); var Handled: Boolean);
begin begin
PopupTab := PageControl1.TabIndexAtClientPos(MousePos); PopupTab := PageControl1.TabIndexAtClientPos(MousePos);
if PopupTab = -1 then
begin
Writeln('We couldn''t find which tab you clicked on, closing the popup');
Handled := true;
end;
end; end;
procedure TForm1.PageControl1DragDrop(Sender, Source: TObject; X, Y: Integer); procedure TForm1.PageControl1DragDrop(Sender, Source: TObject; X, Y: Integer);
@ -745,10 +750,10 @@ begin
exit; exit;
NewPos := PageControl1.TabIndexAtClientPos(Point(x,y)); NewPos := PageControl1.TabIndexAtClientPos(Point(x,y));
OldPos := PageControl1.TabIndex; OldPos := PageControl1.TabIndex;
if NewPos <> OldPos then if (NewPos <> OldPos) and (NewPos <> -1) then
begin; begin;
Tabs.Move(OldPos,NewPos); Tabs.Move(OldPos,NewPos);
PageControl1.Pages[PageControl1.TabIndex].TabIndex:= PageControl1.TabIndexAtClientPos(Point(x,y)); PageControl1.Pages[OldPos].TabIndex:= NewPos;
end; end;
end; end;
@ -762,7 +767,7 @@ end;
procedure TForm1.PageControl1MouseDown(Sender: TObject; Button: TMouseButton; procedure TForm1.PageControl1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
begin begin
PageControl1.BeginDrag(False); PageControl1.BeginDrag(false);
end; end;

16
Units/MMLAddon/PSInc/Wrappers/other.inc
View File

@ -21,10 +21,24 @@
Other.inc for the Mufasa Macro Library Other.inc for the Mufasa Macro Library
} }
procedure Wait(t: Integer); procedure psWait(t: Integer);
{$ifdef MSWINDOWS}
begin begin
Sleep(t); Sleep(t);
end; end;
{$else}
var
EndTime : integer;
begin
if t > 50 then
begin;
EndTime := GetTickCount + t;
while (CurrThread.PSScript.Exec.Status = isRunning) and (GetTickCount < EndTime) do
Sleep(16);
end else
sleep(t);
end;
{$endif}
procedure SaveScreenshot(FileName: string); procedure SaveScreenshot(FileName: string);
var var

2
Units/MMLAddon/PSInc/pscompile.inc
View File

@ -72,7 +72,7 @@ Sender.AddFunction(@SetTargetArray, 'procedure SetTargetArray(P: Integer; Size:
{other} {other}
Sender.AddFunction(@SaveScreenshot,'procedure SaveScreenshot(FileName: string);'); Sender.AddFunction(@SaveScreenshot,'procedure SaveScreenshot(FileName: string);');
Sender.AddFunction(@Wait, 'procedure wait(t: integer);'); Sender.AddFunction(@psWait, 'procedure wait(t: integer);');
Sender.AddFunction(@GetTickCount, 'function GetSystemTime: Integer;'); Sender.AddFunction(@GetTickCount, 'function GetSystemTime: Integer;');
Sender.AddFunction(@CreateForm,'function CreateForm : TForm;'); Sender.AddFunction(@CreateForm,'function CreateForm : TForm;');
Sender.AddFunction(@CreateButton,'function CreateButton(Owner : TComponent) : TButton'); Sender.AddFunction(@CreateButton,'function CreateButton(Owner : TComponent) : TButton');

9
Units/MMLAddon/mmlpsthread.pas
View File

@ -57,7 +57,6 @@ type
PluginsToload : Array of integer; PluginsToload : Array of integer;
FOnError : TOnError; FOnError : TOnError;
procedure OnCompile(Sender: TPSScript); procedure OnCompile(Sender: TPSScript);
procedure AfterExecute(Sender : TPSScript);
function RequireFile(Sender: TObject; const OriginFileName: String; function RequireFile(Sender: TObject; const OriginFileName: String;
var FileName, OutPut: string): Boolean; var FileName, OutPut: string): Boolean;
procedure OnCompImport(Sender: TObject; x: TPSPascalCompiler); procedure OnCompImport(Sender: TObject; x: TPSPascalCompiler);
@ -160,7 +159,6 @@ begin
PSScript.OnCompile:= @OnCompile; PSScript.OnCompile:= @OnCompile;
PSScript.OnCompImport:= @OnCompImport; PSScript.OnCompImport:= @OnCompImport;
PSScript.OnExecImport:= @OnExecImport; PSScript.OnExecImport:= @OnExecImport;
PSScript.OnAfterExecute:= @AfterExecute;
OnError:= nil; OnError:= nil;
// Set some defines // Set some defines
{$I PSInc/psdefines.inc} {$I PSInc/psdefines.inc}
@ -188,7 +186,6 @@ end;
{$I PSInc/Wrappers/other.inc} {$I PSInc/Wrappers/other.inc}
{$I PSInc/Wrappers/bitmap.inc} {$I PSInc/Wrappers/bitmap.inc}
{$I PSInc/Wrappers/window.inc} {$I PSInc/Wrappers/window.inc}
{$I PSInc/Wrappers/colour.inc} {$I PSInc/Wrappers/colour.inc}
{$I PSInc/Wrappers/math.inc} {$I PSInc/Wrappers/math.inc}
{$I PSInc/Wrappers/mouse.inc} {$I PSInc/Wrappers/mouse.inc}
@ -237,12 +234,6 @@ begin
{$I PSInc/pscompile.inc} {$I PSInc/pscompile.inc}
end; end;
procedure TMMLPSThread.AfterExecute(Sender: TPSScript);
begin
//Here we add all the Script-freeing-leftovers (like BMParray etc)
// ^ This will all be done with Client.Destroy;
end;
function TMMLPSThread.RequireFile(Sender: TObject; function TMMLPSThread.RequireFile(Sender: TObject;
const OriginFileName: String; var FileName, OutPut: string): Boolean; const OriginFileName: String; var FileName, OutPut: string): Boolean;
var var