[wxWidgets.git] / src / motif / combobox_native.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        combobox_native.cpp
// Purpose:     wxComboBox class
// Author:      Julian Smart, Ian Brown
// Modified by:
// Created:     01/02/03
// RCS-ID:      $Id$
// Copyright:   (c) Julian Smart
// Licence:     wxWindows licence
/////////////////////////////////////////////////////////////////////////////

#include "wx/setup.h"

#if wxUSE_COMBOBOX

#include "wx/combobox.h"
#include "wx/arrstr.h"

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

// use the new, shiny combobox for Motif 2.x
#if (XmVersion >= 2000)

#ifdef __VMS__
#pragma message disable nosimpint
#endif
#include <Xm/ComboBox.h>
#include <Xm/Text.h>
#include <Xm/List.h>
#ifdef __VMS__
#pragma message enable nosimpint
#endif

#include "wx/motif/private.h"

// utility
static Widget GetXmList( const wxComboBox* cb )
{
    Widget ret;
    XtVaGetValues( (Widget)cb->GetMainWidget(),
                   XmNlist, &ret,
                   NULL );

    return ret;
}

static Widget GetXmText( const wxComboBox* cb )
{
    Widget ret;
    XtVaGetValues( (Widget)cb->GetMainWidget(),
                   XmNtextField, &ret,
                   NULL );

    return ret;
}

void  wxComboBoxCallback (Widget w, XtPointer clientData,
                          XmComboBoxCallbackStruct * cbs);

IMPLEMENT_DYNAMIC_CLASS(wxComboBox, wxControl)

bool wxComboBox::Create(wxWindow *parent, wxWindowID id,
                        const wxString& value,
                        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;

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

    int cb_type = ( style & wxCB_SIMPLE ) ? XmCOMBO_BOX :
                  ( style & wxCB_READONLY ) ? XmDROP_DOWN_LIST :
                  ( style & wxCB_DROPDOWN ) ? XmDROP_DOWN_COMBO_BOX :
    // default to wxCB_DROPDOWN
                                              XmDROP_DOWN_COMBO_BOX;
    if( cb_type == XmDROP_DOWN_COMBO_BOX )
        SetWindowStyle( style | wxCB_DROPDOWN );

    Widget buttonWidget= XtVaCreateManagedWidget(name.c_str(),
        xmComboBoxWidgetClass, parentWidget,
	XmNcomboBoxType, cb_type,
        NULL);

    m_mainWidget = (Widget) buttonWidget;

    int i;
    for ( i = 0; i < n; ++i)
        Append( choices[i] );

    XtManageChild (buttonWidget);

    SetValue(value);

    ChangeFont(false);

    XtAddCallback (buttonWidget, XmNselectionCallback,
                   (XtCallbackProc) wxComboBoxCallback,
                   (XtPointer) this);
    XtAddCallback (GetXmText(this), XmNvalueChangedCallback,
                   (XtCallbackProc) wxComboBoxCallback,
                   (XtPointer) this);

    wxSize best = GetBestSize();
    if( size.x != -1 ) best.x = size.x;
    if( size.y != -1 ) best.y = size.y;

    AttachWidget (parent, m_mainWidget, (WXWidget) NULL,
                  pos.x, pos.y, best.x, best.y);

    ChangeBackgroundColour();

    return true;
}

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

void wxComboBox::AdjustDropDownListSize()
{
    int newListCount = -1, itemCount = GetCount();
    const int MAX = 12;

    if( !itemCount )
        newListCount = 1;
    else if( itemCount < MAX )
        newListCount = itemCount;
    else
        newListCount = MAX;

    XtVaSetValues( GetXmList(this),
                   XmNvisibleItemCount, newListCount,
                   NULL );
}

