//***************************************************************************
//*
//* Class:        cRDSDbModalPanel
//* Package Name: cRDSDbModalPanel.pkg
//*
//***************************************************************************
Use DFAllEnt.pkg

Class cRDSDbModalPanel is a dbModalPanel

  Procedure Construct_Object
    Forward Send Construct_Object
  End_Procedure // Construct_Object

  // 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 // cRDSDbModalPanel