added length parameter to call of snip insert

2015-10-21 23:05:15 -04:00 · 2015-10-21 23:05:15 -04:00 · acab3f14e1
commit acab3f14e1
parent 9bf18505d5
1 changed files with 1 additions and 1 deletions
--- a/gui-lib/mred/private/wxme/pasteboard.rkt
+++ b/gui-lib/mred/private/wxme/pasteboard.rkt
@ -1860,7 +1860,7 @@
    (let ([snip (new string-snip%)])
      (set-snip-style! snip (or (get-default-style)
                                (send s-style-list basic-style)))
-      (send snip insert str)
+      (send snip insert str (string-length str))
      (insert-paste-snip snip #f)))
  
  (def/override (kill [exact-integer? [time 0]])