Hollywood forums

Code: Select all

@REQUIRE "RapaGUI"

Function p_EventFunc(msg)

	If (msg.attribute = "Active") And StartsWith(msg.triggervalue, "item") Then moai.Set("pv", "active", Val(UnrightStr(msg.triggervalue, 4)) - 1) 
			
EndFunction

xml$ = [[
<?xml version="1.0" encoding="iso-8859-1"?>
<application id="app">
					
	<window id="win" title="Tasks" height="400" width="400">
		<vgroup>
			<hgroup>
				<treeview id="tv" height="250" notify="active">
					<column title="Column"/>
					
					<node id="tasks" name="My Tasks" >
						<leaf id="item1">
							<item>One</item>
						</leaf>
						<leaf id="item2">
							<item>Two</item>
						</leaf>
						<leaf id="item3">
							<item>Three</item>
						</leaf>					
					</node>
				</treeview>
				<pageview id="pv">
					<vgroup title="Page 1">
				       		<listview>
				          		<column>
				             			<item>Entry</item>
				          		</column>
				       		</listview>
				   	</vgroup>
				   	<vgroup title="Page 2">
				       		<texteditor/>
				   	</vgroup>
				   	<vgroup title="Page 3">
				       		<button id="btn">Click me</button>
				   	</vgroup>
				</pageview>
			</hgroup>						
		</vgroup>
	</window>
</application>
]]

moai.CreateApp(xml$)

InstallEventHandler({RapaGUI = p_EventFunc})

; main loop!
Repeat
	WaitEvent
Forever

Code: Select all

- Change [MorphOS]: Added a workaround for a bug in MorphOS' listtree class that caused notifications on
  Listtree.Active to return the wrong items