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