home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / contdesk.mnu < prev    next >
Encoding:
Text File  |  1997-05-29  |  17.5 KB  |  700 lines
  1. registerObject {
  2.     type        CustMenuPushButton
  3.     name        .file.menu.new.menu.continuusfile
  4.     scope       {* * Implementation system}
  5.     visible     {0 0 0 0 1}
  6.     objSpec {
  7.         hintText        "Creates a new Continuus file"
  8.         label           "Continuus File..."
  9.         mnemonic        C
  10.         checkOn         selectionChange
  11.         enableScript    {
  12.  
  13.         if {! [BrowserProcs::currentObjIsA ContSysVDbObj]} {
  14.             %this sensitive 0
  15.             return
  16.         }
  17.  
  18.         if {[[[.main currentObj] browsUiObj] getInfo Status] != "working"} {
  19.             %this sensitive 0
  20.             return
  21.         }
  22.  
  23.         %this sensitive 1
  24.         }
  25.         activated       {[[.main currentObj] browsUiObj] addContFile}
  26.     }
  27. }
  28.  
  29. registerObject {
  30.     type        CustMenuPushButton
  31.     name        .file.menu.edit
  32.     scope       {* * Implementation system}
  33.     inPopUpMenu 1
  34.     objSpec {
  35.         hintText        "Edits the selected item."
  36.         label           "Edit"
  37.         mnemonic        E
  38.         accelerator     Ctrl+e
  39.         checkOn         selectionChange
  40.         selCount        1
  41.         selIsATypes     {FileVersion ExternalLink CustomFileVersion
  42.     GroupVersion}
  43.         enableScript    {
  44.         
  45.         set obj [lindex [.main selectedObjSet] 0]
  46.         set type [$obj getInfo Type]
  47.         if { [$obj isA VSFile] && \
  48.             ("$type" == "executable" || "$type" == "library")} {
  49.         %this sensitive 0
  50.         } else {
  51.         %this sensitive [BrowserProcs::statusObjectsAre "working"]
  52.         }        
  53.         }
  54.         activated       {[lindex [.main selectedObjSet] 0] editFile}
  55.     }
  56. }
  57.  
  58. registerObject {
  59.     type    CustMenuPushButton
  60.     name    .file.menu.change.menu.name
  61.     scope       {* * Implementation system}
  62.     visible     {0 0 0 0 1}
  63.     objSpec {
  64.     hintText    "Changes the name of the selected object."
  65.     label        "Name..."
  66.     mnemonic    N
  67.     checkOn        selectionChange
  68.     selCount    1
  69.     selIsATypes    {ContFile ExternalLink}
  70.     enableScript    {
  71.  
  72.         %this sensitive [BrowserProcs::statusObjectsAre "working"]
  73.  
  74.     }
  75.     activated    {
  76.         set selectedFile [lindex [.main selectedObjSet] 0]
  77.         if [$selectedFile isA VSFile] {
  78.         BrowserProcs::changeVSFileName
  79.         } else {
  80.         BrowserProcs::changeName
  81.         }
  82.     }
  83.     }
  84. }
  85.  
  86. registerObject {
  87.     type        CustMenuBarButton
  88.     name        .actions
  89.     scope       {* * Implementation system}
  90.     visible     {0 0 0 0 1}
  91.     objSpec {
  92.         label           Actions
  93.         mnemonic        A
  94.     index        6
  95.     }
  96. }
  97.  
  98.  
  99.  
  100. registerObject {
  101.     type        CustMenu
  102.     name        .actions.menu
  103.     scope       {* * Implementation system}
  104.     visible     {0 0 0 0 1}
  105.     objSpec {
  106.         pinnable        1
  107.     }
  108. }
  109.  
  110. registerObject {
  111.     type        CustMenuPushButton
  112.     name        .actions.menu.properties
  113.     scope       {* * Implementation system}
  114.     visible     {0 0 0 0 1}
  115.     objSpec {
  116.         hintText        "Edit properties of the selected object"
  117.         label           "Properties"
  118.         mnemonic        P
  119.         checkOn         selectionChange
  120.         selCount        many
  121.         selIsATypes     {ContFile}
  122.     enableScript {
  123.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  124.     }
  125.         activated       {
  126.         busy {
  127.         [[.main currentObj] browsUiObj] editProperties
  128.         }
  129.     } 
  130.     }
  131. }
  132.  
  133. registerObject {
  134.     type        CustMenuPushButton
  135.     name        .actions.menu.showhistory
  136.     scope       {* * Implementation system}
  137.     visible     {0 0 0 0 1}
  138.     objSpec {
  139.         hintText        "Show history of the selected object"
  140.         label           "Show History"
  141.         mnemonic        H
  142.         checkOn         selectionChange
  143.         selCount        1
  144.         selIsATypes     {ContFile}
  145.     enableScript {
  146.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  147.     }
  148.         activated       {
  149.         busy {
  150.         [[.main currentObj] browsUiObj] history
  151.         }
  152.     }
  153.     }
  154. }
  155.  
  156. registerObject {
  157.     type        CustMenuPushButton
  158.     name        .actions.menu.checkout
  159.     scope       {* * Implementation system}
  160.     visible     {0 0 0 0 1}
  161.     objSpec {
  162.         hintText        "Check out the selected objects"
  163.         label           "Check Out..."
  164.         mnemonic        C
  165.         checkOn         selectionChange
  166.         selCount        many
  167.         selIsATypes     {ContFile}
  168.         enableScript    {
  169.  
  170.         if { [BrowserProcs::statusObjectsAreNot "working"] && \
  171.         [BrowserProcs::statusObjectsAreNot "<not found>"] } {
  172.         %this sensitive 1
  173.     } else {
  174.         %this sensitive 0
  175.     }
  176.  
  177.         }
  178.         activated       {
  179.         busy {
  180.         [[.main currentObj] browsUiObj] checkOutFiles
  181.         }
  182.     }
  183.     }
  184. }
  185.  
  186. registerObject {
  187.     type        CustMenuPushButton
  188.     name        .actions.menu.checkin
  189.     scope       {* * Implementation system}
  190.     visible     {0 0 0 0 1}
  191.     objSpec {
  192.         hintText        "Check in the selected objects"
  193.         label           "Check In..."
  194.         mnemonic        I
  195.         checkOn         selectionChange
  196.         selCount        many
  197.     selIsATypes     {ContFile}
  198.         enableScript    {
  199.  
  200.         %this sensitive [BrowserProcs::statusObjectsAre "working"]
  201.  
  202.         }
  203.         activated       {
  204.         busy {
  205.         [[.main currentObj] browsUiObj] checkInFiles
  206.         }
  207.     }
  208.     }
  209. }
  210.  
  211. registerObject {
  212.     type        CustMenuPushButton
  213.     name        .actions.menu.checkintask
  214.     scope       {* * Implementation system}
  215.     visible     {0 0 0 0 1}
  216.     objSpec {
  217.         hintText        "Check in task of the selected object"
  218.         label           "Check In Task..."
  219.         mnemonic        T
  220.         checkOn         selectionChange
  221.         selCount        1
  222.         selIsATypes     {ContFile}
  223.     sensitive 1
  224.     enableScript {
  225.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  226.     }
  227.         activated       {
  228.         busy {
  229.         [[.main currentObj] browsUiObj] checkInTask
  230.         }
  231.     }
  232.     }
  233. }
  234.  
  235. registerObject {
  236.     type        CustMenuPushButton
  237.     name        .actions.menu.finduse
  238.     scope       {* * Implementation system}
  239.     visible     {0 0 0 0 1}
  240.     objSpec {
  241.         hintText        "Pop up find use dialog for the selected object"
  242.         label           "Find Use"
  243.         mnemonic        F
  244.         checkOn         selectionChange
  245.         selCount        1
  246.         selIsATypes     {ContFile}
  247.     sensitive 1
  248.     enableScript {
  249.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  250.     }
  251.         activated       {
  252.         busy {
  253.         [[.main currentObj] browsUiObj] findUse
  254.         }
  255.     }
  256.     }
  257. }
  258.  
  259.  
  260.  
  261. registerObject {
  262.     type        CustMenuPushButton
  263.     name        .actions.menu.use
  264.     scope       {* * Implementation system}
  265.     visible     {0 0 0 0 1}
  266.     objSpec {
  267.         hintText        "Use other version of the selected object"
  268.         label           "Use..."
  269.         mnemonic        U
  270.         checkOn         selectionChange
  271.         selCount        1
  272.         selIsATypes     {ContFile}
  273.     sensitive 1
  274.     enableScript {
  275.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  276.     }
  277.         activated       {
  278.         busy {
  279.         [[.main currentObj] browsUiObj] useVersion
  280.         }
  281.     }
  282.     }
  283. }
  284.  
  285. registerObject {
  286.     type        CustMenuSeparator
  287.     name        .actions.menu.separator1
  288.     scope       {* * Implementation system}
  289.     visible     {0 0 0 0 1}
  290. }
  291.  
  292. registerObject {
  293.     type        CustMenuPushButton
  294.     name        .actions.menu.unuse
  295.     scope       {* * Implementation system}
  296.     visible     {0 0 0 0 1}
  297.     objSpec {
  298.         hintText        "Unuse and replace current version of the selected objects"
  299.         label           "Unuse..."
  300.         mnemonic        n
  301.         checkOn         selectionChange
  302.         selCount        many
  303.         selIsATypes     {ContFile}
  304.     sensitive 1
  305.     enableScript {
  306.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  307.     }
  308.         activated       {
  309.         busy {
  310.         [[.main currentObj] browsUiObj] unUseVersions
  311.         }
  312.     }
  313.     }
  314. }
  315.  
  316.  
  317.  
  318. registerObject {
  319.     type        CustMenuPushButton
  320.     name        .actions.menu.delete
  321.     scope       {* * Implementation system}
  322.     visible     {0 0 0 0 1}
  323.     objSpec {
  324.         hintText        "Delete and replace version of the selected objects"
  325.         label           "Delete..."
  326.         mnemonic        l
  327.         checkOn         selectionChange
  328.         selCount        many
  329.         selIsATypes     {ContFile}
  330.     sensitive 1
  331.     enableScript {
  332.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  333.     }
  334.         activated       { 
  335.         busy {
  336.         [[.main currentObj] browsUiObj] deleteVersions
  337.         }
  338.     } 
  339.     }
  340. }
  341.  
  342. registerObject {
  343.     type        CustMenuPushButton
  344.     name        .actions.menu.candidates
  345.     scope       {* * Implementation system}
  346.     visible     {0 0 0 0 1}
  347.     objSpec {
  348.         hintText        "Show all versions of the selected object"
  349.         label           "Candidates"
  350.         mnemonic        a
  351.         checkOn         selectionChange
  352.         selCount        1
  353.         selIsATypes     {ContFile}
  354.     enableScript {
  355.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  356.     }
  357.         activated       {
  358.         busy {
  359.         [[.main currentObj] browsUiObj] listVersions
  360.         }
  361.     }
  362.     }
  363. }
  364.  
  365. registerObject {
  366.     type        CustMenuSeparator
  367.     name        .actions.menu.separator2
  368.     scope       {* * Implementation system}
  369.     visible     {0 0 0 0 1}
  370. }
  371.  
  372. registerObject {
  373.     type        CustCascadeButton
  374.     name        .actions.menu.diff
  375.     scope       {* * Implementation system}
  376.     visible     {0 0 0 0 1}
  377.     objSpec {
  378.         hintText        "Contains diff commands"
  379.         label           "Diff"
  380.         mnemonic        D
  381.     }
  382. }
  383.  
  384. registerObject {
  385.     type        CustMenu
  386.     name        .actions.menu.diff.menu
  387.     scope       {* * Implementation system}
  388.     visible     {0 0 0 0 1}
  389.     objSpec {
  390.     pinnable        0
  391.     }
  392. }
  393.  
  394. registerObject {
  395.     type        CustMenuPushButton
  396.     name        .actions.menu.diff.menu.previous
  397.     scope       {* * Implementation system}
  398.     visible     {0 0 0 0 1}
  399.     objSpec {
  400.         hintText        "Show diff with previous version"
  401.         label           "Previous"
  402.         mnemonic        P
  403.         checkOn         selectionChange
  404.         selCount        1
  405.         selIsATypes     {ContFile}
  406.     enableScript {
  407.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  408.     }
  409.         activated       {
  410.         busy {
  411.         [[.main currentObj] browsUiObj] diffPreviousVersion
  412.         }
  413.     }
  414.     }
  415. }
  416.  
  417. registerObject {
  418.     type        CustMenuPushButton
  419.     name        .actions.menu.diff.menu.other
  420.     scope       {* * Implementation system}
  421.     visible     {0 0 0 0 1}
  422.     objSpec {
  423.         hintText        "Show diff with other version"
  424.         label           "Other..."
  425.         mnemonic        O
  426.         checkOn         selectionChange
  427.         selCount        1
  428.         selIsATypes     {ContFile}
  429.     enableScript {
  430.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  431.     }
  432.         activated       {
  433.         busy {
  434.         [[.main currentObj] browsUiObj] diffOtherVersion
  435.         }
  436.     }
  437.     }
  438. }
  439.  
  440. registerObject {
  441.     type        CustCascadeButton
  442.     name        .actions.menu.show
  443.     scope       {* * Implementation system}
  444.     visible     {0 0 0 0 1}
  445.     objSpec {
  446.         hintText        "Contains show commands"
  447.         label           "Show"
  448.         mnemonic        S
  449.     }
  450. }
  451.  
  452. registerObject {
  453.     type        CustMenu
  454.     name        .actions.menu.show.menu
  455.     scope       {* * Implementation system}
  456.     visible     {0 0 0 0 1}
  457.     objSpec {
  458.     pinnable        0
  459.     }
  460. }
  461.  
  462. registerObject {
  463.     type        CustMenuPushButton
  464.     name        .actions.menu.show.menu.previous
  465.     scope       {* * Implementation system}
  466.     visible     {0 0 0 0 1}
  467.     objSpec {
  468.         hintText        "Show previous version"
  469.         label           "Previous"
  470.         mnemonic        P
  471.         checkOn         selectionChange
  472.         selCount        1
  473.         selIsATypes     {ContFile}
  474.     enableScript {
  475.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  476.     }
  477.         activated       {
  478.         busy {
  479.         [[.main currentObj] browsUiObj] showPreviousVersion
  480.         }
  481.     }
  482.     }
  483. }
  484.  
  485. registerObject {
  486.     type        CustMenuPushButton
  487.     name        .actions.menu.show.menu.other
  488.     scope       {* * Implementation system}
  489.     visible     {0 0 0 0 1}
  490.     objSpec {
  491.         hintText        "Show other version"
  492.         label           "Other..."
  493.         mnemonic        O
  494.         checkOn         selectionChange
  495.         selCount        1
  496.         selIsATypes     {ContFile}
  497.     enableScript {
  498.         %this sensitive [BrowserProcs::statusObjectsAreNot "<not found>"]
  499.     }
  500.         activated       {
  501.         busy {
  502.         [[.main currentObj] browsUiObj] showOtherVersion
  503.         }
  504.     }
  505.     }
  506. }
  507.  
  508. registerObject {
  509.     type        CustMenuBarButton
  510.     name        .continuus
  511.     scope       {* * Implementation system}
  512.     visible     {0 0 0 0 1}
  513.     objSpec {
  514.         label           Continuus
  515.         mnemonic        C
  516.     index        6
  517.     }
  518. }
  519.  
  520. registerObject {
  521.     type        CustMenu
  522.     name        .continuus.menu
  523.     scope       {* * Implementation system}
  524.     visible     {0 0 0 0 1}
  525.     objSpec {
  526.         pinnable        1
  527.     }
  528. }
  529.  
  530. registerObject {
  531.     type        CustMenuPushButton
  532.     name        .continuus.menu.updateworkarea
  533.     scope       {* * Implementation system}
  534.     visible     {0 0 0 0 1}
  535.     objSpec {
  536.         hintText        "Update work area in system directory"
  537.         label           "Update Work Area"
  538.         mnemonic        U
  539.         activated       {
  540.         busy {
  541.         [[.main currentObj] browsUiObj] updateWorkArea
  542.         }
  543.     }
  544.     }
  545. }
  546.  
  547. registerObject {
  548.     type        CustMenuSeparator
  549.     name        .continuus.menu.separator1
  550.     scope       {* * Implementation system}
  551.     visible     {0 0 0 0 1}
  552. }
  553.  
  554.  
  555.  
  556. registerObject {
  557.     type        CustMenuPushButton
  558.     name        .continuus.menu.startquery
  559.     scope       {* * Implementation system}
  560.     visible     {0 0 0 0 1}
  561.     objSpec {
  562.         hintText        "Start Continuus Query Tool"
  563.         label           "Start Query"
  564.         mnemonic        Q
  565.         activated       {
  566.         busy {
  567.         [[.main currentObj] browsUiObj] startQuery
  568.         }
  569.     }
  570.     }
  571. }
  572.  
  573. registerObject {
  574.     type        CustMenuSeparator
  575.     name        .continuus.menu.separator2
  576.     scope       {* * Implementation system}
  577.     visible     {0 0 0 0 1}
  578. }
  579.  
  580. registerObject {
  581.     type        CustMenuPushButton
  582.     name        .continuus.menu.startobjectmake
  583.     scope       {* * Implementation system}
  584.     visible     {0 0 0 0 1}
  585.     objSpec {
  586.         hintText        "Start Continuus/OM ObjectMake"
  587.         label           "Start ObjectMake"
  588.         mnemonic        O
  589.     checkOn        levelChange
  590.         activated       {
  591.         busy {
  592.         [[.main currentObj] browsUiObj] startObjectMake
  593.         }
  594.     }
  595.     enableScript {
  596.         if [isCommand .main.MB.target.menu.compile] {
  597.             %this sensitive 1
  598.             return
  599.         }
  600.  
  601.         %this sensitive 0
  602.     }
  603.     }
  604. }
  605.  
  606. registerObject {
  607.     type        CustMenuSeparator
  608.     name        .continuus.menu.separator3
  609.     scope       {* * Implementation system}
  610.     visible     {0 0 0 0 1}
  611. }
  612.  
  613. registerObject {
  614.     type        CustMenuPushButton
  615.     name        .continuus.menu.startproblemtracking
  616.     scope       {* * Implementation system}
  617.     visible     {0 0 0 0 1}
  618.     objSpec {
  619.         hintText        "Start Continuus/PT Problem tracking browser"
  620.         label           "Start Problem Tracking"
  621.         mnemonic        P
  622.         activated       {
  623.         busy {
  624.         [[.main currentObj] browsUiObj] startProblemTracking
  625.         }
  626.     }
  627.     }
  628. }
  629.  
  630. registerObject {
  631.     type        CustMenuPushButton
  632.     name        .continuus.menu.startselecttask
  633.     scope       {* * Implementation system}
  634.     visible     {0 0 0 0 1}
  635.     objSpec {
  636.         hintText        "Start Continuus Select Task Dialog"
  637.         label           "Start Select Task"
  638.         mnemonic        T
  639.         activated       {
  640.         busy {
  641.         [[.main currentObj] browsUiObj] startSelectTask
  642.         }
  643.     }
  644.     }
  645. }
  646.  
  647. registerObject {
  648.     type        CustMenuSeparator
  649.     name        .continuus.menu.separator4
  650.     scope       {* * Implementation system}
  651.     visible     {0 0 0 0 1}
  652. }
  653.  
  654. registerObject {
  655.     type        CustMenuPushButton
  656.     name        .continuus.menu.showprojectversion
  657.     scope       {* * Implementation system}
  658.     visible     {0 0 0 0 1}
  659.     objSpec {
  660.         hintText        "Shows the project version currently used"
  661.         label           "Show Project Version"
  662.         mnemonic        S
  663.         activated       {
  664.         busy {
  665.         [[.main currentObj] browsUiObj] showProjectVersion
  666.         }
  667.     }
  668.     }
  669. }
  670.  
  671. registerObject {
  672.     type        CustMenuPushButton
  673.     name        .continuus.menu.changeprojectversion
  674.     scope       {* * Implementation system}
  675.     visible     {0 0 0 0 1}
  676.     objSpec {
  677.         hintText        "Changes the project version currently used"
  678.         label           "Change Project Version..."
  679.         mnemonic        C
  680.         activated       {
  681.         busy {
  682.         [[.main currentObj] browsUiObj] changeProjectVersion
  683.         }
  684.     }
  685.     }
  686. }
  687.  
  688. registerObject {
  689.     type        CustMenuPushButton
  690.     name        .utilities.menu.updateuserenvironment
  691.     scope       {* * Implementation system}
  692.     objSpec {
  693.         hintText        "Synchronizes the file system with the repository."
  694.         label           "Update User Environment"
  695.         mnemonic        v
  696.     sensitive       0
  697.     }
  698. }
  699.  
  700.