svn merge ^/branches/released .

1 files changed, 629 insertions, 632 deletions

diff --git a/libXaw/src/Toggle.c b/libXaw/src/Toggle.c
index dfbcf7677..cd288c5a2 100644
--- a/libXaw/src/Toggle.c
+++ b/libXaw/src/Toggle.c
@@ -1,632 +1,629 @@
-/* $Xorg: Toggle.c,v 1.4 2001/02/09 02:03:47 xorgcvs Exp $ */
-
-/*
-
-Copyright 1989, 1994, 1998  The Open Group
-
-Permission to use, copy, modify, distribute, and sell this software and its
-documentation for any purpose is hereby granted without fee, provided that
-the above copyright notice appear in all copies and that both that
-copyright notice and this permission notice appear in supporting
-documentation.
-
-The above copyright notice and this permission notice shall be included in
-all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
-OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
-AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
-CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-
-Except as contained in this notice, the name of The Open Group shall not be
-used in advertising or otherwise to promote the sale, use or other dealings
-in this Software without prior written authorization from The Open Group.
-
-*/
-/* $XFree86: xc/lib/Xaw/Toggle.c,v 1.8 2001/08/23 00:03:20 dawes Exp $ */
-
-/*
- * Author: Chris D. Peterson
- *         MIT X Consortium 
- *         kit@expo.lcs.mit.edu
- *  
- * Date:   January 12, 1989
- *
- */
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <stdio.h>
-#include <X11/IntrinsicP.h>
-#include <X11/StringDefs.h>
-#include <X11/Xmu/Converters.h>
-#include <X11/Xmu/Misc.h>
-#include <X11/Xmu/SysUtil.h>
-#include <X11/Xaw/ToggleP.h>
-#include <X11/Xaw/XawInit.h>
-
-/*
- * Class Methods
- */
-static void XawToggleClassInitialize(void);
-static void XawToggleInitialize(Widget, Widget, ArgList, Cardinal*);
-static Boolean XawToggleSetValues(Widget, Widget, Widget, ArgList, Cardinal*);
-
-/*
- * Prototypes
- */
-static void AddToRadioGroup(RadioGroup*, Widget);
-static void CreateRadioGroup(Widget, Widget);
-static RadioGroup *GetRadioGroup(Widget);
-static void RemoveFromRadioGroup(Widget);
-static void TurnOffRadioSiblings(Widget);
-static void XawToggleDestroy(Widget, XtPointer, XtPointer);
-
-/* 
- * Actions
- */
-static void Notify(Widget, XEvent*, String*, Cardinal*);
-static void Toggle(Widget, XEvent*, String*, Cardinal*);
-static void ToggleSet(Widget, XEvent*, String*, Cardinal*);
-
-/*
- * Initialization
- */
-/*
- * The order of toggle and notify are important, as the state has
- * to be set when we call the notify proc
- */
-static char defaultTranslations[] =
-"<Enter>:"		"highlight(Always)\n"
-"<Leave>:"		"unhighlight()\n"
-"<Btn1Down>,<Btn1Up>:"	"toggle() notify()\n"
-;
-
-#define offset(field) XtOffsetOf(ToggleRec, field)
-static XtResource resources[] = { 
-  {
-    XtNstate,
-    XtCState,
-    XtRBoolean,
-    sizeof(Boolean),
-    offset(command.set),
-    XtRString,
-    "off"
-  },
-  {
-    XtNradioGroup,
-    XtCWidget,
-    XtRWidget,
-    sizeof(Widget),
-    offset(toggle.widget),
-    XtRWidget,
-    NULL
-  },
-  {
-    XtNradioData,
-    XtCRadioData,
-    XtRPointer,
-    sizeof(XtPointer),
-    offset(toggle.radio_data),
-    XtRPointer,
-    NULL
-  },
-};
-#undef offset
-
-static XtActionsRec actionsList[] = {
-  {"toggle",		Toggle},
-  {"notify",		Notify},
-  {"set",		ToggleSet},
-};
-
-#define Superclass	((CommandWidgetClass)&commandClassRec)
-ToggleClassRec toggleClassRec = {
-  /* core */
-  {
-    (WidgetClass)Superclass,		/* superclass		  */
-    "Toggle",				/* class_name		  */
-    sizeof(ToggleRec),			/* size			  */
-    XawToggleClassInitialize,		/* class_initialize	  */
-    NULL,				/* class_part_initialize  */
-    False,				/* class_inited		  */
-    XawToggleInitialize,		/* initialize		  */
-    NULL,				/* initialize_hook	  */
-    XtInheritRealize,			/* realize		  */
-    actionsList,			/* actions		  */
-    XtNumber(actionsList),		/* num_actions		  */
-    resources,				/* resources		  */
-    XtNumber(resources),		/* resource_count	  */
-    NULLQUARK,				/* xrm_class		  */
-    False,				/* compress_motion	  */
-    True,				/* compress_exposure	  */
-    True,				/* compress_enterleave	  */
-    False,				/* visible_interest	  */
-    NULL,	 			/* destroy		  */
-    XtInheritResize,			/* resize		  */
-    XtInheritExpose,			/* expose		  */
-    XawToggleSetValues,			/* set_values		  */
-    NULL,				/* set_values_hook	  */
-    XtInheritSetValuesAlmost,		/* set_values_almost	  */
-    NULL,				/* get_values_hook	  */
-    NULL,				/* accept_focus		  */
-    XtVersion,				/* version		  */
-    NULL,				/* callback_private	  */
-    defaultTranslations,		/* tm_table		  */
-    XtInheritQueryGeometry,		/* query_geometry	  */
-    XtInheritDisplayAccelerator,	/* display_accelerator	  */
-    NULL,				/* extension		  */
-  },
-  /* simple */
-  {
-    XtInheritChangeSensitive,		/* change_sensitive */
-  },
-  /* label */
-  {
-    NULL,				/* extension */
-  },
-  /* command */
-  {
-    NULL,				/* extension */
-  },
-  /* toggle */
-  {
-    NULL,				/* Set */
-    NULL,				/* Unset */
-    NULL,				/* extension */
-  }
-};
-
-WidgetClass toggleWidgetClass = (WidgetClass)&toggleClassRec;
-
-/*
- * Impelementation
- */
-static void
-XawToggleClassInitialize(void)
-{
-    XtActionList actions;
-    Cardinal num_actions;
-    Cardinal i;
-    ToggleWidgetClass cclass = (ToggleWidgetClass)toggleWidgetClass;
-    static XtConvertArgRec parentCvtArgs[] = {
-	{XtBaseOffset, (XtPointer)XtOffsetOf(WidgetRec, core.parent),
-	 sizeof(Widget)}
-    };
-
-    XawInitializeWidgetSet();
-    XtSetTypeConverter(XtRString, XtRWidget, XmuNewCvtStringToWidget,
-		       parentCvtArgs, XtNumber(parentCvtArgs),
-		       XtCacheNone, NULL);
-    XtSetTypeConverter(XtRWidget, XtRString, XmuCvtWidgetToString,
-		       NULL, 0, XtCacheNone, NULL);
-
-    /*
-     * Find the set and unset actions in the command widget's action table
-     */
-    XtGetActionList(commandWidgetClass, &actions, &num_actions);
-
-    for (i = 0 ; i < num_actions ; i++) {
-	if (streq(actions[i].string, "set"))
-	    cclass->toggle_class.Set = actions[i].proc;
-	if (streq(actions[i].string, "unset")) 
-	    cclass->toggle_class.Unset = actions[i].proc;
-
-	if (cclass->toggle_class.Set != NULL &&
-	    cclass->toggle_class.Unset != NULL)	{
-	    XtFree((char *)actions);
-	    return;
-	}
-    }
-
-    /* We should never get here */
-    XtError("Aborting, due to errors resolving bindings in the Toggle widget.");
-}
-
-/*ARGSUSED*/
-static void
-XawToggleInitialize(Widget request, Widget cnew,
-		    ArgList args, Cardinal *num_args)
-{
-    ToggleWidget tw = (ToggleWidget)cnew;
-    ToggleWidget tw_req = (ToggleWidget)request;
-
-    tw->toggle.radio_group = NULL;
-
-    if (tw->toggle.radio_data == NULL) 
-	tw->toggle.radio_data = (XtPointer)cnew->core.name;
-
-    if (tw->toggle.widget != NULL) {
-	if (GetRadioGroup(tw->toggle.widget) == NULL)
-	    CreateRadioGroup(cnew, tw->toggle.widget);
-	else
-	    AddToRadioGroup(GetRadioGroup(tw->toggle.widget), cnew);
-    }
-    XtAddCallback(cnew, XtNdestroyCallback, XawToggleDestroy, NULL);
-
-    /*
-     * Command widget assumes that the widget is unset, so we only 
-     * have to handle the case where it needs to be set
-     *
-     * If this widget is in a radio group then it may cause another
-     * widget to be unset, thus calling the notify proceedure
-     *
-     * I want to set the toggle if the user set the state to "On" in 
-     * the resource group, reguardless of what my ancestors did
-     */
-    if (tw_req->command.set)
-	ToggleSet(cnew, NULL, NULL, NULL);
-}
-
-/*ARGSUSED*/
-static void 
-ToggleSet(Widget w, XEvent *event, String *params, Cardinal *num_params)
-{
-    ToggleWidgetClass cclass = (ToggleWidgetClass)w->core.widget_class;
-
-    TurnOffRadioSiblings(w);
-    cclass->toggle_class.Set(w, event, NULL, NULL);
-}
-
-static void 
-Toggle(Widget w, XEvent *event, String *params, Cardinal *num_params)
-{
-    ToggleWidget tw = (ToggleWidget)w;
-    ToggleWidgetClass cclass = (ToggleWidgetClass)w->core.widget_class;
-
-    if (tw->command.set) 
-	cclass->toggle_class.Unset(w, event, NULL, NULL);
-    else 
-	ToggleSet(w, event, params, num_params);
-}
-
-/*ARGSUSED*/
-static void
-Notify(Widget w, XEvent *event, String *params, Cardinal *num_params)
-{
-    ToggleWidget tw = (ToggleWidget)w;
-    long antilint = tw->command.set;
-
-    XtCallCallbacks(w, XtNcallback, (XtPointer)antilint);
-}
-
-/*ARGSUSED*/
-static Boolean 
-XawToggleSetValues(Widget current, Widget request, Widget cnew,
-		   ArgList args, Cardinal *num_args)
-{
-    ToggleWidget oldtw = (ToggleWidget)current;
-    ToggleWidget tw = (ToggleWidget)cnew;
-    ToggleWidget rtw = (ToggleWidget)request;
-
-    if (oldtw->toggle.widget != tw->toggle.widget)
-	XawToggleChangeRadioGroup(cnew, tw->toggle.widget);
-
-    if (!tw->core.sensitive && oldtw->core.sensitive && rtw->command.set)
-	tw->command.set = True;
-
-    if (oldtw->command.set != tw->command.set) {
-	tw->command.set = oldtw->command.set;
-	Toggle(cnew, NULL, NULL, NULL);
-    }
-
-    return (False);
-}
-
-/*
- * Function:
- *	XawToggleDestroy
- *
- * Parameters:
- *	w     - toggle widget that is being destroyed
- *	temp1 - not used
- *	temp2 - ""
- *
- * Description:
- *	Destroy Callback for toggle widget.
- */
-/*ARGSUSED*/
-static void
-XawToggleDestroy(Widget w, XtPointer temp1, XtPointer temp2)
-{
-    RemoveFromRadioGroup(w);
-}
-
-/*
- * Function:
- *	GetRadioGroup
- *
- * Parameters:
- *	w - toggle widget who's radio group we are getting
- *
- * Description:
- *	Gets the radio group associated with a give toggle widget.
- *
- * Returns:
- *	The radio group associated with this toggle group
- */
-static RadioGroup *
-GetRadioGroup(Widget w)
-{
-    ToggleWidget tw = (ToggleWidget)w;
-
-    if (tw == NULL)
-	return (NULL);
-
-    return (tw->toggle.radio_group);
-}
-
-/*
- * Function:
- *	CreateRadioGroup
- *
- * Parameters:
- *	w1 - toggle widgets to add to the radio group
- *	w2 - ""
- *
- * Description:
- *	Creates a radio group. give two widgets.
- * 
- * Note:
- *	A pointer to the group is added to each widget's radio_group field.
- */
-static void
-CreateRadioGroup(Widget w1, Widget w2)
-{
-    ToggleWidget tw1 = (ToggleWidget)w1;
-    ToggleWidget tw2 = (ToggleWidget) w2;
-
-    if (tw1->toggle.radio_group != NULL || tw2->toggle.radio_group != NULL)
-	XtAppWarning(XtWidgetToApplicationContext(w1),
-		     "Toggle Widget Error - Attempting to create a "
-		     "new toggle group, when one already exists.");
-
-    AddToRadioGroup(NULL, w1);
-    AddToRadioGroup(GetRadioGroup(w1), w2);
-}
-
-/*
- * Function:
- *	AddToRadioGroup
- *
- * Parameters:
- *	group - element of the radio group the we are adding to
- *	w     - new toggle widget to add to the group
- *
- * Description:
- *	Adds a toggle to the radio group.
- */
-static void
-AddToRadioGroup(RadioGroup *group, Widget w)
-{
-    ToggleWidget tw = (ToggleWidget)w;
-    RadioGroup *local;
-
-    local = (RadioGroup *)XtMalloc(sizeof(RadioGroup));
-    local->widget = w;
-    tw->toggle.radio_group = local;
-
-    if (group == NULL) {		  /* Creating new group */
-	group = local;
-	group->next = NULL;
-	group->prev = NULL;
-	return;
-    }
-    local->prev = group;	  /* Adding to previous group */
-    if ((local->next = group->next) != NULL)
-	local->next->prev = local;
-    group->next = local;
-}
-
-/*
- * Function:
- *	TurnOffRadioSiblings
- *
- * Parameters:
- *	widget - toggle widget
- *
- * Description:
- *	Deactivates all radio siblings.
- */
-static void
-TurnOffRadioSiblings(Widget w)
-{
-    RadioGroup *group;
-    ToggleWidgetClass cclass = (ToggleWidgetClass)w->core.widget_class;
-
-    if ((group = GetRadioGroup(w)) == NULL)	/* Punt if there is no group */
-	return;
-
-    /* Go to the top of the group */
-    for (; group->prev != NULL ; group = group->prev)
-	;
-
-    while (group != NULL) {
-	ToggleWidget local_tog = (ToggleWidget)group->widget;
-
-	if (local_tog->command.set) {
-	    cclass->toggle_class.Unset(group->widget, NULL, NULL, NULL);
-	    Notify(group->widget, NULL, NULL, NULL);
-	}
-	group = group->next;
-    }
-}
-
-/*
- * Function:
- *	RemoveFromRadioGroup
- *
- * Parameters:
- *	w - toggle widget to remove
- *
- * Description:
- *	Removes a toggle from a RadioGroup.
- */
-static void
-RemoveFromRadioGroup(Widget w)
-{
-    RadioGroup *group = GetRadioGroup(w);
-    if (group != NULL) {
-	if (group->prev != NULL)
-	    (group->prev)->next = group->next;
-	if (group->next != NULL)
-	    (group->next)->prev = group->prev;
-	XtFree((char *)group);
-    }
-}
-
-/*
- * Function:
- *	XawToggleChangeRadioGroup
- *
- * Parameters:
- *	w	    - toggle widget to change groups
- *	radio_group - any widget in the new group
- *
- * Description:
- *	Allows a toggle widget to change radio groups.
- */
-void
-XawToggleChangeRadioGroup(Widget w, Widget radio_group)
-{
-    ToggleWidget tw = (ToggleWidget)w;
-    RadioGroup *group;
-
-    RemoveFromRadioGroup(w);
-
-    /*
-     * If the toggle that we are about to add is set then we will 
-     * unset all toggles in the new radio group
-     */
-
-    if (tw->command.set && radio_group != NULL)
-	XawToggleUnsetCurrent(radio_group);
-
-    if (radio_group != NULL) {
-	if ((group = GetRadioGroup(radio_group)) == NULL)
-	    CreateRadioGroup(w, radio_group);
-	else
-	    AddToRadioGroup(group, w);
-    }
-}
-
-/*
- * Function:
- *	XawToggleGetCurrent
- *
- * Parameters:
- *	w - any toggle widget in the toggle group
- *
- * Description:
- *	  Returns the RadioData associated with the toggle
- *	widget that is currently active in a toggle group.
- *
- * Returns:
- *	The XtNradioData associated with the toggle widget
- */
-XtPointer
-XawToggleGetCurrent(Widget w)
-{
-    RadioGroup *group;
-
-    if ((group = GetRadioGroup(w)) == NULL)
-	return (NULL);
-
-    for (; group->prev != NULL ; group = group->prev)
-	;
-
-    while (group != NULL) {
-	ToggleWidget local_tog = (ToggleWidget)group->widget;
-
-	if (local_tog->command.set)
-	    return (local_tog->toggle.radio_data);
-	group = group->next;
-    }
-
-    return (NULL);
-}
-
-/*
- * Function:
- *	XawToggleSetCurrent
- *
- * Parameters:
- *	radio_group - any toggle widget in the toggle group
- *	radio_data  - radio data of the toggle widget to set
- *
- * Description:
- *	Sets the Toggle widget associated with the radio_data specified.
- */
-void
-XawToggleSetCurrent(Widget radio_group, XtPointer radio_data)
-{
-    RadioGroup *group;
-    ToggleWidget local_tog; 
-
-    /* Special case of no radio group */
-
-    if ((group = GetRadioGroup(radio_group)) == NULL) {
-	local_tog = (ToggleWidget)radio_group;
-
-	if (local_tog->toggle.radio_data == radio_data &&
-	    !local_tog->command.set) {
-	    ToggleSet(radio_group, NULL, NULL, NULL);
-	    Notify(radio_group, NULL, NULL, NULL);
-	}
-	return;
-    }
-
-    /*
-     * find top of radio_roup 
-     */
-    for (; group->prev != NULL ; group = group->prev)
-	;
-
-    /*
-     * search for matching radio data
-     */
-    while (group != NULL) {
-	local_tog = (ToggleWidget)group->widget;
-
-	if (local_tog->toggle.radio_data == radio_data) {
-	    if (!local_tog->command.set) {	/* if not already set */
-		ToggleSet(group->widget, NULL, NULL, NULL);
-		Notify(group->widget, NULL, NULL, NULL);
-	    }
-	    return;			/* found it, done */
-	}
-	group = group->next;
-    }
-}
-
-/*
- * Function:
- *	XawToggleUnsetCurrent
- *
- * Parameters:
- *	radio_group - any toggle widget in the toggle group
- *
- * Description:
- *	Unsets all Toggles in the radio_group specified.
- */
-void
-XawToggleUnsetCurrent(Widget radio_group)
-{
-    ToggleWidgetClass cclass;
-    ToggleWidget local_tog = (ToggleWidget)radio_group;
-
-    /* Special Case no radio group */
-
-    if (local_tog->command.set) {
-	cclass = (ToggleWidgetClass)local_tog->core.widget_class;
-	cclass->toggle_class.Unset(radio_group, NULL, NULL, NULL);
-	Notify(radio_group, NULL, NULL, NULL);
-    }
-    if (GetRadioGroup(radio_group) == NULL)
-	return;
-
-    TurnOffRadioSiblings(radio_group);
-}
+/*

+

+Copyright 1989, 1994, 1998  The Open Group

+

+Permission to use, copy, modify, distribute, and sell this software and its

+documentation for any purpose is hereby granted without fee, provided that

+the above copyright notice appear in all copies and that both that

+copyright notice and this permission notice appear in supporting

+documentation.

+

+The above copyright notice and this permission notice shall be included in

+all copies or substantial portions of the Software.

+

+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE

+OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN

+AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN

+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

+

+Except as contained in this notice, the name of The Open Group shall not be

+used in advertising or otherwise to promote the sale, use or other dealings

+in this Software without prior written authorization from The Open Group.

+

+*/

