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

win32: fix canvas refresh

Browse Source 
Refresh was wrong in the case that a canvas had been "reset"
in certain ways, such as showing and hiding, and the canvas is
drawn on before a Win32-level refresh event was processed. In
that case `on-paint' wasn't called, and it should have been.

Closes PR 12152
This commit is contained in:
Matthew Flatt 2011-09-02 08:25:53 -06:00
parent 171858add1
commit f5e534fd87
1 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/mred/private/wx/win32/canvas.rkt
View File

@ -242,7 +242,7 @@
(define/override (on-resized)
(reset-dc))
(define/private (reset-dc)
(define/private (reset-dc [refresh? #t])
(send dc reset-backing-retained)
(send dc set-auto-scroll
(if (get-virtual-width)
@ -250,16 +250,8 @@
0)
(if (get-virtual-height)
(get-virtual-v-pos)
0)))
(define/public (tell-me-what)
(let ([r (GetClientRect (get-client-hwnd))]
[rr (GetWindowRect (get-hwnd))])
(printf "~s\n"
(list hscroll? vscroll?
(list (RECT-left r) (RECT-top r) (RECT-right r) (RECT-bottom r))
(list (RECT-left rr) (RECT-top rr) (RECT-right rr) (RECT-bottom rr))))))
0))
(when refresh? (refresh-one)))
(define/override (show-children)
(when (dc . is-a? . dc<%>)