Hollywood forums

Code: Select all

RapaGUI code ##############################################################################
@DISPLAY 1, {Hidden=True}
@APPIDENTIFIER "1.2.3.4"
@REQUIRE "rapagui"

mode=True

Function p_CreateGUI()
    moai.FreeApp()

    If mode
        moai.CreateApp([[
<?xml version="1.0" encoding="iso-8859-1"?>
<application id="app">
    <window id="wi_main" title="GUI 1" notify="CloseRequest" open="1">
        <vgroup>
            <text>This is long text so that we can see the name of the window.</text>
            <button id="bt_gui" notify="pressed">Switch to 2</button>
        </vgroup>
    </window>
</application>
]])
    Else
        moai.CreateApp([[
<?xml version="1.0" encoding="iso-8859-1"?>
<application id="app">
    <window id="wi_main1" title="GUI 2" notify="CloseRequest" open="1">
        <vgroup>
            <text>This is long text so that we can see the name of the window.</text>
            <button id="bt_gui" notify="pressed">Switch to 1</button>
        </vgroup>
    </window>
</application>
]])
    EndIf
EndFunction

Function p_EventFunc(msg)
    Switch msg.Action
        Case "RapaGUI":
            Switch msg.Class
                Case "Window":
                    End()
        Case "Button":
            Switch msg.id
						Case "bt_gui":
							mode=Not mode
							p_CreateGUI()
					EndSwitch
			EndSwitch
	EndSwitch
EndFunction

Same code but in MUIRoyale ##################################################################
@DISPLAY 1, {Hidden=True}

@REQUIRE "muiroyale"

mode=True

Function p_CreateGUI()
	mui.FreeGUI()

	If mode
		mui.CreateGUI([[
<?xml version="1.0" encoding="iso-8859-1"?>
<application id="app" base="TEST">
	<window id="wi_main" title="GUI 1" muiid="MAIN" notify="CloseRequest" open="1">
		<vgroup>
			<text>This is long text so that we can see the name of the window.</text>
			<button id="bt_gui" notify="pressed">Switch to 2</button>
		</vgroup>
	</window>
</application>
]])
	Else
			mui.CreateGUI([[
<?xml version="1.0" encoding="iso-8859-1"?>
<application id="app" base="TEST">
	<window id="wi_main" title="GUI 2" muiid="MAIN" notify="CloseRequest" open="1">
		<vgroup>
			<text>This is long text so that we can see the name of the window.</text>
			<button id="bt_gui" notify="pressed">Switch to 1</button>
		</vgroup>
	</window>
</application>
]])
	EndIf
EndFunction

Function p_EventFunc(msg)
	Switch msg.Action
		Case "MUIRoyale":
			Switch msg.Class
				Case "Window":
					End()
				Case "Button":
					Switch msg.id
						Case "bt_gui":
							mode=Not mode
							p_CreateGUI()
					EndSwitch
			EndSwitch
	EndSwitch
EndFunction

p_CreateGUI()

InstallEventHandler({MUIRoyale=p_EventFunc})

Repeat
     WaitEvent
Forever

p_CreateGUI()

InstallEventHandler({RapaGUI=p_EventFunc})

Repeat
     WaitEvent
Forever

Code: Select all

 tags.
 
The instructions for moai.FreeApp() state:
"Use this call to delete the entire application object created using the last call to moai.CreateApp(). moai.FreeApp() will delete the whole application object and all of the children attached to it. After this call returns, you could create a new application using the moai.CreateApp() function if you want.  Note that moai.FreeApp() won't free MOAI objects which are currently in a detached state. Those have to be freed by using moai.FreeObject()."

Perhaps that should be updated to reflect what you just mentioned.  Thanks.

NathanH