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

fix bug that affects the DrRacket language dialog

Browse Source 
when switching to he choose-a-language radio button
 when the selected language is under a closed section
This commit is contained in:
Matthew Flatt 2010-12-23 07:15:36 -06:00
parent 93b2046b75
commit e5175c5b38
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/mrlib/hierlist/hierlist-unit.rkt
View File

@ -187,13 +187,14 @@
[select (lambda (on?) (send snip select on?))] [select (lambda (on?) (send snip select on?))]
[click-select (lambda (on?) (send snip click-select on?))] [click-select (lambda (on?) (send snip click-select on?))]
[scroll-to (lambda () (let* ([admin (send snip get-admin)] [scroll-to (lambda () (let* ([admin (send snip get-admin)]
[dc (send admin get-dc)] [dc (and admin (send admin get-dc))]
[h-box (box 0.0)]) [h-box (box 0.0)])
(send snip get-extent dc 0 0 #f h-box #f #f #f #f) (when dc
(send admin (send snip get-extent dc 0 0 #f h-box #f #f #f #f)
scroll-to (send admin
snip scroll-to
0 0 0 (unbox h-box) #t)))] snip
0 0 0 (unbox h-box) #t))))]
[user-data (case-lambda [() data][(x) (set! data x)])] [user-data (case-lambda [() data][(x) (set! data x)])]
[get-parent (lambda () [get-parent (lambda ()
(let ([parent-of-snip (send snip get-parent)]) (let ([parent-of-snip (send snip get-parent)])