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