adjusted deinprogramm preferences to use the framework preference system so that drracket still starts up when there is a locked preference file under windows
This commit is contained in:
parent
cde613218e
commit
2ddf90f3fc
|
@ -202,7 +202,7 @@
|
|||
obj signature message blame))))))
|
||||
(scheme-test-data (list (drscheme:rep:current-rep) drs-eventspace test-display%))
|
||||
(test-execute (get-preference 'tests:enable? (lambda () #t)))
|
||||
(signature-checking-enabled? (get-preference 'signatures:enable-checking? (lambda () #t)))
|
||||
(signature-checking-enabled? (preferences:get 'signatures:enable-checking?))
|
||||
(test-format (make-formatter (lambda (v o)
|
||||
(render-value/format (if (procedure? v)
|
||||
generic-proc
|
||||
|
|
|
@ -6,6 +6,8 @@
|
|||
string-constants)
|
||||
(provide tool@)
|
||||
|
||||
(preferences:set-default 'signatures:enable-checking? #t boolean?)
|
||||
|
||||
(define tool@
|
||||
(unit (import drracket:tool^) (export drracket:tool-exports^)
|
||||
|
||||
|
@ -35,14 +37,14 @@
|
|||
(unless enabled?
|
||||
(set! enabled? #t)
|
||||
(set-label disable-label)
|
||||
(put-preferences '(signatures:enable-checking?) '(#t))))
|
||||
(preferences:set 'signatures:enable-checking? '#f)))
|
||||
(define/public (disable-signature-checking)
|
||||
(when enabled?
|
||||
(set! enabled? #f)
|
||||
(set-label enable-label)
|
||||
(put-preferences '(signatures:enable-checking?) '(#f))))
|
||||
(preferences:set 'signatures:enable-checking? '#f)))
|
||||
(super-instantiate ()))]
|
||||
[enable? (get-preference 'signatures:enable-checking? (lambda () #t))]
|
||||
[enable? (preferences:get 'signatures:enable-checking?)]
|
||||
[enable-menu-item (make-object enable-menu-item%
|
||||
(if enable? disable-label enable-label)
|
||||
language-menu
|
||||
|
|
Loading…
Reference in New Issue
Block a user