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

Windows: avoid refresh on no-op canvas show-scrollbars

Browse Source
This commit is contained in:
Matthew Flatt 2015-12-03 05:36:42 -07:00
parent d3f212b98c
commit c4793a218f
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
gui-lib/mred/private/wx/win32/canvas.rkt
View File

@ -401,15 +401,19 @@
(define h-scroll-visible? hscroll?)
(define v-scroll-visible? vscroll?)
(define/public (show-scrollbars h? v?)
(when hscroll?
(atomically
(set! h-scroll-visible? (and h? #t))
(ShowScrollBar canvas-hwnd SB_HORZ h?)))
(when vscroll?
(atomically
(set! v-scroll-visible? (and v? #t))
(ShowScrollBar canvas-hwnd SB_VERT v?)))
(reset-dc))
(unless (and (equal? h-scroll-visible?
(and h? hscroll? #t))
(equal? v-scroll-visible?
(and v? vscroll? #t)))
(when hscroll?
(atomically
(set! h-scroll-visible? (and h? #t))
(ShowScrollBar canvas-hwnd SB_HORZ h?)))
(when vscroll?
(atomically
(set! v-scroll-visible? (and v? #t))
(ShowScrollBar canvas-hwnd SB_VERT v?)))
(reset-dc)))
(define/override (do-set-scrollbars h-step v-step
h-len v-len