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

*** empty log message ***

Browse Source 
original commit: 9b73a2cfac8f7807b815e80905700d9847d849f7
This commit is contained in:
Scott Owens 2003-11-26 23:49:42 +00:00
parent a3e2648d39
commit d3dffc7e92
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -247,7 +247,7 @@
(printf "colorer thread: ~s\n" exn)
(break-enabled #f)
(semaphore-wait mutex-lock))))
(re-tokenize (open-input-text-editor this current-pos end-pos)
(re-tokenize (open-input-text-editor this current-pos end-pos (lambda (x) (values #f 1)))
current-pos))
;; Breaks should be disabled from exit of re-tokenize
;; lock will be held
@ -410,6 +410,13 @@
(do-insert/delete edit-start-pos (- change-length))
(super-after-delete edit-start-pos change-length))
(rename (super-on-close on-close))
(define/override (on-close)
(when remove-prefs-callback-thunk
(remove-prefs-callback-thunk)
(set! remove-prefs-callback-thunk #f))
(super-on-close))
(super-instantiate ())))
(define -text% (text-mixin text:keymap%))