wxComboBox::~wxComboBox()
{
    DetachWidget((Widget) m_mainWidget); // Removes event handlers
    XtDestroyWidget((Widget) m_mainWidget);
    m_mainWidget = (WXWidget) 0;
    if ( HasClientObjectData() )
        m_clientDataDict.DestroyData();
}

void wxComboBox::DoSetSize(int x, int y, int width, int height, int sizeFlags)
{
    // Necessary so it doesn't call wxChoice::SetSize
    wxWindow::DoSetSize(x, y, width, DoGetBestSize().y, sizeFlags);
}

wxString wxComboBox::GetValue() const
{
    char* s = XmTextGetString (GetXmText (this));
    wxString str(s);
    if (s)
        XtFree (s);
    return str;
}

void wxComboBox::SetString(int n, const wxString& s)
{
    wxXmString text(s);
    Widget listBox = GetXmList(this);

    // delete the item and add it again.
    // FIXME isn't there a way to change it in place?
    XmListDeletePos (listBox, n+1);
    XmListAddItem (listBox, text(), n+1);
}

void wxComboBox::SetValue(const wxString& value)
{
    m_inSetValue = true;

    // Fix crash; probably an OpenMotif bug
    const char* val = value.c_str() ? value.c_str() : "";
    XtVaSetValues( GetXmText(this),
                   XmNvalue, wxConstCast(val, char),
                   NULL);

    m_inSetValue = false;
}

int wxComboBox::DoAppend(const wxString& item)
{
    wxXmString str( item.c_str() );
    XmComboBoxAddItem((Widget) m_mainWidget, str(), 0, False);
    m_noStrings ++;
    AdjustDropDownListSize();

    return GetCount() - 1;
}

int wxComboBox::DoInsert(const wxString& item, int pos)
{
    wxCHECK_MSG(!(GetWindowStyle() & wxCB_SORT), -1, wxT("can't insert into sorted list"));
    wxCHECK_MSG((pos>=0) && (pos<=GetCount()), -1, wxT("invalid index"));

    if (pos == GetCount())
        return DoAppend(item);

    wxXmString str( item.c_str() );
    XmComboBoxAddItem((Widget) m_mainWidget, str(), pos+1, False);
    m_noStrings ++;
    AdjustDropDownListSize();

    return GetCount() - 1;
}

void wxComboBox::Delete(int n)
{
#ifdef LESSTIF_VERSION
    XmListDeletePos (GetXmList(this), n + 1);
#else
    XmComboBoxDeletePos((Widget) m_mainWidget, n+1);
#endif

    m_clientDataDict.Delete(n, HasClientObjectData());
    m_noStrings--;

    AdjustDropDownListSize();
}

void wxComboBox::Clear()
{
#ifdef LESSTIF_VERSION
    XmListDeleteAllItems (GetXmList(this));
#else
    while(m_noStrings > 0)
    {
    	XmComboBoxDeletePos((Widget) m_mainWidget, m_noStrings--);
    }
#endif

    if ( HasClientObjectData() )
        m_clientDataDict.DestroyData();
    m_noStrings = 0;
    AdjustDropDownListSize();
}

void wxComboBox::SetSelection (int n)
{
    m_inSetSelection = true;

#if wxCHECK_LESSTIF()
    XmListSelectPos (GetXmList(this), n + 1, false);
    SetValue(GetString(n));
#else
#if 0
    wxXmString str( GetString(n).c_str() );
    XmComboBoxSelectItem((Widget) m_mainWidget, str());
#endif
    XtVaSetValues( (Widget)m_mainWidget,
                   XmNselectedPosition, n,
                   NULL );
#endif

    m_inSetSelection = false;
}

int wxComboBox::GetSelection (void) const
{
    return wxDoGetSelectionInList( GetXmList( this ) );
}

wxString wxComboBox::GetString(int n) const
{
    return wxDoGetStringInList( GetXmList(this), n );
}

int wxComboBox::FindString(const wxString& s) const
{
    return wxDoFindStringInList( GetXmList( this ), s );
}

