src/motif/choice.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        choice.cpp
// Purpose:     wxChoice
// Author:      Julian Smart
// Modified by:
// Created:     17/09/98
// RCS-ID:      $Id$
// Copyright:   (c) Julian Smart
// Licence:   	wxWindows licence
/////////////////////////////////////////////////////////////////////////////

#ifdef __GNUG__
#pragma implementation "choice.h"
#endif

// For compilers that support precompilation, includes "wx.h".
#include "wx/choice.h"
#include "wx/utils.h"

#include <Xm/Xm.h>
#include <Xm/PushBG.h>
#include <Xm/PushB.h>
#include <Xm/RowColumn.h>

#include "wx/motif/private.h"

#if !USE_SHARED_LIBRARY
IMPLEMENT_DYNAMIC_CLASS(wxChoice, wxControl)
#endif

void wxChoiceCallback (Widget w, XtPointer clientData,
                       XtPointer ptr);

wxChoice::wxChoice()
{
    m_noStrings = 0;
    m_buttonWidget = (WXWidget) 0;
    m_menuWidget = (WXWidget) 0;
    m_widgetList = (WXWidget*) 0;
    m_formWidget = (WXWidget) 0;
}

bool wxChoice::Create(wxWindow *parent, wxWindowID id,
                      const wxPoint& pos,
                      const wxSize& size,
                      int n, const wxString choices[],
                      long style,
                      const wxValidator& validator,
                      const wxString& name)
{
    SetName(name);
    SetValidator(validator);
    m_noStrings = 0; // Starts off with none, incremented in Append
    m_windowStyle = style;
    m_buttonWidget = (WXWidget) 0;
    m_menuWidget = (WXWidget) 0;
    m_widgetList = (WXWidget*) 0;
    m_formWidget = (WXWidget) 0;

    if (parent) parent->AddChild(this);

    if ( id == -1 )
        m_windowId = (int)NewControlId();
    else
        m_windowId = id;

    m_backgroundColour = parent->GetBackgroundColour();
    m_foregroundColour = parent->GetForegroundColour();
    m_font = parent->GetFont();

    Widget parentWidget = (Widget) parent->GetClientWidget();

    m_formWidget = (WXWidget) XtVaCreateManagedWidget ((char*) (const char*) name,
        xmRowColumnWidgetClass, parentWidget,
        XmNmarginHeight, 0,
        XmNmarginWidth, 0,
        XmNpacking, XmPACK_TIGHT,
        XmNorientation, XmHORIZONTAL,
        NULL);

    XtVaSetValues ((Widget) m_formWidget, XmNspacing, 0, NULL);

    /*
    * Create the popup menu
    */
    m_menuWidget = (WXWidget) XmCreatePulldownMenu ((Widget) m_formWidget, "choiceMenu", NULL, 0);

    //    int i;
    if (n > 0)
    {
        int i;
        for (i = 0; i < n; i++)
            Append (choices[i]);
    }

    /*
    * Create button
    */
    Arg args[10];
    Cardinal argcnt = 0;

    XtSetArg (args[argcnt], XmNsubMenuId, (Widget) m_menuWidget);
    argcnt++;
    XtSetArg (args[argcnt], XmNmarginWidth, 0);
    argcnt++;
    XtSetArg (args[argcnt], XmNmarginHeight, 0);
    argcnt++;
    XtSetArg (args[argcnt], XmNpacking, XmPACK_TIGHT);
    argcnt++;
    m_buttonWidget = (WXWidget) XmCreateOptionMenu ((Widget) m_formWidget, "choiceButton", args, argcnt);

    m_mainWidget = m_buttonWidget;

    XtManageChild ((Widget) m_buttonWidget);

    // New code from Roland Haenel (roland_haenel@ac.cybercity.de)
    // Some time ago, I reported a problem with wxChoice-items under
    // Linux and Motif 2.0 (they caused sporadic GPFs). Now it seems
    // that I have found the code responsible for this behaviour.
#if XmVersion >= 1002
#if XmVersion <  2000
    Widget optionLabel = XmOptionLabelGadget ((Widget) m_buttonWidget);
    // JACS, 24/1/99: this seems to cause a malloc crash later on, e.g.
    // in controls sample.
    //    XtUnmanageChild (optionLabel);
#endif
#endif

    XtVaSetValues((Widget) m_formWidget, XmNresizePolicy, XmRESIZE_NONE, NULL);

    ChangeFont(FALSE);

    AttachWidget (parent, m_buttonWidget, m_formWidget, pos.x, pos.y, size.x, size.y);

    ChangeBackgroundColour();

    return TRUE;
}

