From: sun!spss.com!bobhays
Message-Id: <9111192205.AA25922@spssrs4>
Subject: Okay, here is how to do something you want in OSF/Motif (V.1.0)
To: xrn@ic.berkeley.edu
Date: Tue, 19 Nov 91 16:05:35 CST

You say in the TODO list that you would like to set up the page
increment in the scrolled list area - well, in OSF/Motif, I have your
procedure....

NOTE: this works on V. 1.0 OSF/Motif on the RS/6000 IBM systems (yep,
I got the most recent version working on RS/6000s with only a week of
evening work - even though it says the R3 switch works, don't believe
it too much:-).

The procedure is SetPageSize.  It sets the page increment for the
vertical scroll bar for a scrolled text area to one less than the
number of lines in the area.  This call should be made after widget
creation but before widget management (but can be delayed...).

====8< cut here >8 ====
#include <Mrm/MrmAppl.h>
#include "resources.h"

void SetPageSize ( widget )
    Widget   widget;
{
    Widget   tmpWidget = NULL;
    Arg      args[2];
    short    rows = 0;

    XtSetArg ( args[0], XmNrows, (XtArgVal) &rows );
    XtGetValues ( widget, args, 1 );
    rows -= 1;
    if ( rows > 2 )
    {
        XtSetArg ( args[0], XmNverticalScrollBar, &tmpWidget );
        XtGetValues ( XtParent(widget), args, 1 );
        if ( tmpWidget != NULL )
        {
            int     value = 0, size = 0, increment = 0, pageIncrement = 0;

            XmScrollBarGetValues ( tmpWidget, &value, &size, &increment, &pageIncrement );
            pageIncrement = (int) rows;
            XmScrollBarSetValues ( tmpWidget, value, size, increment, pageIncrement, FALSE );
        }
    }
}