// Called by Directory Opus to initialize the script
function OnInit(initData)
{
	initData.name = "Mouse Coords";
	initData.version = "1.0";
	initData.copyright = "(c) 2023 Leo Davidson";
//	initData.url = "https://resource.dopus.com/c/buttons-scripts/16";
	initData.desc = "Display the mouse coordinates";
	initData.default_enable = true;
	initData.min_version = "12.0";

}

// Called to add commands to Opus
function OnAddCommands(addCmdData)
{
	var cmd = addCmdData.AddCommand();
	cmd.name = "MouseCoords";
	cmd.method = "OnMouseCoords";
	cmd.desc = "";
	cmd.label = "MouseCoords";
	cmd.template = "";
	cmd.hide = false;
	cmd.icon = "script";
}


// Implement the MouseCoords command
function OnMouseCoords(scriptCmdData)
{
    var Dlg = DOpus.Dlg;
    Dlg.window = scriptCmdData.func.sourcetab;
    Dlg.template = "MouseCoords";
    Dlg.detach = true;
	Dlg.Create();
	var Ctrl = Dlg.Control("StaticCoords");
	var SysInfo = DOpus.Create.SysInfo;
	UpdateCtrl(Ctrl,SysInfo);
    Dlg.Show();
	Dlg.SetTimer(50,"UpdatePos");
    while (true) {
        var Msg = Dlg.GetMsg();
        if (!Msg.result)
			break;
		if (Msg.event=="timer" && Msg.control=="UpdatePos")
			UpdateCtrl(Ctrl,SysInfo);
    }
}

// Helper
function UpdateCtrl(Ctrl,SysInfo)
{
	var s = "Monitor: "
		  + SysInfo.MouseMonitor
		  + "; Position: "
		  + SysInfo.MousePosX
		  + " x "
		  + SysInfo.MousePosY;
	Ctrl.label = s;
}
==SCRIPT RESOURCES
<resources>
	<resource name="MouseCoords" type="dialog">
		<dialog fontsize="9" height="16" lang="" title="Mouse Coordinates" width="135">
			<control halign="left" height="8" name="StaticCoords" title="Static" type="static" valign="top" width="126" x="4" y="4" />
		</dialog>
	</resource>
</resources>