[racket] Disable dragging on Pasteboard%

From: Dmitry Pavlov (dpavlov at ipa.nw.ru)
Date: Sun Feb 15 13:56:13 EST 2015

Richard,

> I'm trying to disable dragging on the Pasteboard. However using
> set-dragable to #f also prevents the snip from being selected.
>
> Any ideas on how I would keep a snip selectable but not dragable?

Maybe the following will help:

(define my-pasteboard%
   (class pasteboard%
     (super-new)
     (define/augment (can-interactive-move? snip)
       #f)
     (define/augment (can-interactive-resize? snip)
       #f)
    ))


Regards,

Dmitry

Posted on the users mailing list.