// Clipboard operations
void wxComboBox::Copy()
{
    XmTextCopy( GetXmText(this), CurrentTime );
}

void wxComboBox::Cut()
{
    XmTextCut( GetXmText(this), CurrentTime );
}

void wxComboBox::Paste()
{
    XmTextPaste( GetXmText(this) );
}

void wxComboBox::SetEditable(bool WXUNUSED(editable))
{
    // TODO
}

void wxComboBox::SetInsertionPoint(long pos)
{
    XmTextSetInsertionPosition( GetXmText(this), (XmTextPosition)pos );
}

void wxComboBox::SetInsertionPointEnd()
{
    SetInsertionPoint( GetLastPosition() );
}

long wxComboBox::GetInsertionPoint() const
{
    return (long)XmTextGetInsertionPosition( GetXmText(this) );
}

long wxComboBox::GetLastPosition() const
{
    XmTextPosition pos = XmTextGetLastPosition( GetXmText(this) );
    return (long)pos;
}

void wxComboBox::Replace(long from, long to, const wxString& value)
{
    XmTextReplace( GetXmText(this), (XmTextPosition)from, (XmTextPosition)to,
                   wxConstCast(value.c_str(), char) );
}

void wxComboBox::Remove(long from, long to)
{
    SetSelection( from, to );
    XmTextRemove( GetXmText(this) );
}

void wxComboBox::SetSelection(long from, long to)
{
    if( to == -1 )
        to = GetLastPosition();

    XmTextSetSelection( GetXmText(this), (XmTextPosition)from,
                        (XmTextPosition)to, (Time)0 );
}

void  wxComboBoxCallback (Widget WXUNUSED(w), XtPointer clientData,
                          XmComboBoxCallbackStruct * cbs)
{
    wxComboBox *item = (wxComboBox *) clientData;

    if( item->m_inSetSelection ) return;

    switch (cbs->reason)
    {
    case XmCR_SELECT:
#if 0
    case XmCR_SINGLE_SELECT:
    case XmCR_BROWSE_SELECT:
#endif
        {
            wxCommandEvent event (wxEVT_COMMAND_COMBOBOX_SELECTED,
                                  item->GetId());
            int idx = cbs->item_position;
            event.m_commandInt = idx;
            event.m_commandString = item->GetString (idx);
            if ( item->HasClientObjectData() )
                event.SetClientObject( item->GetClientObject(idx) );
            else if ( item->HasClientUntypedData() )
                event.SetClientData( item->GetClientData(idx) );
            event.m_extraLong = true;
            event.SetEventObject(item);
            item->GetEventHandler()->ProcessEvent(event);
            break;
        }
    case XmCR_VALUE_CHANGED:
        {
            wxCommandEvent event (wxEVT_COMMAND_TEXT_UPDATED, item->GetId());
            event.m_commandInt = -1;
            event.m_commandString = item->GetValue();
            event.m_extraLong = true;
            event.SetEventObject(item);
            item->GetEventHandler()->ProcessEvent(event);
            break;
        }
    default:
        break;
    }
}

void wxComboBox::ChangeFont(bool keepOriginalSize)
{
    if( m_font.Ok() )
    {
        wxDoChangeFont( GetXmText(this), m_font );
        wxDoChangeFont( GetXmList(this), m_font );
    }

    // Don't use the base class wxChoice's ChangeFont
    wxWindow::ChangeFont(keepOriginalSize);
}

void wxComboBox::ChangeBackgroundColour()
{
    wxWindow::ChangeBackgroundColour();
}

void wxComboBox::ChangeForegroundColour()
{
    wxWindow::ChangeForegroundColour();
}

