src/motif/choice.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        src/motif/choice.cpp
// Purpose:     wxChoice
// Author:      Julian Smart
// Modified by:
// Created:     17/09/98
// Copyright:   (c) Julian Smart
// Licence:     wxWindows licence
/////////////////////////////////////////////////////////////////////////////

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

#if wxUSE_CHOICE

#include "wx/choice.h"

#ifndef WX_PRECOMP
    #include "wx/utils.h"
    #include "wx/arrstr.h"
#endif

#ifdef __VMS__
#pragma message disable nosimpint
#endif
#include <Xm/Xm.h>
#include <Xm/PushBG.h>
#include <Xm/PushB.h>
#include <Xm/RowColumn.h>
#ifdef __VMS__
#pragma message enable nosimpint
#endif

#include "wx/motif/private.h"

#define WIDTH_OVERHEAD 48
#define WIDTH_OVERHEAD_SUBTRACT 40
#define HEIGHT_OVERHEAD 15

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

wxChoice::wxChoice()
{
    Init();
}

void wxChoice::Init()
{
    m_buttonWidget = (WXWidget) 0;
    m_menuWidget = (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)
{
    if ( !CreateControl(parent, id, pos, size, style, validator, name) )
        return false;
    PreCreation();

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

    m_formWidget = (WXWidget) XtVaCreateManagedWidget(name.c_str(),
        xmRowColumnWidgetClass, parentWidget,
        XmNmarginHeight, 0,
        XmNmarginWidth, 0,
        XmNpacking, XmPACK_TIGHT,
        XmNorientation, XmHORIZONTAL,
        XmNresizeWidth, False,
        XmNresizeHeight, False,
        NULL);

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

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

    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,
                                                    wxMOTIF_STR("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
    // JACS, 24/1/99: this seems to cause a malloc crash later on, e.g.
    // in controls sample.
    //
    // Widget optionLabel = XmOptionLabelGadget ((Widget) m_buttonWidget);
    // XtUnmanageChild (optionLabel);
#endif
#endif

    wxSize bestSize = GetBestSize();
    if( size.x > 0 ) bestSize.x = size.x;
    if( size.y > 0 ) bestSize.y = size.y;

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

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

    return true;
}

bool wxChoice::Create(wxWindow *parent, wxWindowID id,
                      const wxPoint& pos,
                      const wxSize& size,
                      const wxArrayString& choices,
                      long style,
                      const wxValidator& validator,
                      const wxString& name)
{
    wxCArrayString chs(choices);
    return Create(parent, id, pos, size, chs.GetCount(), chs.GetStrings(),
                  style, validator, name);
}

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 (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;
    }
}

static inline wxChar* MYcopystring(const wxChar* s)
{
    wxChar* copy = new wxChar[wxStrlen(s) + 1];
    return wxStrcpy(copy, s);
}

// TODO auto-sorting is not supported by the code
int wxChoice::DoInsertItems(const wxArrayStringsAdapter& items,
                            unsigned int pos,
                            void **clientData, wxClientDataType type)
{
#ifndef XmNpositionIndex
    wxCHECK_MSG( pos == GetCount(), -1, wxT("insert not implemented"));
#endif

    const unsigned int numItems = items.GetCount();
    AllocClientData(numItems);
    for( unsigned int i = 0; i < numItems; ++i, ++pos )
    {
        Widget w = XtVaCreateManagedWidget (GetLabelText(items[i]),
#if wxUSE_GADGETS
            xmPushButtonGadgetClass, (Widget) m_menuWidget,
#else
            xmPushButtonWidgetClass, (Widget) m_menuWidget,
#endif
#ifdef XmNpositionIndex
            XmNpositionIndex, pos,
#endif
            NULL);

        wxDoChangeBackgroundColour((WXWidget) w, m_backgroundColour);

        if( m_font.IsOk() )
            wxDoChangeFont( w, m_font );

        m_widgetArray.Insert(w, pos);

        char mnem = wxFindMnemonic (items[i]);
        if (mnem != 0)
            XtVaSetValues (w, XmNmnemonic, mnem, NULL);

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

        if (m_stringArray.GetCount() == 0 && m_buttonWidget)
        {
            XtVaSetValues ((Widget) m_buttonWidget, XmNmenuHistory, w, NULL);
            Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
            wxXmString text( items[i] );
            XtVaSetValues (label,
                XmNlabelString, text(),
                NULL);
        }

        m_stringArray.Insert(items[i], pos);

        InsertNewItemClientData(pos, clientData, i, type);
    }

    return pos - 1;
}

void wxChoice::DoDeleteOneItem(unsigned int n)
{
    Widget w = (Widget)m_widgetArray[n];
    XtRemoveCallback(w, XmNactivateCallback, (XtCallbackProc)wxChoiceCallback,
                     (XtPointer)this);

    m_stringArray.RemoveAt(size_t(n));
    m_widgetArray.RemoveAt(size_t(n));
    wxChoiceBase::DoDeleteOneItem(n);

    XtDestroyWidget(w);
}

void wxChoice::DoClear()
{
    m_stringArray.Clear();

    unsigned int i;
    for (i = 0; i < m_stringArray.GetCount(); i++)
    {
        XtRemoveCallback((Widget) m_widgetArray[i],
                         XmNactivateCallback, (XtCallbackProc)wxChoiceCallback,
                         (XtPointer)this);
        XtUnmanageChild ((Widget) m_widgetArray[i]);
        XtDestroyWidget ((Widget) m_widgetArray[i]);
    }

    m_widgetArray.Clear();
    if (m_buttonWidget)
        XtVaSetValues ((Widget) m_buttonWidget,
                       XmNmenuHistory, (Widget) NULL,
                       NULL);

    wxChoiceBase::DoClear();
}

int wxChoice::GetSelection() const
{
    XmString text;
    Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
    XtVaGetValues (label,
        XmNlabelString, &text,
        NULL);
    wxXmString freeMe(text);
    wxString s = wxXmStringToString( text );

    if (!s.empty())
    {
        for (size_t i=0; i<m_stringArray.GetCount(); i++)
            if (m_stringArray[i] == s)
                return i;

        return wxNOT_FOUND;
    }

    return wxNOT_FOUND;
}

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

#if 0
    Dimension selectionWidth, selectionHeight;
#endif
    wxXmString text( m_stringArray[n] );
// MBN: this seems silly, at best, and causes wxChoices to be clipped:
//      will remove "soon"
#if 0
    XtVaGetValues ((Widget) m_widgetArray[n],
                    XmNwidth, &selectionWidth,
                    XmNheight, &selectionHeight,
                    NULL);
#endif
    Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
    XtVaSetValues (label,
        XmNlabelString, text(),
        NULL);
#if 0
    XtVaSetValues ((Widget) m_buttonWidget,
        XmNwidth, selectionWidth, XmNheight, selectionHeight,
        XmNmenuHistory, (Widget) m_widgetArray[n], NULL);
#endif

    m_inSetValue = false;
}

