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

.

Browse Source 
original commit: bdd66a25411d21ec179c84a38b8cf469d57aa30c
This commit is contained in:
Matthew Flatt 1999-04-07 17:25:37 +00:00
parent c79c0cc523
commit e203300576
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/mred/item.ss
View File

@ -1425,7 +1425,9 @@
(send dc draw-line 0 vh vw vh) (send dc draw-line 0 vh vw vh)
(send dc draw-line vw 0 vw vh))))] (send dc draw-line vw 0 vw vh))))]
[on-scroll [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 [init-auto-scrollbars (lambda x
(set! auto? #t) (set! auto? #t)
(apply super-init-auto-scrollbars x))] (apply super-init-auto-scrollbars x))]