+

+/*

+ * Author: Chris D. Peterson

+ *         MIT X Consortium 

+ *         kit@expo.lcs.mit.edu

+ *  

+ * Date:   January 12, 1989

+ *

+ */

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <stdio.h>

+#include <X11/IntrinsicP.h>

+#include <X11/StringDefs.h>

+#include <X11/Xmu/Converters.h>

+#include <X11/Xmu/Misc.h>

+#include <X11/Xmu/SysUtil.h>

+#include <X11/Xaw/ToggleP.h>

+#include <X11/Xaw/XawInit.h>

+

+/*

+ * Class Methods

+ */

+static void XawToggleClassInitialize(void);

+static void XawToggleInitialize(Widget, Widget, ArgList, Cardinal*);

+static Boolean XawToggleSetValues(Widget, Widget, Widget, ArgList, Cardinal*);

+

+/*

+ * Prototypes

+ */

+static void AddToRadioGroup(RadioGroup*, Widget);

+static void CreateRadioGroup(Widget, Widget);

+static RadioGroup *GetRadioGroup(Widget);

+static void RemoveFromRadioGroup(Widget);

+static void TurnOffRadioSiblings(Widget);

+static void XawToggleDestroy(Widget, XtPointer, XtPointer);

+

+/* 

+ * Actions

+ */

