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