diff --git a/gui-doc/scribblings/gui/snip-class.scrbl b/gui-doc/scribblings/gui/snip-class.scrbl index 24ffbc16..763a4553 100644 --- a/gui-doc/scribblings/gui/snip-class.scrbl +++ b/gui-doc/scribblings/gui/snip-class.scrbl @@ -312,6 +312,12 @@ following symbols: not have the keyboard focus (see also @method[snip% on-goodbye-event])} + @item{@indexed-racket['handles-between-events] --- this snip wishes + to handle mouse events that are between items in the snip + (instead of defaulting to treating mouse clicks as + setting the position or other event handling that happens + at the @racket[text%] or @racket[pasteboard%] level} + @item{@indexed-racket['width-depends-on-x] --- this snip's display width depends on the snip's x-@techlink{location} within the editor; e.g.: tab} diff --git a/gui-lib/info.rkt b/gui-lib/info.rkt index ff0c5652..21397950 100644 --- a/gui-lib/info.rkt +++ b/gui-lib/info.rkt @@ -7,7 +7,7 @@ ["base" #:version "6.2.900.17"] "syntax-color-lib" ["draw-lib" #:version "1.11"] - "snip-lib" + ["snip-lib" #:version "1.2"] "wxme-lib" "pict-lib" "scheme-lib" @@ -30,4 +30,4 @@ (define pkg-authors '(mflatt robby)) -(define version "1.20") +(define version "1.21") diff --git a/gui-lib/mred/private/wxme/text.rkt b/gui-lib/mred/private/wxme/text.rkt index f658ee65..ce026f57 100644 --- a/gui-lib/mred/private/wxme/text.rkt +++ b/gui-lib/mred/private/wxme/text.rkt @@ -470,8 +470,10 @@ (set-box! now (find-position x y #f onit? how-close)) ;; FIXME: the following refinement of `onit?' seems pointless (let ([onit? (and onit? - (not (zero? how-close)) - ((abs how-close) . > . between-threshold))]) + (or (and (not (zero? how-close)) + ((abs how-close) . > . between-threshold)) + (has-flag? (snip->flags s-caret-snip) + HANDLES-BETWEEN-EVENTS)))]) (if onit? ;; we're in the snip's horizontal region... (let ([snip (do-find-snip now 'after)])