Attaching scrollbars to a canvas using stklos

From: Andrew Joseph Kompanek <ak10+_at_andrew.cmu.edu>
Date: Sun, 13 Nov 1994 20:59:02 -0500 (EST)

I'm trying to figure out how to set up the commands for a canvas and two
associated scrollbars to work properly. I have managed to get the canvas
to scroll properly, but I can't get the scrollbars to be managed properly
by the canvas.

I can't seem to find a method/slot corresponding to doing the "set"
operation on a scrollbar.

In the Composite widget class Scrollbox.stk, this is done using the widget
function directly:

 (slot-set! l 'y-scroll-command (format #f "~A 'set" (widget-name (Id s))))

Is there a way to do this without resporting to using widget-name and Id?
That is, something to the effect of:

(slot-set! a-canvas 'x-scroll-command (lambda (args)
                                        (do-set horiz-scrollbar args))

where a-canvas and horiz-scrollbar is defined in the current context.
How is this done?

I had no problem setting up the commands for the scrollbars in
essentially the same way.

Thanks,
Drew

P.S. Are these sorts of questions appropriate for this mailing list?
     I sent another message and didn't receive a response.
Received on Mon Nov 14 1994 - 03:46:36 CET