#!../mofe --f

XmRowColumn rc topLevel
XmPushButton pushMe rc \
    activateCallback {
       XmScrollBarGetValues sb val size incr page
       puts stderr "value: XmScrollBarGetValues> $val =?= [gV sb value] <gV"
    }
XmScrollBar sb rc height 200
XmPushButton quit rc activateCallback %w
realize

