Class Hierarchy:
cObject

Mixin


Modal_MixinClass Definition
Properties
Integer
Destroy_Object_State
This can only be used with the CD_Popup_Object command. If true
the command will destroy the object it created.
Integer
Exit_Application_Local_State
integer
private.stop_ui_state
Functions and Procedures

Create_Dialog(integer i1 integer i2)
Private

Define_Modal_Mixin()
Integer
Modal_State()
Public Message: Get Modal_State
Integer
Popup_Modal()
Public Message: Get Msg_Popup_Modal to rval
Send Popup_Modal
Allows any object to be used as a modal popup object.
This messages creates a modal object (Setting all properties as
required), activates via ui_accept, restores all properties, and
then returns the exit value.
force object to be modal and then pop it up!

Remove_Object()
Private

Set(Integer Fg)
Public Message: Set Modal_State - T = Makes object Modal
F = Make object nonModal

Stop_Modal_UI()
Public Message: This will stop the current modal UI if a modal UI level
exists and it has not already been stopped.
This is smarter than Stop_ui (which should dnot be used) because it can
be sent multiple times and only the current UI is stopped.