src/motif/stattext.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/motif/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 // For compilers that support precompilation, includes "wx.h".
  13 #include "wx/wxprec.h"
  14
  15 #ifdef __VMS
  16 #define XtDisplay XTDISPLAY
  17 #endif
  18
  19 #if wxUSE_STATTEXT
  20
  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( wxStripMenuCodes( label ) );
  51
  52     m_labelWidget =
  53         XtVaCreateManagedWidget (wxConstCast(name.c_str(), char),
  54             xmLabelWidgetClass,
  55             borderWidget ? borderWidget : parentWidget,
  56             wxFont::GetFontTag(), m_font.GetFontTypeC(XtDisplay(parentWidget)),
  57             XmNlabelString, text(),
  58             XmNalignment, ((style & wxALIGN_RIGHT)  ? XmALIGNMENT_END :
  59                           ((style & wxALIGN_CENTRE) ? XmALIGNMENT_CENTER :
  60                                                       XmALIGNMENT_BEGINNING)),
  61             XmNrecomputeSize, ((style & wxST_NO_AUTORESIZE) ? TRUE : FALSE),
  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         XtVaSetValues(widget,
  82             XmNlabelString, label_str(),
  83             XmNlabelType, XmSTRING,
  84             NULL);
  85 }
  86
  87 #endif // wxUSE_STATTEXT