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?))]
[click-select (lambda (on?) (send snip click-select on?))]
[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)])
(send snip get-extent dc 0 0 #f h-box #f #f #f #f)
(send admin
scroll-to
snip
0 0 0 (unbox h-box) #t)))]
(when dc
(send snip get-extent dc 0 0 #f h-box #f #f #f #f)
(send admin
scroll-to
snip
0 0 0 (unbox h-box) #t))))]
[user-data (case-lambda [() data][(x) (set! data x)])]
[get-parent (lambda ()
(let ([parent-of-snip (send snip get-parent)])