src/motif/choice.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        choice.cpp
   3 // Purpose:     wxChoice
   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 "choice.h"
  14 #endif
  15
  16 // For compilers that support precompilation, includes "wx.h".
  17 #include "wx/choice.h"
  18 #include "wx/utils.h"
  19
  20 #include <Xm/Xm.h>
  21 #include <Xm/PushBG.h>
  22 #include <Xm/PushB.h>
  23 #include <Xm/RowColumn.h>
  24
  25 #include "wx/motif/private.h"
  26
  27 #if !USE_SHARED_LIBRARY
  28 IMPLEMENT_DYNAMIC_CLASS(wxChoice, wxControl)
  29 #endif
  30
  31 void wxChoiceCallback (Widget w, XtPointer clientData,
  32                   XtPointer ptr);
  33
  34 wxChoice::wxChoice()
  35 {
  36     m_noStrings = 0;
  37     m_buttonWidget = (WXWidget) 0;
  38     m_menuWidget = (WXWidget) 0;
  39     m_widgetList = (WXWidget*) 0;
  40     m_formWidget = (WXWidget) 0;
  41 }
  42
  43 bool wxChoice::Create(wxWindow *parent, wxWindowID id,
  44            const wxPoint& pos,
  45            const wxSize& size,
  46                    int n, const wxString choices[],
  47                    long style,
  48            const wxValidator& validator,
  49            const wxString& name)
  50 {
  51     SetName(name);
  52     SetValidator(validator);
  53     m_noStrings = 0; // Starts off with none, incremented in Append
  54     m_windowStyle = style;
  55     m_buttonWidget = (WXWidget) 0;
  56     m_menuWidget = (WXWidget) 0;
  57     m_widgetList = (WXWidget*) 0;
  58     m_formWidget = (WXWidget) 0;
  59
  60     if (parent) parent->AddChild(this);
  61
  62     if ( id == -1 )
  63         m_windowId = (int)NewControlId();
  64     else
  65             m_windowId = id;
  66
  67     m_backgroundColour = parent->GetBackgroundColour();
  68     m_foregroundColour = parent->GetForegroundColour();
  69     m_windowFont = parent->GetFont();
  70
  71     Widget parentWidget = (Widget) parent->GetClientWidget();
  72
  73     m_formWidget = (WXWidget) XtVaCreateManagedWidget ((char*) (const char*) name,
  74                                         xmRowColumnWidgetClass, parentWidget,
  75                                         XmNmarginHeight, 0,
  76                                         XmNmarginWidth, 0,
  77                                         XmNpacking, XmPACK_TIGHT,
  78                                         XmNorientation, XmHORIZONTAL,
  79                                         NULL);
  80
  81     XtVaSetValues ((Widget) m_formWidget, XmNspacing, 0, NULL);
  82
  83    /*
  84     * Create the popup menu
  85     */
  86     m_menuWidget = (WXWidget) XmCreatePulldownMenu ((Widget) m_formWidget, "choiceMenu", NULL, 0);
  87
  88 //    int i;
  89     if (n > 0)
  90     {
  91         int i;
  92         for (i = 0; i < n; i++)
  93             Append (choices[i]);
  94     }
  95
  96    /*
  97     * Create button
  98     */
  99     Arg args[10];
 100     Cardinal argcnt = 0;
 101
 102     XtSetArg (args[argcnt], XmNsubMenuId, (Widget) m_menuWidget);
 103     argcnt++;
 104     XtSetArg (args[argcnt], XmNmarginWidth, 0);
 105     argcnt++;
 106     XtSetArg (args[argcnt], XmNmarginHeight, 0);
 107     argcnt++;
 108     XtSetArg (args[argcnt], XmNpacking, XmPACK_TIGHT);
 109     argcnt++;
 110     m_buttonWidget = (WXWidget) XmCreateOptionMenu ((Widget) m_formWidget, "choiceButton", args, argcnt);
 111
 112     m_mainWidget = m_buttonWidget;
 113
 114     XtManageChild ((Widget) m_buttonWidget);
 115
 116     // New code from Roland Haenel (roland_haenel@ac.cybercity.de)
 117     // Some time ago, I reported a problem with wxChoice-items under
 118     // Linux and Motif 2.0 (they caused sporadic GPFs). Now it seems
 119     // that I have found the code responsible for this behaviour.
 120 #if XmVersion >= 1002
 121 #if XmVersion <  2000
 122     Widget optionLabel = XmOptionLabelGadget ((Widget) m_buttonWidget);
 123     XtUnmanageChild (optionLabel);
 124 #endif
 125 #endif
 126
 127     XtVaSetValues((Widget) m_formWidget, XmNresizePolicy, XmRESIZE_NONE, NULL);
 128
 129     ChangeFont(FALSE);
 130
 131     AttachWidget (parent, m_buttonWidget, m_formWidget, pos.x, pos.y, size.x, size.y);
 132
 133     ChangeBackgroundColour();
 134
 135     return TRUE;
 136 }
 137
 138 wxChoice::~wxChoice()
 139 {
 140   // For some reason destroying the menuWidget
 141   // can cause crashes on some machines. It will
 142   // be deleted implicitly by deleting the parent form
 143   // anyway.
 144 //  XtDestroyWidget (menuWidget);
 145     if (m_widgetList)
 146         delete[] m_widgetList;
 147
 148     if (GetMainWidget())
 149     {
 150         DetachWidget(GetMainWidget()); // Removes event handlers
 151         DetachWidget(m_formWidget);
 152
 153         XtDestroyWidget((Widget) m_formWidget);
 154         m_formWidget = (WXWidget) 0;
 155
 156         // Presumably the other widgets have been deleted now, via the form
 157         m_mainWidget = (WXWidget) 0;
 158         m_buttonWidget = (WXWidget) 0;
 159     }
 160 }
 161
 162 void wxChoice::Append(const wxString& item)
 163 {
 164   wxStripMenuCodes ((char *)(const char *)item, wxBuffer);
 165   Widget w = XtVaCreateManagedWidget (wxBuffer,
 166 #if USE_GADGETS
 167                                       xmPushButtonGadgetClass, (Widget) m_menuWidget,
 168 #else
 169                                       xmPushButtonWidgetClass, (Widget) m_menuWidget,
 170 #endif
 171                                       NULL);
 172
 173   DoChangeBackgroundColour((WXWidget) w, m_backgroundColour);
 174
 175   if (m_windowFont.Ok())
 176     XtVaSetValues (w,
 177                    XmNfontList, (XmFontList) m_windowFont.GetFontList(1.0, XtDisplay((Widget) m_formWidget)),
 178                    NULL);
 179
 180   WXWidget *new_widgetList = new WXWidget[m_noStrings + 1];
 181   int i;
 182   if (m_widgetList)
 183     for (i = 0; i < m_noStrings; i++)
 184       new_widgetList[i] = m_widgetList[i];
 185
 186   new_widgetList[m_noStrings] = (WXWidget) w;
 187
 188   if (m_widgetList)
 189     delete[] m_widgetList;
 190   m_widgetList = new_widgetList;
 191
 192   char mnem = wxFindMnemonic ((char*) (const char*) item);
 193   if (mnem != 0)
 194     XtVaSetValues (w, XmNmnemonic, mnem, NULL);
 195
 196   XtAddCallback (w, XmNactivateCallback, (XtCallbackProc) wxChoiceCallback, (XtPointer) this);
 197
 198   if (m_noStrings == 0 && m_buttonWidget)
 199     {
 200       XtVaSetValues ((Widget) m_buttonWidget, XmNmenuHistory, w, NULL);
 201       Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
 202       XmString text = XmStringCreateSimple ((char*) (const char*) item);
 203       XtVaSetValues (label,
 204                      XmNlabelString, text,
 205                      NULL);
 206       XmStringFree (text);
 207     }
 208   wxNode *node = m_stringList.Add (item);
 209   XtVaSetValues (w, XmNuserData, node->Data (), NULL);
 210
 211   m_noStrings ++;
 212 }
 213
 214 void wxChoice::Delete(int WXUNUSED(n))
 215 {
 216     wxFAIL_MSG( "Sorry, wxChoice::Delete isn't implemented yet. Maybe you'd like to volunteer? :-)" );
 217
 218     // What should we do -- remove the callback for this button widget,
 219     // delete the m_stringList entry, delete the button widget, construct a new widget list
 220     // (see Append)
 221
 222     // TODO
 223     m_noStrings --;
 224 }
 225
 226 void wxChoice::Clear()
 227 {
 228     m_stringList.Clear ();
 229     int i;
 230     for (i = 0; i < m_noStrings; i++)
 231     {
 232         XtUnmanageChild ((Widget) m_widgetList[i]);
 233         XtDestroyWidget ((Widget) m_widgetList[i]);
 234     }
 235     if (m_noStrings)
 236         delete[] m_widgetList;
 237     m_widgetList = (WXWidget*) NULL;
 238     if (m_buttonWidget)
 239         XtVaSetValues ((Widget) m_buttonWidget, XmNmenuHistory, (Widget) NULL, NULL);
 240     m_noStrings = 0;
 241 }
 242
 243 int wxChoice::GetSelection() const
 244 {
 245   XmString text;
 246   char *s;
 247   Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
 248   XtVaGetValues (label,
 249          XmNlabelString, &text,
 250          NULL);
 251
 252   if (XmStringGetLtoR (text, XmSTRING_DEFAULT_CHARSET, &s))
 253   {
 254       int i = 0;
 255       for (wxNode * node = m_stringList.First (); node; node = node->Next ())
 256       {
 257         char *s1 = (char *) node->Data ();
 258         if (s1 == s || strcmp (s1, s) == 0)
 259         {
 260           XmStringFree(text) ;
 261           XtFree (s);
 262           return i;
 263         }
 264         else
 265             i++;
 266       }            // for()
 267
 268       XmStringFree(text) ;
 269       XtFree (s);
 270       return -1;
 271   }
 272   XmStringFree(text) ;
 273   return -1;
 274 }
 275
 276 void wxChoice::SetSelection(int n)
 277 {
 278   m_inSetValue = TRUE;
 279
 280   wxNode *node = m_stringList.Nth (n);
 281   if (node)
 282     {
 283       Dimension selectionWidth, selectionHeight;
 284
 285       char *s = (char *) node->Data ();
 286       XmString text = XmStringCreateSimple (s);
 287       XtVaGetValues ((Widget) m_widgetList[n], XmNwidth, &selectionWidth, XmNheight, &selectionHeight, NULL);
 288       Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
 289       XtVaSetValues (label,
 290                      XmNlabelString, text,
 291                      NULL);
 292       XmStringFree (text);
 293       XtVaSetValues ((Widget) m_buttonWidget,
 294                      XmNwidth, selectionWidth, XmNheight, selectionHeight,
 295                      XmNmenuHistory, (Widget) m_widgetList[n], NULL);
 296     }
 297   m_inSetValue = FALSE;
 298 }
 299
 300 int wxChoice::FindString(const wxString& s) const
 301 {
 302     int i = 0;
 303     for (wxNode * node = m_stringList.First (); node; node = node->Next ())
 304     {
 305         char *s1 = (char *) node->Data ();
 306         if (s == s1)
 307         {
 308             return i;
 309         }
 310         else
 311             i++;
 312     }
 313     return -1;
 314 }
 315
 316 wxString wxChoice::GetString(int n) const
 317 {
 318   wxNode *node = m_stringList.Nth (n);
 319   if (node)
 320     return wxString((char *) node->Data ());
 321   else
 322     return wxEmptyString;
 323 }
 324
 325 void wxChoice::SetColumns(int n)
 326 {
 327   if (n<1) n = 1 ;
 328
 329   short numColumns = n ;
 330   Arg args[3];
 331
 332   XtSetArg(args[0], XmNnumColumns, numColumns);
 333   XtSetArg(args[1], XmNpacking, XmPACK_COLUMN);
 334   XtSetValues((Widget) m_menuWidget,args,2) ;
 335 }
 336
 337 int wxChoice::GetColumns(void) const
 338 {
 339   short numColumns ;
 340
 341   XtVaGetValues((Widget) m_menuWidget,XmNnumColumns,&numColumns,NULL) ;
 342   return numColumns ;
 343 }
 344
 345 void wxChoice::SetFocus()
 346 {
 347   XmProcessTraversal(XtParent((Widget)m_mainWidget), XmTRAVERSE_CURRENT);
 348 }
 349
 350 void wxChoice::SetSize(int x, int y, int width, int height, int sizeFlags)
 351 {
 352     XtVaSetValues((Widget) m_formWidget, XmNresizePolicy, XmRESIZE_ANY, NULL);
 353     bool managed = XtIsManaged((Widget) m_formWidget);
 354
 355     if (managed)
 356         XtUnmanageChild ((Widget) m_formWidget);
 357
 358     int actualWidth = width, actualHeight = height;
 359
 360     if (width > -1)
 361     {
 362         int i;
 363         for (i = 0; i < m_noStrings; i++)
 364             XtVaSetValues ((Widget) m_widgetList[i], XmNwidth, actualWidth, NULL);
 365         XtVaSetValues ((Widget) m_buttonWidget, XmNwidth, actualWidth,
 366              NULL);
 367     }
 368     if (height > -1)
 369     {
 370         int i;
 371         for (i = 0; i < m_noStrings; i++)
 372             XtVaSetValues ((Widget) m_widgetList[i], XmNheight, actualHeight, NULL);
 373         XtVaSetValues ((Widget) m_buttonWidget, XmNheight, actualHeight,
 374              NULL);
 375     }
 376
 377     if (managed)
 378         XtManageChild ((Widget) m_formWidget);
 379     XtVaSetValues((Widget) m_formWidget, XmNresizePolicy, XmRESIZE_NONE, NULL);
 380
 381     wxControl::SetSize (x, y, width, height, sizeFlags);
 382 }
 383
 384 wxString wxChoice::GetStringSelection () const
 385 {
 386     int sel = GetSelection ();
 387     if (sel > -1)
 388         return wxString(this->GetString (sel));
 389     else
 390         return wxEmptyString;
 391 }
 392
 393 bool wxChoice::SetStringSelection (const wxString& s)
 394 {
 395     int sel = FindString (s);
 396     if (sel > -1)
 397         {
 398             SetSelection (sel);
 399             return TRUE;
 400         }
 401     else
 402         return FALSE;
 403 }
 404
 405 void wxChoice::Command(wxCommandEvent & event)
 406 {
 407     SetSelection (event.GetInt());
 408     ProcessCommand (event);
 409 }
 410
 411 void wxChoiceCallback (Widget w, XtPointer clientData, XtPointer WXUNUSED(ptr))
 412 {
 413     wxChoice *item = (wxChoice *) clientData;
 414     if (item)
 415     {
 416         if (item->InSetValue())
 417             return;
 418
 419         char *s = NULL;
 420         XtVaGetValues (w, XmNuserData, &s, NULL);
 421         if (s)
 422         {
 423             wxCommandEvent event (wxEVT_COMMAND_CHOICE_SELECTED, item->GetId());
 424             event.SetEventObject(item);
 425             event.m_commandInt = item->FindString (s);
 426 //            event.m_commandString = s;
 427             item->ProcessCommand (event);
 428         }
 429     }
 430 }
 431
 432 void wxChoice::ChangeFont(bool keepOriginalSize)
 433 {
 434     // Note that this causes the widget to be resized back
 435     // to its original size! We therefore have to set the size
 436     // back again. TODO: a better way in Motif?
 437     if (m_windowFont.Ok())
 438     {
 439         int width, height, width1, height1;
 440         GetSize(& width, & height);
 441
 442         XmFontList fontList = (XmFontList) m_windowFont.GetFontList(1.0, XtDisplay((Widget) m_mainWidget));
 443         XtVaSetValues ((Widget) m_mainWidget, XmNfontList, fontList, NULL);
 444         XtVaSetValues ((Widget) m_buttonWidget, XmNfontList, fontList, NULL);
 445
 446         /* TODO: why does this cause a crash in XtWidgetToApplicationContext?
 447         int i;
 448         for (i = 0; i < m_noStrings; i++)
 449             XtVaSetValues ((Widget) m_widgetList[i], XmNfontList, fontList, NULL);
 450         */
 451         GetSize(& width1, & height1);
 452         if (keepOriginalSize && (width != width1 || height != height1))
 453         {
 454             SetSize(-1, -1, width, height);
 455         }
 456     }
 457 }
 458
 459 void wxChoice::ChangeBackgroundColour()
 460 {
 461     DoChangeBackgroundColour(m_formWidget, m_backgroundColour);
 462     DoChangeBackgroundColour(m_buttonWidget, m_backgroundColour);
 463     DoChangeBackgroundColour(m_menuWidget, m_backgroundColour);
 464     int i;
 465     for (i = 0; i < m_noStrings; i++)
 466         DoChangeBackgroundColour(m_widgetList[i], m_backgroundColour);
 467 }
 468
 469 void wxChoice::ChangeForegroundColour()
 470 {
 471     DoChangeForegroundColour(m_formWidget, m_foregroundColour);
 472     DoChangeForegroundColour(m_buttonWidget, m_foregroundColour);
 473     DoChangeForegroundColour(m_menuWidget, m_foregroundColour);
 474     int i;
 475     for (i = 0; i < m_noStrings; i++)
 476         DoChangeForegroundColour(m_widgetList[i], m_foregroundColour);
 477 }