Mercurial > hg > xemacs-beta
view lwlib/xlwgaugeP.h @ 5553:62edcc6a11ec
Add an assertion about argument order to #'apply-partially compiler macro
lisp/ChangeLog addition:
2011-08-24 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (apply-partially):
Add an assertion to this compiler macro, requiring that the order
of the placeholders corresponding to the arguments in the
constants vector of the constructed compiled function be the same
as the order of the arguments to #'apply-partially.
tests/ChangeLog addition:
2011-08-24 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el:
Add a test of apply partially that depends on the relative order
of its arguments.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Wed, 24 Aug 2011 11:06:41 +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 */