- Widget borderWidget = NULL;
-
- // Decorate the label widget if a border style is specified.
- if (style & wxSIMPLE_BORDER)
- {
- borderWidget = XtVaCreateManagedWidget
- (
- "simpleBorder",
- xmFrameWidgetClass, parentWidget,
- XmNshadowType, XmSHADOW_ETCHED_IN,
- XmNshadowThickness, 1,
- NULL
- );
- } else if (style & wxSUNKEN_BORDER)
- {
- borderWidget = XtVaCreateManagedWidget
- (
- "sunkenBorder",
- xmFrameWidgetClass, parentWidget,
- XmNshadowType, XmSHADOW_IN,
- NULL
- );
- } else if (style & wxRAISED_BORDER)
- {
- borderWidget = XtVaCreateManagedWidget
- (
- "raisedBorder",
- xmFrameWidgetClass, parentWidget,
- XmNshadowType, XmSHADOW_OUT,
- NULL
- );
- }
-
-#if 0 // gcc 2.95 doesn't like this apparently
- // Use XmStringCreateLtoR(), since XmStringCreateSimple
- // doesn't obey separators.
-// XmString text = XmStringCreateSimple (label1);
- XmString text = XmStringCreateLtoR (label1, XmSTRING_DEFAULT_CHARSET);
-#endif // 0
-
- XmString text = XmStringCreateLtoR ((char *)(const char*)label, XmSTRING_DEFAULT_CHARSET);
-
- XmFontList fontList = (XmFontList) m_font.GetFontList(1.0, XtDisplay(parentWidget));
-
- Widget labelWidget = XtVaCreateManagedWidget ((char*) (const char*) name,
- xmLabelWidgetClass,
- borderWidget ? borderWidget : parentWidget,
- XmNfontList, fontList,
- XmNlabelString, text,
- XmNalignment,
- ((style & wxALIGN_RIGHT) ? XmALIGNMENT_END :
- ((style & wxALIGN_CENTRE) ? XmALIGNMENT_CENTER :
- XmALIGNMENT_BEGINNING)),
- NULL);
-
- XmStringFree (text);
-
- m_mainWidget = borderWidget ? borderWidget : labelWidget;
-
- SetCanAddEventHandler(TRUE);
- AttachWidget (parent, m_mainWidget, (WXWidget) NULL, pos.x, pos.y, size.x, size.y);
-
- ChangeBackgroundColour ();
-
- return TRUE;