home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / ucd.mnu < prev    next >
Text File  |  1996-12-19  |  3KB  |  131 lines
  1. registerObject  {
  2.     name        .options.menu.font.menu.bold
  3.     type        CustMenuPushButton
  4.     visible        {1 1 1 1 1}
  5.     objSpec        {
  6.         hintText    "Changes the bold font."
  7.         label        Bold...
  8.         mnemonic    B
  9.         activated    {
  10.             #CTGENCommandScript
  11.             [.main options] boldFont 
  12.             #CTGENEndCommandScript    
  13.         }
  14.     }
  15. }
  16.  
  17. registerObject  {
  18.     name        .options.menu.syntax
  19.     type        CustMenuPushButton
  20.     visible        {1 1 1 1 1}
  21.     objSpec        {
  22.         hintText    "Changes the syntax specification for labels."
  23.         label        Syntax...
  24.         mnemonic    y
  25.         activated    {
  26.             #CTGENCommandScript
  27.             [.main options] syntax
  28.             #CTGENEndCommandScript    
  29.         }
  30.     }
  31. }
  32.  
  33. registerObject  {
  34.     name        .utilities.menu.reports.menu.onactors
  35.     type        CustMenuPushButton
  36.     visible        {1 1 1 1 1}
  37.     objSpec        {
  38.         hintText    "Generates a report on actors."
  39.         label        {On Actors...}
  40.         mnemonic    A
  41.         activated    {
  42.             #CTGENCommandScript
  43.             set box .main.reportOptions
  44.             TemplateDialog new $box \
  45.                 -modal yes \
  46.                 -title "Report Options" \
  47.                 -cancelPressed {.main.reportOptions delete} \
  48.                 -okPressed {
  49.                 set opts ""
  50.                 if [.main.reportOptions.top.freeText state] {
  51.                     set opts "-o freeText"
  52.                 }
  53.                 set msg "On Actors"
  54.                 .main startReport "actors.tcl $opts" $msg
  55.                 .main.reportOptions delete
  56.                 }
  57.             interface DlgColumn $box.top {
  58.                 CheckButton freeText {
  59.                 label "Show Free Text"
  60.                 }
  61.             }
  62.             $box delHelpButton
  63.             $box popUp
  64.             #CTGENEndCommandScript    
  65.         }
  66.         operations    diagram
  67.     }
  68. }
  69.  
  70. registerObject  {
  71.     name        .utilities.menu.reports.menu.onusecases
  72.     type        CustMenuPushButton
  73.     visible        {1 1 1 1 1}
  74.     objSpec        {
  75.         hintText    "Generates a report on use cases."
  76.         label        {On Use Cases...}
  77.         mnemonic    U
  78.         activated    {
  79.             #CTGENCommandScript
  80.             set box .main.reportOptions
  81.             TemplateDialog new $box \
  82.                 -modal yes \
  83.                 -title "Report Options" \
  84.                 -cancelPressed {.main.reportOptions delete} \
  85.                 -okPressed {
  86.                 set opts ""
  87.                 if [.main.reportOptions.top.properties state] {
  88.                     append opts "properties"
  89.                 }
  90.                 if [.main.reportOptions.top.decomp state] {
  91.                     append opts " decompositions"
  92.                 }
  93.                 if {"$opts" != ""} {
  94.                     set opts "-o $opts"
  95.                 }
  96.                 set msg "On Use Cases"
  97.                 .main startReport "usecases.tcl $opts" $msg
  98.                 .main.reportOptions delete
  99.                 }
  100.             interface DlgColumn $box.top {
  101.                 CheckButton properties {
  102.                 label "Show Use Case Properties"
  103.                 }
  104.                 CheckButton decomp {
  105.                 label "Show Decomposition Information"
  106.                 }
  107.             }
  108.             $box delHelpButton
  109.             $box popUp
  110.             #CTGENEndCommandScript    
  111.         }
  112.         operations    diagram
  113.     }
  114. }
  115.  
  116. registerObject  {
  117.     name        .help.menu.aboutucdeditor
  118.     type        CustMenuPushButton
  119.     objSpec        {
  120.         hintText    "Shows version information."
  121.         label        {About UCD Editor}
  122.         mnemonic    A
  123.         activated    {
  124.             #CTGENCommandScript
  125.             showVersionDialog [%this label]
  126.             #CTGENEndCommandScript
  127.         }
  128.     }
  129. }
  130.  
  131.