' Copyright 2008 ESRI
' 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See use restrictions at <your ArcGIS install location>/developerkit/userestrictions.txt.
' 




Option Explicit

Private Const COMMAND_CAPTION As String = COMMAND_CATEGORY

Implements IToolBarDef

Private Sub Class_Initialize()
    '----------------------------
    ' Initalise Public Variables
    '----------------------------
    mGNExportFeatureClass = True
    mGNExportJunctionConnRule = True
    mGNExportEdgeConnRule = True
    mGNExportWeights = True
    mGNImportSnapping = -1  ' -1 = None; 0 = Minimum; >0 = Other
    mGNImportPreserveEnabledValue = True
    mGNImportClearConnRule = True
    '
    mDMExportOCAssocation = True
    '
    mXLReformatPrettyPrint = True
    '
    mOCExportFieldIndex = True
    mOCImportFieldIndex = False
End Sub

Private Sub Class_Terminate()
    '----------------------------------------
    ' Clear Public (Non-Intrinsic) Variables
    '----------------------------------------
End Sub

Private Property Get IToolBarDef_Caption() As String
    IToolBarDef_Caption = COMMAND_CAPTION
End Property

Private Sub IToolBarDef_GetItemInfo(ByVal pos As Long, ByVal itemDef As esriSystemUI.IItemDef)
    Select Case pos
    Case 0
        itemDef.ID = "GDBDesigner.Export"
        itemDef.Group = False
    Case 1
        itemDef.ID = "GDBDesigner.Import"
        itemDef.Group = False
    Case 2
        itemDef.ID = "GDBDesigner.Utility"
        itemDef.Group = False
    Case 3
        itemDef.ID = "GDBDesigner.Options"
        itemDef.Group = True
    Case 4
        itemDef.ID = "GDBDesigner.Help"
        itemDef.Group = True
    End Select
End Sub

Private Property Get IToolBarDef_ItemCount() As Long
    IToolBarDef_ItemCount = 5
End Property

Private Property Get IToolBarDef_Name() As String
    IToolBarDef_Name = "GeodatabaseDesignerToolbar"
End Property