Mercurial > hg > xemacs-beta
view lwlib/xlwmenu.h @ 5244:04811a268716
Be clearer in our error messages, #'canonicalize-inst-pair, #'canonicalize-spec
lisp/ChangeLog addition:
2010-08-15 Aidan Kehoe <kehoea@parhasard.net>
* specifier.el (canonicalize-inst-pair, canonicalize-spec):
If a specifier tag set is correct, but an instantiator is not in
an accepted format, don't error with the message "Invalid
specifier tag set".
Also, when we error, use error-symbols, for better structured
error handling and more ease when testing.
tests/ChangeLog addition:
2010-08-15 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el:
(not, not, invalid-argument, invalid-argument):
Check that error messages from the image specifier instantiator
code are clearer than they used to be.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 15 Aug 2010 15:42:45 +0100 |
parents | abe6d1db359e |
children | ade4c7e2c6cb |
line wrap: on
line source
#ifndef INCLUDED_xlwmenu_h_ #define INCLUDED_xlwmenu_h_ /*********************************************************************** * * XlwMenu Widget * ***********************************************************************/ #include "lwlib.h" /* Resource names used by the XlwMenu widget */ #define XtNbuttonForeground "buttonForeground" #define XtCButtonForeground "ButtonForeground" #define XtNhighlightForeground "highlightForeground" #define XtCHighlightForeground "HighlightForeground" #define XtNtitleForeground "titleForeground" #define XtCTitleForeground "TitleForeground" #define XtNmargin "margin" #define XtNhorizontalSpacing "horizontalSpacing" #define XtNverticalSpacing "verticalSpacing" #define XtNarrowSpacing "arrowSpacing" #define XtNmenu "menu" #define XtCMenu "Menu" #define XtNopen "open" #define XtNselect "select" #define XtNmenuBorderWidth "menuBorderWidth" #define XtNhorizontal "horizontal" #define XtCHorizontal "Horizontal" #ifndef XtNcursor #define XtNcursor "cursor" #endif #ifndef XtCCursor #define XtCCursor "Cursor" #endif #ifndef XtNuseBackingStore #define XtNuseBackingStore "useBackingStore" #endif #ifndef XtCUseBackingStore #define XtCUseBackingStore "UseBackingStore" #endif #define XtNbounceDown "bounceDown" #define XtCBounceDown "BounceDown" #define XtNresourceLabels "resourceLabels" #define XtCResourceLabels "ResourceLabels" /* Motif-compatible resource names */ #ifndef XmNshadowThickness # define XmNshadowThickness "shadowThickness" # define XmCShadowThickness "ShadowThickness" # define XmNtopShadowColor "topShadowColor" # define XmCTopShadowColor "TopShadowColor" # define XmNbottomShadowColor "bottomShadowColor" # define XmCBottomShadowColor "BottomShadowColor" # define XmNtopShadowPixmap "topShadowPixmap" # define XmCTopShadowPixmap "TopShadowPixmap" # define XmNbottomShadowPixmap "bottomShadowPixmap" # define XmCBottomShadowPixmap "BottomShadowPixmap" # define XmUNSPECIFIED_PIXMAP 2 # define XmRHorizontalDimension "HorizontalDimension" # define XmNspacing "spacing" # define XmCSpacing "Spacing" # define XmNindicatorSize "indicatorSize" # define XmCIndicatorSize "IndicatorSize" # define XmNselectColor "selectColor" # define XmCSelectColor "SelectColor" # define XmNmarginHeight "marginHeight" # define XmCMarginHeight "MarginHeight" # define XmNmarginWidth "marginWidth" # define XmCMarginWidth "MarginWidth" # define XmRVerticalDimension "VerticalDimension" #endif typedef struct _XlwMenuRec *XlwMenuWidget; typedef struct _XlwMenuClassRec *XlwMenuWidgetClass; extern WidgetClass xlwMenuWidgetClass; void xlw_pop_up_menu (XlwMenuWidget mw, XButtonPressedEvent* event); /* menu accelerator */ void xlw_set_menu (Widget w, widget_value *val); void xlw_push_menu (widget_value *val); int xlw_pop_menu (void); void xlw_set_item (widget_value *val); void xlw_map_menu (Time t); void xlw_display_menu (Time t); void xlw_kill_menus (widget_value *val); widget_value *xlw_get_entries (int allp); int xlw_menu_level (void); #endif /* INCLUDED_xlwmenu_h_ */