home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / defsced.mnu < prev    next >
Text File  |  1997-03-11  |  8KB  |  445 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        CustMenuSeparator
  19.     name        .file.menu.separator1
  20.     readOnly    1
  21. }
  22.  
  23. registerObject {
  24.     type    CustMenuPushButton
  25.     name    .file.menu.reload
  26.     readOnly    1
  27.     objSpec {
  28.         hintText    "Reloads the edited customization file."
  29.         label        "Reload"
  30.         mnemonic    l
  31.         accelerator    Ctrl+r
  32.         activated    {.main edit [.main object]}
  33.     }
  34. }
  35.  
  36. registerObject {
  37.     type    CustMenuPushButton
  38.     name    .file.menu.save
  39.     readOnly    1
  40.     inToolBar    1
  41.     objSpec {
  42.         hintText    "Saves the edited customization file."
  43.         label        Save
  44.         mnemonic    S
  45.         accelerator    Ctrl+S
  46.         toolBarPixmap    save_16
  47.         checkOn        levelChange
  48.         enableScript    {
  49.             if [.main currentlyReadOnly] {
  50.                 %this sensitive 0
  51.             } else {
  52.                 %this sensitive 1
  53.             }
  54.         }
  55.         activated    {.main save}
  56.     }
  57. }
  58.  
  59. registerObject {
  60.     type        CustMenuSeparator
  61.     name        .file.menu.separator2
  62.     readOnly    1
  63. }
  64.  
  65. registerObject {
  66.     type    CustMenuPushButton
  67.     name    .file.menu.exit
  68.     readOnly    1
  69.     objSpec {
  70.         hintText    "Exits the editor."
  71.         label        "Exit"
  72.         mnemonic    x
  73.         activated    {.main exit}
  74.     }
  75. }
  76.  
  77. registerObject {
  78.     type    CustMenuBarButton
  79.     name    .edit
  80.     readOnly    1
  81.     objSpec {
  82.         label        Edit
  83.         mnemonic    E
  84.     }
  85. }
  86.  
  87. registerObject {
  88.     type    CustMenu
  89.     name    .edit.menu
  90.     readOnly    1
  91.     objSpec {
  92.     }
  93. }
  94.  
  95. registerObject {
  96.     type        CustMenuPushButton
  97.     name        .edit.menu.new
  98.     readOnly    1
  99.     objSpec {
  100.         hintText    "Creates a new object."
  101.         label        "New..."
  102.         mnemonic    N
  103.         checkOn        levelChange
  104.         enableScript    {
  105.             if [.main currentlyReadOnly] {
  106.                 %this sensitive 0
  107.             } else {
  108.                 %this sensitive 1
  109.             }
  110.         }
  111.         activated    {.main.newObject popUp}
  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    {[[.main editorArea] selectedSet] open}
  137.     }
  138. }
  139.  
  140. registerObject {
  141.     type        CustMenuSeparator
  142.     name        .edit.menu.separator1
  143.     readOnly    1
  144. }
  145.  
  146. registerObject {
  147.     type    CustMenuPushButton
  148.     name    .edit.menu.info
  149.     readOnly    1
  150.     inToolBar    1
  151.     objSpec {
  152.         hintText    "Gives info on the selected object."
  153.         label        "Info"
  154.         mnemonic    I
  155.         selCount    1
  156.         checkOn        selectionChange
  157.         activated    { 
  158.             set obj [[.main editorArea] selectedSet]
  159.             .main showObjectInfo $obj
  160.         }
  161.         toolBarPixmap    info_16
  162.     }
  163. }
  164.  
  165. registerObject {
  166.     type        CustMenuSeparator
  167.     name        .edit.menu.separator3
  168.     readOnly    1
  169. }
  170.  
  171. registerObject {
  172.     type    CustMenuPushButton
  173.     name    .edit.menu.delete
  174.     readOnly    1
  175.     inToolBar    1
  176.     objSpec {
  177.         hintText    "Deletes the selected object."
  178.         label        "Delete"
  179.         mnemonic    D
  180.         accelerator     Del
  181.         selCount    many
  182.         checkOn        selectionChange
  183.         enableScript    {
  184.             if [.main currentlyReadOnly] {
  185.                 %this sensitive 0
  186.             } else {
  187.                 %this sensitive 1
  188.                 foreach obj [[.main editorArea] selectedSet] {
  189.                     if {![$obj editable]} {
  190.                         %this sensitive 0
  191.                     }
  192.                 }
  193.             }
  194.         }
  195.         activated    { 
  196.             [.main editorArea] deleteObjects  [[.main editorArea] selectedSet]
  197.         }
  198.         toolBarPixmap    delete_16
  199.     }
  200. }
  201.  
  202. registerObject {
  203.     type    CustMenuBarButton
  204.     name    .view
  205.     readOnly    1
  206.     objSpec {
  207.         label        View
  208.         mnemonic    V
  209.     }
  210. }
  211.  
  212. registerObject {
  213.     type    CustMenu
  214.     name    .view.menu
  215.     readOnly    1
  216.     objSpec { 
  217.     }
  218. }
  219.  
  220. registerObject {
  221.     type    CustMenuCheckButton
  222.     name    .view.menu.toolbar
  223.     objSpec {
  224.         hintText    "Shows or hides the toolbar."
  225.         label        ToolBar
  226.         mnemonic    T
  227.         state        1
  228.         stateChanged    {
  229.             .main toolBarPresent [[.main menuBar].view.menu.toolbar state]
  230.         }
  231.     }
  232. }
  233.  
  234. registerObject {
  235.     type    CustMenuCheckButton
  236.     name    .view.menu.contextarea
  237.     objSpec {
  238.         hintText    "Shows or hides the context area."
  239.         label        "Context Area"
  240.         mnemonic    C
  241.         state        1
  242.         stateChanged    {
  243.             .main contextAreaPresent [[.main menuBar].view.menu.contextarea state]
  244.         }
  245.     }
  246. }
  247.  
  248. registerObject {
  249.     type    CustMenuCheckButton
  250.     name    .view.menu.messagearea
  251.     objSpec {
  252.         hintText    "Shows or hides the message area."
  253.         label        "Message Area"
  254.         mnemonic    M
  255.         state        1
  256.         stateChanged    {
  257.             .main messageAreaPresent [[.main menuBar].view.menu.messagearea state]
  258.         }
  259.     }
  260. }
  261.  
  262. registerObject {
  263.     type        CustMenuSeparator
  264.     name        .view.menu.separator1
  265. }
  266.  
  267. registerObject {
  268.     type    CustMenuArbiter
  269.     name    .view.menu.viewmodearbiter
  270.     readOnly    1
  271.     objSpec { 
  272.     }
  273. }
  274.  
  275. registerObject {
  276.     type    CustMenuRadioButton
  277.     name    .view.menu.icon
  278.     readOnly    1
  279.     arbiter        viewmodearbiter
  280.     inToolBar    1
  281.     objSpec {
  282.         hintText    "Switches view to normal icon mode."
  283.         label        "Icon"
  284.         mnemonic    I
  285.         stateChanged    {[.main editorArea] mode ICON}
  286.         toolBarPixmap    viewlicons_16
  287.     }
  288. }
  289.  
  290. registerObject {
  291.     type    CustMenuRadioButton
  292.     name    .view.menu.smallicon
  293.     readOnly    1
  294.     arbiter        viewmodearbiter
  295.     inToolBar    1
  296.     objSpec { 
  297.         hintText    "Switches view to small icon mode."
  298.         label        "Small Icon"
  299.         mnemonic    S
  300.         stateChanged    {[.main editorArea] mode SMALLICON}
  301.         toolBarPixmap    viewsicons_16
  302.     }
  303. }
  304.  
  305. registerObject {
  306.     type    CustMenuRadioButton
  307.     name    .view.menu.detail
  308.     readOnly    1
  309.     arbiter        viewmodearbiter
  310.     inToolBar    1
  311.     objSpec { 
  312.         hintText    "Switches view to detail mode."
  313.         label        "Detail"
  314.         mnemonic    D
  315.         state        1
  316.         stateChanged    {[.main editorArea] mode DETAIL}
  317.         toolBarPixmap    viewdetails_16
  318.     }
  319. }
  320.  
  321. registerObject {
  322.     type    CustMenuBarButton
  323.     name    .options
  324.     objSpec {
  325.         label        Options
  326.         mnemonic    O
  327.     }
  328. }
  329.  
  330. registerObject {
  331.     type    CustMenu
  332.     name    .options.menu
  333.     objSpec {
  334.         pinnable    1
  335.     }
  336. }
  337.  
  338. registerObject {
  339.     type    CustMenuPushButton
  340.     name    .options.menu.font
  341.     objSpec {
  342.         hintText    "Changes the view font."
  343.         label        "Font..."
  344.         mnemonic    F
  345.         activated    {[.main options] font}
  346.     }
  347. }
  348.  
  349.  
  350. registerObject {
  351.     type        CustMenuBarButton
  352.     name        .filter
  353.     objSpec {
  354.         label        "Filter"
  355.         mnemonic    i
  356.     }
  357. }
  358.  
  359. registerObject {
  360.     type        CustMenu
  361.     name        .filter.menu
  362.     objSpec {
  363.         pinnable    1
  364.     }
  365. }
  366.  
  367. registerObject {
  368.     type        CustMenuCheckButton
  369.     name        .filter.menu.filteroncurrentfileentries
  370.     objSpec {
  371.         hintText    "Filters out those objects that not in the edited file."
  372.         label        "Filter On Current File Entries"
  373.         mnemonic    F
  374.         stateChanged    {
  375.             set filter [[.main editorArea] filter]
  376.             $filter fileFilter [%this state]
  377.             if {[isCommand [.main wmtArea]]} {
  378.                   if [$filter isFilterActive] {
  379.                     [.main wmtArea] filter "On"    
  380.                   } else {
  381.                     [.main wmtArea] filter "Off"    
  382.                   }
  383.             }
  384.         }
  385.     }
  386. }
  387.  
  388. registerObject {
  389.     type    CustMenuBarButton
  390.     name    .help
  391.     readOnly    1
  392.     objSpec {
  393.         label        Help
  394.         mnemonic    H
  395.         helpButton    1
  396.     }
  397. }
  398.  
  399. registerObject {
  400.     type    CustMenu
  401.     name    .help.menu
  402.     readOnly    1
  403.     objSpec {
  404.         pinnable    1
  405.     }
  406. }
  407.  
  408. registerObject {
  409.     type    CustMenuPushButton
  410.     name    .help.menu.whatsthis
  411.     readOnly    1
  412.     objSpec {
  413.         hintText    "Shows context sensitive help."
  414.         label        "What's This?"
  415.         mnemonic    W
  416.         activated    {.main helpOnContext}
  417.     }
  418. }
  419.  
  420.  
  421. registerObject {
  422.     type    CustMenuPushButton
  423.     name    .help.menu.helptopics
  424.     readOnly    1
  425.     objSpec {
  426.     hintText    "Shows help topics."
  427.     label        "Help Topics"
  428.     mnemonic    T
  429.     activated    {showHelpTopics}
  430.     }
  431. }
  432.  
  433. registerObject {
  434.     type    CustMenuPushButton
  435.     name    .help.menu.aboutavailabilityanddefinitioneditor
  436.     readOnly    1
  437.     objSpec {
  438.         hintText    "Shows version information."
  439.         label        "About Availability And Definition Editor"
  440.         mnemonic    A
  441.         activated    {showVersionDialog [%this label]}
  442.     }
  443. }
  444.  
  445.