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

Text File | 1997-04-07 | 9KB | 501 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
}

registerObject {
    name        .item
    type        CustMenuBarButton
    objSpec        {
        label        Item
        mnemonic    I
    }
}

registerObject {
    name        .item.menu
    type        CustMenu
    objSpec    {
        pinnable    1
    }
}

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

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

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

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

registerObject {
    name        .utilities
    type        CustMenuBarButton
    objSpec        {
        label        Utilities
        mnemonic    U
    }
}

registerObject {
    name        .utilities.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 {
    name        .file.menu.reloadclasses
    type        CustMenuPushButton
    objSpec        {
        hintText    "Reloads the classes."
        label        {Reload Classes}
        mnemonic    R
        activated    {
            #CTGENCommandScript
            .main fileReloadClasses
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .file.menu.open
    type        CustMenuPushButton
    inToolBar    1
    objSpec        {
        hintText    "Opens the selected class."
        label        Open
        checkOn        selectionChange
        selCount    1
        mnemonic    O
        accelerator    Ctrl+O
        toolBarPixmap    open_16
        activated    {
            #CTGENCommandScript
            .main fileOpen
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .file.menu.close
    type        CustMenuPushButton
    inToolBar    1
    objSpec        {
        hintText    "Opens the previous opened class."
        label        Close
        mnemonic    C
        toolBarPixmap    close_16
        activated    {
            #CTGENCommandScript
            .main fileClose
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .file.menu.findclass
    type        CustMenuPushButton
    objSpec        {
        hintText    "Finds a class by name."
        label        {Find Class...}
        mnemonic    n
        accelerator    Ctrl+N
        activated    {
            #CTGENCommandScript
            .main fileFindClass
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .file.menu.findfeature
    type        CustMenuPushButton
    objSpec        {
        hintText    "Finds a feature by name."
        label        {Find Feature...}
        mnemonic    F
        accelerator    Ctrl+F
        activated    {
            #CTGENCommandScript
            .main fileFindFeature
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .file.menu.printview
    type        CustMenuPushButton
    objSpec        {
        hintText    "Prints currently displayed information."
        label        {Print View}
        mnemonic    V
        activated    {
            #CTGENCommandScript
            .main filePrintView
            #CTGENEndCommandScript
        }
    }
}

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

registerObject {
    name        .file.menu.exit
    type        CustMenuPushButton
    objSpec        {
        hintText    "Exits the class browser."
        label        Exit
        mnemonic    x
        activated    {
            #CTGENCommandScript
            .main fileExit
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    inToolBar    1
    name        .edit.menu.copy
    type        CustMenuPushButton
    objSpec        {
        hintText    "Copies the selected components to the clipboard."
        label        Copy
        mnemonic    C
        accelerator    Ctrl+C
        toolBarPixmap    copy_16
        checkOn        selectionChange
        selCount    many
        activated    {
            [.main selTextList] setClipboardValue
        }
    }
}

registerObject {
    name        .item.menu.showproperties
    type        CustMenuPushButton
    objSpec        {
        hintText    "Shows the properties of the selected entry."
        label        {Show Properties...}
        checkOn        selectionChange
        selCount    1
        mnemonic    e
        accelerator    Ctrl+E
        activated    {
            #CTGENCommandScript
            .main itemShowProperties
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .item.menu.showscope
    type        CustMenuPushButton
    objSpec        {
        hintText    "Shows the scope of the selected entry."
        label        {Show Scope...}
        checkOn        selectionChange
        selCount    1
        mnemonic    S
        accelerator    Ctrl+S
        activated    {
            #CTGENCommandScript
            .main itemShowScope
            #CTGENEndCommandScript
        }
    }
}

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

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

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

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

registerObject {
    name        .view.menu.flat
    type        CustMenuCheckButton
    objSpec        {
        hintText    "Shows classes in flat view."
        label        Flat
        mnemonic    F
        state        0
        stateChanged    {
            #CTGENCommandScript
            .main viewFlat %this
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .view.menu.filterfeatures
    type        CustMenuPushButton
    objSpec        {
        hintText    "Filters features on name, type and properties."
        label        {Filter Features...}
        mnemonic    i
        activated    {
            #CTGENCommandScript
            .main viewFilterFeatures
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .options.menu.sortcasesensitive
    type        CustMenuCheckButton
    objSpec        {
        hintText    "Sort classes case sensitive or insensitive."
        label        {Sort Case Sensitive}
        mnemonic    C
        state        0
        stateChanged    {
            #CTGENCommandScript
            .main optionsSortCaseSensitive %this
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .options.menu.font
    type        CustMenuPushButton
    objSpec        {
        hintText    "Changes the view font."
        label        {Font...}
        mnemonic    F
        activated    {
            #CTGENCommandScript
            .main optionsFont
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .options.menu.printersetup
    type        CustMenuPushButton
    objSpec        {
        hintText    "Changes the used printer."
        label        {Printer Setup...}
        mnemonic    P
        activated    {
            #CTGENCommandScript
            .main optionsPrinterSetup
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .utilities.menu.editcad
    type        CustMenuPushButton
    objSpec        {
        hintText    "Starts CAD editor for selected class."
        label        {Edit CAD}
        checkOn        selectionChange
        selCount    1
        mnemonic    E
        activated    {
            #CTGENCommandScript
            .main utilEditCAD
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    type    CustMenuPushButton
    name    .help.menu.whatsthis
    readOnly    1
    objSpec {
    hintText    "Shows context sensitive help."
    label        "What's This?"
    mnemonic    W
    activated    {.main helpOnContext}
    }
}


registerObject {
    type    CustMenuPushButton
    name    .help.menu.helptopics
    readOnly    1
    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.aboutclassbrowser
    readOnly    1
    objSpec {
        hintText    "Shows version information."
        label        "About Class Browser"
        mnemonic    A
        activated    {showVersionDialog [%this label]}
    }
}