Derive wxStaticText from wxStaticTextBase, remove dead code/code
[wxWidgets.git] / src / motif / stattext.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: stattext.cpp
3 // Purpose: wxStaticText
4 // Author: Julian Smart
5 // Modified by:
6 // Created: 04/01/98
7 // RCS-ID: $Id$
8 // Copyright: (c) Julian Smart
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
11
12 #ifdef __GNUG__
13 #pragma implementation "stattext.h"
14 #endif
15
16 #ifdef __VMS
17 #define XtDisplay XTDISPLAY
18 #endif
19
20 #include "wx/defs.h"
21 #include "wx/stattext.h"
22
23 #ifdef __VMS__
24 #pragma message disable nosimpint
25 #endif
26 #include <Xm/Label.h>
27 #ifdef __VMS__
28 #pragma message enable nosimpint
29 #endif
30
31 #include "wx/motif/private.h"
32
33 IMPLEMENT_DYNAMIC_CLASS(wxStaticText, wxControl);
34
35 bool wxStaticText::Create(wxWindow *parent, wxWindowID id,
36 const wxString& label,
37 const wxPoint& pos,
38 const wxSize& size,
39 long style,
40 const wxString& name)
41 {
42 if( !CreateControl( parent, id, pos, size, style,
43 wxDefaultValidator, name ) )
44 return false;
45
46 Widget parentWidget = (Widget) parent->GetClientWidget();
47
48 Widget borderWidget =
49 (Widget) wxCreateBorderWidget( (WXWidget)parentWidget, style );
50 wxXmString text( label );
51 WXFontType fontType = m_font.GetFontType(XtDisplay(parentWidget));
52
53 m_labelWidget = XtVaCreateManagedWidget (wxConstCast(name.c_str(), char),
54 xmLabelWidgetClass,
55 borderWidget ? borderWidget : parentWidget,
56 wxFont::GetFontTag(), fontType,
57 XmNlabelString, text(),
58 XmNalignment,
59 ((style & wxALIGN_RIGHT) ? XmALIGNMENT_END :
60 ((style & wxALIGN_CENTRE) ? XmALIGNMENT_CENTER :
61 XmALIGNMENT_BEGINNING)),
62 NULL);
63
64 m_mainWidget = borderWidget ? borderWidget : m_labelWidget;
65
66 AttachWidget (parent, m_mainWidget, (WXWidget) NULL,
67 pos.x, pos.y, size.x, size.y);
68
69 ChangeBackgroundColour ();
70
71 return TRUE;
72 }
73
74 void wxStaticText::SetLabel(const wxString& label)
75 {
76 wxXmString label_str(wxStripMenuCodes(label));
77
78 // This variable means we don't need so many casts later.
79 Widget widget = (Widget) m_labelWidget;
80
81 if (GetWindowStyle() & wxST_NO_AUTORESIZE)
82 {
83 XtUnmanageChild(widget);
84 Dimension width, height;
85 XtVaGetValues(widget, XmNwidth, &width, XmNheight, &height, NULL);
86
87 XtVaSetValues(widget,
88 XmNlabelString, label_str(),
89 XmNlabelType, XmSTRING,
90 NULL);
91 XtVaSetValues(widget,
92 XmNwidth, width,
93 XmNheight, height,
94 NULL);
95 XtManageChild(widget);
96 }
97 else
98 {
99 XtVaSetValues(widget,
100 XmNlabelString, label_str(),
101 XmNlabelType, XmSTRING,
102 NULL);
103 }
104 }