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

fix a leak exposed by da4d2db396

Browse Source
This commit is contained in:
Robby Findler 2017-01-11 12:05:41 -06:00
parent 6ad4f1edaa
commit 7e44c4cfeb
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gui-lib/framework/private/racket.rkt
View File

@ -1350,9 +1350,11 @@
(send text end-edit-sequence)) (send text end-edit-sequence))
(define tabify-pref (preferences:get 'framework:tabify)) (define tabify-pref (preferences:get 'framework:tabify))
(define tabify-pref-callback (lambda (k v) (set! tabify-pref v)))
(preferences:add-callback (preferences:add-callback
'framework:tabify 'framework:tabify
(lambda (k v) (set! tabify-pref v))) tabify-pref-callback
#t)
(define/override (put-file text sup directory default-name) (define/override (put-file text sup directory default-name)
;; don't call the surrogate's super, since it sets the default extension ;; don't call the surrogate's super, since it sets the default extension