//***************************************************************************
//*
//* Class:        cRDSModalPanel
//* Package Name: cRDSModalPanel.pkg
//*
//***************************************************************************

Use DFAllEnt.pkg

Class cRDSModalPanel is a ModalPanel

  Procedure Construct_object
      Forward Send Construct_Object
  End_Procedure

  // Statusbar_Id
  Function Statusbar_Id Returns Handle
    Handle hId
    Forward Get Statusbar_Id To hId                 // Does the panel have a statusbar?
    If (hId = 0) Delegate Get Statusbar_Id To hId   // If not, get the ID of the statusbar of the program.
    Function_Return hId
  End_Function // Statusbar_Id

End_Class // cRDSModalPanel