Hollywood forums

Code: Select all

@REQUIRE "RapaGUI"

GUI$=[[<application id="app">
<menu title="Test" id="test">
	<item id="Cut">Cut</item>
	<item id="Copy">Copy</item>
	<item id="Paste">Paste</item>
	<menu title="Sub">
		<item id="a">a</item>
		<item id="b">b</item>
 		<item id="c">c</item>
	</menu>
</menu>
<window id="Main" Title="Test">
	<vgroup>
		<hollywood display="1" fixwidth="true" fixheight="true"  contextmenu="test"/>
	</vgroup>
</window>
</application>]]

moai.CreateApp(GUI$)

Function p_EventFunc(msg)
	DebugPrint(msg.id)
EndFunction

InstallEventHandler({RapaGUI=p_EventFunc})

Repeat
	WaitEvent
Forever