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

add a check when switching between tabs to only do the required

Browse Source 
work when the current tab isn't the one we're switching to
This commit is contained in:
Robby Findler 2012-11-11 08:50:35 -06:00
parent 0e655f8e79
commit b822efb9e5
1 changed files with 33 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
collects/drracket/private/unit.rkt
View File

@ -2918,38 +2918,39 @@ module browser threading seems wrong.
;; to be the nth tab. Also updates the GUI to show the new tab
(inherit begin-container-sequence end-container-sequence)
(define/private (change-to-tab tab)
(let ([old-delegate (send definitions-text get-delegate)]
[old-tab current-tab])
(save-visible-tab-regions)
(set! current-tab tab)
(set! definitions-text (send current-tab get-defs))
(set! interactions-text (send current-tab get-ints))
(begin-container-sequence)
(for-each (λ (defs-canvas) (send defs-canvas set-editor definitions-text #f))
definitions-canvases)
(for-each (λ (ints-canvas) (send ints-canvas set-editor interactions-text #f))
interactions-canvases)
(update-save-message)
(update-save-button)
(language-changed)
(send definitions-text update-frame-filename)
(send definitions-text set-delegate old-delegate)
(update-running (send current-tab is-running?))
(on-tab-change old-tab current-tab)
(send tab update-log)
(send tab update-planet-status)
(send tab update-execute-warning-gui)
(restore-visible-tab-regions)
(for-each (λ (defs-canvas) (send defs-canvas refresh))
definitions-canvases)
(for-each (λ (ints-canvas) (send ints-canvas refresh))
interactions-canvases)
(set-color-status! (send definitions-text is-lexer-valid?))
(end-container-sequence)))
(unless (eq? current-tab tab)
(let ([old-delegate (send definitions-text get-delegate)]
[old-tab current-tab])
(save-visible-tab-regions)
(set! current-tab tab)
(set! definitions-text (send current-tab get-defs))
(set! interactions-text (send current-tab get-ints))
(begin-container-sequence)
(for-each (λ (defs-canvas) (send defs-canvas set-editor definitions-text #f))
definitions-canvases)
(for-each (λ (ints-canvas) (send ints-canvas set-editor interactions-text #f))
interactions-canvases)
(update-save-message)
(update-save-button)
(language-changed)
(send definitions-text update-frame-filename)
(send definitions-text set-delegate old-delegate)
(update-running (send current-tab is-running?))
(on-tab-change old-tab current-tab)
(send tab update-log)
(send tab update-planet-status)
(send tab update-execute-warning-gui)
(restore-visible-tab-regions)
(for-each (λ (defs-canvas) (send defs-canvas refresh))
definitions-canvases)
(for-each (λ (ints-canvas) (send ints-canvas refresh))
interactions-canvases)
(set-color-status! (send definitions-text is-lexer-valid?))
(end-container-sequence))))
(define/pubment (on-tab-change from-tab to-tab)
(let ([old-enabled (send from-tab get-enabled)]