SystemRequest window in full screen under MorphOS
Posted: Tue Aug 28, 2018 5:15 pm
Andrea this code:
@DISPLAY {Title="Test", Desktop=True, DisableBlanker=True}
Function p_Teclado(msg)
Switch(msg.action)
Case "OnKeyDown":
If msg.key="h" Or msg.key="H"
p_Help()
EndIf
EndSwitch
EndFunction
SetFont(#SANS, 50)
SetFontColor(#RED)
SetFontStyle(#ANTIALIAS)
TextOut(#CENTER, #CENTER, "THIS IS A TEST")
Function p_Help()
SystemRequest("WINDOW BUG",
"Testing the requester window.".."\n"..
"ESC: Exit of the test."
,"Ok",#REQICON_INFORMATION)
EndFunction
InstallEventHandler({OnKeyDown=p_Teclado})
EscapeQuit(True)
Repeat
WaitEvent
Forever
This easy code to activate the desktop window, under MorphOS can'ts open the requester window, under Windows and AmigaOS3.9 yeah, but under MOS not.
@DISPLAY {Title="Test", Desktop=True, DisableBlanker=True}
Function p_Teclado(msg)
Switch(msg.action)
Case "OnKeyDown":
If msg.key="h" Or msg.key="H"
p_Help()
EndIf
EndSwitch
EndFunction
SetFont(#SANS, 50)
SetFontColor(#RED)
SetFontStyle(#ANTIALIAS)
TextOut(#CENTER, #CENTER, "THIS IS A TEST")
Function p_Help()
SystemRequest("WINDOW BUG",
"Testing the requester window.".."\n"..
"ESC: Exit of the test."
,"Ok",#REQICON_INFORMATION)
EndFunction
InstallEventHandler({OnKeyDown=p_Teclado})
EscapeQuit(True)
Repeat
WaitEvent
Forever
This easy code to activate the desktop window, under MorphOS can'ts open the requester window, under Windows and AmigaOS3.9 yeah, but under MOS not.