comparison src/glyphs-x.c @ 639:4b7d425dd3c2

[xemacs-hg @ 2001-07-28 05:08:58 by andyp] Stop flickering on OpenMotif.
author andyp
date Sat, 28 Jul 2001 05:09:03 +0000
parents 4d7fdf497470
children b39c14581166
comparison
equal deleted inserted replaced
638:373ced43e288 639:4b7d425dd3c2
78 #include "file-coding.h" 78 #include "file-coding.h"
79 #endif 79 #endif
80 80
81 #ifdef LWLIB_WIDGETS_MOTIF 81 #ifdef LWLIB_WIDGETS_MOTIF
82 #include <Xm/Xm.h> 82 #include <Xm/Xm.h>
83 #include <Xm/Scale.h>
83 #endif 84 #endif
84 #include <X11/IntrinsicP.h> 85 #include <X11/IntrinsicP.h>
85 86
86 #if INTBITS == 32 87 #if INTBITS == 32
87 # define FOUR_BYTE_TYPE unsigned int 88 # define FOUR_BYTE_TYPE unsigned int
2665 2666
2666 /* set the properties of a progress gauge */ 2667 /* set the properties of a progress gauge */
2667 static void 2668 static void
2668 x_progress_gauge_redisplay (Lisp_Object image_instance) 2669 x_progress_gauge_redisplay (Lisp_Object image_instance)
2669 { 2670 {
2670 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance); 2671 Lisp_Image_Instance *p = XIMAGE_INSTANCE (image_instance);
2671 2672
2672 if (IMAGE_INSTANCE_WIDGET_ITEMS_CHANGED (ii)) 2673 if (IMAGE_INSTANCE_WIDGET_ITEMS_CHANGED (p))
2673 { 2674 {
2674 Arg al [1]; 2675 Arg al [1];
2675 Lisp_Object val; 2676 Lisp_Object val;
2676 #ifdef ERROR_CHECK_GLYPHS 2677 #ifdef ERROR_CHECK_GLYPHS
2677 assert (GUI_ITEMP (IMAGE_INSTANCE_WIDGET_PENDING_ITEMS (ii))); 2678 assert (GUI_ITEMP (IMAGE_INSTANCE_WIDGET_PENDING_ITEMS (p)));
2678 #endif 2679 #endif
2679 val = XGUI_ITEM (IMAGE_INSTANCE_WIDGET_PENDING_ITEMS (ii))->value; 2680 val = XGUI_ITEM (IMAGE_INSTANCE_WIDGET_PENDING_ITEMS (p))->value;
2680 XtSetArg (al[0], XtNvalue, XINT (val)); 2681 XtSetArg (al[0], XtNvalue, XINT (val));
2681 XtSetValues (IMAGE_INSTANCE_X_WIDGET_ID (ii), al, 1); 2682 XtSetValues (IMAGE_INSTANCE_X_WIDGET_ID (p), al, 1);
2682 } 2683 }
2683 } 2684 }
2684 2685
2685 /* instantiate an edit control */ 2686 /* instantiate an edit control */
2686 static void 2687 static void