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

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

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