xemacs-beta: lwlib/lwlib.c comparison

comparison lwlib/lwlib.c @ 185:3d6bfa290dbd r20-3b19

Import from CVS: tag r20-3b19

author	cvs
date	Mon, 13 Aug 2007 09:55:28 +0200
parents	e121b013d1f0
children	f220cc83d72e

comparison

equal deleted inserted replaced

-:bcd2674570bf
+:3d6bfa290dbd
 Copyright (C) 1992, 1993, 1994 Lucid, Inc.
 Copyright (C) 1995 Tinker Systems and INS Engineering Corp.
 This file is part of the Lucid Widget Library.
 The Lucid Widget Library 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.
 The Lucid Widget Library 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
 }
 return wv;
 }
 /* this is analogous to free().  It frees only what was allocated
 by malloc_widget_value(), and no substructures.
 */
 void
 free_widget_value (widget_value *wv)
 {
 if (wv->free_list)
 static void free_widget_value_tree (widget_value *wv);
 static void
 free_widget_value_contents (widget_value *wv)
 {
-if (wv->name) free (wv->name);
+if (wv->name)  free (wv->name);
 if (wv->value) free (wv->value);
-if (wv->key) free (wv->key);
+if (wv->key)   free (wv->key);
 /* #### - all of this 0xDEADBEEF stuff should be unnecessary
 in production code...  it should be conditionalized. */
 wv->name = wv->value = wv->key = (char *) 0xDEADBEEF;
 if (wv->toolkit_data && wv->free_toolkit_data)
 {
-XtFree (wv->toolkit_data);
+XtFree ((char *) wv->toolkit_data);
 wv->toolkit_data = (void *) 0xDEADBEEF;
 }
 #ifdef NEED_SCROLLBARS
 if (wv->scrollbar_data)
 {
 static widget_value *
 copy_widget_value_tree (widget_value *val, change_type change)
 {
 widget_value *copy;
 if (!val)
 return NULL;
 if (val == (widget_value *) 1)
 return val;
 if (!val2)
 {
 free_widget_value_tree (val1);
 return NULL;
 }
 change = NO_CHANGE;
 if (val1->type != val2->type)
 {
 EXPLAIN (val1->name, change, STRUCTURAL_CHANGE, "type change",
 if (level > 0)
 {
 merged_contents =
 	merge_widget_value (val1->contents, val2->contents, level - 1);
 if (val1->contents && !merged_contents)
 	{
 	  EXPLAIN (val1->name, change, INVISIBLE_CHANGE, "(contents gone)",
 		   0, 0);
 	  change = max (change, INVISIBLE_CHANGE);
 	{
 	  EXPLAIN (val1->name, change, INVISIBLE_CHANGE, "(contents change)",
 		   0, 0);
 	  change = max (change, INVISIBLE_CHANGE);
 	}
 val1->contents = merged_contents;
 }
 merged_next = merge_widget_value (val1->next, val2->next, level);
 }
 val1->next = merged_next;
 val1->change = change;
 if (change > NO_CHANGE && val1->toolkit_data)
 {
 if (val1->free_toolkit_data)
-	XtFree (val1->toolkit_data);
+	XtFree ((char *) val1->toolkit_data);
 val1->toolkit_data = NULL;
 }
 return val1;
 }
 {
 int length = strlen (name) + 2;
 char *real_name = (char *) alloca (length);
 real_name [0] = '*';
 strcpy (real_name + 1, name);
 widget = XtNameToWidget (instance->widget, real_name);
 }
 return widget;
 }
 static void
 set_one_value (widget_instance *instance, widget_value *val, Boolean deep_p)
 {
 Widget widget = name_to_widget (instance, val->name);
 if (widget)
 {
 #ifdef NEED_LUCID
 if (lw_lucid_widget_p (instance->widget))
 	xlw_update_one_widget (instance, widget, val, deep_p);
 }
 static Boolean
 dialog_spec_p (CONST char *name)
 {
 /* return True if name matches [EILPQeilpq][1-9][Bb] or
 [EILPQeilpq][1-9][Bb][Rr][1-9] */
 if (!name)
 return False;
 switch (name [0])
 {
 case 'E': case 'I': case 'L': case 'P': case 'Q':
 case 'e': case 'i': case 'l': case 'p': case 'q':
 if (name [1] >= '0' && name [1] <= '9')
 	    return True;
 	  return False;
 	}
 else
 	return False;
 default:
 return False;
 }
 }
 #ifdef DIALOGS_LUCID
 	  /* not yet (not ever?) */
 #endif
 	}
 }
 if (!function)
 {
 fprintf (stderr, "No creation function for widget type %s\n",
 	       instance->info->type);
 abort ();
 abort ();
 /*   XtRealizeWidget (instance->widget);*/
 }
 void
 lw_register_widget (CONST char *type, CONST char *name,
 LWLIB_ID id, widget_value *val,
 		    lw_callback pre_activate_cb, lw_callback selection_cb,
 		    lw_callback post_activate_cb)
 {
 Widget
 lw_get_widget (LWLIB_ID id, Widget parent, Boolean pop_up_p)
 {
 widget_instance *instance;
 instance = find_instance (id, parent, pop_up_p);
 return instance ? instance->widget : NULL;
 }
 Widget
 lw_make_widget (LWLIB_ID id, Widget parent, Boolean pop_up_p)
 {
 widget_instance *instance;
 widget_info *info;
 instance = find_instance (id, parent, pop_up_p);
 if (!instance)
 {
 info = get_widget_info (id, False);
 if (!info)
 {
 lw_register_widget (type, name, id, val, pre_activate_cb, selection_cb,
 		      post_activate_cb);
 return lw_make_widget (id, parent, pop_up_p);
 }
 /* destroying the widgets */
 static void
 destroy_one_instance (widget_instance *instance)
 {
 void
 lw_destroy_widget (Widget w)
 {
 widget_instance *instance = get_widget_instance (w, True);
 if (instance)
 {
 widget_info *info = instance->info;
 /* instance has already been removed from the list; free it */
 destroy_one_instance (instance);
 /* get the values back */
 static Boolean
 get_one_value (widget_instance *instance, widget_value *val)
 {
 Widget widget = name_to_widget (instance, val->name);
 if (widget)
 {
 #ifdef NEED_LUCID
 if (lw_lucid_widget_p (instance->widget))
 	xlw_update_one_value (instance, widget, val);
 return NULL;
 }
 /* update other instances value when one thing changed */
 /* This function can be used as a an XtCallback for the widgets that get
 modified to update other instances of the widgets.  Closure should be the
 widget_instance. */
 void
 lw_internal_update_other_instances (Widget widget, XtPointer closure,
 				    XtPointer call_data)
 {
 /* To forbid recursive calls */
 static Boolean updating;
 widget_instance *instance = (widget_instance*)closure;
 char *name = XtName (widget);
 widget_info *info;
 widget_instance *cur;
 widget_value *val;
 {
 Pixel foreground = 0;
 Pixel background = 1;
 Widget widget_to_invert = XtNameToWidget (w, "*sheet");
 Arg al [2];
 if (!widget_to_invert)
 widget_to_invert = w;
 XtSetArg (al [0], XtNforeground, &foreground);
 XtSetArg (al [1], XtNbackground, &background);

Mercurial > hg > xemacs-beta

comparison lwlib/lwlib.c @ 185:3d6bfa290dbd r20-3b19