#include "wx/radiobut.h"
#include "wx/utils.h"
+#ifdef __VMS__
+#pragma message disable nosimpint
+#endif
#include <Xm/Label.h>
#include <Xm/LabelG.h>
#include <Xm/ToggleB.h>
#include <Xm/ToggleBG.h>
#include <Xm/RowColumn.h>
#include <Xm/Form.h>
+#ifdef __VMS__
+#pragma message enable nosimpint
+#endif
-#include <wx/motif/private.h>
+#include "wx/motif/private.h"
void wxRadioButtonCallback (Widget w, XtPointer clientData,
- XmToggleButtonCallbackStruct * cbs);
+ XmToggleButtonCallbackStruct * cbs);
-#if !USE_SHARED_LIBRARY
IMPLEMENT_DYNAMIC_CLASS(wxRadioButton, wxControl)
-#endif
wxRadioButton::wxRadioButton()
{
}
bool wxRadioButton::Create(wxWindow *parent, wxWindowID id,
- const wxString& label,
- const wxPoint& pos,
- const wxSize& size, long style,
- const wxValidator& validator,
- const wxString& name)
+ const wxString& label,
+ const wxPoint& pos,
+ const wxSize& size, long style,
+ const wxValidator& validator,
+ const wxString& name)
{
SetName(name);
SetValidator(validator);
m_backgroundColour = parent->GetBackgroundColour();
m_foregroundColour = parent->GetForegroundColour();
- m_windowFont = parent->GetFont();
+ m_font = parent->GetFont();
if (parent) parent->AddChild(this);
if ( id == -1 )
- m_windowId = (int)NewControlId();
+ m_windowId = (int)NewControlId();
else
- m_windowId = id;
+ m_windowId = id;
m_windowStyle = style ;
XmString text = XmStringCreateSimple ((char*) (const char*) label1);
- XmFontList fontList = (XmFontList) m_windowFont.GetFontList(1.0, XtDisplay(parentWidget));
+ XmFontList fontList = (XmFontList) m_font.GetFontList(1.0, XtDisplay(parentWidget));
Widget radioButtonWidget = XtVaCreateManagedWidget ("toggle",
#if wxUSE_GADGETS
- xmToggleButtonGadgetClass, parentWidget,
+ xmToggleButtonGadgetClass, parentWidget,
#else
- xmToggleButtonWidgetClass, parentWidget,
+ xmToggleButtonWidgetClass, parentWidget,
#endif
- XmNfontList, fontList,
- XmNlabelString, text,
- XmNfillOnSelect, True,
- XmNindicatorType, XmONE_OF_MANY, // diamond-shape
- NULL);
+ XmNfontList, fontList,
+ XmNlabelString, text,
+ XmNfillOnSelect, True,
+ XmNindicatorType, XmONE_OF_MANY, // diamond-shape
+ NULL);
XmStringFree (text);
+#ifdef __VMS__
+#pragma message disable voiincconext
+ // VMS gives here the compiler warning:
+ // conversion from pointer to function to void* permitted
+ // as an extension
+#endif
XtAddCallback (radioButtonWidget, XmNvalueChangedCallback, (XtCallbackProc) wxRadioButtonCallback,
- (XtCallbackProc) this);
+ (XtCallbackProc) this);
+#ifdef __VMS__
+#pragma message enable voiincconext
+#endif
m_mainWidget = (WXWidget) radioButtonWidget;
void wxRadioButton::Command (wxCommandEvent & event)
{
- SetValue ( (event.m_commandInt != 0) );
- ProcessCommand (event);
+ SetValue ( (event.m_commandInt != 0) );
+ ProcessCommand (event);
}
void wxRadioButton::ChangeFont(bool keepOriginalSize)
void wxRadioButton::ChangeBackgroundColour()
{
wxWindow::ChangeBackgroundColour();
+
+ // What colour should this be?
+ int selectPixel = wxBLACK->AllocColour(wxGetDisplay());
+
+ XtVaSetValues ((Widget) GetMainWidget(),
+ XmNselectColor, selectPixel,
+ NULL);
}
void wxRadioButton::ChangeForegroundColour()
}
void wxRadioButtonCallback (Widget w, XtPointer clientData,
- XmToggleButtonCallbackStruct * cbs)
+ XmToggleButtonCallbackStruct * cbs)
{
- if (!cbs->set)
- return;
+ if (!cbs->set)
+ return;
- wxRadioButton *item = (wxRadioButton *) clientData;
- if (item->InSetValue())
- return;
+ wxRadioButton *item = (wxRadioButton *) clientData;
+ if (item->InSetValue())
+ return;
- wxCommandEvent event (wxEVT_COMMAND_RADIOBUTTON_SELECTED, item->GetId());
- event.SetEventObject(item);
+ wxCommandEvent event (wxEVT_COMMAND_RADIOBUTTON_SELECTED, item->GetId());
+ event.SetEventObject(item);
- item->ProcessCommand (event);
+ item->ProcessCommand (event);
}