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

fixed a bug in the way the resize-corner for the defs/ints was working

Browse Source 
svn: r9584
This commit is contained in:
Robby Findler 2008-05-02 03:11:41 +00:00
parent 044922053a
commit 0fe4de70ac
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/drscheme/private/unit.ss
View File

@ -1384,10 +1384,12 @@ module browser threading seems wrong.
(update-defs/ints-resize-corner/pref v)))]) (update-defs/ints-resize-corner/pref v)))])
(define/private (update-defs/ints-resize-corner) (define/private (update-defs/ints-resize-corner)
(update-defs/ints-resize-corner/pref (preferences:get 'framework:show-status-line))) (update-defs/ints-resize-corner/pref
(preferences:get 'framework:show-status-line)))
(define/private (update-defs/ints-resize-corner/pref si-pref) (define/private (update-defs/ints-resize-corner/pref si-pref)
(let ([bottom-material? (and (toolbar-shown?) si-pref)]) (let ([bottom-material? (and (not (car toolbar-state))
si-pref)])
(let loop ([cs definitions-canvases]) (let loop ([cs definitions-canvases])
(cond (cond
[(null? cs) (void)] [(null? cs) (void)]