home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / drsdesk.mnu < prev    next >
Encoding:
Text File  |  1997-05-21  |  10.8 KB  |  409 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.     visible        {1 1 1 1 1}
  14.     objSpec        {
  15.         pinnable        1
  16.     }
  17.  
  18. }
  19.  
  20. registerObject  {
  21.         name            .doors.menu.tools
  22.         type            CustCascadeButton
  23.         visible         {1 1 1 1 1}
  24.         objSpec         {
  25.                 label           Tools
  26.         mnemonic    T
  27.         }
  28. }
  29.  
  30. registerObject  {
  31.         name            .doors.menu.tools.menu
  32.         type            CustMenu
  33.         visible         {1 1 1 1 1}
  34. }
  35.  
  36. registerObject  {
  37.     name        .doors.menu.tools.menu.projectmanager
  38.     type        CustMenuPushButton
  39.     visible        {1 1 1 1 1}
  40.     objSpec        {
  41.         hintText        "Start the DOORS project manager."
  42.         label        {Project Manager}
  43.         mnemonic    P
  44.         activated    {
  45.                 if $win95 {
  46.                 set d [OleAutoObject new DOORS.Application]
  47.                 $d delete
  48.                 } else {
  49.                 system "doors3 &"
  50.                 }
  51.             }
  52.     }
  53. }
  54.  
  55. registerObject  {
  56.         name            .doors.menu.tools.menu.refresh
  57.         type            CustMenuPushButton
  58.         objSpec         {
  59.                 label           {Refresh Project}
  60.                 mnemonic        R
  61.                 activated       {
  62.                     busy {
  63.                 require drsprocs.tcl
  64.                                 set doorsProject [getDoorsProjectName]
  65.                                 m4_var set M4_doors_project $doorsProject
  66.                                 set formalMod [m4_var get M4_doors_formal_module]
  67.                                 set FORMALMODULE DOORS_${doorsProject}_$formalMod
  68.                 [.main messageArea] message ""
  69.                         }
  70.                 }
  71.         }
  72. }
  73.  
  74. registerObject  {
  75.     name        .doors.menu.project_13
  76.     type        CustMenuSeparator
  77.     visible        {0 0 0 1 0}
  78.     objSpec        {
  79.     }
  80. }
  81.  
  82.  
  83. registerObject  {
  84.     name        .doors.menu.synchronize1
  85.     type        CustMenuPushButton
  86.     visible        {0 0 0 1 0}
  87.     objSpec        {
  88.         label        {Synchronize Selected System(s)}
  89.         mnemonic    y
  90.         accelerator    Ctrl+Y
  91.         enableScript    {
  92.  
  93.             %this sensitive [BrowserProcs::statusObjectsAre \
  94.                                 "working"]
  95.         }
  96.         activated    {
  97.             busy {
  98.                 #require drsprocs.tcl
  99.                 source [m4_path_name tcl drsprocs.tcl]
  100.                 set cc [ClientContext::global]
  101.                 set currCustLevVers [$cc currentLevelId]
  102.                 set dxlCommand ""
  103.                 set selSet [.main selectedObjSet]
  104.                 initSynchronize
  105.                 applyToLevel $selSet synObjects dxlCommand 
  106.                 set dxlCommand ""
  107.                 applyToMultiple $selSet $currCustLevVers installRefs dxlCommand
  108.                 set dxlCommand ""
  109.                 applyRecursive $selSet $currCustLevVers install dxlCommand 
  110.                 set dxlCommand ""
  111.                 applyToMultiple $selSet $currCustLevVers installClassFeatures dxlCommand
  112.                 endSynchronize
  113.                 
  114.             }
  115.         }
  116.         selIsATypes     {SSysVDbObj}
  117.         selCount        many
  118.         checkOn         selectionChange
  119.     }
  120. }
  121.  
  122. registerObject  {
  123.     name        .doors.menu.synchronize2
  124.     type        CustMenuPushButton
  125.         scope    {* * * system}
  126.     visible        {0 0 0 0 1}
  127.     objSpec        {
  128.         label        {Synchronize Current System}
  129.         mnemonic    y
  130.         accelerator    Ctrl+Y
  131.         checkOn        levelChange
  132.         enableScript    {
  133.             set version [[.main currentObj] browsUiObj]
  134.             set status [$version getInfo Status]
  135.             if {$status != "" && $status != "working"} {
  136.                     %this sensitive 0
  137.                     return
  138.             }
  139.             %this sensitive 1
  140.         }
  141.         activated    {
  142.             busy {
  143.                 #require drsprocs.tcl
  144.                 source [m4_path_name tcl drsprocs.tcl]
  145.                                 set context [ClientContext::global]
  146.                                 set sv [$context currentSystem]
  147.                                 set pv [$context currentPhase]
  148.                 set dxlCommand ""
  149.                 initSynchronize
  150.                 applyToLevel $sv synObjects dxlCommand 
  151.                 set dxlCommand ""
  152.                 applyToMultiple $sv $pv installRefs dxlCommand
  153.                 set dxlCommand ""
  154.                 applyRecursive $sv $pv install dxlCommand 
  155.                 set dxlCommand ""
  156.                 applyToMultiple $sv $pv installClassFeatures dxlCommand
  157.                 endSynchronize
  158.             }
  159.         }
  160.     }
  161. }
  162.  
  163. registerObject  {
  164.         name            .doors.menu.show
  165.         type            CustCascadeButton
  166.         visible         {0 0 0 1 1}
  167.         objSpec         {
  168.                 label           Show
  169.         mnemonic    S
  170.         }
  171. }
  172.  
  173. registerObject  {
  174.         name            .doors.menu.show.menu
  175.         type            CustMenu
  176.         visible         {0 0 0 1 1}
  177. }
  178.  
  179. registerObject  {
  180.     scope           {* * {Analysis SystemDesign ObjectDesign}}
  181.     name        .doors.menu.show.menu.treeonly
  182.     type        CustMenuPushButton
  183.      visible        {0 0 0 1 1}
  184.     objSpec        {
  185.         label        {Diagram(s) Only}
  186.         mnemonic    D
  187.         activated    {
  188.             busy {
  189.                 #require drsprocs.tcl
  190.                 source [m4_path_name tcl drsprocs.tcl]
  191.                 set cont [ClientContext::global]
  192.                 set currLev [$cont currentLevelId]
  193.                 set selSet [.main selectedObjSet]
  194.                 set dxlCommand ""
  195.                                 applyToMultiple $selSet $currLev filter dxlCommand Hide All
  196.                 applyToLevel $selSet filter dxlCommand Show Recursive
  197.                 $dxlCommand doorsFilterOn
  198.                 $dxlCommand execute currentModule
  199.                 [.main messageArea] message ""
  200.             }
  201.         }
  202.         selIsATypes     {Graph Project PhaseVersion SystemVersion}
  203.         selCount        many
  204.         checkOn         selectionChange
  205.     }
  206. } 
  207.  
  208. registerObject  {
  209.     scope           {* * {Implementation}}
  210.     name        .doors.menu.show.menu.treeonlyimp
  211.     type        CustMenuPushButton
  212.      visible        {0 0 0 1 1}
  213.     objSpec        {
  214.         label        {File(s) Only}
  215.         mnemonic    F
  216.         activated    {
  217.             busy {
  218.                 #require drsprocs.tcl
  219.                 source [m4_path_name tcl drsprocs.tcl]
  220.                 set cont [ClientContext::global]
  221.                 set currLev [$cont currentLevelId]
  222.                 set selSet [.main selectedObjSet]
  223.                 set dxlCommand ""
  224.                                 applyToMultiple $selSet $currLev filter dxlCommand Hide All
  225.                 applyToLevel $selSet filter dxlCommand Show Recursive
  226.                     $dxlCommand doorsFilterOn
  227.                 $dxlCommand execute currentModule
  228.                 [.main messageArea] message ""
  229.             }
  230.         }
  231.         selIsATypes     {ExternalFileVersion SystemVersion}
  232.         selCount        many
  233.         checkOn         selectionChange
  234.     }
  235. } 
  236.  
  237.  
  238. registerObject  {
  239.     scope           {* * {Analysis SystemDesign ObjectDesign}}
  240.     name        .doors.menu.show.menu.objectsonly
  241.     type        CustMenuPushButton
  242.      visible        {0 0 0 1 1}
  243.     objSpec        {
  244.         label        {Diagram Objects Only}
  245.         mnemonic    O
  246.         activated    {
  247.             busy {
  248.                 #require drsprocs.tcl
  249.                 source [m4_path_name tcl drsprocs.tcl]
  250.                 set cont [ClientContext::global]
  251.                 set currLev [$cont currentLevelId]
  252.                 set selSet [.main selectedObjSet]
  253.                 set dxlCommand ""
  254.                                 applyToMultiple $selSet $currLev filter dxlCommand Hide All
  255.                 applyToLevel $selSet filter dxlCommand Show Objects
  256.                 $dxlCommand doorsFilterOn
  257.                 $dxlCommand execute currentModule
  258.                 [.main messageArea] message ""
  259.             }
  260.         }
  261.         selIsATypes     {ExternalFileVersion Graph Project PhaseVersion SystemVersion}
  262.         selCount        many
  263.         checkOn         selectionChange
  264.     }
  265. }
  266.  
  267.  
  268.  
  269.  
  270.  
  271. registerObject  {
  272.     scope           {* * {Analysis SystemDesign ObjectDesign}}
  273.     name        .doors.menu.show.menu.treeadd
  274.     type        CustMenuPushButton
  275.      visible        {0 0 0 1 1}
  276.     objSpec        {
  277.         label        {Additional Diagrams}
  278.         mnemonic    i
  279.         activated    {
  280.             busy {
  281.                 #require drsprocs.tcl
  282.                 source [m4_path_name tcl drsprocs.tcl]
  283.                 set selSet [.main selectedObjSet]
  284.                 set dxlCommand ""
  285.                 applyToLevel $selSet filter dxlCommand Show Recursive
  286.                 $dxlCommand doorsFilterOn
  287.                 $dxlCommand execute currentModule
  288.                 [.main messageArea] message ""
  289.             }
  290.         }
  291.         selIsATypes     {ExternalFileVersion Graph Project PhaseVersion SystemVersion}
  292.         selCount        many
  293.         checkOn         selectionChange
  294.     }
  295. } 
  296.  
  297. registerObject  {
  298.     scope           {* * {Implementation}}
  299.     name        .doors.menu.show.menu.treeaddimp
  300.     type        CustMenuPushButton
  301.      visible        {0 0 0 1 1}
  302.     objSpec        {
  303.         label        {Additional Files}
  304.         mnemonic    a
  305.         activated    {
  306.             busy {
  307.                 #require drsprocs.tcl
  308.                 source [m4_path_name tcl drsprocs.tcl]
  309.                 set selSet [.main selectedObjSet]
  310.                 set dxlCommand ""
  311.                 applyToLevel $selSet filter dxlCommand Show Recursive
  312.                 $dxlCommand doorsFilterOn
  313.                 $dxlCommand execute currentModule
  314.                 [.main messageArea] message ""
  315.             }
  316.         }
  317.         selIsATypes     {ExternalFileVersion SystemVersion}
  318.         selCount        many
  319.         checkOn         selectionChange
  320.     }
  321. } 
  322.  
  323. registerObject  {
  324.     scope           {* * {Analysis SystemDesign ObjectDesign}}
  325.     name        .doors.menu.show.menu.objadd
  326.     type        CustMenuPushButton
  327.      visible        {0 0 0 1 1}
  328.     objSpec        {
  329.         label        {Additional Diagram Objects}
  330.         mnemonic    A
  331.         activated    {
  332.             busy {
  333.                 #require drsprocs.tcl
  334.                 source [m4_path_name tcl drsprocs.tcl]
  335.                 set selSet [.main selectedObjSet]
  336.                 set dxlCommand ""
  337.                 applyToLevel $selSet filter dxlCommand Show Objects
  338.                 $dxlCommand doorsFilterOn
  339.                 $dxlCommand execute currentModule
  340.                 [.main messageArea] message ""
  341.             }
  342.         }
  343.         selIsATypes     {ExternalFileVersion Graph Project PhaseVersion SystemVersion}
  344.         selCount        many
  345.         checkOn         selectionChange
  346.     }
  347. }
  348.  
  349.  
  350. registerObject  {
  351.     scope           {* * {Analysis SystemDesign ObjectDesign}}
  352.     name        .doors.menu.show.menu.classfeatures
  353.     type        CustMenuPushButton
  354.      visible        {0 0 0 1 1}
  355.     objSpec        {
  356.         label        {Additional Class Features}
  357.         mnemonic    F
  358.         activated    {
  359.             busy {
  360.                 #require drsprocs.tcl
  361.                 source [m4_path_name tcl drsprocs.tcl]
  362.                 set selSet [.main selectedObjSet]
  363.                 set dxlCommand ""
  364.                 applyToLevel $selSet filter dxlCommand Show ClassFeatures
  365.                 $dxlCommand doorsFilterOn
  366.                 $dxlCommand execute currentModule
  367.                 [.main messageArea] message ""
  368.             }
  369.         }
  370.         selIsATypes     {Graph SystemVersion}
  371.         selCount        many
  372.         checkOn         selectionChange
  373.     }
  374. }
  375.  
  376. registerObject {
  377.     type            CustMenuSeparator
  378.     visible         {0 0 0 1 1}
  379.     name            .doors.menu.show.menu.separator1
  380. }
  381.  
  382. registerObject  {
  383.         name            .doors.menu.show.menu.save
  384.         type            CustMenuPushButton
  385.      visible        {0 0 0 1 1}
  386.         objSpec         {
  387.                 hintText        "Save current view in DOORS."
  388.                 label           {Save as DOORS View}
  389.                 mnemonic        V
  390.                 activated       {
  391.                     busy {
  392.                         EntryDialog new .main.doorsViewEntry \
  393.                             -title "Save DOORS View" \
  394.                             -message "Enter View Name" \
  395.                             -okPressed {
  396.                                 require drsprocs.tcl
  397.                                 require drsdxlcomm.tcl
  398.                                 set dxlCommand [DrsDxlCommand new]
  399.                                 $dxlCommand doorsViewSave [.main.doorsViewEntry entry]
  400.                                 $dxlCommand execute
  401.                 [.main messageArea] message ""
  402.                             }
  403.                          .main.doorsViewEntry popUp
  404.                         }
  405.                 }
  406.         }
  407. }
  408.  
  409.