fixed up to go with first brutal rep in drscheme

original commit: b73b55851613bcd5ba7c0693ea102357f204b714
This commit is contained in:
Robby Findler 1996-07-20 19:05:34 +00:00
parent 3d4c7d5b74
commit b04da72170

View File

@ -193,8 +193,8 @@
#t #f
(list (let ([c (check-box (lambda (_ command)
(set-preference 'mred:file-dialogs (if (send command checked?)
'common
'std)))
'std
'common)))
"Use platform-specific File Dialogs?")])
(send c set-value (eq? (get-preference 'mred:file-dialogs) 'common))
c)