Suggestion re: stk::motion-drag

From: Moises Lejter <mlm_at_cs.brown.edu>
Date: Fri, 10 Nov 1995 06:57:12 -0500 (EST)

In the code for Canvas.stk, in the STklos distribution, it says:

  (define (stk::motion-drag w x y)
    (move stk::instance-selected (- x stk::last-x) (- y stk::last-y))
    (set! stk::last-x x)
    (set! stk::last-y y)
    ;; Apply user :motion hook
    (apply (cadr stk::hooks) stk::instance-selected x y '()))

Would it not be more reasonable to provide the user :motion hook with
delta-x and delta-y, in addition to x and y? After all, the deltas
are likelier to be useful than the raw x,y values, no?

Moises
Received on Fri Nov 10 1995 - 13:00:54 CET