#pragma implementation "choice.h"
#endif
-// For compilers that support precompilation, includes "wx.h".
+#ifdef __VMS
+#define XtDisplay XTDISPLAY
+#define XtParent XTPARENT
+#endif
+
+#include "wx/defs.h"
+
#include "wx/choice.h"
#include "wx/utils.h"
+#ifdef __VMS__
+#pragma message disable nosimpint
+#endif
#include <Xm/Xm.h>
#include <Xm/PushBG.h>
#include <Xm/PushB.h>
#include <Xm/RowColumn.h>
+#ifdef __VMS__
+#pragma message enable nosimpint
+#endif
#include "wx/motif/private.h"
-#if !USE_SHARED_LIBRARY
+#define WIDTH_OVERHEAD 48
+#define WIDTH_OVERHEAD_SUBTRACT 40
+#define HEIGHT_OVERHEAD 15
+
IMPLEMENT_DYNAMIC_CLASS(wxChoice, wxControl)
-#endif
void wxChoiceCallback (Widget w, XtPointer clientData,
XtPointer ptr);
wxChoice::wxChoice()
{
+ Init();
+}
+
+void wxChoice::Init()
+{
+ InitBase();
+
m_noStrings = 0;
m_buttonWidget = (WXWidget) 0;
m_menuWidget = (WXWidget) 0;
- m_widgetList = (WXWidget*) 0;
m_formWidget = (WXWidget) 0;
}
const wxValidator& validator,
const wxString& name)
{
- SetName(name);
- SetValidator(validator);
- m_noStrings = 0; // Starts off with none, incremented in Append
- m_windowStyle = style;
- m_buttonWidget = (WXWidget) 0;
- m_menuWidget = (WXWidget) 0;
- m_widgetList = (WXWidget*) 0;
- m_formWidget = (WXWidget) 0;
-
- if (parent) parent->AddChild(this);
-
- if ( id == -1 )
- m_windowId = (int)NewControlId();
- else
- m_windowId = id;
-
- m_backgroundColour = parent->GetBackgroundColour();
- m_foregroundColour = parent->GetForegroundColour();
- m_windowFont = parent->GetFont();
-
+ if ( !CreateControl(parent, id, pos, size, style, validator, name) )
+ return FALSE;
+
Widget parentWidget = (Widget) parent->GetClientWidget();
-
- m_formWidget = (WXWidget) XtVaCreateManagedWidget ((char*) (const char*) name,
+
+ m_formWidget = (WXWidget) XtVaCreateManagedWidget(name.c_str(),
xmRowColumnWidgetClass, parentWidget,
XmNmarginHeight, 0,
XmNmarginWidth, 0,
XmNpacking, XmPACK_TIGHT,
XmNorientation, XmHORIZONTAL,
+ XmNresizeWidth, False,
+ XmNresizeHeight, False,
NULL);
-
+
XtVaSetValues ((Widget) m_formWidget, XmNspacing, 0, NULL);
-
+
/*
* Create the popup menu
*/
- m_menuWidget = (WXWidget) XmCreatePulldownMenu ((Widget) m_formWidget, "choiceMenu", NULL, 0);
-
- // int i;
+ m_menuWidget = (WXWidget) XmCreatePulldownMenu ((Widget) m_formWidget,
+ "choiceMenu", NULL, 0);
+
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);
- argcnt++;
- XtSetArg (args[argcnt], XmNmarginHeight, 0);
- argcnt++;
- XtSetArg (args[argcnt], XmNpacking, XmPACK_TIGHT);
- argcnt++;
- m_buttonWidget = (WXWidget) XmCreateOptionMenu ((Widget) m_formWidget, "choiceButton", args, argcnt);
-
+
+ XtSetArg (args[argcnt], XmNsubMenuId, (Widget) m_menuWidget); ++argcnt;
+ XtSetArg (args[argcnt], XmNmarginWidth, 0); ++argcnt;
+ XtSetArg (args[argcnt], XmNmarginHeight, 0); ++argcnt;
+ 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)
// Some time ago, I reported a problem with wxChoice-items under
// Linux and Motif 2.0 (they caused sporadic GPFs). Now it seems
// that I have found the code responsible for this behaviour.
#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.
+ //
+ // Widget optionLabel = XmOptionLabelGadget ((Widget) m_buttonWidget);
+ // XtUnmanageChild (optionLabel);
#endif
#endif
-
+
+ wxSize bestSize = GetBestSize();
+ if( size.x > 0 ) bestSize.x = size.x;
+ if( size.y > 0 ) bestSize.y = size.y;
+
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();
-
+
+ AttachWidget (parent, m_buttonWidget, m_formWidget,
+ pos.x, pos.y, bestSize.x, bestSize.y);
+
return TRUE;
}
// be deleted implicitly by deleting the parent form
// anyway.
// XtDestroyWidget (menuWidget);
- if (m_widgetList)
- delete[] m_widgetList;
-
+
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;
}
+ if ( HasClientObjectData() )
+ m_clientDataDict.DestroyData();
}
-void wxChoice::Append(const wxString& item)
+int wxChoice::DoAppend(const wxString& item)
{
- wxStripMenuCodes ((char *)(const char *)item, wxBuffer);
- Widget w = XtVaCreateManagedWidget (wxBuffer,
+ Widget w = XtVaCreateManagedWidget (wxStripMenuCodes(item),
#if USE_GADGETS
xmPushButtonGadgetClass, (Widget) m_menuWidget,
#else
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 ++;
+
+ wxDoChangeBackgroundColour((WXWidget) w, m_backgroundColour);
+
+ if( m_font.Ok() )
+ wxDoChangeFont( w, m_font );
+
+ m_widgetArray.Add(w);
+
+ char mnem = wxFindMnemonic (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);
+ wxXmString text( item );
+ XtVaSetValues (label,
+ XmNlabelString, text(),
+ NULL);
+ }
+ m_stringList.Add(item);
+ m_noStrings ++;
+
+ return GetCount() - 1;
}
-void wxChoice::Delete(int WXUNUSED(n))
+void wxChoice::Delete(int 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
+ Widget w = (Widget)m_widgetArray[n];
+ XtRemoveCallback(w, XmNactivateCallback, (XtCallbackProc)wxChoiceCallback,
+ (XtPointer)this);
+ m_stringList.DeleteNode(m_stringList.Item(n));
+ m_widgetArray.RemoveAt(size_t(n));
+ m_clientDataDict.Delete(n, HasClientObjectData());
+
+ XtDestroyWidget(w);
m_noStrings --;
}
void wxChoice::Clear()
{
m_stringList.Clear ();
- int i;
+ size_t i;
for (i = 0; i < m_noStrings; i++)
{
- XtUnmanageChild ((Widget) m_widgetList[i]);
- XtDestroyWidget ((Widget) m_widgetList[i]);
+ XtRemoveCallback((Widget) m_widgetArray[i],
+ XmNactivateCallback, (XtCallbackProc)wxChoiceCallback,
+ (XtPointer)this);
+ XtUnmanageChild ((Widget) m_widgetArray[i]);
+ XtDestroyWidget ((Widget) m_widgetArray[i]);
}
- if (m_noStrings)
- delete[] m_widgetList;
- m_widgetList = (WXWidget*) NULL;
+ m_widgetArray.Clear();
if (m_buttonWidget)
- XtVaSetValues ((Widget) m_buttonWidget, XmNmenuHistory, (Widget) NULL, NULL);
+ XtVaSetValues ((Widget) m_buttonWidget,
+ XmNmenuHistory, (Widget) NULL,
+ NULL);
+
+ if ( HasClientObjectData() )
+ m_clientDataDict.DestroyData();
+
m_noStrings = 0;
}
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))
+ wxXmString freeMe(text);
+ wxString s = wxXmStringToString( text );
+
+ if (!s.IsEmpty())
{
int i = 0;
- for (wxNode * node = m_stringList.First (); node; node = node->Next ())
+ for (wxStringListNode* node = m_stringList.GetFirst ();
+ node; node = node->GetNext ())
{
- char *s1 = (char *) node->Data ();
- if (s1 == s || strcmp (s1, s) == 0)
+ if (wxStrcmp(node->GetData(), s.c_str()) == 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);
+
+ wxStringListNode *node = m_stringList.Item(n);
if (node)
{
+#if 0
Dimension selectionWidth, selectionHeight;
-
- char *s = (char *) node->Data ();
- XmString text = XmStringCreateSimple (s);
- XtVaGetValues ((Widget) m_widgetList[n], XmNwidth, &selectionWidth, XmNheight, &selectionHeight, NULL);
+#endif
+ wxXmString text( node->GetData() );
+// MBN: this seems silly, at best, and causes wxChoices to be clipped:
+// will remove "soon"
+#if 0
+ XtVaGetValues ((Widget) m_widgetArray[n],
+ XmNwidth, &selectionWidth,
+ XmNheight, &selectionHeight,
+ NULL);
+#endif
Widget label = XmOptionButtonGadget ((Widget) m_buttonWidget);
XtVaSetValues (label,
- XmNlabelString, text,
+ XmNlabelString, text(),
NULL);
- XmStringFree (text);
+#if 0
XtVaSetValues ((Widget) m_buttonWidget,
XmNwidth, selectionWidth, XmNheight, selectionHeight,
- XmNmenuHistory, (Widget) m_widgetList[n], NULL);
+ XmNmenuHistory, (Widget) m_widgetArray[n], NULL);
+#endif
}
m_inSetValue = FALSE;
}
int wxChoice::FindString(const wxString& s) const
{
int i = 0;
- for (wxNode * node = m_stringList.First (); node; node = node->Next ())
+ for (wxStringListNode* node = m_stringList.GetFirst();
+ node; node = node->GetNext ())
{
- char *s1 = (char *) node->Data ();
- if (s == s1)
- {
+ if (s == node->GetData())
return i;
- }
- else
- i++;
+
+ i++;
}
+
return -1;
}
wxString wxChoice::GetString(int n) const
{
- wxNode *node = m_stringList.Nth (n);
+ wxStringListNode *node = m_stringList.Item(n);
if (node)
- return wxString((char *) node->Data ());
+ return node->GetData();
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) ;
int wxChoice::GetColumns(void) const
{
short numColumns ;
-
+
XtVaGetValues((Widget) m_menuWidget,XmNnumColumns,&numColumns,NULL) ;
return numColumns ;
}
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;
-
+
+ int actualWidth = width - WIDTH_OVERHEAD_SUBTRACT,
+ actualHeight = height - HEIGHT_OVERHEAD;
+
if (width > -1)
{
- int i;
+ size_t i;
for (i = 0; i < m_noStrings; i++)
- XtVaSetValues ((Widget) m_widgetList[i], XmNwidth, actualWidth, NULL);
+ XtVaSetValues ((Widget) m_widgetArray[i],
+ XmNwidth, actualWidth,
+ NULL);
XtVaSetValues ((Widget) m_buttonWidget, XmNwidth, actualWidth,
NULL);
}
if (height > -1)
{
- int i;
+#if 0
+ size_t i;
for (i = 0; i < m_noStrings; i++)
- XtVaSetValues ((Widget) m_widgetList[i], XmNheight, actualHeight, NULL);
+ XtVaSetValues ((Widget) m_widgetArray[i],
+ XmNheight, actualHeight,
+ NULL);
+#endif
XtVaSetValues ((Widget) m_buttonWidget, XmNheight, actualHeight,
NULL);
}
-
+
if (managed)
XtManageChild ((Widget) m_formWidget);
XtVaSetValues((Widget) m_formWidget, XmNresizePolicy, XmRESIZE_NONE, NULL);
-
- wxControl::SetSize (x, y, width, height, sizeFlags);
-}
-
-wxString wxChoice::GetStringSelection () const
-{
- int sel = GetSelection ();
- if (sel > -1)
- return wxString(this->GetString (sel));
- else
- return wxEmptyString;
-}
-bool wxChoice::SetStringSelection (const wxString& s)
-{
- int sel = FindString (s);
- if (sel > -1)
- {
- SetSelection (sel);
- return TRUE;
- }
- else
- return FALSE;
+ wxControl::DoSetSize (x, y, width, height, sizeFlags);
}
void wxChoice::Command(wxCommandEvent & event)
{
if (item->InSetValue())
return;
-
- char *s = NULL;
- XtVaGetValues (w, XmNuserData, &s, NULL);
- if (s)
+
+ int n = item->GetWidgets().Index(w);
+ if (n != wxNOT_FOUND)
{
- wxCommandEvent event (wxEVT_COMMAND_CHOICE_SELECTED, item->GetId());
+ wxCommandEvent event(wxEVT_COMMAND_CHOICE_SELECTED, item->GetId());
event.SetEventObject(item);
- event.m_commandInt = item->FindString (s);
- // event.m_commandString = s;
+ event.m_commandInt = n;
+ event.m_commandString = item->GetStrings().Item(n)->GetData();
+ if ( item->HasClientObjectData() )
+ event.SetClientObject( item->GetClientObject(n) );
+ else if ( item->HasClientUntypedData() )
+ event.SetClientData( item->GetClientData(n) );
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);
+
+ WXFontType fontType =
+ m_font.GetFontType(XtDisplay((Widget) m_mainWidget));
+ WXString fontTag = wxFont::GetFontTag();
+
+ XtVaSetValues ((Widget) m_formWidget, fontTag, fontType, NULL);
+ XtVaSetValues ((Widget) m_buttonWidget, fontTag, fontType, NULL);
+
+ for( size_t i = 0; i < m_noStrings; ++i )
+ XtVaSetValues( (Widget)m_widgetArray[i],
+ fontTag, fontType,
+ NULL );
- XmFontList fontList = (XmFontList) m_windowFont.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);
- */
GetSize(& width1, & height1);
if (keepOriginalSize && (width != width1 || height != height1))
{
void wxChoice::ChangeBackgroundColour()
{
- DoChangeBackgroundColour(m_formWidget, m_backgroundColour);
- DoChangeBackgroundColour(m_buttonWidget, m_backgroundColour);
- DoChangeBackgroundColour(m_menuWidget, m_backgroundColour);
- int i;
+ wxDoChangeBackgroundColour(m_formWidget, m_backgroundColour);
+ wxDoChangeBackgroundColour(m_buttonWidget, m_backgroundColour);
+ wxDoChangeBackgroundColour(m_menuWidget, m_backgroundColour);
+ size_t i;
for (i = 0; i < m_noStrings; i++)
- DoChangeBackgroundColour(m_widgetList[i], m_backgroundColour);
+ wxDoChangeBackgroundColour(m_widgetArray[i], m_backgroundColour);
}
void wxChoice::ChangeForegroundColour()
{
- DoChangeForegroundColour(m_formWidget, m_foregroundColour);
- DoChangeForegroundColour(m_buttonWidget, m_foregroundColour);
- DoChangeForegroundColour(m_menuWidget, m_foregroundColour);
- int i;
+ wxDoChangeForegroundColour(m_formWidget, m_foregroundColour);
+ wxDoChangeForegroundColour(m_buttonWidget, m_foregroundColour);
+ wxDoChangeForegroundColour(m_menuWidget, m_foregroundColour);
+ size_t i;
for (i = 0; i < m_noStrings; i++)
- DoChangeForegroundColour(m_widgetList[i], m_foregroundColour);
+ wxDoChangeForegroundColour(m_widgetArray[i], m_foregroundColour);
+}
+
+int wxChoice::GetCount() const
+{
+ return m_noStrings;
+}
+
+void wxChoice::DoSetItemClientData(int n, void* clientData)
+{
+ m_clientDataDict.Set(n, (wxClientData*)clientData, FALSE);
+}
+
+void* wxChoice::DoGetItemClientData(int n) const
+{
+ return (void*)m_clientDataDict.Get(n);
+}
+
+void wxChoice::DoSetItemClientObject(int n, wxClientData* clientData)
+{
+ // don't delete, wxItemContainer does that for us
+ m_clientDataDict.Set(n, clientData, FALSE);
+}
+
+wxClientData* wxChoice::DoGetItemClientObject(int n) const
+{
+ return m_clientDataDict.Get(n);
+}
+
+void wxChoice::SetString(int WXUNUSED(n), const wxString& WXUNUSED(s))
+{
+ wxFAIL_MSG( wxT("wxChoice::SetString not implemented") );
+}
+
+wxSize wxChoice::GetItemsSize() const
+{
+ int x, y, mx = 0, my = 0;
+
+ // get my
+ GetTextExtent( "|", &x, &my );
+
+ wxStringList::Node* curr = m_stringList.GetFirst();
+ while( curr )
+ {
+ GetTextExtent( curr->GetData(), &x, &y );
+ mx = wxMax( mx, x );
+ my = wxMax( my, y );
+ curr = curr->GetNext();
+ }
+
+ return wxSize( mx, my );
+}
+
+wxSize wxChoice::DoGetBestSize() const
+{
+ wxSize items = GetItemsSize();
+ // FIXME arbitrary constants
+ return wxSize( ( items.x ? items.x + WIDTH_OVERHEAD : 120 ),
+ items.y + HEIGHT_OVERHEAD );
}
projects / wxWidgets.git / blobdiff