.
original commit: bdd66a25411d21ec179c84a38b8cf469d57aa30c
This commit is contained in:
parent
c79c0cc523
commit
e203300576
|
@ -1425,7 +1425,9 @@
|
|||
(send dc draw-line 0 vh vw vh)
|
||||
(send dc draw-line vw 0 vw vh))))]
|
||||
[on-scroll
|
||||
(lambda (e) (unless (and auto? incremental?) (on-paint)))]
|
||||
(lambda (e)
|
||||
(when auto? (printf "Hey - on-scroll called for auto scrollbars~n"))
|
||||
(unless incremental? (on-paint)))]
|
||||
[init-auto-scrollbars (lambda x
|
||||
(set! auto? #t)
|
||||
(apply super-init-auto-scrollbars x))]
|
||||
|
|
Loading…
Reference in New Issue
Block a user