]> git.saurik.com Git - wxWidgets.git/blame_incremental - src/motif/button.cpp
Added implementations for two cases of wxSystemSettingsNative::GetMetric to
[wxWidgets.git] / src / motif / button.cpp
... / ...
CommitLineData
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
24#ifdef __VMS__
25#pragma message disable nosimpint
26#endif
27#include <Xm/PushBG.h>
28#include <Xm/PushB.h>
29#ifdef __VMS__
30#pragma message enable nosimpint
31#endif
32
33#include "wx/motif/private.h"
34
35void wxButtonCallback (Widget w, XtPointer clientData, XtPointer ptr);
36
37IMPLEMENT_DYNAMIC_CLASS(wxButton, wxControl)
38
39// Button
40
41bool wxButton::Create(wxWindow *parent, wxWindowID id, const wxString& label,
42 const wxPoint& pos,
43 const wxSize& size, long style,
44 const wxValidator& validator,
45 const wxString& name)
46{
47 if( !CreateControl( parent, id, pos, size, style, validator, name ) )
48 return false;
49
50 wxString label1(wxStripMenuCodes(label));
51 wxXmString text( label1 );
52
53 Widget parentWidget = (Widget) parent->GetClientWidget();
54
55 /*
56 * Patch Note (important)
57 * There is no major reason to put a defaultButtonThickness here.
58 * Not requesting it give the ability to put wxButton with a spacing
59 * as small as requested. However, if some button become a DefaultButton,
60 * other buttons are no more aligned -- This is why we set
61 * defaultButtonThickness of ALL buttons belonging to the same wxPanel,
62 * in the ::SetDefaultButton method.
63 */
64 m_mainWidget = (WXWidget) XtVaCreateManagedWidget ("button",
65 xmPushButtonWidgetClass,
66 parentWidget,
67 wxFont::GetFontTag(), m_font.GetFontType(XtDisplay(parentWidget)),
68 XmNlabelString, text(),
69 XmNrecomputeSize, False,
70 // See comment for wxButton::SetDefault
71 // XmNdefaultButtonShadowThickness, 1,
72 NULL);
73
74 XtAddCallback ((Widget) m_mainWidget,
75 XmNactivateCallback, (XtCallbackProc) wxButtonCallback,
76 (XtPointer) this);
77
78 wxSize best = GetBestSize();
79 if( size.x != -1 ) best.x = size.x;
80 if( size.y != -1 ) best.y = size.y;
81
82 AttachWidget (parent, m_mainWidget, (WXWidget) NULL,
83 pos.x, pos.y, best.x, best.y);
84
85 ChangeBackgroundColour();
86
87 return TRUE;
88}
89
90void wxButton::SetDefaultShadowThicknessAndResize()
91{
92 Widget buttonWidget = (Widget)GetMainWidget();
93 bool managed = XtIsManaged( buttonWidget );
94 if( managed )
95 XtUnmanageChild( buttonWidget );
96
97 XtVaSetValues( buttonWidget,
98 XmNdefaultButtonShadowThickness, 1,
99 NULL );
100
101 if( managed )
102 XtManageChild( buttonWidget );
103
104 // this can't currently be done, because user code that calls SetDefault
105 // will break otherwise
106#if 0
107 wxSize best = GetBestSize(), actual = GetSize();
108 if( best.x < actual.x ) best.x = actual.x;
109 if( best.y < actual.y ) best.y = actual.y;
110
111 if( best != actual )
112 SetSize( best );
113#endif
114}
115
116
117void wxButton::SetDefault()
118{
119 wxWindow *parent = GetParent();
120 if ( parent )
121 parent->SetDefaultItem(this);
122
123 // We initially do not set XmNdefaultShadowThickness, to have
124 // small buttons. Unfortunately, buttons are now mis-aligned. We
125 // try to correct this now -- setting this ressource to 1 for each
126 // button in the same row. Because it's very hard to find
127 // wxButton in the same row, correction is straighforward: we set
128 // resource for all wxButton in this parent (but not sub panels)
129
130 for (wxWindowList::compatibility_iterator node = parent->GetChildren().GetFirst ();
131 node; node = node->GetNext ())
132 {
133 wxWindow *win = node->GetData ();
134 wxButton *item = wxDynamicCast(win, wxButton);
135 if (item)
136 item->SetDefaultShadowThicknessAndResize();
137 }
138
139 XtVaSetValues ((Widget) parent->GetMainWidget(),
140 XmNdefaultButton, (Widget) GetMainWidget(),
141 NULL);
142}
143
144/* static */
145wxSize wxButton::GetDefaultSize()
146{
147 // TODO: check font size as in wxMSW ? MB
148 // Note: this is the button size (text + margin + shadow + defaultBorder)
149 return wxSize(78,30);
150}
151
152wxSize wxButton::DoGetBestSize() const
153{
154 Dimension xmargin, ymargin, highlight, shadow, defThickness;
155
156 XtVaGetValues( (Widget)m_mainWidget,
157 XmNmarginWidth, &xmargin,
158 XmNmarginHeight, &ymargin,
159 XmNhighlightThickness, &highlight,
160 XmNshadowThickness, &shadow,
161 XmNdefaultButtonShadowThickness, &defThickness,
162 NULL );
163
164 int x = 0; int y = 0;
165 GetTextExtent( GetLabel(), &x, &y );
166
167 int margin = highlight * 2 +
168 ( defThickness ? ( ( shadow + defThickness ) * 4 ) : ( shadow * 2 ) );
169 wxSize best( x + xmargin * 2 + margin,
170 y + ymargin * 2 + margin );
171
172 // all buttons have at least the standard size unless the user explicitly
173 // wants them to be of smaller size and used wxBU_EXACTFIT style when
174 // creating the button
175 if( !HasFlag( wxBU_EXACTFIT ) )
176 {
177 wxSize def = GetDefaultSize();
178 int margin = highlight * 2 +
179 ( defThickness ? ( shadow * 4 + defThickness * 4 ) : 0 );
180 def.x += margin;
181 def.y += margin;
182
183 if( def.x > best.x )
184 best.x = def.x;
185 if( def.y > best.y )
186 best.y = def.y;
187 }
188
189 return best;
190}
191
192void wxButton::Command (wxCommandEvent & event)
193{
194 ProcessCommand (event);
195}
196
197void wxButtonCallback (Widget w, XtPointer clientData, XtPointer WXUNUSED(ptr))
198{
199 if (!wxGetWindowFromTable(w))
200 // Widget has been deleted!
201 return;
202
203 wxButton *item = (wxButton *) clientData;
204 wxCommandEvent event (wxEVT_COMMAND_BUTTON_CLICKED, item->GetId());
205 event.SetEventObject(item);
206 item->ProcessCommand (event);
207}