Here is some code derived from legacy code. The TIMEOUT clause does not cause a time out after the specified number of seconds. Is this a known bug?
local t, ln
for ln = 1 to 6
t = seconds()
msgbox( "hello", m.ln * 10 )
? m.ln, seconds()-t
next
FUNCTION MsgBox
PARAMETER m.tcMsg, tnTimeout
local lnChoice, lcMsg
lnChoice = 0
lcMsg = m.tcMsg + " (This message should disappear after " + ltrim( str( m.tnTimeout ) ) + " seconds of complete inactivity.)"
DEFINE WINDOW MsgBox AT 0,0 SIZE 10, 100 SYSTEM FLOAT SHADOW TITLE "msgbox"
ACTIVATE WINDOW MsgBox NOSHOW
@ 2, 2 say m.lcMsg
@ 10, 50 GET m.lnChoice FUNCTION '*H'
ACTIVATE WINDOW MsgBox
READ CYCLE MODAL TIMEOUT m.tnTimeout
RELEASE WINDOW MsgBox
RETURN
Groet,
Peter de Valença
Constructive frustration is the breeding ground of genius.
If there’s no willingness to moderate for the sake of good debate, then I have no willingness to debate at all.
Let's develop superb standards that will end the holy wars.
"There are three types of people: Alphas and Betas", said the beta decisively.
If you find this message rude or offensive or stupid, please take a step away from the keyboard and try to think calmly about an eventual a possible alternative explanation of my message.