src/motif/choice.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        src/motif/choice.cpp
// Purpose:     wxChoice
// Author:      Julian Smart
// Modified by:
// Created:     17/09/98
// RCS-ID:      $Id$
// 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

IMPLEMENT_DYNAMIC_CLASS(wxChoice, wxControlWithItems)

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

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

void wxChoice::Init()
{
    m_noStrings = 0;
    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.Ok() )
            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_noStrings == 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);
        }
        // need to ditch wxStringList for wxArrayString
        m_stringList.Insert(pos, MYcopystring(items[i]));
        m_noStrings ++;

        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_stringList.Erase(m_stringList.Item(n));
    m_widgetArray.RemoveAt(size_t(n));
    wxChoiceBase::DoDeleteOneItem(n);

    XtDestroyWidget(w);
    m_noStrings--;
}

void wxChoice::DoClear()
{
    m_stringList.Clear ();
    unsigned int i;
    for (i = 0; i < m_noStrings; 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();

    m_noStrings = 0;
}

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())
    {
        int i = 0;
        for (wxStringList::compatibility_iterator node = m_stringList.GetFirst ();
             node; node = node->GetNext ())
        {
            if (wxStrcmp(node->GetData(), s.c_str()) == 0)
            {
                return i;
            }
            else
                i++;
        }            // for()

        return -1;
    }
    return -1;
}

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

    wxStringList::compatibility_iterator node = m_stringList.Item(n);
    if (node)
    {
#if 0
        Dimension selectionWidth, selectionHeight;
#endif
        wxXmString text( node->GetData() );
// 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
{
    wxStringList::compatibility_iterator node = m_stringList.Item(n);
    if (node)
        return node->GetData();
    else
        return wxEmptyString;
}

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_noStrings; 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_noStrings; 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_COMMAND_CHOICE_SELECTED, item->GetId());
            event.SetEventObject(item);
            event.SetInt(n);
            event.SetString( item->GetStrings().Item(n)->GetData() );
            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.Ok())
    {
        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_noStrings; ++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_noStrings; 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_noStrings; i++)
        wxDoChangeForegroundColour(m_widgetArray[i], m_foregroundColour);
}

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

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 );

    wxStringList::compatibility_iterator curr = m_stringList.GetFirst();
    while( curr )
    {
        GetTextExtent( curr->GetData(), &x, &y );
        mx = wxMax( mx, x );
        my = wxMax( my, y );
        curr = curr->GetNext();
    }

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