wxChoice::~wxChoice()
{
    // For some reason destroying the menuWidget
    // can cause crashes on some machines. It will
    // be deleted implicitly by deleting the parent form
    // anyway.
    //  XtDestroyWidget (menuWidget);
    if (m_widgetList)
        delete[] m_widgetList;

    if (GetMainWidget())
    {
        DetachWidget(GetMainWidget()); // Removes event handlers
        DetachWidget(m_formWidget);

        XtDestroyWidget((Widget) m_formWidget);
        m_formWidget = (WXWidget) 0;

        // Presumably the other widgets have been deleted now, via the form
        m_mainWidget = (WXWidget) 0;
        m_buttonWidget = (WXWidget) 0;
    }
}

void wxChoice::Append(const wxString& item)
{
    wxStripMenuCodes ((char *)(const char *)item, wxBuffer);
    Widget w = XtVaCreateManagedWidget (wxBuffer,
#if USE_GADGETS
        xmPushButtonGadgetClass, (Widget) m_menuWidget,
#else
        xmPushButtonWidgetClass, (Widget) m_menuWidget,
#endif
        NULL);

    DoChangeBackgroundColour((WXWidget) w, m_backgroundColour);

    if (m_font.Ok())
        XtVaSetValues (w,
        XmNfontList, (XmFontList) m_font.GetFontList(1.0, XtDisplay((Widget) m_formWidget)),
        NULL);

    WXWidget *new_widgetList = new WXWidget[m_noStrings + 1];
    int i;
    if (m_widgetList)
        for (i = 0; i < m_noStrings; i++)
            new_widgetList[i] = m_widgetList[i];

        new_widgetList[m_noStrings] = (WXWidget) w;

        if (m_widgetList)
            delete[] m_widgetList;
        m_widgetList = new_widgetList;

        char mnem = wxFindMnemonic ((char*) (const char*) item);
        if (mnem != 0)
            XtVaSetValues (w, XmNmnemonic, mnem, NULL);

        XtAddCallback (w, XmNactivateCallback, (XtCallbackProc) wxChoiceCallback, (XtPointer) this);

        if (m_noStrings == 0 && m_buttonWidget)
        {
            XtVaSetValues ((Widget) m_buttonWidget, XmNmenuHistory, w, NULL);
            Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
            XmString text = XmStringCreateSimple ((char*) (const char*) item);
            XtVaSetValues (label,
                XmNlabelString, text,
                NULL);
            XmStringFree (text);
        }
        wxNode *node = m_stringList.Add (item);
        XtVaSetValues (w, XmNuserData, node->Data (), NULL);

        m_noStrings ++;
}

void wxChoice::Delete(int WXUNUSED(n))
{
    wxFAIL_MSG( "Sorry, wxChoice::Delete isn't implemented yet. Maybe you'd like to volunteer? :-)" );

    // What should we do -- remove the callback for this button widget,
    // delete the m_stringList entry, delete the button widget, construct a new widget list
    // (see Append)

    // TODO
    m_noStrings --;
}

void wxChoice::Clear()
{
    m_stringList.Clear ();
    int i;
    for (i = 0; i < m_noStrings; i++)
    {
        XtUnmanageChild ((Widget) m_widgetList[i]);
        XtDestroyWidget ((Widget) m_widgetList[i]);
    }
    if (m_noStrings)
        delete[] m_widgetList;
    m_widgetList = (WXWidget*) NULL;
    if (m_buttonWidget)
        XtVaSetValues ((Widget) m_buttonWidget, XmNmenuHistory, (Widget) NULL, NULL);
    m_noStrings = 0;
}

