Lisp HUG Maillist Archive

moving pinboard objects

(LWW) I'm trying to drag a capi:rectangle across a pinboard with the mouse.

In all 3 examples of this, I've seen - balloons.lisp, pong.lisp and 
pinboard-movement.lisp - it seems that all you have to do is 

(setf (capi:pinboard-pane-position object) (values new-x new-y))

on every mouse move input-model event.

And, the lispworks examples work fine.

Yet, when I do the same, the drag moves only the upper corner of the rectangle 
and deposits a trail of junk pixels along the way.  I've 
tried :draw-pinboard-objects :local-buffer, :buffer and t.

Anybody have a clue of what I'm missing?

thanx
pt


Re: moving pinboard objects

Do you have an example of yours?

Mitch

Paul Tarvydas wrote:
> (LWW) I'm trying to drag a capi:rectangle across a pinboard with the mouse.
> 
> In all 3 examples of this, I've seen - balloons.lisp, pong.lisp and 
> pinboard-movement.lisp - it seems that all you have to do is 
> 
> (setf (capi:pinboard-pane-position object) (values new-x new-y))
> 
> on every mouse move input-model event.
> 
> And, the lispworks examples work fine.
> 
> Yet, when I do the same, the drag moves only the upper corner of the rectangle 
> and deposits a trail of junk pixels along the way.  I've 
> tried :draw-pinboard-objects :local-buffer, :buffer and t.
> 
> Anybody have a clue of what I'm missing?
> 
> thanx
> pt
> 
> 


Updated at: 2020-12-10 08:44 UTC