src/motif/listbox.cpp

   1 ///////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/motif/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 // For compilers that support precompilation, includes "wx.h".
  13 #include "wx/wxprec.h"
  14
  15 #if wxUSE_LISTBOX
  16
  17 #include "wx/listbox.h"
  18
  19 #ifndef WX_PRECOMP
  20     #include "wx/dynarray.h"
  21     #include "wx/log.h"
  22     #include "wx/utils.h"
  23     #include "wx/settings.h"
  24 #endif
  25
  26 #ifdef __VMS
  27 #define XtParent XTPARENT
  28 #define XtDisplay XTDISPLAY
  29 #endif
  30
  31 #include "wx/arrstr.h"
  32
  33 #ifdef __VMS__
  34 #pragma message disable nosimpint
  35 #endif
  36 #include <Xm/List.h>
  37 #ifdef __VMS__
  38 #pragma message enable nosimpint
  39 #endif
  40 #include "wx/motif/private.h"
  41
  42     IMPLEMENT_DYNAMIC_CLASS(wxListBox, wxControl)
  43
  44 static void wxListBoxCallback(Widget w,
  45                               XtPointer clientData,
  46                               XmListCallbackStruct * cbs);
  47
  48 // ----------------------------------------------------------------------------
  49 // wxSizeKeeper
  50 // ----------------------------------------------------------------------------
  51
  52 // helper class to reduce code duplication
  53 class wxSizeKeeper
  54 {
  55     int m_x, m_y;
  56     wxWindow* m_w;
  57 public:
  58     wxSizeKeeper( wxWindow* w )
  59         : m_w( w )
  60     {
  61         m_w->GetSize( &m_x, &m_y );
  62     }
  63
  64     void Restore()
  65     {
  66         int x, y;
  67
  68         m_w->GetSize( &x, &y );
  69         if( x != m_x || y != m_y )
  70             m_w->SetSize( -1, -1, m_x, m_y );
  71     }
  72 };
  73
  74 // ============================================================================
  75 // list box control implementation
  76 // ============================================================================
  77
  78 // Listbox item
  79 wxListBox::wxListBox()
  80 {
  81     m_noItems = 0;
  82 }
  83
  84 bool wxListBox::Create(wxWindow *parent, wxWindowID id,
  85                        const wxPoint& pos,
  86                        const wxSize& size,
  87                        int n, const wxString choices[],
  88                        long style,
  89                        const wxValidator& validator,
  90                        const wxString& name)
  91 {
  92     if( !wxControl::CreateControl( parent, id, pos, size, style,
  93                                    validator, name ) )
  94         return false;
  95
  96     m_noItems = (unsigned int)n;
  97     m_backgroundColour = * wxWHITE;
  98
  99     Widget parentWidget = (Widget) parent->GetClientWidget();
 100     Display* dpy = XtDisplay(parentWidget);
 101
 102     Arg args[4];
 103     int count = 0;
 104     XtSetArg( args[count], XmNlistSizePolicy, XmCONSTANT ); ++count;
 105     XtSetArg( args[count], XmNselectionPolicy,
 106               ( m_windowStyle & wxLB_MULTIPLE ) ? XmMULTIPLE_SELECT :
 107               ( m_windowStyle & wxLB_EXTENDED ) ? XmEXTENDED_SELECT :
 108                                                   XmBROWSE_SELECT );
 109     ++count;
 110     if( m_font.Ok() )
 111     {
 112         XtSetArg( args[count],
 113                   (String)wxFont::GetFontTag(), m_font.GetFontTypeC(dpy) );
 114         ++count;
 115     }
 116     if( m_windowStyle & wxLB_ALWAYS_SB )
 117     {
 118         XtSetArg( args[count], XmNscrollBarDisplayPolicy, XmSTATIC );
 119         ++count;
 120     }
 121
 122     Widget listWidget =
 123         XmCreateScrolledList(parentWidget,
 124                              wxConstCast(name.c_str(), char), args, count);
 125
 126     m_mainWidget = (WXWidget) listWidget;
 127
 128     Set(n, choices);
 129
 130     XtManageChild (listWidget);
 131
 132     wxSize best = GetBestSize();
 133     if( size.x != -1 ) best.x = size.x;
 134     if( size.y != -1 ) best.y = size.y;
 135
 136     XtAddCallback (listWidget,
 137                    XmNbrowseSelectionCallback,
 138                    (XtCallbackProc) wxListBoxCallback,
 139                    (XtPointer) this);
 140     XtAddCallback (listWidget,
 141                    XmNextendedSelectionCallback,
 142                    (XtCallbackProc) wxListBoxCallback,
 143                    (XtPointer) this);
 144     XtAddCallback (listWidget,
 145                    XmNmultipleSelectionCallback,
 146                    (XtCallbackProc) wxListBoxCallback,
 147                    (XtPointer) this);
 148     XtAddCallback (listWidget,
 149                    XmNdefaultActionCallback,
 150                    (XtCallbackProc) wxListBoxCallback,
 151                    (XtPointer) this);
 152
 153     AttachWidget (parent, m_mainWidget, (WXWidget) NULL,
 154                   pos.x, pos.y, best.x, best.y);
 155
 156     ChangeBackgroundColour();
 157
 158     return true;
 159 }
 160
 161 bool wxListBox::Create(wxWindow *parent, wxWindowID id,
 162                        const wxPoint& pos,
 163                        const wxSize& size,
 164                        const wxArrayString& choices,
 165                        long style,
 166                        const wxValidator& validator,
 167                        const wxString& name)
 168 {
 169     wxCArrayString chs(choices);
 170     return Create(parent, id, pos, size, chs.GetCount(), chs.GetStrings(),
 171                   style, validator, name);
 172 }
 173
 174 wxListBox::~wxListBox()
 175 {
 176     if( HasClientObjectData() )
 177         m_clientDataDict.DestroyData();
 178 }
 179
 180 void wxListBox::SetSelectionPolicy()
 181 {
 182     Widget listBox = (Widget)m_mainWidget;
 183     Arg args[3];
 184
 185     XtSetArg( args[0], XmNlistSizePolicy, XmCONSTANT );
 186
 187     XtSetArg( args[1], XmNselectionPolicy,
 188               ( m_windowStyle & wxLB_MULTIPLE ) ? XmMULTIPLE_SELECT :
 189               ( m_windowStyle & wxLB_EXTENDED ) ? XmEXTENDED_SELECT :
 190                                                   XmBROWSE_SELECT );
 191
 192     XtSetValues( listBox, args, 2 );
 193 }
 194
 195 void wxListBox::DoSetFirstItem( int N )
 196 {
 197     int count, length;
 198
 199     if (!IsValid(N))
 200         return;
 201
 202     XtVaGetValues ((Widget) m_mainWidget,
 203                     XmNvisibleItemCount, &count,
 204                     XmNitemCount, &length,
 205                     NULL);
 206     if ((N + count) >= length)
 207         N = length - count;
 208     XmListSetPos ((Widget) m_mainWidget, N + 1);
 209 }
 210
 211 void wxListBox::Delete(unsigned int n)
 212 {
 213     wxSizeKeeper sk( this );
 214     Widget listBox = (Widget) m_mainWidget;
 215
 216     bool managed = XtIsManaged(listBox);
 217
 218     if (managed)
 219         XtUnmanageChild (listBox);
 220
 221     XmListDeletePos (listBox, n + 1);
 222
 223     if (managed)
 224         XtManageChild (listBox);
 225
 226     sk.Restore();
 227     m_clientDataDict.Delete(n, HasClientObjectData());
 228     m_noItems --;
 229 }
 230
 231 int wxListBox::DoAppend(const wxString& item)
 232 {
 233     wxSizeKeeper sk( this );
 234     Widget listBox = (Widget) m_mainWidget;
 235
 236     bool managed = XtIsManaged(listBox);
 237
 238     if (managed)
 239         XtUnmanageChild (listBox);
 240     int n;
 241     XtVaGetValues (listBox, XmNitemCount, &n, NULL);
 242     wxXmString text( item );
 243     //  XmListAddItem(listBox, text, n + 1);
 244     XmListAddItemUnselected (listBox, text(), 0);
 245
 246     // It seems that if the list is cleared, we must re-ask for
 247     // selection policy!!
 248     SetSelectionPolicy();
 249
 250     if (managed)
 251         XtManageChild (listBox);
 252
 253     sk.Restore();
 254     m_noItems ++;
 255
 256     return GetCount() - 1;
 257 }
 258
 259 void wxListBox::DoSetItems(const wxArrayString& items, void** clientData)
 260 {
 261     wxSizeKeeper sk( this );
 262     Widget listBox = (Widget) m_mainWidget;
 263
 264     if( HasClientObjectData() )
 265         m_clientDataDict.DestroyData();
 266
 267     bool managed = XtIsManaged(listBox);
 268
 269     if (managed)
 270         XtUnmanageChild (listBox);
 271     XmString *text = new XmString[items.GetCount()];
 272     unsigned int i;
 273     for (i = 0; i < items.GetCount(); ++i)
 274         text[i] = wxStringToXmString (items[i]);
 275
 276     if ( clientData )
 277         for (i = 0; i < items.GetCount(); ++i)
 278             m_clientDataDict.Set(i, (wxClientData*)clientData[i], false);
 279
 280     XmListAddItems (listBox, text, items.GetCount(), 0);
 281     for (i = 0; i < items.GetCount(); i++)
 282         XmStringFree (text[i]);
 283     delete[] text;
 284
 285     // It seems that if the list is cleared, we must re-ask for
 286     // selection policy!!
 287     SetSelectionPolicy();
 288
 289     if (managed)
 290         XtManageChild (listBox);
 291
 292     sk.Restore();
 293
 294     m_noItems = items.GetCount();
 295 }
 296
 297 int wxDoFindStringInList(Widget w, const wxString& s)
 298 {
 299     wxXmString str( s );
 300     int *positions = NULL;
 301     int no_positions = 0;
 302     bool success = XmListGetMatchPos (w, str(),
 303                                       &positions, &no_positions);
 304
 305     if (success)
 306     {
 307         int pos = positions[0];
 308         if (positions)
 309             XtFree ((char *) positions);
 310         return pos - 1;
 311     }
 312     else
 313         return -1;
 314 }
 315
 316 int wxListBox::FindString(const wxString& s, bool WXUNUSED(bCase)) const
 317 {
 318     // FIXME: back to base class for not supported value of bCase
 319
 320     return wxDoFindStringInList( (Widget)m_mainWidget, s );
 321 }
 322
 323 void wxListBox::Clear()
 324 {
 325     if (m_noItems <= 0)
 326         return;
 327
 328     wxSizeKeeper sk( this );
 329     Widget listBox = (Widget) m_mainWidget;
 330
 331     XmListDeleteAllItems (listBox);
 332     if( HasClientObjectData() )
 333         m_clientDataDict.DestroyData();
 334
 335     sk.Restore();
 336
 337     m_noItems = 0;
 338 }
 339
 340 void wxListBox::DoSetSelection(int N, bool select)
 341 {
 342     m_inSetValue = true;
 343     if (select)
 344     {
 345 #if 0
 346         if (m_windowStyle & wxLB_MULTIPLE)
 347         {
 348             int *selections = NULL;
 349             int n = GetSelections (&selections);
 350
 351             // This hack is supposed to work, to make it possible
 352             // to select more than one item, but it DOESN'T under Motif 1.1.
 353
 354             XtVaSetValues ((Widget) m_mainWidget,
 355                            XmNselectionPolicy, XmMULTIPLE_SELECT,
 356                            NULL);
 357
 358             int i;
 359             for (i = 0; i < n; i++)
 360                 XmListSelectPos ((Widget) m_mainWidget,
 361                                  selections[i] + 1, False);
 362
 363             XmListSelectPos ((Widget) m_mainWidget, N + 1, False);
 364
 365             XtVaSetValues ((Widget) m_mainWidget,
 366                            XmNselectionPolicy, XmEXTENDED_SELECT,
 367                            NULL);
 368         }
 369         else
 370 #endif // 0
 371             XmListSelectPos ((Widget) m_mainWidget, N + 1, False);
 372
 373     }
 374     else
 375         XmListDeselectPos ((Widget) m_mainWidget, N + 1);
 376
 377     m_inSetValue = false;
 378 }
 379
 380 bool wxListBox::IsSelected(int N) const
 381 {
 382     // In Motif, no simple way to determine if the item is selected.
 383     wxArrayInt theSelections;
 384     int count = GetSelections (theSelections);
 385     if (count == 0)
 386         return false;
 387     else
 388     {
 389         int j;
 390         for (j = 0; j < count; j++)
 391             if (theSelections[j] == N)
 392                 return true;
 393     }
 394     return false;
 395 }
 396
 397 void wxListBox::DoSetItemClientObject(unsigned int n, wxClientData* clientData)
 398 {
 399     m_clientDataDict.Set(n, clientData, false);
 400 }
 401
 402 wxClientData* wxListBox::DoGetItemClientObject(unsigned int n) const
 403 {
 404     return m_clientDataDict.Get(n);
 405 }
 406
 407 void *wxListBox::DoGetItemClientData(unsigned int n) const
 408 {
 409     return (void*)m_clientDataDict.Get(n);
 410 }
 411
 412 void wxListBox::DoSetItemClientData(unsigned int n, void *Client_data)
 413 {
 414     m_clientDataDict.Set(n, (wxClientData*)Client_data, false);
 415 }
 416
 417 // Return number of selections and an array of selected integers
 418 int wxListBox::GetSelections(wxArrayInt& aSelections) const
 419 {
 420     aSelections.Empty();
 421
 422     Widget listBox = (Widget) m_mainWidget;
 423     int *posList = NULL;
 424     int posCnt = 0;
 425     bool flag = XmListGetSelectedPos (listBox, &posList, &posCnt);
 426     if (flag)
 427     {
 428         if (posCnt > 0)
 429         {
 430             aSelections.Alloc(posCnt);
 431
 432             int i;
 433             for (i = 0; i < posCnt; i++)
 434                 aSelections.Add(posList[i] - 1);
 435
 436             XtFree ((char *) posList);
 437             return posCnt;
 438         }
 439         else
 440             return 0;
 441     }
 442     else
 443         return 0;
 444 }
 445
 446 // Get single selection, for single choice list items
 447 int wxDoGetSelectionInList(Widget listBox)
 448 {
 449     int *posList = NULL;
 450     int posCnt = 0;
 451     bool flag = XmListGetSelectedPos (listBox, &posList, &posCnt);
 452     if (flag)
 453     {
 454         int id = -1;
 455         if (posCnt > 0)
 456             id = posList[0] - 1;
 457         XtFree ((char *) posList);
 458         return id;
 459     }
 460     else
 461         return -1;
 462 }
 463
 464 int wxListBox::GetSelection() const
 465 {
 466     return wxDoGetSelectionInList((Widget) m_mainWidget);
 467 }
 468
 469 // Find string for position
 470 wxString wxDoGetStringInList( Widget listBox, int n )
 471 {
 472     XmString *strlist;
 473     int count;
 474     XtVaGetValues( listBox,
 475                    XmNitemCount, &count,
 476                    XmNitems, &strlist,
 477                    NULL );
 478     if( n < count && n >= 0 )
 479         return wxXmStringToString( strlist[n] );
 480     else
 481         return wxEmptyString;
 482 }
 483
 484 wxString wxListBox::GetString(unsigned int n) const
 485 {
 486     return wxDoGetStringInList( (Widget)m_mainWidget, n );
 487 }
 488
 489 void wxListBox::DoInsertItems(const wxArrayString& items, unsigned int pos)
 490 {
 491     wxSizeKeeper sk( this );
 492     Widget listBox = (Widget) m_mainWidget;
 493
 494     bool managed = XtIsManaged(listBox);
 495
 496     if (managed)
 497         XtUnmanageChild(listBox);
 498
 499     XmString *text = new XmString[items.GetCount()];
 500     unsigned int i;
 501     // Steve Hammes: Motif 1.1 compatibility
 502     // #if XmVersion > 1100
 503     // Corrected by Sergey Krasnov from Steve Hammes' code
 504 #if XmVersion > 1001
 505     for (i = 0; i < items.GetCount(); i++)
 506         text[i] = wxStringToXmString(items[i]);
 507     XmListAddItemsUnselected(listBox, text, items.GetCount(), pos+1);
 508 #else
 509     for (i = 0; i < items.GetCount(); i++)
 510     {
 511         text[i] = wxStringToXmString(items[i]);
 512         // Another Sergey correction
 513         XmListAddItemUnselected(listBox, text[i], pos+i+1);
 514     }
 515 #endif
 516     for (i = 0; i < items.GetCount(); i++)
 517         XmStringFree(text[i]);
 518     delete[] text;
 519
 520     // It seems that if the list is cleared, we must re-ask for
 521     // selection policy!!
 522     SetSelectionPolicy();
 523
 524     if (managed)
 525         XtManageChild(listBox);
 526
 527     sk.Restore();
 528
 529     m_noItems += items.GetCount();
 530 }
 531
 532 void wxListBox::SetString(unsigned int n, const wxString& s)
 533 {
 534     wxSizeKeeper sk( this );
 535     Widget listBox = (Widget) m_mainWidget;
 536
 537     wxXmString text( s );
 538
 539     // delete the item and add it again.
 540     // FIXME isn't there a way to change it in place?
 541     XmListDeletePos (listBox, n+1);
 542     XmListAddItem (listBox, text(), n+1);
 543
 544     sk.Restore();
 545 }
 546
 547 void wxListBox::Command (wxCommandEvent & event)
 548 {
 549     if (event.GetExtraLong())
 550         SetSelection (event.GetInt());
 551     else
 552     {
 553         Deselect (event.GetInt());
 554         return;
 555     }
 556     ProcessCommand (event);
 557 }
 558
 559 void wxListBoxCallback (Widget WXUNUSED(w), XtPointer clientData,
 560                         XmListCallbackStruct * cbs)
 561 {
 562     wxListBox *item = (wxListBox *) clientData;
 563
 564     if (item->InSetValue())
 565         return;
 566
 567     wxEventType evtType;
 568
 569     if( cbs->reason == XmCR_DEFAULT_ACTION )
 570         evtType = wxEVT_COMMAND_LISTBOX_DOUBLECLICKED;
 571     else
 572         evtType = wxEVT_COMMAND_LISTBOX_SELECTED;
 573
 574     int n = cbs->item_position - 1;
 575     wxCommandEvent event (evtType, item->GetId());
 576     if ( item->HasClientObjectData() )
 577         event.SetClientObject( item->GetClientObject(n) );
 578     else if ( item->HasClientUntypedData() )
 579         event.SetClientData( item->GetClientData(n) );
 580     event.SetInt(n);
 581     event.SetExtraLong(true);
 582     event.SetEventObject(item);
 583     event.SetString( item->GetString( n ) );
 584
 585     int x = -1;
 586     if( NULL != cbs->event && cbs->event->type == ButtonRelease )
 587     {
 588         XButtonEvent* evt = (XButtonEvent*)cbs->event;
 589
 590         x = evt->x;
 591     }
 592
 593     switch (cbs->reason)
 594     {
 595     case XmCR_MULTIPLE_SELECT:
 596     case XmCR_BROWSE_SELECT:
 597 #if wxUSE_CHECKLISTBOX
 598         item->DoToggleItem( n, x );
 599 #endif
 600     case XmCR_DEFAULT_ACTION:
 601         item->GetEventHandler()->ProcessEvent(event);
 602         break;
 603     case XmCR_EXTENDED_SELECT:
 604         switch (cbs->selection_type)
 605         {
 606         case XmINITIAL:
 607         case XmADDITION:
 608         case XmMODIFICATION:
 609             item->DoToggleItem( n, x );
 610             item->GetEventHandler()->ProcessEvent(event);
 611             break;
 612         }
 613         break;
 614     }
 615 }
 616
 617 WXWidget wxListBox::GetTopWidget() const
 618 {
 619     return (WXWidget) XtParent( (Widget) m_mainWidget );
 620 }
 621
 622 void wxListBox::ChangeBackgroundColour()
 623 {
 624     wxWindow::ChangeBackgroundColour();
 625
 626     Widget parent = XtParent ((Widget) m_mainWidget);
 627     Widget hsb, vsb;
 628
 629     XtVaGetValues (parent,
 630         XmNhorizontalScrollBar, &hsb,
 631         XmNverticalScrollBar, &vsb,
 632         NULL);
 633
 634    /* TODO: should scrollbars be affected? Should probably have separate
 635     * function to change them (by default, taken from wxSystemSettings)
 636     */
 637     wxColour backgroundColour = wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE);
 638     wxDoChangeBackgroundColour((WXWidget) hsb, backgroundColour, true);
 639     wxDoChangeBackgroundColour((WXWidget) vsb, backgroundColour, true);
 640
 641     XtVaSetValues (hsb,
 642         XmNtroughColor, backgroundColour.AllocColour(XtDisplay(hsb)),
 643         NULL);
 644     XtVaSetValues (vsb,
 645         XmNtroughColor, backgroundColour.AllocColour(XtDisplay(vsb)),
 646         NULL);
 647
 648     // MBN: why change parent's background? It looks really ugly.
 649     // wxDoChangeBackgroundColour((WXWidget) parent, m_backgroundColour, true);
 650 }
 651
 652 void wxListBox::ChangeForegroundColour()
 653 {
 654     wxWindow::ChangeForegroundColour();
 655
 656     Widget parent = XtParent ((Widget) m_mainWidget);
 657     Widget hsb, vsb;
 658
 659     XtVaGetValues(parent,
 660                   XmNhorizontalScrollBar, &hsb,
 661                   XmNverticalScrollBar, &vsb,
 662                   NULL);
 663
 664     /* TODO: should scrollbars be affected? Should probably have separate
 665              function to change them (by default, taken from wxSystemSettings)
 666
 667         wxDoChangeForegroundColour((WXWidget) hsb, m_foregroundColour);
 668         wxDoChangeForegroundColour((WXWidget) vsb, m_foregroundColour);
 669         wxDoChangeForegroundColour((WXWidget) parent, m_foregroundColour);
 670     */
 671 }
 672
 673 unsigned int wxListBox::GetCount() const
 674 {
 675     return m_noItems;
 676 }
 677
 678 #define LIST_SCROLL_SPACING 6
 679
 680 wxSize wxDoGetListBoxBestSize( Widget listWidget, const wxWindow* window )
 681 {
 682     int max;
 683     Dimension spacing, highlight, xmargin, ymargin, shadow;
 684     int width = 0;
 685     int x, y;
 686
 687     XtVaGetValues( listWidget,
 688                    XmNitemCount, &max,
 689                    XmNlistSpacing, &spacing,
 690                    XmNhighlightThickness, &highlight,
 691                    XmNlistMarginWidth, &xmargin,
 692                    XmNlistMarginHeight, &ymargin,
 693                    XmNshadowThickness, &shadow,
 694                    NULL );
 695
 696     for( size_t i = 0; i < (size_t)max; ++i )
 697     {
 698         window->GetTextExtent( wxDoGetStringInList( listWidget, i ), &x, &y );
 699         width = wxMax( width, x );
 700     }
 701
 702     // use some arbitrary value if there are no strings
 703     if( width == 0 )
 704         width = 100;
 705
 706     // get my
 707     window->GetTextExtent( "v", &x, &y );
 708
 709     // make it a little larger than widest string, plus the scrollbar
 710     width += wxSystemSettings::GetMetric( wxSYS_VSCROLL_X )
 711         + 2 * highlight + LIST_SCROLL_SPACING + 2 * xmargin + 2 * shadow;
 712
 713     // at least 3 items, at most 10
 714     int height = wxMax( 3, wxMin( 10, max ) ) *
 715         ( y + spacing + 2 * highlight ) + 2 * ymargin + 2 * shadow;
 716
 717     return wxSize( width, height );
 718 }
 719
 720 wxSize wxListBox::DoGetBestSize() const
 721 {
 722     return wxDoGetListBoxBestSize( (Widget)m_mainWidget, this );
 723 }
 724
 725 #endif // wxUSE_LISTBOX