An object that allows you to stop screen redrawing. The UIFreezeObject should beinstantiated using a local variable and not a shared or global variable. When an error occurs, the script stops executing. When the script stops, the local variable frame goes away, and the reference to the UIFreezeObject goes away, and as a result, the screen is no longer frozen.
Returns an object that allows you to inhibit redrawing of the screen.
In the following example, freeze.frozen = .f. allows the Alpha Anywhere screen to be repainted behind the message box.
dim freeze as P freeze = uiFreezeObject.create() freeze.frozen = .t. 'freezes the screen - equivalent to the old ui_freeze(.t.) txt = "Hello" for i = 1 to 100 txt = txt + " " + i next freeze.frozen = .f. 'unfreezes the screen - equivalent to the old ui_freeze(.f.) ui_msg_box("",txt)