home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / objtced.mnu < prev    next >
Text File  |  1997-10-24  |  10KB  |  556 lines
  1. registerObject {
  2.     type        CustMenuBarButton
  3.     name        .file
  4.     readOnly    1
  5.     objSpec {
  6.         label        File
  7.         mnemonic    F
  8.         }
  9. }
  10.  
  11. registerObject {
  12.     type        CustMenu
  13.     name        .file.menu
  14.     readOnly    1
  15.     objSpec {
  16.         pinnable    1
  17.     }
  18. }
  19.  
  20. registerObject {
  21.     type    CustMenuPushButton
  22.     name    .file.menu.reload
  23.     readOnly    1
  24.     objSpec {
  25.         hintText    "Reloads the edited customization file."
  26.         label        "Reload"
  27.         mnemonic    l
  28.         accelerator    Ctrl+r
  29.         activated    {.main edit [.main object]}
  30.     }
  31. }
  32.  
  33. registerObject {
  34.     type    CustMenuPushButton
  35.     name    .file.menu.save
  36.     readOnly    1
  37.     inToolBar    1
  38.     objSpec {
  39.         hintText    "Saves the edited customization file."
  40.         label        Save
  41.         mnemonic    S
  42.         accelerator    Ctrl+S
  43.         toolBarPixmap    save_16
  44.         checkOn        levelChange
  45.         enableScript    {
  46.             if [.main currentlyReadOnly] {
  47.                 %this sensitive 0
  48.             } else {
  49.                 %this sensitive 1
  50.             }
  51.         }
  52.         activated    {.main save}
  53.     }
  54. }
  55.  
  56. registerObject {
  57.     type        CustMenuSeparator
  58.     name        .file.menu.separator2
  59.     readOnly    1
  60. }
  61.  
  62. registerObject {
  63.     type    CustMenuPushButton
  64.     name    .file.menu.exit
  65.     readOnly    1
  66.     objSpec {
  67.         hintText    "Exits the editor."
  68.         label        "Exit"
  69.         mnemonic    x
  70.         activated    {.main exit}
  71.     }
  72. }
  73.  
  74. registerObject {
  75.     type    CustMenuBarButton
  76.     name    .edit
  77.     readOnly    1
  78.     objSpec {
  79.         label        Edit
  80.         mnemonic    E
  81.     }
  82. }
  83.  
  84. registerObject {
  85.     type    CustMenu
  86.     name    .edit.menu
  87.     readOnly    1
  88.     objSpec {
  89.         pinnable    1
  90.     }
  91. }
  92.  
  93. registerObject {
  94.     type        CustMenuPushButton
  95.     name        .edit.menu.new
  96.     readOnly    1
  97.     objSpec {
  98.         hintText    "Creates a new view object."
  99.         label        "New..."
  100.         mnemonic    N
  101.         checkOn        levelChange
  102.         enableScript    {
  103.             if [.main currentlyReadOnly] {
  104.                 %this sensitive 0
  105.             } else {
  106.                 %this sensitive 1
  107.             }
  108.         }
  109.         activated    { 
  110.             if {[catch {.main.newObject popUp}]} {
  111.                 require "newobjectd.tcl"
  112.                 NewObjectDialog new .main.newObject
  113.                 .main.newObject popUp
  114.             }
  115.         }
  116.     }
  117. }
  118.  
  119. registerObject {
  120.     type    CustMenuPushButton
  121.     name    .edit.menu.editproperties
  122.     inPopUpMenu    1
  123.     readOnly    1
  124.     objSpec {
  125.         hintText    "Edits the properties of the selected object."
  126.         label        "Edit Properties"
  127.         mnemonic    E
  128.         selCount    1
  129.         checkOn         selectionChange
  130.         enableScript    {
  131.             if {![[[.main editorArea] selectedSet] editable]} {
  132.                 %this sensitive 0
  133.             } else {
  134.                 if [.main currentlyReadOnly] {
  135.                     %this sensitive 0
  136.                 } else {
  137.                     %this sensitive 1
  138.                 }
  139.             }
  140.         }
  141.         activated    { 
  142.             [[.main editorArea] selectedSet] open
  143.         }
  144.     }
  145. }
  146.  
  147. registerObject {
  148.     type    CustMenuPushButton
  149.     name    .edit.menu.showproperties
  150.     readOnly    1
  151.     inPopUpMenu    1
  152.     objSpec {
  153.         hintText    "Shows the properties of the selected object."
  154.         label        "Show Properties"
  155.         mnemonic    E
  156.         selCount    1
  157.         checkOn         selectionChange
  158.         activated    { 
  159.             set editable [[[.main editorArea] selectedSet] editable]
  160.             [[.main editorArea] selectedSet] editable 0
  161.             [[.main editorArea] selectedSet] open
  162.             [[.main editorArea] selectedSet] editable $editable
  163.         }
  164.     }
  165. }
  166.  
  167. registerObject {
  168.     type    CustMenuPushButton
  169.     name    .edit.menu.redefine
  170.     readOnly    1
  171.     inToolBar    1
  172.     inPopUpMenu    1
  173.     objSpec {
  174.         hintText    "Create a new object with the properties of the selected one."
  175.         label        "Redefine"
  176.         mnemonic    R
  177.         selCount    1
  178.         checkOn         selectionChange
  179.         toolBarPixmap    copy_16
  180.         enableScript    {
  181.             if [.main currentlyReadOnly] {
  182.                 %this sensitive 0
  183.             } else {
  184.                 %this sensitive 1
  185.             }
  186.         }
  187.         activated    { 
  188.             set obj [[.main editorArea] selectedSet]
  189.             set newObj [[.main editorArea] redefineObject $obj]
  190.             if [isCommand $newObj] {
  191.                 wmtkmessage "'[$obj name]' redefined, starting edit..."
  192.                 $newObj redefined 1
  193.                 $newObj open    
  194.                 wmtkmessage ""
  195.             } else {
  196.                 wmtkwarning $newObj
  197.             }
  198.         }
  199.     }
  200. }
  201.  
  202. registerObject {
  203.     type        CustMenuSeparator
  204.     name        .edit.menu.separator1
  205.     readOnly    1
  206. }
  207.  
  208. registerObject {
  209.     type    CustMenuPushButton
  210.     name    .edit.menu.info
  211.     readOnly    1
  212.     inToolBar    1
  213.     inPopUpMenu    1
  214.     objSpec {
  215.         hintText    "Gives info on the selected object"
  216.         label        "Info"
  217.         mnemonic    I
  218.         selCount    1
  219.         checkOn         selectionChange
  220.         activated    { 
  221.             set obj [[.main editorArea] selectedSet]
  222.             set withHelp 1
  223.             .main showObjectInfo $obj $withHelp
  224.         }
  225.         toolBarPixmap    info_16
  226.        }
  227. }
  228.  
  229. registerObject {
  230.     type        CustMenuSeparator
  231.     name        .edit.menu.separator3
  232.     readOnly    1
  233. }
  234.  
  235. registerObject {
  236.     type    CustMenuPushButton
  237.     name    .edit.menu.delete
  238.     readOnly    1
  239.     inToolBar    1
  240.     inPopUpMenu    1
  241.     objSpec {
  242.         hintText    "Deletes the selected object."
  243.         label        "Delete"
  244.         mnemonic    D
  245.         accelerator     Del
  246.         selCount    many
  247.         checkOn         selectionChange
  248.         enableScript    {
  249.             if [.main currentlyReadOnly] {
  250.                 %this sensitive 0
  251.             } else {
  252.                 %this sensitive 1
  253.                 foreach obj [[.main editorArea] selectedSet] {
  254.                     if {![$obj editable]} {
  255.                         %this sensitive 0
  256.                     }
  257.                 }
  258.             }
  259.         }
  260.         activated    { 
  261.             [.main editorArea] deleteObjects [[.main editorArea] selectedSet]
  262.         }
  263.         toolBarPixmap    delete_16
  264.     }
  265. }
  266.  
  267. registerObject {
  268.     type    CustMenuBarButton
  269.     name    .view
  270.     readOnly    1
  271.     objSpec {
  272.         label        View
  273.         mnemonic    V
  274.     }
  275. }
  276.  
  277. registerObject {
  278.     type    CustMenu
  279.     name    .view.menu
  280.     readOnly    1
  281.     objSpec {
  282.         pinnable    1
  283.     }
  284. }
  285.  
  286. registerObject {
  287.     type    CustMenuCheckButton
  288.     name    .view.menu.toolbar
  289.     objSpec {
  290.         hintText    "Shows or hides the toolbar."
  291.         label        ToolBar
  292.         mnemonic    T
  293.         state        1
  294.         stateChanged    {
  295.             .main toolBarPresent [[.main menuBar].view.menu.toolbar state]
  296.         }
  297.     }
  298. }
  299.  
  300. registerObject {
  301.     type    CustMenuCheckButton
  302.     name    .view.menu.contextarea
  303.     objSpec {
  304.         hintText    "Shows or hides the context area."
  305.         label        "Context Area"
  306.         mnemonic    C
  307.         state        1
  308.         stateChanged    {
  309.             .main contextAreaPresent [[.main menuBar].view.menu.contextarea state]
  310.         }
  311.     }
  312. }
  313.  
  314. registerObject {
  315.     type    CustMenuCheckButton
  316.     name    .view.menu.messagearea
  317.     objSpec {
  318.         hintText    "Shows or hides the message area."
  319.         label        "Message Area"
  320.         mnemonic    M
  321.         state        1
  322.         stateChanged    {
  323.             .main messageAreaPresent [[.main menuBar].view.menu.messagearea state]
  324.         }
  325.     }
  326. }
  327.  
  328. registerObject {
  329.     type        CustMenuSeparator
  330.     name        .view.menu.separator1
  331. }
  332.  
  333. registerObject {
  334.     type    CustMenuArbiter
  335.     name    .view.menu.viewmodearbiter
  336.     readOnly    1
  337.     objSpec { 
  338.     }
  339. }
  340.  
  341. registerObject {
  342.     type    CustMenuRadioButton
  343.     name    .view.menu.icon
  344.     readOnly    1
  345.     arbiter        viewmodearbiter
  346.     inToolBar    1
  347.     objSpec {
  348.         hintText    "Switches view to normal icon mode."
  349.         label        "Icon"
  350.         mnemonic    I
  351.         stateChanged    { [.main editorArea] mode ICON }
  352.         toolBarPixmap    viewlicons_16
  353.     }
  354. }
  355.  
  356. registerObject {
  357.     type    CustMenuRadioButton
  358.     name    .view.menu.smallicon
  359.     readOnly    1
  360.     arbiter        viewmodearbiter
  361.     inToolBar    1
  362.     objSpec { 
  363.         hintText    "Switches view to small icon mode."
  364.         label        "Small Icon"
  365.         mnemonic    S
  366.         stateChanged    { [.main editorArea] mode SMALLICON }
  367.         toolBarPixmap    viewsicons_16
  368.     }
  369. }
  370.  
  371. registerObject {
  372.     type    CustMenuRadioButton
  373.     name    .view.menu.detail
  374.     readOnly    1
  375.     arbiter        viewmodearbiter
  376.     inToolBar    1
  377.     objSpec { 
  378.         hintText    "Switches view to detail mode."
  379.         label        "Detail"
  380.         mnemonic    D
  381.         stateChanged    { [.main editorArea] mode DETAIL }
  382.         toolBarPixmap    viewdetails_16
  383.     }
  384. }
  385.  
  386. registerObject {
  387.     type    CustMenuBarButton
  388.     name    .options
  389.     objSpec {
  390.         label        Options
  391.         mnemonic    O
  392.     }
  393. }
  394.  
  395. registerObject {
  396.     type    CustMenu
  397.     name    .options.menu
  398.     objSpec {
  399.         pinnable    1
  400.     }
  401. }
  402.  
  403. registerObject {
  404.     type    CustMenuPushButton
  405.     name    .options.menu.font
  406.     objSpec {
  407.         hintText    "Changes the view font."
  408.         label        "Font..."
  409.         mnemonic    F
  410.         activated    {[.main options] font}
  411.     }
  412. }
  413.  
  414. registerObject {
  415.     type        CustMenuBarButton
  416.     name        .filter
  417.     objSpec
  418.     {
  419.         label        "Filter"
  420.         mnemonic    i
  421.     }
  422. }
  423.  
  424. registerObject {
  425.     type        CustMenu
  426.     name        .filter.menu
  427.     objSpec
  428.     {
  429.         pinnable    1
  430.     }
  431. }
  432.  
  433. registerObject {
  434.     type        CustMenuCheckButton
  435.     name        .filter.menu.filteronactiveentries
  436.     objSpec
  437.     {
  438.         hintText    "Filters out the not active entries."
  439.         label        "Filter On Active Entries"
  440.         mnemonic    A
  441.         stateChanged    { set filter [[.main editorArea] filter]
  442.                   $filter activeFilter [%this state]
  443.                   if {[isCommand [.main wmtArea]]} {
  444.                       if [$filter isFilterActive] {
  445.                         [.main wmtArea] filter "On"    
  446.                       } else {
  447.                         [.main wmtArea] filter "Off"    
  448.                       }
  449.                   }
  450.         }
  451.     }
  452. }
  453.  
  454. registerObject {
  455.     type        CustMenuCheckButton
  456.     name        .filter.menu.filteroncurrentfileentries
  457.     objSpec
  458.     {
  459.         hintText    "Filters out those objects that not in the edited file."
  460.         label        "Filter On Current File Entries"
  461.         mnemonic    F
  462.         stateChanged    { set filter [[.main editorArea] filter]
  463.                   $filter fileFilter [%this state]
  464.                   if {[isCommand [.main wmtArea]]} {
  465.                       if [$filter isFilterActive] {
  466.                         [.main wmtArea] filter "On"    
  467.                       } else {
  468.                         [.main wmtArea] filter "Off"    
  469.                       }
  470.                   }
  471.         }
  472.     }
  473. }
  474.  
  475. registerObject {
  476.     type    CustMenuBarButton
  477.     name    .help
  478.     readOnly    1
  479.     objSpec {
  480.         label        Help
  481.         mnemonic    H
  482.         helpButton    1
  483.     }
  484. }
  485.  
  486. registerObject {
  487.     type    CustMenu
  488.     name    .help.menu
  489.     readOnly    1
  490.     objSpec {
  491.         pinnable    1
  492.     }
  493. }
  494.  
  495. registerObject {
  496.     type    CustMenuPushButton
  497.     name    .help.menu.whatsthis
  498.     readOnly    1
  499.     objSpec {
  500.         hintText    "Shows context sensitive help."
  501.         label        "What's This?"
  502.         mnemonic    W
  503.         activated    {.main helpOnContext}
  504.     }
  505. }
  506.  
  507.  
  508. registerObject {
  509.     type    CustMenuPushButton
  510.     name    .help.menu.helptopics
  511.     readOnly    1
  512.     objSpec {
  513.     hintText    "Shows help topics."
  514.     label        "Help Topics"
  515.     mnemonic    T
  516.     activated    {showHelpTopics}
  517.     }
  518. }
  519.  
  520. registerObject  {
  521.     name        .help.menu.productdocumentation
  522.     type        CustMenuPushButton
  523.     objSpec        {
  524.         label        {Product Documentation}
  525.         hintText    {Starts online documentation.}
  526.         activated    {
  527.             #CTGENMessage
  528.             wmtkmessage {Start online documentation ...}
  529.             #CTGENBusyCursorOn
  530.             .main busy TRUE
  531.             #CTGENCommandScript
  532.             startOnlineDoc 
  533.             #CTGENEndCommandScript    
  534.             #CTGENRemoveMessage
  535.             wmtkmessage ""
  536.             #CTGENBusyCursorOff
  537.             .main busy FALSE
  538.         }
  539.     }
  540. }
  541.  
  542. registerObject {
  543.     type    CustMenuPushButton
  544.     name    .help.menu.aboutobjecttypecustomizationeditor
  545.     readOnly    1
  546.     objSpec {
  547.         hintText    "Shows version information."
  548.         label        "About Object Type Customization Editor"
  549.         mnemonic    A
  550.         activated    {
  551.             showVersionDialog [%this label]
  552.         }
  553.     }
  554. }
  555.  
  556.