Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2024-06-07 09:29:32 +00:00
Code Issues Projects Releases Wiki Activity

window debug

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-13 18:12:47 +10:00
parent 38dcdd2b87
commit c8b17324af
10 changed files with 172 additions and 88 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
backup/main.lfm
View File

@ -19,6 +19,8 @@ object GUIForm: TGUIForm
OnKeyDown = FormKeyDown
OnKeyPress = FormKeyPress
OnKeyUp = FormKeyUp
OnMouseDown = FormMouseDown
OnMouseUp = FormMouseUp
OnResize = FormResize
OnShow = FormShow
OnUTF8KeyPress = FormUTF8KeyPress
@ -5433,14 +5435,14 @@ object GUIForm: TGUIForm
end
end
object embedPanel: TPanel
Left = 0
Left = 150
Height = 589
Top = 0
Width = 844
Width = 694
Align = alClient
BevelOuter = bvNone
ClientHeight = 589
ClientWidth = 844
ClientWidth = 694
Color = clBlack
Font.Color = clWhite
ParentColor = False
@ -5450,12 +5452,23 @@ object GUIForm: TGUIForm
Left = 0
Height = 589
Top = 0
Width = 844
Width = 694
Align = alClient
OnClick = backdropClick
Stretch = True
end
end
object log: TMemo
Left = 0
Height = 589
Top = 0
Width = 150
Align = alLeft
Lines.Strings = (
'log'
)
TabOrder = 2
end
end
object MainMenu1: TMainMenu
Images = ToolbarIcons

31
backup/main.pas
View File

