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