Macro: CD_END_OBJECT

Module location: Dfdafmac.pkg line 236 (view source)

#COMMAND CD_POPUP_OBJECT R Object !1 is a CD_Client Procedure Popup_Modal Returns integer integer rval Id Get Created_Object_Id to Id If Id eq 0 Begin Register_Object !1_Cd Gosub !1_Sub Set Created_Object_id to (!1_Cd(Self)) End Forward Get msg_Popup_Modal rVal to rVal Procedure_Return Rval End_Procedure End_Object [Found ~Found] Begin !1_Sub: Object !1_cd !2 !3 !4 !5 !6 !7 !8 !9 #ENDCOMMAND

        End_Object
#IFDEF Is$New$FMAC
     Gosub_Return    // new fmac prefers Gosub_return when return is within a method
#ELSE
     Return          // old style return
#ENDIF
   End