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

Pass strings to raise-type-error.

Browse Source 
Closes PR 13178.
This commit is contained in:
Sam Tobin-Hochstadt 2015-07-30 14:35:18 -07:00
parent db36b91d1f
commit 60410356cc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gui-lib/mred/private/wx/common/cursor.rkt
View File

@ -34,9 +34,9 @@
[(integer-in 0 15) [hot-spot-x 0]]
[(integer-in 0 15) [hot-spot-y 0]])
(unless (is-16x16? image)
(raise-type-error (init-name 'cursor%) '|bitmap (16x16 monochrome)| image))
(raise-type-error (init-name 'cursor%) "bitmap (16x16 monochrome)" image))
(unless (is-16x16? mask)
(raise-type-error (init-name 'cursor%) '|bitmap (16x16 monochrome)| mask))
(raise-type-error (init-name 'cursor%) "bitmap (16x16 monochrome)" mask))
(let ([c (new cursor-driver%)])
(send c set-image image mask hot-spot-x hot-spot-y)
c)]