home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / vsdesk.mnu < prev    next >
Encoding:
Text File  |  1997-05-30  |  10.8 KB  |  439 lines
  1. registerObject {
  2.     type        CustMenuPushButton
  3.     name        .file.menu.new.menu.externalfileversion
  4.     scope       {* * Implementation system}
  5.     visible     {0 0 0 0 1}
  6.     objSpec {
  7.         hintText        "Creates a new external file version."
  8.         label           "External File Version..."
  9.         mnemonic        t
  10.         checkOn         selectionChange
  11.     enableScript {
  12.         %this sensitive 0
  13.     }
  14.     }
  15. }
  16.  
  17. registerObject {
  18.     type        CustMenuPushButton
  19.     name        .file.menu.new.menu.groupversion
  20.     scope       {* * Implementation system}
  21.     visible     {0 0 0 0 1}
  22.     objSpec {
  23.         hintText        "Creates a new group version."
  24.         label           "Group Version..."
  25.         mnemonic        G
  26.         checkOn         levelChange
  27.         enableScript    {
  28.         %this sensitive 0
  29.         }
  30.     }
  31. }
  32.  
  33. registerObject {
  34.     type    CustMenuSeparator
  35.     name    .file.menu.new.menu.separator2
  36.     scope       {* * Implementation system}
  37.     visible     {0 0 0 0 1}
  38. }
  39.  
  40. registerObject {
  41.     type    CustMenuPushButton
  42.     name    .file.menu.delete
  43.     scope       {* * Implementation system}
  44.     visible     {0 0 0 0 1}
  45.     inToolBar    1
  46.     inPopUpMenu    1
  47.     objSpec {
  48.     hintText    "Deletes selected items."
  49.     label        "Delete..."
  50.     mnemonic    D
  51.     toolBarPixmap    delete_16
  52.     checkOn        selectionChange
  53.     selCount    many
  54.     selIsATypes    {Version CorporateGroupVersion SavedGroupVersion
  55.              ExternalLink SystemFileReference Project VSFileObj
  56.              PropertyReference Role User UserRoleLink ExtFUiObj}
  57.     enableScript    {
  58.  
  59.     set currentObj [[.main currentObj] browsUiObj]
  60.     set status [$currentObj getInfo Status]
  61.     if [$currentObj isA CorpGVDbObj] {
  62.         %this sensitive 0
  63.     } elseif \
  64.         [BrowserProcs::currentObjIsA {ExtFUiObj HCustFUiObj UCustFUiObj}] {
  65.         %this sensitive [BrowserProcs::typeObjectsAre "ExternalFile"]
  66.     } elseif {"$status" != "" && "$status" != "working"} {
  67.         %this sensitive 0
  68.     } elseif {[$currentObj isA RoleUiObj] &&
  69.           "[$currentObj getParent Project]" != ""} {
  70.         %this sensitive 0
  71.     } else {
  72.         %this sensitive 1
  73.     }
  74.  
  75.     }
  76.     activated    {[[.main currentObj] browsUiObj] removeObjects}
  77.     }
  78. }
  79.  
  80. registerObject {
  81.     type        CustMenuPushButton
  82.     name        .file.menu.change.menu.linkstatus
  83.     scope       {* * Implementation system}
  84.     visible     {0 0 0 0 1}
  85.     objSpec {
  86.         hintText        "Changes the link status of the selected objects."
  87.         label           "Link Status..."
  88.         mnemonic        L
  89.     sensitive       0
  90.     }
  91. }
  92.  
  93. registerObject {
  94.     type        CustMenuPushButton
  95.     name        .file.menu.change.menu.sourceclass
  96.     scope       {* * Implementation system}
  97.     visible     {0 0 0 0 1}
  98.     objSpec {
  99.         hintText        "Changes the source class of the selected file"
  100.         label           "Source Class..."
  101.         mnemonic        S
  102.         checkOn         selectionChange
  103.         selCount        1
  104.         selIsATypes     {VSFile}
  105.         activated       {[[.main currentObj] browsUiObj] changeSourceClass}
  106.     }
  107. }
  108.  
  109. registerObject {
  110.     type        CustMenuPushButton
  111.     name        .file.menu.change.menu.location
  112.     scope       {* * Implementation system}
  113.     visible     {0 0 0 0 1}
  114.     objSpec {
  115.         hintText        "Changes the location (path) of the selected object."
  116.         label           "Location..."
  117.         mnemonic        L
  118.         checkOn         selectionChange
  119.         selCount        1
  120.         selIsATypes     {ExternalLink}
  121.     enableScript {
  122.         set object [lindex [.main selectedObjSet] 0]
  123.         if [$object isA VSFile] {
  124.         %this sensitive 0
  125.         } else {
  126.         %this sensitive 1
  127.         }
  128.     }
  129.         activated       {[lindex [.main selectedObjSet] 0] changeLocation}
  130.     }
  131. }
  132.  
  133. registerObject {
  134.     type    CustMenuPushButton
  135.     name    .file.menu.info
  136.     inToolBar    1
  137.     inPopUpMenu    1
  138.     scope       {* * Implementation system}
  139.     visible     {0 0 0 0 1}
  140.     objSpec {
  141.     hintText    "Shows information about the selected object."
  142.     label        "Info"
  143.     mnemonic    I
  144.     accelerator    Ctrl+i
  145.     toolBarPixmap    info_16
  146.     checkOn        selectionChange
  147.     enableScript    {
  148.  
  149.     if {[llength [.main selectedObjSet]] > 1} {
  150.         %this sensitive 0
  151.     } else {
  152.         %this sensitive 1
  153.     }
  154.  
  155.     }
  156.     activated    {
  157.         set file [lindex [.main selectedObjSet] 0]
  158.         if [$file isA VSFile] {
  159.             $file initializedAllInfo 0
  160.         }
  161.         BrowserProcs::showInfo
  162.     }
  163.     }
  164. }
  165.  
  166. registerObject {
  167.     type    CustMenuPushButton
  168.     name    .file.menu.print
  169.     scope       {* * Implementation system}
  170.     visible     {0 0 0 0 1}
  171.     inToolBar    1
  172.     inPopUpMenu    1
  173.     objSpec {
  174.     hintText    "Prints the selected objects."
  175.     label        "Print"
  176.     mnemonic    t
  177.     accelerator    Ctrl+p
  178.     toolBarPixmap    print_16
  179.     checkOn        selectionChange
  180.     selCount    many
  181.     selIsATypes    {ExternalFileVersion Graph SystemFileReference VSFile
  182.              PropertyReference ExternalLink CustomFileVersion
  183.              ExtFUiObj}
  184.     enableScript    {
  185.  
  186.     if {"[[.main currentObj] getParent CorpGVDbObj]" != ""} {
  187.         %this sensitive 0
  188.     } elseif \
  189.         [BrowserProcs::currentObjIsA {ExtFUiObj HCustFUiObj UCustFUiObj}] {
  190.         if [BrowserProcs::typeObjectsAre "ExternalFile"] {
  191.         %this sensitive [BrowserProcs::objectsReturn isAscii]
  192.         } else {
  193.         %this sensitive 0
  194.         }
  195.     } else {
  196.         %this sensitive [BrowserProcs::statusObjectsAreNot "backGround"]
  197.     }
  198.  
  199.     }
  200.     activated    {[[.main currentObj] browsUiObj] printObjects}
  201.     }
  202. }
  203.  
  204. registerObject {
  205.     type        CustMenuPushButton
  206.     name        .edit.menu.cut
  207.     scope       {* * Implementation system}
  208.     visible     {0 0 0 0 1}
  209.     inToolBar   1
  210.     inPopUpMenu 1
  211.     objSpec {
  212.         hintText        "Moves the selected objects to the clipboard."
  213.         label           "Cut"
  214.         mnemonic        t
  215.         accelerator     Ctrl+X
  216.         toolBarPixmap   cut_16
  217.         checkOn         selectionChange
  218.         selCount        many
  219.         selIsATypes     {SystemVersion FileVersion GroupVersion VSFileObj}
  220.         enableScript    {
  221.  
  222.     set status [[[.main currentObj] browsUiObj] getInfo Status]
  223.     if {(! [BrowserProcs::currentObjIsA {Version CustFVUiObj}]) ||
  224.         [BrowserProcs::currentObjIsA GroupVDbObj]} {
  225.         %this sensitive 0
  226.     } elseif {"$status" != "" && "$status" != "working"} {
  227.         %this sensitive 0
  228.     } else {
  229.         %this sensitive [BrowserProcs::objectsReturn canBeDragged]
  230.     }
  231.  
  232.         }
  233.         activated       {.main editCut}
  234.     }
  235. }
  236.  
  237. registerObject {
  238.     type    CustMenuPushButton
  239.     name    .version.menu.freeze
  240.     scope       {* * Implementation system}
  241.     visible     {0 0 0 0 1}
  242.     objSpec {
  243.     hintText    "Freezes the selected objects."
  244.     label        "Freeze..."
  245.     mnemonic    F
  246.     sensitive 0
  247.     }
  248. }
  249.  
  250. registerObject {
  251.     type    CustMenuPushButton
  252.     name    .version.menu.unfreeze
  253.     scope       {* * Implementation system}
  254.     visible     {0 0 0 0 1}
  255.     objSpec {
  256.     hintText    "Unfreezes the selected objects."
  257.     label        "Unfreeze"
  258.     mnemonic    U
  259.     sensitive 0
  260.     }
  261. }
  262.  
  263. registerObject {
  264.     type    CustMenuPushButton
  265.     name    .version.menu.new
  266.     scope       {* * Implementation system}
  267.     visible     {0 0 0 0 1}
  268.     objSpec {
  269.     hintText    "Creates a new version of the selected objects."
  270.     label        "New"
  271.     mnemonic    N
  272.     sensitive     0
  273.     }
  274. }
  275.  
  276. registerObject {
  277.     type    CustMenuPushButton
  278.     name    .version.menu.delete
  279.     scope       {* * Implementation system}
  280.     visible     {0 0 0 0 1}
  281.     objSpec {
  282.     hintText    "Deletes versions of the selected object."
  283.     label        "Delete..."
  284.     mnemonic    D
  285.     sensitive    0
  286.     }
  287. }
  288.  
  289. registerObject {
  290.     type    CustMenuPushButton
  291.     name    .version.menu.copy
  292.     scope       {* * Implementation system}
  293.     visible     {0 0 0 0 1}
  294.     objSpec {
  295.     hintText    "Copies the contents of another version to the selected object."
  296.     label        "Copy..."
  297.     mnemonic    o
  298.     sensitive    0
  299.     }
  300. }
  301.  
  302. registerObject {
  303.     type    CustCascadeButton
  304.     name    .version.menu.select
  305.     scope       {* * Implementation system}
  306.     visible     {0 0 0 0 1}
  307.     objSpec {
  308.     hintText    "Contains commands to select versions."
  309.     label        "Select"
  310.     mnemonic    S
  311.     sensitive     0
  312.     }
  313. }
  314.  
  315. registerObject {
  316.     type    CustMenuPushButton
  317.     name    .version.menu.deselect
  318.     scope       {* * Implementation system}
  319.     visible     {0 0 0 0 1}
  320.     objSpec {
  321.     hintText    "Deselects the selected objects."
  322.     label        "Deselect"
  323.     mnemonic    e
  324.     sensitive    0
  325.     }
  326. }
  327.  
  328. registerObject {
  329.     type    CustMenuPushButton
  330.     name    .version.menu.compare
  331.     scope       {* * Implementation system}
  332.     visible     {0 0 0 0 1}
  333.     objSpec {
  334.     hintText    "Compares the selected object with an earlier version."
  335.     label        "Compare..."
  336.     mnemonic    C
  337.     sensitive    0
  338.     }
  339. }
  340.  
  341. registerObject {
  342.     type    CustMenuPushButton
  343.     name    .version.menu.activate
  344.     scope       {* * Implementation system}
  345.     visible     {0 0 0 0 1}
  346.     objSpec {
  347.     hintText    "Activates corporate groups."
  348.     label        "Activate..."
  349.     mnemonic    A
  350.     sensitive    0
  351.     }
  352. }
  353.  
  354. registerObject {
  355.     type    CustMenuPushButton
  356.     name    .version.menu.deactivate
  357.     scope       {* * Implementation system}
  358.     visible     {0 0 0 0 1}
  359.     objSpec {
  360.     hintText    "Deactivates corporate groups."
  361.     label        "Deactivate..."
  362.     mnemonic    t
  363.     sensitive    0
  364.     }
  365. }
  366.  
  367. registerObject {
  368.     type    CustMenuPushButton
  369.     name    .version.menu.makecorporate
  370.     scope       {* * Implementation system}
  371.     visible     {0 0 0 0 1}
  372.     objSpec {
  373.     hintText    "Makes a corporate group of the selected saved group."
  374.     label        "Make Corporate..."
  375.     mnemonic    C
  376.     sensitive    0
  377.     }
  378. }
  379.  
  380. registerObject {
  381.     type    CustMenuPushButton
  382.     name    .version.menu.restore
  383.     scope       {* * Implementation system}
  384.     visible     {0 0 0 0 1}
  385.     objSpec {
  386.     hintText    "Restores the contents of the selected saved groups."
  387.     label        "Restore"
  388.     mnemonic    R
  389.     sensitive    0
  390.     }
  391. }
  392.  
  393. registerObject {
  394.     type    CustMenuPushButton
  395.     name    .version.menu.snapshot
  396.     scope       {* * Implementation system}
  397.     visible     {0 0 0 0 1}
  398.     objSpec {
  399.     hintText    "Makes a saved group of the selected groups."
  400.     label        "Snapshot..."
  401.     mnemonic    h
  402.     toolBarPixmap    sgroupv_16
  403.     sensitive    0
  404.     }
  405. }
  406.  
  407. registerObject {
  408.     type        CustMenuPushButton
  409.     name        .utilities.menu.importfrompreviousphase.menu.selected
  410.     scope       {* * Implementation system}
  411.     objSpec {
  412.         hintText        "Imports selected objects from previous phase."
  413.         label           "Selected"
  414.         mnemonic        S
  415.         checkOn         selectionChange
  416.         selCount        many
  417.         selIsATypes     {VSFile}
  418.         enableScript    {
  419.  
  420.     if {! [BrowserProcs::currentObjIsA SSysVDbObj]} {
  421.         %this sensitive 0
  422.         return
  423.     }
  424.     if {[[[.main currentObj] browsUiObj] getInfo Status] != "working"} {
  425.         %this sensitive 0
  426.         return
  427.     }
  428.     %this sensitive [[[.main currentObj] browsUiObj] prevPhaseExists]
  429.  
  430.     }
  431.     activated    {
  432.  
  433.     [[.main currentObj] browsUiObj] importFromPrevPhase selected
  434.  
  435.     }
  436.     }
  437. }
  438.  
  439.