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

Class cRDCRebarPopupMenu Is A cPopupMenu

  Procedure Construct_object
    Integer hoImageList
    Forward Send Construct_object
    Set pbShortCutMenu To True
    Get Create U_cRDCImageList To hoImageList
    Set phoImageList To hoImageList

    Object oFindToolBarItem Is A cPopupMenuItem
      Set psLabel        To "Find Buttons"
      Set phmOnClick     To Toggletoolbar
      Set pbCheckBox     To True
      Set piCheckedImage To 17
    End_Object // oFindToolBarItem

    Object oSearchToolBarItem Is A cPopupMenuItem
      Set psLabel        To "Search and New/Clear Buttons"
      Set phmOnClick     To Toggletoolbar
      Set pbCheckBox     To True
      Set piCheckedImage To 17
    End_Object // oSearchToolBarItem

    Object oSaveToolBarItem Is A cPopupMenuItem
      Set psLabel        To "Save and Delete Buttons"
      Set phmOnClick     To Toggletoolbar
      Set pbCheckBox     To True
      Set piCheckedImage To 17
    End_Object // oSaveToolBarItem

    Object oCutToolBarItem Is A cPopupMenuItem
      Set psLabel        To "Cut, Copy and Paste Buttons"
      Set phmOnClick     To Toggletoolbar
      Set pbCheckBox     To True
      Set piCheckedImage To 17
    End_Object // oCutToolBarItem

//    Object oWizardToolBarItem Is A cPopupMenuItem
//      Set psLabel        To "Wizard Button"
//      Set phmOnClick     To Toggletoolbar
//      Set pbCheckBox     To False //True
//      Set piCheckedImage To 17
//    End_Object // oWizardToolBarItem

    Object oConnectToolBarItem Is A cPopupMenuItem
      Set psLabel        To "CrossMerge Engine Button"
      Set phmOnClick     To Toggletoolbar
      Set pbCheckBox     To True
      Set piCheckedImage To 17
    End_Object // oConnectToolBarItem

    Object oPropertiesToolBarItem Is A cPopupMenuItem
      Set psLabel        To "Properties, Help and About Buttons"
      Set phmOnClick     To ToggleToolbar
      Set pbCheckBox     To True
      Set piCheckedImage To 17
    End_Object // oPropertiesToolBarItem
  End_Procedure  // Construct_object

  // Purpose: To toggle the toolbar that was selected.
  Procedure ToggleToolbar Integer hoItem
    Integer hoBar 
    Integer hoRebar
    Integer bHidden

    Case Begin
      Case (oFindToolBarItem(Self) = hoItem)
        Get phoFindToolBar       To hoBar
        Case Break
      Case (oSearchToolBarItem(Self) = hoItem)
        Get phoSearchToolBar     To hoBar
        Case Break
      Case (oSaveToolBarItem(Self) = hoItem)
        Get phoSaveToolBar       To hoBar
        Case Break
      Case (oCutToolBarItem(Self) = hoItem)
        Get phoCutToolBar        To hoBar
        Case Break
//      Case (oWizardToolBarItem(Self) = hoItem)
//        Get phoWizardToolBar     To hoBar
//        Case Break
      Case (oConnectToolBarItem(Self) = hoItem)
        Get phoConnectToolBar    To hoBar
        Case Break
      Case (oPropertiesToolBarItem(Self) = hoItem)
        Get phoPropertiesToolBar To hoBar
        Case Break
      Case Else
    Case End

    If hoBar Begin
      Get pbHidden Of hoBar To bHidden
      Set pbHidden Of hoBar To (Not(bHidden))
    End // If hoBar Begin
  End_Procedure // Toggletoolbar

  // Setup appearance depending on context.
  Procedure OnActivate
    Integer hoBar

    Get phoFindToolBar To hoBar
    If hoBar Begin
      Set pbChecked    Of (oFindToolBarItem(Self)) To (Not(pbHidden(hoBar)))
      Set psStatusHelp Of (oFindToolBarItem(Self)) To (If(pbHidden(hoBar), "Add the toolbar.", "Remove the toolbar"))
    End

    Get phoSearchToolBar To hoBar
    If hoBar Begin
      Set pbChecked    Of (oSearchToolBarItem(Self)) To (Not(pbHidden(hoBar)))
      Set psStatusHelp Of (oSearchToolBarItem(Self)) To (If(pbHidden(hoBar), "Add the toolbar.", "Remove the toolbar"))
    End

    Get phoSaveToolBar To hoBar
    If hoBar Begin
      Set pbChecked    Of (oSaveToolBarItem(Self)) To (Not(pbHidden(hoBar)))
      Set psStatusHelp Of (oSaveToolBarItem(Self)) To (If(pbHidden(hoBar), "Add the toolbar.", "Remove the toolbar"))
    End

    Get phoCutToolBar  To hoBar
    If hoBar Begin
      Set pbChecked    Of (oCutToolBarItem(Self)) To (Not(pbHidden(hoBar)))
      Set psStatusHelp Of (oCutToolBarItem(Self)) To (If(pbHidden(hoBar), "Add the toolbar.", "Remove the toolbar"))
    End

//    Get phoWizardToolBar  To hoBar
//    If hoBar Begin
//      Set pbChecked    Of (oWizardToolBarItem(Self)) To (Not(pbHidden(hoBar)))
//      Set psStatusHelp Of (oWizardToolBarItem(Self)) To (If(pbHidden(hoBar), "Add the toolbar.", "Remove the toolbar"))
//    End

    Get phoConnectToolBar To hoBar
    If hoBar Begin
      Set pbChecked    Of (oConnectToolBarItem(Self)) To (Not(pbHidden(hoBar)))
      Set psStatusHelp Of (oConnectToolBarItem(Self)) To (If(pbHidden(hoBar), "Add the toolbar.", "Remove the toolbar"))
    End

    Get phoPropertiesToolBar To hoBar
    If hoBar Begin
      Set pbChecked    Of (oPropertiesToolBarItem(Self)) To (Not(pbHidden(hoBar)))
      Set psStatusHelp Of (oPropertiesToolBarItem(Self)) To (If(pbHidden(hoBar), "Add the toolbar.", "Remove the toolbar"))
    End

  End_Procedure // OnActivate

End_Class // cRDCRebarPopupMenu