From 0fe4de70acf6535ab21e9090e626e4ebe353ebc6 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 2 May 2008 03:11:41 +0000 Subject: [PATCH] fixed a bug in the way the resize-corner for the defs/ints was working svn: r9584 --- collects/drscheme/private/unit.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss index e4c2e27230..1251c6802b 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -1384,10 +1384,12 @@ module browser threading seems wrong. (update-defs/ints-resize-corner/pref v)))]) (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) - (let ([bottom-material? (and (toolbar-shown?) si-pref)]) + (let ([bottom-material? (and (not (car toolbar-state)) + si-pref)]) (let loop ([cs definitions-canvases]) (cond [(null? cs) (void)]