]>
Commit | Line | Data |
---|---|---|
1 | /////////////////////////////////////////////////////////////////////////////// | |
2 | // Name: listbox.cpp | |
3 | // Purpose: wxListBox | |
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 "listbox.h" | |
14 | #endif | |
15 | ||
16 | #ifdef __VMS | |
17 | #define XtParent XTPARENT | |
18 | #define XtDisplay XTDISPLAY | |
19 | #endif | |
20 | ||
21 | # include "wx/listbox.h" | |
22 | #include "wx/settings.h" | |
23 | #include "wx/dynarray.h" | |
24 | #include "wx/log.h" | |
25 | #include "wx/utils.h" | |
26 | ||
27 | #ifdef __VMS__ | |
28 | #pragma message disable nosimpint | |
29 | #endif | |
30 | #include <Xm/List.h> | |
31 | #ifdef __VMS__ | |
32 | #pragma message enable nosimpint | |
33 | #endif | |
34 | #include "wx/motif/private.h" | |
35 | ||
36 | IMPLEMENT_DYNAMIC_CLASS(wxListBox, wxControl) | |
37 | ||
38 | static void wxListBoxCallback(Widget w, | |
39 | XtPointer clientData, | |
40 | XmListCallbackStruct * cbs); | |
41 | ||
42 | static void wxListBoxDefaultActionProc(Widget list_w, | |
43 | XtPointer client_data, | |
44 | XmListCallbackStruct * cbs); | |
45 | ||
46 | // ============================================================================ | |
47 | // list box control implementation | |
48 | // ============================================================================ | |
49 | ||
50 | // Listbox item | |
51 | wxListBox::wxListBox() : m_clientDataList(wxKEY_INTEGER) | |
52 | { | |
53 | m_noItems = 0; | |
54 | m_selected = 0; | |
55 | } | |
56 | ||
57 | bool wxListBox::Create(wxWindow *parent, wxWindowID id, | |
58 | const wxPoint& pos, | |
59 | const wxSize& size, | |
60 | int n, const wxString choices[], | |
61 | long style, | |
62 | const wxValidator& validator, | |
63 | const wxString& name) | |
64 | { | |
65 | m_windowStyle = style; | |
66 | m_noItems = n; | |
67 | m_selected = 0; | |
68 | // m_backgroundColour = parent->GetBackgroundColour(); | |
69 | m_backgroundColour = * wxWHITE; | |
70 | m_foregroundColour = parent->GetForegroundColour(); | |
71 | ||
72 | SetName(name); | |
73 | SetValidator(validator); | |
74 | ||
75 | if (parent) parent->AddChild(this); | |
76 | ||
77 | m_windowId = ( id == -1 ) ? (int)NewControlId() : id; | |
78 | ||
79 | Widget parentWidget = (Widget) parent->GetClientWidget(); | |
80 | ||
81 | Arg args[3]; | |
82 | int count; | |
83 | XtSetArg (args[0], XmNlistSizePolicy, XmCONSTANT); | |
84 | if (m_windowStyle & wxLB_MULTIPLE) | |
85 | XtSetArg (args[1], XmNselectionPolicy, XmMULTIPLE_SELECT); | |
86 | else if (m_windowStyle & wxLB_EXTENDED) | |
87 | XtSetArg (args[1], XmNselectionPolicy, XmEXTENDED_SELECT); | |
88 | else | |
89 | XtSetArg (args[1], XmNselectionPolicy, XmBROWSE_SELECT); | |
90 | if (m_windowStyle & wxLB_ALWAYS_SB) | |
91 | { | |
92 | XtSetArg (args[2], XmNscrollBarDisplayPolicy, XmSTATIC); | |
93 | count = 3; | |
94 | } | |
95 | else | |
96 | count = 2; | |
97 | ||
98 | Widget listWidget = XmCreateScrolledList (parentWidget, (char*) (const char*) name, args, count); | |
99 | ||
100 | m_mainWidget = (WXWidget) listWidget; | |
101 | ||
102 | Set(n, choices); | |
103 | ||
104 | XtManageChild (listWidget); | |
105 | ||
106 | long width = size.x; | |
107 | long height = size.y; | |
108 | if (width == -1) | |
109 | width = 150; | |
110 | if (height == -1) | |
111 | height = 80; | |
112 | ||
113 | XtAddCallback (listWidget, XmNbrowseSelectionCallback, (XtCallbackProc) wxListBoxCallback, | |
114 | (XtPointer) this); | |
115 | XtAddCallback (listWidget, XmNextendedSelectionCallback, (XtCallbackProc) wxListBoxCallback, | |
116 | (XtPointer) this); | |
117 | XtAddCallback (listWidget, XmNmultipleSelectionCallback, (XtCallbackProc) wxListBoxCallback, | |
118 | (XtPointer) this); | |
119 | ||
120 | XtAddCallback (listWidget, XmNdefaultActionCallback, (XtCallbackProc) wxListBoxDefaultActionProc, | |
121 | (XtPointer) this); | |
122 | ||
123 | m_font = parent->GetFont(); | |
124 | ChangeFont(FALSE); | |
125 | ||
126 | SetCanAddEventHandler(TRUE); | |
127 | AttachWidget (parent, m_mainWidget, (WXWidget) NULL, pos.x, pos.y, width, height); | |
128 | ||
129 | ChangeBackgroundColour(); | |
130 | ||
131 | return TRUE; | |
132 | } | |
133 | ||
134 | wxListBox::~wxListBox() | |
135 | { | |
136 | } | |
137 | ||
138 | void wxListBox::SetFirstItem(int N) | |
139 | { | |
140 | int count, length; | |
141 | ||
142 | if (N < 0) | |
143 | return; | |
144 | XtVaGetValues ((Widget) m_mainWidget, | |
145 | XmNvisibleItemCount, &count, | |
146 | XmNitemCount, &length, | |
147 | NULL); | |
148 | if ((N + count) >= length) | |
149 | N = length - count; | |
150 | XmListSetPos ((Widget) m_mainWidget, N + 1); | |
151 | } | |
152 | ||
153 | void wxListBox::SetFirstItem(const wxString& s) | |
154 | { | |
155 | int N = FindString (s); | |
156 | ||
157 | if (N >= 0) | |
158 | SetFirstItem (N); | |
159 | } | |
160 | ||
161 | void wxListBox::Delete(int N) | |
162 | { | |
163 | int width1, height1; | |
164 | int width2, height2; | |
165 | Widget listBox = (Widget) m_mainWidget; | |
166 | GetSize (&width1, &height1); | |
167 | ||
168 | bool managed = XtIsManaged(listBox); | |
169 | ||
170 | if (managed) | |
171 | XtUnmanageChild (listBox); | |
172 | ||
173 | XmListDeletePos (listBox, N + 1); | |
174 | ||
175 | if (managed) | |
176 | XtManageChild (listBox); | |
177 | ||
178 | GetSize (&width2, &height2); | |
179 | // Correct for randomly resized listbox - bad boy, Motif! | |
180 | if (width1 != width2 || height1 != height2) | |
181 | SetSize (-1, -1, width1, height1); | |
182 | ||
183 | // (JDH) need to add code here to take care of clientDataList | |
184 | wxNode *node = m_clientDataList.Find((long)N); // get item from list | |
185 | if (node) m_clientDataList.DeleteNode(node); // if existed then delete from list | |
186 | node = m_clientDataList.First(); // we now have to adjust all keys that | |
187 | while (node) // are >=N+1 | |
188 | { | |
189 | if (node->GetKeyInteger() >= (long)(N+1)) | |
190 | node->SetKeyInteger(node->GetKeyInteger() - 1); | |
191 | node = node->Next(); | |
192 | } | |
193 | ||
194 | m_noItems --; | |
195 | } | |
196 | ||
197 | void wxListBox::Append(const wxString& item) | |
198 | { | |
199 | int width1, height1; | |
200 | int width2, height2; | |
201 | ||
202 | Widget listBox = (Widget) m_mainWidget; | |
203 | GetSize (&width1, &height1); | |
204 | ||
205 | bool managed = XtIsManaged(listBox); | |
206 | ||
207 | if (managed) | |
208 | XtUnmanageChild (listBox); | |
209 | int n; | |
210 | XtVaGetValues (listBox, XmNitemCount, &n, NULL); | |
211 | XmString text = XmStringCreateSimple ((char*) (const char*) item); | |
212 | // XmListAddItem(listBox, text, n + 1); | |
213 | XmListAddItemUnselected (listBox, text, 0); | |
214 | XmStringFree (text); | |
215 | ||
216 | // It seems that if the list is cleared, we must re-ask for | |
217 | // selection policy!! | |
218 | Arg args[3]; | |
219 | XtSetArg (args[0], XmNlistSizePolicy, XmCONSTANT); | |
220 | if (m_windowStyle & wxLB_MULTIPLE) | |
221 | XtSetArg (args[1], XmNselectionPolicy, XmMULTIPLE_SELECT); | |
222 | else if (m_windowStyle & wxLB_EXTENDED) | |
223 | XtSetArg (args[1], XmNselectionPolicy, XmEXTENDED_SELECT); | |
224 | else | |
225 | XtSetArg (args[1], XmNselectionPolicy, XmBROWSE_SELECT); | |
226 | XtSetValues (listBox, args, 2); | |
227 | ||
228 | if (managed) | |
229 | XtManageChild (listBox); | |
230 | ||
231 | GetSize (&width2, &height2); | |
232 | // Correct for randomly resized listbox - bad boy, Motif! | |
233 | if (width1 != width2 || height1 != height2) | |
234 | SetSize (-1, -1, width1, height1); | |
235 | m_noItems ++; | |
236 | } | |
237 | ||
238 | void wxListBox::Append(const wxString& item, void *clientData) | |
239 | { | |
240 | int width1, height1; | |
241 | int width2, height2; | |
242 | ||
243 | Widget listBox = (Widget) m_mainWidget; | |
244 | ||
245 | GetSize (&width1, &height1); | |
246 | Bool managed = XtIsManaged(listBox); | |
247 | ||
248 | if (managed) | |
249 | XtUnmanageChild (listBox); | |
250 | ||
251 | int n; | |
252 | XtVaGetValues (listBox, XmNitemCount, &n, NULL); | |
253 | XmString text = XmStringCreateSimple ((char*) (const char*) item); | |
254 | // XmListAddItem(listBox, text, n + 1); | |
255 | XmListAddItemUnselected (listBox, text, 0); | |
256 | XmStringFree (text); | |
257 | ||
258 | // It seems that if the list is cleared, we must re-ask for | |
259 | // selection policy!! | |
260 | Arg args[3]; | |
261 | XtSetArg (args[0], XmNlistSizePolicy, XmCONSTANT); | |
262 | if (m_windowStyle & wxLB_MULTIPLE) | |
263 | XtSetArg (args[1], XmNselectionPolicy, XmMULTIPLE_SELECT); | |
264 | else if (m_windowStyle & wxLB_EXTENDED) | |
265 | XtSetArg (args[1], XmNselectionPolicy, XmEXTENDED_SELECT); | |
266 | else | |
267 | XtSetArg (args[1], XmNselectionPolicy, XmBROWSE_SELECT); | |
268 | XtSetValues (listBox, args, 2); | |
269 | ||
270 | m_clientDataList.Append ((long) n, (wxObject *) clientData); | |
271 | ||
272 | if (managed) | |
273 | XtManageChild (listBox); | |
274 | ||
275 | GetSize (&width2, &height2); | |
276 | ||
277 | // Correct for randomly resized listbox - bad boy, Motif! | |
278 | if (width1 != width2 || height1 != height2) | |
279 | SetSize (-1, -1, width1, height1); | |
280 | ||
281 | m_noItems ++; | |
282 | } | |
283 | ||
284 | void wxListBox::Set(int n, const wxString *choices, void** clientData) | |
285 | { | |
286 | m_clientDataList.Clear(); | |
287 | int width1, height1; | |
288 | int width2, height2; | |
289 | ||
290 | Widget listBox = (Widget) m_mainWidget; | |
291 | GetSize (&width1, &height1); | |
292 | ||
293 | bool managed = XtIsManaged(listBox); | |
294 | ||
295 | if (managed) | |
296 | XtUnmanageChild (listBox); | |
297 | /*** | |
298 | for (int i=0; i<n; i++) | |
299 | { | |
300 | XmString text = XmStringCreateSimple(choices[i]); | |
301 | XmListAddItemUnselected(listBox, text, 0); | |
302 | XmStringFree(text); | |
303 | } | |
304 | ***/ | |
305 | XmString *text = new XmString[n]; | |
306 | int i; | |
307 | for (i = 0; i < n; i++) | |
308 | text[i] = XmStringCreateSimple ((char*) (const char*) choices[i]); | |
309 | ||
310 | if ( clientData ) | |
311 | for (i = 0; i < n; i++) | |
312 | m_clientDataList.Append ((long) i, (wxObject *) clientData[i]); | |
313 | ||
314 | XmListAddItems (listBox, text, n, 0); | |
315 | for (i = 0; i < n; i++) | |
316 | XmStringFree (text[i]); | |
317 | delete[]text; | |
318 | ||
319 | // It seems that if the list is cleared, we must re-ask for | |
320 | // selection policy!! | |
321 | Arg args[3]; | |
322 | XtSetArg (args[0], XmNlistSizePolicy, XmCONSTANT); | |
323 | if (m_windowStyle & wxLB_MULTIPLE) | |
324 | XtSetArg (args[1], XmNselectionPolicy, XmMULTIPLE_SELECT); | |
325 | else if (m_windowStyle & wxLB_EXTENDED) | |
326 | XtSetArg (args[1], XmNselectionPolicy, XmEXTENDED_SELECT); | |
327 | else | |
328 | XtSetArg (args[1], XmNselectionPolicy, XmBROWSE_SELECT); | |
329 | XtSetValues (listBox, args, 2); | |
330 | ||
331 | if (managed) | |
332 | XtManageChild (listBox); | |
333 | ||
334 | GetSize (&width2, &height2); | |
335 | // Correct for randomly resized listbox - bad boy, Motif! | |
336 | if (width1 != width2 || height1 != height2) | |
337 | SetSize (-1, -1, width1, height1); | |
338 | ||
339 | m_noItems = n; | |
340 | } | |
341 | ||
342 | int wxListBox::FindString(const wxString& s) const | |
343 | { | |
344 | XmString str = XmStringCreateSimple ((char*) (const char*) s); | |
345 | int *positions = NULL; | |
346 | int no_positions = 0; | |
347 | bool success = XmListGetMatchPos ((Widget) m_mainWidget, str, &positions, &no_positions); | |
348 | XmStringFree (str); | |
349 | if (success) | |
350 | { | |
351 | int pos = positions[0]; | |
352 | if (positions) | |
353 | XtFree ((char *) positions); | |
354 | return pos - 1; | |
355 | } | |
356 | else | |
357 | return -1; | |
358 | } | |
359 | ||
360 | void wxListBox::Clear() | |
361 | { | |
362 | if (m_noItems <= 0) | |
363 | return; | |
364 | ||
365 | int width1, height1; | |
366 | int width2, height2; | |
367 | ||
368 | Widget listBox = (Widget) m_mainWidget; | |
369 | GetSize (&width1, &height1); | |
370 | ||
371 | XmListDeleteAllItems (listBox); | |
372 | m_clientDataList.Clear (); | |
373 | GetSize (&width2, &height2); | |
374 | ||
375 | // Correct for randomly resized listbox - bad boy, Motif! | |
376 | if (width1 != width2 || height1 != height2) | |
377 | SetSize (-1, -1, width1, height1); | |
378 | ||
379 | m_noItems = 0; | |
380 | } | |
381 | ||
382 | void wxListBox::SetSelection(int N, bool select) | |
383 | { | |
384 | m_inSetValue = TRUE; | |
385 | if (select) | |
386 | { | |
387 | #if 0 | |
388 | if (m_windowStyle & wxLB_MULTIPLE) | |
389 | { | |
390 | int *selections = NULL; | |
391 | int n = GetSelections (&selections); | |
392 | ||
393 | // This hack is supposed to work, to make it possible to select more | |
394 | // than one item, but it DOESN'T under Motif 1.1. | |
395 | ||
396 | XtVaSetValues ((Widget) m_mainWidget, XmNselectionPolicy, XmMULTIPLE_SELECT, NULL); | |
397 | ||
398 | int i; | |
399 | for (i = 0; i < n; i++) | |
400 | XmListSelectPos ((Widget) m_mainWidget, selections[i] + 1, FALSE); | |
401 | ||
402 | XmListSelectPos ((Widget) m_mainWidget, N + 1, FALSE); | |
403 | ||
404 | XtVaSetValues ((Widget) m_mainWidget, XmNselectionPolicy, XmEXTENDED_SELECT, NULL); | |
405 | } | |
406 | else | |
407 | #endif // 0 | |
408 | XmListSelectPos ((Widget) m_mainWidget, N + 1, FALSE); | |
409 | ||
410 | } | |
411 | else | |
412 | XmListDeselectPos ((Widget) m_mainWidget, N + 1); | |
413 | ||
414 | m_inSetValue = FALSE; | |
415 | } | |
416 | ||
417 | bool wxListBox::IsSelected(int N) const | |
418 | { | |
419 | // In Motif, no simple way to determine if the item is selected. | |
420 | wxArrayInt theSelections; | |
421 | int count = GetSelections (theSelections); | |
422 | if (count == 0) | |
423 | return FALSE; | |
424 | else | |
425 | { | |
426 | int j; | |
427 | for (j = 0; j < count; j++) | |
428 | if (theSelections[j] == N) | |
429 | return TRUE; | |
430 | } | |
431 | return FALSE; | |
432 | } | |
433 | ||
434 | void wxListBox::Deselect(int N) | |
435 | { | |
436 | XmListDeselectPos ((Widget) m_mainWidget, N + 1); | |
437 | } | |
438 | ||
439 | void *wxListBox::GetClientData(int N) const | |
440 | { | |
441 | wxNode *node = m_clientDataList.Find ((long) N); | |
442 | if (node) | |
443 | return (void *) node->Data (); | |
444 | else | |
445 | return NULL; | |
446 | } | |
447 | ||
448 | void wxListBox::SetClientData(int N, void *Client_data) | |
449 | { | |
450 | wxNode *node = m_clientDataList.Find ((long) N); | |
451 | if (node) | |
452 | node->SetData ((wxObject *)Client_data); | |
453 | else | |
454 | node = m_clientDataList.Append((long) N, (wxObject*) Client_data); | |
455 | } | |
456 | ||
457 | // Return number of selections and an array of selected integers | |
458 | int wxListBox::GetSelections(wxArrayInt& aSelections) const | |
459 | { | |
460 | aSelections.Empty(); | |
461 | ||
462 | Widget listBox = (Widget) m_mainWidget; | |
463 | int *posList = NULL; | |
464 | int posCnt = 0; | |
465 | bool flag = XmListGetSelectedPos (listBox, &posList, &posCnt); | |
466 | if (flag) | |
467 | { | |
468 | if (posCnt > 0) | |
469 | { | |
470 | aSelections.Alloc(posCnt); | |
471 | ||
472 | int i; | |
473 | for (i = 0; i < posCnt; i++) | |
474 | aSelections.Add(posList[i] - 1); | |
475 | ||
476 | XtFree ((char *) posList); | |
477 | return posCnt; | |
478 | } | |
479 | else | |
480 | return 0; | |
481 | } | |
482 | else | |
483 | return 0; | |
484 | } | |
485 | ||
486 | // Get single selection, for single choice list items | |
487 | int wxListBox::GetSelection() const | |
488 | { | |
489 | Widget listBox = (Widget) m_mainWidget; | |
490 | int *posList = NULL; | |
491 | int posCnt = 0; | |
492 | bool flag = XmListGetSelectedPos (listBox, &posList, &posCnt); | |
493 | if (flag) | |
494 | { | |
495 | int id = -1; | |
496 | if (posCnt > 0) | |
497 | id = posList[0] - 1; | |
498 | XtFree ((char *) posList); | |
499 | return id; | |
500 | } | |
501 | else | |
502 | return -1; | |
503 | } | |
504 | ||
505 | // Find string for position | |
506 | wxString wxListBox::GetString(int N) const | |
507 | { | |
508 | Widget listBox = (Widget) m_mainWidget; | |
509 | XmString *strlist; | |
510 | int n; | |
511 | XtVaGetValues (listBox, XmNitemCount, &n, XmNitems, &strlist, NULL); | |
512 | if (N <= n && N >= 0) | |
513 | { | |
514 | char *txt; | |
515 | if (XmStringGetLtoR (strlist[N], XmSTRING_DEFAULT_CHARSET, &txt)) | |
516 | { | |
517 | wxString str(txt); | |
518 | XtFree (txt); | |
519 | return str; | |
520 | } | |
521 | else | |
522 | return wxEmptyString; | |
523 | } | |
524 | else | |
525 | return wxEmptyString; | |
526 | } | |
527 | ||
528 | void wxListBox::DoSetSize(int x, int y, int width, int height, int sizeFlags) | |
529 | { | |
530 | wxWindow::DoSetSize(x, y, width, height, sizeFlags); | |
531 | ||
532 | // Check resulting size is correct | |
533 | int tempW, tempH; | |
534 | GetSize (&tempW, &tempH); | |
535 | ||
536 | /* | |
537 | if (tempW != width || tempH != height) | |
538 | { | |
539 | cout << "wxListBox::SetSize sizes not set correctly."); | |
540 | } | |
541 | */ | |
542 | } | |
543 | ||
544 | void wxListBox::InsertItems(int nItems, const wxString items[], int pos) | |
545 | { | |
546 | int width1, height1; | |
547 | int width2, height2; | |
548 | ||
549 | Widget listBox = (Widget) m_mainWidget; | |
550 | ||
551 | GetSize(&width1, &height1); | |
552 | ||
553 | bool managed = XtIsManaged(listBox); | |
554 | ||
555 | if (managed) | |
556 | XtUnmanageChild(listBox); | |
557 | ||
558 | XmString *text = new XmString[nItems]; | |
559 | int i; | |
560 | // Steve Hammes: Motif 1.1 compatibility | |
561 | // #if XmVersion > 1100 | |
562 | // Corrected by Sergey Krasnov from Steve Hammes' code | |
563 | #if XmVersion > 1001 | |
564 | for (i = 0; i < nItems; i++) | |
565 | text[i] = XmStringCreateSimple((char*) (const char*) items[i]); | |
566 | XmListAddItemsUnselected(listBox, text, nItems, pos+1); | |
567 | #else | |
568 | for (i = 0; i < nItems; i++) | |
569 | { | |
570 | text[i] = XmStringCreateSimple((char*) (const char*) items[i]); | |
571 | // XmListAddItemUnselected(listBox, text[i], i); | |
572 | XmListAddItemUnselected(listBox, text[i], pos+i+1); // Another Sergey correction | |
573 | } | |
574 | #endif | |
575 | for (i = 0; i < nItems; i++) | |
576 | XmStringFree(text[i]); | |
577 | ||
578 | delete[] text; | |
579 | ||
580 | // It seems that if the list is cleared, we must re-ask for | |
581 | // selection policy!! | |
582 | Arg args[3]; | |
583 | XtSetArg(args[0], XmNlistSizePolicy, XmCONSTANT); | |
584 | if (m_windowStyle & wxLB_MULTIPLE) | |
585 | XtSetArg(args[1], XmNselectionPolicy, XmMULTIPLE_SELECT); | |
586 | else if (m_windowStyle & wxLB_EXTENDED) | |
587 | XtSetArg(args[1], XmNselectionPolicy, XmEXTENDED_SELECT); | |
588 | else XtSetArg(args[1], XmNselectionPolicy, XmBROWSE_SELECT); | |
589 | XtSetValues(listBox,args,2) ; | |
590 | ||
591 | if (managed) | |
592 | XtManageChild(listBox); | |
593 | ||
594 | GetSize(&width2, &height2); | |
595 | // Correct for randomly resized listbox - bad boy, Motif! | |
596 | if (width1 != width2 /*|| height1 != height2*/) | |
597 | SetSize(-1, -1, width1, height1); | |
598 | ||
599 | m_noItems += nItems; | |
600 | } | |
601 | ||
602 | void wxListBox::SetString(int N, const wxString& s) | |
603 | { | |
604 | int width1, height1; | |
605 | int width2, height2; | |
606 | ||
607 | Widget listBox = (Widget) m_mainWidget; | |
608 | GetSize (&width1, &height1); | |
609 | ||
610 | XmString text = XmStringCreateSimple ((char*) (const char*) s); | |
611 | ||
612 | // delete the item and add it again. | |
613 | // FIXME isn't there a way to change it in place? | |
614 | XmListDeletePos (listBox, N+1); | |
615 | XmListAddItem (listBox, text, N+1); | |
616 | ||
617 | XmStringFree(text); | |
618 | ||
619 | GetSize (&width2, &height2); | |
620 | // Correct for randomly resized listbox - bad boy, Motif! | |
621 | if (width1 != width2 || height1 != height2) | |
622 | SetSize (-1, -1, width1, height1); | |
623 | } | |
624 | ||
625 | int wxListBox::Number () const | |
626 | { | |
627 | return m_noItems; | |
628 | } | |
629 | ||
630 | // For single selection items only | |
631 | wxString wxListBox::GetStringSelection () const | |
632 | { | |
633 | wxString res; | |
634 | int sel = GetSelection(); | |
635 | if (sel > -1) | |
636 | res = GetString(sel); | |
637 | ||
638 | return res; | |
639 | } | |
640 | ||
641 | bool wxListBox::SetStringSelection (const wxString& s, bool flag) | |
642 | { | |
643 | int sel = FindString (s); | |
644 | if (sel > -1) | |
645 | { | |
646 | SetSelection (sel, flag); | |
647 | return TRUE; | |
648 | } | |
649 | else | |
650 | return FALSE; | |
651 | } | |
652 | ||
653 | void wxListBox::Command (wxCommandEvent & event) | |
654 | { | |
655 | if (event.m_extraLong) | |
656 | SetSelection (event.m_commandInt); | |
657 | else | |
658 | { | |
659 | Deselect (event.m_commandInt); | |
660 | return; | |
661 | } | |
662 | ProcessCommand (event); | |
663 | } | |
664 | ||
665 | void wxListBoxCallback (Widget WXUNUSED(w), XtPointer clientData, | |
666 | XmListCallbackStruct * cbs) | |
667 | { | |
668 | /* | |
669 | if (cbs->reason == XmCR_EXTENDED_SELECT) | |
670 | cout << "*** Extend select\n"; | |
671 | else if (cbs->reason == XmCR_SINGLE_SELECT) | |
672 | cout << "*** Single select\n"; | |
673 | else if (cbs->reason == XmCR_MULTIPLE_SELECT) | |
674 | cout << "*** Multiple select\n"; | |
675 | else if (cbs->reason == XmCR_BROWSE_SELECT) | |
676 | cout << "*** Browse select\n"; | |
677 | ||
678 | if (cbs->selection_type == XmMODIFICATION) | |
679 | cout << "*** Modification\n"; | |
680 | else if (cbs->selection_type == XmINITIAL) | |
681 | cout << "*** Initial\n"; | |
682 | else if (cbs->selection_type == XmADDITION) | |
683 | cout << "*** Addition\n"; | |
684 | */ | |
685 | ||
686 | wxListBox *item = (wxListBox *) clientData; | |
687 | ||
688 | if (item->InSetValue()) | |
689 | return; | |
690 | ||
691 | wxCommandEvent event (wxEVT_COMMAND_LISTBOX_SELECTED, item->GetId()); | |
692 | switch (cbs->reason) | |
693 | { | |
694 | case XmCR_MULTIPLE_SELECT: | |
695 | case XmCR_BROWSE_SELECT: | |
696 | { | |
697 | event.m_clientData = item->GetClientData (cbs->item_position - 1); | |
698 | event.m_commandInt = cbs->item_position - 1; | |
699 | event.m_extraLong = TRUE; | |
700 | event.SetEventObject(item); | |
701 | item->ProcessCommand (event); | |
702 | break; | |
703 | } | |
704 | case XmCR_EXTENDED_SELECT: | |
705 | { | |
706 | switch (cbs->selection_type) | |
707 | { | |
708 | case XmINITIAL: | |
709 | case XmADDITION: | |
710 | case XmMODIFICATION: | |
711 | { | |
712 | event.m_clientData = item->GetClientData (cbs->item_position - 1); | |
713 | event.m_commandInt = cbs->item_position - 1; | |
714 | event.m_extraLong = TRUE; | |
715 | event.SetEventObject(item); | |
716 | item->ProcessCommand (event); | |
717 | break; | |
718 | } | |
719 | } | |
720 | break; | |
721 | } | |
722 | } | |
723 | } | |
724 | ||
725 | /* Respond by getting the | |
726 | * designated "default button" in the action area and activate it | |
727 | * as if the user had selected it. | |
728 | */ | |
729 | void wxListBoxDefaultActionProc (Widget WXUNUSED(list_w), XtPointer client_data, XmListCallbackStruct * WXUNUSED(cbs)) | |
730 | { | |
731 | wxListBox *lbox = (wxListBox *) client_data; | |
732 | ||
733 | wxCommandEvent event(wxEVT_COMMAND_LISTBOX_DOUBLECLICKED, lbox->GetId()); | |
734 | event.SetEventObject( lbox ); | |
735 | lbox->GetEventHandler()->ProcessEvent(event) ; | |
736 | } | |
737 | ||
738 | WXWidget wxListBox::GetTopWidget() const | |
739 | { | |
740 | return (WXWidget) XtParent( (Widget) m_mainWidget ); | |
741 | } | |
742 | ||
743 | void wxListBox::ChangeFont(bool keepOriginalSize) | |
744 | { | |
745 | wxWindow::ChangeFont(keepOriginalSize); | |
746 | } | |
747 | ||
748 | void wxListBox::ChangeBackgroundColour() | |
749 | { | |
750 | wxWindow::ChangeBackgroundColour(); | |
751 | ||
752 | Widget parent = XtParent ((Widget) m_mainWidget); | |
753 | Widget hsb, vsb; | |
754 | ||
755 | XtVaGetValues (parent, | |
756 | XmNhorizontalScrollBar, &hsb, | |
757 | XmNverticalScrollBar, &vsb, | |
758 | NULL); | |
759 | ||
760 | /* TODO: should scrollbars be affected? Should probably have separate | |
761 | * function to change them (by default, taken from wxSystemSettings) | |
762 | */ | |
763 | wxColour backgroundColour = wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE); | |
764 | DoChangeBackgroundColour((WXWidget) hsb, backgroundColour, TRUE); | |
765 | DoChangeBackgroundColour((WXWidget) vsb, backgroundColour, TRUE); | |
766 | ||
767 | XtVaSetValues (hsb, | |
768 | XmNtroughColor, backgroundColour.AllocColour(XtDisplay(hsb)), | |
769 | NULL); | |
770 | XtVaSetValues (vsb, | |
771 | XmNtroughColor, backgroundColour.AllocColour(XtDisplay(vsb)), | |
772 | NULL); | |
773 | ||
774 | DoChangeBackgroundColour((WXWidget) parent, m_backgroundColour, TRUE); | |
775 | } | |
776 | ||
777 | void wxListBox::ChangeForegroundColour() | |
778 | { | |
779 | wxWindow::ChangeForegroundColour(); | |
780 | ||
781 | Widget parent = XtParent ((Widget) m_mainWidget); | |
782 | Widget hsb, vsb; | |
783 | ||
784 | XtVaGetValues(parent, | |
785 | XmNhorizontalScrollBar, &hsb, | |
786 | XmNverticalScrollBar, &vsb, | |
787 | NULL); | |
788 | ||
789 | /* TODO: should scrollbars be affected? Should probably have separate | |
790 | function to change them (by default, taken from wxSystemSettings) | |
791 | ||
792 | DoChangeForegroundColour((WXWidget) hsb, m_foregroundColour); | |
793 | DoChangeForegroundColour((WXWidget) vsb, m_foregroundColour); | |
794 | DoChangeForegroundColour((WXWidget) parent, m_foregroundColour); | |
795 | */ | |
796 | } | |
797 | ||
798 | // These implement functions needed by wxControlWithItems. | |
799 | // Unfortunately, they're not all implemented yet. | |
800 | ||
801 | int wxListBox::GetCount() const | |
802 | { | |
803 | return Number(); | |
804 | } | |
805 | ||
806 | int wxListBox::DoAppend(const wxString& item) | |
807 | { | |
808 | Append(item, (void*) NULL); | |
809 | return GetCount() - 1; | |
810 | } | |
811 | ||
812 | // Just appends, doesn't yet insert | |
813 | void wxListBox::DoInsertItems(const wxArrayString& items, int WXUNUSED(pos)) | |
814 | { | |
815 | size_t nItems = items.GetCount(); | |
816 | ||
817 | for ( size_t n = 0; n < nItems; n++ ) | |
818 | { | |
819 | Append( items[n], (void*) NULL); | |
820 | } | |
821 | } | |
822 | ||
823 | void wxListBox::DoSetItems(const wxArrayString& items, void **clientData) | |
824 | { | |
825 | size_t nItems = items.GetCount(); | |
826 | wxString* strings = new wxString[nItems]; | |
827 | ||
828 | for ( size_t n = 0; n < nItems; n++ ) | |
829 | { | |
830 | strings[n] = items[n]; | |
831 | } | |
832 | Set(nItems, strings, clientData); | |
833 | ||
834 | delete[] strings; | |
835 | } | |
836 | ||
837 | void wxListBox::DoSetFirstItem(int WXUNUSED(n)) | |
838 | { | |
839 | wxFAIL_MSG( wxT("wxListBox::DoSetFirstItem not implemented") ); | |
840 | } | |
841 | ||
842 | void wxListBox::DoSetItemClientData(int n, void* clientData) | |
843 | { | |
844 | SetClientData(n, clientData); | |
845 | } | |
846 | ||
847 | void* wxListBox::DoGetItemClientData(int n) const | |
848 | { | |
849 | return GetClientData(n); | |
850 | } | |
851 | ||
852 | void wxListBox::DoSetItemClientObject(int n, wxClientData* clientData) | |
853 | { | |
854 | DoSetItemClientData(n, (void*) clientData); | |
855 | } | |
856 | ||
857 | wxClientData* wxListBox::DoGetItemClientObject(int n) const | |
858 | { | |
859 | return (wxClientData*) DoGetItemClientData(n); | |
860 | } | |
861 | ||
862 | void wxListBox::Select(int n) | |
863 | { | |
864 | SetSelection(n, TRUE); | |
865 | } |