home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / reptool.mnu < prev    next >
Text File  |  1997-06-27  |  4KB  |  188 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. }
  15.  
  16. registerObject {
  17.         name            .view
  18.         type            CustMenuBarButton
  19.         objSpec         {
  20.                 label           View
  21.                 mnemonic        V
  22.         }
  23. }
  24.  
  25. registerObject {
  26.         name            .view.menu
  27.         type            CustMenu
  28. }
  29.  
  30. registerObject  {
  31.     name        .options
  32.     type        CustMenuBarButton
  33.     objSpec        {
  34.         label        Options
  35.         mnemonic    O
  36.     }
  37. }
  38.  
  39. registerObject  {
  40.     name        .options.menu
  41.     type        CustMenu
  42. }
  43.  
  44. registerObject  {
  45.     name        .help
  46.     type        CustMenuBarButton
  47.     objSpec        {
  48.         label        Help
  49.         mnemonic    H
  50.         helpButton    1
  51.     }
  52. }
  53.  
  54. registerObject  {
  55.     name        .help.menu
  56.     type        CustMenu
  57.     visible        {1 1 1 1 1}
  58.     objSpec        {
  59.         pinnable    1
  60.     }
  61. }
  62.  
  63. registerObject  {
  64.     inPopUpMenu    1
  65.     name        .file.menu.open
  66.     type        CustMenuPushButton
  67.     objSpec        {
  68.         label        Open
  69.         mnemonic    o
  70.         hintText    {Starts the selected tool.}
  71.         accelerator    Ctrl+O
  72.         activated    {
  73.             #CTGENCommandScript
  74.             busy { .main fileOpen } 
  75.             #CTGENEndCommandScript    
  76.         }
  77.         selIsATypes    {}
  78.         selCount    1
  79.         checkOn        selectionChange
  80.     }
  81. }
  82.  
  83. registerObject  {
  84.     name        .file.menu.user_1
  85.     type        CustMenuSeparator
  86.     objSpec        {
  87.     }
  88. }
  89.  
  90. registerObject  {
  91.     name        .file.menu.exit
  92.     type        CustMenuPushButton
  93.     objSpec        {
  94.         hintText    {Exits the Repository Tool.}
  95.         label        Exit
  96.         mnemonic    x
  97.         activated    {busy { .main fileExit }}
  98.     }
  99. }
  100.  
  101. registerObject {
  102.         name            .view.menu.messagearea
  103.         type            CustMenuCheckButton
  104.         objSpec         {
  105.                 hintText        "Shows or hides the message area."
  106.                 label           "Message Area"
  107.                 mnemonic        M
  108.                 state           1
  109.                 stateChanged    {
  110.                         #CTGENCommandScript
  111.                         .main messageAreaPresent [[.main menuBar].view.menu.messagearea state]
  112.                         #CTGENEndCommandScript  
  113.                 }
  114.         }
  115. }
  116.  
  117. registerObject  {
  118.     name        .options.menu.font
  119.     type        CustMenuPushButton
  120.     objSpec        {
  121.         label        {Font...}
  122.         hintText    "Changes the font used by the tool icons."
  123.         mnemonic    F
  124.         activated    {busy { .main optionsFont }}
  125.         selIsATypes    {}
  126.     }
  127. }
  128.  
  129. registerObject  {
  130.     name        .help.menu.whatsthis
  131.     type        CustMenuPushButton
  132.     objSpec        {
  133.         hintText    {Shows help about the selected component.}
  134.         label        "What's This?"
  135.         mnemonic    W
  136.         activated    {
  137.             #CTGENCommandScript
  138.             .main helpOnContext 
  139.             #CTGENEndCommandScript    
  140.         }
  141.     }
  142. }
  143.  
  144.  
  145. registerObject  {
  146.     name        .help.menu.helptopics
  147.     type        CustMenuPushButton
  148.     objSpec        {
  149.         hintText    {Shows help topics.}
  150.         label        {Help Topics}
  151.         mnemonic    T
  152.         activated    showHelpTopics
  153.     }
  154. }
  155.  
  156. registerObject  {
  157.         name            .help.menu.productdocumentation
  158.         type            CustMenuPushButton
  159.         objSpec         {
  160.                 label           {Product Documentation}
  161.                 hintText        {Starts online documentation.}
  162.                 activated       {
  163.                         #CTGENMessage
  164.                         wmtkmessage {Start online documentation ...}
  165.                         #CTGENBusyCursorOn
  166.                         .main busy TRUE
  167.                         #CTGENCommandScript
  168.                         startOnlineDoc 
  169.                         #CTGENEndCommandScript  
  170.                         #CTGENRemoveMessage
  171.                         wmtkmessage ""
  172.                         #CTGENBusyCursorOff
  173.                         .main busy FALSE
  174.                 }
  175.         }
  176. }
  177.  
  178. registerObject {
  179.     type        CustMenuPushButton
  180.     name        .help.menu.aboutrepositorytool
  181.     objSpec {
  182.         hintText    "Shows version information."
  183.         label        "About Repository Tool"
  184.         mnemonic    A
  185.         activated    {showVersionDialog [%this label]}
  186.     }
  187. }
  188.