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

Text File | 1997-11-25 | 16KB | 824 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
    objSpec        {
        pinnable    1
    }
}

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

registerObject  {
    name        .view.menu
    type        CustMenu
}

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  {
    inPopUpMenu    1
    name        .file.menu.edit
    type        CustMenuPushButton
    objSpec        {
        label        Edit
        mnemonic    E
        accelerator    Ctrl+E
        hintText    "Edits the selected object."
        activated    {
            #CTGENCommandScript
            VBFileMenuProcs::edit
            #CTGENEndCommandScript
        }
        selCount    1
        checkOn        selectionChange
        selIsATypes    {FileVersion CustomFileVersion GroupVersion}
        enableScript    {
            set version [lindex [.main selectedObjSet] 0]
            set status [$version getInfo Status]
            if {$status != "working"} {
                    %this sensitive 0
                    return
            }
            %this sensitive 1
        }
    }
}

registerObject  {
    inPopUpMenu    1
    name        .file.menu.show
    type        CustMenuPushButton
    objSpec        {
        label        Show
        mnemonic    S
        accelerator    Ctrl+S
        hintText    "Shows the selected object."
        activated    {
            #CTGENCommandScript
            VBFileMenuProcs::show
            #CTGENEndCommandScript
        }
        selCount    1
        checkOn        selectionChange
        selIsATypes    {FileVersion CustomFileVersion GroupVersion}
        enableScript    {
            set version [lindex [.main selectedObjSet] 0]
            set status [$version getInfo Status]
            if {$status == "backGround"} {
                    %this sensitive 0
                    return
            }
            %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
            VBFileMenuProcs::showInfo
            #CTGENEndCommandScript
        }
        selCount    many
        checkOn        selectionChange
        enableScript    { eval VBProcs::takes22tango %this }
    }
}

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

registerObject  {
    inToolBar    1
    name        .file.menu.printview
    type        CustMenuPushButton
    objSpec        {
        label        {Print View}
        mnemonic    P
        accelerator    Ctrl+P
        toolBarPixmap    print_16
        hintText    "Prints the current view."
        activated    {
            #CTGENCommandScript
            VBFileMenuProcs::printView
            #CTGENEndCommandScript
        }
    }
}

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

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

registerObject  {
    inToolBar    1
    inPopUpMenu    1
    name        .edit.menu.paste
    type        CustMenuPushButton
    objSpec        {
        hintText    {Pastes the clipboard contents at the selected tree node.}
        label        Paste
        mnemonic    P
        accelerator    Ctrl+V
        toolBarPixmap    paste_16
        activated    VBEditMenuProcs::paste
    }
}

registerObject  {
    name        .edit.menu.corporate_3
    type        CustMenuSeparator
    objSpec        {
    }
}