+static void Notify(Widget, XEvent*, String*, Cardinal*);

+static void Toggle(Widget, XEvent*, String*, Cardinal*);

+static void ToggleSet(Widget, XEvent*, String*, Cardinal*);

+

+/*

+ * Initialization

+ */

+/*

+ * The order of toggle and notify are important, as the state has

+ * to be set when we call the notify proc

+ */

+static char defaultTranslations[] =

+"<Enter>:"		"highlight(Always)\n"

+"<Leave>:"		"unhighlight()\n"

+"<Btn1Down>,<Btn1Up>:"	"toggle() notify()\n"

+;

+

+#define offset(field) XtOffsetOf(ToggleRec, field)

+static XtResource resources[] = { 

+  {

+    XtNstate,

+    XtCState,

+    XtRBoolean,

+    sizeof(Boolean),

+    offset(command.set),

+    XtRString,

+    "off"

+  },

+  {

+    XtNradioGroup,

+    XtCWidget,

+    XtRWidget,

+    sizeof(Widget),

+    offset(toggle.widget),

+    XtRWidget,

+    NULL

+  },

+  {

+    XtNradioData,

+    XtCRadioData,

+    XtRPointer,

+    sizeof(XtPointer),

+    offset(toggle.radio_data),

+    XtRPointer,

+    NULL

+  },

+};