int wxChoice::GetSelection() const
{
    XmString text;
    char *s;
    Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
    XtVaGetValues (label,
        XmNlabelString, &text,
        NULL);

    if (XmStringGetLtoR (text, XmSTRING_DEFAULT_CHARSET, &s))
    {
        int i = 0;
        for (wxNode * node = m_stringList.First (); node; node = node->Next ())
        {
            char *s1 = (char *) node->Data ();
            if (s1 == s || strcmp (s1, s) == 0)
            {
                XmStringFree(text) ;
                XtFree (s);
                return i;
            }
            else
                i++;
        }            // for()

        XmStringFree(text) ;
        XtFree (s);
        return -1;
    }
    XmStringFree(text) ;
    return -1;
}

void wxChoice::SetSelection(int n)
{
    m_inSetValue = TRUE;

    wxNode *node = m_stringList.Nth (n);
    if (node)
    {
        Dimension selectionWidth, selectionHeight;

        char *s = (char *) node->Data ();
        XmString text = XmStringCreateSimple (s);
        XtVaGetValues ((Widget) m_widgetList[n], XmNwidth, &selectionWidth, XmNheight, &selectionHeight, NULL);
        Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
        XtVaSetValues (label,
            XmNlabelString, text,
            NULL);
        XmStringFree (text);
        XtVaSetValues ((Widget) m_buttonWidget,
            XmNwidth, selectionWidth, XmNheight, selectionHeight,
            XmNmenuHistory, (Widget) m_widgetList[n], NULL);
    }
    m_inSetValue = FALSE;
}

int wxChoice::FindString(const wxString& s) const
{
    int i = 0;
    for (wxNode * node = m_stringList.First (); node; node = node->Next ())
    {
        char *s1 = (char *) node->Data ();
        if (s == s1)
        {
            return i;
        }
        else
            i++;
    }
    return -1;
}

wxString wxChoice::GetString(int n) const
{
    wxNode *node = m_stringList.Nth (n);
    if (node)
        return wxString((char *) node->Data ());
    else
        return wxEmptyString;
}

void wxChoice::SetColumns(int n)
{
    if (n<1) n = 1 ;

    short numColumns = n ;
    Arg args[3];

    XtSetArg(args[0], XmNnumColumns, numColumns);
    XtSetArg(args[1], XmNpacking, XmPACK_COLUMN);
    XtSetValues((Widget) m_menuWidget,args,2) ;
}

int wxChoice::GetColumns(void) const
{
    short numColumns ;

    XtVaGetValues((Widget) m_menuWidget,XmNnumColumns,&numColumns,NULL) ;
    return numColumns ;
}

void wxChoice::SetFocus()
{
    XmProcessTraversal(XtParent((Widget)m_mainWidget), XmTRAVERSE_CURRENT);
}

void wxChoice::DoSetSize(int x, int y, int width, int height, int sizeFlags)
{
    XtVaSetValues((Widget) m_formWidget, XmNresizePolicy, XmRESIZE_ANY, NULL);
    bool managed = XtIsManaged((Widget) m_formWidget);

    if (managed)
        XtUnmanageChild ((Widget) m_formWidget);

    int actualWidth = width, actualHeight = height;

    if (width > -1)
    {
        int i;
        for (i = 0; i < m_noStrings; i++)
            XtVaSetValues ((Widget) m_widgetList[i], XmNwidth, actualWidth, NULL);
        XtVaSetValues ((Widget) m_buttonWidget, XmNwidth, actualWidth,
            NULL);
    }
    if (height > -1)
    {
        int i;
        for (i = 0; i < m_noStrings; i++)
            XtVaSetValues ((Widget) m_widgetList[i], XmNheight, actualHeight, NULL);
        XtVaSetValues ((Widget) m_buttonWidget, XmNheight, actualHeight,
            NULL);
    }

    if (managed)
        XtManageChild ((Widget) m_formWidget);
    XtVaSetValues((Widget) m_formWidget, XmNresizePolicy, XmRESIZE_NONE, NULL);

    wxControl::DoSetSize (x, y, width, height, sizeFlags);
}

wxString wxChoice::GetStringSelection () const
{
    int sel = GetSelection ();
    if (sel > -1)
        return wxString(this->GetString (sel));
    else
        return wxEmptyString;
}

bool wxChoice::SetStringSelection (const wxString& s)
{
    int sel = FindString (s);
    if (sel > -1)
    {
        SetSelection (sel);
        return TRUE;
    }
    else
        return FALSE;
}

