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

enable online check syntax (change the default for

Browse Source 
the preferences and use a new preferences symbol, so
everyone gets the new default)
This commit is contained in:
Robby Findler 2012-08-12 16:20:21 -05:00
parent b6d7b0ebcc
commit 6588449aed
4 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drracket/private/main.rkt
View File

@ -503,7 +503,7 @@
lang
(or settings (send lang default-settings)))))))))
(preferences:set-default 'drracket:online-compilation-default-off #f boolean?)
(preferences:set-default 'drracket:online-compilation-default-on #t boolean?)
(preferences:set-default 'drracket:online-expansion:read-in-defs-errors
'corner
(or/c 'margin 'gold 'corner))

18
collects/drracket/private/module-language.rkt
View File

@ -1032,7 +1032,7 @@
(define tooltip-frame #f)
(define/private (show-tooltip)
(define tooltip-labels-to-show
(if (preferences:get 'drracket:online-compilation-default-off)
(if (preferences:get 'drracket:online-compilation-default-on)
tooltip-labels
(list (string-constant online-expansion-is-disabled))))
(cond
@ -1051,7 +1051,7 @@
(when tooltip-frame
(cond
[(or tooltip-labels
(not (preferences:get 'drracket:online-compilation-default-off)))
(not (preferences:get 'drracket:online-compilation-default-on)))
(when (send tooltip-frame is-shown?)
;; just call this, as it updates the tooltip label already
(show-tooltip))]
@ -1084,7 +1084,7 @@
(define colors-to-draw
(cond
[(not (in-module-language tlw)) #f]
[(preferences:get 'drracket:online-compilation-default-off)
[(preferences:get 'drracket:online-compilation-default-on)
colors]
[else (list "red")]))
(when colors-to-draw
@ -1115,13 +1115,13 @@
(define cb-proc (λ (sym new-val)
(set! colors #f)
(refresh)))
(preferences:add-callback 'drracket:online-compilation-default-off cb-proc #t)
(preferences:add-callback 'drracket:online-compilation-default-on cb-proc #t)
(define/override (on-event evt)
(cond
[(not (in-module-language tlw)) (void)]
[(send evt button-down?)
(define menu (new popup-menu%))
(define on? (preferences:get 'drracket:online-compilation-default-off))
(define on? (preferences:get 'drracket:online-compilation-default-on))
(new menu-item%
[parent menu]
[label (if on?
@ -1129,7 +1129,7 @@
"Enable online compilation")]
[callback
(λ args
(preferences:set 'drracket:online-compilation-default-off (not on?)))])
(preferences:set 'drracket:online-compilation-default-on (not on?)))])
(popup-menu menu (send evt get-x) (send evt get-y))]
[(send evt entering?)
(show-tooltip)]
@ -1307,7 +1307,7 @@
(define cb-proc (λ (sym new-val)
(when new-val
(queue-callback (λ () (buffer-modified))))))
(preferences:add-callback 'drracket:online-compilation-default-off cb-proc #t)
(preferences:add-callback 'drracket:online-compilation-default-on cb-proc #t)
;; buffer-modified and restart-place
;; are the two entry points that might
@ -1318,7 +1318,7 @@
;; before doing anything
(define/private (buffer-modified)
(when (and (preferences:get 'drracket:online-compilation-default-off)
(when (and (preferences:get 'drracket:online-compilation-default-on)
(> (processor-count) 1))
(clear-old-error)
(reset-frame-expand-error #t)
@ -1336,7 +1336,7 @@
(hide-module-language-error-panel)]))))
(define/public (restart-place)
(when (and (preferences:get 'drracket:online-compilation-default-off)
(when (and (preferences:get 'drracket:online-compilation-default-on)
(> (processor-count) 1))
(stop-place-running)
(when compilation-out-of-date?

2
collects/tests/drracket/memory-log.rkt
View File

@ -68,7 +68,7 @@
(not (send (send drs-frame get-definitions-text) syncheck:arrows-visible?))))
; enable online check syntax and wait for the results to appear
(queue-callback/res (λ () (preferences:set 'drracket:online-compilation-default-off #t)))
(queue-callback/res (λ () (preferences:set 'drracket:online-compilation-default-on #t)))
(poll-until
(λ ()
(send (send drs-frame get-definitions-text) syncheck:arrows-visible?)))

8
doc/release-notes/drracket/HISTORY.txt
View File

@ -2,8 +2,12 @@
Version 5.3.1
------------------------------
. Check Syntax now shows the blue boxes from the documentation in
the definitions window
. Enable online check syntax by default (it has been
available in the last two releases, but was disabled
by default)
. Check Syntax now shows the blue boxes from the
documentation in the definitions window
------------------------------
Version 5.3