+#undef offset

+

+static XtActionsRec actionsList[] = {

+  {"toggle",		Toggle},

+  {"notify",		Notify},

+  {"set",		ToggleSet},

+};

+

+#define Superclass	((CommandWidgetClass)&commandClassRec)

+ToggleClassRec toggleClassRec = {

+  /* core */

+  {

+    (WidgetClass)Superclass,		/* superclass		  */

+    "Toggle",				/* class_name		  */

+    sizeof(ToggleRec),			/* size			  */

+    XawToggleClassInitialize,		/* class_initialize	  */

+    NULL,				/* class_part_initialize  */

+    False,				/* class_inited		  */

+    XawToggleInitialize,		/* initialize		  */

+    NULL,				/* initialize_hook	  */

+    XtInheritRealize,			/* realize		  */

+    actionsList,			/* actions		  */

+    XtNumber(actionsList),		/* num_actions		  */

+    resources,				/* resources		  */

+    XtNumber(resources),		/* resource_count	  */

+    NULLQUARK,				/* xrm_class		  */

+    False,				/* compress_motion	  */

+    True,				/* compress_exposure	  */

+    True,				/* compress_enterleave	  */

+    False,				/* visible_interest	  */

+    NULL,	 			/* destroy		  */

+    XtInheritResize,			/* resize		  */

+    XtInheritExpose,			/* expose		  */

+    XawToggleSetValues,			/* set_values		  */

+    NULL,				/* set_values_hook	  */

+    XtInheritSetValuesAlmost,		/* set_values_almost	  */

+    NULL,				/* get_values_hook	  */

+    NULL,				/* accept_focus		  */

+    XtVersion,				/* version		  */

+    NULL,				/* callback_private	  */

+    defaultTranslations,		/* tm_table		  */

+    XtInheritQueryGeometry,		/* query_geometry	  */

+    XtInheritDisplayAccelerator,	/* display_accelerator	  */

+    NULL,				/* extension		  */

+  },

+  /* simple */

+  {

+    XtInheritChangeSensitive,		/* change_sensitive */

+  },

+  /* label */

+  {

+    NULL,				/* extension */

+  },

+  /* command */

+  {

+    NULL,				/* extension */

+  },

+  /* toggle */

+  {

+    NULL,				/* Set */

+    NULL,				/* Unset */

+    NULL,				/* extension */

+  }

+};

