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/app.h"
  21 #include "wx/stattext.h"
  22
  23 #include <stdio.h>
  24
  25 #ifdef __VMS__
  26 #pragma message disable nosimpint
  27 #endif
  28 #include <Xm/Frame.h>
  29 #include <Xm/Label.h>
  30 #include <Xm/LabelG.h>
  31 #include <Xm/PushBG.h>
  32 #ifdef __VMS__
  33 #pragma message enable nosimpint
  34 #endif
  35
  36 #include "wx/motif/private.h"
  37
  38 IMPLEMENT_DYNAMIC_CLASS(wxStaticText, wxControl)
  39
  40 bool wxStaticText::Create(wxWindow *parent, wxWindowID id,
  41            const wxString& label,
  42            const wxPoint& pos,
  43            const wxSize& size,
  44            long style,
  45            const wxString& name)
  46 {
  47     SetName(name);
  48     if (parent) parent->AddChild(this);
  49
  50     m_backgroundColour = parent->GetBackgroundColour();
  51     m_foregroundColour = parent->GetForegroundColour();
  52
  53     if ( id == -1 )
  54               m_windowId = (int)NewControlId();
  55     else
  56             m_windowId = id;
  57
  58     m_windowStyle = style;
  59     m_font = parent->GetFont();
  60
  61 #if 0  // gcc 2.95 doesn't like this apparently
  62     char* label1 = (label.IsNull() ? "" : (char*) (const char*) label);
  63 #endif
  64
  65     Widget parentWidget = (Widget) parent->GetClientWidget();
  66
  67     Widget borderWidget = NULL;
  68
  69     // Decorate the label widget if a border style is specified.
  70     if (style & wxSIMPLE_BORDER)
  71     {
  72         borderWidget = XtVaCreateManagedWidget
  73                                    (
  74                                     "simpleBorder",
  75                                     xmFrameWidgetClass, parentWidget,
  76                                     XmNshadowType, XmSHADOW_ETCHED_IN,
  77                                     XmNshadowThickness, 1,
  78                                     NULL
  79                                    );
  80     } else if (style & wxSUNKEN_BORDER)
  81     {
  82         borderWidget = XtVaCreateManagedWidget
  83                                    (
  84                                     "sunkenBorder",
  85                                     xmFrameWidgetClass, parentWidget,
  86                                     XmNshadowType, XmSHADOW_IN,
  87                                     NULL
  88                                    );
  89     } else if (style & wxRAISED_BORDER)
  90     {
  91         borderWidget = XtVaCreateManagedWidget
  92                                    (
  93                                     "raisedBorder",
  94                                     xmFrameWidgetClass, parentWidget,
  95                                     XmNshadowType, XmSHADOW_OUT,
  96                                     NULL
  97                                    );
  98     }
  99
 100 #if 0 // gcc 2.95 doesn't like this apparently
 101     // Use XmStringCreateLtoR(), since XmStringCreateSimple
 102     // doesn't obey separators.
 103 //    XmString text = XmStringCreateSimple (label1);
 104     XmString text = XmStringCreateLtoR (label1, XmSTRING_DEFAULT_CHARSET);
 105 #endif // 0
 106
 107     XmString text = XmStringCreateLtoR ((char *)(const char*)label, XmSTRING_DEFAULT_CHARSET);
 108
 109     XmFontList fontList = (XmFontList) m_font.GetFontList(1.0, XtDisplay(parentWidget));
 110
 111     m_labelWidget = XtVaCreateManagedWidget ((char*) (const char*) name,
 112                                          xmLabelWidgetClass,
 113                                          borderWidget ? borderWidget : parentWidget,
 114                                          XmNfontList, fontList,
 115                                          XmNlabelString, text,
 116                                          XmNalignment,
 117                      ((style & wxALIGN_RIGHT) ? XmALIGNMENT_END :
 118                      ((style & wxALIGN_CENTRE) ? XmALIGNMENT_CENTER :
 119                      XmALIGNMENT_BEGINNING)),
 120                                          NULL);
 121
 122     XmStringFree (text);
 123
 124     m_mainWidget = borderWidget ? borderWidget : m_labelWidget;
 125
 126     SetCanAddEventHandler(TRUE);
 127     AttachWidget (parent, m_mainWidget, (WXWidget) NULL, pos.x, pos.y, size.x, size.y);
 128
 129     ChangeBackgroundColour ();
 130
 131     return TRUE;
 132 }
 133
 134 void wxStaticText::ChangeFont(bool keepOriginalSize)
 135 {
 136     wxWindow::ChangeFont(keepOriginalSize);
 137 }
 138
 139 void wxStaticText::ChangeBackgroundColour()
 140 {
 141     wxWindow::ChangeBackgroundColour();
 142 }
 143
 144 void wxStaticText::ChangeForegroundColour()
 145 {
 146     wxWindow::ChangeForegroundColour();
 147 }
 148
 149 void wxStaticText::SetLabel(const wxString& label)
 150 {
 151     wxString buf(wxStripMenuCodes(label));
 152     wxXmString label_str(buf);
 153
 154     // This variable means we don't need so many casts later.
 155     Widget widget = (Widget) m_labelWidget;
 156
 157     if (GetWindowStyle() & wxST_NO_AUTORESIZE)
 158     {
 159         XtUnmanageChild(widget);
 160         Dimension width, height;
 161         XtVaGetValues(widget, XmNwidth, &width, XmNheight, &height, NULL);
 162
 163         XtVaSetValues(widget,
 164             XmNlabelString, label_str(),
 165             XmNlabelType, XmSTRING,
 166             NULL);
 167         XtVaSetValues(widget,
 168             XmNwidth, width,
 169             XmNheight, height,
 170             NULL);
 171         XtManageChild(widget);
 172     }
 173     else
 174     {
 175         XtVaSetValues(widget,
 176             XmNlabelString, label_str(),
 177             XmNlabelType, XmSTRING,
 178             NULL);
 179     }
 180 }
 181