Widget parentWidget = (Widget) parent->GetClientWidget();
- bool wantHorizScrolling = ((m_windowStyle & wxHSCROLL) != 0);
-
+ Bool wantHorizScroll = (m_windowStyle & wxHSCROLL) != 0 ? True : False;
// If we don't have horizontal scrollbars, we want word wrap.
- bool wantWordWrap = !wantHorizScrolling;
+ // OpenMotif 2.1 crashes if wantWordWrap is True in Japanese
+ // locale (and probably other multibyte locales). The check might be
+ // more precise
+#if wxCHECK_LESSTIF() || wxCHECK_MOTIF_VERSION( 2, 2 )
+ Bool wantWordWrap = wantHorizScroll == True ? False : True;
+#else
+ Bool wantWordWrap = False;
+#endif
if (m_windowStyle & wxTE_MULTILINE)
{
- Arg args[2];
- XtSetArg (args[0], XmNscrollHorizontal, wantHorizScrolling ? True : False);
- XtSetArg (args[1], XmNwordWrap, wantWordWrap ? True : False);
-
- m_mainWidget = (WXWidget) XmCreateScrolledText(parentWidget,
- wxConstCast(name.c_str(), char),
- args, 2);
-
- XtVaSetValues ((Widget) m_mainWidget,
- XmNeditable, ((style & wxTE_READONLY) ? False : True),
- XmNeditMode, XmMULTI_LINE_EDIT,
- NULL);
+ Arg args[8];
+ int count = 0;
+ XtSetArg (args[count], XmNscrollHorizontal, wantHorizScroll); ++count;
+ XtSetArg (args[count], (String) wxFont::GetFontTag(),
+ m_font.GetFontType( XtDisplay(parentWidget) ) ); ++count;
+ XtSetArg (args[count], XmNwordWrap, wantWordWrap); ++count;
+ XtSetArg (args[count], XmNvalue, value.c_str()); ++count;
+ XtSetArg (args[count], XmNeditable,
+ style & wxTE_READONLY ? False : True); ++count;
+ XtSetArg (args[count], XmNeditMode, XmMULTI_LINE_EDIT ); ++count;
+
+ m_mainWidget =
+ (WXWidget) XmCreateScrolledText(parentWidget,
+ wxConstCast(name.c_str(), char),
+ args, count);
+
XtManageChild ((Widget) m_mainWidget);
}
else
wxConstCast(name.c_str(), char),
xmTextWidgetClass,
parentWidget,
+ wxFont::GetFontTag(), m_font.GetFontType( XtDisplay(parentWidget) ),
+ XmNvalue, value.c_str(),
+ XmNeditable, (style & wxTE_READONLY) ?
+ False : True,
NULL
);
- XtVaSetValues ((Widget) m_mainWidget,
- XmNeditable, ((style & wxTE_READONLY) ? False : True),
- NULL);
-
+#if 0
// TODO: Is this relevant? What does it do?
int noCols = 2;
if (!value.IsNull() && (value.Length() > (unsigned int) noCols))
XtVaSetValues((Widget) m_mainWidget,
XmNcolumns, noCols,
NULL);
+#endif
}
// remove border if asked for
NULL);
}
- if ( !value.empty() )
- {
- // do this instead... MB
- //
- XtVaSetValues( (Widget) m_mainWidget,
- XmNvalue, wxConstCast(value.c_str(), char),
- NULL);
- }
-
// install callbacks
XtAddCallback((Widget) m_mainWidget, XmNvalueChangedCallback, (XtCallbackProc)wxTextWindowChangedProc, (XtPointer)this);
XtAddCallback((Widget) m_mainWidget, XmNlosingFocusCallback, (XtCallbackProc)wxTextWindowLoseFocusProc, (XtPointer)this);
- // font
- ChangeFont(false);
-
- wxSize best = GetBestSize();
- if( size.x != -1 ) best.x = size.x;
- if( size.y != -1 ) best.y = size.y;
-
AttachWidget (parent, m_mainWidget, (WXWidget) NULL,
- pos.x, pos.y, best.x, best.y);
+ pos.x, pos.y, size.x, size.y);
ChangeBackgroundColour();
return str;
}
-void wxTextCtrl::SetValue(const wxString& value)
+void wxTextCtrl::SetValue(const wxString& text)
{
m_inSetValue = true;
- // do this instead... MB
- //
- // with (at least) OpenMotif 2.1 this causes a lot of flicker
-#if 0
- XtVaSetValues( (Widget) m_mainWidget,
- XmNvalue, wxConstCast(value.c_str(), char),
+ XmTextSetString ((Widget) m_mainWidget, wxConstCast(text.c_str(), char));
+ XtVaSetValues ((Widget) m_mainWidget,
+ XmNcursorPosition, text.length(),
NULL);
-#endif
- Clear();
- AppendText( value );
+ SetInsertionPoint(text.length());
+ XmTextShowPosition ((Widget) m_mainWidget, text.length());
+ m_modified = TRUE;
m_inSetValue = false;
}
void wxTextCtrl::WriteText(const wxString& text)
{
- long textPosition = GetInsertionPoint() + strlen (text);
+ long textPosition = GetInsertionPoint() + text.length();
XmTextInsert ((Widget) m_mainWidget, GetInsertionPoint(),
wxConstCast(text.c_str(), char));
XtVaSetValues ((Widget) m_mainWidget, XmNcursorPosition, textPosition, NULL);
void wxTextCtrl::Clear()
{
- XmTextSetString ((Widget) m_mainWidget, "");
+ XmTextSetString ((Widget) m_mainWidget, wxMOTIF_STR(""));
m_modified = false;
}
NULL );
if( !value )
- value = "|";
+ value = wxMOTIF_STR("|");
int x, y;
window->GetTextExtent( value, &x, &y );
- if( x < 100 ) x = 100;
+ if( x < 100 )
+ x = 100;
return wxSize( x + 2 * xmargin + 2 * highlight + 2 * shadow,
// MBN: +2 necessary: Lesstif bug or mine?
wxSize wxTextCtrl::DoGetBestSize() const
{
if( IsSingleLine() )
- return wxDoGetSingleTextCtrlBestSize( (Widget)m_mainWidget, this );
+ {
+ wxSize best = wxControl::DoGetBestSize();
+
+ if( best.x < 110 ) best.x = 110;
+
+ return best;
+ }
else
return wxWindow::DoGetBestSize();
}