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

Text File | 1997-04-11 | 20.8 KB | 1,138 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
    objSpec        {
        pinnable    1
    }
}

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

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

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

registerObject {
    name        .item.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        .check
    type        CustMenuBarButton
    objSpec        {
        label        Check
        mnemonic    C
    }
}

registerObject {
    name        .check.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.reload
    type        CustMenuPushButton
    objSpec        {
        hintText    "Reloads this diagram."
        label        Reload
        mnemonic    l
        activated    {
            #CTGENCommandScript
            .main edit [.main fileVersion]
            #CTGENEndCommandScript
        }
        operations    {diagram edit}
    }
}

registerObject {
    name        .file.menu.openbyname
    type        CustMenuPushButton
    objSpec        {
        hintText    "Opens the diagram with the specified name."
        label        {Open By Name...}
        mnemonic    N
        accelerator    Ctrl+N
        activated    {
            #CTGENCommandScript
            .main openByName
            #CTGENEndCommandScript
        }
        operations    edit
    }
}

registerObject {
    name        .file.menu.open
    type        CustMenuPushButton
    inToolBar    1
    inPopUpMenu    1
    objSpec        {
        hintText    "Opens a diagram for the selected component."
        label        Open
        mnemonic    O
        accelerator    Ctrl+O
        toolBarPixmap    open_16
        activated    {
            #CTGENCommandScript
            .main open
            #CTGENEndCommandScript
        }
        operations    open
    }
}

