5 Seconds :: Temporary Accept Loops

When you have lots of old process code that has heaps of loops but no window event handling here is a quick way to temporarily allow window events to be processed and to release some of those resources for background processes.

DoEvents PROCEDURE ()

CODE

Save# = TARGET{PROP:Timer}

TARGET{PROP:Timer} = 1

ACCEPT

  CASE EVENT()

  OF EVENT:Timer

     BREAK

   END

END

TARGET{PROP:Timer} = Save#

Comments

[Simon Mitchell]

Yeah, what Stu says!

[John Moore]

Thanks Stu ... If anyone wants to contirbute or come up with suggestions just send an email to clarionx@gmail.com.

[Stu Andrews]

Nice work! Just another reason why ClarionX is fast becoming the awesomest Clarion Tips site around :) .. you give out _good_ and worthwhile tips.

Very cool.