void wxChoice::Command(wxCommandEvent & event)
{
    SetSelection (event.GetInt());
    ProcessCommand (event);
}

void wxChoiceCallback (Widget w, XtPointer clientData, XtPointer WXUNUSED(ptr))
{
    wxChoice *item = (wxChoice *) clientData;
    if (item)
    {
        if (item->InSetValue())
            return;

        char *s = NULL;
        XtVaGetValues (w, XmNuserData, &s, NULL);
        if (s)
        {
            wxCommandEvent event (wxEVT_COMMAND_CHOICE_SELECTED, item->GetId());
            event.SetEventObject(item);
            event.m_commandInt = item->FindString (s);
            //            event.m_commandString = s;
            item->ProcessCommand (event);
        }
    }
}

void wxChoice::ChangeFont(bool keepOriginalSize)
{
    // Note that this causes the widget to be resized back
    // to its original size! We therefore have to set the size
    // back again. TODO: a better way in Motif?
    if (m_font.Ok())
    {
        int width, height, width1, height1;
        GetSize(& width, & height);

        XmFontList fontList = (XmFontList) m_font.GetFontList(1.0, XtDisplay((Widget) m_mainWidget));
        XtVaSetValues ((Widget) m_mainWidget, XmNfontList, fontList, NULL);
        XtVaSetValues ((Widget) m_buttonWidget, XmNfontList, fontList, NULL);

        /* TODO: why does this cause a crash in XtWidgetToApplicationContext?
        int i;
        for (i = 0; i < m_noStrings; i++)
        XtVaSetValues ((Widget) m_widgetList[i], XmNfontList, fontList, NULL);
        */
        GetSize(& width1, & height1);
        if (keepOriginalSize && (width != width1 || height != height1))
        {
            SetSize(-1, -1, width, height);
        }
    }
}

void wxChoice::ChangeBackgroundColour()
{
    DoChangeBackgroundColour(m_formWidget, m_backgroundColour);
    DoChangeBackgroundColour(m_buttonWidget, m_backgroundColour);
    DoChangeBackgroundColour(m_menuWidget, m_backgroundColour);
    int i;
    for (i = 0; i < m_noStrings; i++)
        DoChangeBackgroundColour(m_widgetList[i], m_backgroundColour);
}