wxSize wxComboBox::DoGetBestSize() const
{
    if( (GetWindowStyle() & wxCB_DROPDOWN) == wxCB_DROPDOWN ||
        (GetWindowStyle() & wxCB_READONLY) == wxCB_READONLY )
    {
        Dimension arrowW, arrowS, highlight, xmargin, ymargin, shadow;

        XtVaGetValues( (Widget)m_mainWidget,
                       XmNarrowSize, &arrowW,
                       XmNarrowSpacing, &arrowS,
                       XmNhighlightThickness, &highlight,
                       XmNmarginWidth, &xmargin,
                       XmNmarginHeight, &ymargin,
                       XmNshadowThickness, &shadow,
                       NULL );

        wxSize listSize = wxDoGetListBoxBestSize( GetXmList(this), this );
        wxSize textSize = wxDoGetSingleTextCtrlBestSize( GetXmText(this),
                                                         this );

        // FIXME arbitrary constants
        return wxSize( listSize.x + arrowW + arrowS + 2 * highlight
                                  + 2 * shadow + 2 * xmargin ,
                       textSize.y + 2 * highlight + 2 * ymargin + 2 * shadow );
    }
    else
        return wxWindow::DoGetBestSize();
}

#endif // XmVersion >= 2000

#endif // wxUSE_COMBOBOX
Commit	Line	Data
9b1bd0c6 MB	1	/////////////////////////////////////////////////////////////////////////////
	2	// Name: combobox_native.cpp
	3	// Purpose: wxComboBox class
	4	// Author: Julian Smart, Ian Brown
	5	// Modified by:
	6	// Created: 01/02/03
	7	// RCS-ID: $Id$
	8	// Copyright: (c) Julian Smart
	9	// Licence: wxWindows licence
	10	/////////////////////////////////////////////////////////////////////////////
	11
	12	#include "wx/setup.h"
	13
	14	#if wxUSE_COMBOBOX
	15
	16	#include "wx/combobox.h"
584ad2a3	17	#include "wx/arrstr.h"
9b1bd0c6 MB	18
	19	#ifdef __VMS__
	20	#pragma message disable nosimpint
	21	#endif
	22	#include <Xm/Xm.h>
	23	#ifdef __VMS__
	24	#pragma message enable nosimpint
	25	#endif
	26
	27	// use the new, shiny combobox for Motif 2.x
	28	#if (XmVersion >= 2000)
	29
100f9289 MB	30	#ifdef __VMS__
	31	#pragma message disable nosimpint
	32	#endif
9b1bd0c6 MB	33	#include <Xm/ComboBox.h>
	34	#include <Xm/Text.h>
	35	#include <Xm/List.h>
100f9289 MB	36	#ifdef __VMS__
	37	#pragma message enable nosimpint
	38	#endif
