Hi all,
Can anyone explain this behaviour in RBW 6.5++p2, please, or point out my
error(s)?
The set of commands below can be copied and pasted as is - no database is
needed - and it takes less than 35 seconds to run(!):
CLS
CLEAR ALL VAR
SET VAR vMessage TEXT = NULL
SET VAR vCount INTEGER = 0
SET VAR vMessage = 'Count:'
PAUSE 3 USING .vMessage AT 15 10
PAUSE FOR 1
WRITE 'Starting first sequence:' AT 2,10
WHILE vCount < 10 THEN
SET VAR vMessage = ('Count:' & (CTXT(.vCount)))
PAUSE 4 USING .vMessage CAPTION 'Please wait...'
WRITE .vMessage AT 3,10
SET VAR vCount = (.vCount + 1)
PAUSE FOR 1
ENDWHILE
SET VAR vMessage = 'This is just a long message for fun'
PAUSE 3 USING .vMessage AT 15 10
PAUSE FOR 1
WRITE 'Starting second sequence:' AT 4,10
WHILE vCount < 20 THEN
SET VAR vMessage = ('Count:' & (CTXT(.vCount)))
PAUSE 4 USING .vMessage CAPTION 'Please wait...'
WRITE .vMessage AT 5,10
SET VAR vCount = (.vCount + 1)
PAUSE FOR 1
ENDWHILE
SET VAR vMessage = 'Count:'
PAUSE 3 USING .vMessage AT 15 10
PAUSE FOR 1
WRITE 'Starting third sequence:' AT 6,10
WHILE vCount < 30 THEN
SET VAR vMessage = ('Count:' & (CTXT(.vCount)))
PAUSE 3 USING .vMessage CAPTION 'Please wait...' AT 15 10
WRITE .vMessage AT 7,10
SET VAR vCount = (.vCount + 1)
PAUSE FOR 1
ENDWHILE
RETURN
Assuming that you get what I get (no count on the first sequence of pauses)
I have noticed this a few times now with pause messages not updating
properly - I'm not convinced that it only happens with "pause 4" either,
although this test doesn't confirm that.
Regards,
Alastair.
----------------------------------
A D B Burr,
St. Albans, UK.
----------------------------------
[EMAIL PROTECTED]
----------------------------------
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
