//****************************************************************************
// $Module type: Class
// $Module name: cRDCRebar
// $Author     : Nils G. Svedmyr
// Created     : 2002-12-09 @ 20:50
//
// Description :
//
// $Rev History:
//    2002-12-09  Module header created
//****************************************************************************
Use cRebar.pkg
Use cRDCRebarPopupMenu.pkg
Use cRDCImageList.pkg

Global_Variable Integer ghoImageList

Class cRDCRebar Is A cRebar

  Procedure Construct_object
    Integer ho
    Forward Send Construct_object
    Property Handle phoMenu 0
    Set Size           To 24 80 
    Set pbAutoSize     To True
    Set pbBandBorders  To True
    Set pbInMDIPanel   To True 
    Set pbSaveLocation To True    
    Get Create U_cRDCRebarPopupMenu To ho
    Set phoMenu                     To ho
    Get Create U_cRDCImageList To ghoImageList
  End_Procedure // 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 // cRDCRebar