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

fix `make-handle-brush' to retain original pointer

Browse Source 
In case there's a finalizer attached to the pointer object.
This commit is contained in:
Matthew Flatt 2012-03-28 06:26:20 -06:00
parent 4b36e708a3
commit e7f286b87d
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/racket/draw/private/brush.rkt
View File

@ -159,7 +159,12 @@
s) s)
s-in)) s-in))
(define b (new brush%)) (define b (new brush%))
(send b set-surface-handle-info (vector s width height #f) t) (send b set-surface-handle-info (vector s width height
;; cache for bitmap version:
#f
;; retain original if not copied:
(if copy? #f handle))
t)
b) b)
(provide (protect-out surface-handle-info->bitmap)) (provide (protect-out surface-handle-info->bitmap))