+

+WidgetClass toggleWidgetClass = (WidgetClass)&toggleClassRec;

+

+/*

+ * Impelementation

+ */

+static void

+XawToggleClassInitialize(void)

+{

+    XtActionList actions;

+    Cardinal num_actions;

+    Cardinal i;

+    ToggleWidgetClass cclass = (ToggleWidgetClass)toggleWidgetClass;

+    static XtConvertArgRec parentCvtArgs[] = {

+	{XtBaseOffset, (XtPointer)XtOffsetOf(WidgetRec, core.parent),

+	 sizeof(Widget)}

+    };

+

+    XawInitializeWidgetSet();

+    XtSetTypeConverter(XtRString, XtRWidget, XmuNewCvtStringToWidget,

+		       parentCvtArgs, XtNumber(parentCvtArgs),

+		       XtCacheNone, NULL);

+    XtSetTypeConverter(XtRWidget, XtRString, XmuCvtWidgetToString,

+		       NULL, 0, XtCacheNone, NULL);

+

+    /*

+     * Find the set and unset actions in the command widget's action table

+     */

+    XtGetActionList(commandWidgetClass, &actions, &num_actions);

+

+    for (i = 0 ; i < num_actions ; i++) {

+	if (streq(actions[i].string, "set"))

+	    cclass->toggle_class.Set = actions[i].proc;

+	if (streq(actions[i].string, "unset")) 

+	    cclass->toggle_class.Unset = actions[i].proc;

+

+	if (cclass->toggle_class.Set != NULL &&

+	    cclass->toggle_class.Unset != NULL)	{

+	    XtFree((char *)actions);

+	    return;

+	}

+    }

+

+    /* We should never get here */

+    XtError("Aborting, due to errors resolving bindings in the Toggle widget.");

+}

