moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-16 15:20:09 -05:00
Code Issues Releases Wiki Activity

DTM editor now works in normal mode (and should work in extension mode.. Just doesn't, check it out later tonight).

Browse Source
This commit is contained in:
Raymond 2010-06-15 19:56:30 +02:00
parent af3516aa8e
commit 1277cd76a2
3 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Extensions/dtm_editor.sex
View File

@ -1,5 +1,8 @@
program DTMEditor_Extension;
var
Client : TClient;
Simba_MainMenu : TMainMenu;
{$i mml.simba}
const
Version = '0.5';
@ -1292,12 +1295,12 @@ begin
end;
end;
{procedure ThreadSafe_ShowForm;
procedure ThreadSafe_ShowForm;
var
v: TVariantArray;
begin
ThreadSafeCall('ShowForm', v);
end;}
end;
{
Simba integration
@ -1341,4 +1344,6 @@ begin;
end;
begin
Client := GetTClient;
ThreadSafe_ShowForm;
end.

1
Units/MMLAddon/PSInc/uPSC_mml.pas
View File

@ -328,6 +328,7 @@ begin
with CL.AddClassN(CL.FindClass('TIOManager_Abstract'),'TIOManager') do
begin
RegisterMethod('Constructor Create( plugin_dir : string)');
RegisterMethod('procedure SetDesktop;');
RegisterMethod('Function SetTarget( target : TNativeWindow) : integer;');
end;
end;

1
Units/MMLAddon/PSInc/uPSR_mml.pas
View File

@ -417,6 +417,7 @@ begin
with CL.Add(TIOManager) do
begin
RegisterConstructor(@TIOManagerCreate, 'Create');
RegisterMethod(@TIOManager.SetDesktop,'SetDesktop');
RegisterMethod(@TIOManagerSetTarget_P, 'SetTarget');
end;
end;