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

*** empty log message ***

Browse Source 
original commit: eb7327d4a0488440ae09a1b331540408f883f6d2
This commit is contained in:
Scott Owens 2003-12-18 00:22:58 +00:00
parent 1cd682eeaf
commit 3de9188432
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -322,8 +322,10 @@
(opt-lambda ((clear-colors #t))
(set! stopped? #t)
(when (and clear-colors (not frozen?))
(begin-edit-sequence #f #f)
(change-style (send (get-style-list) find-named-style "Standard")
start-pos end-pos #f))
start-pos end-pos #f)
(end-edit-sequence))
(match-parens #t)
(reset-tokens)
(set! pairs null)
@ -380,8 +382,10 @@
(do-insert/delete start-pos 0))
((and should-color? (not on?))
(set! should-color? on?)
(begin-edit-sequence #f #f)
(change-style (send (get-style-list) find-named-style "Standard")
start-pos end-pos #f))))
start-pos end-pos #f)
(end-edit-sequence))))
;; see docs
(define/public (force-stop-colorer stop?)