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

prevent oversizing frame when showing the slideshow panel in DrScheme

Browse Source 
svn: r1405
This commit is contained in:
Matthew Flatt 2005-11-25 13:10:38 +00:00
parent ed6f45bc3e
commit f16206787f
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/slideshow/tool.ss
View File

@ -563,13 +563,15 @@ pict snip :
(super update-shown) (super update-shown)
(if slideshow-panel-visible? (if slideshow-panel-visible?
(begin (begin
(unless slideshow-panel (build-slideshow-panel)) (send slideshow-parent-panel begin-container-sequence)
(unless slideshow-panel (build-slideshow-panel))
(when (is-a? view-menu-item menu-item%) (when (is-a? view-menu-item menu-item%)
(send view-menu-item set-label sc-hide-slideshow-panel)) (send view-menu-item set-label sc-hide-slideshow-panel))
(send slideshow-parent-panel (send slideshow-parent-panel
change-children change-children
(lambda (l) (lambda (l)
(list everything-else-panel slideshow-panel)))) (list everything-else-panel slideshow-panel)))
(send slideshow-parent-panel end-container-sequence))
(begin (begin
(when (is-a? view-menu-item menu-item%) (when (is-a? view-menu-item menu-item%)
(send view-menu-item set-label sc-show-slideshow-panel)) (send view-menu-item set-label sc-show-slideshow-panel))