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

ignore failures when writing the commentary-window position/size to the preferences file, mainly because a security guard might disallow it for nested slideshows

Browse Source 
svn: r10194
This commit is contained in:
Matthew Flatt 2008-06-09 14:23:12 +00:00
parent 05d06d0c99
commit f1bacbb166
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/slideshow/viewer.ss
View File

@ -19,6 +19,7 @@
;; Needed for browsing
(define original-security-guard (current-security-guard))
(define orig-err-string-handler (error-value->string-handler))
(define-unit viewer@
(import (prefix config: cmdline^) core^)
@ -485,15 +486,17 @@
(define c-frame (new (class talk-frame%
(define/override (on-move x y)
(super on-move x y)
(parameterize ([current-security-guard original-security-guard])
(with-handlers ([void raise]) ; prevents exn handler from grabbing security guard
(parameterize ([current-security-guard original-security-guard]
[error-value->string-handler orig-err-string-handler])
(with-handlers ([void void]) ; also prevents exn handler from grabbing security guard
(put-preferences '(slideshow:commentary-x slideshow:commentary-y)
(list x y)
void))))
(define/override (on-size w h)
(super on-size w h)
(parameterize ([current-security-guard original-security-guard])
(with-handlers ([void raise]) ; prevents exn handler from grabbing security guard
(parameterize ([current-security-guard original-security-guard]
[error-value->string-handler orig-err-string-handler])
(with-handlers ([void void]) ; also prevents exn handler from grabbing security guard
(put-preferences '(slideshow:commentary-width slideshow:commentary-height)
(list w h)
void))))