PC World 1997 November/PCWorld_1997-11_cd.bin/software/programy/komix/DATA.Z/repconf.mnu

Text File | 1997-05-13 | 8KB | 365 lines

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

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

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

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

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

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

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

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

registerObject  {
    inToolBar    1
    name        .file.menu.delete
    type        CustMenuPushButton
    objSpec        {
        label        Delete...
        hintText    "Deletes the selected server definition."
        mnemonic    D
        toolBarPixmap    delete_16
        activated    {busy { .main fileDelete }}
        selIsATypes    {}
        selCount    1
        checkOn        selectionChange
                enableScript    {
                    %this sensitive [.main canDelete]
                }
    }
}

registerObject  {
    name        .file.menu.reload
    type        CustMenuPushButton
    objSpec        {
        label        Reload
        hintText    "Tells the nameserver to reload the server definitions from the object servers file."
        mnemonic    l
        activated    {busy { .main fileReload }}
        selIsATypes    {}
        selCount    1
        checkOn        selectionChange
                enableScript    {
                    %this sensitive [.main canReload]
                }
    }
}

registerObject  {
    name        .file.menu.change
    type        CustCascadeButton
    objSpec        {
        label        Change
        mnemonic    C
    }
}

registerObject  {
    name        .file.menu.change.menu
    type        CustMenu
    visible        {1 1 1 1 1}
}

registerObject  {
    inToolBar    1
    name        .file.menu.change.menu.serverentry
    type        CustMenuPushButton
    objSpec        {
        label        {Server Definition...}
        hintText    "Changes the definition of the selected server."
        mnemonic    S
        accelerator    Ctrl+E
        toolBarPixmap    rep_chdef_16
        activated    {
            busy { .main fileChangeServerEntry }
        }
        selIsATypes    {}
        selCount    1
        checkOn        selectionChange
                enableScript    {
                    %this sensitive [.main canChangeServerEntry]
                }
    }
}

registerObject  {
        inToolBar    1
    name        .file.menu.change.menu.parameters
    type        CustMenuPushButton
    objSpec        {
        label        Parameters...
        hintText    "Changes ORB parameters of the selected object."
        mnemonic    P
        toolBarPixmap    rep_change_16
        activated    {.main fileChangeParameters}
        selIsATypes    {}
        selCount    1
        checkOn        selectionChange
                enableScript    {
                    %this sensitive [.main canChangeParameters]
                }
    }
}

registerObject  {
    inToolBar 1
    name        .file.menu.shutdown
    type        CustMenuPushButton
    objSpec        {
        label        Shutdown...
        hintText    "Gracefully shuts down the selected object."
        mnemonic    S
        toolBarPixmap    rep_shutdown_16
        activated    {busy { .main fileShutdown }}
        selIsATypes    {}
        selCount    1
        checkOn        selectionChange
                enableScript    {
                    %this sensitive [.main canShutdown]
                }
    }
}

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

registerObject  {
    name        .file.menu.exit
    type        CustMenuPushButton
    objSpec        {
        label        Exit
        hintText    "Exits the tool."
        mnemonic    x
        activated    {busy { .main fileExit }}
    }
}

registerObject  {
    inToolBar    1
    name        .view.menu.refresh
    type        CustMenuPushButton
    objSpec        {
        label        Refresh
        hintText    "Refreshes the tree and information area."
        mnemonic    R
        accelerator    Ctrl+R
        toolBarPixmap    rep_refresh_16
        activated    {busy { .main viewRefresh }}
        selIsATypes    {}
    }
}

registerObject  {
    name        .view.menu.refreshselected
    type        CustMenuPushButton
    objSpec        {
        label        {Refresh Selected}
        hintText    "Refreshes the subtree that has the selected object as root."
        mnemonic    S
        accelerator    Ctrl+S
        activated    {busy { .main viewRefreshSelected }}
        selIsATypes    {}
        selCount    1
        checkOn        selectionChange
    }
}

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

registerObject {
        name            .view.menu.toolbar
        type            CustMenuCheckButton
        objSpec         {
                hintText        "Shows or hides the toolbar."
                label           ToolBar
                mnemonic        T
                state           1
                stateChanged    {
            .main toolBarPresent [[.main menuBar].view.menu.toolbar state]
                }
        }
}

registerObject {
        name            .view.menu.contextarea
        type            CustMenuCheckButton
        objSpec         {
                hintText        "Shows or hides the context area."
                label           "Context Area"
                mnemonic        C
                state           1
                stateChanged    {
            .main contextAreaPresent [[.main menuBar].view.menu.contextarea state]
                }
        }
}

registerObject {
        name            .view.menu.messagearea
        type            CustMenuCheckButton
        objSpec         {
                hintText        "Shows or hides the message area."
                label           "Message Area"
                mnemonic        M
                state           1
                stateChanged    {
            .main messageAreaPresent [[.main menuBar].view.menu.messagearea state]
                }
        }
}

registerObject  {
    name        .options.menu.parameterdisplaymode
    type        CustMenuPushButton
    objSpec        {
        label        {Parameter Display Mode...}
        hintText    "Changes the way ORB parameters are displayed."
        mnemonic    P
        activated    {busy { .main optionsParamMode }}
        selIsATypes    {}
    }
}

registerObject  {
    name        .options.menu.font
    type        CustMenuPushButton
    objSpec        {
        label        {Font...}
        hintText    "Changes the font used in the tree and information area."
        mnemonic    F
        activated    {busy { .main optionsFont }}
        selIsATypes    {}
    }
}

registerObject  {
    name        .help.menu.whatsthis
    type        CustMenuPushButton
    objSpec        {
        hintText    {Shows help about the selected component.}
        label        "What's This?"
        mnemonic    W
        activated    {
            #CTGENCommandScript
            .main helpOnContext
            #CTGENEndCommandScript
        }
    }
}


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

registerObject  {
        name            .help.menu.productdocumentation
        type            CustMenuPushButton
        objSpec         {
                label           {Product Documentation}
                hintText        {Starts online documentation.}
                activated       {
                        #CTGENMessage
                        wmtkmessage {Start online documentation ...}
                        #CTGENBusyCursorOn
                        .main busy TRUE
                        #CTGENCommandScript
                        startOnlineDoc
                        #CTGENEndCommandScript
                        #CTGENRemoveMessage
                        wmtkmessage ""
                        #CTGENBusyCursorOff
                        .main busy FALSE
                }
        }
}

registerObject {
    type        CustMenuPushButton
    name        .help.menu.aboutrepositorytool
    objSpec {
        hintText        "Shows version information."
        label           "About Repository Tool"
        mnemonic        A
        activated       {showVersionDialog [%this label]}
    }
}