+

+/*ARGSUSED*/

+static void

+XawToggleInitialize(Widget request, Widget cnew,

+		    ArgList args, Cardinal *num_args)

+{

+    ToggleWidget tw = (ToggleWidget)cnew;

+    ToggleWidget tw_req = (ToggleWidget)request;

+

+    tw->toggle.radio_group = NULL;

+

+    if (tw->toggle.radio_data == NULL) 

+	tw->toggle.radio_data = (XtPointer)cnew->core.name;

+

+    if (tw->toggle.widget != NULL) {

+	if (GetRadioGroup(tw->toggle.widget) == NULL)

+	    CreateRadioGroup(cnew, tw->toggle.widget);

+	else

+	    AddToRadioGroup(GetRadioGroup(tw->toggle.widget), cnew);

+    }

+    XtAddCallback(cnew, XtNdestroyCallback, XawToggleDestroy, NULL);

+

+    /*

+     * Command widget assumes that the widget is unset, so we only 

+     * have to handle the case where it needs to be set

+     *

+     * If this widget is in a radio group then it may cause another

+     * widget to be unset, thus calling the notify proceedure

+     *

+     * I want to set the toggle if the user set the state to "On" in 

+     * the resource group, reguardless of what my ancestors did

+     */

+    if (tw_req->command.set)

+	ToggleSet(cnew, NULL, NULL, NULL);

+}

+

+/*ARGSUSED*/

+static void 

+ToggleSet(Widget w, XEvent *event, String *params, Cardinal *num_params)

+{

+    ToggleWidgetClass cclass = (ToggleWidgetClass)w->core.widget_class;

+

+    TurnOffRadioSiblings(w);

+    cclass->toggle_class.Set(w, event, NULL, NULL);

+}

+

+static void 

+Toggle(Widget w, XEvent *event, String *params, Cardinal *num_params)

+{

+    ToggleWidget tw = (ToggleWidget)w;

+    ToggleWidgetClass cclass = (ToggleWidgetClass)w->core.widget_class;

+

+    if (tw->command.set) 

+	cclass->toggle_class.Unset(w, event, NULL, NULL);

+    else 

+	ToggleSet(w, event, params, num_params);

+}

+

+/*ARGSUSED*/

+static void

+Notify(Widget w, XEvent *event, String *params, Cardinal *num_params)

