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

fixed a redrawing bug in the search bar

Browse Source 
svn: r12554
This commit is contained in:
Robby Findler 2008-11-21 00:59:40 +00:00
parent daff0abe15
commit 429e229ff7
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/private/frame.ss
View File

@ -1952,7 +1952,6 @@
(set! red? r?) (set! red? r?)
(refresh))) (refresh)))
(define/override (on-paint) (define/override (on-paint)
(super on-paint)
(when red? (when red?
(let ([dc (get-dc)]) (let ([dc (get-dc)])
(let-values ([(cw ch) (get-client-size)]) (let-values ([(cw ch) (get-client-size)])
@ -1962,7 +1961,8 @@
(send dc set-brush "pink" 'solid) (send dc set-brush "pink" 'solid)
(send dc draw-rectangle 0 0 cw ch) (send dc draw-rectangle 0 0 cw ch)
(send dc set-pen pen) (send dc set-pen pen)
(send dc set-brush brush)))))) (send dc set-brush brush)))))
(super on-paint))
(super-new))) (super-new)))
(define-local-member-name (define-local-member-name

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

@ -857,7 +857,13 @@ WARNING: printf is rebound in the body of the unit to always
normalize?))] normalize?))]
[else [else
(preferences:get 'framework:do-paste-normalization)])) (preferences:get 'framework:do-paste-normalization)]))
(define/public (string-normalize s) (string-normalize-nfkc s)) (define/public (string-normalize s)
(let ([ns (string-normalize-nfkc s)])
(unless (equal? s ns)
(printf "normalized: ~s => ~s\n" s ns)))
(string-normalize-nfkc s))