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

..

Browse Source 
original commit: e24ac1172362fdc67ddaa41c52d470bc15cd9b87
This commit is contained in:
Robby Findler 2003-12-19 08:04:17 +00:00
parent b083349699
commit 6179f30aea
3 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/drscheme/private/syntax-browser.ss
View File

@ -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

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

@ -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 ----------------------

12
collects/framework/private/scheme.ss
View File

@ -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)))