src/motif/button.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        button.cpp
   3 // Purpose:     wxButton
   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 "button.h"
  14 #endif
  15
  16 #ifdef __VMS
  17 #define XtDisplay XTDISPLAY
  18 #endif
  19
  20 #include "wx/defs.h"
  21
  22 #include "wx/button.h"
  23 #include "wx/utils.h"
  24 #include "wx/panel.h"
  25
  26 #ifdef __VMS__
  27 #pragma message disable nosimpint
  28 #endif
  29 #include <Xm/PushBG.h>
  30 #include <Xm/PushB.h>
  31 #ifdef __VMS__
  32 #pragma message enable nosimpint
  33 #endif
  34
  35 #include "wx/motif/private.h"
  36
  37 void wxButtonCallback (Widget w, XtPointer clientData, XtPointer ptr);
  38
  39 IMPLEMENT_DYNAMIC_CLASS(wxButton, wxControl)
  40
  41 // Button
  42
  43 bool wxButton::Create(wxWindow *parent, wxWindowID id, const wxString& label,
  44                       const wxPoint& pos,
  45                       const wxSize& size, long style,
  46                       const wxValidator& validator,
  47                       const wxString& name)
  48 {
  49     SetName(name);
  50     SetValidator(validator);
  51     m_windowStyle = style;
  52     m_backgroundColour = parent->GetBackgroundColour();
  53     m_foregroundColour = parent->GetForegroundColour();
  54     m_font = parent->GetFont();
  55
  56     parent->AddChild((wxButton *)this);
  57
  58     if (id == -1)
  59         m_windowId = NewControlId();
  60     else
  61         m_windowId = id;
  62
  63     wxString label1(wxStripMenuCodes(label));
  64
  65     XmString text = XmStringCreateSimple ((char*) (const char*) label1);
  66     Widget parentWidget = (Widget) parent->GetClientWidget();
  67
  68     XmFontList fontList = (XmFontList) m_font.GetFontList(1.0, XtDisplay(parentWidget));
  69
  70     /*
  71     * Patch Note (important)
  72     * There is no major reason to put a defaultButtonThickness here.
  73     * Not requesting it give the ability to put wxButton with a spacing
  74     * as small as requested. However, if some button become a DefaultButton,
  75     * other buttons are no more aligned -- This is why we set
  76     * defaultButtonThickness of ALL buttons belonging to the same wxPanel,
  77     * in the ::SetDefaultButton method.
  78     */
  79     m_mainWidget = (WXWidget) XtVaCreateManagedWidget ("button",
  80         xmPushButtonWidgetClass,
  81         parentWidget,
  82         XmNfontList, fontList,
  83         XmNlabelString, text,
  84         //                  XmNdefaultButtonShadowThickness, 1, // See comment for wxButton::SetDefault
  85         NULL);
  86
  87     XmStringFree (text);
  88
  89     XtAddCallback ((Widget) m_mainWidget, XmNactivateCallback, (XtCallbackProc) wxButtonCallback,
  90         (XtPointer) this);
  91
  92     SetCanAddEventHandler(TRUE);
  93
  94     int x = 0;  int y = 0;
  95     wxFont new_font( parent->GetFont() );
  96     GetTextExtent( label1, &x, &y, (int*)NULL, (int*)NULL, &new_font );
  97
  98     wxSize newSize = size;
  99     if (newSize.x == -1) newSize.x = 30+x;
 100     if (newSize.y == -1) newSize.y = 27+y;
 101     SetSize( newSize.x, newSize.y );
 102
 103     AttachWidget (parent, m_mainWidget, (WXWidget) NULL, pos.x, pos.y, newSize.x, newSize.y);
 104
 105     ChangeBackgroundColour();
 106
 107     return TRUE;
 108 }
 109
 110 void wxButton::SetDefault()
 111 {
 112     wxWindow *parent = GetParent();
 113     wxPanel *panel = wxDynamicCast(parent, wxPanel);
 114     if ( panel )
 115         panel->SetDefaultItem(this);
 116
 117     // We initially do not set XmNdefaultShadowThickness, to have small buttons.
 118     // Unfortunately, buttons are now mis-aligned. We try to correct this
 119     // now -- setting this ressource to 1 for each button in the same row.
 120     // Because it's very hard to find wxButton in the same row,
 121     // correction is straighforward: we set resource for all wxButton
 122     // in this parent (but not sub panels)
 123     for (wxNode * node = parent->GetChildren().First (); node; node = node->Next ())
 124     {
 125         wxButton *item = (wxButton *) node->Data ();
 126         if (item->IsKindOf(CLASSINFO(wxButton)))
 127         {
 128             bool managed = XtIsManaged((Widget) item->GetMainWidget());
 129             if (managed)
 130                 XtUnmanageChild ((Widget) item->GetMainWidget());
 131
 132             XtVaSetValues ((Widget) item->GetMainWidget(),
 133                 XmNdefaultButtonShadowThickness, 1,
 134                 NULL);
 135
 136             if (managed)
 137                 XtManageChild ((Widget) item->GetMainWidget());
 138         }
 139     } // while
 140
 141     //  XtVaSetValues((Widget)handle, XmNshowAsDefault, 1, NULL);
 142     XtVaSetValues ((Widget) parent->GetMainWidget(), XmNdefaultButton, (Widget) GetMainWidget(), NULL);
 143 }
 144
 145 /* static */
 146 wxSize wxButton::GetDefaultSize()
 147 {
 148     // TODO: check font size as in wxMSW ?  MB
 149     //
 150     return wxSize(80,26);
 151 }
 152
 153 void wxButton::Command (wxCommandEvent & event)
 154 {
 155     ProcessCommand (event);
 156 }
 157
 158 void wxButtonCallback (Widget w, XtPointer clientData, XtPointer WXUNUSED(ptr))
 159 {
 160     if (!wxGetWindowFromTable(w))
 161         // Widget has been deleted!
 162         return;
 163
 164     wxButton *item = (wxButton *) clientData;
 165     wxCommandEvent event (wxEVT_COMMAND_BUTTON_CLICKED, item->GetId());
 166     event.SetEventObject(item);
 167     item->ProcessCommand (event);
 168 }
 169
 170 void wxButton::ChangeFont(bool keepOriginalSize)
 171 {
 172     wxWindow::ChangeFont(keepOriginalSize);
 173 }
 174
 175 void wxButton::ChangeBackgroundColour()
 176 {
 177     DoChangeBackgroundColour(m_mainWidget, m_backgroundColour, TRUE);
 178 }
 179
 180 void wxButton::ChangeForegroundColour()
 181 {
 182     wxWindow::ChangeForegroundColour();
 183 }
 184