PC World 1998 October/PCWorld_1998-10_cd.bin/software/prehled/komix/DATA.Z/mergetool.mnu

Text File | 1997-11-25 | 11KB | 609 lines

registerObject  {
    name        .file
    type        CustMenuBarButton
    objSpec        {
        label        File
        mnemonic    F
    }
}

registerObject  {
    name        .file.menu
    type        CustMenu
    objSpec        {
        pinnable    1
    }
}

registerObject  {
    name        .edit
    type        CustMenuBarButton
    objSpec        {
        label        Edit
        mnemonic    E
    }
}

registerObject  {
    name        .edit.menu
    type        CustMenu
}

registerObject  {
    name        .view
    type        CustMenuBarButton
    objSpec        {
        label        View
        mnemonic    V
    }
}

registerObject  {
    name        .view.menu
    type        CustMenu
    objSpec        {
        pinnable    1
    }
}

registerObject  {
    name        .view.menu.menuarbiter
    type        CustMenuArbiter
    visible        {1 1 1 1 1}
    objSpec        {
        currentButtonChanged    MTProcs::setViewMode
    }
}

registerObject  {
    name        .options
    type        CustMenuBarButton
    objSpec        {
        label        Options
        mnemonic    O
    }
}

registerObject  {
    name        .options.menu
    type        CustMenu
    objSpec        {
        pinnable    1
    }
}

registerObject  {
    name        .version
    type        CustMenuBarButton
    objSpec        {
        label        Version
        mnemonic    r
    }
}

registerObject  {
    name        .version.menu
    type        CustMenu
    objSpec        {
        pinnable    1
    }
}

registerObject  {
    name        .help
    type        CustMenuBarButton
    objSpec        {
        label        Help
        mnemonic    H
        helpButton    1
    }
}

registerObject  {
    name        .help.menu
    type        CustMenu
    objSpec        {
        pinnable    1
    }
}

