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

Text File | 1997-05-13 | 8KB | 366 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        .edit
    type        CustMenuBarButton
    objSpec        {
        label        Edit
        mnemonic    E
    }
}

registerObject  {
    name        .edit.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.new
    type        CustMenuPushButton
    objSpec        {
        label        New...
        hintText    "Creates a new lock."
        mnemonic    N
        toolBarPixmap    rep_newlock_16
        activated    {
            #CTGENCommandScript
            busy { .main fileNew }
            #CTGENEndCommandScript
        }
        selIsATypes    {}
        checkOn        selectionChange
    }
}

registerObject  {
    inToolBar    1
    name        .file.menu.delete
    type        CustMenuPushButton
    objSpec        {
        label        Delete...
        hintText    "Removes the selected locks."
        mnemonic    D
        toolBarPixmap    delete_16
        activated    {
            #CTGENCommandScript
            busy { .main fileDelete }
            #CTGENEndCommandScript
        }
        selIsATypes    {}
        selCount    many
        checkOn        selectionChange
    }
}

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

registerObject  {
    inToolBar    0
    name        .file.menu.makeoperable
    type        CustMenuPushButton
    objSpec        {
        label        {Make Lockserver Operable}
        hintText    "Makes the lockserver operable again after it crashed and restarted."
        mnemonic    O
                activated    { busy { .main fileMakeOperable } }
        selIsATypes    {}
        checkOn        selectionChange
                enableScript    {
                    %this sensitive [.main lockServerNotOperable]
                }
    }
}

registerObject  {
    inToolBar    0
    name        .file.menu.shutdownlockserver
    type        CustMenuPushButton
    objSpec        {
        label        {Shutdown Lockserver}
        hintText    "Gracefully shuts down the lockserver if possible."
        mnemonic    c
                activated    { busy { .main fileShutdown } }
        selIsATypes    {}
        checkOn        selectionChange
                enableScript    {
                    %this sensitive [.main lockServerRunning]
                }
    }
}

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

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

registerObject  {
    name        .edit.menu.selectall
    type        CustMenuPushButton
    objSpec        {
        hintText    "Selects all locks."
        label        {Select All}
        mnemonic        A
        accelerator     Ctrl+A
        activated    {.main editSelectAll}
        selIsATypes    {}
        checkOn        selectionChange
    }
}


registerObject  {
    name        .edit.menu.invertselection
    type        CustMenuPushButton
    objSpec        {
        hintText    "Inverts the lock selection."
        label        {Invert Selection}
        mnemonic    I
        activated    {.main editInvertSelection}
        selIsATypes    {}
    }
}

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

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.font
    type        CustMenuPushButton
    objSpec        {
        label        {Font...}
        hintText    "Changes the font used by the lock list."
        mnemonic    F
        activated    {busy { .main optionsFont }}
        selIsATypes    {}
    }
}

registerObject  {
    name        .options.menu.lockfilter
    type        CustMenuPushButton
    objSpec        {
        label        {Lock Filter...}
        hintText    "Changes the lock filter."
        mnemonic    L
        accelerator    Ctrl+f
        activated    {busy { .main optionsLockFilter }}
        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]}
    }
}