home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / drsdiagra.mnu < prev    next >
Encoding:
Text File  |  1997-05-21  |  7.2 KB  |  278 lines
  1. registerObject  {
  2.     name        .doors
  3.     type        CustMenuBarButton
  4.     objSpec        {
  5.         label        Doors
  6.         mnemonic    D
  7.     }
  8. }
  9.  
  10. registerObject  {
  11.     name        .doors.menu
  12.     type        CustMenu
  13.     objSpec         {
  14.                 pinnable        1
  15.         }
  16.  
  17. }
  18.  
  19. registerObject  {
  20.         name            .doors.menu.tools
  21.         type            CustCascadeButton
  22.         objSpec         {
  23.                 label           Tools
  24.         mnemonic    T
  25.         }
  26. }
  27.  
  28. registerObject  {
  29.         name            .doors.menu.tools.menu
  30.         type            CustMenu
  31. }
  32.  
  33. registerObject  {
  34.     name        .doors.menu.tools.menu.Doors
  35.     type        CustMenuPushButton
  36.     objSpec        {
  37.         hintText        "Start the DOORS project manager."
  38.         mnemonic    P
  39.         label        {Project Manager}
  40.         activated    {
  41.                 if $win95 {
  42.                 set d [OleAutoObject new DOORS.Application]
  43.                                 $d delete
  44.                 } else {
  45.                 system "doors3 &"
  46.                 }
  47.             }
  48.     }
  49. }
  50.  
  51. registerObject  {
  52.     name        .doors.menu.tools.menu.refresh 
  53.     type        CustMenuPushButton
  54.     objSpec        {
  55.         label        {Refresh Project}
  56.         mnemonic    R
  57.         activated    {
  58.             busy {
  59.                                 require drsprocs.tcl
  60.                                 set doorsProject [getDoorsProjectName]
  61.                                 m4_var set M4_doors_project $doorsProject
  62.                                 set formalMod [m4_var get M4_doors_formal_module]
  63.                                 set FORMALMODULE DOORS_${doorsProject}_$formalMod
  64.  
  65.                 [.main messageArea] message  ""
  66.             }
  67.         }
  68.     }
  69. } 
  70.  
  71.  
  72.  
  73. registerObject  {
  74.     name        .doors.menu.project_13
  75.     type        CustMenuSeparator
  76.     objSpec        {
  77.     }
  78. }
  79.  
  80. registerObject  {
  81.     name        .doors.menu.synchronize
  82.     type        CustMenuPushButton
  83.     objSpec        {
  84.         hintText        "Synchronize with DOORS."
  85.         label        {Synchronize Current System}
  86.         mnemonic    Y
  87.         accelerator    Ctrl+Y
  88.         activated    {
  89.             busy {
  90.                  #require drsprocs.tcl
  91.                 source [m4_path_name tcl drsprocs.tcl]
  92.                 set context [ClientContext::global]
  93.                 set sv [$context currentSystem]
  94.                 set pv [$context currentPhase]
  95.                 set dxlCommand ""
  96.                 initSynchronize
  97.                                 applyToLevel $sv synObjects dxlCommand
  98.                                 set dxlCommand ""
  99.                                 applyToMultiple $sv $pv installRefs dxlCommand
  100.                                 set dxlCommand ""
  101.                                 applyRecursive $sv $pv install dxlCommand
  102.                                 set dxlCommand ""
  103.                                 applyToMultiple $sv $pv installClassFeatures dxlCommand
  104.                 endSynchronize
  105.  
  106.             }
  107.         }
  108.         operations    "save check"
  109.     }
  110. }
  111.  
  112.  
  113. registerObject  {
  114.         name            .doors.menu.show
  115.         type            CustCascadeButton
  116.         objSpec         {
  117.                 label           Show
  118.         }
  119. }
  120.  
  121. registerObject  {
  122.         name            .doors.menu.show.menu
  123.         type            CustMenu
  124. }
  125.  
  126. registerObject  {
  127.     name        .doors.menu.show.menu.treeonly
  128.     type        CustMenuPushButton
  129.     objSpec        {
  130.         hintText        "Show the corresponding DOORS objects of this diagram only."
  131.         label        {Diagram Only}
  132.         mnemonic    D
  133.         activated    {
  134.             busy {
  135.                 #require drsprocs.tcl
  136.                 source [m4_path_name tcl drsprocs.tcl]
  137.                 set cont [ClientContext::global]
  138.                 set currSys [$cont currentSystem]
  139.                 set selSet [.main fileVersion]
  140.                 set dxlCommand ""
  141.                                 applyToMultiple $selSet $currSys filter dxlCommand Hide All
  142.                 applyToLevel $selSet filter dxlCommand  Show Recursive
  143.                 $dxlCommand doorsFilterOn
  144.                 $dxlCommand execute currentModule
  145.                 [.main messageArea] message  ""
  146.             }
  147.         }
  148.     }
  149. } 
  150.  
  151. registerObject  {
  152.     name        .doors.menu.show.menu.objectsonly
  153.     type        CustMenuPushButton
  154.     objSpec        {
  155.         hintText        "Show DOORS objects of this diagram only."
  156.         label        {Diagram Objects Only}
  157.         mnemonic    O
  158.         activated    {
  159.             busy {
  160.                 #require drsprocs.tcl
  161.                 source [m4_path_name tcl drsprocs.tcl]
  162.                 set cont [ClientContext::global]
  163.                 set currSys [$cont currentSystem]
  164.                 set selSet [.main fileVersion]
  165.                 set dxlCommand ""
  166.                                 applyToMultiple $selSet $currSys filter dxlCommand  Hide All
  167.                 applyToLevel $selSet filter dxlCommand  Show Objects
  168.                 $dxlCommand doorsFilterOn
  169.                 $dxlCommand execute currentModule
  170.                 [.main messageArea] message  ""
  171.             }
  172.         }
  173.     }
  174. }
  175.  
  176.  
  177.  
  178.  
  179.  
  180. registerObject  {
  181.     name        .doors.menu.show.menu.treeadd
  182.     type        CustMenuPushButton
  183.     objSpec        {
  184.         hintText        "Show the corresponding DOORS objects of this diagram too."
  185.         label        {Additional Diagram}
  186.         mnemonic    i
  187.         activated    {
  188.             busy {
  189.                 #require drsprocs.tcl
  190.                 source [m4_path_name tcl drsprocs.tcl]
  191.                 set dxlCommand ""
  192.                 set selSet [.main fileVersion]
  193.                 applyToLevel $selSet filter dxlCommand  Show Recursive
  194.                 $dxlCommand doorsFilterOn
  195.                 $dxlCommand execute currentModule
  196.                 [.main messageArea] message  ""
  197.             }
  198.         }
  199.     }
  200. } 
  201.  
  202. registerObject  {
  203.     name        .doors.menu.show.menu.objadd
  204.     type        CustMenuPushButton
  205.     objSpec        {
  206.         label        {Additional Diagram Objects}
  207.         mnemonic    A
  208.         activated    {
  209.             busy {
  210.                 #require drsprocs.tcl
  211.                 source [m4_path_name tcl drsprocs.tcl]
  212.                 set selSet [.main fileVersion]
  213.                 set dxlCommand ""
  214.                 applyToLevel $selSet filter dxlCommand  Show Objects
  215.                 $dxlCommand doorsFilterOn
  216.                 $dxlCommand execute currentModule
  217.                 [.main messageArea] message  ""
  218.             }
  219.         }
  220.     }
  221. }
  222.  
  223. registerObject  {
  224.         name            .doors.menu.show.menu.classfeatures
  225.         type            CustMenuPushButton
  226.         visible         {0 0 0 1 1}
  227.         objSpec         {
  228.         hintText        "Show the corresponding class feature DOORS objects of this diagram too."
  229.                 label           {Additional Class Features}
  230.                 mnemonic        F
  231.                 activated       {
  232.                     busy {
  233.                                 #require drsprocs.tcl
  234.                                 source [m4_path_name tcl drsprocs.tcl]
  235.                                 set selSet [.main fileVersion]
  236.                                 set dxlCommand ""
  237.                                 applyToLevel $selSet filter dxlCommand Show ClassFeatures
  238.                 $dxlCommand doorsFilterOn
  239.                                 $dxlCommand execute currentModule
  240.                 [.main messageArea] message  ""
  241.                         }
  242.                 }
  243.         }
  244. }
  245.  
  246. registerObject {
  247.     type        CustMenuSeparator
  248.     name        .doors.menu.show.menu.separator1
  249. }
  250.  
  251.  
  252. registerObject  {
  253.         name            .doors.menu.show.menu.save
  254.         type            CustMenuPushButton
  255.         visible         {0 0 0 1 1}
  256.         objSpec         {
  257.         hintText        "Save current view in DOORS."
  258.                 label           {Save as DOORS View}
  259.                 mnemonic        V
  260.                 activated       {
  261.                     busy {
  262.             EntryDialog new .main.doorsViewEntry \
  263.                 -title "Save DOORS View" \
  264.                 -message "Enter View Name" \
  265.                 -okPressed {
  266.                 require drsprocs.tcl
  267.                 require drsdxlcomm.tcl
  268.                 set dxlCommand [DrsDxlCommand new]
  269.                 $dxlCommand doorsViewSave [.main.doorsViewEntry entry]
  270.                 $dxlCommand execute
  271.                 [.main messageArea] message  ""
  272.                 }
  273.              .main.doorsViewEntry popUp
  274.                         }
  275.                 }
  276.         }
  277. }
  278.