Motif additions

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@868 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
Julian Smart
1998-10-18 22:31:48 +00:00
parent 02847e5984
commit a4294b7832
61 changed files with 1919 additions and 650 deletions

View File

@@ -31,6 +31,7 @@ wxControl::wxControl()
m_backgroundColour = *wxWHITE;
m_foregroundColour = *wxBLACK;
m_callback = 0;
m_inSetValue = FALSE;
}
wxControl::~wxControl()
@@ -47,41 +48,43 @@ wxControl::~wxControl()
void wxControl::SetLabel(const wxString& label)
{
if (!GetMainWidget())
return;
Widget widget = (Widget) GetLabelWidget() ;
if (!widget)
return;
wxStripMenuCodes((char*) (const char*) label, wxBuffer);
wxStripMenuCodes((char*) (const char*) label, wxBuffer);
XmString text = XmStringCreateSimple (wxBuffer);
XtVaSetValues ((Widget) GetMainWidget(),
XmNlabelString, text,
XmNlabelType, XmSTRING,
XmString text = XmStringCreateSimple (wxBuffer);
XtVaSetValues (widget,
XmNlabelString, text,
XmNlabelType, XmSTRING,
NULL);
XmStringFree (text);
XmStringFree (text);
}
wxString wxControl::GetLabel() const
{
if (!GetMainWidget())
return wxEmptyString;
Widget widget = (Widget) GetLabelWidget() ;
if (!widget)
return wxEmptyString;
XmString text;
char *s;
XtVaGetValues ((Widget) GetMainWidget(),
XmString text;
char *s;
XtVaGetValues (widget,
XmNlabelString, &text,
NULL);
if (XmStringGetLtoR (text, XmSTRING_DEFAULT_CHARSET, &s))
if (XmStringGetLtoR (text, XmSTRING_DEFAULT_CHARSET, &s))
{
wxString str(s);
XtFree (s);
XmStringFree(text);
return str;
wxString str(s);
XtFree (s);
XmStringFree(text);
return str;
}
else
else
{
XmStringFree(text);
return wxEmptyString;
XmStringFree(text);
return wxEmptyString;
}
}