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

PR 9368

Browse Source 
svn: r9744
This commit is contained in:
Robby Findler 2008-05-08 16:24:13 +00:00
parent b333625c43
commit 79cc0c2942
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1373,10 +1373,11 @@ module browser threading seems wrong.
(send top-outer-panel stretchable-width (not vertical?)) (send top-outer-panel stretchable-width (not vertical?))
(send top-panel set-orientation (not vertical?)) (send top-panel set-orientation (not vertical?))
(send toolbar/rest-panel set-orientation vertical?) (send toolbar/rest-panel set-orientation vertical?)
(send toolbar/rest-panel change-children (λ (l) (send toolbar/rest-panel change-children
(if bar-at-beginning? (λ (l)
(cons top-outer-panel (remq top-outer-panel l)) (if bar-at-beginning?
(append (remq top-outer-panel l) (list top-outer-panel))))) (cons top-outer-panel (remq top-outer-panel l))
(append (remq top-outer-panel l) (list top-outer-panel)))))
(send top-outer-panel change-children (λ (l) (list top-panel))) (send top-outer-panel change-children (λ (l) (list top-panel)))
(send logging-parent-panel change-children (λ (l) (list logging-panel))) (send logging-parent-panel change-children (λ (l) (list logging-panel)))
(if vertical? (if vertical?
@ -2268,10 +2269,11 @@ module browser threading seems wrong.
(send definitions-text set-delegate old-delegate) (send definitions-text set-delegate old-delegate)
(update-running (send current-tab is-running?)) (update-running (send current-tab is-running?))
(on-tab-change old-tab current-tab) (on-tab-change old-tab current-tab)
(end-container-sequence) (end-container-sequence)
;; restore-visible-tab-regions has to be outside the container sequence ;; restore-visible-tab-regions has to be outside the container sequence
;; or else things get moved again during the container sequence end ;; or else things get moved again during the container sequence end
(restore-visible-tab-regions))) (restore-visible-tab-regions)))
(define/pubment (on-tab-change from-tab to-tab) (define/pubment (on-tab-change from-tab to-tab)
(let ([old-enabled (send from-tab get-enabled)] (let ([old-enabled (send from-tab get-enabled)]
@ -3350,7 +3352,12 @@ module browser threading seems wrong.
[define teachpack-items null] [define teachpack-items null]
[define break-button (void)] [define break-button (void)]
[define execute-button (void)] [define execute-button (void)]
[define button-panel (new horizontal-panel% [parent top-panel] [spacing 2])] [define button-panel
(new (class horizontal-panel%
(define/override (after-new-child c)
;; do this so that new buttons that show up are put in the right mode
(update-toolbar-visiblity))
(super-new [parent top-panel] [spacing 2])))]
[define/public get-execute-button (λ () execute-button)] [define/public get-execute-button (λ () execute-button)]
[define/public get-break-button (λ () break-button)] [define/public get-break-button (λ () break-button)]
[define/public get-button-panel (λ () button-panel)] [define/public get-button-panel (λ () button-panel)]