suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix send to the wrong administrator.

Browse Source 
Bug found by tests/gracket/wxme-random.
This commit is contained in:
Sam Tobin-Hochstadt 2010-12-19 22:44:15 -05:00
parent 491eeaa759
commit abf2215de7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/wxme/editor-snip.rkt
View File

@ -361,8 +361,8 @@
(when with-border? (when with-border?
(let ([pen (send dc get-pen)]) (let ([pen (send dc get-pen)])
(when (and (pair? caret) (when (and (pair? caret)
(send my-admin get-selected-text-color)) (send s-admin get-selected-text-color))
(send dc set-pen (send my-admin get-selected-text-color) 1 'solid)) (send dc set-pen (send s-admin get-selected-text-color) 1 'solid))
(let* ([l (+ orig-x left-inset)] (let* ([l (+ orig-x left-inset)]
[t (+ orig-y top-inset)] [t (+ orig-y top-inset)]
[r (+ l w left-margin right-margin [r (+ l w left-margin right-margin