From 6179f30aeaa42442b28644999dbdab0b81341d19 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 19 Dec 2003 08:04:17 +0000 Subject: [PATCH] .. original commit: e24ac1172362fdc67ddaa41c52d470bc15cd9b87 --- collects/drscheme/private/syntax-browser.ss | 5 +++-- collects/framework/private/color.ss | 7 ++++--- collects/framework/private/scheme.ss | 12 +++++++----- 3 files changed, 14 insertions(+), 10 deletions(-) diff --git a/collects/drscheme/private/syntax-browser.ss b/collects/drscheme/private/syntax-browser.ss index d2d2a89f..e1799fd5 100644 --- a/collects/drscheme/private/syntax-browser.ss +++ b/collects/drscheme/private/syntax-browser.ss @@ -114,7 +114,7 @@ needed to really make this work: (define (show-info stx) (insert/big "General Info\n") (piece-of-info "Source" (syntax-source stx)) - (piece-of-info "Source Module" (syntax-source-module stx)) + (piece-of-info "Source module" (syntax-source-module stx)) (piece-of-info "Position" (syntax-position stx)) (piece-of-info "Line" (syntax-line stx)) (piece-of-info "Column" (syntax-column stx)) @@ -126,7 +126,7 @@ needed to really make this work: (let ([properties (syntax-properties stx)]) (unless (null? properties) - (insert/big "Properties\n") + (insert/big "Known properties\n") (for-each (lambda (prop) (show-property stx prop)) properties)))) @@ -484,6 +484,7 @@ needed to really make this work: origin disappeared-binding disappeared-use + bind-as-variable module-variable-provides module-syntax-provides module-indirect-provides diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.ss index 56b63f18..2fa02972 100644 --- a/collects/framework/private/color.ss +++ b/collects/framework/private/color.ss @@ -613,9 +613,10 @@ (let ((insert-str (if closer closer (string char)))) (insert insert-str) (when flash? - (let ((pos (backward-match (+ (string-length insert-str) pos) 0))) - (when (and pos (send parens is-open-pos? pos)) - (flash-on pos (+ 1 pos)))))))) + (unless stopped? + (let ((pos (backward-match (+ (string-length insert-str) pos) 0))) + (when (and pos (send parens is-open-pos? pos)) + (flash-on pos (+ 1 pos))))))))) ;; ------------------------- Callbacks to Override ---------------------- diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss index d6de26b3..0e47d9f2 100644 --- a/collects/framework/private/scheme.ss +++ b/collects/framework/private/scheme.ss @@ -262,14 +262,16 @@ (define color-prefs-table - `((symbol ,(make-object color% 38 38 128) ,(string-constant scheme-mode-color-symbol)) - (keyword ,(make-object color% 38 38 128) ,(string-constant scheme-mode-color-keyword)) + (let ([constant-green (make-object color% 41 128 38)] + [symbol-blue (make-object color% 38 38 128)]) + `((symbol ,symbol-blue ,(string-constant scheme-mode-color-symbol)) + (keyword ,symbol-blue ,(string-constant scheme-mode-color-keyword)) (comment ,(make-object color% 194 116 31) ,(string-constant scheme-mode-color-comment)) - (string ,(make-object color% "forestgreen") ,(string-constant scheme-mode-color-string)) - (constant ,(make-object color% "forestgreen") ,(string-constant scheme-mode-color-constant)) + (string ,constant-green ,(string-constant scheme-mode-color-string)) + (constant ,constant-green ,(string-constant scheme-mode-color-constant)) (parenthesis ,(make-object color% "brown") ,(string-constant scheme-mode-color-parenthesis)) (error ,(make-object color% "red") ,(string-constant scheme-mode-color-error)) - (other ,(make-object color% "black") ,(string-constant scheme-mode-color-other)))) + (other ,(make-object color% "black") ,(string-constant scheme-mode-color-other))))) (define (get-color-prefs-table) color-prefs-table) (define (short-sym->pref-name sym) (string->symbol (short-sym->style-name sym)))