registerObject  {
    name        .edit.menu.selectall
    type        CustMenuPushButton
    objSpec        {
        hintText    {Selects all components.}
        label        {Select All}
        mnemonic    A
        accelerator    Ctrl+A
        activated    {
            #CTGENCommandScript
            VBEditMenuProcs::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
            VBEditMenuProcs::invertSelection
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    name        .view.menu.refresh
    type        CustMenuPushButton
    objSpec        {
        label        Refresh
        hintText    "Refreshes the current view."
        mnemonic    R
        activated    {
            #CTGENCommandScript
            VBViewMenuProcs::updateView
            #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
            VBViewMenuProcs::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
            VBViewMenuProcs::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
            VBViewMenuProcs::toggleMessageArea
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    name        .options.menu.redraw
    type        CustMenuPushButton
    objSpec        {
        label        Redraw
        mnemonic    R
        hintText    {Refreshes the information view.}
        activated    {
            #CTGENCommandScript
            VBOptionMenuProcs::redraw
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    inToolBar    1
    name        .options.menu.zoomout
    type        CustMenuPushButton
    objSpec        {
        label        {Zoom Out}
        hintText    "Uses a smaller scale factor for displaying."
        mnemonic    Z
        toolBarPixmap    zmout_16
        activated    {
            #CTGENCommandScript
            VBOptionMenuProcs::zoomOut
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    inToolBar    1
    name        .options.menu.zoomin
    type        CustMenuPushButton
    objSpec        {
        label        {Zoom In}
        hintText    "Uses a larger scale factor for displaying."
        mnemonic    I
        toolBarPixmap    zmin_16
        activated    {
            #CTGENCommandScript
            VBOptionMenuProcs::zoomIn
            #CTGENEndCommandScript
        }
    }
}

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

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

registerObject  {
    name        .options.menu.primaryfont
    type        CustMenuPushButton
    objSpec        {
        label        {Primary Font...}
        hintText    "Changes the primary font of the nodes."
        mnemonic    F
        activated    {
            #CTGENCommandScript
            VBOptionMenuProcs::selectFontA
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    name        .options.menu.secondaryfont
    type        CustMenuPushButton
    objSpec        {
        label        {Secondary Font...}
        mnemonic    S
        hintText    "Changes the secondary font of the nodes."
        activated    {
            #CTGENCommandScript
            VBOptionMenuProcs::selectFontB
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    name        .options.menu.color
    type        CustCascadeButton
    objSpec        {
        label        Color
        mnemonic    l
        hintText    "Contains commands for changing colors."
    }
}

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

registerObject  {
    name        .options.menu.printoptions
    type        CustMenuPushButton
    objSpec        {
        label        {Print Options...}
        hintText    "Changes the print options."
        mnemonic    O
        activated    {
            #CTGENCommandScript
            VBOptionMenuProcs::printOptions
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    name        .options.menu.printersetup
    type        CustMenuPushButton
    objSpec        {
        label        {Printer Setup...}
        hintText    "Changes settings for the graphical printer."
        mnemonic    P
        activated    {
            #CTGENCommandScript
            VBOptionMenuProcs::printerSetup
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    name        .options.menu.color.menu.foreground
    type        CustMenuPushButton
    objSpec        {
        label        {Foreground...}
        hintText    "Changes the foreground color."
        mnemonic    F
        activated    {
            #CTGENCommandScript
            VBOptionMenuProcs::selectForegroundColor
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    name        .options.menu.color.menu.background
    type        CustMenuPushButton
    objSpec        {
        label        {Background...}
        hintText    "Changes the background color."
        mnemonic    B
        activated    {
            #CTGENCommandScript
            VBOptionMenuProcs::selectBackgroundColor
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    name        .options.menu.color.menu.node
    type        CustMenuPushButton
    objSpec        {
        label        {Node...}
        mnemonic    N
        hintText    "Changes the color of selected nodes."
        activated    {
            #CTGENCommandScript
            VBOptionMenuProcs::selectNodeColor
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    name        .options.menu.color.menu.mergearrow
    type        CustMenuPushButton
    objSpec        {
        label        {Merge Arrow...}
        mnemonic    M
        hintText    "Changes the color of merge arrows."
        activated    {
            #CTGENCommandScript
            VBOptionMenuProcs::selectMergeArrowColor
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    name        .options.menu.color.menu.primaryselection
    type        CustMenuPushButton
    objSpec        {
        label        {Primary Selection...}
        hintText    "Changes the color of primary selection."
        mnemonic    P
        activated    {
            #CTGENCommandScript
            VBOptionMenuProcs::selectPrimarySelectionColor
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    name        .options.menu.color.menu.secondaryselection
    type        CustMenuPushButton
    objSpec        {
        label        {Secondary Selection...}
        mnemonic    S
        hintText    "Changes the color of secondary selection."
        activated    {
            #CTGENCommandScript
            VBOptionMenuProcs::selectSecundairySelectionColor
            #CTGENEndCommandScript
        }
    }
}

registerObject  {
    inPopUpMenu    1
    name        .version.menu.compare
    type        CustMenuPushButton
    objSpec        {
        label        {Compare...}
        hintText    "Compares the selected objects."
        mnemonic    C
        activated    {
            #CTGENCommandScript
            VBVersionMenuProcs::compare
            #CTGENEndCommandScript
        }
        selCount    many
        checkOn        selectionChange
        enableScript    {
            eval VBProcs::takes22tango %this
            if ![%this sensitive] {
                return
            }
            if {[%this label] == "Compare..."} {
                %this sensitive 1
            } else {
                # for merge stuff
                eval VBProcs::mustNotBe backGround %this
            }
        }
    }
}

registerObject  {
    inPopUpMenu    1
    name        .version.menu.createmergelink
    type        CustMenuPushButton
    objSpec        {
        label        {Create Merge Link...}
        hintText    "Creates a mergelink between to objects."
        mnemonic    M
        activated    {
            #CTGENCommandScript
            VBVersionMenuProcs::mergeLink
            #CTGENEndCommandScript
        }
        selCount    many
        checkOn        selectionChange
        enableScript    { eval VBProcs::takes22tango %this }
    }
}

registerObject  {
    inPopUpMenu    1
    name        .version.menu.deletemergelink
    type        CustMenuPushButton
    objSpec        {
        label        {Delete Merge Link...}
        hintText    "Deletes a mergelink."
        mnemonic    e
        activated    {
            #CTGENCommandScript
            VBVersionMenuProcs::deleteMergeLink
            #CTGENEndCommandScript
        }
        selCount    many
        checkOn        selectionChange
        enableScript    { eval VBProcs::takes22tango %this }
    }
}

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

registerObject  {
    name        .version.menu.freeze
    type        CustMenuPushButton
    objSpec        {
        label        Freeze...
        hintText    "Freezes the selected objects."
        mnemonic    F
        activated    {
            #CTGENCommandScript
            VBVersionMenuProcs::freeze
            #CTGENEndCommandScript
        }
        selCount    many
        checkOn        selectionChange
        enableScript    { eval VBProcs::mustBe working %this }
    }
}

registerObject  {
    name        .version.menu.unfreeze
    type        CustMenuPushButton
    objSpec        {
        label        Unfreeze
        mnemonic    U
        hintText    "Unfreezes the selected objects."
        activated    {
            #CTGENCommandScript
            VBVersionMenuProcs::unFreeze
            #CTGENEndCommandScript
        }
        selCount    1
        checkOn        selectionChange
        enableScript    { eval VBProcs::mustBe frozen %this }
    }
}

registerObject  {
    name        .version.menu.new
    type        CustMenuPushButton
    objSpec        {
        label        New
        mnemonic    N
        hintText    "Creates new version of the selected objects."
        activated    {
            #CTGENCommandScript
            VBVersionMenuProcs::new
            #CTGENEndCommandScript
        }
        selCount    1
        checkOn        selectionChange
        enableScript    {
            eval VBProcs::parentMustBe working %this
            if [%this sensitive] {
                eval VBProcs::mustNotBe backGround %this
            }
        }
    }
}

registerObject  {
    inToolBar    1
    name        .version.menu.delete
    type        CustMenuPushButton
    objSpec        {
        label        Delete...
        mnemonic    D
        toolBarPixmap    delete_16
        hintText    "Deletes the selected version."
        activated    {
            #CTGENCommandScript
            VBVersionMenuProcs::delete
            #CTGENEndCommandScript
        }
        selCount    1
        checkOn        selectionChange
        enableScript    { eval VBProcs::parentMustBe working %this 0}
    }
}

registerObject  {
    inPopUpMenu    1
    name        .version.menu.select
    type        CustMenuPushButton
    objSpec        {
        label        Select
        mnemonic    S
        hintText    "Selects a version of not currently available objects."
        activated    {
            #CTGENCommandScript
            VBVersionMenuProcs::select
            #CTGENEndCommandScript
        }
        selCount    1
        checkOn        selectionChange
        enableScript    {
            set version [lindex [.main selectedObjSet] 0]
            if [$version isA ConfigVersion] {
                    %this sensitive 0
                    return
            }
            eval VBProcs::parentMustBe working %this
        }
    }
}

registerObject {
    type    CustMenuPushButton
    name    .help.menu.whatsthis
    objSpec {
    hintText    "Shows context sensitive help."
    label        "What's This?"
    mnemonic    W
    activated    {VBProcs::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.aboutversionbrowser
    type        CustMenuPushButton
    objSpec        {
        hintText    {Shows version information.}
        label        {About VersionBrowser}
        mnemonic    A
        activated    {
            require "showversio.tcl"
            showVersionDialog [%this label]
        }
    }
}