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

fixes the warning message so that if you close it once,

Browse Source 
then it stays closed until you click 'Run' again.
  closes PR 11783
This commit is contained in:
Robby Findler 2011-04-17 19:33:19 -05:00
parent 6b2219b9e5
commit d1ddc8372e
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -684,9 +684,10 @@ module browser threading seems wrong.
;; returns the current warning message if "Run" should be clicked (ie, if the
;; state of the REPL is out of sync with drscheme).
(define/public (get-needs-execution-message)
(or (and (not (this-and-next-language-the-same?))
(string-constant needs-execute-language-changed))
needs-execution-state))
(and (not already-warned-state)
(or (and (not (this-and-next-language-the-same?))
(string-constant needs-execute-language-changed))
needs-execution-state)))
(define/pubment (get-next-settings) next-settings)
(define/pubment (set-next-settings _next-settings [update-prefs? #t])
@ -1208,7 +1209,8 @@ module browser threading seems wrong.
(define/public (get-current-execute-warning) current-execute-warning)
(define/public (clear-execution-state)
(set! current-execute-warning #f)
(update-execute-warning-gui))
(update-execute-warning-gui)
(send defs already-warned))
(define/public (update-execute-warning-gui)
(when (is-current-tab?)
(send frame show/hide-warning-message