Generalized click-forwarding-editor to work on text%s as well as pasteboards%

svn: r10427 original commit: 9431017d1882d4e9b9d20e3ab4a281957afa627f
2008-06-23 18:22:03 +00:00 · 2008-06-23 18:22:03 +00:00 · 07f7f5777c
commit 07f7f5777c
parent ad6b6290fb
1 changed files with 6 additions and 1 deletions
--- a/collects/mrlib/click-forwarding-editor.ss
+++ b/collects/mrlib/click-forwarding-editor.ss
@ -45,7 +45,12 @@
        (let ([new-x (box x)]
              [new-y (box y)])
          (global-to-local new-x new-y)
-          (find-snip (unbox new-x) (unbox new-y))))
+          (cond
+            [(is-a? this text%)
+             (let ([pos (send this find-position (unbox new-x) (unbox new-y))])
+               (find-snip pos 'after-or-none))]
+            [(is-a? this pasteboard%)
+             (find-snip (unbox new-x) (unbox new-y))])))
      
      (super-instantiate ())
      ))