src/motif/listbox.cpp

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