registerObject {
    name        .file.menu.close
    type        CustMenuPushButton
    inToolBar    1
    objSpec        {
        hintText    "Closes this diagram."
        label        Close
        mnemonic    C
        toolBarPixmap    close_16
        activated    {
            #CTGENCommandScript
            .main close
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .file.menu.read
    type        CustMenuPushButton
    objSpec        {
        hintText    "Adds the contents of another diagram."
        label        Read...
        mnemonic    R
        activated    {
            #CTGENCommandScript
            .main read
            #CTGENEndCommandScript
        }
        operations    read
    }
}

registerObject {
    name        .file.menu.save
    type        CustMenuPushButton
    inToolBar    1
    objSpec        {
        hintText    "Saves the changes made to this diagram."
        label        Save
        toolBarPixmap    save_16
        mnemonic    S
        accelerator    Ctrl+S
        activated    {
            #CTGENCommandScript
            .main save
            #CTGENEndCommandScript
        }
        operations    save
    }
}

registerObject {
    name        .file.menu.properties
    type        CustCascadeButton
    objSpec        {
        hintText    "Contains commands to handle file properties."
        label        Properties
        mnemonic    t
    }
}

registerObject {
    name        .file.menu.properties.menu
    type        CustMenu
}

registerObject {
    name        .file.menu.print
    type        CustMenuPushButton
    inToolBar    1
    objSpec        {
        hintText    "Prints this diagram."
        label        Print
        mnemonic    P
        accelerator    Ctrl+P
        toolBarPixmap    print_16
        activated    {
            #CTGENCommandScript
            .main print
            #CTGENEndCommandScript
        }
        operations    diagram
    }
}

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

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

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

registerObject {
    name        .file.menu.properties.menu.edit
    type        CustMenuPushButton
    objSpec        {
        hintText    "Edits the file properties of this diagram."
        label        Edit...
        mnemonic    E
        accelerator    Ctrl+D
        activated    {
            #CTGENCommandScript
            .main editDiagramProperties
            #CTGENEndCommandScript
        }
        operations    save
    }
}

registerObject {
    name        .file.menu.properties.menu.show
    type        CustMenuPushButton
    objSpec        {
        hintText    "Shows the file properties of this diagram."
        label        Show...
        mnemonic    S
        activated    {
            #CTGENCommandScript
            .main showDiagramProperties
            #CTGENEndCommandScript
        }
        operations    diagram
    }
}

registerObject {
    name        .file.menu.properties.menu.delete
    type        CustMenuPushButton
    objSpec        {
        hintText    "Deletes the file properties of this diagram."
        label        Delete...
        mnemonic    D
        activated    {
            #CTGENCommandScript
            .main removeDiagramProperties
            #CTGENEndCommandScript
        }
        operations    save
    }
}

registerObject {
    name        .edit.menu.undo
    type        CustMenuPushButton
    inPopUpMenu    1
    objSpec        {
        hintText    "Undoes the last edit action."
        label        Undo
        mnemonic    U
        accelerator    Ctrl+Z
        activated    {
            #CTGENCommandScript
            [.main editorArea] toggleUndo
            #CTGENEndCommandScript
        }
        operations    undo
    }
}

registerObject {
    name        .edit.menu.separator1
    type        CustMenuSeparator
    objSpec        {
    }
}

registerObject {
    name        .edit.menu.cut
    type        CustMenuPushButton
    inToolBar    1
    inPopUpMenu    1
    objSpec        {
        hintText    "Cuts the selection and places it on the clipboard."
        label        Cut
        mnemonic    t
        accelerator    Ctrl+X
        toolBarPixmap    cut_16
        activated    {
            #CTGENCommandScript
            [.main editorArea] cutSelection
            #CTGENEndCommandScript
        }
        operations    {delete copyToClipboard}
    }
}

registerObject {
    name        .edit.menu.copy
    type        CustMenuPushButton
    inToolBar    1
    inPopUpMenu    1
    objSpec        {
        hintText    "Copies the selected components to the clipboard."
        label        Copy
        mnemonic    C
        accelerator    Ctrl+C
        toolBarPixmap    copy_16
        activated    {
            #CTGENCommandScript
            [.main editorArea] copyToClipboard
            #CTGENEndCommandScript
        }
        operations    copyToClipboard
    }
}

registerObject {
    name        .edit.menu.paste
    type        CustMenuPushButton
    inToolBar    1
    inPopUpMenu    1
    objSpec        {
        hintText    "Pastes the text on the clipboard in the label."
        label        Paste
        mnemonic    P
        accelerator    Ctrl+V
        toolBarPixmap    paste_16
        activated    {
            #CTGENCommandScript
            [.main editorArea] pasteFromClipboard
            #CTGENEndCommandScript
        }
        operations    pasteFromClipboard
    }
}

registerObject {
    name        .edit.menu.delete
    type        CustMenuPushButton
    inToolBar    1
    inPopUpMenu    1
    objSpec        {
        hintText    "Deletes the selected components."
        label        Delete
        mnemonic    l
        accelerator    Ctrl+Del
        toolBarPixmap    delete_16
        activated    {
            #CTGENCommandScript
            [.main editorArea] deleteSelection
            #CTGENEndCommandScript
        }
        operations    delete
    }
}

registerObject {
    name        .edit.menu.separator2
    type        CustMenuSeparator
    objSpec        {
    }
}

registerObject {
    name        .edit.menu.move
    type        CustMenuPushButton
    inPopUpMenu    1
    objSpec        {
        hintText    "Moves the selected components."
        label        Move
        mnemonic    M
        accelerator    Ctrl+Tab
        activated    {
            #CTGENCommandScript
            [.main editorArea] moveSelection
            #CTGENEndCommandScript
        }
        operations    move
    }
}

registerObject {
    name        .edit.menu.duplicate
    type        CustMenuPushButton
    objSpec        {
        hintText    "Duplicates the selected components."
        label        Duplicate
        mnemonic    D
        activated    {
            #CTGENCommandScript
            [.main editorArea] copySelection
            #CTGENEndCommandScript
        }
        operations    copy
    }
}

registerObject {
    name        .edit.menu.replace
    type        CustMenuPushButton
    objSpec        {
        hintText    "Replaces the selected component."
        label        Replace
        mnemonic    R
        accelerator    Ctrl+R
        activated    {
            #CTGENCommandScript
            [.main editorArea] replaceSelection
            #CTGENEndCommandScript
        }
        operations    replace
    }
}

registerObject {
    name        .edit.menu.separator3
    type        CustMenuSeparator
}

registerObject {
    name        .edit.menu.selectall
    type        CustMenuPushButton
    objSpec        {
        hintText    "Selects all components."
        label        "Select All"
        mnemonic    A
        accelerator    Ctrl+A
        activated    {
            #CTGENCommandScript
            [.main editorArea] selectAll
            #CTGENEndCommandScript
        }
        operations    diagram
    }
}

registerObject {
    name        .edit.menu.deselectall
    type        CustMenuPushButton
    objSpec        {
        hintText    "Deselects all components."
        label        "Deselect All"
        mnemonic    s
        accelerator    Ctrl+\\
        activated    {
            #CTGENCommandScript
            [.main editorArea] deselectAll
            #CTGENEndCommandScript
        }
        operations    diagram
    }
}

registerObject {
    name        .edit.menu.center
    type        CustMenuPushButton
    objSpec        {
        hintText    "Centers the diagram."
        label        Center
        mnemonic    e
        activated    {
            #CTGENCommandScript
            [.main editorArea] center
            #CTGENEndCommandScript
        }
        operations    center
    }
}

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        .item.menu.changename
    type        CustMenuPushButton
    objSpec        {
        hintText    "Changes the name of the selected item."
        label        {Change Name...}
        mnemonic    N
        activated    {
            #CTGENCommandScript
            .main popUpNameDialog
            #CTGENEndCommandScript
        }
        operations    {item save}
    }
}

registerObject {
    name        .item.menu.editscope
    type        CustMenuPushButton
    objSpec        {
        hintText    "Edits the scope of the selected item."
        label        {Edit Scope...}
        mnemonic    c
        activated    {
            #CTGENCommandScript
            .main popUpScopeDialog
            #CTGENEndCommandScript
        }
        operations    {item}
    }
}

registerObject {
    name        .item.menu.editproperties
    type        CustMenuPushButton
    inPopUpMenu    1
    objSpec        {
        hintText    "Edits properties of selected components."
        label        {Edit Properties...}
        mnemonic    E
        accelerator    Ctrl+E
        activated    {
            #CTGENCommandScript
            .main editProperties
            #CTGENEndCommandScript
        }
        operations    {item save}
    }
}

registerObject {
    name        .item.menu.showproperties
    type        CustMenuPushButton
    inPopUpMenu    1
    objSpec        {
        hintText    "Shows properties of selected components."
        label        {Show Properties...}
        mnemonic    S
        activated    {
            #CTGENCommandScript
            .main showProperties
            #CTGENEndCommandScript
        }
        operations    item
    }
}

registerObject {
    name        .item.menu.deleteproperties
    type        CustMenuPushButton
    objSpec        {
        hintText    "Deletes properties of selected components."
        label        {Delete Properties...}
        mnemonic    D
        activated    {
            #CTGENCommandScript
            .main removeProperties
            #CTGENEndCommandScript
        }
        operations    {item save}
    }
}

registerObject {
    name        .options.menu.redraw
    type        CustMenuPushButton
    objSpec        {
        hintText    "Redraws the diagram."
        label        Redraw
        mnemonic    R
        activated    {
            #CTGENCommandScript
            [.main editorArea] redraw
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .options.menu.zoomout
    type        CustMenuPushButton
    inToolBar    1
    objSpec        {
        hintText    "Uses a smaller scale factor for displaying."
        label        {Zoom Out}
        mnemonic    Z
        toolBarPixmap    zmout_16
        activated    {
            #CTGENCommandScript
            [.main options] zoomOut
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .options.menu.zoomin
    type        CustMenuPushButton
    inToolBar    1
    objSpec        {
        hintText    "Uses a larger scale factor for displaying."
        label        {Zoom In}
        mnemonic    I
        toolBarPixmap    zmin_16
        activated    {
            #CTGENCommandScript
            [.main options] zoomIn
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .options.menu.grid
    type        CustMenuPushButton
    objSpec        {
        hintText    "Changes the size of the positioning grid."
        label        Grid...
        mnemonic    G
        activated    {
            #CTGENCommandScript
            [.main options] grid
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .options.menu.font
    type        CustCascadeButton
    objSpec        {
        hintText    "Contains commands for changing fonts."
        label        Font
        mnemonic    n
    }
}

registerObject {
    name        .options.menu.font.menu
    type        CustMenu
}

registerObject {
    name        .options.menu.font.menu.normal
    type        CustMenuPushButton
    objSpec        {
        hintText    "Changes the normal font."
        label        Normal...
        mnemonic    N
        activated    {
            #CTGENCommandScript
            [.main options] normalFont
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .options.menu.font.menu.annotation
    type        CustMenuPushButton
    objSpec        {
        hintText    "Changes the annotation font."
        label        Annotation...
        mnemonic    A
        activated    {
            #CTGENCommandScript
            [.main options] annotationFont
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .options.menu.color
    type        CustCascadeButton
    objSpec        {
        hintText    "Contains commands for changing colors."
        label        Color
        mnemonic    C
    }
}

registerObject {
    name        .options.menu.color.menu
    type        CustMenu
}

registerObject {
    name        .options.menu.color.menu.foreground
    type        CustMenuPushButton
    objSpec        {
        hintText    "Changes the foreground color."
        label        Foreground...
        mnemonic    F
        activated    {
            #CTGENCommandScript
            [.main options] foreground
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .options.menu.color.menu.background
    type        CustMenuPushButton
    objSpec        {
        hintText    "Changes the background color."
        label        Background...
        mnemonic    B
        activated    {
            #CTGENCommandScript
            [.main options] background
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .options.menu.color.menu.selection
    type        CustMenuPushButton
    objSpec        {
        hintText    "Changes the color for selection dots."
        label        Selection...
        mnemonic    S
        activated    {
            #CTGENCommandScript
            [.main options] selectionColor
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .options.menu.printoptions
    type        CustMenuPushButton
    objSpec        {
        hintText    "Changes options for printing."
        label        {Print Options...}
        mnemonic    O
        activated    {
            #CTGENCommandScript
            [.main options] printOptions
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .options.menu.printersetup
    type        CustMenuPushButton
    objSpec        {
        hintText    "Changes settings for the graphical printer."
        label        {Printer Setup...}
        mnemonic    P
        activated    {
            #CTGENCommandScript
            [.main options] psPrinterSetup
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .options.menu.pointerfocus
    type        CustMenuCheckButton
    objSpec        {
        hintText    "Changes keyboard focus policy for labels."
        label        {Pointer Focus}
        mnemonic    F
        stateChanged    {
            #CTGENCommandScript
            [.main editorArea] pointerFocus [%this state]
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .check.menu.contents
    type        CustMenuPushButton
    objSpec        {
        hintText    "Checks the contents of this diagram."
        label        Contents
        mnemonic    C
        activated    {
            #CTGENCommandScript
            .main checkContents
            #CTGENEndCommandScript
        }
        operations    check
    }
}

registerObject {
    name        .utilities.menu.classbrowser
    type        CustMenuPushButton
    objSpec        {
        hintText    "Starts the class browser."
        label        {Class Browser}
        mnemonic    C
        activated    {
            #CTGENCommandScript
            set script "SystemUtilities::fork otk clbrowser -c [list [get_comm_name]]"
            .main startCommand tcl $script "" "Starting Class Browser" {0 0} 1
            #CTGENEndCommandScript
        }
        operations    diagram
    }
}

registerObject {
    name        .utilities.menu.monitoringwindow
    type        CustMenuPushButton
    objSpec        {
        hintText    "Opens an output only window for a command."
        label        {Monitoring Window...}
        mnemonic    M
        activated    {
            #CTGENCommandScript
            .main startExetool mtool
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .utilities.menu.executionwindow
    type        CustMenuPushButton
    objSpec        {
        hintText    "Opens an interactive window for a command."
        label        {Execution Window...}
        mnemonic    x
        activated    {
            #CTGENCommandScript
            .main startExetool xtool
            #CTGENEndCommandScript
        }
    }
}

registerObject {
    name        .utilities.menu.reports
    type        CustCascadeButton
    objSpec        {
        hintText    "Contains commands for generating reports."
        label        Reports
        mnemonic    R
    }
}

registerObject {
    name        .utilities.menu.reports.menu
    type        CustMenu
    objSpec        {
        pinnable    1
    }
}

registerObject  {
    name        .utilities.menu.reports.menu.onitemsandproperties
    type        CustMenuPushButton
    visible        {1 1 1 1 1}
    objSpec        {
        hintText    "Generates a report on items and their properties."
        label        {On Items And Properties...}
        mnemonic    I
        activated    {
            #CTGENCommandScript
            set box .main.reportOptions
            EntryDialog new $box \
                -modal yes \
                -title "Report Options" \
                -message "Property Name(s):" \
                -helpPressed {.main helpOnName propertyNames} \
                -cancelPressed {.main.reportOptions delete} \
                -okPressed {
                set opts [.main.reportOptions entry]
                if {$opts != ""} {
                    set opts "-o $opts"
                }
                set file "items.tcl $opts"
                set msg "On Items And Properties"
                .main startReport $file $msg
                .main.reportOptions delete
                }
            $box popUp
            #CTGENEndCommandScript
        }
        operations    diagram
    }
}

registerObject  {
    name        .utilities.menu.reports.menu.oncomponentsandproperties
    type        CustMenuPushButton
    visible        {1 1 1 1 1}
    objSpec        {
        hintText    "Generates a report on components and their properties."
        label        {On Components And Properties...}
        mnemonic    p
        activated    {
            #CTGENCommandScript
            set box .main.reportOptions
            EntryDialog new $box \
                -modal yes \
                -title "Report Options" \
                -message "Property Name(s):" \
                -helpPressed {.main helpOnName propertyNames} \
                -cancelPressed {.main.reportOptions delete} \
                -okPressed {
                set opts [.main.reportOptions entry]
                if {$opts != ""} {
                    set opts "-o $opts"
                }
                set msg "On Components And Properties"
                .main startReport "components.tcl $opts" $msg
                .main.reportOptions delete
                }
            $box popUp
            #CTGENEndCommandScript
        }
        operations    diagram
    }
}

registerObject {
    name        .utilities.menu.separator1
    type        CustMenuSeparator
    objSpec        {
    }
}

registerObject {
    name        .utilities.menu.deleteunreferenceditems
    type        CustMenuPushButton
    objSpec        {
        hintText    "Deletes all work items without a reference."
        label        {Delete Unreferenced Items}
        mnemonic    U
        activated    {
            #CTGENCommandScript
            .main removeUnreferencedItems
            #CTGENEndCommandScript
        }
        operations    diagram
    }
}

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 {
    type    CustMenuPushButton
    name    .help.menu.helptopics
    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
        }
    }
}