Xbasic

uiFreezeObject.create Function

Syntax

P obj = uiFreezeObject.Create()

Description

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.

Discussion

Returns an object that allows you to inhibit redrawing of the screen.

Examples

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)