- 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));
-
- m_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);
+ Widget borderWidget =
+ (Widget) wxCreateBorderWidget( (WXWidget)parentWidget, style );
+ wxXmString text( wxStripMenuCodes( label ) );
+
+ m_labelWidget =
+ XtVaCreateManagedWidget (wxConstCast(name.c_str(), char),
+ xmLabelWidgetClass,
+ borderWidget ? borderWidget : parentWidget,
+ wxFont::GetFontTag(), m_font.GetFontTypeC(XtDisplay(parentWidget)),
+ XmNlabelString, text(),
+ XmNalignment, ((style & wxALIGN_RIGHT) ? XmALIGNMENT_END :
+ ((style & wxALIGN_CENTRE) ? XmALIGNMENT_CENTER :
+ XmALIGNMENT_BEGINNING)),
+ NULL);