home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / repcorp.mnu < prev    next >
Encoding:
Text File  |  1997-05-13  |  9.1 KB  |  457 lines
  1. registerObject  {
  2.     name        .file
  3.     type        CustMenuBarButton
  4.     objSpec        {
  5.         label        File
  6.         mnemonic    F
  7.     }
  8. }
  9.  
  10. registerObject  {
  11.     name        .file.menu
  12.     type        CustMenu
  13.     visible        {1 1 1 1 1}
  14.     objSpec        {
  15.         pinnable    1
  16.     }
  17. }
  18.  
  19. registerObject  {
  20.     name        .view
  21.     type        CustMenuBarButton
  22.     objSpec        {
  23.         label        View
  24.         mnemonic    V
  25.     }
  26. }
  27.  
  28. registerObject  {
  29.     name        .view.menu
  30.     type        CustMenu
  31.     visible        {1 1 1 1 1}
  32.     objSpec        {
  33.         pinnable    1
  34.     }
  35. }
  36.  
  37. registerObject  {
  38.     name        .options
  39.     type        CustMenuBarButton
  40.     objSpec        {
  41.         label        Options
  42.         mnemonic    O
  43.     }
  44. }
  45.  
  46. registerObject  {
  47.     name        .options.menu
  48.     type        CustMenu
  49.     visible        {1 1 1 1 1}
  50.     objSpec        {
  51.         pinnable    1
  52.     }
  53. }
  54.  
  55. registerObject  {
  56.     name        .help
  57.     type        CustMenuBarButton
  58.     objSpec        {
  59.         label        Help
  60.         mnemonic    H
  61.         helpButton    1
  62.     }
  63. }
  64.  
  65. registerObject  {
  66.     name        .help.menu
  67.     type        CustMenu
  68.     visible        {1 1 1 1 1}
  69.     objSpec        {
  70.         pinnable    1
  71.     }
  72. }
  73.  
  74. registerObject  {
  75.     inToolBar    1
  76.     name        .file.menu.new
  77.     type        CustMenuPushButton
  78.     objSpec        {
  79.         label        New...
  80.         hintText    "Creates a new repository."
  81.         mnemonic    N
  82.         toolBarPixmap    rep_new_16
  83.         activated    {
  84.             #CTGENCommandScript
  85.             busy { .main fileNew } 
  86.             #CTGENEndCommandScript    
  87.         }
  88.         selIsATypes    {}
  89.     }
  90. }
  91.  
  92. registerObject  {
  93.     inToolBar    1
  94.     name        .file.menu.delete
  95.     type        CustMenuPushButton
  96.     objSpec        {
  97.         label        Delete...
  98.         hintText    "Deletes all or part of a repository."
  99.         mnemonic    D
  100.         toolBarPixmap    delete_16
  101.         activated    {
  102.             #CTGENCommandScript
  103.             busy { .main fileDelete } 
  104.             #CTGENEndCommandScript    
  105.         }
  106.         selIsATypes    {}
  107.         selCount    1
  108.         checkOn        selectionChange
  109.     }
  110. }
  111.  
  112. registerObject  {
  113.     name        .file.menu.user_1
  114.     type        CustMenuSeparator
  115.     objSpec        {
  116.     }
  117. }
  118.  
  119. registerObject  {
  120.     name        .file.menu.open
  121.     type        CustMenuPushButton
  122.     objSpec        {
  123.         label        Open
  124.         mnemonic    e
  125.         accelerator    Ctrl+O
  126.                 hintText        "Starts a browser for the selected repository."
  127.         activated    {
  128.             #CTGENCommandScript
  129.             busy { .main fileOpen } 
  130.             #CTGENEndCommandScript    
  131.         }
  132.         selIsATypes    {}
  133.         selCount    1
  134.         checkOn        selectionChange
  135.                 enableScript {
  136.             if [[[.main rep] currentCorporate] isNil] {
  137.                 %this sensitive 0
  138.             } else {
  139.                 %this sensitive 1
  140.             }
  141.                 }
  142.     }
  143. }
  144.  
  145.  
  146. registerObject  {
  147.     name        .file.menu.user_2
  148.     type        CustMenuSeparator
  149.     objSpec        {
  150.     }
  151. }
  152.  
  153. registerObject  {
  154.     name        .file.menu.change
  155.     type        CustCascadeButton
  156.     objSpec        {
  157.         label        Change
  158.         mnemonic    C
  159.     }
  160. }
  161.  
  162. registerObject  {
  163.     name        .file.menu.change.menu
  164.     type        CustMenu
  165.     visible        {1 1 1 1 1}
  166. }
  167.  
  168. registerObject  {
  169.     name        .file.menu.user_3
  170.     type        CustMenuSeparator
  171.     objSpec        {
  172.     }
  173. }
  174.  
  175. registerObject  {
  176.     inToolBar    1
  177.     name        .file.menu.optimize
  178.     type        CustMenuPushButton
  179.     objSpec        {
  180.         label        Optimize...
  181.         hintText    "Optimizes a repository database."
  182.         mnemonic    O
  183.         toolBarPixmap    rep_optim_16
  184.         activated    {
  185.             #CTGENCommandScript
  186.             busy { .main fileOptimize } 
  187.             #CTGENEndCommandScript    
  188.         }
  189.         selIsATypes    {}
  190.         selCount    1
  191.         checkOn        selectionChange
  192.     }
  193. }
  194.  
  195. registerObject  {
  196.     inToolBar    1
  197.     name        .file.menu.backup
  198.     type        CustMenuPushButton
  199.     objSpec        {
  200.         label        Backup...
  201.         hintText    "Dumps the repository database and archives it."
  202.         mnemonic    B
  203.         toolBarPixmap    rep_backup_16
  204.         activated    {
  205.             #CTGENCommandScript
  206.             busy { .main  fileBackup } 
  207.             #CTGENEndCommandScript    
  208.         }
  209.         selIsATypes    {}
  210.         selCount    1
  211.         checkOn        selectionChange
  212.     }
  213. }
  214.  
  215. registerObject  {
  216.     inToolBar    1
  217.     name        .file.menu.restore
  218.     type        CustMenuPushButton
  219.     objSpec        {
  220.         label        Restore...
  221.         hintText    "Restores a previously backed up repository."
  222.         mnemonic    R
  223.         toolBarPixmap    rep_restore_16
  224.         activated    {
  225.             #CTGENCommandScript
  226.             busy { .main fileRestore } 
  227.             #CTGENEndCommandScript    
  228.         }
  229.         selIsATypes    {}
  230.     }
  231. }
  232.  
  233. registerObject  {
  234.     name        .file.menu.user_4
  235.     type        CustMenuSeparator
  236.     objSpec        {
  237.     }
  238. }
  239.  
  240. registerObject  {
  241.     name        .file.menu.exit
  242.     type        CustMenuPushButton
  243.     objSpec        {
  244.         label        Exit
  245.         mnemonic    x
  246.         hintText    {Exits the tool.}
  247.         activated    {busy { .main fileExit }}
  248.         selIsATypes    {}
  249.     }
  250. }
  251.  
  252. registerObject  {
  253.     name        .file.menu.change.menu.repositoryname
  254.     type        CustMenuPushButton
  255.     objSpec        {
  256.         label        {Name...}
  257.         hintText    "Changes name and/or directory of a repository."
  258.         mnemonic    N
  259.         activated    {
  260.             #CTGENCommandScript
  261.             busy { .main fileChangeName } 
  262.             #CTGENEndCommandScript    
  263.         }
  264.         selIsATypes    {}
  265.         selCount    1
  266.         checkOn        selectionChange
  267.     }
  268. }
  269.  
  270. registerObject  {
  271.     inToolBar    1
  272.     name        .file.menu.change.menu.serverentry
  273.     type        CustMenuPushButton
  274.     objSpec        {
  275.         label        {Server Definition...}
  276.         hintText    "Changes the server definition of a repository."
  277.         mnemonic    S
  278.         toolBarPixmap    rep_chdef_16
  279.         activated    {
  280.             #CTGENCommandScript
  281.             busy { .main fileChangeServerEntry } 
  282.             #CTGENEndCommandScript    
  283.         }
  284.         selIsATypes    {}
  285.         selCount    1
  286.         checkOn        selectionChange
  287.     }
  288. }
  289.  
  290. registerObject  {
  291.     inToolBar    1
  292.     name        .view.menu.refresh
  293.     type        CustMenuPushButton
  294.     objSpec        {
  295.         label        Refresh
  296.         hintText    "Refreshes the repository information."
  297.         mnemonic    R
  298.         accelerator    Ctrl+R
  299.         toolBarPixmap    rep_refresh_16
  300.         activated    {busy { .main viewRefresh }}
  301.         selIsATypes    {}
  302.     }
  303. }
  304.  
  305. registerObject  {
  306.     name        .view.menu.user_5
  307.     type        CustMenuSeparator
  308.     objSpec        {
  309.     }
  310. }
  311.  
  312. registerObject {
  313.         name            .view.menu.toolbar
  314.         type            CustMenuCheckButton
  315.         objSpec         {
  316.                 hintText        "Shows or hides the toolbar."
  317.                 label           ToolBar
  318.                 mnemonic        T
  319.                 state           1
  320.                 stateChanged    {
  321.             .main toolBarPresent [[.main menuBar].view.menu.toolbar state]
  322.                 }
  323.         }
  324. }
  325.  
  326. registerObject {
  327.         name            .view.menu.contextarea
  328.         type            CustMenuCheckButton
  329.         objSpec         {
  330.                 hintText        "Shows or hides the context area."
  331.                 label           "Context Area"
  332.                 mnemonic        C
  333.                 state           1
  334.                 stateChanged    {
  335.             .main contextAreaPresent [[.main menuBar].view.menu.contextarea state]
  336.                 }
  337.         }
  338. }
  339.  
  340. registerObject {
  341.         name            .view.menu.messagearea
  342.         type            CustMenuCheckButton
  343.         objSpec         {
  344.                 hintText        "Shows or hides the message area."
  345.                 label           "Message Area"
  346.                 mnemonic        M
  347.                 state           1
  348.                 stateChanged    {
  349.             .main messageAreaPresent [[.main menuBar].view.menu.messagearea state]
  350.                 }
  351.         }
  352. }
  353.  
  354. registerObject  {
  355.     name        .options.menu.font
  356.     type        CustMenuPushButton
  357.     objSpec        {
  358.         label        {Font...}
  359.         hintText    "Changes the information area font (M4_font__repcorp)."
  360.         mnemonic    F
  361.         activated    {busy { .main optionsFont }}
  362.         selIsATypes    {}
  363.     }
  364. }
  365.  
  366. registerObject  {
  367.     name        .options.menu.archivecommand
  368.     type        CustMenuPushButton
  369.     objSpec        {
  370.         label        {Archive Command...}
  371.         hintText    "Changes the command or script used to archive a dumped repository (M4_archive_cmd)."
  372.         mnemonic    A
  373.         activated    {
  374.             #CTGENCommandScript
  375.             busy { .main optionsArchiveCmd } 
  376.             #CTGENEndCommandScript    
  377.         }
  378.         selIsATypes    {}
  379.     }
  380. }
  381.  
  382. registerObject  {
  383.     name        .options.menu.unarchivecommand
  384.     type        CustMenuPushButton
  385.     objSpec        {
  386.         label        {Unarchive Command...}
  387.         hintText    "Changes the command or script used to unarchive a repository backup (M4_unarchive_cmd)."
  388.         mnemonic    U
  389.         activated    {
  390.             #CTGENCommandScript
  391.             busy { .main optionsUnarchiveCmd } 
  392.             #CTGENEndCommandScript    
  393.         }
  394.         selIsATypes    {}
  395.     }
  396. }
  397.  
  398. registerObject  {
  399.     name        .help.menu.whatsthis
  400.     type        CustMenuPushButton
  401.     objSpec        {
  402.         hintText    {Shows help about the selected component.}
  403.         label        "What's This?"
  404.         mnemonic    W
  405.         activated    {
  406.             #CTGENCommandScript
  407.             .main helpOnContext 
  408.             #CTGENEndCommandScript    
  409.         }
  410.     }
  411. }
  412.  
  413.  
  414. registerObject  {
  415.     name        .help.menu.helptopics
  416.     type        CustMenuPushButton
  417.     objSpec        {
  418.         hintText    {Shows help topics.}
  419.         label        {Help Topics}
  420.         mnemonic    T
  421.         activated    showHelpTopics
  422.     }
  423. }
  424.  
  425. registerObject  {
  426.         name            .help.menu.productdocumentation
  427.         type            CustMenuPushButton
  428.         objSpec         {
  429.                 label           {Product Documentation}
  430.                 hintText        {Starts online documentation.}
  431.                 activated       {
  432.                         #CTGENMessage
  433.                         wmtkmessage {Start online documentation ...}
  434.                         #CTGENBusyCursorOn
  435.                         .main busy TRUE
  436.                         #CTGENCommandScript
  437.                         startOnlineDoc 
  438.                         #CTGENEndCommandScript  
  439.                         #CTGENRemoveMessage
  440.                         wmtkmessage ""
  441.                         #CTGENBusyCursorOff
  442.                         .main busy FALSE
  443.                 }
  444.         }
  445. }
  446.  
  447. registerObject {
  448.     type        CustMenuPushButton
  449.     name        .help.menu.aboutrepositorytool
  450.     objSpec {
  451.         hintText    "Shows version information."
  452.         label        "About Repository Tool"
  453.         mnemonic    A
  454.         activated    {showVersionDialog [%this label]}
  455.     }
  456. }
  457.