Mercurial > hg > xemacs-beta
view lwlib/xlwcheckbox.c @ 5013:ae48681c47fa
changes to VOID_TO_LISP et al.
-------------------- ChangeLog entries follow: --------------------
src/ChangeLog addition:
2010-02-08 Ben Wing <ben@xemacs.org>
* casetab.c (compute_canon_mapper):
* casetab.c (initialize_identity_mapper):
* casetab.c (compute_up_or_eqv_mapper):
* casetab.c (recompute_case_table):
* casetab.c (set_case_table):
* chartab.c (copy_mapper):
* chartab.c (copy_char_table_range):
* chartab.c (get_range_char_table_1):
* console.c (find_nonminibuffer_frame_not_on_console_predicate):
* console.c (find_nonminibuffer_frame_not_on_console):
* console.c (nuke_all_console_slots):
* device.c:
* device.c (find_nonminibuffer_frame_not_on_device_predicate):
* device.c (find_nonminibuffer_frame_not_on_device):
* dialog-msw.c (dialog_proc):
* dialog-msw.c (handle_question_dialog_box):
* dialog-x.c (maybe_run_dbox_text_callback):
* eval.c:
* eval.c (safe_run_hook_trapping_problems_1):
* eval.c (safe_run_hook_trapping_problems):
* event-msw.c:
* event-msw.c (mswindows_wnd_proc):
* event-msw.c (mswindows_find_frame):
* faces.c (update_face_inheritance_mapper):
* frame-msw.c (mswindows_init_frame_1):
* frame-msw.c (mswindows_get_mouse_position):
* frame-msw.c (mswindows_get_frame_parent):
* glade.c (connector):
* glade.c (Fglade_xml_signal_connect):
* glade.c (Fglade_xml_signal_autoconnect):
* glade.c (Fglade_xml_textdomain):
* glyphs-msw.c (mswindows_subwindow_instantiate):
* glyphs-msw.c (mswindows_widget_instantiate):
* glyphs.c (check_instance_cache_mapper):
* glyphs.c (check_window_subwindow_cache):
* glyphs.c (check_image_instance_structure):
* gui-x.c (snarf_widget_value_mapper):
* gui-x.c (popup_selection_callback):
* gui-x.c (button_item_to_widget_value):
* keymap.c (map_keymap_mapper):
* keymap.c (Fmap_keymap):
* menubar-gtk.c (__torn_off_sir):
* menubar-gtk.c (__activate_menu):
* menubar-gtk.c (menu_convert):
* menubar-gtk.c (__generic_button_callback):
* menubar-gtk.c (menu_descriptor_to_widget_1):
* menubar-msw.c:
* menubar-msw.c (EMPTY_ITEM_ID):
* menubar-x.c (menu_item_descriptor_to_widget_value_1):
* menubar-x.c (pre_activate_callback):
* menubar-x.c (command_builder_operate_menu_accelerator):
* menubar-x.c (command_builder_find_menu_accelerator):
* print.c (print_internal):
* process-unix.c (close_process_descs_mapfun):
* process.c (get_process_from_usid):
* process.c (init_process_io_handles):
* profile.c (sigprof_handler):
* profile.c (get_profiling_info_timing_maphash):
* profile.c (Fget_profiling_info):
* profile.c (set_profiling_info_timing_maphash):
* profile.c (mark_profiling_info_maphash):
* scrollbar-msw.c (mswindows_create_scrollbar_instance):
* scrollbar-msw.c (mswindows_free_scrollbar_instance):
* scrollbar-msw.c (mswindows_handle_scrollbar_event):
* specifier.c (recompute_cached_specifier_everywhere_mapfun):
* specifier.c (recompute_cached_specifier_everywhere):
* syntax.c (copy_to_mirrortab):
* syntax.c (copy_if_not_already_present):
* syntax.c (update_just_this_syntax_table):
* text.c (new_dfc_convert_now_damn_it):
* text.h (LISP_STRING_TO_EXTERNAL):
* tooltalk.c:
* tooltalk.c (tooltalk_message_callback):
* tooltalk.c (tooltalk_pattern_callback):
* tooltalk.c (Fcreate_tooltalk_message):
* tooltalk.c (Fcreate_tooltalk_pattern):
* ui-byhand.c (__generic_toolbar_callback):
* ui-byhand.c (generic_toolbar_insert_item):
* ui-byhand.c (__emacs_gtk_ctree_recurse_internal):
* ui-byhand.c (Fgtk_ctree_recurse):
* ui-gtk.c (__internal_callback_destroy):
* ui-gtk.c (__internal_callback_marshal):
* ui-gtk.c (Fgtk_signal_connect):
* ui-gtk.c (gtk_type_to_lisp):
* ui-gtk.c (lisp_to_gtk_type):
* ui-gtk.c (lisp_to_gtk_ret_type):
* lisp-disunion.h:
* lisp-disunion.h (NON_LVALUE):
* lisp-union.h:
* lisp.h (LISP_HASH):
Rename:
LISP_TO_VOID -> STORE_LISP_IN_VOID
VOID_TO_LISP -> GET_LISP_FROM_VOID
These new names are meant to clearly identify that the Lisp object
is the source and void the sink, and that they can't be used the
other way around -- they aren't exact opposites despite the old
names. The names are also important given the new functions
created just below. Also, clarify comments in lisp-union.h and
lisp-disunion.h about the use of the functions.
* lisp.h:
New functions STORE_VOID_IN_LISP and GET_VOID_FROM_LISP. These
are different from the above in that the source is a void *
(previously, you had to use make_opaque_ptr()).
* eval.c (restore_lisp_object):
* eval.c (record_unwind_protect_restoring_lisp_object):
* eval.c (struct restore_int):
* eval.c (restore_int):
* eval.c (record_unwind_protect_restoring_int):
* eval.c (free_pointer):
* eval.c (record_unwind_protect_freeing):
* eval.c (free_dynarr):
* eval.c (record_unwind_protect_freeing_dynarr):
* eval.c (unbind_to_1):
Use STORE_VOID_IN_LISP and GET_VOID_FROM_LISP to eliminate the
use of make_opaque_ptr() and mostly eliminate Lisp consing
entirely in the use of these various record_unwind_protect_*
functions as well as internal_bind_* (e.g. internal_bind_int).
* tests.c:
* tests.c (Ftest_store_void_in_lisp):
* tests.c (syms_of_tests):
* tests.c (vars_of_tests):
Add an C-assert-style test to test STORE_VOID_IN_LISP and
GET_VOID_FROM_LISP to make sure the same value comes back that
was put in.
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Mon, 08 Feb 2010 06:42:16 -0600 (2010-02-08) |
parents | 5460287a3327 |
children | 308d34e9f07d |
line wrap: on
line source
/* Checkbox 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. */ /* Synched up with: Checkbox.c 1.1 */ /* * Checkbox.c - Checkbox button widget * * Author: Edward A. Falk * falk@falconer.vip.best.com * * Date: June 30, 1997 * * Overview: This widget is identical to the Radio widget in behavior, * except that the button is square and has a check mark. */ #include <config.h> #include <stdio.h> #include <X11/IntrinsicP.h> #include <X11/StringDefs.h> #include ATHENA_XawInit_h_ #include "xt-wrappers.h" #include "xlwcheckboxP.h" /* by using the same size for the checkbox as for the diamond box, * we can let the Radio widget do the vast majority of the work. */ #define BOX_SIZE 8 #define DRAW_CHECK 0 /* don't draw the check mark */ #define cclass(w) ((CheckboxWidgetClass)((w)->core.widget_class)) #ifdef _ThreeDP_h #define swid(cw) ((cw)->threeD.shadow_width) #else #define swid(cw) ((cw)->core.border_width) #endif #define bsize(cw) (cclass(cw)->radio_class.dsize) #define bs(cw) (bsize(cw) + 2*swid(cw)) #if DRAW_CHECK #define check_width 14 #define check_height 14 static unsigned char check_bits[] = { 0x00, 0x00, 0x00, 0x20, 0x00, 0x18, 0x00, 0x0c, 0x00, 0x06, 0x00, 0x03, 0x8c, 0x03, 0xde, 0x01, 0xff, 0x01, 0xfe, 0x00, 0xfc, 0x00, 0x78, 0x00, 0x70, 0x00, 0x20, 0x00}; #endif /**************************************************************** * * Full class record constant * ****************************************************************/ #if DRAW_CHECK static char defaultTranslations[] = "<EnterWindow>: highlight()\n\ <LeaveWindow>: unpress(draw) unhighlight()\n\ <Btn1Down>: press()\n\ <Btn1Down>,<Btn1Up>: unpress(nodraw) toggle() notify()"; #endif #define offset(field) XtOffsetOf(CheckboxRec, checkbox.field) #define res(name,_class,intrepr,type,member,extrepr,value) \ Xt_RESOURCE (name, _class, intrepr, type, offset(member), extrepr, value) static XtResource resources[] = { res (XtNtristate, XtCTristate, XtRBoolean, Boolean, tristate, XtRImmediate, FALSE), } ; #undef offset /* Member functions */ static void CheckboxClassInit (void); static void CheckboxInit (Widget, Widget, ArgList, Cardinal *); #if DRAW_CHECK static void CheckboxRealize (Widget, Mask *, XSetWindowAttributes *); #endif static void DrawCheck (Widget); /* Action procs */ #if DRAW_CHECK static void CheckboxPress (Widget, XEvent *, String *, Cardinal *); static void CheckboxUnpress (Widget, XEvent *, String *, Cardinal *); #endif /* internal privates */ #if DRAW_CHECK static XtActionsRec actionsList[] = { {"press", CheckboxPress}, {"unpress", CheckboxUnpress}, } ; #endif #define SuperClass ((RadioWidgetClass)&radioClassRec) CheckboxClassRec checkboxClassRec = { { (WidgetClass) SuperClass, /* superclass */ (String) "Checkbox", /* class_name */ sizeof(CheckboxRec), /* size */ CheckboxClassInit, /* class_initialize */ NULL, /* class_part_initialize */ FALSE, /* class_inited */ CheckboxInit, /* initialize */ NULL, /* initialize_hook */ #if DRAW_CHECK CheckboxRealize, /* realize */ actionsList, /* actions */ XtNumber(actionsList), /* num_actions */ #else XtInheritRealize, /* realize */ NULL, /* actions */ 0, /* num_actions */ #endif resources, /* resources */ XtNumber(resources), /* resource_count */ NULLQUARK, /* xrm_class */ TRUE, /* compress_motion */ TRUE, /* compress_exposure */ TRUE, /* compress_enterleave */ FALSE, /* visible_interest */ NULL, /* destroy */ XtInheritResize, /* resize */ XtInheritExpose, /* expose */ NULL, /* set_values */ NULL, /* set_values_hook */ XtInheritSetValuesAlmost, /* set_values_almost */ NULL, /* get_values_hook */ NULL, /* accept_focus */ XtVersion, /* version */ NULL, /* callback_private */ #if DRAW_CHECK defaultTranslations, /* tm_table */ #else XtInheritTranslations, /* tm_table */ #endif XtInheritQueryGeometry, /* query_geometry */ XtInheritDisplayAccelerator, /* display_accelerator */ NULL /* extension */ }, /* CoreClass fields initialization */ { XtInheritChangeSensitive /* change_sensitive */ }, /* SimpleClass fields initialization */ #ifdef _ThreeDP_h { XtInheritXaw3dShadowDraw /* field not used */ }, /* ThreeDClass fields initialization */ #endif { 0 /* field not used */ }, /* LabelClass fields initialization */ { 0 /* field not used */ }, /* CommandClass fields initialization */ { RadioSet, /* Set Procedure. */ RadioUnset, /* Unset Procedure. */ NULL /* extension. */ }, /* ToggleClass fields initialization */ { BOX_SIZE, DrawCheck, /* draw procedure */ NULL /* extension. */ }, /* RadioClass fields initialization */ { NULL /* extension. */ }, /* CheckboxClass fields initialization */ }; /* for public consumption */ WidgetClass checkboxWidgetClass = (WidgetClass) &checkboxClassRec; /**************************************************************** * * Class Methods * ****************************************************************/ static void CheckboxClassInit (void) { XawInitializeWidgetSet(); } /*ARGSUSED*/ static void CheckboxInit (Widget UNUSED (request), #if DRAW_CHECK Widget new, #else Widget UNUSED (new_), #endif ArgList UNUSED (args), Cardinal *UNUSED (num_args)) { #if DRAW_CHECK CheckboxWidget cw = (CheckboxWidget) new_; cw->checkbox.checkmark = None ; cw->checkbox.checkmark_GC = None ; #endif } #if DRAW_CHECK static void CheckboxRealize(Widget w, Mask *valueMask, XSetWindowAttributes *attributes) { CheckboxWidget cw = (CheckboxWidget) w; XtGCMask value_mask, dynamic_mask, dontcare_mask ; XGCValues values ; /* first, call superclass realize */ (*checkboxWidgetClass->core_class.superclass->core_class.realize) (w, valueMask, attributes); /* TODO: cache this via xmu */ if( cw->checkbox.checkmark == None ) cw->checkbox.checkmark = XCreateBitmapFromData( XtDisplay(w), XtWindow(w), check_bits,check_width,check_height); values.fill_style = FillStippled ; values.stipple = cw->checkbox.checkmark ; values.foreground = cw->label.foreground ; value_mask = GCFillStyle | GCStipple | GCForeground ; dynamic_mask = GCTileStipXOrigin | GCTileStipYOrigin ; dontcare_mask = GCLineWidth | GCLineStyle | GCCapStyle | GCJoinStyle | GCFont | GCSubwindowMode | GCGraphicsExposures | GCDashOffset | GCDashList | GCArcMode ; cw->checkbox.checkmark_GC = XtAllocateGC(w, 0, value_mask, &values, dynamic_mask, dontcare_mask) ; } #endif /* Function Name: CheckboxDestroy * Description: Destroy Callback for checkbox widget. * Arguments: w - the checkbox widget that is being destroyed. * junk, garbage - not used. * Returns: none. */ /* ARGSUSED */ #if DRAW_CHECK static void CheckboxDestroy ( Widget w, XtPointer UNUSED (junk), XtPointer UNUSED (garbage)) { CheckboxWidget cw = (CheckboxWidget) w; /* TODO: cache this via xmu */ if( cw->checkbox.checkmark != None ) XFreePixmap( XtDisplay(w), cw->checkbox.checkmark ) ; if( cw->checkbox.checkmark_GC != None ) XtReleaseGC(w, cw->checkbox.checkmark_GC) ; } #endif /* DRAW_CHECK */ #if DRAW_CHECK /************************************************************ * * Actions Procedures * ************************************************************/ /* ARGSUSED */ static void CheckboxPress (Widget w, XEvent *event, String *params, /* unused */ Cardinal *num_params) /* unused */ { CheckboxWidget cw = (CheckboxWidget) w ; if( !cw->checkbox.pressed ) { cw->checkbox.pressed = TRUE ; ((CheckboxWidgetClass)(w->core.widget_class))->radio_class.drawDiamond(w) ; } } static void CheckboxUnpress (Widget w, XEvent *event, String *params, /* unused */ Cardinal *num_params) /* unused */ { CheckboxWidget cw = (CheckboxWidget) w ; int i ; if( cw->checkbox.pressed ) { cw->checkbox.pressed = FALSE ; if( *num_params > 0 && **params == 'd' ) ((CheckboxWidgetClass)(w->core.widget_class))->radio_class.drawDiamond(w); } } #endif /************************************************************ * * Internal Procedures * ************************************************************/ static void DrawCheck (Widget w) { CheckboxWidget cw = (CheckboxWidget) w ; Display *dpy = XtDisplay(w) ; Window win = XtWindow(w) ; GC gc ; #ifdef _ThreeDP_h XPoint pts[6] ; #endif Dimension s = swid(cw); Dimension bsz = bsize(cw); Position bx,by ; /* Check upper-left */ Dimension bh ; #ifdef _ThreeDP_h Dimension bw; GC top, bot; #endif GC ctr ; /* foreground GC */ gc = XtIsSensitive(w) ? cw->command.normal_GC : cw->label.gray_GC ; bh = bs(cw) ; bx = cw->label.internal_width ; by = cw->core.height/2 - bh/2 ; #ifdef _ThreeDP_h bw = bh ; if( !cw->command.set ) { top = cw->threeD.top_shadow_GC ; bot = cw->threeD.bot_shadow_GC ; } else { top = cw->threeD.bot_shadow_GC ; bot = cw->threeD.top_shadow_GC ; } ctr = cw->command.inverse_GC ; #else ctr = cw->command.set ? cw->command.normal_GC : cw->command.inverse_GC ; #endif XFillRectangle(dpy,win,ctr, bx+s,by+s, bsz,bsz) ; #ifdef _ThreeDP_h /* top-left shadow */ pts[0].x = bx ; pts[0].y = by ; pts[1].x = bw ; pts[1].y = 0 ; pts[2].x = -s ; pts[2].y = s ; pts[3].x = -bsz ; pts[3].y = 0 ; pts[4].x = 0 ; pts[4].y = bsz ; pts[5].x = -s ; pts[5].y = s ; XFillPolygon(dpy,win,top, pts,6, Nonconvex,CoordModePrevious) ; /* bottom-right shadow */ pts[0].x = bx+bw ; pts[0].y = by+bh ; pts[1].x = -bw ; pts[1].y = 0 ; pts[2].x = s ; pts[2].y = -s ; pts[3].x = bsz ; pts[3].y = 0 ; pts[4].x = 0 ; pts[4].y = -bsz ; pts[5].x = s ; pts[5].y = -s ; XFillPolygon(dpy,win,bot, pts,6, Nonconvex,CoordModePrevious) ; #else XDrawRectangle(dpy,win,gc, bx+s,by+s, bsz,bsz) ; #endif #if DRAW_CHECK if( cw->command.set && cw->checkbox.checkmark_GC != None ) { XSetTSOrigin(dpy,cw->checkbox.checkmark_GC, bx+s, by+s) ; XFillRectangle(dpy,win,cw->checkbox.checkmark_GC, bx+s, by+s, check_width,check_height) ; } #endif }