suzanne.soy/gui
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.

original commit: abf2215de7e5d897534cc117573ed164a0dd2ee0
This commit is contained in:
Sam Tobin-Hochstadt 2010-12-19 22:44:15 -05:00
parent 70c7476a38
commit 0b863947e6
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?
(let ([pen (send dc get-pen)])
(when (and (pair? caret)
(send my-admin get-selected-text-color))
(send dc set-pen (send my-admin get-selected-text-color) 1 'solid))
(send s-admin get-selected-text-color))
(send dc set-pen (send s-admin get-selected-text-color) 1 'solid))
(let* ([l (+ orig-x left-inset)]
[t (+ orig-y top-inset)]
[r (+ l w left-margin right-margin