XuiGetReply() - sample program
'
' ####################
' ##### PROLOG #####
' ####################
'
PROGRAM "leave"
VERSION "0.0000"
'
IMPORT "xgr"
IMPORT "xui"
'
DECLARE FUNCTION Entry ()
'
'
' ######################
' ##### Entry () #####
' ######################
'
FUNCTION Entry ()
'
XuiCreateWindow (@grid, @"XuiDialog4B", 200, 200, 128, 64, 0, "")
XuiSendStringMessage ( grid, @"SetFont", 800, 600, 400, 0, 1, @"Serif")
XuiSendStringMessage ( grid, @"SetTexture", $$TextureShadow, -1, -1, -1, 1, 0)
XuiSendStringMessage ( grid, @"SetImage", 0, 0, 16, 16, 1, @"\\xb\\xxx\\xstop.bmp")
XuiSendStringMessage ( grid, @"SetColorExtra", -1, -1, $$Black, $$Yellow, 1, 0)
XuiSendStringMessage ( grid, @"SetColor", $$LightBlue, $$Yellow, -1, -1, 1, 0)
XuiSendStringMessage ( grid, @"SetColor", $$Cyan, $$Yellow, -1, -1, 2, 0)
XuiSendStringMessage ( grid, @"SetColor", $$BrightCyan, -1, -1, -1, 3, 0)
XuiSendStringMessage ( grid, @"SetColor", $$BrightGreen, -1, -1, -1, 4, 0)
XuiSendStringMessage ( grid, @"SetColor", $$Yellow, -1, -1, -1, 5, 0)
XuiSendStringMessage ( grid, @"SetColor", $$BrightOrange, -1, -1, -1, 6, 0)
'
title$ = "XuiGetReply ( )"
message$ = "People Of Earth\n\nYou Must Leave"
grids$ = "Immediately \nRight Now\nThis Minute\nToday\nManana"
'
XuiGetReply (grid, @title$, @message$, @grids$, @v0, @v1, @kid, @reply$)
'
SELECT CASE kid
CASE 0 : READ reply$; " : XuiDialog4B grid"
CASE 1 : READ reply$; " : XuiLabel kid"
CASE 2 : READ reply$; " : XuiTextLine kid - \"Immediately\"
CASE 3 : READ reply$; " : XuiPushButton kid - \"Right Now\""
CASE 4 : READ reply$; " : XuiPushButton kid - \"This Minute\""
CASE 5 : READ reply$; " : XuiPushButton kid - \"Today\""
CASE 6 : READ reply$; " : XuiPushButton kid - \"Manana\""
CASE ELSE : READ reply$; " : Impossible kid # ::: !!! Yikes !!!"
END SELECT
END FUNCTION
END PROGRAM