Use cCJCommandBarSystem.pkg

Class cSourcePromptMenuItem is a cCJMenuItem
    Procedure Construct_Object
        Forward Send Construct_Object
        Set psCaption to "Add Source File(s)"
        Set psImage to "OpenFolder032N32.ico"
    End_Procedure

    Procedure OnExecute Variant vCommandBarControl
        Send Prompt
    End_Procedure

End_Class

Class cOpenSourceFileMenuItem is a cCJMenuItem
    Procedure Construct_Object
        Forward Send Construct_Object
        Set psCaption to "Edit Source File"
        Set psImage to "NotepadOpen032N32.ico"
    End_Procedure

    Procedure OnExecute Variant vCommandBarControl
        Send OpenCurrentGridItem of (Client_Id(ghoCommandBars))
    End_Procedure

    Function IsEnabled Returns Boolean
        Function_Return (CodeDtl.ID <> 0)
    End_Function

End_Class