Zune Popdrawer doesn't receive notify on "Acknowledge"
Posted: Sun Mar 01, 2020 12:10 am
Hi,
The following code pops up a system requestor with the Popdrawer contents on WinUAE 3.9 but does not on AROS i386. Is this a Zune error or a MUIRoyale error? Thanks.
NathanH
@DISPLAY 1, {hidden=True}
@APPTITLE "Popdrawer Test"
@APPVERSION "$VER: Popdrawer Test 1.0 (29.02.20)"
@APPCOPYRIGHT "Copyright 2020, Nathan Hesterman"
@APPAUTHOR "Nathan Hesterman"
@APPDESCRIPTION "Popdrawer notify on acknowledge"
@REQUIRE "muiroyale"
; handle all events ***********************************************************
Function p_EventFunc(msg)
Switch msg.Class
Case "Popdrawer":
p_OpenDrawer()
Case "Window":
End()
EndSwitch
EndFunction
; event handler functions *****************************************************
Function p_Notify(t$)
SystemRequest("Popdrawer Test Notification", t$, "Okay")
EndFunction
Function p_OpenDrawer()
p_Notify(mui.Get("pd_open", "Contents"))
EndFunction
;execute **********************************************************************
mui.CreateGUI([[
<?xml version="1.0" encoding="iso-8859-1"?>
<application id="app" base="TEST">
<window id="wi_main" title="Popdrawer Test" muiid="MAIN" open="1" notify="CloseRequest">
<vgroup frame="group" frametitle="I/O">
<popdrawer id="pd_open" title="Open Drawer" notify="Acknowledge"/>
</vgroup>
</window>
</application>
]])
InstallEventHandler({MUIRoyale=p_EventFunc})
Repeat
WaitEvent
Forever
The following code pops up a system requestor with the Popdrawer contents on WinUAE 3.9 but does not on AROS i386. Is this a Zune error or a MUIRoyale error? Thanks.
NathanH
@DISPLAY 1, {hidden=True}
@APPTITLE "Popdrawer Test"
@APPVERSION "$VER: Popdrawer Test 1.0 (29.02.20)"
@APPCOPYRIGHT "Copyright 2020, Nathan Hesterman"
@APPAUTHOR "Nathan Hesterman"
@APPDESCRIPTION "Popdrawer notify on acknowledge"
@REQUIRE "muiroyale"
; handle all events ***********************************************************
Function p_EventFunc(msg)
Switch msg.Class
Case "Popdrawer":
p_OpenDrawer()
Case "Window":
End()
EndSwitch
EndFunction
; event handler functions *****************************************************
Function p_Notify(t$)
SystemRequest("Popdrawer Test Notification", t$, "Okay")
EndFunction
Function p_OpenDrawer()
p_Notify(mui.Get("pd_open", "Contents"))
EndFunction
;execute **********************************************************************
mui.CreateGUI([[
<?xml version="1.0" encoding="iso-8859-1"?>
<application id="app" base="TEST">
<window id="wi_main" title="Popdrawer Test" muiid="MAIN" open="1" notify="CloseRequest">
<vgroup frame="group" frametitle="I/O">
<popdrawer id="pd_open" title="Open Drawer" notify="Acknowledge"/>
</vgroup>
</window>
</application>
]])
InstallEventHandler({MUIRoyale=p_EventFunc})
Repeat
WaitEvent
Forever