+{

+    ToggleWidget tw = (ToggleWidget)w;

+    long antilint = tw->command.set;

+

+    XtCallCallbacks(w, XtNcallback, (XtPointer)antilint);

+}

+

+/*ARGSUSED*/

+static Boolean 

+XawToggleSetValues(Widget current, Widget request, Widget cnew,

+		   ArgList args, Cardinal *num_args)

+{

+    ToggleWidget oldtw = (ToggleWidget)current;

+    ToggleWidget tw = (ToggleWidget)cnew;

+    ToggleWidget rtw = (ToggleWidget)request;

+

+    if (oldtw->toggle.widget != tw->toggle.widget)

+	XawToggleChangeRadioGroup(cnew, tw->toggle.widget);

+

+    if (!tw->core.sensitive && oldtw->core.sensitive && rtw->command.set)

+	tw->command.set = True;

+

+    if (oldtw->command.set != tw->command.set) {

+	tw->command.set = oldtw->command.set;

+	Toggle(cnew, NULL, NULL, NULL);

+    }

+

+    return (False);

+}

+

+/*

+ * Function:

+ *	XawToggleDestroy

+ *

+ * Parameters:

+ *	w     - toggle widget that is being destroyed

+ *	temp1 - not used

+ *	temp2 - ""

+ *

+ * Description:

+ *	Destroy Callback for toggle widget.

+ */

+/*ARGSUSED*/

+static void

+XawToggleDestroy(Widget w, XtPointer temp1, XtPointer temp2)

+{

+    RemoveFromRadioGroup(w);

+}

+

+/*

+ * Function:

+ *	GetRadioGroup

+ *

+ * Parameters:

+ *	w - toggle widget who's radio group we are getting

+ *

+ * Description:

+ *	Gets the radio group associated with a give toggle widget.

+ *

+ * Returns:

+ *	The radio group associated with this toggle group

+ */

+static RadioGroup *

+GetRadioGroup(Widget w)

+{

+    ToggleWidget tw = (ToggleWidget)w;

+

+    if (tw == NULL)

+	return (NULL);

+

+    return (tw->toggle.radio_group);

+}

+

+/*

+ * Function:

+ *	CreateRadioGroup

+ *

+ * Parameters:

+ *	w1 - toggle widgets to add to the radio group

+ *	w2 - ""

+ *

+ * Description:

+ *	Creates a radio group. give two widgets.

+ * 

+ * Note:

+ *	A pointer to the group is added to each widget's radio_group field.

+ */

+static void

+CreateRadioGroup(Widget w1, Widget w2)

+{

+    ToggleWidget tw1 = (ToggleWidget)w1;

+    ToggleWidget tw2 = (ToggleWidget) w2;

+

+    if (tw1->toggle.radio_group != NULL || tw2->toggle.radio_group != NULL)

+	XtAppWarning(XtWidgetToApplicationContext(w1),

+		     "Toggle Widget Error - Attempting to create a "

+		     "new toggle group, when one already exists.");

+

+    AddToRadioGroup(NULL, w1);

+    AddToRadioGroup(GetRadioGroup(w1), w2);

+}

+

+/*

+ * Function:

+ *	AddToRadioGroup

+ *

+ * Parameters:

+ *	group - element of the radio group the we are adding to

+ *	w     - new toggle widget to add to the group

+ *

+ * Description:

+ *	Adds a toggle to the radio group.

+ */

+static void

+AddToRadioGroup(RadioGroup *group, Widget w)

+{

+    ToggleWidget tw = (ToggleWidget)w;

+    RadioGroup *local;

+

+    local = (RadioGroup *)XtMalloc(sizeof(RadioGroup));

+    local->widget = w;

+    tw->toggle.radio_group = local;

+

+    if (group == NULL) {		  /* Creating new group */

+	group = local;

+	group->next = NULL;

+	group->prev = NULL;

+	return;

+    }

+    local->prev = group;	  /* Adding to previous group */

+    if ((local->next = group->next) != NULL)

+	local->next->prev = local;

+    group->next = local;

+}

+

+/*

+ * Function:

+ *	TurnOffRadioSiblings

+ *

+ * Parameters:

+ *	widget - toggle widget

+ *

+ * Description:

+ *	Deactivates all radio siblings.

+ */

+static void

+TurnOffRadioSiblings(Widget w)

+{

+    RadioGroup *group;

+    ToggleWidgetClass cclass = (ToggleWidgetClass)w->core.widget_class;

+

+    if ((group = GetRadioGroup(w)) == NULL)	/* Punt if there is no group */

+	return;

+

+    /* Go to the top of the group */

+    for (; group->prev != NULL ; group = group->prev)

+	;

+

+    while (group != NULL) {

+	ToggleWidget local_tog = (ToggleWidget)group->widget;

+

+	if (local_tog->command.set) {

+	    cclass->toggle_class.Unset(group->widget, NULL, NULL, NULL);

+	    Notify(group->widget, NULL, NULL, NULL);

+	}

+	group = group->next;

+    }

+}

+