9b1bd0c6 MB	39
	40	#include "wx/motif/private.h"
	41
	42	// utility
	43	static Widget GetXmList( const wxComboBox* cb )
	44	{
	45	Widget ret;
	46	XtVaGetValues( (Widget)cb->GetMainWidget(),
	47	XmNlist, &ret,
	48	NULL );
	49
	50	return ret;
	51	}
	52
	53	static Widget GetXmText( const wxComboBox* cb )
	54	{
	55	Widget ret;
	56	XtVaGetValues( (Widget)cb->GetMainWidget(),
	57	XmNtextField, &ret,
	58	NULL );
	59
	60	return ret;
	61	}
	62
	63	void wxComboBoxCallback (Widget w, XtPointer clientData,
	64	XmComboBoxCallbackStruct * cbs);
	65
	66	IMPLEMENT_DYNAMIC_CLASS(wxComboBox, wxControl)
	67
	68	bool wxComboBox::Create(wxWindow *parent, wxWindowID id,
	69	const wxString& value,
	70	const wxPoint& pos,
	71	const wxSize& size,
	72	int n, const wxString choices[],
	73	long style,
	74	const wxValidator& validator,
	75	const wxString& name)
	76	{
	77	if( !CreateControl( parent, id, pos, size, style, validator, name ) )
	78	return false;
	79
	80	Widget parentWidget = (Widget) parent->GetClientWidget();
	81
	82	int cb_type = ( style & wxCB_SIMPLE ) ? XmCOMBO_BOX :
	83	( style & wxCB_READONLY ) ? XmDROP_DOWN_LIST :
	84	( style & wxCB_DROPDOWN ) ? XmDROP_DOWN_COMBO_BOX :
	85	// default to wxCB_DROPDOWN
	86	XmDROP_DOWN_COMBO_BOX;
e1aae528 MB	87	if( cb_type == XmDROP_DOWN_COMBO_BOX )
e1aae528 MB	88	SetWindowStyle( style \| wxCB_DROPDOWN );
9b1bd0c6 MB	89
	90	Widget buttonWidget= XtVaCreateManagedWidget(name.c_str(),
	91	xmComboBoxWidgetClass, parentWidget,
	92	XmNcomboBoxType, cb_type,
	93	NULL);
	94
	95	m_mainWidget = (Widget) buttonWidget;
	96
	97	int i;
	98	for ( i = 0; i < n; ++i)
	99	Append( choices[i] );
	100
	101	XtManageChild (buttonWidget);
	102
	103	SetValue(value);
	104
	105	ChangeFont(false);
	106
	107	XtAddCallback (buttonWidget, XmNselectionCallback,
	108	(XtCallbackProc) wxComboBoxCallback,
	109	(XtPointer) this);
	110	XtAddCallback (GetXmText(this), XmNvalueChangedCallback,
	111	(XtCallbackProc) wxComboBoxCallback,
	112	(XtPointer) this);
	113
e1aae528 MB	114	wxSize best = GetBestSize();
	115	if( size.x != -1 ) best.x = size.x;
	116	if( size.y != -1 ) best.y = size.y;
	117
9b1bd0c6	118	AttachWidget (parent, m_mainWidget, (WXWidget) NULL,
e1aae528	119	pos.x, pos.y, best.x, best.y);
9b1bd0c6 MB	120
	121	ChangeBackgroundColour();
	122
	123	return true;
	124	}
	125
584ad2a3 MB	126	bool wxComboBox::Create(wxWindow *parent, wxWindowID id,
	127	const wxString& value,
	128	const wxPoint& pos,
	129	const wxSize& size,
	130	const wxArrayString& choices,
	131	long style,
	132	const wxValidator& validator,
	133	const wxString& name)
	134	{
	135	wxCArrayString chs(choices);
	136	return Create(parent, id, value, pos, size, chs.GetCount(),
	137	chs.GetStrings(), style, validator, name);
	138	}
	139
e1aae528 MB	140	void wxComboBox::AdjustDropDownListSize()
	141	{
	142	int newListCount = -1, itemCount = GetCount();
	143	const int MAX = 12;
	144
	145	if( !itemCount )
	146	newListCount = 1;
	147	else if( itemCount < MAX )
	148	newListCount = itemCount;
	149	else
	150	newListCount = MAX;
	151
	152	XtVaSetValues( GetXmList(this),
	153	XmNvisibleItemCount, newListCount,
	154	NULL );
	155	}
	156
