[CM] snd: x-zoom and :track-and-return cursor

[anders.vinjar at bek.no]

Hi Bill.  I'm getting some issues w. snd (latest from ccrma-ftp)

trying to do:

(set! (with-tracking-cursor) :track-and-return)
(begin
  (set! (cursor) 80000)
  (let ((here (cursor)))
    (play :start (cursor))
    (format #f "here: ~A there: ~A " here (cursor))))

and stopping playback from the sound-graph (ie. C-g or C-t), makes snd
jump back to 0, whereas i'd expect it go back to 4200.

The output of the above is:
"here: 80000 there: 0 "

Another issue:

  (set! (zoom-focus-style) zoom-focus-middle)
  (set! (x-zoom-slider) (* (x-zoom-slider) 1.1))

seems to leave to zoom-focus at the left edge of the window, even if im
in the middle of a sound somewhere.

When moving the control-panel zoom-slider it behaves as expected
(ie. middle-centered).

Cheers,

-anders