home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / cad.mnu < prev    next >
Encoding:
Text File  |  1997-11-21  |  4.9 KB  |  245 lines
  1. registerObject  {
  2.     name        .edit.menu.corporate_1
  3.     type        CustMenuSeparator
  4.     visible        {1 1 1 1 1}
  5.     objSpec        {
  6.     }
  7. }
  8.  
  9. registerObject  {
  10.     name        .edit.menu.fold
  11.     type        CustMenuPushButton
  12.     visible        {1 1 1 1 1}
  13.     inPopUpMenu    1
  14.     objSpec        {
  15.         hintText    "Folds the selected classes."
  16.         label        Fold
  17.         mnemonic    F
  18.         accelerator    Ctrl+L
  19.         activated    {
  20.             #CTGENCommandScript
  21.             [.main editorArea] changeClassesFoldState 1
  22.             #CTGENEndCommandScript    
  23.         }
  24.         operations    {item save}
  25.     }
  26. }
  27.  
  28. registerObject  {
  29.     name        .edit.menu.unfold
  30.     type        CustMenuPushButton
  31.     visible        {1 1 1 1 1}
  32.     inPopUpMenu    1
  33.     objSpec        {
  34.         hintText    "Unfolds the selected classes."
  35.         label        Unfold
  36.         mnemonic    n
  37.         accelerator    Ctrl+U
  38.         activated    {
  39.             #CTGENCommandScript
  40.             [.main editorArea] changeClassesFoldState 0
  41.             #CTGENEndCommandScript    
  42.         }
  43.         operations    {item save}
  44.     }
  45. }
  46.  
  47. registerObject  {
  48.     name        .options.menu.font.menu.bold
  49.     type        CustMenuPushButton
  50.     visible        {1 1 1 1 1}
  51.     objSpec        {
  52.         hintText    "Changes the bold font."
  53.         label        Bold...
  54.         mnemonic    B
  55.         activated    {
  56.             #CTGENCommandScript
  57.             [.main options] boldFont 
  58.             #CTGENEndCommandScript    
  59.         }
  60.     }
  61. }
  62.  
  63. registerObject  {
  64.     name        .options.menu.syntax
  65.     type        CustMenuPushButton
  66.     visible        {1 1 1 1 1}
  67.     objSpec        {
  68.         hintText    "Changes the syntax specification for labels."
  69.         label        Syntax...
  70.         mnemonic    y
  71.         activated    {
  72.             #CTGENCommandScript
  73.             [.main options] syntax
  74.             #CTGENEndCommandScript    
  75.         }
  76.     }
  77. }
  78.  
  79. registerObject  {
  80.     name        .options.menu.initialfold
  81.     type        CustMenuCheckButton
  82.     visible        {1 1 1 1 1}
  83.     objSpec        {
  84.         hintText    "Changes the fold mode for new class symbols."
  85.         label        {Initial Fold}
  86.         mnemonic    l
  87.         stateChanged    {
  88.             #CTGENCommandScript
  89.             [.main options] initialFold
  90.             #CTGENEndCommandScript    
  91.         }
  92.     }
  93. }
  94.  
  95. registerObject  {
  96.     name        .options.menu.showvisibility
  97.     type        CustMenuCheckButton
  98.     visible        {1 1 1 1 1}
  99.     objSpec        {
  100.         hintText    "Shows visibility modifiers in class symbols."
  101.         label        {Show Visibility}
  102.         stateChanged    {
  103.             #CTGENCommandScript
  104.             [.main options] showVisibility
  105.             #CTGENEndCommandScript    
  106.         }
  107.     }
  108. }
  109.  
  110. registerObject {
  111.     type    CustMenuSeparator
  112.     name    .options.menu.separator1
  113. }
  114.  
  115. registerObject {
  116.     name        .options.menu.menuarbiter
  117.     type        CustMenuArbiter
  118.     objSpec {
  119.         currentButtonChanged    { [.main options] look }
  120.     }
  121. }
  122.  
  123. registerObject {
  124.     name        .options.menu.UML
  125.     type        CustMenuRadioButton
  126.     arbiter        menuarbiter
  127.     objSpec        {
  128.         hintText    "Changes to UML look."
  129.         label        "UML Look"
  130.         mnemonic    U
  131.     }
  132. }
  133.  
  134. registerObject {
  135.     name        .options.menu.OMT
  136.     type        CustMenuRadioButton
  137.     arbiter        menuarbiter
  138.     objSpec        {
  139.         hintText    "Changes to OMT look."
  140.         label        "OMT Look"
  141.         mnemonic    M
  142.     }
  143. }
  144.  
  145. registerObject  {
  146.     name        .check.menu.localmodel
  147.     type        CustMenuPushButton
  148.     visible        {1 1 1 1 1}
  149.     objSpec        {
  150.         hintText    "Checks the local model of this diagram."
  151.         label        {Local Model}
  152.         mnemonic    L
  153.         activated    {
  154.             #CTGENCommandScript
  155.             .main checkLocalModel
  156.             #CTGENEndCommandScript    
  157.         }
  158.     }
  159. }
  160.  
  161. registerObject  {
  162.     name        .utilities.menu.reports.menu.onclasses
  163.     type        CustMenuPushButton
  164.     visible        {1 1 1 1 1}
  165.     objSpec        {
  166.         hintText    "Generates a report on classes."
  167.         label        {On Classes}
  168.         mnemonic    l
  169.         activated    {
  170.             #CTGENCommandScript
  171.             .main startReport classes.tcl [%this label]
  172.             #CTGENEndCommandScript    
  173.         }
  174.         operations    diagram
  175.     }
  176. }
  177.  
  178. registerObject  {
  179.     name        .utilities.menu.reports.menu.onclassgeneralizations
  180.     type        CustMenuPushButton
  181.     visible        {1 1 1 1 1}
  182.     objSpec        {
  183.         hintText    "Generates a report on generalizations."
  184.         label        {On Class Generalizations}
  185.         mnemonic    e
  186.         activated    {
  187.             #CTGENCommandScript
  188.             .main startReport class_gens.tcl [%this label]
  189.             #CTGENEndCommandScript    
  190.         }
  191.         operations    diagram
  192.     }
  193. }
  194.  
  195. registerObject  {
  196.     name        .utilities.menu.reports.menu.onmissingoperations
  197.     type        CustMenuPushButton
  198.     visible        {1 1 1 1 1}
  199.     objSpec        {
  200.         hintText    "Generates a report on missing operations."
  201.         label        {On Missing Operations}
  202.         mnemonic    r
  203.         activated    {
  204.             #CTGENCommandScript
  205.             set opts "-o"
  206.             set area [.main editorArea]
  207.             foreach comp [$area getSelectedComponents] {
  208.                 if {[$comp type] != "cad_class" &&
  209.                     [$comp type] != "cad_container"} {
  210.                         continue
  211.                 }
  212.                 set nameItem [$comp nameItem]
  213.                 if {$nameItem != ""} {
  214.                     append opts " [$nameItem name]"
  215.                 }
  216.             }
  217.             if {$opts == "-o"} {
  218.                 wmtkerror "No Class(es) having a name selected"
  219.             } else {
  220.                 .main startReport \
  221.                     "oper_missing.tcl $opts" [%this label]
  222.             }
  223.             $area releaseSelectedComponents
  224.             #CTGENEndCommandScript    
  225.         }
  226.         operations    {diagram item}
  227.     }
  228. }
  229.  
  230. registerObject {
  231.     name        .help.menu.aboutcadeditor
  232.     type        CustMenuPushButton
  233.     objSpec        {
  234.         hintText    "Shows version information."
  235.         label        {About CD Editor}
  236.         mnemonic    A
  237.         activated    {
  238.             #CTGENCommandScript
  239.             showVersionDialog [%this label]
  240.             #CTGENEndCommandScript    
  241.         }
  242.     }
  243. }
  244.  
  245.