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

Text File | 1997-11-24 | 9.4 KB | 529 lines

registerObject  {
    readOnly    1
    name        .file
    type        CustMenuBarButton
    objSpec        {
        label        File
        mnemonic    F
    }
}

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

registerObject  {
    readOnly    1
    name        .edit
    type        CustMenuBarButton
    objSpec        {
        label        Edit
        mnemonic    E
    }
}

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

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

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

registerObject  {
    name        .filter
    type        CustMenuBarButton
    objSpec        {
        label        Filter
        mnemonic    i
    }
}

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

registerObject  {
    readOnly    1
    name        .help
    type        CustMenuBarButton
    objSpec        {
        label        Help
        mnemonic    H
        helpButton    1
    }
}

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

registerObject  {
    readOnly    1
    name        .file.menu.reload
    type        CustMenuPushButton
    objSpec        {
        hintText    {Reloads the edited customization file.}
        label        Reload
        mnemonic    l
        accelerator    Ctrl+r
        activated    {.main reload}
    }
}

registerObject  {
    readOnly    1
    inToolBar    1
    name        .file.menu.save
    type        CustMenuPushButton
    objSpec        {
        hintText    {Saves the edited customization file.}
        label        Save
        mnemonic    S
        accelerator    Ctrl+S
        toolBarPixmap    save_16
        checkOn        levelChange
        enableScript    {
            eval editorReadOnly %this
        }
        activated    {.main save}
    }
}

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

registerObject  {
    readOnly    1
    name        .file.menu.exit
    type        CustMenuPushButton
    objSpec        {
        hintText    {Exits the editor.}
        label        Exit
        mnemonic    x
        activated    {.main exit}
    }
}

registerObject  {
    readOnly    1
    name        .edit.menu.new
    type        CustMenuPushButton
    objSpec        {
        hintText    {Adds new module specifications.}
        label        New...
        mnemonic    N
        checkOn        levelChange
        enableScript    {
            eval editorReadOnly %this
        }
        activated    {
            if ![isCommand .main.newObject] {
                require "newmoduled.tcl"
                NewModuleDialog new .main.newObject \
                    -okPressed {[.main editorArea] newObjects [.main.newObject getSelectedModules]} \
                    -helpPressed {.main helpOnName newModule}
            }
            .main.newObject popUp
        }
    }
}

registerObject  {
    readOnly    1
    name        .edit.menu.addrequiredmodules
    type        CustMenuPushButton
    inPopUpMenu    1
    objSpec        {
        hintText    {Adds required module specifications.}
        label        {Add Required Modules}
        mnemonic    A
        selCount    1
        checkOn        selectionChange
        enableScript    {
            eval objectReadOnly %this
        }
        activated    {
            set obj [[.main editorArea] selectedSet]
            [.main editorArea] addRequiredModules $obj
        }
    }
}

registerObject  {
    name        .edit.menu.change
    type        CustCascadeButton
    objSpec        {
        label        Change
        mnemonic    C
    }
}

registerObject  {
    name        .edit.menu.change.menu
    type        CustMenu
}

registerObject  {
    readOnly    1
    inToolBar    1
    name        .edit.menu.info
    type        CustMenuPushButton
    inPopUpMenu    1
    objSpec        {
        hintText    {Gives info on the selected object}
        label        Info
        mnemonic    I
        selCount    1
        checkOn        selectionChange
        activated    {
            set obj [[.main editorArea] selectedSet]
            set withHelp 1
            .main showObjectInfo $obj $withHelp
        }
        toolBarPixmap    info_16
    }
}

registerObject  {
    readOnly    1
    name        .edit.menu.user_5
    type        CustMenuSeparator
    objSpec        {
    }
}

registerObject  {
    readOnly    1
    inToolBar    1
    name        .edit.menu.delete
    type        CustMenuPushButton
    inPopUpMenu    1
    objSpec        {
        hintText    {Deletes the selected object.}
        label        Delete
        mnemonic    D
        accelerator    Del
        selCount    many
        checkOn        selectionChange
        enableScript    {
            eval objectReadOnly %this
        }
        activated    {
            [.main editorArea] deleteObjects [[.main editorArea] selectedSet]
        }
        toolBarPixmap    delete_16
    }
}

