 
 /*------------------------------------------------------------------------
    File        : VirtualUI
    Purpose     : 
    Syntax      : 
    Description : 
    Author(s)   : 
    Created     : Wed Aug 19 10:40:54 ART 2020
    Notes       : 
  ----------------------------------------------------------------------*/

USING Progress.Lang.*.

BLOCK-LEVEL ON ERROR UNDO, THROW.

CLASS VirtualUI: 

    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/
    
    DEFINE PRIVATE VARIABLE m_VirtualUI AS COM-HANDLE NO-UNDO.
    
    CONSTRUCTOR PUBLIC VirtualUI (  ):
        SUPER ().
        MESSAGE "Creating VirtualUI object from class." VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
        CREATE VALUE("Thinfinity.VirtualUI") m_VirtualUI NO-ERROR.
        IF ERROR-STATUS:ERROR = FALSE THEN
            m_VirtualUI:START(30).
        ELSE
            MESSAGE "Error creating VirtualUI object from class." VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
    END CONSTRUCTOR.

    DESTRUCTOR PUBLIC VirtualUI ( ):

    END DESTRUCTOR.

END CLASS.