9b1bd0c6 MB	157	wxComboBox::~wxComboBox()
	158	{
	159	DetachWidget((Widget) m_mainWidget); // Removes event handlers
	160	XtDestroyWidget((Widget) m_mainWidget);
	161	m_mainWidget = (WXWidget) 0;
	162	if ( HasClientObjectData() )
	163	m_clientDataDict.DestroyData();
	164	}
	165
	166	void wxComboBox::DoSetSize(int x, int y, int width, int height, int sizeFlags)
	167	{
	168	// Necessary so it doesn't call wxChoice::SetSize
	169	wxWindow::DoSetSize(x, y, width, DoGetBestSize().y, sizeFlags);
	170	}
	171
	172	wxString wxComboBox::GetValue() const
	173	{
	174	char* s = XmTextGetString (GetXmText (this));
	175	wxString str(s);
	176	if (s)
	177	XtFree (s);
	178	return str;
	179	}
	180
	181	void wxComboBox::SetString(int n, const wxString& s)
	182	{
	183	wxXmString text(s);
	184	Widget listBox = GetXmList(this);
	185
	186	// delete the item and add it again.
	187	// FIXME isn't there a way to change it in place?
	188	XmListDeletePos (listBox, n+1);
	189	XmListAddItem (listBox, text(), n+1);
	190	}
	191
	192	void wxComboBox::SetValue(const wxString& value)
	193	{
	194	m_inSetValue = true;
	195
d8d18184 MB	196	// Fix crash; probably an OpenMotif bug
d8d18184 MB	197	const char* val = value.c_str() ? value.c_str() : "";
9b1bd0c6	198	XtVaSetValues( GetXmText(this),
d8d18184	199	XmNvalue, wxConstCast(val, char),
9b1bd0c6 MB	200	NULL);
	201
	202	m_inSetValue = false;
	203	}
	204
	205	int wxComboBox::DoAppend(const wxString& item)
	206	{
	207	wxXmString str( item.c_str() );
	208	XmComboBoxAddItem((Widget) m_mainWidget, str(), 0, False);
9b1bd0c6	209	m_noStrings ++;
e1aae528	210	AdjustDropDownListSize();
9b1bd0c6 MB	211
	212	return GetCount() - 1;
	213	}
	214
243dbf1a VZ	215	int wxComboBox::DoInsert(const wxString& item, int pos)
	216	{
	217	wxCHECK_MSG(!(GetWindowStyle() & wxCB_SORT), -1, wxT("can't insert into sorted list"));
	218	wxCHECK_MSG((pos>=0) && (pos<=GetCount()), -1, wxT("invalid index"));
	219
	220	if (pos == GetCount())
	221	return DoAppend(item);
	222
	223	wxXmString str( item.c_str() );
	224	XmComboBoxAddItem((Widget) m_mainWidget, str(), pos+1, False);
	225	m_noStrings ++;
	226	AdjustDropDownListSize();
	227
	228	return GetCount() - 1;
	229	}
	230
