//****************************************************************************
// $Module type: Class
// $Module name: cRDCToolbar.pkg
// $Author     : Nils G. Svedmyr
// Created     : 2002-12-10 @ 19:14
//
// Description :
//
// $Rev History:
//    2002-12-10  Module header created
//****************************************************************************
Use cToolbar.pkg


//****************************************************************************
// $Module type: CLASS
// $Module name: Class
// $Author     : Nils G. Svedmyr
// Created     : 2002-12-10 @ 19:14
//
// Description :
//
// $Rev History
//    2002-12-10  Module header created
//****************************************************************************
Use cRDCRebar.pkg

Class cRDCToolbar Is A cToolBar
  Procedure Construct_Object
    Forward Send Construct_Object
    Set peAlign      To alNone
    Set Size         To 24 80
    Set pbInMDIPanel To False // Must be like this!
    Set pbNoDivider  To True
    Set pbShowLabels To True // display the psLabel property on the button
    Set phoImageList To ghoImageList  // Defined in cRDCRebar.pkg
  End_Procedure // Construct_Object

  Procedure End_Construct_Object
    Forward Send End_Construct_Object
  End_Procedure // End_Construct_Object

  Procedure Mouse_Click
    Send Popup Of (phoMenu(Self))
  End_Procedure // Mouse_down

//  Procedure Mouse_Down2
//    Send Popup Of (phoMenu(Self))
//  End_Procedure // Mouse_down

End_Class // cRDCToolbar