I am working with SBCL for Linux on an AMD64 machine. Function CONTROL-TEST makes a window with a drawing CANVAS and two sliding SCALEs. The slider :VARIABLES for UPPER-SLIDER and FORE-SLIDER are supposed to be bound to UPPER-THETA and FORE-THETA, respectively, but the update code never sees anything but 0. I have tested the update code in another function.
(defun controltest ()
"Test of a user-controlled robot arm"
(with-ltk ()
; (make-instance 'scale :master fscale :from 0 :to 100 :length 150 )
(let* ((upper-theta 0) (fore-theta 0)
(upper-slider
(make-instance 'scale :from 0 :to 7
:length 360 :variable upper-theta))
(fore-slider
(make-instance 'scale :from 0 :to 7
:length 360 :variable fore-theta))
(cnvs (make-instance 'canvas :width cnvs-width :height cnvs-height))
(upper (manip:uctk-beam :cen-x 200 :cen-y 200
:b-length 40 :b-width 20
:tk-cnvs cnvs))
(fore (manip:uctk-beam :cen-x 0 :cen-y 40 ; relative to upper
:b-length 40 :b-width 20
:tk-cnvs cnvs))
(slp-time 50))
(labels ((update ()
(draw upper nil) ; contains FORE, no need to draw separately
(geo:set-member-theta upper 2 fore-theta)
(geo:set-theta upper upper-theta)
(after slp-time #'update)))
(geo:add-geo upper fore) ; make FORE a member of UPPER
(pack cnvs :fill :both :expand 1)
(pack upper-slider :side :bottom)
(pack fore-slider :side :bottom)
(update)))))