Mercurial > hg > xemacs-beta
view lwlib/xlwtabs.h @ 4604:e0a8715fdb1f
Support new IGNORE-INVALID-SEQUENCESP argument, #'query-coding-region.
lisp/ChangeLog addition:
2009-02-07 Aidan Kehoe <kehoea@parhasard.net>
* coding.el (query-coding-clear-highlights):
Rename the BUFFER argument to BUFFER-OR-STRING, describe it as
possibly being a string in its documentation.
(default-query-coding-region):
Add a new IGNORE-INVALID-SEQUENCESP argument, document that this
function does not support it.
Bind case-fold-search to nil, we don't want this to influence what the
function thinks is encodable or not.
(query-coding-region):
Add a new IGNORE-INVALID-SEQUENCESP argument, document what it
does; reflect this new argument in the associated compiler macro.
(query-coding-string):
Add a new IGNORE-INVALID-SEQUENCESP argument, document what it
does. Support the HIGHLIGHT argument correctly.
* unicode.el (unicode-query-coding-region):
Add a new IGNORE-INVALID-SEQUENCESP argument, document what it
does, implement this. Document a potential problem.
Use #'query-coding-clear-highlights instead of reimplementing it
ourselves.
Remove some debugging messages.
* mule/arabic.el (iso-8859-6):
* mule/cyrillic.el (iso-8859-5):
* mule/greek.el (iso-8859-7):
* mule/hebrew.el (iso-8859-8):
* mule/latin.el (iso-8859-2):
* mule/latin.el (iso-8859-3):
* mule/latin.el (iso-8859-4):
* mule/latin.el (iso-8859-14):
* mule/latin.el (iso-8859-15):
* mule/latin.el (iso-8859-16):
* mule/latin.el (iso-8859-9):
* mule/latin.el (windows-1252):
* mule/mule-coding.el (iso-8859-1):
Avoid the assumption that characters not given an explicit mapping
in these coding systems map to the ISO 8859-1 characters
corresponding to the octets on disk; this makes it much more
reasonable to implement the IGNORE-INVALID-SEQUENCESP argument to
query-coding-region.
* mule/mule-cmds.el (set-language-info):
Correct the docstring.
* mule/mule-cmds.el (finish-set-language-environment):
Treat invalid Unicode sequences produced from
invalid-sequence-coding-system and corresponding to control
characters the same as control characters in redisplay.
* mule/mule-cmds.el:
Document that encode-coding-char is available in coding.el
* mule/mule-coding.el (make-8-bit-generate-helper):
Change to return the both the encode-program generated and the
relevant non-ASCII charset; update the docstring to reflect this.
* mule/mule-coding.el
(make-8-bit-generate-encode-program-and-skip-chars-strings):
Rename this function; have it return skip-chars-strings as well as
the encode program. Have these skip-chars-strings use ranges for
charsets, where possible.
* mule/mule-coding.el (make-8-bit-create-decode-encode-tables):
Revise this to allow people to specify explicitly characters that
should be undefined (= corresponding to keys in
unicode-error-default-translation-table), and treating unspecified
octets above #x7f as undefined by default.
* mule/mule-coding.el (8-bit-fixed-query-coding-region):
Add a new IGNORE-INVALID-SEQUENCESP argument, implement support
for it using the 8-bit-fixed-invalid-sequences-skip-chars coding
system property; remove some debugging messages.
* mule/mule-coding.el (make-8-bit-coding-system):
This function is dumped, autoloading it makes no sense.
Document what happens when characters above #x7f are not
specified, implement this.
* mule/vietnamese.el:
Correct spelling.
tests/ChangeLog addition:
2009-02-07 Aidan Kehoe <kehoea@parhasard.net>
* automated/query-coding-tests.el:
Add FAILING-CASE arguments to the Assert calls, making #'q-c-debug
mostly unnecessary. Remove #'q-c-debug.
Add new tests that use the IGNORE-INVALID-SEQUENCESP argument to
#'query-coding-region; rework the existing ones to respect it.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sat, 07 Feb 2009 17:13:37 +0000 |
parents | 382b11fa8866 |
children | ade4c7e2c6cb |
line wrap: on
line source
/* Tabs 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 2, 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; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* * This widget manages one or more child widgets, exactly one of which is * visible. Above the child widgets is a graphic that looks like index * tabs from file folders. Each tab corresponds to one of the child widgets. * By clicking on a tab, the user can bring the corresponding widget to * the top of the stack. */ #ifndef _Tabs_h #define _Tabs_h #include <X11/Constraint.h> /*********************************************************************** * * Tabs Widget (subclass of CompositeClass) * ***********************************************************************/ /* Parameters: Name Class RepType Default Value ---- ----- ------- ------------- font Font XFontStruct* XtDefaultFont fcFontName FcFontName String NULL *0 xftFont XftFont String Helvetica-12 *8 internalWidth Width Dimension 4 *1 internalHeight Height Dimension 2 *1 topWidget TopWidget Widget *2 callback Callback XtCallbackList NULL *3 popdownCallback Callback XtCallbackList NULL *4 selectInsensitive SelectInsensitive Boolean True *5 beNiceToColormap BeNiceToColormap Boolean False *6 topShadowContrast TopShadowContrast int 20 bottomShadowContrast BottomShadowContrast int 40 insensitiveContrast InsensitiveContrast int 33 *7 background Background Pixel XtDefaultBackground border BorderColor Pixel XtDefaultForeground borderWidth BorderWidth Dimension 1 destroyCallback Callback Pointer NULL hSpace HSpace Dimension 4 height Height Dimension 0 mappedWhenManaged MappedWhenManaged Boolean True orientation Orientation XtOrientation vertical vSpace VSpace Dimension 4 width Width Dimension 0 x Position Position 0 y Position Position 0 Notes: 0 this is a joke, it will be changed. 1 internalWidth, internalHeight specify the margins around the text in the tabs. 2 topWidget identifies the widget which is currently visible. 3 callbacks are called whenever the user selects a tab. Call_data is the new top widget. 4 popdownCallbacks are called whenever the user selects a tab. Call_data is the old (no longer visible) top widget. Note that popdownCallbacks are called before callbacks. 5 SelectInsensitive determines whether or not insensitive children may be selected anyway. 6 BeNiceToColormap causes the Tabs widget to use fewer colors. 7 InsensitiveContrast sets the contrast used for labels of insensitive widgets. 8 fcFontName and xftFont are separate resources because there is not yet registered representation and converter for XftFonts. */ /* Constraint parameters: Name Class RepType Default Value ---- ----- ------- ------------- tabLabel Label String widget name tabLeftBitmap LeftBitmap Pixmap None tabForeground Foreground Pixel XtDefaultForeground resizable Resizable Boolean False */ /* New fields */ #ifndef XtNtabLabel #define XtNtabLabel "tabLabel" #define XtNtabForeground "tabForeground" #endif #ifndef XtNtabLeftBitmap #define XtNtabLeftBitmap "tabLeftBitmap" #endif #ifndef XtCLeftBitmap #define XtCLeftBitmap "LeftBitmap" #endif #ifndef XtCResizable #define XtCResizable "Resizable" #endif #ifndef XtNselectInsensitive #define XtNselectInsensitive "selectInsensitive" #define XtCSelectInsensitive "SelectInsensitive" #endif #ifndef XtNnlabels #define XtNnlabels "nlabels" #define XtCNLabels "NLabels" #endif #ifndef XtNlabels #define XtNlabels "labels" #define XtCLabels "Labels" #endif #ifndef XtNtopWidget #define XtNtopWidget "topWidget" #define XtCTopWidget "TopWidget" #endif #ifndef XtNhSpace #define XtNhSpace "hSpace" #define XtCHSpace "HSpace" #define XtNvSpace "vSpace" #define XtCVSpace "VSpace" #endif #ifndef XtNresizable #define XtNresizable "resizable" #endif #ifndef XtNinsensitiveContrast #define XtNinsensitiveContrast "insensitiveContrast" #define XtCInsensitiveContrast "InsensitiveContrast" #endif #ifndef XtNshadowWidth #define XtNshadowWidth "shadowWidth" #define XtCShadowWidth "ShadowWidth" #define XtNtopShadowPixel "topShadowPixel" #define XtCTopShadowPixel "TopShadowPixel" #define XtNbottomShadowPixel "bottomShadowPixel" #define XtCBottomShadowPixel "BottomShadowPixel" #define XtNtopShadowContrast "topShadowContrast" #define XtCTopShadowContrast "TopShadowContrast" #define XtNbottomShadowContrast "bottomShadowContrast" #define XtCBottomShadowContrast "BottomShadowContrast" #endif #ifndef XtNtopShadowPixmap #define XtNtopShadowPixmap "topShadowPixmap" #define XtCTopShadowPixmap "TopShadowPixmap" #define XtNbottomShadowPixmap "bottomShadowPixmap" #define XtCBottomShadowPixmap "BottomShadowPixmap" #endif #ifndef XtNbeNiceToColormap #define XtNbeNiceToColormap "beNiceToColormap" #define XtCBeNiceToColormap "BeNiceToColormap" #define XtNbeNiceToColourmap "beNiceToColormap" #define XtCBeNiceToColourmap "BeNiceToColormap" #endif /* Class record constants */ extern WidgetClass tabsWidgetClass; typedef struct _TabsClassRec *TabsWidgetClass; typedef struct _TabsRec *TabsWidget; _XFUNCPROTOBEGIN extern void XawTabsSetTop( #if NeedFunctionPrototypes Widget w, Bool callCallbacks #endif ) ; extern void XawTabsSetHighlight( #if NeedFunctionPrototypes Widget tabs, Widget w #endif ) ; _XFUNCPROTOEND #endif /* _Tabs_h */