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