scrollbars (Sun only)?
[Last modified: Nov 97]

Answer: Michael Hall <mhall@semy.com> writes:

I have found a fix to a bug which is common on SUN platforms.  The problem is
that the scroll bars on scrolled text widgets are not colored or shaded
correctly.


scrolledWindowText2 = XtVaCreateManagedWidget("scrolledWindowText2",
    xmScrolledWindowWidgetClass,
    form1,
    XmNscrollBarDisplayPolicy, XmSTATIC,
    NULL );

runValuesText = XtVaCreateManagedWidget("runValuesText",
    xmTextWidgetClass,
    scrolledWindowText2,
    XmNeditMode, XmMULTI_LINE_EDIT ,
    XmNeditable, FALSE,
    NULL );

/* workaround a Motif bug - text widget scroll bars are wrong color,
and not shaded. */
/* by Michael Hall */

/* just to get background */
junkScroll = XmCreateScrollBar(form1, "junkScroll", NULL, 0);
XtVaGetValues(junkScroll,
    XmNbackground, &junkPixel,
    NULL);
XtVaGetValues(XtParent(runValuesText),
    XmNchildren, &kids,
    XmNnumChildren, &numkids,
    NULL);
for (n=0;n<numkids;n++)
{
if (XmIsScrollBar(kids[n]))
{
 XtVaSetValues(kids[n],
   XmNbackground, junkPixel,
   XmNshadowThickness, 30,
   XmNwidth, 200,
   XmNheight, 200,
   NULL);
 XmChangeColor(kids[n], junkPixel);
}
}