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

updated to v4

Browse Source 
svn: r9730
This commit is contained in:
Robby Findler 2008-05-08 06:36:42 +00:00
parent f2267e914d
commit d5e3d7a4fc
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/framework/private/color.ss
View File

@ -9,10 +9,9 @@ added get-regions
(require mzlib/class (require mzlib/class
mzlib/thread mzlib/thread
mred mred
mzlib/etc syntax-color/token-tree
(lib "token-tree.ss" "syntax-color") syntax-color/paren-tree
(lib "paren-tree.ss" "syntax-color") syntax-color/default-lexer
(lib "default-lexer.ss" "syntax-color")
string-constants string-constants
"../preferences.ss" "../preferences.ss"
"sig.ss") "sig.ss")
@ -432,7 +431,7 @@ added get-regions
;; See docs ;; See docs
(define/public stop-colorer (define/public stop-colorer
(opt-lambda ((clear-the-colors #t)) (lambda ((clear-the-colors #t))
(set! stopped? #t) (set! stopped? #t)
(when (and clear-the-colors (not frozen?)) (when (and clear-the-colors (not frozen?))
(clear-colors)) (clear-colors))
@ -466,7 +465,7 @@ added get-regions
;; See docs ;; See docs
(define/public thaw-colorer (define/public thaw-colorer
(opt-lambda ((recolor? #t) (lambda ((recolor? #t)
(retokenize? #f)) (retokenize? #f))
(when frozen? (when frozen?
(set! frozen? #f) (set! frozen? #f)
@ -561,7 +560,7 @@ added get-regions
;; highlight parens, and the parens will be highlighted as soon as ;; highlight parens, and the parens will be highlighted as soon as
;; possible. ;; possible.
(define/private match-parens (define/private match-parens
(opt-lambda ([just-clear? #f]) (lambda ([just-clear? #f])
;;(printf "(match-parens ~a)~n" just-clear?) ;;(printf "(match-parens ~a)~n" just-clear?)
(when (and (not in-match-parens?) (when (and (not in-match-parens?)
;; Trying to match open parens while the ;; Trying to match open parens while the