src/motif/combobox_native.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/motif/combobox_native.cpp
   3 // Purpose:     wxComboBox class
   4 // Author:      Julian Smart, Ian Brown
   5 // Modified by:
   6 // Created:     01/02/03
   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_COMBOBOX
  16
  17 #include "wx/combobox.h"
  18
  19 #ifndef WX_PRECOMP
  20     #include "wx/arrstr.h"
  21 #endif
  22
  23 #ifdef __VMS__
  24 #pragma message disable nosimpint
  25 #endif
  26 #include <Xm/Xm.h>
  27 #ifdef __VMS__
  28 #pragma message enable nosimpint
  29 #endif
  30
  31 // use the new, shiny combobox for Motif 2.x
  32 #if (XmVersion >= 2000)
  33
  34 #ifdef __VMS__
  35 #pragma message disable nosimpint
  36 #endif
  37 #include <Xm/ComboBox.h>
  38 #include <Xm/Text.h>
  39 #include <Xm/List.h>
  40 #ifdef __VMS__
  41 #pragma message enable nosimpint
  42 #endif
  43
  44 #include "wx/motif/private.h"
  45
  46 // utility
  47 static Widget GetXmList( const wxComboBox* cb )
  48 {
  49     Widget ret;
  50     XtVaGetValues( (Widget)cb->GetMainWidget(),
  51                    XmNlist, &ret,
  52                    NULL );
  53
  54     return ret;
  55 }
  56
  57 static Widget GetXmText( const wxComboBox* cb )
  58 {
  59     Widget ret;
  60     XtVaGetValues( (Widget)cb->GetMainWidget(),
  61                    XmNtextField, &ret,
  62                    NULL );
  63
  64     return ret;
  65 }
  66
  67 void  wxComboBoxCallback (Widget w, XtPointer clientData,
  68                           XmComboBoxCallbackStruct * cbs);
  69
  70 IMPLEMENT_DYNAMIC_CLASS(wxComboBox, wxControl)
  71
  72 bool wxComboBox::Create(wxWindow *parent, wxWindowID id,
  73                         const wxString& value,
  74                         const wxPoint& pos,
  75                         const wxSize& size,
  76                         int n, const wxString choices[],
  77                         long style,
  78                         const wxValidator& validator,
  79                         const wxString& name)
  80 {
  81     if( !CreateControl( parent, id, pos, size, style, validator, name ) )
  82         return false;
  83
  84     Widget parentWidget = (Widget) parent->GetClientWidget();
  85
  86     int cb_type = ( style & wxCB_SIMPLE ) ? XmCOMBO_BOX :
  87                   ( style & wxCB_READONLY ) ? XmDROP_DOWN_LIST :
  88                   ( style & wxCB_DROPDOWN ) ? XmDROP_DOWN_COMBO_BOX :
  89     // default to wxCB_DROPDOWN
  90                                               XmDROP_DOWN_COMBO_BOX;
  91     if( cb_type == XmDROP_DOWN_COMBO_BOX )
  92         SetWindowStyle( style | wxCB_DROPDOWN );
  93
  94     Widget buttonWidget= XtVaCreateManagedWidget(name.c_str(),
  95         xmComboBoxWidgetClass, parentWidget,
  96         XmNcomboBoxType, cb_type,
  97         NULL);
  98
  99     m_mainWidget = (Widget) buttonWidget;
 100
 101     int i;
 102     for ( i = 0; i < n; ++i)
 103         Append( choices[i] );
 104
 105     XtManageChild (buttonWidget);
 106
 107     SetValue(value);
 108
 109     ChangeFont(false);
 110
 111     XtAddCallback (buttonWidget, XmNselectionCallback,
 112                    (XtCallbackProc) wxComboBoxCallback,
 113                    (XtPointer) this);
 114     XtAddCallback (GetXmText(this), XmNvalueChangedCallback,
 115                    (XtCallbackProc) wxComboBoxCallback,
 116                    (XtPointer) this);
 117
 118     wxSize best = GetBestSize();
 119     if( size.x != wxDefaultCoord ) best.x = size.x;
 120     if( size.y != wxDefaultCoord ) best.y = size.y;
 121
 122     AttachWidget (parent, m_mainWidget, (WXWidget) NULL,
 123                   pos.x, pos.y, best.x, best.y);
 124
 125     ChangeBackgroundColour();
 126
 127     return true;
 128 }
 129
 130 bool wxComboBox::Create(wxWindow *parent, wxWindowID id,
 131                         const wxString& value,
 132                         const wxPoint& pos,
 133                         const wxSize& size,
 134                         const wxArrayString& choices,
 135                         long style,
 136                         const wxValidator& validator,
 137                         const wxString& name)
 138 {
 139     wxCArrayString chs(choices);
 140     return Create(parent, id, value, pos, size, chs.GetCount(),
 141                   chs.GetStrings(), style, validator, name);
 142 }
 143
 144 void wxComboBox::AdjustDropDownListSize()
 145 {
 146     int newListCount = -1, itemCount = GetCount();
 147     const int MAX = 12;
 148
 149     if( !itemCount )
 150         newListCount = 1;
 151     else if( itemCount < MAX )
 152         newListCount = itemCount;
 153     else
 154         newListCount = MAX;
 155
 156     XtVaSetValues( GetXmList(this),
 157                    XmNvisibleItemCount, newListCount,
 158                    NULL );
 159 }
 160
 161 wxComboBox::~wxComboBox()
 162 {
 163     DetachWidget((Widget) m_mainWidget); // Removes event handlers
 164     XtDestroyWidget((Widget) m_mainWidget);
 165     m_mainWidget = (WXWidget) 0;
 166     if ( HasClientObjectData() )
 167         m_clientDataDict.DestroyData();
 168 }
 169
 170 void wxComboBox::DoSetSize(int x, int y, int width, int WXUNUSED(height), int sizeFlags)
 171 {
 172     // Necessary so it doesn't call wxChoice::SetSize
 173     wxWindow::DoSetSize(x, y, width, DoGetBestSize().y, sizeFlags);
 174 }
 175
 176 wxString wxComboBox::GetValue() const
 177 {
 178     char* s = XmTextGetString (GetXmText (this));
 179     wxString str(s);
 180     if (s)
 181         XtFree (s);
 182     return str;
 183 }
 184
 185 void wxComboBox::SetString(unsigned int n, const wxString& s)
 186 {
 187     wxXmString text(s);
 188     Widget listBox = GetXmList(this);
 189
 190     // delete the item and add it again.
 191     // FIXME isn't there a way to change it in place?
 192     XmListDeletePos (listBox, n+1);
 193     XmListAddItem (listBox, text(), n+1);
 194 }
 195
 196 void wxComboBox::SetValue(const wxString& value)
 197 {
 198     m_inSetValue = true;
 199
 200     // Fix crash; probably an OpenMotif bug
 201     const char* val = value.c_str() ? value.c_str() : "";
 202     XtVaSetValues( GetXmText(this),
 203                    XmNvalue, wxConstCast(val, char),
 204                    NULL);
 205
 206     m_inSetValue = false;
 207 }
 208
 209 int wxComboBox::DoAppend(const wxString& item)
 210 {
 211     wxXmString str( item.c_str() );
 212     XmComboBoxAddItem((Widget) m_mainWidget, str(), 0, False);
 213     m_noStrings ++;
 214     AdjustDropDownListSize();
 215
 216     return GetCount() - 1;
 217 }
 218
 219 int wxComboBox::DoInsert(const wxString& item, unsigned int pos)
 220 {
 221     wxCHECK_MSG(!(GetWindowStyle() & wxCB_SORT), -1, wxT("can't insert into sorted list"));
 222     wxCHECK_MSG(IsValidInsert(pos), -1, wxT("invalid index"));
 223
 224     if (pos == GetCount())
 225         return DoAppend(item);
 226
 227     wxXmString str( item.c_str() );
 228     XmComboBoxAddItem((Widget) m_mainWidget, str(), pos+1, False);
 229     m_noStrings ++;
 230     AdjustDropDownListSize();
 231
 232     return GetCount() - 1;
 233 }
 234
 235 void wxComboBox::Delete(unsigned int n)
 236 {
 237 #ifdef LESSTIF_VERSION
 238     XmListDeletePos (GetXmList(this), n + 1);
 239 #else
 240     XmComboBoxDeletePos((Widget) m_mainWidget, n+1);
 241 #endif
 242
 243     m_clientDataDict.Delete(n, HasClientObjectData());
 244     m_noStrings--;
 245
 246     AdjustDropDownListSize();
 247 }
 248
 249 void wxComboBox::Clear()
 250 {
 251 #ifdef LESSTIF_VERSION
 252     XmListDeleteAllItems (GetXmList(this));
 253 #else
 254     while(m_noStrings > 0)
 255     {
 256         XmComboBoxDeletePos((Widget) m_mainWidget, m_noStrings--);
 257     }
 258 #endif
 259
 260     if ( HasClientObjectData() )
 261         m_clientDataDict.DestroyData();
 262     m_noStrings = 0;
 263     AdjustDropDownListSize();
 264 }
 265
 266 void wxComboBox::SetSelection (int n)
 267 {
 268     m_inSetSelection = true;
 269
 270 #if wxCHECK_LESSTIF()
 271     XmListSelectPos (GetXmList(this), n + 1, false);
 272     SetValue(GetString(n));
 273 #else
 274 #if 0
 275     wxXmString str(GetString(n).c_str());
 276     XmComboBoxSelectItem((Widget) m_mainWidget, str());
 277 #endif
 278     XtVaSetValues( (Widget)m_mainWidget,
 279                    XmNselectedPosition, n,
 280                    NULL );
 281 #endif
 282
 283     m_inSetSelection = false;
 284 }
 285
 286 int wxComboBox::GetSelection (void) const
 287 {
 288     return wxDoGetSelectionInList( GetXmList( this ) );
 289 }
 290
 291 wxString wxComboBox::GetString(unsigned int n) const
 292 {
 293     return wxDoGetStringInList( GetXmList(this), n );
 294 }
 295
 296 int wxComboBox::FindString(const wxString& s, bool WXUNUSED(bCase)) const
 297 {
 298     // FIXME: back to base class for not supported value of bCase
 299
 300     return wxDoFindStringInList( GetXmList( this ), s );
 301 }
 302
 303 // Clipboard operations
 304 void wxComboBox::Copy()
 305 {
 306     XmTextCopy( GetXmText(this), CurrentTime );
 307 }
 308
 309 void wxComboBox::Cut()
 310 {
 311     XmTextCut( GetXmText(this), CurrentTime );
 312 }
 313
 314 void wxComboBox::Paste()
 315 {
 316     XmTextPaste( GetXmText(this) );
 317 }
 318
 319 void wxComboBox::SetEditable(bool WXUNUSED(editable))
 320 {
 321     // TODO
 322 }
 323
 324 void wxComboBox::SetInsertionPoint(long pos)
 325 {
 326     XmTextSetInsertionPosition( GetXmText(this), (XmTextPosition)pos );
 327 }
 328
 329 void wxComboBox::SetInsertionPointEnd()
 330 {
 331     SetInsertionPoint( GetLastPosition() );
 332 }
 333
 334 long wxComboBox::GetInsertionPoint() const
 335 {
 336     return (long)XmTextGetInsertionPosition( GetXmText(this) );
 337 }
 338
 339 wxTextPos wxComboBox::GetLastPosition() const
 340 {
 341     XmTextPosition pos = XmTextGetLastPosition( GetXmText(this) );
 342     return (long)pos;
 343 }
 344
 345 void wxComboBox::Replace(long from, long to, const wxString& value)
 346 {
 347     XmTextReplace( GetXmText(this), (XmTextPosition)from, (XmTextPosition)to,
 348                    wxConstCast(value.mb_str(), char) );
 349 }
 350
 351 void wxComboBox::Remove(long from, long to)
 352 {
 353     SetSelection( from, to );
 354     XmTextRemove( GetXmText(this) );
 355 }
 356
 357 void wxComboBox::SetSelection(long from, long to)
 358 {
 359     if( to == -1 )
 360         to = GetLastPosition();
 361
 362     XmTextSetSelection( GetXmText(this), (XmTextPosition)from,
 363                         (XmTextPosition)to, (Time)0 );
 364 }
 365
 366 void  wxComboBoxCallback (Widget WXUNUSED(w), XtPointer clientData,
 367                           XmComboBoxCallbackStruct * cbs)
 368 {
 369     wxComboBox *item = (wxComboBox *) clientData;
 370
 371     if( item->m_inSetSelection ) return;
 372
 373     switch (cbs->reason)
 374     {
 375     case XmCR_SELECT:
 376 #if 0
 377     case XmCR_SINGLE_SELECT:
 378     case XmCR_BROWSE_SELECT:
 379 #endif
 380         {
 381             wxCommandEvent event (wxEVT_COMMAND_COMBOBOX_SELECTED,
 382                                   item->GetId());
 383             int idx = cbs->item_position;
 384             event.SetInt(idx);
 385             event.SetString( item->GetString (idx) );
 386             if ( item->HasClientObjectData() )
 387                 event.SetClientObject( item->GetClientObject(idx) );
 388             else if ( item->HasClientUntypedData() )
 389                 event.SetClientData( item->GetClientData(idx) );
 390             event.SetExtraLong(true);
 391             event.SetEventObject(item);
 392             item->GetEventHandler()->ProcessEvent(event);
 393             break;
 394         }
 395     case XmCR_VALUE_CHANGED:
 396         {
 397             wxCommandEvent event (wxEVT_COMMAND_TEXT_UPDATED, item->GetId());
 398             event.SetInt(-1);
 399             event.SetString( item->GetValue() );
 400             event.SetExtraLong(true);
 401             event.SetEventObject(item);
 402             item->GetEventHandler()->ProcessEvent(event);
 403             break;
 404         }
 405     default:
 406         break;
 407     }
 408 }
 409
 410 void wxComboBox::ChangeFont(bool keepOriginalSize)
 411 {
 412     if( m_font.Ok() )
 413     {
 414         wxDoChangeFont( GetXmText(this), m_font );
 415         wxDoChangeFont( GetXmList(this), m_font );
 416     }
 417
 418     // Don't use the base class wxChoice's ChangeFont
 419     wxWindow::ChangeFont(keepOriginalSize);
 420 }
 421
 422 void wxComboBox::ChangeBackgroundColour()
 423 {
 424     wxWindow::ChangeBackgroundColour();
 425 }
 426
 427 void wxComboBox::ChangeForegroundColour()
 428 {
 429     wxWindow::ChangeForegroundColour();
 430 }
 431
 432 wxSize wxComboBox::DoGetBestSize() const
 433 {
 434     if( (GetWindowStyle() & wxCB_DROPDOWN) == wxCB_DROPDOWN ||
 435         (GetWindowStyle() & wxCB_READONLY) == wxCB_READONLY )
 436     {
 437         Dimension arrowW, arrowS, highlight, xmargin, ymargin, shadow;
 438
 439         XtVaGetValues( (Widget)m_mainWidget,
 440                        XmNarrowSize, &arrowW,
 441                        XmNarrowSpacing, &arrowS,
 442                        XmNhighlightThickness, &highlight,
 443                        XmNmarginWidth, &xmargin,
 444                        XmNmarginHeight, &ymargin,
 445                        XmNshadowThickness, &shadow,
 446                        NULL );
 447
 448         wxSize listSize = wxDoGetListBoxBestSize( GetXmList(this), this );
 449         wxSize textSize = wxDoGetSingleTextCtrlBestSize( GetXmText(this),
 450                                                          this );
 451
 452         // FIXME arbitrary constants
 453         return wxSize( listSize.x + arrowW + arrowS + 2 * highlight
 454                                   + 2 * shadow + 2 * xmargin ,
 455                        textSize.y + 2 * highlight + 2 * ymargin + 2 * shadow );
 456     }
 457     else
 458         return wxWindow::DoGetBestSize();
 459 }
 460
 461 #endif // XmVersion >= 2000
 462
 463 #endif // wxUSE_COMBOBOX