home *** CD-ROM | disk | FTP | other *** search
- registerObject {
- name .edit.menu.corporate_1
- type CustMenuSeparator
- visible {1 1 1 1 1}
- objSpec {
- }
- }
-
- registerObject {
- name .edit.menu.fold
- type CustMenuPushButton
- visible {1 1 1 1 1}
- inPopUpMenu 1
- objSpec {
- hintText "Folds the selected classes."
- label Fold
- mnemonic F
- accelerator Ctrl+L
- activated {
- #CTGENCommandScript
- [.main editorArea] changeClassesFoldState 1
- #CTGENEndCommandScript
- }
- operations {item save}
- }
- }
-
- registerObject {
- name .edit.menu.unfold
- type CustMenuPushButton
- visible {1 1 1 1 1}
- inPopUpMenu 1
- objSpec {
- hintText "Unfolds the selected classes."
- label Unfold
- mnemonic n
- accelerator Ctrl+U
- activated {
- #CTGENCommandScript
- [.main editorArea] changeClassesFoldState 0
- #CTGENEndCommandScript
- }
- operations {item save}
- }
- }
-
- registerObject {
- name .options.menu.font.menu.bold
- type CustMenuPushButton
- visible {1 1 1 1 1}
- objSpec {
- hintText "Changes the bold font."
- label Bold...
- mnemonic B
- activated {
- #CTGENCommandScript
- [.main options] boldFont
- #CTGENEndCommandScript
- }
- }
- }
-
- registerObject {
- name .options.menu.syntax
- type CustMenuPushButton
- visible {1 1 1 1 1}
- objSpec {
- hintText "Changes the syntax specification for labels."
- label Syntax...
- mnemonic y
- activated {
- #CTGENCommandScript
- [.main options] syntax
- #CTGENEndCommandScript
- }
- }
- }
-
- registerObject {
- name .options.menu.initialfold
- type CustMenuCheckButton
- visible {1 1 1 1 1}
- objSpec {
- hintText "Changes the fold mode for new class symbols."
- label {Initial Fold}
- mnemonic l
- stateChanged {
- #CTGENCommandScript
- [.main options] initialFold
- #CTGENEndCommandScript
- }
- }
- }
-
- registerObject {
- name .options.menu.showvisibility
- type CustMenuCheckButton
- visible {1 1 1 1 1}
- objSpec {
- hintText "Shows visibility modifiers in class symbols."
- label {Show Visibility}
- stateChanged {
- #CTGENCommandScript
- [.main options] showVisibility
- #CTGENEndCommandScript
- }
- }
- }
-
- registerObject {
- type CustMenuSeparator
- name .options.menu.separator1
- }
-
- registerObject {
- name .options.menu.menuarbiter
- type CustMenuArbiter
- objSpec {
- currentButtonChanged { [.main options] look }
- }
- }
-
- registerObject {
- name .options.menu.UML
- type CustMenuRadioButton
- arbiter menuarbiter
- objSpec {
- hintText "Changes to UML look."
- label "UML Look"
- mnemonic U
- }
- }
-
- registerObject {
- name .options.menu.OMT
- type CustMenuRadioButton
- arbiter menuarbiter
- objSpec {
- hintText "Changes to OMT look."
- label "OMT Look"
- mnemonic M
- }
- }
-
- registerObject {
- name .check.menu.localmodel
- type CustMenuPushButton
- visible {1 1 1 1 1}
- objSpec {
- hintText "Checks the local model of this diagram."
- label {Local Model}
- mnemonic L
- activated {
- #CTGENCommandScript
- .main checkLocalModel
- #CTGENEndCommandScript
- }
- }
- }
-
- registerObject {
- name .utilities.menu.reports.menu.onclasses
- type CustMenuPushButton
- visible {1 1 1 1 1}
- objSpec {
- hintText "Generates a report on classes."
- label {On Classes}
- mnemonic l
- activated {
- #CTGENCommandScript
- .main startReport classes.tcl [%this label]
- #CTGENEndCommandScript
- }
- operations diagram
- }
- }
-
- registerObject {
- name .utilities.menu.reports.menu.onclassgeneralizations
- type CustMenuPushButton
- visible {1 1 1 1 1}
- objSpec {
- hintText "Generates a report on generalizations."
- label {On Class Generalizations}
- mnemonic e
- activated {
- #CTGENCommandScript
- .main startReport class_gens.tcl [%this label]
- #CTGENEndCommandScript
- }
- operations diagram
- }
- }
-
- registerObject {
- name .utilities.menu.reports.menu.onmissingoperations
- type CustMenuPushButton
- visible {1 1 1 1 1}
- objSpec {
- hintText "Generates a report on missing operations."
- label {On Missing Operations}
- mnemonic r
- activated {
- #CTGENCommandScript
- set opts "-o"
- set area [.main editorArea]
- foreach comp [$area getSelectedComponents] {
- if {[$comp type] != "cad_class" &&
- [$comp type] != "cad_container"} {
- continue
- }
- set nameItem [$comp nameItem]
- if {$nameItem != ""} {
- append opts " [$nameItem name]"
- }
- }
- if {$opts == "-o"} {
- wmtkerror "No Class(es) having a name selected"
- } else {
- .main startReport \
- "oper_missing.tcl $opts" [%this label]
- }
- $area releaseSelectedComponents
- #CTGENEndCommandScript
- }
- operations {diagram item}
- }
- }
-
- registerObject {
- name .help.menu.aboutcadeditor
- type CustMenuPushButton
- objSpec {
- hintText "Shows version information."
- label {About CD Editor}
- mnemonic A
- activated {
- #CTGENCommandScript
- showVersionDialog [%this label]
- #CTGENEndCommandScript
- }
- }
- }
-
-