home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / cad.mnu < prev    next >
Text File  |  1997-04-28  |  4KB  |  198 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.     objSpec        {
  14.         hintText    "Folds the selected classes."
  15.         label        Fold
  16.         mnemonic    F
  17.         accelerator    Ctrl+L
  18.         activated    {
  19.             #CTGENCommandScript
  20.             [.main editorArea] changeClassesFoldState 1
  21.             #CTGENEndCommandScript    
  22.         }
  23.         operations    {item save}
  24.     }
  25. }
  26.  
  27. registerObject  {
  28.     name        .edit.menu.unfold
  29.     type        CustMenuPushButton
  30.     visible        {1 1 1 1 1}
  31.     objSpec        {
  32.         hintText    "Unfolds the selected classes."
  33.         label        Unfold
  34.         mnemonic    n
  35.         accelerator    Ctrl+U
  36.         activated    {
  37.             #CTGENCommandScript
  38.             [.main editorArea] changeClassesFoldState 0
  39.             #CTGENEndCommandScript    
  40.         }
  41.         operations    {item save}
  42.     }
  43. }
  44.  
  45. registerObject  {
  46.     name        .options.menu.font.menu.bold
  47.     type        CustMenuPushButton
  48.     visible        {1 1 1 1 1}
  49.     objSpec        {
  50.         hintText    "Changes the bold font."
  51.         label        Bold...
  52.         mnemonic    B
  53.         activated    {
  54.             #CTGENCommandScript
  55.             [.main options] boldFont 
  56.             #CTGENEndCommandScript    
  57.         }
  58.     }
  59. }
  60.  
  61. registerObject  {
  62.     name        .options.menu.syntax
  63.     type        CustMenuPushButton
  64.     visible        {1 1 1 1 1}
  65.     objSpec        {
  66.         hintText    "Changes the syntax specification for labels."
  67.         label        Syntax...
  68.         mnemonic    y
  69.         activated    {
  70.             #CTGENCommandScript
  71.             [.main options] syntax
  72.             #CTGENEndCommandScript    
  73.         }
  74.     }
  75. }
  76.  
  77. registerObject  {
  78.     name        .options.menu.initialfold
  79.     type        CustMenuCheckButton
  80.     visible        {1 1 1 1 1}
  81.     objSpec        {
  82.         hintText    "Changes the fold mode for new class symbols."
  83.         label        {Initial Fold}
  84.         mnemonic    l
  85.         stateChanged    {
  86.             #CTGENCommandScript
  87.             [.main options] initialFold
  88.             #CTGENEndCommandScript    
  89.         }
  90.     }
  91. }
  92.  
  93. registerObject  {
  94.     name        .check.menu.localmodel
  95.     type        CustMenuPushButton
  96.     visible        {1 1 1 1 1}
  97.     objSpec        {
  98.         hintText    "Checks the local model of this diagram."
  99.         label        {Local Model}
  100.         mnemonic    L
  101.         activated    {
  102.             #CTGENCommandScript
  103.             .main checkLocalModel
  104.             #CTGENEndCommandScript    
  105.         }
  106.         operations    check
  107.     }
  108. }
  109.  
  110. registerObject  {
  111.     name        .utilities.menu.reports.menu.onclasses
  112.     type        CustMenuPushButton
  113.     visible        {1 1 1 1 1}
  114.     objSpec        {
  115.         hintText    "Generates a report on classes."
  116.         label        {On Classes}
  117.         mnemonic    l
  118.         activated    {
  119.             #CTGENCommandScript
  120.             set prefix ""
  121.             if {[m4_var get M4_target_lang] == "st"} {
  122.                 set prefix st
  123.             }
  124.             .main startReport ${prefix}classes.tcl [%this label]
  125.             #CTGENEndCommandScript    
  126.         }
  127.         operations    diagram
  128.     }
  129. }
  130.  
  131. registerObject  {
  132.     name        .utilities.menu.reports.menu.onclassgeneralizations
  133.     type        CustMenuPushButton
  134.     visible        {1 1 1 1 1}
  135.     objSpec        {
  136.         hintText    "Generates a report on generalizations."
  137.         label        {On Class Generalizations}
  138.         mnemonic    e
  139.         activated    {
  140.             #CTGENCommandScript
  141.             .main startReport class_gens.tcl [%this label]
  142.             #CTGENEndCommandScript    
  143.         }
  144.         operations    diagram
  145.     }
  146. }
  147.  
  148. registerObject  {
  149.     name        .utilities.menu.reports.menu.onmissingoperations
  150.     type        CustMenuPushButton
  151.     visible        {1 1 1 1 1}
  152.     objSpec        {
  153.         hintText    "Generates a report on missing operations."
  154.         label        {On Missing Operations}
  155.         mnemonic    r
  156.         activated    {
  157.             #CTGENCommandScript
  158.             set opts "-o"
  159.             set area [.main editorArea]
  160.             foreach comp [$area getSelectedComponents] {
  161.                 if {[$comp type] != "cad_class" &&
  162.                     [$comp type] != "cad_container"} {
  163.                         continue
  164.                 }
  165.                 set nameItem [$comp nameItem]
  166.                 if {$nameItem != ""} {
  167.                     append opts " [$nameItem name]"
  168.                 }
  169.             }
  170.             if {$opts == "-o"} {
  171.                 wmtkerror "No Class(es) having a name selected"
  172.             } else {
  173.                 .main startReport \
  174.                     "oper_missing.tcl $opts" [%this label]
  175.             }
  176.             $area releaseSelectedComponents
  177.             #CTGENEndCommandScript    
  178.         }
  179.         operations    {diagram item}
  180.     }
  181. }
  182.  
  183. registerObject {
  184.     name        .help.menu.aboutcadeditor
  185.     type        CustMenuPushButton
  186.     objSpec        {
  187.         hintText    "Shows version information."
  188.         label        {About CAD Editor}
  189.         mnemonic    A
  190.         activated    {
  191.             #CTGENCommandScript
  192.             showVersionDialog [%this label]
  193.             #CTGENEndCommandScript    
  194.         }
  195.     }
  196. }
  197.  
  198.