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

add guards so the module browser

Browse Source 
status line isn't updated
anymore when it is closed

(probably) closes PR 13083
This commit is contained in:
Robby Findler 2012-11-22 14:53:31 -06:00
parent 475822b44a
commit b4b7340fd9
1 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3400,6 +3400,7 @@ module browser threading seems wrong.
(when module-browser-panel
(set! module-browser-shown? #f)
(send module-browser-menu-item set-label (string-constant show-module-browser))
(set! module-browser-mouse-over-status-line-open? #f)
(close-status-line 'plt:module-browser:mouse-over)
(send module-browser-parent-panel change-children
(λ (l)
@ -3419,8 +3420,10 @@ module browser threading seems wrong.
#:dialog-mixin frame:focus-table-mixin))
can-browse?))
(define module-browser-mouse-over-status-line-open? #f)
(define/private (update-module-browser-pane)
(open-status-line 'plt:module-browser:mouse-over)
(set! module-browser-mouse-over-status-line-open? #t)
(send module-browser-panel begin-container-sequence)
(unless module-browser-ec
(set! module-browser-pb
@ -3493,16 +3496,17 @@ module browser threading seems wrong.
[(3) 'very-long])))
(define/private (mouse-currently-over snips)
(if (null? snips)
(update-status-line 'plt:module-browser:mouse-over #f)
(let* ([snip (car snips)]
[lines (send snip get-lines)]
[name (or (send snip get-filename)
(send snip get-word))]
[str (if lines
(format (string-constant module-browser-filename-format) name lines)
name)])
(update-status-line 'plt:module-browser:mouse-over str))))
(when module-browser-mouse-over-status-line-open?
(if (null? snips)
(update-status-line 'plt:module-browser:mouse-over #f)
(let* ([snip (car snips)]
[lines (send snip get-lines)]
[name (or (send snip get-filename)
(send snip get-word))]
[str (if lines
(format (string-constant module-browser-filename-format) name lines)
name)])
(update-status-line 'plt:module-browser:mouse-over str)))))
(define/private (calculate-module-browser)
(let ([mod-tab current-tab])