wxString wxChoice::GetString(unsigned int n) const
{
    return m_stringArray[n];
}

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

    short numColumns = (short)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 - WIDTH_OVERHEAD_SUBTRACT,
        actualHeight = height - HEIGHT_OVERHEAD;

    if (width > -1)
    {
        unsigned int i;
        for (i = 0; i < m_stringArray.GetCount(); i++)
            XtVaSetValues ((Widget) m_widgetArray[i],
                           XmNwidth, actualWidth,
                           NULL);
        XtVaSetValues ((Widget) m_buttonWidget, XmNwidth, actualWidth,
            NULL);
    }
    if (height > -1)
    {
#if 0
        unsigned int i;
        for (i = 0; i < m_stringArray.GetCount(); i++)
            XtVaSetValues ((Widget) m_widgetArray[i],
                           XmNheight, actualHeight,
                           NULL);
#endif
        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);
}

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;

        int n = item->GetWidgets().Index(w);
        if (n != wxNOT_FOUND)
        {
            wxCommandEvent event(wxEVT_CHOICE, item->GetId());
            event.SetEventObject(item);
            event.SetInt(n);
            event.SetString( item->GetStrings().Item(n) );
            if ( item->HasClientObjectData() )
                event.SetClientObject( item->GetClientObject(n) );
            else if ( item->HasClientUntypedData() )
                event.SetClientData( item->GetClientData(n) );
            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_mainWidget && m_font.IsOk())
    {
        Display* dpy = XtDisplay((Widget) m_mainWidget);
        int width, height, width1, height1;
        GetSize(& width, & height);

        WXString fontTag = wxFont::GetFontTag();

        XtVaSetValues ((Widget) m_formWidget,
                       fontTag, m_font.GetFontTypeC(dpy),
                       NULL);
        XtVaSetValues ((Widget) m_buttonWidget,
                       fontTag, m_font.GetFontTypeC(dpy),
                       NULL);

        for( unsigned int i = 0; i < m_stringArray.GetCount(); ++i )
            XtVaSetValues( (Widget)m_widgetArray[i],
                           fontTag, m_font.GetFontTypeC(dpy),
                           NULL );

        GetSize(& width1, & height1);
        if (keepOriginalSize && (width != width1 || height != height1))
        {
            SetSize(wxDefaultCoord, wxDefaultCoord, width, height);
        }
    }
}

