]> git.saurik.com Git - wxWidgets.git/blob - src/motif/control.cpp
fixed compilation for wxBase
[wxWidgets.git] / src / motif / control.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: control.cpp
3 // Purpose: wxControl class
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 "control.h"
14 #endif
15
16 #include "wx/defs.h"
17
18 #include "wx/control.h"
19 #include "wx/panel.h"
20 #include "wx/utils.h"
21
22 #ifdef __VMS__
23 #pragma message disable nosimpint
24 #endif
25 #include <Xm/Xm.h>
26 #ifdef __VMS__
27 #pragma message enable nosimpint
28 #endif
29
30 #include "wx/motif/private.h"
31
32 IMPLEMENT_ABSTRACT_CLASS(wxControl, wxWindow)
33
34 BEGIN_EVENT_TABLE(wxControl, wxWindow)
35 END_EVENT_TABLE()
36
37 // Item members
38 wxControl::wxControl()
39 {
40 m_backgroundColour = *wxWHITE;
41 m_foregroundColour = *wxBLACK;
42
43 #if WXWIN_COMPATIBILITY
44 m_callback = 0;
45 #endif // WXWIN_COMPATIBILITY
46
47 m_inSetValue = FALSE;
48 }
49
50 bool wxControl::Create( wxWindow *parent,
51 wxWindowID id,
52 const wxPoint &pos,
53 const wxSize &size,
54 long style,
55 const wxValidator& validator,
56 const wxString &name)
57 {
58 bool ret = wxWindow::Create(parent, id, pos, size, style, name);
59
60 #if wxUSE_VALIDATORS
61 SetValidator(validator);
62 #endif
63
64 return ret;
65 }
66
67 void wxControl::SetLabel(const wxString& label)
68 {
69 Widget widget = (Widget) GetLabelWidget() ;
70 if (!widget)
71 return;
72
73 wxString buf(wxStripMenuCodes(label));
74 wxXmString label_str(buf);
75
76 XtVaSetValues (widget,
77 XmNlabelString, label_str(),
78 XmNlabelType, XmSTRING,
79 NULL);
80 }
81
82 wxString wxControl::GetLabel() const
83 {
84 Widget widget = (Widget) GetLabelWidget() ;
85 if (!widget)
86 return wxEmptyString;
87
88 XmString text;
89 char *s;
90 XtVaGetValues (widget,
91 XmNlabelString, &text,
92 NULL);
93
94 if (XmStringGetLtoR (text, XmSTRING_DEFAULT_CHARSET, &s))
95 {
96 wxString str(s);
97 XtFree (s);
98 XmStringFree(text);
99 return str;
100 }
101 else
102 {
103 // XmStringFree(text);
104 return wxEmptyString;
105 }
106 }
107
108 bool wxControl::ProcessCommand(wxCommandEvent & event)
109 {
110 #if WXWIN_COMPATIBILITY
111 if ( m_callback )
112 {
113 (void)(*m_callback)(this, event);
114
115 return TRUE;
116 }
117 else
118 #endif // WXWIN_COMPATIBILITY
119
120 return GetEventHandler()->ProcessEvent(event);
121 }