HandlePopup_Handle()
{ Visibility=Private }
Procedure Popup_Modal returns integer
integer rval Id
Get Created_Object_Id to Id
If Id Begin
Get msg_Popup_Modal of Id to rval
If (Destroy_Object_State(Id)) Begin
Send Destroy of Id
Set Created_Object_Id to 0
End
Function_Return Rval
End
End_Procedure
is augmented by object instance. Should never
be called.