$book = '..'?>include "$book/mh.php"; includeHeader('wiclhi.html', 'resmen.html'); ?>
exmh uses X resources to specify its buttons and menus on the main display, the editor window, and the What Now dialog. You can add a button to one of these areas of the user interface by listing it in a ubuttonlist resource and adding resources that describe the button. X resource names are hierarchical; these are the button list resources used by exmh:
*Main.ubuttonlist *Fops.ubuttonlist *Mops.ubuttonlist *Sedit.Menubar.ubuttonlist *WhatNow.ubuttonlistThese resources are necessary because there's no easy way to enumerate the contents of the resource database.
When exmh starts up, it asks for the definition of both buttonlist and ubuttonlist resources. app-defaults has definitions for its buttons under the buttonlist resource; users should add new buttons with the ubuttonlist resource. To remove some system buttons, you have to override the definition of the buttonlist resource. This is best explained by an example. Here are the definitions for the main buttons:
*Main.buttonlist: quit pref alias *Main.quit.text: Quit *Main.quit.command: Exmh_Done *Main.pref.text: Preferences *Main.pref.command: Preferences_Dialog *Main.alias.text: Aliases *Main.alias.command: Aliases_PrefThe *Main.buttonlist resource names the buttons that appear in the top row of buttons. The value of the *Main.buttonlist resource, in turn, causes exmh to look for other resources that define the text and command attributes for each button. The command is a Tcl command; most are simple commands of one or two words. If you are really inspired, you can set many different attributes of a Tk button via resources -- get the details from the Tk manual page for button.
The next example adds a Repl button to the message buttons. By default, there are a few variations on Reply under the Reply... menu. You might like a Repl button for your most common form of reply. The Msg_Reply Tcl command takes regular arguments for the MH repl program.
*Mops.ubuttonlist: myrepl *Mops.myrepl.text: Repl *Mops.myrepl.command: Msg_Reply -filter myrepl.filter -cc allSee the Section Replying to Mail with repl for an overview of repl. Beware of repl options like -query that prompt you and expect an interactive response; these will lock up exmh. The MH Reference Guide has a summary of repl options. includeFooter('$Date: 2006-05-31 15:13:43 -0700 (Wed, 31 May 2006) $', 'OReilly: 1991, 1992, 1995'); ?>