#endif
void wxChoiceCallback (Widget w, XtPointer clientData,
- XtPointer ptr);
+ XtPointer ptr);
wxChoice::wxChoice()
{
}
bool wxChoice::Create(wxWindow *parent, wxWindowID id,
- const wxPoint& pos,
- const wxSize& size,
- int n, const wxString choices[],
- long style,
- const wxValidator& validator,
- const wxString& name)
+ const wxPoint& pos,
+ const wxSize& size,
+ int n, const wxString choices[],
+ long style,
+ const wxValidator& validator,
+ const wxString& name)
{
SetName(name);
SetValidator(validator);
m_menuWidget = (WXWidget) 0;
m_widgetList = (WXWidget*) 0;
m_formWidget = (WXWidget) 0;
-
+
if (parent) parent->AddChild(this);
-
+
if ( id == -1 )
- m_windowId = (int)NewControlId();
+ m_windowId = (int)NewControlId();
else
- m_windowId = id;
-
+ m_windowId = id;
+
m_backgroundColour = parent->GetBackgroundColour();
m_foregroundColour = parent->GetForegroundColour();
- m_windowFont = parent->GetFont();
-
+ m_font = parent->GetFont();
+
Widget parentWidget = (Widget) parent->GetClientWidget();
-
+
m_formWidget = (WXWidget) XtVaCreateManagedWidget ((char*) (const char*) name,
- xmRowColumnWidgetClass, parentWidget,
- XmNmarginHeight, 0,
- XmNmarginWidth, 0,
- XmNpacking, XmPACK_TIGHT,
- XmNorientation, XmHORIZONTAL,
- NULL);
-
+ xmRowColumnWidgetClass, parentWidget,
+ XmNmarginHeight, 0,
+ XmNmarginWidth, 0,
+ XmNpacking, XmPACK_TIGHT,
+ XmNorientation, XmHORIZONTAL,
+ NULL);
+
XtVaSetValues ((Widget) m_formWidget, XmNspacing, 0, NULL);
-
- /*
+
+ /*
* Create the popup menu
*/
m_menuWidget = (WXWidget) XmCreatePulldownMenu ((Widget) m_formWidget, "choiceMenu", NULL, 0);
-
-// int i;
+
+ // int i;
if (n > 0)
{
int i;
for (i = 0; i < n; i++)
Append (choices[i]);
}
-
- /*
+
+ /*
* Create button
*/
Arg args[10];
Cardinal argcnt = 0;
-
+
XtSetArg (args[argcnt], XmNsubMenuId, (Widget) m_menuWidget);
argcnt++;
XtSetArg (args[argcnt], XmNmarginWidth, 0);
XtSetArg (args[argcnt], XmNpacking, XmPACK_TIGHT);
argcnt++;
m_buttonWidget = (WXWidget) XmCreateOptionMenu ((Widget) m_formWidget, "choiceButton", args, argcnt);
-
+
m_mainWidget = m_buttonWidget;
-
+
XtManageChild ((Widget) m_buttonWidget);
// New code from Roland Haenel (roland_haenel@ac.cybercity.de)
#if XmVersion >= 1002
#if XmVersion < 2000
Widget optionLabel = XmOptionLabelGadget ((Widget) m_buttonWidget);
- XtUnmanageChild (optionLabel);
+ // JACS, 24/1/99: this seems to cause a malloc crash later on, e.g.
+ // in controls sample.
+ // XtUnmanageChild (optionLabel);
#endif
#endif
XtVaSetValues((Widget) m_formWidget, XmNresizePolicy, XmRESIZE_NONE, NULL);
-
+
ChangeFont(FALSE);
AttachWidget (parent, m_buttonWidget, m_formWidget, pos.x, pos.y, size.x, size.y);
-
+
ChangeBackgroundColour();
-
+
return TRUE;
}
wxChoice::~wxChoice()
{
- // For some reason destroying the menuWidget
- // can cause crashes on some machines. It will
- // be deleted implicitly by deleting the parent form
- // anyway.
-// XtDestroyWidget (menuWidget);
+ // For some reason destroying the menuWidget
+ // can cause crashes on some machines. It will
+ // be deleted implicitly by deleting the parent form
+ // anyway.
+ // XtDestroyWidget (menuWidget);
if (m_widgetList)
delete[] m_widgetList;
-
- DetachWidget(GetMainWidget()); // Removes event handlers
-
- XtDestroyWidget((Widget) m_formWidget);
- m_formWidget = (WXWidget) 0;
-
- // Presumably the other widgets have been deleted now, via the form
- m_mainWidget = (WXWidget) 0;
- m_buttonWidget = (WXWidget) 0;
+
+ if (GetMainWidget())
+ {
+ DetachWidget(GetMainWidget()); // Removes event handlers
+ DetachWidget(m_formWidget);
+
+ XtDestroyWidget((Widget) m_formWidget);
+ m_formWidget = (WXWidget) 0;
+
+ // Presumably the other widgets have been deleted now, via the form
+ m_mainWidget = (WXWidget) 0;
+ m_buttonWidget = (WXWidget) 0;
+ }
}
void wxChoice::Append(const wxString& item)
{
- wxStripMenuCodes ((char *)(const char *)item, wxBuffer);
- Widget w = XtVaCreateManagedWidget (wxBuffer,
+ wxStripMenuCodes ((char *)(const char *)item, wxBuffer);
+ Widget w = XtVaCreateManagedWidget (wxBuffer,
#if USE_GADGETS
- xmPushButtonGadgetClass, (Widget) m_menuWidget,
+ xmPushButtonGadgetClass, (Widget) m_menuWidget,
#else
- xmPushButtonWidgetClass, (Widget) m_menuWidget,
+ xmPushButtonWidgetClass, (Widget) m_menuWidget,
#endif
- NULL);
-
- DoChangeBackgroundColour((WXWidget) w, m_backgroundColour);
-
- if (m_windowFont.Ok())
- XtVaSetValues (w,
- XmNfontList, (XmFontList) m_windowFont.GetFontList(1.0, XtDisplay((Widget) m_formWidget)),
- NULL);
-
- WXWidget *new_widgetList = new WXWidget[m_noStrings + 1];
- int i;
- if (m_widgetList)
- for (i = 0; i < m_noStrings; i++)
- new_widgetList[i] = m_widgetList[i];
-
- new_widgetList[m_noStrings] = (WXWidget) w;
-
- if (m_widgetList)
- delete[] m_widgetList;
- m_widgetList = new_widgetList;
-
- char mnem = wxFindMnemonic ((char*) (const char*) item);
- if (mnem != 0)
- XtVaSetValues (w, XmNmnemonic, mnem, NULL);
-
- XtAddCallback (w, XmNactivateCallback, (XtCallbackProc) wxChoiceCallback, (XtPointer) this);
-
- if (m_noStrings == 0 && m_buttonWidget)
- {
- XtVaSetValues ((Widget) m_buttonWidget, XmNmenuHistory, w, NULL);
- Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
- XmString text = XmStringCreateSimple ((char*) (const char*) item);
- XtVaSetValues (label,
- XmNlabelString, text,
- NULL);
- XmStringFree (text);
- }
- wxNode *node = m_stringList.Add (item);
- XtVaSetValues (w, XmNuserData, node->Data (), NULL);
-
- m_noStrings ++;
+ NULL);
+
+ DoChangeBackgroundColour((WXWidget) w, m_backgroundColour);
+
+ if (m_font.Ok())
+ XtVaSetValues (w,
+ XmNfontList, (XmFontList) m_font.GetFontList(1.0, XtDisplay((Widget) m_formWidget)),
+ NULL);
+
+ WXWidget *new_widgetList = new WXWidget[m_noStrings + 1];
+ int i;
+ if (m_widgetList)
+ for (i = 0; i < m_noStrings; i++)
+ new_widgetList[i] = m_widgetList[i];
+
+ new_widgetList[m_noStrings] = (WXWidget) w;
+
+ if (m_widgetList)
+ delete[] m_widgetList;
+ m_widgetList = new_widgetList;
+
+ char mnem = wxFindMnemonic ((char*) (const char*) item);
+ if (mnem != 0)
+ XtVaSetValues (w, XmNmnemonic, mnem, NULL);
+
+ XtAddCallback (w, XmNactivateCallback, (XtCallbackProc) wxChoiceCallback, (XtPointer) this);
+
+ if (m_noStrings == 0 && m_buttonWidget)
+ {
+ XtVaSetValues ((Widget) m_buttonWidget, XmNmenuHistory, w, NULL);
+ Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
+ XmString text = XmStringCreateSimple ((char*) (const char*) item);
+ XtVaSetValues (label,
+ XmNlabelString, text,
+ NULL);
+ XmStringFree (text);
+ }
+ wxNode *node = m_stringList.Add (item);
+ XtVaSetValues (w, XmNuserData, node->Data (), NULL);
+
+ m_noStrings ++;
}
void wxChoice::Delete(int WXUNUSED(n))
{
wxFAIL_MSG( "Sorry, wxChoice::Delete isn't implemented yet. Maybe you'd like to volunteer? :-)" );
-
+
// What should we do -- remove the callback for this button widget,
// delete the m_stringList entry, delete the button widget, construct a new widget list
// (see Append)
-
+
// TODO
m_noStrings --;
}
int wxChoice::GetSelection() const
{
- XmString text;
- char *s;
- Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
- XtVaGetValues (label,
- XmNlabelString, &text,
- NULL);
-
- if (XmStringGetLtoR (text, XmSTRING_DEFAULT_CHARSET, &s))
- {
- int i = 0;
- for (wxNode * node = m_stringList.First (); node; node = node->Next ())
- {
- char *s1 = (char *) node->Data ();
- if (s1 == s || strcmp (s1, s) == 0)
+ XmString text;
+ char *s;
+ Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
+ XtVaGetValues (label,
+ XmNlabelString, &text,
+ NULL);
+
+ if (XmStringGetLtoR (text, XmSTRING_DEFAULT_CHARSET, &s))
+ {
+ int i = 0;
+ for (wxNode * node = m_stringList.First (); node; node = node->Next ())
{
- XmStringFree(text) ;
- XtFree (s);
- return i;
- }
- else
- i++;
- } // for()
-
- XmStringFree(text) ;
- XtFree (s);
- return -1;
- }
- XmStringFree(text) ;
- return -1;
+ char *s1 = (char *) node->Data ();
+ if (s1 == s || strcmp (s1, s) == 0)
+ {
+ XmStringFree(text) ;
+ XtFree (s);
+ return i;
+ }
+ else
+ i++;
+ } // for()
+
+ XmStringFree(text) ;
+ XtFree (s);
+ return -1;
+ }
+ XmStringFree(text) ;
+ return -1;
}
void wxChoice::SetSelection(int n)
{
- m_inSetValue = TRUE;
-
- wxNode *node = m_stringList.Nth (n);
- if (node)
+ m_inSetValue = TRUE;
+
+ wxNode *node = m_stringList.Nth (n);
+ if (node)
{
- Dimension selectionWidth, selectionHeight;
-
- char *s = (char *) node->Data ();
- XmString text = XmStringCreateSimple (s);
- XtVaGetValues ((Widget) m_widgetList[n], XmNwidth, &selectionWidth, XmNheight, &selectionHeight, NULL);
- Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
- XtVaSetValues (label,
- XmNlabelString, text,
- NULL);
- XmStringFree (text);
- XtVaSetValues ((Widget) m_buttonWidget,
- XmNwidth, selectionWidth, XmNheight, selectionHeight,
- XmNmenuHistory, (Widget) m_widgetList[n], NULL);
+ Dimension selectionWidth, selectionHeight;
+
+ char *s = (char *) node->Data ();
+ XmString text = XmStringCreateSimple (s);
+ XtVaGetValues ((Widget) m_widgetList[n], XmNwidth, &selectionWidth, XmNheight, &selectionHeight, NULL);
+ Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
+ XtVaSetValues (label,
+ XmNlabelString, text,
+ NULL);
+ XmStringFree (text);
+ XtVaSetValues ((Widget) m_buttonWidget,
+ XmNwidth, selectionWidth, XmNheight, selectionHeight,
+ XmNmenuHistory, (Widget) m_widgetList[n], NULL);
}
- m_inSetValue = FALSE;
+ m_inSetValue = FALSE;
}
int wxChoice::FindString(const wxString& s) const
wxString wxChoice::GetString(int n) const
{
- wxNode *node = m_stringList.Nth (n);
- if (node)
- return wxString((char *) node->Data ());
- else
- return wxEmptyString;
+ wxNode *node = m_stringList.Nth (n);
+ if (node)
+ return wxString((char *) node->Data ());
+ else
+ return wxEmptyString;
}
void wxChoice::SetColumns(int n)
{
- if (n<1) n = 1 ;
-
- short numColumns = n ;
- Arg args[3];
-
- XtSetArg(args[0], XmNnumColumns, numColumns);
- XtSetArg(args[1], XmNpacking, XmPACK_COLUMN);
- XtSetValues((Widget) m_menuWidget,args,2) ;
+ if (n<1) n = 1 ;
+
+ short numColumns = n ;
+ Arg args[3];
+
+ XtSetArg(args[0], XmNnumColumns, numColumns);
+ XtSetArg(args[1], XmNpacking, XmPACK_COLUMN);
+ XtSetValues((Widget) m_menuWidget,args,2) ;
}
int wxChoice::GetColumns(void) const
{
- short numColumns ;
-
- XtVaGetValues((Widget) m_menuWidget,XmNnumColumns,&numColumns,NULL) ;
- return numColumns ;
+ short numColumns ;
+
+ XtVaGetValues((Widget) m_menuWidget,XmNnumColumns,&numColumns,NULL) ;
+ return numColumns ;
}
void wxChoice::SetFocus()
{
- XmProcessTraversal(XtParent((Widget)m_mainWidget), XmTRAVERSE_CURRENT);
+ XmProcessTraversal(XtParent((Widget)m_mainWidget), XmTRAVERSE_CURRENT);
}
-void wxChoice::SetSize(int x, int y, int width, int height, int sizeFlags)
+void wxChoice::DoSetSize(int x, int y, int width, int height, int sizeFlags)
{
XtVaSetValues((Widget) m_formWidget, XmNresizePolicy, XmRESIZE_ANY, NULL);
bool managed = XtIsManaged((Widget) m_formWidget);
-
+
if (managed)
XtUnmanageChild ((Widget) m_formWidget);
-
+
int actualWidth = width, actualHeight = height;
-
+
if (width > -1)
{
int i;
for (i = 0; i < m_noStrings; i++)
XtVaSetValues ((Widget) m_widgetList[i], XmNwidth, actualWidth, NULL);
XtVaSetValues ((Widget) m_buttonWidget, XmNwidth, actualWidth,
- NULL);
+ NULL);
}
if (height > -1)
{
for (i = 0; i < m_noStrings; i++)
XtVaSetValues ((Widget) m_widgetList[i], XmNheight, actualHeight, NULL);
XtVaSetValues ((Widget) m_buttonWidget, XmNheight, actualHeight,
- NULL);
+ NULL);
}
-
+
if (managed)
XtManageChild ((Widget) m_formWidget);
XtVaSetValues((Widget) m_formWidget, XmNresizePolicy, XmRESIZE_NONE, NULL);
-
- wxControl::SetSize (x, y, width, height, sizeFlags);
+
+ wxControl::DoSetSize (x, y, width, height, sizeFlags);
}
wxString wxChoice::GetStringSelection () const
{
int sel = FindString (s);
if (sel > -1)
- {
- SetSelection (sel);
- return TRUE;
- }
+ {
+ SetSelection (sel);
+ return TRUE;
+ }
else
return FALSE;
}
XtVaGetValues (w, XmNuserData, &s, NULL);
if (s)
{
- wxCommandEvent event (wxEVT_COMMAND_CHOICE_SELECTED);
+ wxCommandEvent event (wxEVT_COMMAND_CHOICE_SELECTED, item->GetId());
+ event.SetEventObject(item);
event.m_commandInt = item->FindString (s);
-// event.m_commandString = s;
+ // event.m_commandString = s;
item->ProcessCommand (event);
}
}
// Note that this causes the widget to be resized back
// to its original size! We therefore have to set the size
// back again. TODO: a better way in Motif?
- if (m_windowFont.Ok())
+ if (m_font.Ok())
{
int width, height, width1, height1;
GetSize(& width, & height);
-
- XmFontList fontList = (XmFontList) m_windowFont.GetFontList(1.0, XtDisplay((Widget) m_mainWidget));
+
+ XmFontList fontList = (XmFontList) m_font.GetFontList(1.0, XtDisplay((Widget) m_mainWidget));
XtVaSetValues ((Widget) m_mainWidget, XmNfontList, fontList, NULL);
XtVaSetValues ((Widget) m_buttonWidget, XmNfontList, fontList, NULL);
-
+
/* TODO: why does this cause a crash in XtWidgetToApplicationContext?
int i;
for (i = 0; i < m_noStrings; i++)
- XtVaSetValues ((Widget) m_widgetList[i], XmNfontList, fontList, NULL);
+ XtVaSetValues ((Widget) m_widgetList[i], XmNfontList, fontList, NULL);
*/
GetSize(& width1, & height1);
if (keepOriginalSize && (width != width1 || height != height1))
projects / wxWidgets.git / blobdiff