Mercurial > hg > xemacs-beta
view lwlib/xlwgaugeP.h @ 5679:a81a739181dc
Add command remapping, a more robust alternative to #'substitute-key-definition
src/ChangeLog addition:
2012-09-02 Aidan Kehoe <kehoea@parhasard.net>
* keymap.c:
Add command remapping, a more robust equivalent to
#'substitute-key-definition.
* keymap.c (CHECK_REMAPPING_POSITION): New.
* keymap.c (keymap_equal): Correct a comment here.
* keymap.c (Fdefine_key): Document the command remapping syntax.
* keymap.c (Fremap_command): New.
* keymap.c (command_remapping): New.
* keymap.c (Fcommand_remapping): New.
* keymap.c (commands_remapped_to_mapper): New.
* keymap.c (commands_remapped_to_traverser): New.
* keymap.c (Fcommands_remapped_to): New.
* keymap.c (get_relevant_keymaps): Take a new POSITION argument.
* keymap.c (Fcurrent_keymaps, event_binding):
Supply the new POSITION argument to get_relevant_keymaps.
* keymap.c (Fkey_binding):
Add new arguments, NO-REMAP and POSITION.
* keymap.c (map_keymap_mapper):
* keymap.c (Fwhere_is_internal):
* keymap.c (where_is_to_char):
* keymap.c (where_is_recursive_mapper):
Don't expose the key remapping in these functions. This conflicts
with GNU, but is more sane for our callers. Access to command
remapping is with the functions #'command-remapping,
#'commands-remapped-to, and #'remap-command, not with the general
keymap functions, apart from the compatibility hack in #'define-key.
* keymap.c (syms_of_keymap):
* keymap.c (vars_of_keymap):
* keymap.c (complex_vars_of_keymap):
* lisp.h: New CHECK_COMMAND macro.
man/ChangeLog addition:
2012-09-02 Aidan Kehoe <kehoea@parhasard.net>
* lispref/keymaps.texi (Keymaps):
* lispref/keymaps.texi (Changing Key Bindings):
* lispref/keymaps.texi (Scanning Keymaps):
* lispref/keymaps.texi (Remapping commands):
* lispref/keymaps.texi (XEmacs): New.
* lispref/keymaps.texi (Other Keymap Functions):
Document the new command remapping functionality in this file.
lisp/ChangeLog addition:
2012-09-02 Aidan Kehoe <kehoea@parhasard.net>
* help.el (describe-function-1):
Document any command remapping that has been done in this function.
tests/ChangeLog addition:
2012-09-02 Aidan Kehoe <kehoea@parhasard.net>
* automated/keymap-tests.el:
Test the new command remapping functionality.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 02 Sep 2012 14:31:40 +0100 |
parents | 308d34e9f07d |
children |
line wrap: on
line source
/* Gauge Widget for XEmacs. Copyright (C) 1999 Edward A. Falk This file is part of XEmacs. XEmacs is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. XEmacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */ /* * GaugeP.h - Gauge widget * * Author: Edward A. Falk * falk@falconer.vip.best.com * * Date: July 9, 1997 */ #ifndef _XawGaugeP_h #define _XawGaugeP_h /*********************************************************************** * * Gauge Widget Private Data * * Gauge has little in common with the label widget, but can make use * of some label resources, so is subclassed from label. * ***********************************************************************/ #include "xlwgauge.h" #include ATHENA_LabelP_h_ /* New fields for the Gauge widget class record */ typedef struct {XtPointer extension;} GaugeClassPart; /* Full class record declaration */ typedef struct _GaugeClassRec { CoreClassPart core_class; SimpleClassPart simple_class; #ifdef _ThreeDP_h ThreeDClassPart threeD_class; #endif LabelClassPart label_class; GaugeClassPart gauge_class; } GaugeClassRec; extern GaugeClassRec gaugeClassRec; /* New fields for the Gauge widget record */ typedef struct { /* resources */ int value, v0,v1 ; int ntics, nlabels ; String *labels ; XtOrientation orientation ; Boolean autoScaleUp ; /* scales automatically */ Boolean autoScaleDown ; /* scales automatically */ int update ; /* update interval */ XtCallbackList getValue ; /* proc to call to fetch a point */ /* private state */ Dimension gmargin ; /* edges <-> gauge */ Dimension tmargin ; /* top (left) edge <-> tic marks */ Dimension lmargin ; /* tic marks <-> labels */ Dimension margin0 ; /* left/bottom margin */ Dimension margin1 ; /* right/top margin */ XtIntervalId intervalId ; Atom selected ; String selstr ; /* selection string, if any */ GC inverse_GC ; } GaugePart; /**************************************************************** * * Full instance record declaration * ****************************************************************/ typedef struct _GaugeRec { CorePart core; SimplePart simple; #ifdef _ThreeDP_h ThreeDPart threeD; #endif LabelPart label; GaugePart gauge; } GaugeRec; #endif /* _XawGaugeP_h */