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

adjustments to the colorer-out-of-sync gizmo

Browse Source 
(the "()" in the bottom right of the drracket window)
  to make sure that it is right when switching tabs
  and when a frame is first opened

original commit: 0fe0858ba89477f9a07bd3e15c2dd55684906db8
This commit is contained in:
Robby Findler 2011-01-22 14:50:42 -06:00
parent bf83ef5244
commit c7a9484dee
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/color.rkt
View File

@ -137,7 +137,6 @@ added get-regions
(new paren-tree% (matches pairs)))) (new paren-tree% (matches pairs))))
(define lexer-states (list (make-new-lexer-state 0 'end))) (define lexer-states (list (make-new-lexer-state 0 'end)))
(define/public (get-up-to-date?) (define/public (get-up-to-date?)
(andmap lexer-state-up-to-date? lexer-states)) (andmap lexer-state-up-to-date? lexer-states))
@ -246,6 +245,7 @@ added get-regions
(on-lexer-valid lexers-all-valid?))) (on-lexer-valid lexers-all-valid?)))
(define/pubment (on-lexer-valid valid?) (define/pubment (on-lexer-valid valid?)
(inner (void) on-lexer-valid valid?)) (inner (void) on-lexer-valid valid?))
(define/public-final (is-lexer-valid?) lexers-all-valid?)
(define/private (reset-tokens) (define/private (reset-tokens)
(for-each (for-each

4
collects/scribblings/framework/color.scrbl
View File

@ -229,6 +229,10 @@
The default method just returns @racket[(void)]. The default method just returns @racket[(void)].
} }
@defmethod[#:mode public-final (is-lexer-valid?) boolean?]{
Indicates if the lexer is currently valid for this editor.
}
} }
@defmixin[color:text-mixin (text:basic<%>) (color:text<%>)]{ @defmixin[color:text-mixin (text:basic<%>) (color:text<%>)]{
Adds the functionality needed for on-the-fly coloring and parenthesis Adds the functionality needed for on-the-fly coloring and parenthesis