+/*

+ * Function:

+ *	RemoveFromRadioGroup

+ *

+ * Parameters:

+ *	w - toggle widget to remove

+ *

+ * Description:

+ *	Removes a toggle from a RadioGroup.

+ */

+static void

+RemoveFromRadioGroup(Widget w)

+{

+    RadioGroup *group = GetRadioGroup(w);

+    if (group != NULL) {

+	if (group->prev != NULL)

+	    (group->prev)->next = group->next;

+	if (group->next != NULL)

+	    (group->next)->prev = group->prev;

+	XtFree((char *)group);

+    }

+}

+

+/*

+ * Function:

+ *	XawToggleChangeRadioGroup

+ *

+ * Parameters:

+ *	w	    - toggle widget to change groups

+ *	radio_group - any widget in the new group

+ *

+ * Description:

+ *	Allows a toggle widget to change radio groups.

+ */

+void

+XawToggleChangeRadioGroup(Widget w, Widget radio_group)

+{

+    ToggleWidget tw = (ToggleWidget)w;

+    RadioGroup *group;

+

+    RemoveFromRadioGroup(w);

+

+    /*

+     * If the toggle that we are about to add is set then we will 

+     * unset all toggles in the new radio group

+     */

+

+    if (tw->command.set && radio_group != NULL)

+	XawToggleUnsetCurrent(radio_group);

+

+    if (radio_group != NULL) {

+	if ((group = GetRadioGroup(radio_group)) == NULL)

+	    CreateRadioGroup(w, radio_group);

+	else

+	    AddToRadioGroup(group, w);

+    }

+}

+

+/*

+ * Function:

+ *	XawToggleGetCurrent

+ *

+ * Parameters:

+ *	w - any toggle widget in the toggle group

+ *

+ * Description:

+ *	  Returns the RadioData associated with the toggle

+ *	widget that is currently active in a toggle group.

+ *

+ * Returns:

+ *	The XtNradioData associated with the toggle widget

+ */

+XtPointer

+XawToggleGetCurrent(Widget w)

+{

+    RadioGroup *group;

+

+    if ((group = GetRadioGroup(w)) == NULL)

+	return (NULL);

+

+    for (; group->prev != NULL ; group = group->prev)

+	;

+

+    while (group != NULL) {

+	ToggleWidget local_tog = (ToggleWidget)group->widget;

+

+	if (local_tog->command.set)

+	    return (local_tog->toggle.radio_data);

+	group = group->next;

+    }

+

+    return (NULL);

+}

+

+/*

+ * Function:

+ *	XawToggleSetCurrent

+ *

+ * Parameters:

+ *	radio_group - any toggle widget in the toggle group

+ *	radio_data  - radio data of the toggle widget to set

+ *

+ * Description:

+ *	Sets the Toggle widget associated with the radio_data specified.

+ */

+void

+XawToggleSetCurrent(Widget radio_group, XtPointer radio_data)

+{

+    RadioGroup *group;

+    ToggleWidget local_tog; 

+

+    /* Special case of no radio group */

+

+    if ((group = GetRadioGroup(radio_group)) == NULL) {

+	local_tog = (ToggleWidget)radio_group;

+

+	if (local_tog->toggle.radio_data == radio_data &&

+	    !local_tog->command.set) {

+	    ToggleSet(radio_group, NULL, NULL, NULL);

+	    Notify(radio_group, NULL, NULL, NULL);

+	}

+	return;

+    }

+

+    /*

+     * find top of radio_roup 

+     */

+    for (; group->prev != NULL ; group = group->prev)

+	;

+

+    /*

+     * search for matching radio data

+     */

+    while (group != NULL) {

+	local_tog = (ToggleWidget)group->widget;

+

+	if (local_tog->toggle.radio_data == radio_data) {

+	    if (!local_tog->command.set) {	/* if not already set */

+		ToggleSet(group->widget, NULL, NULL, NULL);

+		Notify(group->widget, NULL, NULL, NULL);

+	    }

+	    return;			/* found it, done */

+	}

+	group = group->next;

+    }

+}

+

+/*

+ * Function:

+ *	XawToggleUnsetCurrent

+ *

+ * Parameters:

+ *	radio_group - any toggle widget in the toggle group

+ *

+ * Description:

+ *	Unsets all Toggles in the radio_group specified.

+ */

+void

+XawToggleUnsetCurrent(Widget radio_group)

+{

+    ToggleWidgetClass cclass;

+    ToggleWidget local_tog = (ToggleWidget)radio_group;

+

+    /* Special Case no radio group */

+

+    if (local_tog->command.set) {

+	cclass = (ToggleWidgetClass)local_tog->core.widget_class;

+	cclass->toggle_class.Unset(radio_group, NULL, NULL, NULL);

+	Notify(radio_group, NULL, NULL, NULL);

+    }

+    if (GetRadioGroup(radio_group) == NULL)

+	return;

+

+    TurnOffRadioSiblings(radio_group);

+}