9b1bd0c6 MB	231	void wxComboBox::Delete(int n)
	232	{
	233	#ifdef LESSTIF_VERSION
	234	XmListDeletePos (GetXmList(this), n + 1);
	235	#else
	236	XmComboBoxDeletePos((Widget) m_mainWidget, n+1);
	237	#endif
	238
9b1bd0c6 MB	239	m_clientDataDict.Delete(n, HasClientObjectData());
9b1bd0c6 MB	240	m_noStrings--;
e1aae528 MB	241
e1aae528 MB	242	AdjustDropDownListSize();
9b1bd0c6 MB	243	}
	244
	245	void wxComboBox::Clear()
	246	{
	247	#ifdef LESSTIF_VERSION
	248	XmListDeleteAllItems (GetXmList(this));
	249	#else
	250	while(m_noStrings > 0)
	251	{
	252	XmComboBoxDeletePos((Widget) m_mainWidget, m_noStrings--);
	253	}
e1aae528	254	#endif
9b1bd0c6 MB	255
	256	if ( HasClientObjectData() )
	257	m_clientDataDict.DestroyData();
	258	m_noStrings = 0;
e1aae528	259	AdjustDropDownListSize();
9b1bd0c6 MB	260	}
	261
	262	void wxComboBox::SetSelection (int n)
	263	{
d8d18184 MB	264	m_inSetSelection = true;
d8d18184 MB	265
d40708e2	266	#if wxCHECK_LESSTIF()
9b1bd0c6 MB	267	XmListSelectPos (GetXmList(this), n + 1, false);
	268	SetValue(GetString(n));
	269	#else
d40708e2	270	#if 0
9b1bd0c6 MB	271	wxXmString str( GetString(n).c_str() );
9b1bd0c6 MB	272	XmComboBoxSelectItem((Widget) m_mainWidget, str());
d40708e2	273	#endif
9b1bd0c6	274	XtVaSetValues( (Widget)m_mainWidget,
d40708e2	275	XmNselectedPosition, n,
9b1bd0c6 MB	276	NULL );
9b1bd0c6 MB	277	#endif
d8d18184 MB	278
d8d18184 MB	279	m_inSetSelection = false;
9b1bd0c6 MB	280	}
	281
	282	int wxComboBox::GetSelection (void) const
	283	{
	284	return wxDoGetSelectionInList( GetXmList( this ) );
	285	}
	286
	287	wxString wxComboBox::GetString(int n) const
	288	{
e1aae528	289	return wxDoGetStringInList( GetXmList(this), n );
9b1bd0c6 MB	290	}
	291
	292	int wxComboBox::FindString(const wxString& s) const
	293	{
	294	return wxDoFindStringInList( GetXmList( this ), s );
	295	}
	296
	297	// Clipboard operations
	298	void wxComboBox::Copy()
	299	{
100f9289	300	XmTextCopy( GetXmText(this), CurrentTime );
9b1bd0c6 MB	301	}
	302
	303	void wxComboBox::Cut()
	304	{
100f9289	305	XmTextCut( GetXmText(this), CurrentTime );
9b1bd0c6 MB	306	}
	307
	308	void wxComboBox::Paste()
	309	{
100f9289	310	XmTextPaste( GetXmText(this) );
9b1bd0c6 MB	311	}
	312
	313	void wxComboBox::SetEditable(bool WXUNUSED(editable))
	314	{
	315	// TODO
	316	}
	317
	318	void wxComboBox::SetInsertionPoint(long pos)
	319	{
100f9289	320	XmTextSetInsertionPosition( GetXmText(this), (XmTextPosition)pos );
9b1bd0c6 MB	321	}
	322
	323	void wxComboBox::SetInsertionPointEnd()
	324	{
100f9289	325	SetInsertionPoint( GetLastPosition() );
9b1bd0c6 MB	326	}
	327
	328	long wxComboBox::GetInsertionPoint() const
	329	{
100f9289	330	return (long)XmTextGetInsertionPosition( GetXmText(this) );
9b1bd0c6 MB	331	}
	332
	333	long wxComboBox::GetLastPosition() const
	334	{
100f9289 MB	335	XmTextPosition pos = XmTextGetLastPosition( GetXmText(this) );
100f9289 MB	336	return (long)pos;
9b1bd0c6 MB	337	}
	338
	339	void wxComboBox::Replace(long from, long to, const wxString& value)
