procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

*** empty log message ***

Browse source
This commit is contained in:
Fred Pierresteguy 1994-03-11 10:36:17 +00:00
parent e5c001e3a2
commit 9331cca8ba
1 changed files with 58 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

65
lwlib/lwlib.c
View file

@ -35,11 +35,11 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#define alloca __builtin_alloca
#endif
#if ((!__GNUC__) && !defined(__hpux)) && !defined(AIXV3)
#if ((!__GNUC__) && !defined(__hpux)) && !defined(_AIX)
#include <alloca.h>
#endif
#if defined(AIXV3)
#if defined(_AIX)
#pragma alloca
#endif
@ -52,6 +52,9 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#if defined (USE_OLIT)
#include "lwlib-Xol.h"
#endif
#if defined (USE_XAW)
#include "lwlib-Xaw.h"
#endif
#if !defined (USE_LUCID) && !defined (USE_MOTIF) && !defined (USE_OLIT)
ERROR! At least one of USE_LUCID, USE_MOTIF or USE_OLIT must be defined.
@ -321,6 +324,14 @@ get_widget_info (id, remove_p)
return NULL;
}
/* Internal function used by the library dependent implementation to get the
widget_value for a given widget in an instance */
widget_info *
lw_get_widget_info (LWLIB_ID id)
{
return get_widget_info (id, 0);
}
static widget_instance *
get_widget_instance (widget, remove_p)
Widget widget;
@ -572,6 +583,10 @@ set_one_value (instance, val, deep_p)
#if defined (USE_OLIT)
if (lw_olit_widget_p (instance->widget))
xol_update_one_widget (instance, widget, val, deep_p);
#endif
#if defined (USE_XAW)
if (lw_xaw_widget_p (instance->widget))
xaw_update_one_widget (instance, widget, val, deep_p);
#endif
}
}
@ -741,6 +756,10 @@ instanciate_widget_instance (instance)
if (!function)
function = find_in_table (instance->info->type, xol_creation_table);
#endif
#if defined (USE_XAW)
if (!function)
function = find_in_table (instance->info->type, xaw_creation_table);
#endif
if (!function)
{
@ -753,6 +772,10 @@ instanciate_widget_instance (instance)
if (!function)
function = xm_create_dialog;
#endif
#if defined (USE_XAW)
if (!function)
function = xaw_create_dialog;
#endif
#if defined (USE_OLIT)
/* not yet */
#endif
@ -878,6 +901,11 @@ destroy_one_instance (instance)
if (lw_olit_widget_p (instance->widget))
xol_destroy_instance (instance);
else
#endif
#if defined (USE_XAW)
if (lw_xaw_widget_p (instance->widget))
xaw_destroy_instance (instance);
else
#endif
/* do not remove the empty statement */
;
@ -995,19 +1023,34 @@ lw_pop_all_widgets (id, up)
for (instance = info->instances; instance; instance = instance->next)
if (instance->pop_up_p && instance->widget)
{
if (!XtIsRealized (instance->widget))
XtRealizeWidget (instance->widget);
#if defined (USE_LUCID)
if (lw_lucid_widget_p (instance->widget))
xlw_pop_instance (instance, up);
{
XtRealizeWidget (instance->widget);
xlw_pop_instance (instance, up);
}
#endif
#if defined (USE_MOTIF)
if (lw_motif_widget_p (instance->widget))
xm_pop_instance (instance, up);
{
XtRealizeWidget (instance->widget);
xm_pop_instance (instance, up);
}
#endif
#if defined (USE_OLIT)
if (lw_olit_widget_p (instance->widget))
xol_pop_instance (instance, up);
{
XtRealizeWidget (instance->widget);
xol_pop_instance (instance, up);
}
#endif
#if defined (USE_XAW)
if (lw_xaw_widget_p (instance->widget))
{
XtRealizeWidget (XtParent (instance->widget));
XtRealizeWidget (instance->widget);
xaw_pop_instance (instance, up);
}
#endif
}
}
@ -1042,6 +1085,10 @@ lw_popup_menu (widget)
if (lw_olit_widget_p (widget))
xol_popup_menu (widget);
#endif
#if defined (USE_XAW)
if (lw_xaw_widget_p (widget))
xaw_popup_menu (widget);
#endif
}
/* get the values back */
@ -1065,6 +1112,10 @@ get_one_value (instance, val)
#if defined (USE_OLIT)
if (lw_olit_widget_p (instance->widget))
xol_update_one_value (instance, widget, val);
#endif
#if defined (USE_XAW)
if (lw_xaw_widget_p (instance->widget))
xaw_update_one_value (instance, widget, val);
#endif
return True;
}