registerObject  {
    name        .file.menu.reload
    type        CustMenuPushButton
    objSpec        {
        hintText    {Reloads the current information.}
        label        Reload
        mnemonic    R
        activated    {
            #CTGENCommandScript
            MTFileMenuProcs::reload
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    name        .file.menu.corporate_1
    type        CustMenuSeparator
    objSpec        {
    }
}

registerObject  {
    name        .file.menu.opensource
    type        CustMenuPushButton
    inPopUpMenu    1
    objSpec        {
        hintText    {Opens the source of the selected object.}
        label        {Open Source}
        mnemonic    O
        accelerator    Ctrl+O
        activated    {
            #CTGENCommandScript
            MTFileMenuProcs::openSource
            #CTGENEndCommandScript
        }
        selCount    1
        checkOn        selectionChange
        enableScript    {
            %this sensitive 0
            set obj [lindex [.main selectedMergeObjSet] 0]
            set elm [$obj fromRepObj]
            if {[$elm isA FileVersion] || \
                [$elm isA CustomFileVersion] || \
                [$elm isA GroupVersion]} {
                %this sensitive 1
            }
        }
    }
}

registerObject  {
    name        .file.menu.opentarget
    type        CustMenuPushButton
    inPopUpMenu    1
    objSpec        {
        hintText    {Opens the target of the selected object.}
        label        {Open Target}
        mnemonic    T
        accelerator    Ctrl+T
        activated    {
            #CTGENCommandScript
            MTFileMenuProcs::openTarget
            #CTGENEndCommandScript
        }
        selCount    1
        checkOn        selectionChange
        enableScript    {
            %this sensitive 0
            set obj [lindex [.main selectedMergeObjSet] 0]
            set elm [$obj toRepObj]
            if {$elm != ""} {
                if {[$elm isA FileVersion] || \
                    [$elm isA CustomFileVersion] || \
                    [$elm isA GroupVersion]} {
                    %this sensitive 1
                }
            }
        }
    }
}

registerObject  {
    inToolBar    1
    inPopUpMenu    1
    name        .file.menu.info
    type        CustMenuPushButton
    objSpec        {
        label        Info
        mnemonic    I
        hintText    {Shows information about the selected object.}
        accelerator    Ctrl+i
        toolBarPixmap    info_16
        activated    {
            #CTGENCommandScript
            MTFileMenuProcs::showInfo
            #CTGENEndCommandScript
        }
        selCount    1
        checkOn        selectionChange
    }
}

registerObject  {
    name        .file.menu.corporate_2
    type        CustMenuSeparator
    objSpec        {
    }
}

registerObject  {
    name        .file.menu.exit
    type        CustMenuPushButton
    objSpec        {
        hintText    {Exists the tool.}
        label        Exit
        mnemonic    x
        activated    {
            #CTGENCommandScript
            MTFileMenuProcs::exitBrowser
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    name        .edit.menu.selectall
    type        CustMenuPushButton
    objSpec        {
        hintText    {Selects all components.}
        label        {Select All}
        mnemonic    A
        accelerator    Ctrl+A
        activated    {
            #CTGENCommandScript
            MTEditMenuProcs::selectAll
            #CTGENEndCommandScript
        }
        operations    diagram
    }
}

registerObject  {
    name        .edit.menu.invertselection
    type        CustMenuPushButton
    objSpec        {
        hintText    {Inverts the information view selection.}
        label        {Invert Selection}
        mnemonic    I
        activated    {
            #CTGENCommandScript
            MTEditMenuProcs::invertSelection
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    name        .view.menu.refresh
    type        CustMenuPushButton
    objSpec        {
        label        Refresh
        mnemonic    R
        hintText    {Refreshes the information view.}
        activated    {
            #CTGENCommandScript
            MTViewMenuProcs::refresh
            #CTGENEndCommandScript
        }
        checkOn        selectionChange
        enableScript    {
            %this sensitive 1
            if {[.main currentObj] == ""} {
                %this sensitive 0
            }
        }
    }
}

registerObject  {
    name        .view.menu.showAllMergeObjects
    type        CustMenuCheckButton
    objSpec        {
        label        {Show All Merge Objects}
        mnemonic    S
        hintText    {Show even the unrelevant objects.}
        stateChanged    {
            #CTGENCommandScript
            MTViewMenuProcs::showAllMergeElements [%this state]
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    name        .view.menu.corporate_4
    type        CustMenuSeparator
    objSpec        {
    }
}

registerObject  {
    name        .view.menu.toolbar
    type        CustMenuCheckButton
    objSpec        {
        label        ToolBar
        mnemonic    T
        hintText    {Shows or hides the toolbar.}
        state        1
        stateChanged    {
            #CTGENCommandScript
            MTViewMenuProcs::toggleToolbar
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    name        .view.menu.contextarea
    type        CustMenuCheckButton
    objSpec        {
        label        {Context Area}
        mnemonic    C
        hintText    {Shows or hides the context area.}
        state        1
        stateChanged    {
            #CTGENCommandScript
            MTViewMenuProcs::toggleContextArea
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    name        .view.menu.messagearea
    type        CustMenuCheckButton
    objSpec        {
        label        {Message Area}
        mnemonic    M
        hintText    {Shows or hides the message area.}
        state        1
        stateChanged    {
            #CTGENCommandScript
            MTViewMenuProcs::toggleMessageArea
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    name        .options.menu.font
    type        CustMenuPushButton
    objSpec        {
        label        {Font...}
        mnemonic    F
        activated    {
            #CTGENCommandScript
            MTOptionMenuProcs::selectFont
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    type        CustMenuPushButton
    name        .options.menu.comparecommand
    objSpec         {
        hintText    "Changes the compare command (M4_diff)."
        label        "Compare Command..."
        mnemonic    p
        activated    {
            #CTGENCommandScript
            require vboptionme.tcl
            VBOptionMenuProcs::compareCmd
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    name        .version.menu.merge
    type        CustMenuPushButton
    inPopUpMenu    1
    objSpec        {
        hintText    {Merges the source (from) into the target (to).}
        label        Merge
        mnemonic    M
        accelerator    Ctrl+M
        activated    {
            #CTGENCommandScript
            MTVersionMenuProcs::merge
            #CTGENEndCommandScript
        }
        selCount    many
        checkOn        selectionChange
        enableScript    {
            %this sensitive 1
            foreach elm [.main selectedObjSet] {
                if {[$elm conflict] == "Yes"} {
                    if ![[$elm repObj] isA MTVersion] {
                        %this sensitive 0
                        return
                    }
                }
            }
        }
    }
}

registerObject  {
    name        .version.menu.overwrite
    type        CustMenuPushButton
    inPopUpMenu    1
    objSpec        {
        label        Overwrite
        hintText    {Overwrites the target with the source.}
        mnemonic    O
        activated    {
            #CTGENCommandScript
            MTVersionMenuProcs::overwrite
            #CTGENEndCommandScript
        }
        selCount    many
        checkOn        selectionChange
        enableScript    {
            %this sensitive 1
            foreach elm [.main selectedObjSet] {
                if {[$elm conflict] == "No"} {
                    if ![$elm isA MTVersion] {
                        %this sensitive 0
                        return
                    }
                }
            }
        }
    }
}

registerObject  {
    name        .version.menu.import
    inPopUpMenu    1
    type        CustMenuPushButton
    objSpec        {
        hintText    {Imports the source (from) into the target (to).}
        label        Import
        mnemonic    I
        accelerator    Ctrl+I
        activated    {
            #CTGENCommandScript
            MTVersionMenuProcs::import
            #CTGENEndCommandScript
        }
        selCount    many
        checkOn        selectionChange
    }
}

registerObject  {
    name        .version.menu.createmergelink
    inPopUpMenu    1
    type        CustMenuPushButton
    objSpec        {
        label        {Create Merge Link...}
        hintText    {Creates a mergelink between the source and the target.}
        mnemonic    C
        activated    {
            #CTGENCommandScript
            MTVersionMenuProcs::createMergeLink
            #CTGENEndCommandScript
        }
        selCount    many
        checkOn        selectionChange
        enableScript    {
            %this sensitive 1
            foreach selectedObj [.main selectedMergeObjSet] {
                if [[$selectedObj fromRepObj] isA Version] {
                    if ![isCommand [$selectedObj toRepObj]] {
                    %this sensitive 0
                    }
                } else {
                    %this sensitive 0
                }
            }
        }
    }
}

registerObject  {
    name        .version.menu.corporate_5
    type        CustMenuSeparator
    objSpec        {
    }
}

registerObject  {
    inPopUpMenu    1
    name        .version.menu.compare
    type        CustMenuPushButton
    objSpec        {
        label        {Compare}
        hintText    {Compares the source (from) with the target (to).}
        mnemonic    p
        activated    {
            #CTGENCommandScript
            MTVersionMenuProcs::compare
            #CTGENEndCommandScript
        }
        selCount    1
        checkOn        selectionChange
        enableScript    {
            %this sensitive 0
            set obj [lindex [.main selectedMergeObjSet] 0]
            if [isCommand [$obj toRepObj]] {
                if {[[$obj fromRepObj] isA FileVersion]} {
                    %this sensitive 1
                }
            }
        }
    }
}

registerObject  {
    name        .version.menu.versionbrowser
    inPopUpMenu    1
    type        CustMenuPushButton
    objSpec        {
        label        {Version Browser}
        hintText    {Starts the versionbrowser for the selected object.}
        mnemonic    V
        activated    {
            #CTGENCommandScript
            MTVersionMenuProcs::startVersionBrowser
            #CTGENEndCommandScript
        }
        checkOn        selectionChange
        selCount    1
        enableScript    {
            %this sensitive 1
            set elm [lindex [.main selectedObjSet] 0]
            if ![[$elm repObj] isA MTVersion] {
                %this sensitive 0
            }
        }
    }
}

registerObject {
    type    CustMenuPushButton
    name    .help.menu.whatsthis
    objSpec {
    hintText    "Shows context sensitive help."
    label        "What's This?"
    mnemonic    W
    activated    {MTProcs::showHelpOnContext}
    }
}

registerObject {
    type    CustMenuPushButton
    name    .help.menu.helptopics
    objSpec {
    hintText    "Shows help topics."
    label        "Help Topics"
    mnemonic    T
    activated    {showHelpTopics}
    }
}

registerObject  {
    name        .help.menu.productdocumentation
    type        CustMenuPushButton
    objSpec        {
        label        {Product Documentation}
        mnemonic    P
        hintText    {Starts online documentation.}
        activated    {
            wmtkmessage {Start online documentation ...}
            .main busy TRUE
            startOnlineDoc
            .main busy FALSE
            wmtkmessage ""
        }
    }
}

registerObject  {
    name        .help.menu.aboutmergetool
    type        CustMenuPushButton
    objSpec        {
        hintText    {Shows version information.}
        label        {About MergeTool}
        mnemonic    A
        activated    {
            require "showversio.tcl"
            showVersionDialog [%this label]
        }
    }
}