100f9289 MB	340	{
100f9289 MB	341	XmTextReplace( GetXmText(this), (XmTextPosition)from, (XmTextPosition)to,
d3a80c92	342	wxConstCast(value.c_str(), char) );
9b1bd0c6 MB	343	}
	344
	345	void wxComboBox::Remove(long from, long to)
	346	{
100f9289 MB	347	SetSelection( from, to );
100f9289 MB	348	XmTextRemove( GetXmText(this) );
9b1bd0c6 MB	349	}
	350
	351	void wxComboBox::SetSelection(long from, long to)
	352	{
100f9289 MB	353	if( to == -1 )
	354	to = GetLastPosition();
	355
	356	XmTextSetSelection( GetXmText(this), (XmTextPosition)from,
	357	(XmTextPosition)to, (Time)0 );
9b1bd0c6 MB	358	}
	359
	360	void wxComboBoxCallback (Widget WXUNUSED(w), XtPointer clientData,
	361	XmComboBoxCallbackStruct * cbs)
	362	{
	363	wxComboBox item = (wxComboBox ) clientData;
	364
d8d18184 MB	365	if( item->m_inSetSelection ) return;
d8d18184 MB	366
9b1bd0c6 MB	367	switch (cbs->reason)
	368	{
	369	case XmCR_SELECT:
	370	#if 0
	371	case XmCR_SINGLE_SELECT:
	372	case XmCR_BROWSE_SELECT:
	373	#endif
	374	{
	375	wxCommandEvent event (wxEVT_COMMAND_COMBOBOX_SELECTED,
	376	item->GetId());
d8d18184	377	int idx = cbs->item_position;
9b1bd0c6 MB	378	event.m_commandInt = idx;
	379	event.m_commandString = item->GetString (idx);
	380	if ( item->HasClientObjectData() )
	381	event.SetClientObject( item->GetClientObject(idx) );
	382	else if ( item->HasClientUntypedData() )
	383	event.SetClientData( item->GetClientData(idx) );
	384	event.m_extraLong = true;
	385	event.SetEventObject(item);
d8d18184	386	item->GetEventHandler()->ProcessEvent(event);
9b1bd0c6 MB	387	break;
	388	}
	389	case XmCR_VALUE_CHANGED:
	390	{
	391	wxCommandEvent event (wxEVT_COMMAND_TEXT_UPDATED, item->GetId());
	392	event.m_commandInt = -1;
	393	event.m_commandString = item->GetValue();
	394	event.m_extraLong = true;
	395	event.SetEventObject(item);
d8d18184	396	item->GetEventHandler()->ProcessEvent(event);
9b1bd0c6 MB	397	break;
	398	}
	399	default:
	400	break;
	401	}
	402	}
	403
	404	void wxComboBox::ChangeFont(bool keepOriginalSize)
	405	{
e1aae528 MB	406	if( m_font.Ok() )
	407	{
	408	wxDoChangeFont( GetXmText(this), m_font );
	409	wxDoChangeFont( GetXmList(this), m_font );
	410	}
	411
9b1bd0c6 MB	412	// Don't use the base class wxChoice's ChangeFont
	413	wxWindow::ChangeFont(keepOriginalSize);
	414	}
	415
	416	void wxComboBox::ChangeBackgroundColour()
	417	{
	418	wxWindow::ChangeBackgroundColour();
	419	}
	420
	421	void wxComboBox::ChangeForegroundColour()
	422	{
	423	wxWindow::ChangeForegroundColour();
	424	}
	425
	426	wxSize wxComboBox::DoGetBestSize() const
	427	{
e1aae528 MB	428	if( (GetWindowStyle() & wxCB_DROPDOWN) == wxCB_DROPDOWN \|\|
	429	(GetWindowStyle() & wxCB_READONLY) == wxCB_READONLY )
	430	{
	431	Dimension arrowW, arrowS, highlight, xmargin, ymargin, shadow;
	432
	433	XtVaGetValues( (Widget)m_mainWidget,
	434	XmNarrowSize, &arrowW,
	435	XmNarrowSpacing, &arrowS,
	436	XmNhighlightThickness, &highlight,
	437	XmNmarginWidth, &xmargin,
	438	XmNmarginHeight, &ymargin,
	439	XmNshadowThickness, &shadow,
	440	NULL );
	441
	442	wxSize listSize = wxDoGetListBoxBestSize( GetXmList(this), this );
	443	wxSize textSize = wxDoGetSingleTextCtrlBestSize( GetXmText(this),
	444	this );
	445
	446	// FIXME arbitrary constants
	447	return wxSize( listSize.x + arrowW + arrowS + 2 * highlight
	448	+ 2 * shadow + 2 * xmargin ,
	449	textSize.y + 2 * highlight + 2 * ymargin + 2 * shadow );
	450	}
	451	else
	452	return wxWindow::DoGetBestSize();
9b1bd0c6 MB	453	}
	454
	455	#endif // XmVersion >= 2000
	456
	457	#endif // wxUSE_COMBOBOX