home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / ccdesk.mnu < prev    next >
Encoding:
Text File  |  1997-05-30  |  21.3 KB  |  840 lines
  1. registerObject {
  2.     type        CustMenuPushButton
  3.     name        .file.menu.new.menu.ccfile
  4.     scope       {* * Implementation system}
  5.     visible     {0 0 0 0 1}
  6.     objSpec {
  7.         hintText        "Creates a new ClearCase file"
  8.         label           "ClearCase File..."
  9.         mnemonic        C
  10.         checkOn         selectionChange
  11.         enableScript    {
  12.  
  13.         if {! [BrowserProcs::currentObjIsA CCSysVDbObj]} {
  14.             %this sensitive 0
  15.             return
  16.         }
  17.         if {[[[.main currentObj] browsUiObj] getInfo Status] != "working"} {
  18.             %this sensitive 0
  19.             return
  20.         }
  21.         %this sensitive 1
  22.  
  23.         }
  24.         activated       {
  25.         busy {
  26.         [[.main currentObj] browsUiObj] addCCFile
  27.         }
  28.     }
  29.     }
  30. }
  31.  
  32. registerObject {
  33.     type        CustMenuPushButton
  34.     name        .file.menu.edit
  35.     scope       {* * Implementation system}
  36.     visible     {0 0 0 0 1}
  37.     inPopUpMenu 1
  38.     objSpec {
  39.         hintText        "Edits the selected item."
  40.         label           "Edit"
  41.         mnemonic        E
  42.         accelerator     Ctrl+e
  43.         checkOn         selectionChange
  44.         selCount        1
  45.         selIsATypes     {FileVersion ExternalLink CustomFileVersion
  46.     GroupVersion}
  47.         enableScript    {
  48.         
  49.         set obj [lindex [.main selectedObjSet] 0]
  50.         set type [$obj getInfo Type]
  51.         if { [$obj isA VSFile] && \
  52.             ("$type" == "executable" || "$type" == "library")} {
  53.         %this sensitive 0
  54.         } else {
  55.         %this sensitive [BrowserProcs::statusObjectsAreNot "CheckedIn"]
  56.         }        
  57.         }
  58.         activated       {[lindex [.main selectedObjSet] 0] editFile}
  59.     }
  60. }
  61.  
  62. registerObject {
  63.     type    CustMenuPushButton
  64.     name    .file.menu.change.menu.name
  65.     scope       {* * Implementation system}
  66.     visible     {0 0 0 0 1}
  67.     objSpec {
  68.     hintText    "Changes the name of the selected object."
  69.     label        "Name..."
  70.     mnemonic    N
  71.     checkOn        selectionChange
  72.     selCount    1
  73.     selIsATypes    {ExternalLink CCFile}
  74.     activated    {
  75.         set selectedFile [lindex [.main selectedObjSet] 0]
  76.         if [$selectedFile isA VSFile] {
  77.         BrowserProcs::changeVSFileName
  78.         } else {
  79.         BrowserProcs::changeName
  80.         }
  81.     }
  82.     }
  83. }
  84.  
  85. registerObject {
  86.     type        CustMenuBarButton
  87.     name        .versions
  88.     scope       {* * Implementation system}
  89.     visible     {0 0 0 0 1}
  90.     objSpec {
  91.         label           Versions
  92.         mnemonic        i
  93.     index        6
  94.     }
  95. }
  96.  
  97. registerObject {
  98.     type        CustMenu
  99.     name        .versions.menu
  100.     scope       {* * Implementation system}
  101.     visible     {0 0 0 0 1}
  102.     objSpec {
  103.         pinnable        1
  104.     }
  105. }
  106.  
  107. registerObject {
  108.     type        CustMenuPushButton
  109.     name        .versions.menu.checkoutreserved
  110.     scope       {* * Implementation system}
  111.     visible     {0 0 0 0 1}
  112.     objSpec {
  113.         hintText        "Checkout the selected objects reserved"
  114.         label           "Checkout Reserved..."
  115.         mnemonic        C
  116.         checkOn         selectionChange
  117.         selCount        many
  118.         selIsATypes     {CCFile}
  119.         enableScript    {
  120.  
  121.         %this sensitive [BrowserProcs::statusObjectsAre "CheckedIn"]
  122.  
  123.         }
  124.         activated       {
  125.         busy {
  126.         [[.main currentObj] browsUiObj] checkOutFiles 1
  127.         }
  128.     }
  129.     }
  130. }
  131.  
  132. registerObject {
  133.     type        CustMenuPushButton
  134.     name        .versions.menu.checkoutunreserved
  135.     scope       {* * Implementation system}
  136.     visible     {0 0 0 0 1}
  137.     objSpec {
  138.         hintText        "Checkout the selected objects unreserved"
  139.         label           "Checkout Unreserved..."
  140.         mnemonic        o
  141.         checkOn         selectionChange
  142.         selCount        many
  143.         selIsATypes     {CCFile}
  144.         enableScript    {
  145.  
  146.         %this sensitive [BrowserProcs::statusObjectsAre "CheckedIn"]
  147.  
  148.         }
  149.         activated       {
  150.         busy {
  151.         [[.main currentObj] browsUiObj] checkOutFiles 0
  152.         }
  153.     }
  154.     }
  155. }
  156.  
  157. registerObject {
  158.     type        CustMenuPushButton
  159.     name        .versions.menu.checkin
  160.     scope       {* * Implementation system}
  161.     visible     {0 0 0 0 1}
  162.     objSpec {
  163.         hintText        "Checkin the selected objects"
  164.         label           "Checkin..."
  165.         mnemonic        i
  166.         checkOn         selectionChange
  167.         selCount        many
  168.     selIsATypes     {CCFile}
  169.         enableScript    {
  170.     
  171.         if { [BrowserProcs::statusObjectsAreNot "CheckedIn"] && \
  172.             [BrowserProcs::statusObjectsAreNot "<not found>"] } {
  173.         %this sensitive 1
  174.         } else {
  175.         %this sensitive 0
  176.         }
  177.  
  178.         }
  179.         activated       {
  180.         busy {
  181.         [[.main currentObj] browsUiObj] checkInFiles
  182.         }
  183.     }
  184.     }
  185. }
  186.  
  187. registerObject {
  188.     type        CustMenuPushButton
  189.     name        .versions.menu.uncheckout
  190.     scope       {* * Implementation system}
  191.     visible     {0 0 0 0 1}
  192.     objSpec {
  193.         hintText        "Uncheckout the selected objects"
  194.         label           "Uncheckout..."
  195.         mnemonic        U
  196.         checkOn         selectionChange
  197.         selCount        many
  198.         selIsATypes     {CCFile}
  199.         enableScript    {
  200.  
  201.         if { [BrowserProcs::statusObjectsAreNot "CheckedIn"] && \
  202.             [BrowserProcs::statusObjectsAreNot "<not found>"] } {
  203.         %this sensitive 1
  204.         } else {
  205.         %this sensitive 0
  206.         }
  207.  
  208.         }
  209.         activated       {
  210.         busy {
  211.         [[.main currentObj] browsUiObj] unCheckOutFiles
  212.         }
  213.     }
  214.     }
  215. }
  216.  
  217. registerObject {
  218.     type        CustMenuPushButton
  219.     name        .versions.menu.reserve
  220.     scope       {* * Implementation system}
  221.     visible     {0 0 0 0 1}
  222.     objSpec {
  223.         hintText        "Change checkout of the selected objects to reserved"
  224.         label           "Reserve"
  225.         mnemonic        R
  226.         checkOn         selectionChange
  227.         selCount        many
  228.         selIsATypes     {CCFile}
  229.         enableScript    {
  230.         %this sensitive [BrowserProcs::statusObjectsAre "Unreserved"]
  231.         }
  232.         activated       {
  233.         busy {
  234.         [[.main currentObj] browsUiObj] reserveFiles
  235.         }
  236.     }
  237.     }
  238. }
  239.  
  240. registerObject {
  241.     type        CustMenuPushButton
  242.     name        .versions.menu.unreserve
  243.     scope       {* * Implementation system}
  244.     visible     {0 0 0 0 1}
  245.     objSpec {
  246.         hintText        "Change checkout of the selected objects to unreserved"
  247.         label           "Unreserve"
  248.         mnemonic        n
  249.         checkOn         selectionChange
  250.         selCount        many
  251.         selIsATypes     {CCFile}
  252.         enableScript    {
  253.         %this sensitive [BrowserProcs::statusObjectsAre "Reserved"]
  254.         }
  255.         activated       {
  256.         busy {
  257.         [[.main currentObj] browsUiObj] unreserveFiles
  258.         }
  259.     }
  260.     }
  261. }
  262.  
  263. registerObject {
  264.     type        CustMenuPushButton
  265.     name        .versions.menu.checkindirectories
  266.     scope       {* * Implementation system}
  267.     visible     {0 0 0 0 1}
  268.     objSpec {
  269.         hintText        "Checkin the directories in system path"
  270.         label           "Checkin Directories..."
  271.         mnemonic        e
  272.         activated       {
  273.         busy {
  274.         [[.main currentObj] browsUiObj] checkInDirectories
  275.         }
  276.     }
  277.     }
  278. }
  279.  
  280. registerObject {
  281.     type        CustCascadeButton
  282.     name        .versions.menu.branch
  283.     scope       {* * Implementation system}
  284.     visible     {0 0 0 0 1}
  285.     objSpec {
  286.         hintText        "Contains branch commands"
  287.         label           "Branch"
  288.         mnemonic        B
  289.     }
  290. }
  291.  
  292. registerObject {
  293.     type        CustMenu
  294.     name        .versions.menu.branch.menu
  295.     scope       {* * Implementation system}
  296.     visible     {0 0 0 0 1}
  297.     objSpec {
  298.     pinnable        0
  299.     }
  300. }
  301.  
  302. registerObject {
  303.     type        CustMenuPushButton
  304.     name        .versions.menu.branch.menu.create
  305.     scope       {* * Implementation system}
  306.     visible     {0 0 0 0 1}
  307.     objSpec {
  308.         hintText        "Branch the selected objects"
  309.         label           "Create..."
  310.         mnemonic        C
  311.         checkOn         selectionChange
  312.         selCount        many
  313.         selIsATypes     {CCFile}
  314.         enableScript    {
  315.  
  316.         %this sensitive [BrowserProcs::statusObjectsAre "CheckedIn"]
  317.  
  318.         }
  319.         activated       {
  320.         busy {
  321.         [[.main currentObj] browsUiObj] createBranch
  322.         }
  323.     }
  324.     }
  325. }
  326.  
  327. registerObject {
  328.     type        CustMenuPushButton
  329.     name        .versions.menu.branch.menu.destroy
  330.     scope       {* * Implementation system}
  331.     visible     {0 0 0 0 1}
  332.     objSpec {
  333.         hintText        "Remove branch from the selected object"
  334.         label           "Destroy"
  335.         mnemonic        D
  336.         checkOn         selectionChange
  337.         selCount        1
  338.         selIsATypes     {CCFile}
  339.         enableScript    {
  340.  
  341.         %this sensitive [BrowserProcs::statusObjectsAre "CheckedIn"]
  342.  
  343.         }
  344.         activated       {
  345.         busy {
  346.         [[.main currentObj] browsUiObj] destroyBranch
  347.         }
  348.     }
  349.     }
  350. }
  351.  
  352. registerObject {
  353.     type        CustMenuPushButton
  354.     name        .versions.menu.branch.menu.newtype
  355.     scope       {* * Implementation system}
  356.     visible     {0 0 0 0 1}
  357.     objSpec {
  358.         hintText        "Create new branch type"
  359.         label           "New Type..."
  360.         mnemonic        N
  361.         activated       {
  362.         busy {
  363.         [[.main currentObj] browsUiObj] createBranchType
  364.         }
  365.     }
  366.     }
  367. }
  368.  
  369. registerObject {
  370.     type        CustMenuPushButton
  371.     name        .versions.menu.branch.menu.removetype
  372.     scope       {* * Implementation system}
  373.     visible     {0 0 0 0 1}
  374.     objSpec {
  375.         hintText        "Remove branch type from vob"
  376.         label           "Remove Type..."
  377.         mnemonic        R
  378.         activated       {
  379.         busy {
  380.         [[.main currentObj] browsUiObj] destroyBranchType
  381.         }
  382.     }
  383.     }
  384. }
  385.  
  386. registerObject {
  387.     type        CustMenuSeparator
  388.     name        .versions.menu.separator1
  389.     scope       {* * Implementation system}
  390.     visible     {0 0 0 0 1}
  391. }
  392.  
  393. registerObject {
  394.     type        CustMenuPushButton
  395.     name        .versions.menu.changecomment
  396.     scope       {* * Implementation system}
  397.     visible     {0 0 0 0 1}
  398.     objSpec {
  399.         hintText        "Change comment of the selected object"
  400.         label           "Change Comment"
  401.         mnemonic        m
  402.         checkOn         selectionChange
  403.         selCount        1
  404.         selIsATypes     {CCFile}
  405.         enableScript    {
  406.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  407.         }
  408.         activated       {
  409.         busy {
  410.         [[.main currentObj] browsUiObj] changeFileComment
  411.         }
  412.     }
  413.     }
  414. }
  415.  
  416. registerObject {
  417.     type        CustMenuPushButton
  418.     name        .versions.menu.checkouts
  419.     scope       {* * Implementation system}
  420.     visible     {0 0 0 0 1}
  421.     objSpec {
  422.         hintText        "List checkouts of the selected object"
  423.         label           "Checkouts"
  424.         mnemonic        h
  425.         checkOn         selectionChange
  426.         selCount        1
  427.         selIsATypes     {CCFile}
  428.         enableScript    {
  429.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  430.         }
  431.         activated       {
  432.         busy {
  433.         [[.main currentObj] browsUiObj] listCheckOuts
  434.         }
  435.     }
  436.     }
  437. }
  438.  
  439. registerObject {
  440.     type        CustMenuPushButton
  441.     name        .versions.menu.versionss
  442.     scope       {* * Implementation system}
  443.     visible     {0 0 0 0 1}
  444.     objSpec {
  445.         hintText        "List versions of the selected object"
  446.         label           "Versions"
  447.         mnemonic        V
  448.         checkOn         selectionChange
  449.         selCount        1
  450.         selIsATypes     {CCFile}
  451.         enableScript    {
  452.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  453.         }
  454.         activated       {
  455.         busy {
  456.         [[.main currentObj] browsUiObj] listVersions
  457.         }
  458.     }
  459.     }
  460. }
  461.  
  462. registerObject {
  463.     type        CustMenuSeparator
  464.     name        .versions.menu.separator2
  465.     scope       {* * Implementation system}
  466.     visible     {0 0 0 0 1}
  467. }
  468.  
  469. registerObject {
  470.     type        CustCascadeButton
  471.     name        .versions.menu.diff
  472.     scope       {* * Implementation system}
  473.     visible     {0 0 0 0 1}
  474.     objSpec {
  475.         hintText        "Contains diff commands"
  476.         label           "Diff"
  477.         mnemonic        D
  478.     }
  479. }
  480.  
  481. registerObject {
  482.     type        CustMenu
  483.     name        .versions.menu.diff.menu
  484.     scope       {* * Implementation system}
  485.     visible     {0 0 0 0 1}
  486.     objSpec {
  487.     pinnable        0
  488.     }
  489. }
  490.  
  491. registerObject {
  492.     type        CustMenuPushButton
  493.     name        .versions.menu.diff.menu.previous
  494.     scope       {* * Implementation system}
  495.     visible     {0 0 0 0 1}
  496.     objSpec {
  497.         hintText        "Show diff with previous version"
  498.         label           "Previous"
  499.         mnemonic        P
  500.         checkOn         selectionChange
  501.         selCount        1
  502.         selIsATypes     {CCFile}
  503.         enableScript    {
  504.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  505.         }
  506.         activated       {
  507.         busy {
  508.         [[.main currentObj] browsUiObj] diffPreviousVersion
  509.         }
  510.     }
  511.     }
  512. }
  513.  
  514. registerObject {
  515.     type        CustMenuPushButton
  516.     name        .versions.menu.diff.menu.other
  517.     scope       {* * Implementation system}
  518.     visible     {0 0 0 0 1}
  519.     objSpec {
  520.         hintText        "Show diff with other version"
  521.         label           "Other..."
  522.         mnemonic        O
  523.         checkOn         selectionChange
  524.         selCount        1
  525.         selIsATypes     {CCFile}
  526.         enableScript    {
  527.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  528.         }
  529.         activated       {
  530.         busy {
  531.         [[.main currentObj] browsUiObj] diffOtherVersion
  532.         }
  533.     }
  534.     }
  535. }
  536.  
  537. registerObject {
  538.     type        CustCascadeButton
  539.     name        .versions.menu.xdiff
  540.     scope       {* * Implementation system}
  541.     visible     {0 0 0 0 1}
  542.     objSpec {
  543.         hintText        "Contains graphical diff commands"
  544.         label           "Xdiff"
  545.         mnemonic        X
  546.     }
  547. }
  548.  
  549. registerObject {
  550.     type        CustMenu
  551.     name        .versions.menu.xdiff.menu
  552.     scope       {* * Implementation system}
  553.     visible     {0 0 0 0 1}
  554.     objSpec {
  555.     pinnable        0
  556.     }
  557. }
  558.  
  559. registerObject {
  560.     type        CustMenuPushButton
  561.     name        .versions.menu.xdiff.menu.previous
  562.     scope       {* * Implementation system}
  563.     visible     {0 0 0 0 1}
  564.     objSpec {
  565.         hintText        "Show diff with previous version"
  566.         label           "Previous"
  567.         mnemonic        P
  568.         checkOn         selectionChange
  569.         selCount        1
  570.         selIsATypes     {CCFile}
  571.         enableScript    {
  572.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  573.         }
  574.         activated       {
  575.         busy {
  576.         [[.main currentObj] browsUiObj] diffPreviousVersion "graphical"
  577.         }
  578.     }
  579.     }
  580. }
  581.  
  582. registerObject {
  583.     type        CustMenuPushButton
  584.     name        .versions.menu.xdiff.menu.other
  585.     scope       {* * Implementation system}
  586.     visible     {0 0 0 0 1}
  587.     objSpec {
  588.         hintText        "Show diff with other version"
  589.         label           "Other..."
  590.         mnemonic        O
  591.         checkOn         selectionChange
  592.         selCount        1
  593.         selIsATypes     {CCFile}
  594.         enableScript    {
  595.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  596.         }
  597.         activated       {
  598.         busy {
  599.         [[.main currentObj] browsUiObj] diffOtherVersion "graphical"
  600.         }
  601.     }
  602.     }
  603. }
  604.  
  605. registerObject {
  606.     type        CustCascadeButton
  607.     name        .versions.menu.show
  608.     scope       {* * Implementation system}
  609.     visible     {0 0 0 0 1}
  610.     objSpec {
  611.         hintText        "Contains show commands"
  612.         label           "Show"
  613.         mnemonic        S
  614.     }
  615. }
  616.  
  617. registerObject {
  618.     type        CustMenu
  619.     name        .versions.menu.show.menu
  620.     scope       {* * Implementation system}
  621.     visible     {0 0 0 0 1}
  622.     objSpec {
  623.     pinnable        0
  624.     }
  625. }
  626.  
  627. registerObject {
  628.     type        CustMenuPushButton
  629.     name        .versions.menu.show.menu.previous
  630.     scope       {* * Implementation system}
  631.     visible     {0 0 0 0 1}
  632.     objSpec {
  633.         hintText        "Show previous version"
  634.         label           "Previous"
  635.         mnemonic        P
  636.         checkOn         selectionChange
  637.         selCount        1
  638.         selIsATypes     {CCFile}
  639.         enableScript    {
  640.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  641.         }
  642.         activated       {
  643.         busy {
  644.         [[.main currentObj] browsUiObj] showPreviousVersion
  645.         }
  646.     }
  647.     }
  648. }
  649.  
  650. registerObject {
  651.     type        CustMenuPushButton
  652.     name        .versions.menu.show.menu.other
  653.     scope       {* * Implementation system}
  654.     visible     {0 0 0 0 1}
  655.     objSpec {
  656.         hintText        "Show other version"
  657.         label           "Other..."
  658.         mnemonic        O
  659.         checkOn         selectionChange
  660.         selCount        1
  661.         selIsATypes     {CCFile}
  662.         enableScript    {
  663.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  664.         }
  665.         activated       {
  666.         busy {
  667.         [[.main currentObj] browsUiObj] showOtherVersion
  668.         }
  669.     }
  670.     }
  671. }
  672.  
  673. registerObject {
  674.     type        CustMenuBarButton
  675.     name        .clearcase
  676.     scope       {* * Implementation system}
  677.     visible     {0 0 0 0 1}
  678.     objSpec {
  679.         label           ClearCase
  680.         mnemonic        C
  681.     index        6
  682.     }
  683. }
  684.  
  685. registerObject {
  686.     type        CustMenu
  687.     name        .clearcase.menu
  688.     scope       {* * Implementation system}
  689.     visible     {0 0 0 0 1}
  690.     objSpec {
  691.         pinnable        1
  692.     }
  693. }
  694.  
  695. registerObject {
  696.     type        CustMenuPushButton
  697.     name        .clearcase.menu.showview
  698.     scope       {* * Implementation system}
  699.     visible     {0 0 0 0 1}
  700.     objSpec {
  701.         hintText        "Show the current ClearCase view"
  702.         label           "Show View"
  703.         mnemonic        S
  704.         activated       {
  705.         busy {
  706.         [[.main currentObj] browsUiObj] showView
  707.         }
  708.     }
  709.     }
  710. }
  711.  
  712. registerObject {
  713.     type        CustMenuPushButton
  714.     name        .clearcase.menu.changeview
  715.     scope       {* * Implementation system}
  716.     visible     {0 0 0 0 1}
  717.     objSpec {
  718.         hintText        "Change the current ClearCase view"
  719.         label           "Change View..."
  720.         mnemonic        C
  721.         activated       {
  722.         busy {
  723.         [[.main currentObj] browsUiObj] changeView
  724.         }
  725.     }
  726.     }
  727. }
  728.  
  729. registerObject {
  730.     type        CustMenuSeparator
  731.     name        .clearcase.menu.separator1
  732.     scope       {* * Implementation system}
  733.     visible     {0 0 0 0 1}
  734. }
  735.  
  736. registerObject {
  737.     type        CustMenuPushButton
  738.     name        .clearcase.menu.showconfigspec
  739.     scope       {* * Implementation system}
  740.     visible     {0 0 0 0 1}
  741.     objSpec {
  742.         hintText        "Show the config spec of the current ClearCase view"
  743.         label           "Show Config Spec"
  744.         mnemonic        h
  745.         activated       {
  746.         busy {
  747.         [[.main currentObj] browsUiObj] showConfigSpec
  748.         }
  749.     }
  750.     }
  751. }
  752.  
  753. registerObject {
  754.     type        CustMenuPushButton
  755.     name        .clearcase.menu.editconfigspec
  756.     scope       {* * Implementation system}
  757.     visible     {0 0 0 0 1}
  758.     objSpec {
  759.         hintText        "Edit the config spec of the current ClearCase view"
  760.         label           "Edit Config Spec"
  761.         mnemonic        E
  762.         activated       {
  763.         busy {
  764.         [[.main currentObj] browsUiObj] changeConfigSpec
  765.         }
  766.     }
  767.     }
  768. }
  769.  
  770. registerObject {
  771.     type        CustMenuSeparator
  772.     name        .clearcase.menu.separator2
  773.     scope       {* * Implementation system}
  774.     visible     {0 0 0 0 1}
  775. }
  776.  
  777. registerObject {
  778.     type        CustMenuPushButton
  779.     name        .clearcase.menu.configureclearmake
  780.     scope       {* * Implementation system}
  781.     visible     {0 0 0 0 1}
  782.     objSpec {
  783.         hintText        "Install clearmake and set options"
  784.         label           "Configure Clearmake"
  785.         mnemonic        m
  786.     checkOn        levelChange
  787.         activated       {
  788.         busy {
  789.         [[.main currentObj] browsUiObj] configClearmake
  790.         }
  791.     }
  792.         enableScript    {
  793.  
  794.         if [isCommand .main.MB.target.menu.compile] {
  795.             %this sensitive 1
  796.             return
  797.         }
  798.         %this sensitive 0
  799.  
  800.         }
  801.     }
  802. }
  803.  
  804. registerObject {
  805.     type        CustMenuSeparator
  806.     name        .clearcase.menu.separator3
  807.     scope       {* * Implementation system}
  808.     visible     {0 0 0 0 1}
  809. }
  810.  
  811. registerObject {
  812.     type        CustMenuPushButton
  813.     name        .clearcase.menu.startclearcase
  814.     scope       {* * Implementation system}
  815.     visible     {0 0 0 0 1}
  816.     objSpec {
  817.         hintText        "Start ClearCase"
  818.         label           "Start ClearCase"
  819.         mnemonic        r
  820.         activated       {
  821.         busy {
  822.         [[.main currentObj] browsUiObj] startClearCase
  823.         }
  824.     }
  825.     }
  826. }
  827.  
  828. registerObject {
  829.     type        CustMenuPushButton
  830.     name        .utilities.menu.updateuserenvironment
  831.     scope       {* * Implementation system}
  832.     objSpec {
  833.         hintText        "Synchronizes the file system with the repository."
  834.         label           "Update User Environment"
  835.         mnemonic        v
  836.     sensitive       0
  837.     }
  838. }
  839.  
  840.