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 }