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

Text File | 1997-05-13 | 9KB | 457 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.new
    type        CustMenuPushButton
    objSpec        {
        label        New...
        hintText    "Creates a new repository."
        mnemonic    N
        toolBarPixmap    rep_new_16
        activated    {
            #CTGENCommandScript
            busy { .main fileNew }
            #CTGENEndCommandScript
        }
        selIsATypes    {}
    }
}

registerObject  {
    inToolBar    1
    name        .file.menu.delete
    type        CustMenuPushButton
    objSpec        {
        label        Delete...
        hintText    "Deletes all or part of a repository."
        mnemonic    D
        toolBarPixmap    delete_16
        activated    {
            #CTGENCommandScript
            busy { .main fileDelete }
            #CTGENEndCommandScript
        }
        selIsATypes    {}
        selCount    1
        checkOn        selectionChange
    }
}

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

registerObject  {
    name        .file.menu.open
    type        CustMenuPushButton
    objSpec        {
        label        Open
        mnemonic    e
        accelerator    Ctrl+O
                hintText        "Starts a browser for the selected repository."
        activated    {
            #CTGENCommandScript
            busy { .main fileOpen }
            #CTGENEndCommandScript
        }
        selIsATypes    {}
        selCount    1
        checkOn        selectionChange
                enableScript {
            if [[[.main rep] currentCorporate] isNil] {
                %this sensitive 0
            } else {
                %this sensitive 1
            }
                }
    }
}


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

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  {
    name        .file.menu.user_3
    type        CustMenuSeparator
    objSpec        {
    }
}

registerObject  {
    inToolBar    1
    name        .file.menu.optimize
    type        CustMenuPushButton
    objSpec        {
        label        Optimize...
        hintText    "Optimizes a repository database."
        mnemonic    O
        toolBarPixmap    rep_optim_16
        activated    {
            #CTGENCommandScript
            busy { .main fileOptimize }
            #CTGENEndCommandScript
        }
        selIsATypes    {}
        selCount    1
        checkOn        selectionChange
    }
}

registerObject  {
    inToolBar    1
    name        .file.menu.backup
    type        CustMenuPushButton
    objSpec        {
        label        Backup...
        hintText    "Dumps the repository database and archives it."
        mnemonic    B
        toolBarPixmap    rep_backup_16
        activated    {
            #CTGENCommandScript
            busy { .main  fileBackup }
            #CTGENEndCommandScript
        }
        selIsATypes    {}
        selCount    1
        checkOn        selectionChange
    }
}

registerObject  {
    inToolBar    1
    name        .file.menu.restore
    type        CustMenuPushButton
    objSpec        {
        label        Restore...
        hintText    "Restores a previously backed up repository."
        mnemonic    R
        toolBarPixmap    rep_restore_16
        activated    {
            #CTGENCommandScript
            busy { .main fileRestore }
            #CTGENEndCommandScript
        }
        selIsATypes    {}
    }
}

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

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

registerObject  {
    name        .file.menu.change.menu.repositoryname
    type        CustMenuPushButton
    objSpec        {
        label        {Name...}
        hintText    "Changes name and/or directory of a repository."
        mnemonic    N
        activated    {
            #CTGENCommandScript
            busy { .main fileChangeName }
            #CTGENEndCommandScript
        }
        selIsATypes    {}
        selCount    1
        checkOn        selectionChange
    }
}

registerObject  {
    inToolBar    1
    name        .file.menu.change.menu.serverentry
    type        CustMenuPushButton
    objSpec        {
        label        {Server Definition...}
        hintText    "Changes the server definition of a repository."
        mnemonic    S
        toolBarPixmap    rep_chdef_16
        activated    {
            #CTGENCommandScript
            busy { .main fileChangeServerEntry }
            #CTGENEndCommandScript
        }
        selIsATypes    {}
        selCount    1
        checkOn        selectionChange
    }
}

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

registerObject  {
    name        .view.menu.user_5
    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 information area font (M4_font__repcorp)."
        mnemonic    F
        activated    {busy { .main optionsFont }}
        selIsATypes    {}
    }
}

registerObject  {
    name        .options.menu.archivecommand
    type        CustMenuPushButton
    objSpec        {
        label        {Archive Command...}
        hintText    "Changes the command or script used to archive a dumped repository (M4_archive_cmd)."
        mnemonic    A
        activated    {
            #CTGENCommandScript
            busy { .main optionsArchiveCmd }
            #CTGENEndCommandScript
        }
        selIsATypes    {}
    }
}

registerObject  {
    name        .options.menu.unarchivecommand
    type        CustMenuPushButton
    objSpec        {
        label        {Unarchive Command...}
        hintText    "Changes the command or script used to unarchive a repository backup (M4_unarchive_cmd)."
        mnemonic    U
        activated    {
            #CTGENCommandScript
            busy { .main optionsUnarchiveCmd }
            #CTGENEndCommandScript
        }
        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]}
    }
}