// Created: 17/09/98
// RCS-ID: $Id$
// Copyright: (c) Julian Smart
-// Licence: wxWindows licence
+// Licence: wxWindows licence
/////////////////////////////////////////////////////////////////////////////
#ifdef __GNUG__
#pragma implementation "control.h"
#endif
+#include "wx/defs.h"
+
#include "wx/control.h"
+#include "wx/panel.h"
+#include "wx/utils.h"
+
+#ifdef __VMS__
+#pragma message disable nosimpint
+#endif
+#include <Xm/Xm.h>
+#ifdef __VMS__
+#pragma message enable nosimpint
+#endif
+
+#include "wx/motif/private.h"
-#if !USE_SHARED_LIBRARY
IMPLEMENT_ABSTRACT_CLASS(wxControl, wxWindow)
BEGIN_EVENT_TABLE(wxControl, wxWindow)
END_EVENT_TABLE()
-#endif
// Item members
wxControl::wxControl()
{
m_backgroundColour = *wxWHITE;
m_foregroundColour = *wxBLACK;
+
+#if WXWIN_COMPATIBILITY
m_callback = 0;
+#endif // WXWIN_COMPATIBILITY
+
+ m_inSetValue = FALSE;
}
-wxControl::~wxControl()
+bool wxControl::Create( wxWindow *parent,
+ wxWindowID id,
+ const wxPoint &pos,
+ const wxSize &size,
+ long style,
+ const wxValidator& validator,
+ const wxString &name)
{
- // If we delete an item, we should initialize the parent panel,
- // because it could now be invalid.
- wxWindow *parent = (wxWindow *)GetParent();
- if (parent)
- {
- if (parent->GetDefaultItem() == (wxButton*) this)
- parent->SetDefaultItem(NULL);
- }
+ bool ret = wxWindow::Create(parent, id, pos, size, style, name);
+
+#if wxUSE_VALIDATORS
+ SetValidator(validator);
+#endif
+
+ return ret;
}
void wxControl::SetLabel(const wxString& label)
{
- // TODO
+ Widget widget = (Widget) GetLabelWidget() ;
+ if (!widget)
+ return;
+
+ wxString buf(wxStripMenuCodes(label));
+ wxXmString label_str(buf);
+
+ XtVaSetValues (widget,
+ XmNlabelString, label_str(),
+ XmNlabelType, XmSTRING,
+ NULL);
}
wxString wxControl::GetLabel() const
{
- // TODO
- return wxString("");
-}
+ Widget widget = (Widget) GetLabelWidget() ;
+ if (!widget)
+ return wxEmptyString;
-void wxControl::ProcessCommand (wxCommandEvent & event)
-{
- // Tries:
- // 1) A callback function (to become obsolete)
- // 2) OnCommand, starting at this window and working up parent hierarchy
- // 3) OnCommand then calls ProcessEvent to search the event tables.
- if (m_callback)
+ XmString text;
+ char *s;
+ XtVaGetValues (widget,
+ XmNlabelString, &text,
+ NULL);
+
+ if (XmStringGetLtoR (text, XmSTRING_DEFAULT_CHARSET, &s))
{
- (void) (*(m_callback)) (*this, event);
+ wxString str(s);
+ XtFree (s);
+ XmStringFree(text);
+ return str;
}
else
{
- GetEventHandler()->OnCommand(*this, event);
+ // XmStringFree(text);
+ return wxEmptyString;
}
}
-void wxControl::Centre (int direction)
+bool wxControl::ProcessCommand(wxCommandEvent & event)
{
- int x, y, width, height, panel_width, panel_height, new_x, new_y;
-
- wxWindow *parent = (wxWindow *) GetParent ();
- if (!parent)
- return;
-
- parent->GetClientSize (&panel_width, &panel_height);
- GetSize (&width, &height);
- GetPosition (&x, &y);
-
- new_x = x;
- new_y = y;
-
- if (direction & wxHORIZONTAL)
- new_x = (int) ((panel_width - width) / 2);
+#if WXWIN_COMPATIBILITY
+ if ( m_callback )
+ {
+ (void)(*m_callback)(this, event);
- if (direction & wxVERTICAL)
- new_y = (int) ((panel_height - height) / 2);
+ return TRUE;
+ }
+ else
+#endif // WXWIN_COMPATIBILITY
- SetSize (new_x, new_y, width, height);
+ return GetEventHandler()->ProcessEvent(event);
}
-