// Licence: wxWindows licence
/////////////////////////////////////////////////////////////////////////////
-#ifdef __GNUG__
+#if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
#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;
- m_callback = 0;
+
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.
- wxPanel *panel = wxDynamicCast(GetParent(), wxPanel);
- if (panel)
- {
- if (panel->GetDefaultItem() == this)
- panel->SetDefaultItem((wxButton*) NULL);
- }
+ bool ret = wxWindow::Create(parent, id, pos, size, style, name);
+
+#if wxUSE_VALIDATORS
+ SetValidator(validator);
+#endif
+
+ return ret;
+}
+
+bool wxControl::CreateControl(wxWindow *parent,
+ wxWindowID id,
+ const wxPoint& pos,
+ const wxSize& size,
+ long style,
+ const wxValidator& validator,
+ const wxString& name)
+{
+ if( !wxControlBase::CreateControl( parent, id, pos, size, style,
+ validator, name ) )
+ return FALSE;
+
+ m_backgroundColour = parent->GetBackgroundColour();
+ m_foregroundColour = parent->GetForegroundColour();
+ m_font = parent->GetFont();
+
+ return TRUE;
}
void wxControl::SetLabel(const wxString& label)
if (!widget)
return;
- wxStripMenuCodes((char*) (const char*) label, wxBuffer);
+ wxXmString label_str(wxStripMenuCodes(label));
- XmString text = XmStringCreateSimple (wxBuffer);
XtVaSetValues (widget,
- XmNlabelString, text,
+ XmNlabelString, label_str(),
XmNlabelType, XmSTRING,
NULL);
- XmStringFree (text);
}
wxString wxControl::GetLabel() const
if (!widget)
return wxEmptyString;
- XmString text;
- char *s;
+ XmString text = NULL;
XtVaGetValues (widget,
XmNlabelString, &text,
NULL);
- if (XmStringGetLtoR (text, XmSTRING_DEFAULT_CHARSET, &s))
- {
- wxString str(s);
- XtFree (s);
- XmStringFree(text);
- return str;
- }
- else
- {
- // XmStringFree(text);
- return wxEmptyString;
- }
+ return wxXmStringToString( text );
}
-void wxControl::ProcessCommand (wxCommandEvent & event)
+bool 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)
- {
- (void) (*(m_callback)) (*this, event);
- }
- else
- {
- GetEventHandler()->OnCommand(*this, event);
- }
+ return GetEventHandler()->ProcessEvent(event);
}
-
-void wxControl::Centre (int direction)
-{
- 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 (direction & wxVERTICAL)
- new_y = (int) ((panel_height - height) / 2);
-
- SetSize (new_x, new_y, width, height);
-}
-