+static void wxChangeListBoxColours(wxWindow* win, Widget widget)
+{
+ wxWindow::DoChangeBackgroundColour((WXWidget) widget, *wxWHITE);
+
+ // Change colour of the scrolled areas of the listboxes
+ Widget listParent = XtParent (widget);
+ wxWindow::DoChangeBackgroundColour((WXWidget) listParent, *wxWHITE, TRUE);
+
+ Widget hsb = (Widget) 0;
+ Widget vsb = (Widget) 0;
+ XtVaGetValues (listParent,
+ XmNhorizontalScrollBar, &hsb,
+ XmNverticalScrollBar, &vsb,
+ NULL);
+
+ /* TODO: should scrollbars be affected? Should probably have separate
+ * function to change them (by default, taken from wxSystemSettings)
+ */
+ wxColour backgroundColour = wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE);
+ wxWindow::DoChangeBackgroundColour((WXWidget) hsb, backgroundColour, TRUE);
+ wxWindow::DoChangeBackgroundColour((WXWidget) vsb, backgroundColour, TRUE);
+
+ if (hsb)
+ XtVaSetValues (hsb,
+ XmNtroughColor, backgroundColour.AllocColour(XtDisplay(hsb)),
+ NULL);
+ if (vsb)
+ XtVaSetValues (vsb,
+ XmNtroughColor, backgroundColour.AllocColour(XtDisplay(vsb)),
+ NULL);
+}
+