src/motif/control.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        control.cpp
   3 // Purpose:     wxControl class
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     17/09/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #ifdef __GNUG__
  13 #pragma implementation "control.h"
  14 #endif
  15
  16 #include "wx/defs.h"
  17
  18 #include "wx/control.h"
  19 #include "wx/panel.h"
  20 #include "wx/utils.h"
  21
  22 #ifdef __VMS__
  23 #pragma message disable nosimpint
  24 #endif
  25 #include <Xm/Xm.h>
  26 #ifdef __VMS__
  27 #pragma message enable nosimpint
  28 #endif
  29
  30 #include "wx/motif/private.h"
  31
  32 IMPLEMENT_ABSTRACT_CLASS(wxControl, wxWindow)
  33
  34 BEGIN_EVENT_TABLE(wxControl, wxWindow)
  35 END_EVENT_TABLE()
  36
  37 // Item members
  38 wxControl::wxControl()
  39 {
  40     m_backgroundColour = *wxWHITE;
  41     m_foregroundColour = *wxBLACK;
  42
  43 #if WXWIN_COMPATIBILITY
  44     m_callback = 0;
  45 #endif // WXWIN_COMPATIBILITY
  46
  47     m_inSetValue = FALSE;
  48 }
  49
  50 bool wxControl::Create( wxWindow *parent,
  51                       wxWindowID id,
  52                       const wxPoint &pos,
  53                       const wxSize &size,
  54                       long style,
  55                       const wxValidator& validator,
  56                       const wxString &name)
  57 {
  58     bool ret = wxWindow::Create(parent, id, pos, size, style, name);
  59
  60 #if wxUSE_VALIDATORS
  61     SetValidator(validator);
  62 #endif
  63
  64     return ret;
  65 }
  66
  67 void wxControl::SetLabel(const wxString& label)
  68 {
  69     Widget widget = (Widget) GetLabelWidget() ;
  70     if (!widget)
  71         return;
  72
  73     wxString buf(wxStripMenuCodes(label));
  74     wxXmString label_str(buf);
  75
  76     XtVaSetValues (widget,
  77         XmNlabelString, label_str(),
  78         XmNlabelType, XmSTRING,
  79         NULL);
  80 }
  81
  82 wxString wxControl::GetLabel() const
  83 {
  84     Widget widget = (Widget) GetLabelWidget() ;
  85     if (!widget)
  86         return wxEmptyString;
  87
  88     XmString text;
  89     char *s;
  90     XtVaGetValues (widget,
  91         XmNlabelString, &text,
  92         NULL);
  93
  94     if (XmStringGetLtoR (text, XmSTRING_DEFAULT_CHARSET, &s))
  95     {
  96         wxString str(s);
  97         XtFree (s);
  98         XmStringFree(text);
  99         return str;
 100     }
 101     else
 102     {
 103       //        XmStringFree(text);
 104         return wxEmptyString;
 105     }
 106 }
 107
 108 bool wxControl::ProcessCommand(wxCommandEvent & event)
 109 {
 110 #if WXWIN_COMPATIBILITY
 111     if ( m_callback )
 112     {
 113         (void)(*m_callback)(this, event);
 114
 115         return TRUE;
 116     }
 117     else
 118 #endif // WXWIN_COMPATIBILITY
 119
 120     return GetEventHandler()->ProcessEvent(event);
 121 }