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

get rid of the 'pending' and 'finished' online expansion messages

Browse Source 
the information is still there in the color of the little dot in
the corner but hopefully this will be less distracting

closes PR 14114
This commit is contained in:
Robby Findler 2013-11-09 20:15:08 -06:00
parent 052dbb32d1
commit 53c6658e43
1 changed files with 5 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
pkgs/drracket-pkgs/drracket/drracket/private/module-language.rkt
View File

@ -1058,9 +1058,9 @@
(define/private (update-bottom-bar) (define/private (update-bottom-bar)
(cond (cond
[(running? running-status) [(running? running-status)
(set-bottom-bar-status/pending)] (set-bottom-bar-status/blank)]
[(and (dirty? running-status) our-turn?) [(and (dirty? running-status) our-turn?)
(set-bottom-bar-status/pending)] (set-bottom-bar-status/blank)]
[(and (dirty? running-status) (not our-turn?)) [(and (dirty? running-status) (not our-turn?))
(send (get-defs) set-bottom-bar-status (list (exn-info "" '() '() #f)) #f #f)] (send (get-defs) set-bottom-bar-status (list (exn-info "" '() '() #f)) #f #f)]
[(clean? running-status) [(clean? running-status)
@ -1068,20 +1068,11 @@
(send (get-defs) set-bottom-bar-status (send (get-defs) set-bottom-bar-status
(clean-error-messages+locs running-status) (clean-error-messages+locs running-status)
#t #t) #t #t)
(send (get-defs) set-bottom-bar-status (set-bottom-bar-status/blank))]))
(list (exn-info (string-constant online-expansion-finished)
'()
'()
#f))
#f
#f))]))
(define/private (set-bottom-bar-status/pending) (define/private (set-bottom-bar-status/blank)
(send (get-defs) set-bottom-bar-status (send (get-defs) set-bottom-bar-status
(list (exn-info (string-constant online-expansion-pending) (list (exn-info "" '() '() #f))
'()
'()
#f))
#f #f
#f)) #f))