fixed bug

original commit: e6d011c1518798d74ece649b34bf0e252e4c3f58
This commit is contained in:
Robby Findler 1996-07-26 10:21:59 +00:00
parent 0fe30c4301
commit 4a10d9546b

View File

@ -198,7 +198,7 @@
(set-preference 'mred:file-dialogs (if (send command checked?) (set-preference 'mred:file-dialogs (if (send command checked?)
'std 'std
'common))) 'common)))
"Use platform-specific file dialogs?" (eq? (get-preference 'mred:file-dialogs) 'common)) "Use platform-specific file dialogs?" (eq? (get-preference 'mred:file-dialogs) 'std))
(make-check (lambda (_ command) (make-check (lambda (_ command)
(set-preference 'mred:status-line (send command checked?))) (set-preference 'mred:status-line (send command checked?)))
"Show clock?" (get-preference 'mred:status-line)) "Show clock?" (get-preference 'mred:status-line))