registerObject  {
    name        .edit.menu.change.menu.selectstate
    type        CustMenuPushButton
    inPopUpMenu    1
    objSpec        {
        label        {Select State}
        mnemonic    S
        hintText    {Changes the select state of the selected object}
        activated    {
            set obj [[.main editorArea] selectedSet]
            if {[$obj select-state] == "on"} {
                set newState "off"
            } else {
                set newState "on"
            }
            $obj select-state $newState
            wmtkmessage "Select State of module '[$obj longName]' turned '$newState'"
            $obj updateView
            [.main editorArea] isChanged 1

        }
        enableScript    {
            eval objectReadOnly %this
        }
        selCount    1
        checkOn        selectionChange
    }
}

registerObject  {
    name        .edit.menu.change.menu.location
    type        CustMenuPushButton
    inPopUpMenu    1
    objSpec        {
        label        Location...
        mnemonic    L
        activated    {
            if ![isCommand .main.changeModLocation] {
                require "selectmodu.tcl"
                SelectModuleDialog new .main.changeModLocation \
                    -okPressed {
                        set obj [[.main editorArea] selectedSet]
                        set modPath [lindex [.main.changeModLocation getSelectedModules] 0]
                        $obj location $modPath
                        $obj updateInfo
                        [.main editorArea] isChanged 1
                    } \
                    -helpPressed {
                        .main helpOnName changeLocation
                    }
            }
            set obj [[.main editorArea] selectedSet]
            [.main.changeModLocation filter] name [$obj name]
            set dir [path_name directory [$obj location]]
            .main.changeModLocation popUp $dir
        }
        enableScript    {
            eval objectReadOnly %this
        }
        selCount    1
        checkOn        selectionChange
    }
}

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        {
        hintText    {Changes the view font.}
        label        Font...
        mnemonic    F
        activated    {[.main options] font}
    }
}

registerObject  {
    readOnly    1
    name        .check.menu.requirements
    type        CustMenuPushButton
    objSpec        {
        hintText    {Checks requirements of all specifications.}
        label        {Requirements}
        mnemonic    R
        activated    {
            [.main editorArea] checkRequirements
        }
    }
}

registerObject  {
    readOnly    1
    name        .check.menu.conflicts
    type        CustMenuPushButton
    objSpec        {
        hintText    {Checks conflicts of all specifications.}
        label        {Conflicts}
        mnemonic    C
        activated    {
            [.main editorArea] checkConflicts
        }
    }
}

registerObject  {
    readOnly    1
    name        .check.menu.existence
    type        CustMenuPushButton
    objSpec        {
        hintText    {Checks existence of all specifications.}
        label        {Existence}
        mnemonic    E
        activated    {
            [.main editorArea] checkExistence
        }
    }
}

registerObject  {
    readOnly    1
    name        .check.menu.user_6
    type        CustMenuSeparator
    objSpec        {
    }
}

registerObject  {
    readOnly    1
    name        .check.menu.all
    type        CustMenuPushButton
    objSpec        {
        hintText    {Checks requirements, conflicts and existence of all specifications.}
        label        {All}
        mnemonic    A
        activated    {
            [.main editorArea] checkAll
        }
    }
}

registerObject  {
    name        .filter.menu.filteroncurrentfileentries
    type        CustMenuCheckButton
    objSpec        {
        hintText    {Filters out those objects that not in the edited file.}
        label        {Filter On Current File Entries}
        mnemonic    F
        stateChanged    { set filter [[.main editorArea] filter]
                  $filter fileFilter [%this state]
                  if {[isCommand [.main wmtArea]]} {
                      if [$filter isFilterActive] {
                        [.main wmtArea] filter "On"
                      } else {
                        [.main wmtArea] filter "Off"
                      }
                  }
        }
    }
}

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


registerObject  {
    readOnly    1
    name        .help.menu.helptopics
    type        CustMenuPushButton
    objSpec        {
        hintText    {Shows help topics.}
        label        {Help Topics}
        mnemonic    T
        activated    showHelpTopics
    }
}

registerObject  {
    readOnly    1
    name        .help.menu.aboutmoduleavailabilityeditor
    type        CustMenuPushButton
    objSpec        {
        hintText    {Shows version information.}
        label        {About Module Availability Editor}
        mnemonic    A
        activated
            showVersionDialog

    }
}