@ -21,6 +21,7 @@ type
{ TGUIForm }
TGUIForm = class(TForm)
log: TMemo;
miDisk2WPToggle: TMenuItem;
miDisk1WPToggle: TMenuItem;
MenuItem14: TMenuItem;
@ -312,6 +313,10 @@ type
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormKeyPress(Sender: TObject; var Key: char);
procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormResize(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
@ -579,7 +584,7 @@ begin
if MillisecondsBetween(Now(), lastHideTime) < 1000 then
exit;
ShowM8;
//Memo1.Lines.Add('app is activating');
//log.Lines.Add('app is activating');
end;
procedure TGUIForm.AppDeactivate(Sender: TObject);
@ -597,10 +602,11 @@ begin
begin
lastFocusLostTime:=Now();
StatusBar1.SimpleText:='focus';
// send fake mouse button state change
SimpleGet( baseUrl + '/api/control/mouse/buttonstate/1' );
end;
//StatusBar1.SimpleText := GetTitleOfActiveWindow;
//Memo1.Lines.Add('app is deactivating');
//log.Lines.Add('app is deactivating');
end;
procedure TGUIForm.RebootVM;
@ -1917,7 +1923,7 @@ procedure TGUIForm.HideM8;
begin
if hidden then
exit;
//Memo1.Lines.Add('hiding m8 window');
//log.Lines.Add('hiding m8 window');
SimpleGet(baseUrl + '/api/control/window/hide');
lastHideTime := Now();
hidden := true;
@ -1932,7 +1938,7 @@ procedure TGUIForm.ShowM8;
begin
if not hidden then
exit;
//Memo1.Lines.Add('showing m8 window');
//log.Lines.Add('showing m8 window');
SimpleGet(baseUrl + '/api/control/window/show');
lastShowTime := Now();
hidden := false;
@ -2309,6 +2315,9 @@ begin
if IsMouseBtnDown then
exit;
// another hack: disable mouse buttons on refocus
SimpleGet( baseUrl + '/api/control/mouse/buttonstate/0' );
//Application.Restore;
StatusBar1.SimpleText := 'trying to focus '+DateTimeToStr(Now);
Application.BringToFront;
@ -2518,6 +2527,18 @@ begin
//StatusBar1.SimpleText := 'keycode ' + IntToStr(Key);
end;
procedure TGUIForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
log.Lines.Add('mouse button down at '+IntToStr(x)+', '+IntToStr(y));
end;
procedure TGUIForm.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
log.Lines.Add('mouse button up at '+IntToStr(x)+', '+IntToStr(y));
end;
procedure TGUIForm.FormResize(Sender: TObject);
var
h: double;
@ -2540,7 +2561,7 @@ end;
procedure TGUIForm.FormWindowStateChange(Sender: TObject);
begin
//Memo1.Lines.Add('window state has changed');
//log.Lines.Add('window state has changed');
if WindowState = wsMinimized then
HideM8
else

64
backup/poc.lps
View File

@ -21,8 +21,8 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<TopLine Value="1745"/>
<CursorPos X="51" Y="1772"/>
<TopLine Value="1750"/>
<CursorPos X="51" Y="1777"/>
<UsageCount Value="323"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -57,123 +57,123 @@
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="main.pas"/>
<Caret Line="2463" Column="3" TopLine="2435"/>
<Caret Line="1514" Column="67" TopLine="1512"/>
</Position1>
<Position2>
<Filename Value="main.pas"/>
<Caret Line="2464" Column="3" TopLine="2436"/>
<Caret Line="1515" Column="3" TopLine="1513"/>
</Position2>
<Position3>
<Filename Value="main.pas"/>
<Caret Line="2465" Column="3" TopLine="2437"/>
<Caret Line="1528" Column="32" TopLine="1513"/>
</Position3>
<Position4>
<Filename Value="main.pas"/>
<Caret Line="2466" Column="3" TopLine="2438"/>
<Caret Line="1529" Column="32" TopLine="1514"/>
</Position4>
<Position5>
<Filename Value="main.pas"/>
<Caret Line="2473" Column="3" TopLine="2445"/>
<Caret Line="1531" Column="32" TopLine="1516"/>
</Position5>
<Position6>
<Filename Value="main.pas"/>
<Caret Line="1514" Column="67" TopLine="1512"/>
<Caret Line="1579" Column="35" TopLine="1577"/>
</Position6>
<Position7>
<Filename Value="main.pas"/>
<Caret Line="1515" Column="3" TopLine="1513"/>
<Caret Line="2440" TopLine="2437"/>
</Position7>
<Position8>
<Filename Value="main.pas"/>
<Caret Line="1528" Column="32" TopLine="1513"/>
<Caret Line="1580" Column="22" TopLine="1577"/>
</Position8>
<Position9>
<Filename Value="main.pas"/>
<Caret Line="1529" Column="32" TopLine="1514"/>
<Caret Line="2242" Column="62" TopLine="2215"/>
</Position9>
<Position10>
<Filename Value="main.pas"/>
<Caret Line="1531" Column="32" TopLine="1516"/>
<Caret Line="2240" Column="57" TopLine="2221"/>
</Position10>
<Position11>
<Filename Value="main.pas"/>
<Caret Line="1579" Column="35" TopLine="1577"/>
<Caret Line="1477" Column="3" TopLine="1475"/>
</Position11>
<Position12>
<Filename Value="main.pas"/>
<Caret Line="2440" TopLine="2437"/>
<Caret Line="1478" Column="3" TopLine="1476"/>
</Position12>
<Position13>
<Filename Value="main.pas"/>
<Caret Line="1580" Column="22" TopLine="1577"/>
<Caret Line="1485" Column="3" TopLine="1483"/>
</Position13>
<Position14>
<Filename Value="main.pas"/>
<Caret Line="2242" Column="62" TopLine="2215"/>
<Caret Line="1057" Column="8" TopLine="1055"/>
</Position14>
<Position15>
<Filename Value="main.pas"/>
<Caret Line="2240" Column="57" TopLine="2221"/>
<Caret Line="902" Column="5" TopLine="900"/>
</Position15>
<Position16>
<Filename Value="main.pas"/>
<Caret Line="1477" Column="3" TopLine="1475"/>
<Caret Line="1062" Column="28" TopLine="1055"/>
</Position16>
<Position17>
<Filename Value="main.pas"/>
<Caret Line="1478" Column="3" TopLine="1476"/>
<Caret Line="2256" Column="14" TopLine="2244"/>
</Position17>
<Position18>
<Filename Value="main.pas"/>
<Caret Line="1485" Column="3" TopLine="1483"/>
<Caret Line="2396" Column="47" TopLine="2393"/>
</Position18>
<Position19>
<Filename Value="main.pas"/>
<Caret Line="1057" Column="8" TopLine="1055"/>
<Caret Line="2390" Column="17" TopLine="2378"/>
</Position19>
<Position20>
<Filename Value="main.pas"/>
<Caret Line="902" Column="5" TopLine="900"/>
<Caret Line="2406" Column="17" TopLine="2378"/>
</Position20>
<Position21>
<Filename Value="main.pas"/>
<Caret Line="1062" Column="28" TopLine="1055"/>
<Caret Line="2363" Column="37" TopLine="2349"/>
</Position21>
<Position22>
<Filename Value="main.pas"/>
<Caret Line="2256" Column="14" TopLine="2244"/>
<Caret Line="2364" Column="37" TopLine="2350"/>
</Position22>
<Position23>
<Filename Value="main.pas"/>
<Caret Line="2396" Column="47" TopLine="2393"/>
<Caret Line="2365" Column="37" TopLine="2351"/>
</Position23>
<Position24>
<Filename Value="main.pas"/>
<Caret Line="2390" Column="17" TopLine="2378"/>
<Caret Line="2366" Column="37" TopLine="2352"/>
</Position24>
<Position25>
<Filename Value="main.pas"/>
<Caret Line="2406" Column="17" TopLine="2378"/>
<Caret Line="480" Column="15" TopLine="465"/>
</Position25>
<Position26>
<Filename Value="main.pas"/>
<Caret Line="2363" Column="37" TopLine="2349"/>
<Caret Line="1772" Column="51" TopLine="1745"/>
</Position26>
<Position27>
<Filename Value="main.pas"/>
<Caret Line="2364" Column="37" TopLine="2350"/>
<Caret Line="1773" Column="51" TopLine="1746"/>
</Position27>
<Position28>
<Filename Value="main.pas"/>
<Caret Line="2365" Column="37" TopLine="2351"/>
<Caret Line="1774" Column="51" TopLine="1747"/>
</Position28>
<Position29>
<Filename Value="main.pas"/>
<Caret Line="2366" Column="37" TopLine="2352"/>
<Caret Line="1775" Column="51" TopLine="1748"/>
</Position29>
<Position30>
<Filename Value="main.pas"/>
<Caret Line="480" Column="15" TopLine="465"/>
<Caret Line="1776" Column="51" TopLine="1749"/>
</Position30>
</JumpHistory>
<RunParams>

23
lib/x86_64-win64/main.lfm
View File

@ -19,6 +19,8 @@ object GUIForm: TGUIForm
OnKeyDown = FormKeyDown
OnKeyPress = FormKeyPress
OnKeyUp = FormKeyUp
OnMouseDown = FormMouseDown
OnMouseUp = FormMouseUp
OnResize = FormResize
OnShow = FormShow
OnUTF8KeyPress = FormUTF8KeyPress
@ -5433,29 +5435,42 @@ object GUIForm: TGUIForm
end
end
object embedPanel: TPanel
Left = 0
Left = 150
Height = 589
Top = 0
Width = 844
Width = 694
Align = alClient
BevelOuter = bvNone
ClientHeight = 589
ClientWidth = 844
ClientWidth = 694
Color = clBlack
Font.Color = clWhite
ParentColor = False
ParentFont = False
TabOrder = 1
OnMouseDown = FormMouseDown
OnMouseUp = FormMouseUp
object backdrop: TImage
Left = 0
Height = 589
Top = 0
Width = 844
Width = 694
Align = alClient
OnClick = backdropClick
Stretch = True
end
end
object log: TMemo
Left = 0
Height = 589
Top = 0
Width = 150
Align = alLeft
Lines.Strings = (
'log'
)
TabOrder = 2
end
end
object MainMenu1: TMainMenu
Images = ToolbarIcons

BIN
lib/x86_64-win64/main.o
View File

Binary file not shown.

BIN
lib/x86_64-win64/main.ppu
View File

Binary file not shown.

BIN
lib/x86_64-win64/poc.obj
View File

Binary file not shown.

23
main.lfm
View File

@ -19,6 +19,8 @@ object GUIForm: TGUIForm
OnKeyDown = FormKeyDown
OnKeyPress = FormKeyPress
OnKeyUp = FormKeyUp
OnMouseDown = FormMouseDown
OnMouseUp = FormMouseUp
OnResize = FormResize
OnShow = FormShow
OnUTF8KeyPress = FormUTF8KeyPress
@ -5433,29 +5435,42 @@ object GUIForm: TGUIForm
end
end
object embedPanel: TPanel
Left = 0
Left = 150
Height = 589
Top = 0
Width = 844
Width = 694
Align = alClient
BevelOuter = bvNone
ClientHeight = 589
ClientWidth = 844
ClientWidth = 694
Color = clBlack
Font.Color = clWhite
ParentColor = False
ParentFont = False
TabOrder = 1
OnMouseDown = FormMouseDown
OnMouseUp = FormMouseUp
object backdrop: TImage
Left = 0
Height = 589
Top = 0
Width = 844
Width = 694
Align = alClient
OnClick = backdropClick
Stretch = True
end
end
object log: TMemo
Left = 0
Height = 589
Top = 0
Width = 150
Align = alLeft
Lines.Strings = (
'log'
)
TabOrder = 2
end
end
object MainMenu1: TMainMenu
Images = ToolbarIcons

30
main.pas
View File

@ -21,6 +21,7 @@ type
{ TGUIForm }
TGUIForm = class(TForm)
log: TMemo;
miDisk2WPToggle: TMenuItem;
miDisk1WPToggle: TMenuItem;
MenuItem14: TMenuItem;
@ -312,6 +313,10 @@ type
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormKeyPress(Sender: TObject; var Key: char);
procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormResize(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
@ -579,7 +584,7 @@ begin
if MillisecondsBetween(Now(), lastHideTime) < 1000 then
exit;
ShowM8;
//Memo1.Lines.Add('app is activating');
//log.Lines.Add('app is activating');
end;
procedure TGUIForm.AppDeactivate(Sender: TObject);
@ -601,7 +606,7 @@ begin
SimpleGet( baseUrl + '/api/control/mouse/buttonstate/1' );
end;
//StatusBar1.SimpleText := GetTitleOfActiveWindow;
//Memo1.Lines.Add('app is deactivating');
//log.Lines.Add('app is deactivating');
end;
procedure TGUIForm.RebootVM;
@ -1918,7 +1923,7 @@ procedure TGUIForm.HideM8;
begin
if hidden then
exit;
//Memo1.Lines.Add('hiding m8 window');
//log.Lines.Add('hiding m8 window');
SimpleGet(baseUrl + '/api/control/window/hide');
lastHideTime := Now();
hidden := true;
@ -1933,7 +1938,7 @@ procedure TGUIForm.ShowM8;
begin
if not hidden then
exit;
//Memo1.Lines.Add('showing m8 window');
//log.Lines.Add('showing m8 window');
SimpleGet(baseUrl + '/api/control/window/show');
lastShowTime := Now();
hidden := false;
@ -2310,6 +2315,9 @@ begin
if IsMouseBtnDown then
exit;
// another hack: disable mouse buttons on refocus
SimpleGet( baseUrl + '/api/control/mouse/buttonstate/0' );
//Application.Restore;
StatusBar1.SimpleText := 'trying to focus '+DateTimeToStr(Now);
Application.BringToFront;
@ -2519,6 +2527,18 @@ begin
//StatusBar1.SimpleText := 'keycode ' + IntToStr(Key);
end;
procedure TGUIForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
log.Lines.Add('mouse button down at '+IntToStr(x)+', '+IntToStr(y));
end;
procedure TGUIForm.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
log.Lines.Add('mouse button up at '+IntToStr(x)+', '+IntToStr(y));
end;
procedure TGUIForm.FormResize(Sender: TObject);
var
h: double;
@ -2541,7 +2561,7 @@ end;
procedure TGUIForm.FormWindowStateChange(Sender: TObject);
begin
//Memo1.Lines.Add('window state has changed');
//log.Lines.Add('window state has changed');
if WindowState = wsMinimized then
HideM8
else

68
poc.lps
View File

@ -21,8 +21,8 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<TopLine Value="1750"/>
<CursorPos X="51" Y="1777"/>
<TopLine Value="2530"/>
<CursorPos X="68" Y="2549"/>
<UsageCount Value="323"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -43,7 +43,7 @@
<EditorIndex Value="-1"/>
<TopLine Value="576"/>
<CursorPos X="49" Y="591"/>
<UsageCount Value="114"/>
<UsageCount Value="110"/>
</Unit3>
<Unit4>
<Filename Value="C:\lazarus\components\lazutils\utf8process.pp"/>
@ -51,129 +51,129 @@
<EditorIndex Value="-1"/>
<TopLine Value="636"/>
<CursorPos Y="654"/>
<UsageCount Value="10"/>
<UsageCount Value="6"/>
</Unit4>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="main.pas"/>
<Caret Line="1514" Column="67" TopLine="1512"/>
<Caret Line="2412" Column="30" TopLine="2393"/>
</Position1>
<Position2>
<Filename Value="main.pas"/>
<Caret Line="1515" Column="3" TopLine="1513"/>
<Caret Line="2406" Column="44" TopLine="2394"/>
</Position2>
<Position3>
<Filename Value="main.pas"/>
<Caret Line="1528" Column="32" TopLine="1513"/>
<Caret Line="2290" Column="18" TopLine="2282"/>
</Position3>
<Position4>
<Filename Value="main.pas"/>
<Caret Line="1529" Column="32" TopLine="1514"/>
<Caret Line="896" Column="3" TopLine="885"/>
</Position4>
<Position5>
<Filename Value="main.pas"/>
<Caret Line="1531" Column="32" TopLine="1516"/>
<Caret Line="903" Column="3" TopLine="892"/>
</Position5>
<Position6>
<Filename Value="main.pas"/>
<Caret Line="1579" Column="35" TopLine="1577"/>
<Caret Line="719" Column="92" TopLine="717"/>
</Position6>
<Position7>
<Filename Value="main.pas"/>
<Caret Line="2440" TopLine="2437"/>
<Caret Line="904" Column="56" TopLine="902"/>
</Position7>
<Position8>
<Filename Value="main.pas"/>
<Caret Line="1580" Column="22" TopLine="1577"/>
<Caret Line="719" Column="3" TopLine="717"/>
</Position8>
<Position9>
<Filename Value="main.pas"/>
<Caret Line="2242" Column="62" TopLine="2215"/>
<Caret Line="721" Column="3" TopLine="719"/>
</Position9>
<Position10>
<Filename Value="main.pas"/>
<Caret Line="2240" Column="57" TopLine="2221"/>
<Caret Line="917" Column="3" TopLine="915"/>
</Position10>
<Position11>
<Filename Value="main.pas"/>
<Caret Line="1477" Column="3" TopLine="1475"/>
<Caret Line="727" Column="84" TopLine="725"/>
</Position11>
<Position12>
<Filename Value="main.pas"/>
<Caret Line="1478" Column="3" TopLine="1476"/>
<Caret Line="473" Column="58" TopLine="455"/>
</Position12>
<Position13>
<Filename Value="main.pas"/>
<Caret Line="1485" Column="3" TopLine="1483"/>
<Caret Line="9" Column="60"/>
</Position13>
<Position14>
<Filename Value="main.pas"/>
<Caret Line="1057" Column="8" TopLine="1055"/>
<Caret Line="557" Column="41" TopLine="533"/>
</Position14>
<Position15>
<Filename Value="main.pas"/>
<Caret Line="902" Column="5" TopLine="900"/>
<Caret Line="2046" Column="35" TopLine="1936"/>
</Position15>
<Position16>
<Filename Value="main.pas"/>
<Caret Line="1062" Column="28" TopLine="1055"/>
<Caret Line="503" Column="22" TopLine="479"/>
</Position16>
<Position17>
<Filename Value="main.pas"/>
<Caret Line="2256" Column="14" TopLine="2244"/>
<Caret Line="309" Column="43" TopLine="293"/>
</Position17>
<Position18>
<Filename Value="main.pas"/>
<Caret Line="2396" Column="47" TopLine="2393"/>
<Caret Line="503" Column="5" TopLine="485"/>
</Position18>
<Position19>
<Filename Value="main.pas"/>
<Caret Line="2390" Column="17" TopLine="2378"/>
<Caret Line="508" Column="17" TopLine="486"/>
</Position19>
<Position20>
<Filename Value="main.pas"/>
<Caret Line="2406" Column="17" TopLine="2378"/>
<Caret Line="2362" Column="39" TopLine="2350"/>
</Position20>
<Position21>
<Filename Value="main.pas"/>
<Caret Line="2363" Column="37" TopLine="2349"/>
<Caret Line="2302" Column="47" TopLine="2289"/>
</Position21>
<Position22>
<Filename Value="main.pas"/>
<Caret Line="2364" Column="37" TopLine="2350"/>
<Caret Line="2362" Column="3" TopLine="2360"/>
</Position22>
<Position23>
<Filename Value="main.pas"/>
<Caret Line="2365" Column="37" TopLine="2351"/>
<Caret Line="2300" Column="44" TopLine="2289"/>
</Position23>
<Position24>
<Filename Value="main.pas"/>
<Caret Line="2366" Column="37" TopLine="2352"/>
<Caret Line="14" Column="42"/>
</Position24>
<Position25>
<Filename Value="main.pas"/>
<Caret Line="480" Column="15" TopLine="465"/>
<Caret Line="572" Column="37" TopLine="541"/>
</Position25>
<Position26>
<Filename Value="main.pas"/>
<Caret Line="1772" Column="51" TopLine="1745"/>
<Caret Line="562" Column="29" TopLine="550"/>
</Position26>
<Position27>
<Filename Value="main.pas"/>
<Caret Line="1773" Column="51" TopLine="1746"/>
<Caret Line="590" Column="67" TopLine="662"/>
</Position27>
<Position28>
<Filename Value="main.pas"/>
<Caret Line="1774" Column="51" TopLine="1747"/>
<Caret Line="2323" Column="34" TopLine="2297"/>
</Position28>
<Position29>
<Filename Value="main.pas"/>
<Caret Line="1775" Column="51" TopLine="1748"/>
<Caret Line="2326" Column="34" TopLine="2300"/>
</Position29>
<Position30>
<Filename Value="main.pas"/>
<Caret Line="1776" Column="51" TopLine="1749"/>
<Caret Line="2533" Column="3" TopLine="2530"/>
</Position30>
</JumpHistory>
<RunParams>