home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / X / mit / clients / xmh / Xmh.sample < prev    next >
Encoding:
Text File  |  1991-07-29  |  3.1 KB  |  109 lines
  1.  
  2. !    Examples of customizing xmh with resource specifications.
  3. !    These can be copied to your private X resource file or to
  4. !    a private Xmh application defaults file.
  5.  
  6.  
  7.  
  8. !    To create command buttons in the middle of the main window:
  9.  
  10. Xmh*CommandButtonCount:        8
  11.  
  12. Xmh*commandBox.button1.label:    inc
  13. Xmh*commandBox.button1.translations: #override\
  14.     <Btn1Down>,<Btn1Up>: XmhIncorporateNewMail() unset()
  15.  
  16. Xmh*commandBox.button2.label:    compose
  17. Xmh*commandBox.button2.translations: #override\
  18.     <Btn1Down>,<Btn1Up>: XmhComposeMessage() unset()
  19.  
  20. Xmh*commandBox.button3.label:    next
  21. Xmh*commandBox.button3.translations: #override\
  22.     <Btn1Down>,<Btn1Up>: XmhViewNextMessage() unset()
  23.  
  24. Xmh*commandBox.button4.label:    prev
  25. Xmh*commandBox.button4.translations: #override\
  26.     <Btn1Down>,<Btn1Up>: XmhViewPreviousMessage() unset()
  27.  
  28. Xmh*commandBox.button5.label:    commit
  29. Xmh*commandBox.button5.translations: #override\
  30.     <Btn1Down>,<Btn1Up>: XmhCommitChanges() unset()
  31.  
  32. Xmh*commandBox.button6.label:    delete
  33. Xmh*commandBox.button6.translations: #override\
  34.     <Btn1Down>,<Btn1Up>: XmhMarkDelete() unset()
  35.  
  36. Xmh*commandBox.button7.label:    move
  37. Xmh*commandBox.button7.translations: #override\
  38.     <Btn1Down>,<Btn1Up>: XmhMarkMove() unset()
  39.  
  40. Xmh*commandBox.button8.label:    reply to viewed msg
  41. Xmh*commandBox.button8.translations: #override\
  42.     <Btn1Down>,<Btn1Up>: XmhViewReply() unset()
  43.  
  44.  
  45. !    To use popup menus on the title bars of the main window,
  46. !    have them popup with the pointer over the previously selected item,
  47. !    and not be clipped by the screen boundary:
  48.  
  49. Xmh*stickyMenu:    True
  50. Xmh*messageMenu.MenuOnScreen: True
  51.  
  52. Xmh*folderTitlebar.translations: #override\n\
  53. <BtnDown>: XawPositionSimpleMenu(folderMenu)MenuPopup(folderMenu)\n
  54.  
  55. Xmh*tocTitlebar.translations: #override\n\
  56. <Btn2Down>: XawPositionSimpleMenu(messageMenu)MenuPopup(messageMenu)\n\
  57. <BtnDown>: XawPositionSimpleMenu(tocMenu)MenuPopup(tocMenu)\n
  58.  
  59. Xmh.Paned.viewTitlebar.translations: #override\n\
  60. <Btn2Down>: XawPositionSimpleMenu(sequenceMenu)MenuPopup(sequenceMenu)\n\
  61. <BtnDown>: XawPositionSimpleMenu(viewMenu)MenuPopup(viewMenu)\n
  62.  
  63.  
  64. ! To redefine the accelerator bindings to exclude modifier keys,
  65. ! and add a translation for Compose Message:
  66.  
  67. Xmh*tocMenu.accelerators: #override\n\
  68.     !:<Key>I:    XmhIncorporateNewMail()\n\
  69.     !:<Key>C:     XmhCommitChanges()\n\
  70.     !:<Key>R:    XmhForceRescan()\n\
  71.     !:<Key>P:    XmhPackFolder()\n\
  72.     !:<Key>S:    XmhSortFolder()\n
  73. Xmh*messageMenu.accelerators: #override\n\
  74.     !:<Key>M:    XmhComposeMessage()\n\
  75.     !<Key>space:    XmhViewNextMessage()\n\
  76.     !:<Key>c:    XmhMarkCopy()\n\
  77.     !:<Key>d:    XmhMarkDelete()\n\
  78.     !:<Key>f:    XmhForward()\n\
  79.     !:<Key>m:    XmhMarkMove()\n\
  80.     !:<Key>n:    XmhViewNextMessage()\n\
  81.     !:<Key>p:    XmhViewPreviousMessage()\n\
  82.     !:<Key>r:    XmhReply()\n\
  83.     !:<Key>u:    XmhUnmark()\n
  84.  
  85.  
  86. !    Here is an example of some miscellaneous accelerators:
  87. !    ("clients/xmh" is a subfolder; it must be existing.)
  88.  
  89. Xmh*toc.accelerators: #override\n\
  90.     <Key>F1:    XmhOpenFolder(inbox)XmhOpenSequence(all)\n\
  91.     <Key>F2:    XmhOpenFolder(drafts)\n\
  92.     <Key>F3:    XmhOpenFolder(clients/xmh)\n\
  93.     <Key>F4:    XmhViewInNewWindow()\n\
  94.     <Key>F5:    XmhPickMessages()\n
  95.  
  96.  
  97. !    Define Meta-S in the Compose window to do a send and close.
  98.  
  99. Xmh*comp.translations: #override\n\
  100.     !:Meta<Key>S:    XmhSend()XmhCloseView()
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.