void wxChoice::ChangeForegroundColour()
{
    DoChangeForegroundColour(m_formWidget, m_foregroundColour);
    DoChangeForegroundColour(m_buttonWidget, m_foregroundColour);
    DoChangeForegroundColour(m_menuWidget, m_foregroundColour);
    int i;
    for (i = 0; i < m_noStrings; i++)
        DoChangeForegroundColour(m_widgetList[i], m_foregroundColour);
}
Commit	Line	Data
	1	/////////////////////////////////////////////////////////////////////////////
	2	// Name: choice.cpp
	3	// Purpose: wxChoice
	4	// Author: Julian Smart
	5	// Modified by:
	6	// Created: 17/09/98
	7	// RCS-ID: $Id$
	8	// Copyright: (c) Julian Smart
	9	// Licence: wxWindows licence
	10	/////////////////////////////////////////////////////////////////////////////
	11
	12	#ifdef __GNUG__
	13	#pragma implementation "choice.h"
	14	#endif
	15
	16	// For compilers that support precompilation, includes "wx.h".
	17	#include "wx/choice.h"
	18	#include "wx/utils.h"
	19
	20	#include <Xm/Xm.h>
	21	#include <Xm/PushBG.h>
	22	#include <Xm/PushB.h>
	23	#include <Xm/RowColumn.h>
	24
	25	#include "wx/motif/private.h"
	26
	27	#if !USE_SHARED_LIBRARY
	28	IMPLEMENT_DYNAMIC_CLASS(wxChoice, wxControl)
	29	#endif
	30
	31	void wxChoiceCallback (Widget w, XtPointer clientData,
	32	XtPointer ptr);
	33
	34	wxChoice::wxChoice()
	35	{
	36	m_noStrings = 0;
	37	m_buttonWidget = (WXWidget) 0;
	38	m_menuWidget = (WXWidget) 0;
	39	m_widgetList = (WXWidget*) 0;
	40	m_formWidget = (WXWidget) 0;
	41	}
	42
	43	bool wxChoice::Create(wxWindow *parent, wxWindowID id,
	44	const wxPoint& pos,
	45	const wxSize& size,
	46	int n, const wxString choices[],
	47	long style,
	48	const wxValidator& validator,
	49	const wxString& name)
	50	{
	51	SetName(name);
	52	SetValidator(validator);
	53	m_noStrings = 0; // Starts off with none, incremented in Append
	54	m_windowStyle = style;
	55	m_buttonWidget = (WXWidget) 0;
	56	m_menuWidget = (WXWidget) 0;
	57	m_widgetList = (WXWidget*) 0;
	58	m_formWidget = (WXWidget) 0;
	59
	60	if (parent) parent->AddChild(this);
	61
	62	if ( id == -1 )
	63	m_windowId = (int)NewControlId();
	64	else
	65	m_windowId = id;
	66
	67	m_backgroundColour = parent->GetBackgroundColour();
	68	m_foregroundColour = parent->GetForegroundColour();
	69	m_font = parent->GetFont();
	70
	71	Widget parentWidget = (Widget) parent->GetClientWidget();
	72
	73	m_formWidget = (WXWidget) XtVaCreateManagedWidget ((char) (const char) name,
	74	xmRowColumnWidgetClass, parentWidget,
	75	XmNmarginHeight, 0,
	76	XmNmarginWidth, 0,
	77	XmNpacking, XmPACK_TIGHT,
	78	XmNorientation, XmHORIZONTAL,
	79	NULL);
	80
	81	XtVaSetValues ((Widget) m_formWidget, XmNspacing, 0, NULL);
	82
	83	/*
	84	* Create the popup menu
	85	*/
	86	m_menuWidget = (WXWidget) XmCreatePulldownMenu ((Widget) m_formWidget, "choiceMenu", NULL, 0);
	87
	88	// int i;
	89	if (n > 0)
	90	{
	91	int i;
	92	for (i = 0; i < n; i++)
	93	Append (choices[i]);
	94	}
	95
	96	/*
	97	* Create button
	98	*/
	99	Arg args[10];
	100	Cardinal argcnt = 0;
	101
	102	XtSetArg (args[argcnt], XmNsubMenuId, (Widget) m_menuWidget);
	103	argcnt++;
	104	XtSetArg (args[argcnt], XmNmarginWidth, 0);
	105	argcnt++;
	106	XtSetArg (args[argcnt], XmNmarginHeight, 0);
	107	argcnt++;
	108	XtSetArg (args[argcnt], XmNpacking, XmPACK_TIGHT);
	109	argcnt++;
	110	m_buttonWidget = (WXWidget) XmCreateOptionMenu ((Widget) m_formWidget, "choiceButton", args, argcnt);
	111
	112	m_mainWidget = m_buttonWidget;
	113
	114	XtManageChild ((Widget) m_buttonWidget);
	115
	116	// New code from Roland Haenel (roland_haenel@ac.cybercity.de)
	117	// Some time ago, I reported a problem with wxChoice-items under
	118	// Linux and Motif 2.0 (they caused sporadic GPFs). Now it seems
	119	// that I have found the code responsible for this behaviour.
	120	#if XmVersion >= 1002
	121	#if XmVersion < 2000
	122	Widget optionLabel = XmOptionLabelGadget ((Widget) m_buttonWidget);
	123	// JACS, 24/1/99: this seems to cause a malloc crash later on, e.g.
	124	// in controls sample.
	125	// XtUnmanageChild (optionLabel);
	126	#endif
	127	#endif
	128
	129	XtVaSetValues((Widget) m_formWidget, XmNresizePolicy, XmRESIZE_NONE, NULL);
	130
	131	ChangeFont(FALSE);
	132
	133	AttachWidget (parent, m_buttonWidget, m_formWidget, pos.x, pos.y, size.x, size.y);
	134
	135	ChangeBackgroundColour();
	136
	137	return TRUE;
	138	}
	139
	140	wxChoice::~wxChoice()
	141	{
	142	// For some reason destroying the menuWidget
	143	// can cause crashes on some machines. It will
	144	// be deleted implicitly by deleting the parent form
	145	// anyway.
	146	// XtDestroyWidget (menuWidget);
	147	if (m_widgetList)
	148	delete[] m_widgetList;
	149
	150	if (GetMainWidget())
	151	{
	152	DetachWidget(GetMainWidget()); // Removes event handlers
	153	DetachWidget(m_formWidget);
	154
	155	XtDestroyWidget((Widget) m_formWidget);
	156	m_formWidget = (WXWidget) 0;
	157
	158	// Presumably the other widgets have been deleted now, via the form
	159	m_mainWidget = (WXWidget) 0;
	160	m_buttonWidget = (WXWidget) 0;
	161	}
	162	}
	163
	164	void wxChoice::Append(const wxString& item)
	165	{
	166	wxStripMenuCodes ((char )(const char )item, wxBuffer);
	167	Widget w = XtVaCreateManagedWidget (wxBuffer,
	168	#if USE_GADGETS
	169	xmPushButtonGadgetClass, (Widget) m_menuWidget,
	170	#else
	171	xmPushButtonWidgetClass, (Widget) m_menuWidget,
	172	#endif
	173	NULL);
	174
	175	DoChangeBackgroundColour((WXWidget) w, m_backgroundColour);
	176
	177	if (m_font.Ok())
	178	XtVaSetValues (w,
	179	XmNfontList, (XmFontList) m_font.GetFontList(1.0, XtDisplay((Widget) m_formWidget)),
	180	NULL);
	181
	182	WXWidget *new_widgetList = new WXWidget[m_noStrings + 1];
	183	int i;
	184	if (m_widgetList)
	185	for (i = 0; i < m_noStrings; i++)
	186	new_widgetList[i] = m_widgetList[i];
	187
	188	new_widgetList[m_noStrings] = (WXWidget) w;
	189
	190	if (m_widgetList)
	191	delete[] m_widgetList;
	192	m_widgetList = new_widgetList;
	193
	194	char mnem = wxFindMnemonic ((char) (const char) item);
	195	if (mnem != 0)
	196	XtVaSetValues (w, XmNmnemonic, mnem, NULL);
	197
	198	XtAddCallback (w, XmNactivateCallback, (XtCallbackProc) wxChoiceCallback, (XtPointer) this);
	199
	200	if (m_noStrings == 0 && m_buttonWidget)
	201	{
	202	XtVaSetValues ((Widget) m_buttonWidget, XmNmenuHistory, w, NULL);
	203	Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
	204	XmString text = XmStringCreateSimple ((char) (const char) item);
	205	XtVaSetValues (label,
	206	XmNlabelString, text,
	207	NULL);
	208	XmStringFree (text);
	209	}
	210	wxNode *node = m_stringList.Add (item);
	211	XtVaSetValues (w, XmNuserData, node->Data (), NULL);
	212
	213	m_noStrings ++;
	214	}
	215
	216	void wxChoice::Delete(int WXUNUSED(n))
	217	{
	218	wxFAIL_MSG( "Sorry, wxChoice::Delete isn't implemented yet. Maybe you'd like to volunteer? :-)" );
	219
	220	// What should we do -- remove the callback for this button widget,
	221	// delete the m_stringList entry, delete the button widget, construct a new widget list
	222	// (see Append)
	223
	224	// TODO
	225	m_noStrings --;
	226	}
	227
	228	void wxChoice::Clear()
	229	{
	230	m_stringList.Clear ();
	231	int i;
	232	for (i = 0; i < m_noStrings; i++)
	233	{
	234	XtUnmanageChild ((Widget) m_widgetList[i]);
	235	XtDestroyWidget ((Widget) m_widgetList[i]);
	236	}
	237	if (m_noStrings)
	238	delete[] m_widgetList;
	239	m_widgetList = (WXWidget*) NULL;
	240	if (m_buttonWidget)
	241	XtVaSetValues ((Widget) m_buttonWidget, XmNmenuHistory, (Widget) NULL, NULL);
	242	m_noStrings = 0;
	243	}
	244
	245	int wxChoice::GetSelection() const
	246	{
	247	XmString text;
	248	char *s;
	249	Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
	250	XtVaGetValues (label,
	251	XmNlabelString, &text,
	252	NULL);
	253
	254	if (XmStringGetLtoR (text, XmSTRING_DEFAULT_CHARSET, &s))
	255	{
	256	int i = 0;
	257	for (wxNode * node = m_stringList.First (); node; node = node->Next ())
	258	{
	259	char s1 = (char ) node->Data ();
	260	if (s1 == s \|\| strcmp (s1, s) == 0)
	261	{
	262	XmStringFree(text) ;
	263	XtFree (s);
	264	return i;
	265	}
	266	else
	267	i++;
	268	} // for()
	269
	270	XmStringFree(text) ;
	271	XtFree (s);
	272	return -1;
	273	}
	274	XmStringFree(text) ;
	275	return -1;
	276	}
	277
	278	void wxChoice::SetSelection(int n)
	279	{
	280	m_inSetValue = TRUE;
	281
	282	wxNode *node = m_stringList.Nth (n);
	283	if (node)
	284	{
	285	Dimension selectionWidth, selectionHeight;
	286
	287	char s = (char ) node->Data ();
	288	XmString text = XmStringCreateSimple (s);
	289	XtVaGetValues ((Widget) m_widgetList[n], XmNwidth, &selectionWidth, XmNheight, &selectionHeight, NULL);
	290	Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
	291	XtVaSetValues (label,
	292	XmNlabelString, text,
	293	NULL);
	294	XmStringFree (text);
	295	XtVaSetValues ((Widget) m_buttonWidget,
	296	XmNwidth, selectionWidth, XmNheight, selectionHeight,
	297	XmNmenuHistory, (Widget) m_widgetList[n], NULL);
	298	}
	299	m_inSetValue = FALSE;
	300	}
	301
	302	int wxChoice::FindString(const wxString& s) const
	303	{
	304	int i = 0;
	305	for (wxNode * node = m_stringList.First (); node; node = node->Next ())
	306	{
	307	char s1 = (char ) node->Data ();
	308	if (s == s1)
	309	{
	310	return i;
	311	}
	312	else
	313	i++;
	314	}
	315	return -1;
	316	}
	317
	318	wxString wxChoice::GetString(int n) const
	319	{
	320	wxNode *node = m_stringList.Nth (n);
	321	if (node)
	322	return wxString((char *) node->Data ());
	323	else
	324	return wxEmptyString;
	325	}
	326
	327	void wxChoice::SetColumns(int n)
	328	{
	329	if (n<1) n = 1 ;
	330
	331	short numColumns = n ;
	332	Arg args[3];
	333
	334	XtSetArg(args[0], XmNnumColumns, numColumns);
	335	XtSetArg(args[1], XmNpacking, XmPACK_COLUMN);
	336	XtSetValues((Widget) m_menuWidget,args,2) ;
	337	}
	338
	339	int wxChoice::GetColumns(void) const
	340	{
	341	short numColumns ;
	342
	343	XtVaGetValues((Widget) m_menuWidget,XmNnumColumns,&numColumns,NULL) ;
	344	return numColumns ;
	345	}
	346
	347	void wxChoice::SetFocus()
	348	{
	349	XmProcessTraversal(XtParent((Widget)m_mainWidget), XmTRAVERSE_CURRENT);
	350	}
	351
	352	void wxChoice::DoSetSize(int x, int y, int width, int height, int sizeFlags)
	353	{
	354	XtVaSetValues((Widget) m_formWidget, XmNresizePolicy, XmRESIZE_ANY, NULL);
	355	bool managed = XtIsManaged((Widget) m_formWidget);
	356
	357	if (managed)
	358	XtUnmanageChild ((Widget) m_formWidget);
	359
	360	int actualWidth = width, actualHeight = height;
	361
	362	if (width > -1)
	363	{
	364	int i;
	365	for (i = 0; i < m_noStrings; i++)
	366	XtVaSetValues ((Widget) m_widgetList[i], XmNwidth, actualWidth, NULL);
	367	XtVaSetValues ((Widget) m_buttonWidget, XmNwidth, actualWidth,
	368	NULL);
	369	}
	370	if (height > -1)
	371	{
	372	int i;
	373	for (i = 0; i < m_noStrings; i++)
	374	XtVaSetValues ((Widget) m_widgetList[i], XmNheight, actualHeight, NULL);
	375	XtVaSetValues ((Widget) m_buttonWidget, XmNheight, actualHeight,
	376	NULL);
	377	}
	378
	379	if (managed)
	380	XtManageChild ((Widget) m_formWidget);
	381	XtVaSetValues((Widget) m_formWidget, XmNresizePolicy, XmRESIZE_NONE, NULL);
	382
	383	wxControl::DoSetSize (x, y, width, height, sizeFlags);
	384	}
	385
	386	wxString wxChoice::GetStringSelection () const
	387	{
	388	int sel = GetSelection ();
	389	if (sel > -1)
	390	return wxString(this->GetString (sel));
	391	else
	392	return wxEmptyString;
	393	}
	394
	395	bool wxChoice::SetStringSelection (const wxString& s)
	396	{
	397	int sel = FindString (s);
	398	if (sel > -1)
	399	{
	400	SetSelection (sel);
	401	return TRUE;
	402	}
	403	else
	404	return FALSE;
	405	}
	406
	407	void wxChoice::Command(wxCommandEvent & event)
	408	{
	409	SetSelection (event.GetInt());
	410	ProcessCommand (event);
	411	}
	412
	413	void wxChoiceCallback (Widget w, XtPointer clientData, XtPointer WXUNUSED(ptr))
	414	{
	415	wxChoice item = (wxChoice ) clientData;
	416	if (item)
	417	{
	418	if (item->InSetValue())
	419	return;
	420
	421	char *s = NULL;
	422	XtVaGetValues (w, XmNuserData, &s, NULL);
	423	if (s)
	424	{
	425	wxCommandEvent event (wxEVT_COMMAND_CHOICE_SELECTED, item->GetId());
	426	event.SetEventObject(item);
	427	event.m_commandInt = item->FindString (s);
	428	// event.m_commandString = s;
	429	item->ProcessCommand (event);
	430	}
	431	}
	432	}
	433
	434	void wxChoice::ChangeFont(bool keepOriginalSize)
	435	{
	436	// Note that this causes the widget to be resized back
	437	// to its original size! We therefore have to set the size
	438	// back again. TODO: a better way in Motif?
	439	if (m_font.Ok())
	440	{
	441	int width, height, width1, height1;
	442	GetSize(& width, & height);
	443
	444	XmFontList fontList = (XmFontList) m_font.GetFontList(1.0, XtDisplay((Widget) m_mainWidget));
	445	XtVaSetValues ((Widget) m_mainWidget, XmNfontList, fontList, NULL);
	446	XtVaSetValues ((Widget) m_buttonWidget, XmNfontList, fontList, NULL);
	447
	448	/* TODO: why does this cause a crash in XtWidgetToApplicationContext?
	449	int i;
	450	for (i = 0; i < m_noStrings; i++)
	451	XtVaSetValues ((Widget) m_widgetList[i], XmNfontList, fontList, NULL);
	452	*/
	453	GetSize(& width1, & height1);
	454	if (keepOriginalSize && (width != width1 \|\| height != height1))
	455	{
	456	SetSize(-1, -1, width, height);
	457	}
	458	}
	459	}
	460
	461	void wxChoice::ChangeBackgroundColour()
	462	{
	463	DoChangeBackgroundColour(m_formWidget, m_backgroundColour);
	464	DoChangeBackgroundColour(m_buttonWidget, m_backgroundColour);
	465	DoChangeBackgroundColour(m_menuWidget, m_backgroundColour);
	466	int i;
	467	for (i = 0; i < m_noStrings; i++)
	468	DoChangeBackgroundColour(m_widgetList[i], m_backgroundColour);
	469	}
	470
	471	void wxChoice::ChangeForegroundColour()
	472	{
	473	DoChangeForegroundColour(m_formWidget, m_foregroundColour);
	474	DoChangeForegroundColour(m_buttonWidget, m_foregroundColour);
	475	DoChangeForegroundColour(m_menuWidget, m_foregroundColour);
	476	int i;
	477	for (i = 0; i < m_noStrings; i++)
	478	DoChangeForegroundColour(m_widgetList[i], m_foregroundColour);
	479	}