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

Text File | 1997-11-06 | 7KB | 348 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
    inPopUpMenu    1
    name        .file.menu.delete
    type        CustMenuPushButton
    objSpec        {
        label        Delete
        mnemonic    D
        hintText    "Removes the selected external file versions from the client's file system."
        toolBarPixmap    delete_16
        accelerator    Ctrl+d
        activated    {busy { .main fileDelete }}
        selIsATypes    {}
        selCount    many
        checkOn        selectionChange
    }
}

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

registerObject  {
    inToolBar    1
    inPopUpMenu    1
    name        .file.menu.show
    type        CustMenuPushButton
    objSpec        {
        label        Show
        mnemonic    w
                accelerator    Ctrl+s
        hintText    {Shows contents of a selected external file version.}
        toolBarPixmap    rep_show_16
        activated    {busy { .main fileShow }}
        selIsATypes    {}
        selCount    1
        checkOn        selectionChange
    }
}

registerObject  {
    inToolBar    1
    inPopUpMenu    1
    name        .file.menu.upload
    type        CustMenuPushButton
    objSpec        {
        label        Upload
        mnemonic    U
        hintText    {Uploads the selected external file versions to the repository.}
        toolBarPixmap    rep_upload_16
        accelerator    Ctrl+u
        activated    {busy { .main fileUpload }}
        selIsATypes    {}
        selCount    many
        checkOn        selectionChange
                enableScript    { %this sensitive [.main onlyWorkingSelected] }
    }
}

registerObject  {
    name        .file.menu.user_2
    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.selectworking
    type        CustMenuPushButton
    objSpec        {
        hintText    "Selects all working files."
        label        {Select Working}
        mnemonic    W
        accelerator    Ctrl+W
        activated    {.main editSelectWorking}
        selIsATypes    {}
        checkOn        selectionChange
    }
}

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


registerObject  {
    name        .edit.menu.invertselection
    type        CustMenuPushButton
    objSpec        {
        hintText    "Inverts file 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 external file versions.  This action may take a while."
        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 file list."
        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] 1}
    }
}