Code: Select all
@REQUIRE "RapaGUI"
@REQUIRE "polybios"
@DISPLAY {Width = 640, Height = 480, Color = #BLACK, Layers=True}
TextOut(10, 10, "Mouse Position:", {Name="Text"})
Function p_UpdatePos(msg)
SetLayerStyle("Text", {Text="Mouse Position:\nX="..msg.x.."\nY="..msg.y..""})
EndFunction
AppGUI$=[[<application id="app">
<window id="Main" closegadget="true">
<vgroup frame="true">
<hollywood FixWidth="false" FixHeight="false" display="1"/>
</vgroup>
</window>
</application>]]
moai.CreateApp(AppGUI$)
InstallEventHandler({OnMouseMove=p_UpdatePos})
Repeat
WaitEvent
Forever