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

*** empty log message ***

Browse Source 
original commit: c07b45b989d1c39e0adc9799e1dab7e0dfcd450f
This commit is contained in:
Scott Owens 2005-02-07 23:45:57 +00:00
parent 7ae58ebcc8
commit 235cb63ce3
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -611,7 +611,7 @@
(delete pos (+ l pos)) (delete pos (+ l pos))
(get-close-paren pos (cdr closers))))))))) (get-close-paren pos (cdr closers)))))))))
(inherit insert delete flash-on) (inherit insert delete flash-on on-default-char)
;; See docs ;; See docs
(define/public (insert-close-paren pos char flash? fixup?) (define/public (insert-close-paren pos char flash? fixup?)
(let ((closer (let ((closer
@ -620,7 +620,9 @@
(get-close-paren pos (if fixup? (map symbol->string (map cadr pairs)) null))))) (get-close-paren pos (if fixup? (map symbol->string (map cadr pairs)) null)))))
(end-edit-sequence) (end-edit-sequence)
(let ((insert-str (if closer closer (string char)))) (let ((insert-str (if closer closer (string char))))
(for-each (lambda (c) (insert c)) (string->list insert-str)) (for-each (lambda (c)
(on-default-char (new key-event% (key-code c))))
(string->list insert-str))
(when flash? (when flash?
(unless stopped? (unless stopped?
(let ((to-pos (backward-match (+ (string-length insert-str) pos) 0))) (let ((to-pos (backward-match (+ (string-length insert-str) pos) 0)))
@ -631,8 +633,7 @@
(define/public (debug-printout) (define/public (debug-printout)
(let* ((x null) (let* ((x null)
(f (λ (a b c) (f (λ (a b c) (set! x (cons (list a b c) x)))))
(set! x (cons (list a b c) x)))))
(send tokens for-each f) (send tokens for-each f)
(printf "tokens: ~e~n" (reverse x)) (printf "tokens: ~e~n" (reverse x))
(set! x null) (set! x null)