void wxChoice::ChangeBackgroundColour()
{
    wxDoChangeBackgroundColour(m_formWidget, m_backgroundColour);
    wxDoChangeBackgroundColour(m_buttonWidget, m_backgroundColour);
    wxDoChangeBackgroundColour(m_menuWidget, m_backgroundColour);
    unsigned int i;
    for (i = 0; i < m_stringArray.GetCount(); i++)
        wxDoChangeBackgroundColour(m_widgetArray[i], m_backgroundColour);
}

void wxChoice::ChangeForegroundColour()
{
    wxDoChangeForegroundColour(m_formWidget, m_foregroundColour);
    wxDoChangeForegroundColour(m_buttonWidget, m_foregroundColour);
    wxDoChangeForegroundColour(m_menuWidget, m_foregroundColour);
    unsigned int i;
    for (i = 0; i < m_stringArray.GetCount(); i++)
        wxDoChangeForegroundColour(m_widgetArray[i], m_foregroundColour);
}

unsigned int wxChoice::GetCount() const
{
    return m_stringArray.GetCount();
}

void wxChoice::SetString(unsigned int WXUNUSED(n), const wxString& WXUNUSED(s))
{
    wxFAIL_MSG( wxT("wxChoice::SetString not implemented") );
}

wxSize wxChoice::GetItemsSize() const
{
    int x, y, mx = 0, my = 0;

    // get my
    GetTextExtent( "|", &x, &my );

    for (size_t i=0; i<m_stringArray.GetCount(); i++)
    {
        GetTextExtent( m_stringArray[i], &x, &y );
        mx = wxMax( mx, x );
        my = wxMax( my, y );
    }

    return wxSize( mx, my );
}

wxSize wxChoice::DoGetBestSize() const
{
    wxSize items = GetItemsSize();
    // FIXME arbitrary constants
    return wxSize( ( items.x ? items.x + WIDTH_OVERHEAD : 120 ),
                     items.y + HEIGHT_OVERHEAD );
}

