home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / repcorp.mnu < prev    next >
Text File  |  1997-11-06  |  11KB  |  509 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.     objSpec        {
  50.         pinnable    1
  51.     }
  52. }
  53.  
  54. registerObject  {
  55.     name        .help
  56.     type        CustMenuBarButton
  57.     objSpec        {
  58.         label        Help
  59.         mnemonic    H
  60.         helpButton    1
  61.     }
  62. }
  63.  
  64. registerObject  {
  65.     name        .help.menu
  66.     type        CustMenu
  67.     objSpec        {
  68.         pinnable    1
  69.     }
  70. }
  71.  
  72. registerObject  {
  73.     inToolBar    1
  74.     name        .file.menu.new
  75.     type        CustMenuPushButton
  76.     objSpec        {
  77.         label        New...
  78.         hintText    "Creates a new repository."
  79.         popUpLabel    "Create a new repository..."
  80.         mnemonic    N
  81.         toolBarPixmap    rep_new_16
  82.         activated    {
  83.             #CTGENCommandScript
  84.             busy { .main fileNew } 
  85.             #CTGENEndCommandScript    
  86.         }
  87.         selIsATypes    {}
  88.     }
  89. }
  90.  
  91. registerObject  {
  92.     inToolBar    1
  93.     name        .file.menu.delete
  94.     type        CustMenuPushButton
  95.     objSpec        {
  96.         label        Delete...
  97.         hintText    "Deletes the repository."
  98.         popUpLabel    "Delete the 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.                 popUpLabel      "Start browser..."
  128.         activated    {
  129.             #CTGENCommandScript
  130.             busy { .main fileOpen } 
  131.             #CTGENEndCommandScript    
  132.         }
  133.         selIsATypes    {}
  134.         selCount    1
  135.         checkOn        selectionChange
  136.                 enableScript {
  137.                         %this sensitive [.main validCorporate]
  138.                 }
  139.     }
  140. }
  141.  
  142.  
  143. registerObject  {
  144.     name        .file.menu.user_2
  145.     type        CustMenuSeparator
  146.     objSpec        {
  147.     }
  148. }
  149.  
  150. registerObject  {
  151.     name        .file.menu.change
  152.     type        CustCascadeButton
  153.     objSpec        {
  154.         label        Change
  155.         mnemonic    C
  156.     }
  157. }
  158.  
  159. registerObject  {
  160.     name        .file.menu.change.menu
  161.     type        CustMenu
  162.     visible        {1 1 1 1 1}
  163. }
  164.  
  165. registerObject  {
  166.     name        .file.menu.makedefault
  167.     type        CustMenuPushButton
  168.     objSpec        {
  169.         label        {Make Default}
  170.         hintText    "Makes the selected repository the default repository."
  171.         mnemonic    D
  172.         activated    {
  173.             #CTGENCommandScript
  174.             busy { .main fileMakeDefault } 
  175.             #CTGENEndCommandScript    
  176.         }
  177.         selIsATypes    {}
  178.         selCount    1
  179.         checkOn        selectionChange
  180.                 enableScript {
  181.                         %this sensitive [.main validCorporate]
  182.                 }
  183.     }
  184. }
  185.  
  186. registerObject  {
  187.     name        .file.menu.user_3
  188.     type        CustMenuSeparator
  189.     objSpec        {
  190.     }
  191. }
  192.  
  193. registerObject  {
  194.     inToolBar    1
  195.     name        .file.menu.optimize
  196.     type        CustMenuPushButton
  197.     objSpec        {
  198.         label        Optimize...
  199.         hintText    "Optimizes a repository database."
  200.         mnemonic    O
  201.         toolBarPixmap    rep_optim_16
  202.         activated    {
  203.             #CTGENCommandScript
  204.             busy { .main fileOptimize } 
  205.             #CTGENEndCommandScript    
  206.         }
  207.         selIsATypes    {}
  208.         selCount    1
  209.         checkOn        selectionChange
  210.     }
  211. }
  212.  
  213. registerObject  {
  214.     name        .file.menu.backup
  215.     type        CustCascadeButton
  216.     objSpec        {
  217.         label        Backup
  218.         mnemonic    B
  219.     }
  220. }
  221.  
  222. registerObject  {
  223.     name        .file.menu.backup.menu
  224.     type        CustMenu
  225.     visible        {1 1 1 1 1}
  226. }
  227.  
  228. registerObject  {
  229.     inToolBar    1
  230.     name        .file.menu.backup.menu.entirerepository
  231.     type        CustMenuPushButton
  232.     objSpec        {
  233.         label        {Entire Repository...}
  234.         hintText    "Dumps the entire repository and archives it."
  235.         popUpLabel    "Backup the repository..."
  236.         mnemonic    E
  237.         toolBarPixmap    rep_backup_16
  238.         activated    {
  239.             #CTGENCommandScript
  240.             busy { .main fileBackup Corporate } 
  241.             #CTGENEndCommandScript    
  242.         }
  243.         selIsATypes    {}
  244.         selCount    1
  245.         checkOn        selectionChange
  246.     }
  247. }
  248.  
  249. registerObject  {
  250.     name        .file.menu.restore
  251.     type        CustCascadeButton
  252.     objSpec        {
  253.         label        Restore
  254.         mnemonic    R
  255.     }
  256. }
  257.  
  258. registerObject  {
  259.     name        .file.menu.restore.menu
  260.     type        CustMenu
  261.     visible        {1 1 1 1 1}
  262. }
  263.  
  264. registerObject  {
  265.     inToolBar    1
  266.     name        .file.menu.restore.menu.entirerepository
  267.     type        CustMenuPushButton
  268.     objSpec        {
  269.         label        {Entire Repository...}
  270.         hintText    "Restores a previously backed up repository."
  271.         popUpLabel    "Restore a repository..."
  272.         mnemonic    E
  273.         toolBarPixmap    rep_restore_16
  274.         activated    {
  275.             #CTGENCommandScript
  276.             busy { .main fileRestore Corporate } 
  277.             #CTGENEndCommandScript    
  278.         }
  279.         selIsATypes    {}
  280.     }
  281. }
  282.  
  283. registerObject  {
  284.     name        .file.menu.user_4
  285.     type        CustMenuSeparator
  286.     objSpec        {
  287.     }
  288. }
  289.  
  290. registerObject  {
  291.     name        .file.menu.exit
  292.     type        CustMenuPushButton
  293.     objSpec        {
  294.         label        Exit
  295.         mnemonic    x
  296.         hintText    {Exits the tool.}
  297.         activated    {busy { .main fileExit }}
  298.         selIsATypes    {}
  299.     }
  300. }
  301.  
  302. registerObject  {
  303.     name        .file.menu.change.menu.repositoryname
  304.     type        CustMenuPushButton
  305.     objSpec        {
  306.         label        {Name...}
  307.         hintText    "Changes name and/or directory of a repository."
  308.         popUpLabel    "Change repository name and/or directory..."
  309.         mnemonic    N
  310.         activated    {
  311.             #CTGENCommandScript
  312.             busy { .main fileChangeName } 
  313.             #CTGENEndCommandScript    
  314.         }
  315.         selIsATypes    {}
  316.         selCount    1
  317.         checkOn        selectionChange
  318.     }
  319. }
  320.  
  321. registerObject  {
  322.     inToolBar    1
  323.     name        .file.menu.change.menu.serverentry
  324.     type        CustMenuPushButton
  325.     objSpec        {
  326.         label        {Server Definition...}
  327.         hintText    "Changes the server definition of a repository."
  328.         popUpLabel    "Change repository server definition..."
  329.         mnemonic    S
  330.         toolBarPixmap    rep_chdef_16
  331.         activated    {
  332.             #CTGENCommandScript
  333.             busy { .main fileChangeServerEntry } 
  334.             #CTGENEndCommandScript    
  335.         }
  336.         selIsATypes    {}
  337.         selCount    1
  338.         checkOn        selectionChange
  339.     }
  340. }
  341.  
  342. registerObject  {
  343.     inToolBar    1
  344.     name        .view.menu.refresh
  345.     type        CustMenuPushButton
  346.     objSpec        {
  347.         label        Refresh
  348.         hintText    "Refreshes the repository information."
  349.         mnemonic    R
  350.         accelerator    Ctrl+R
  351.         toolBarPixmap    rep_refresh_16
  352.         activated    {busy { .main viewRefresh }}
  353.         selIsATypes    {}
  354.     }
  355. }
  356.  
  357. registerObject  {
  358.     name        .view.menu.user_5
  359.     type        CustMenuSeparator
  360.     objSpec        {
  361.     }
  362. }
  363.  
  364. registerObject {
  365.         name            .view.menu.toolbar
  366.         type            CustMenuCheckButton
  367.         objSpec         {
  368.                 hintText        "Shows or hides the toolbar."
  369.                 label           ToolBar
  370.                 mnemonic        T
  371.                 state           1
  372.                 stateChanged    {
  373.             .main toolBarPresent [[.main menuBar].view.menu.toolbar state]
  374.                 }
  375.         }
  376. }
  377.  
  378. registerObject {
  379.         name            .view.menu.contextarea
  380.         type            CustMenuCheckButton
  381.         objSpec         {
  382.                 hintText        "Shows or hides the context area."
  383.                 label           "Context Area"
  384.                 mnemonic        C
  385.                 state           1
  386.                 stateChanged    {
  387.             .main contextAreaPresent [[.main menuBar].view.menu.contextarea state]
  388.                 }
  389.         }
  390. }
  391.  
  392. registerObject {
  393.         name            .view.menu.messagearea
  394.         type            CustMenuCheckButton
  395.         objSpec         {
  396.                 hintText        "Shows or hides the message area."
  397.                 label           "Message Area"
  398.                 mnemonic        M
  399.                 state           1
  400.                 stateChanged    {
  401.             .main messageAreaPresent [[.main menuBar].view.menu.messagearea state]
  402.                 }
  403.         }
  404. }
  405.  
  406. registerObject  {
  407.     name        .options.menu.font
  408.     type        CustMenuPushButton
  409.     objSpec        {
  410.         label        {Font...}
  411.         hintText    "Changes the information area font (M4_font__repcorp)."
  412.         mnemonic    F
  413.         activated    {busy { .main optionsFont }}
  414.         selIsATypes    {}
  415.     }
  416. }
  417.  
  418. registerObject  {
  419.     name        .options.menu.archivecommand
  420.     type        CustMenuPushButton
  421.     objSpec        {
  422.         label        {Archive Command...}
  423.         hintText    "Changes the command or script used to archive a dumped repository (M4_archive_cmd)."
  424.         mnemonic    A
  425.         activated    {
  426.             #CTGENCommandScript
  427.             busy { .main optionsArchiveCmd } 
  428.             #CTGENEndCommandScript    
  429.         }
  430.         selIsATypes    {}
  431.     }
  432. }
  433.  
  434. registerObject  {
  435.     name        .options.menu.unarchivecommand
  436.     type        CustMenuPushButton
  437.     objSpec        {
  438.         label        {Unarchive Command...}
  439.         hintText    "Changes the command or script used to unarchive a repository backup (M4_unarchive_cmd)."
  440.         mnemonic    U
  441.         activated    {
  442.             #CTGENCommandScript
  443.             busy { .main optionsUnarchiveCmd } 
  444.             #CTGENEndCommandScript    
  445.         }
  446.         selIsATypes    {}
  447.     }
  448. }
  449.  
  450. registerObject  {
  451.     name        .help.menu.whatsthis
  452.     type        CustMenuPushButton
  453.     objSpec        {
  454.         hintText    {Shows help about the selected component.}
  455.         label        "What's This?"
  456.         mnemonic    W
  457.         activated    {
  458.             #CTGENCommandScript
  459.             .main helpOnContext 
  460.             #CTGENEndCommandScript    
  461.         }
  462.     }
  463. }
  464.  
  465.  
  466. registerObject  {
  467.     name        .help.menu.helptopics
  468.     type        CustMenuPushButton
  469.     objSpec        {
  470.         hintText    {Shows help topics.}
  471.         label        {Help Topics}
  472.         mnemonic    T
  473.         activated    showHelpTopics
  474.     }
  475. }
  476.  
  477. registerObject  {
  478.         name            .help.menu.productdocumentation
  479.         type            CustMenuPushButton
  480.         objSpec         {
  481.                 label           {Product Documentation}
  482.                 hintText        {Starts online documentation.}
  483.                 activated       {
  484.                         #CTGENMessage
  485.                         wmtkmessage {Start online documentation ...}
  486.                         #CTGENBusyCursorOn
  487.                         .main busy TRUE
  488.                         #CTGENCommandScript
  489.                         startOnlineDoc 
  490.                         #CTGENEndCommandScript  
  491.                         #CTGENRemoveMessage
  492.                         wmtkmessage ""
  493.                         #CTGENBusyCursorOff
  494.                         .main busy FALSE
  495.                 }
  496.         }
  497. }
  498.  
  499. registerObject {
  500.     type        CustMenuPushButton
  501.     name        .help.menu.aboutrepositorytool
  502.     objSpec {
  503.         hintText    "Shows version information."
  504.         label        "About Repository Tool"
  505.         mnemonic    A
  506.         activated    {showVersionDialog [%this label] 1}
  507.     }
  508. }
  509.