#endif // wxUSE_CHOICE
Commit	Line	Data
	1	/////////////////////////////////////////////////////////////////////////////
	2	// Name: src/motif/choice.cpp
	3	// Purpose: wxChoice
	4	// Author: Julian Smart
	5	// Modified by:
	6	// Created: 17/09/98
	7	// Copyright: (c) Julian Smart
	8	// Licence: wxWindows licence
	9	/////////////////////////////////////////////////////////////////////////////
	10
	11	// For compilers that support precompilation, includes "wx.h".
	12	#include "wx/wxprec.h"
	13
	14	#if wxUSE_CHOICE
	15
	16	#include "wx/choice.h"
	17
	18	#ifndef WX_PRECOMP
	19	#include "wx/utils.h"
	20	#include "wx/arrstr.h"
	21	#endif
	22
	23	#ifdef __VMS__
	24	#pragma message disable nosimpint
	25	#endif
	26	#include <Xm/Xm.h>
	27	#include <Xm/PushBG.h>
	28	#include <Xm/PushB.h>
	29	#include <Xm/RowColumn.h>
	30	#ifdef __VMS__
	31	#pragma message enable nosimpint
	32	#endif
	33
	34	#include "wx/motif/private.h"
	35
	36	#define WIDTH_OVERHEAD 48
	37	#define WIDTH_OVERHEAD_SUBTRACT 40
	38	#define HEIGHT_OVERHEAD 15
	39
	40	void wxChoiceCallback (Widget w, XtPointer clientData,
	41	XtPointer ptr);
	42
	43	wxChoice::wxChoice()
	44	{
	45	Init();
	46	}
	47
	48	void wxChoice::Init()
	49	{
	50	m_buttonWidget = (WXWidget) 0;
	51	m_menuWidget = (WXWidget) 0;
	52	m_formWidget = (WXWidget) 0;
	53	}
	54
	55	bool wxChoice::Create(wxWindow *parent, wxWindowID id,
	56	const wxPoint& pos,
	57	const wxSize& size,
	58	int n, const wxString choices[],
	59	long style,
	60	const wxValidator& validator,
	61	const wxString& name)
	62	{
	63	if ( !CreateControl(parent, id, pos, size, style, validator, name) )
	64	return false;
	65	PreCreation();
	66
	67	Widget parentWidget = (Widget) parent->GetClientWidget();
	68
	69	m_formWidget = (WXWidget) XtVaCreateManagedWidget(name.c_str(),
	70	xmRowColumnWidgetClass, parentWidget,
	71	XmNmarginHeight, 0,
	72	XmNmarginWidth, 0,
	73	XmNpacking, XmPACK_TIGHT,
	74	XmNorientation, XmHORIZONTAL,
	75	XmNresizeWidth, False,
	76	XmNresizeHeight, False,
	77	NULL);
	78
	79	XtVaSetValues ((Widget) m_formWidget, XmNspacing, 0, NULL);
	80
	81	/*
	82	* Create the popup menu
	83	*/
	84	m_menuWidget = (WXWidget) XmCreatePulldownMenu ((Widget) m_formWidget,
	85	wxMOTIF_STR("choiceMenu"),
	86	NULL, 0);
	87
	88	if (n > 0)
	89	{
	90	int i;
	91	for (i = 0; i < n; i++)
	92	Append (choices[i]);
	93	}
	94
	95	/*
	96	* Create button
	97	*/
	98	Arg args[10];
	99	Cardinal argcnt = 0;
	100
	101	XtSetArg (args[argcnt], XmNsubMenuId, (Widget) m_menuWidget); ++argcnt;
	102	XtSetArg (args[argcnt], XmNmarginWidth, 0); ++argcnt;
	103	XtSetArg (args[argcnt], XmNmarginHeight, 0); ++argcnt;
	104	XtSetArg (args[argcnt], XmNpacking, XmPACK_TIGHT); ++argcnt;
	105	m_buttonWidget = (WXWidget) XmCreateOptionMenu ((Widget) m_formWidget,
	106	wxMOTIF_STR("choiceButton"),
	107	args, argcnt);
	108
	109	m_mainWidget = m_buttonWidget;
	110
	111	XtManageChild ((Widget) m_buttonWidget);
	112
	113	// New code from Roland Haenel (roland_haenel@ac.cybercity.de)
	114	// Some time ago, I reported a problem with wxChoice-items under
	115	// Linux and Motif 2.0 (they caused sporadic GPFs). Now it seems
	116	// that I have found the code responsible for this behaviour.
	117	#if XmVersion >= 1002
	118	#if XmVersion < 2000
	119	// JACS, 24/1/99: this seems to cause a malloc crash later on, e.g.
	120	// in controls sample.
	121	//
	122	// Widget optionLabel = XmOptionLabelGadget ((Widget) m_buttonWidget);
	123	// XtUnmanageChild (optionLabel);
	124	#endif
	125	#endif
	126
	127	wxSize bestSize = GetBestSize();
	128	if( size.x > 0 ) bestSize.x = size.x;
	129	if( size.y > 0 ) bestSize.y = size.y;
	130
	131	XtVaSetValues((Widget) m_formWidget, XmNresizePolicy, XmRESIZE_NONE, NULL);
	132
	133	PostCreation();
	134	AttachWidget (parent, m_buttonWidget, m_formWidget,
	135	pos.x, pos.y, bestSize.x, bestSize.y);
	136
	137	return true;
	138	}
	139
	140	bool wxChoice::Create(wxWindow *parent, wxWindowID id,
	141	const wxPoint& pos,
	142	const wxSize& size,
	143	const wxArrayString& choices,
	144	long style,
	145	const wxValidator& validator,
	146	const wxString& name)
	147	{
	148	wxCArrayString chs(choices);
	149	return Create(parent, id, pos, size, chs.GetCount(), chs.GetStrings(),
	150	style, validator, name);
	151	}
	152
	153	wxChoice::~wxChoice()
	154	{
	155	// For some reason destroying the menuWidget
	156	// can cause crashes on some machines. It will
	157	// be deleted implicitly by deleting the parent form
	158	// anyway.
	159	// XtDestroyWidget (menuWidget);
	160
	161	if (GetMainWidget())
	162	{
	163	DetachWidget(GetMainWidget()); // Removes event handlers
	164	DetachWidget(m_formWidget);
	165
	166	XtDestroyWidget((Widget) m_formWidget);
	167	m_formWidget = (WXWidget) 0;
	168
	169	// Presumably the other widgets have been deleted now, via the form
	170	m_mainWidget = (WXWidget) 0;
	171	m_buttonWidget = (WXWidget) 0;
	172	}
	173	}
	174
	175	static inline wxChar* MYcopystring(const wxChar* s)
	176	{
	177	wxChar* copy = new wxChar[wxStrlen(s) + 1];
	178	return wxStrcpy(copy, s);
	179	}
	180
	181	// TODO auto-sorting is not supported by the code
	182	int wxChoice::DoInsertItems(const wxArrayStringsAdapter& items,
	183	unsigned int pos,
	184	void **clientData, wxClientDataType type)
	185	{
	186	#ifndef XmNpositionIndex
	187	wxCHECK_MSG( pos == GetCount(), -1, wxT("insert not implemented"));
	188	#endif
	189
	190	const unsigned int numItems = items.GetCount();
	191	AllocClientData(numItems);
	192	for( unsigned int i = 0; i < numItems; ++i, ++pos )
	193	{
	194	Widget w = XtVaCreateManagedWidget (GetLabelText(items[i]),
	195	#if wxUSE_GADGETS
	196	xmPushButtonGadgetClass, (Widget) m_menuWidget,
	197	#else
	198	xmPushButtonWidgetClass, (Widget) m_menuWidget,
	199	#endif
	200	#ifdef XmNpositionIndex
	201	XmNpositionIndex, pos,
	202	#endif
	203	NULL);
	204
	205	wxDoChangeBackgroundColour((WXWidget) w, m_backgroundColour);
	206
	207	if( m_font.IsOk() )
	208	wxDoChangeFont( w, m_font );
	209
	210	m_widgetArray.Insert(w, pos);
	211
	212	char mnem = wxFindMnemonic (items[i]);
	213	if (mnem != 0)
	214	XtVaSetValues (w, XmNmnemonic, mnem, NULL);
	215
	216	XtAddCallback (w, XmNactivateCallback,
	217	(XtCallbackProc) wxChoiceCallback,
	218	(XtPointer) this);
	219
	220	if (m_stringArray.GetCount() == 0 && m_buttonWidget)
	221	{
	222	XtVaSetValues ((Widget) m_buttonWidget, XmNmenuHistory, w, NULL);
	223	Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
	224	wxXmString text( items[i] );
	225	XtVaSetValues (label,
	226	XmNlabelString, text(),
	227	NULL);
	228	}
	229
	230	m_stringArray.Insert(items[i], pos);
	231
	232	InsertNewItemClientData(pos, clientData, i, type);
	233	}
	234
	235	return pos - 1;
	236	}
	237
	238	void wxChoice::DoDeleteOneItem(unsigned int n)
	239	{
	240	Widget w = (Widget)m_widgetArray[n];
	241	XtRemoveCallback(w, XmNactivateCallback, (XtCallbackProc)wxChoiceCallback,
	242	(XtPointer)this);
	243
	244	m_stringArray.RemoveAt(size_t(n));
	245	m_widgetArray.RemoveAt(size_t(n));
	246	wxChoiceBase::DoDeleteOneItem(n);
	247
	248	XtDestroyWidget(w);
	249	}
	250
	251	void wxChoice::DoClear()
	252	{
	253	m_stringArray.Clear();
	254
	255	unsigned int i;
	256	for (i = 0; i < m_stringArray.GetCount(); i++)
	257	{
	258	XtRemoveCallback((Widget) m_widgetArray[i],
	259	XmNactivateCallback, (XtCallbackProc)wxChoiceCallback,
	260	(XtPointer)this);
	261	XtUnmanageChild ((Widget) m_widgetArray[i]);
	262	XtDestroyWidget ((Widget) m_widgetArray[i]);
	263	}
	264
	265	m_widgetArray.Clear();
	266	if (m_buttonWidget)
	267	XtVaSetValues ((Widget) m_buttonWidget,
	268	XmNmenuHistory, (Widget) NULL,
	269	NULL);
	270
	271	wxChoiceBase::DoClear();
	272	}
	273
	274	int wxChoice::GetSelection() const
	275	{
	276	XmString text;
	277	Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
	278	XtVaGetValues (label,
	279	XmNlabelString, &text,
	280	NULL);
	281	wxXmString freeMe(text);
	282	wxString s = wxXmStringToString( text );
	283
	284	if (!s.empty())
	285	{
	286	for (size_t i=0; i<m_stringArray.GetCount(); i++)
	287	if (m_stringArray[i] == s)
	288	return i;
	289
	290	return wxNOT_FOUND;
	291	}
	292
	293	return wxNOT_FOUND;
	294	}
	295
	296	void wxChoice::SetSelection(int n)
	297	{
	298	m_inSetValue = true;
	299
	300	#if 0
	301	Dimension selectionWidth, selectionHeight;
	302	#endif
	303	wxXmString text( m_stringArray[n] );
	304	// MBN: this seems silly, at best, and causes wxChoices to be clipped:
	305	// will remove "soon"
	306	#if 0
	307	XtVaGetValues ((Widget) m_widgetArray[n],
	308	XmNwidth, &selectionWidth,
	309	XmNheight, &selectionHeight,
	310	NULL);
	311	#endif
	312	Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
	313	XtVaSetValues (label,
	314	XmNlabelString, text(),
	315	NULL);
	316	#if 0
	317	XtVaSetValues ((Widget) m_buttonWidget,
	318	XmNwidth, selectionWidth, XmNheight, selectionHeight,
	319	XmNmenuHistory, (Widget) m_widgetArray[n], NULL);
	320	#endif
	321
	322	m_inSetValue = false;
	323	}
	324
	325	wxString wxChoice::GetString(unsigned int n) const
	326	{
	327	return m_stringArray[n];
	328	}
	329
	330	void wxChoice::SetColumns(int n)
	331	{
	332	if (n<1) n = 1 ;
	333
	334	short numColumns = (short)n ;
	335	Arg args[3];
	336
	337	XtSetArg(args[0], XmNnumColumns, numColumns);
	338	XtSetArg(args[1], XmNpacking, XmPACK_COLUMN);
	339	XtSetValues((Widget) m_menuWidget,args,2) ;
	340	}
	341
	342	int wxChoice::GetColumns(void) const
	343	{
	344	short numColumns ;
	345
	346	XtVaGetValues((Widget) m_menuWidget,XmNnumColumns,&numColumns,NULL) ;
	347	return numColumns ;
	348	}
	349
	350	void wxChoice::SetFocus()
	351	{
	352	XmProcessTraversal(XtParent((Widget)m_mainWidget), XmTRAVERSE_CURRENT);
	353	}
	354
	355	void wxChoice::DoSetSize(int x, int y, int width, int height, int sizeFlags)
	356	{
	357	XtVaSetValues((Widget) m_formWidget, XmNresizePolicy, XmRESIZE_ANY, NULL);
	358	bool managed = XtIsManaged((Widget) m_formWidget);
	359
	360	if (managed)
	361	XtUnmanageChild ((Widget) m_formWidget);
	362
	363	int actualWidth = width - WIDTH_OVERHEAD_SUBTRACT,
	364	actualHeight = height - HEIGHT_OVERHEAD;
	365
	366	if (width > -1)
	367	{
	368	unsigned int i;
	369	for (i = 0; i < m_stringArray.GetCount(); i++)
	370	XtVaSetValues ((Widget) m_widgetArray[i],
	371	XmNwidth, actualWidth,
	372	NULL);
	373	XtVaSetValues ((Widget) m_buttonWidget, XmNwidth, actualWidth,
	374	NULL);
	375	}
	376	if (height > -1)
	377	{
	378	#if 0
	379	unsigned int i;
	380	for (i = 0; i < m_stringArray.GetCount(); i++)
	381	XtVaSetValues ((Widget) m_widgetArray[i],
	382	XmNheight, actualHeight,
	383	NULL);
	384	#endif
	385	XtVaSetValues ((Widget) m_buttonWidget, XmNheight, actualHeight,
	386	NULL);
	387	}
	388
	389	if (managed)
	390	XtManageChild ((Widget) m_formWidget);
	391	XtVaSetValues((Widget) m_formWidget, XmNresizePolicy, XmRESIZE_NONE, NULL);
	392
	393	wxControl::DoSetSize (x, y, width, height, sizeFlags);
	394	}
	395
	396	void wxChoice::Command(wxCommandEvent & event)
	397	{
	398	SetSelection (event.GetInt());
	399	ProcessCommand (event);
	400	}
	401
	402	void wxChoiceCallback (Widget w, XtPointer clientData, XtPointer WXUNUSED(ptr))
	403	{
	404	wxChoice item = (wxChoice ) clientData;
	405	if (item)
	406	{
	407	if (item->InSetValue())
	408	return;
	409
	410	int n = item->GetWidgets().Index(w);
	411	if (n != wxNOT_FOUND)
	412	{
	413	wxCommandEvent event(wxEVT_CHOICE, item->GetId());
	414	event.SetEventObject(item);
	415	event.SetInt(n);
	416	event.SetString( item->GetStrings().Item(n) );
	417	if ( item->HasClientObjectData() )
	418	event.SetClientObject( item->GetClientObject(n) );
	419	else if ( item->HasClientUntypedData() )
	420	event.SetClientData( item->GetClientData(n) );
	421	item->ProcessCommand (event);
	422	}
	423	}
	424	}
	425
	426	void wxChoice::ChangeFont(bool keepOriginalSize)
	427	{
	428	// Note that this causes the widget to be resized back
	429	// to its original size! We therefore have to set the size
	430	// back again. TODO: a better way in Motif?
	431	if (m_mainWidget && m_font.IsOk())
	432	{
	433	Display* dpy = XtDisplay((Widget) m_mainWidget);
	434	int width, height, width1, height1;
	435	GetSize(& width, & height);
	436
	437	WXString fontTag = wxFont::GetFontTag();
	438
	439	XtVaSetValues ((Widget) m_formWidget,
	440	fontTag, m_font.GetFontTypeC(dpy),
	441	NULL);
	442	XtVaSetValues ((Widget) m_buttonWidget,
	443	fontTag, m_font.GetFontTypeC(dpy),
	444	NULL);
	445
	446	for( unsigned int i = 0; i < m_stringArray.GetCount(); ++i )
	447	XtVaSetValues( (Widget)m_widgetArray[i],
	448	fontTag, m_font.GetFontTypeC(dpy),
	449	NULL );
	450
	451	GetSize(& width1, & height1);
	452	if (keepOriginalSize && (width != width1 \|\| height != height1))
	453	{
	454	SetSize(wxDefaultCoord, wxDefaultCoord, width, height);
	455	}
	456	}
	457	}
	458
	459	void wxChoice::ChangeBackgroundColour()
	460	{
	461	wxDoChangeBackgroundColour(m_formWidget, m_backgroundColour);
	462	wxDoChangeBackgroundColour(m_buttonWidget, m_backgroundColour);
	463	wxDoChangeBackgroundColour(m_menuWidget, m_backgroundColour);
	464	unsigned int i;
	465	for (i = 0; i < m_stringArray.GetCount(); i++)
	466	wxDoChangeBackgroundColour(m_widgetArray[i], m_backgroundColour);
	467	}
	468
	469	void wxChoice::ChangeForegroundColour()
	470	{
	471	wxDoChangeForegroundColour(m_formWidget, m_foregroundColour);
	472	wxDoChangeForegroundColour(m_buttonWidget, m_foregroundColour);
	473	wxDoChangeForegroundColour(m_menuWidget, m_foregroundColour);
	474	unsigned int i;
	475	for (i = 0; i < m_stringArray.GetCount(); i++)
	476	wxDoChangeForegroundColour(m_widgetArray[i], m_foregroundColour);
	477	}
	478
	479	unsigned int wxChoice::GetCount() const
	480	{
	481	return m_stringArray.GetCount();
	482	}
	483
	484	void wxChoice::SetString(unsigned int WXUNUSED(n), const wxString& WXUNUSED(s))
	485	{
	486	wxFAIL_MSG( wxT("wxChoice::SetString not implemented") );
	487	}
	488
	489	wxSize wxChoice::GetItemsSize() const
	490	{
	491	int x, y, mx = 0, my = 0;
	492
	493	// get my
	494	GetTextExtent( "\|", &x, &my );
	495
	496	for (size_t i=0; i<m_stringArray.GetCount(); i++)
	497	{
	498	GetTextExtent( m_stringArray[i], &x, &y );
	499	mx = wxMax( mx, x );
	500	my = wxMax( my, y );
	501	}
	502
	503	return wxSize( mx, my );
	504	}
	505
	506	wxSize wxChoice::DoGetBestSize() const
	507	{
	508	wxSize items = GetItemsSize();
	509	// FIXME arbitrary constants
	510	return wxSize( ( items.x ? items.x + WIDTH_OVERHEAD : 120 ),
	511	items.y + HEIGHT_OVERHEAD );
	512	}
	513
	514	#endif // wxUSE_CHOICE