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

made logging panel disappear with the toolbar

Browse Source 
svn: r3705
This commit is contained in:
Robby Findler 2006-07-14 16:50:55 +00:00
parent 5471a32913
commit a84d46d5c6
1 changed files with 4 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1117,19 +1117,6 @@ module browser threading seems wrong.
(send (make-object message% (path->string logging) hp) stretchable-width #t) (send (make-object message% (path->string logging) hp) stretchable-width #t)
(make-object button% (string-constant stop-logging) hp (λ (x y) (stop-logging)))) (make-object button% (string-constant stop-logging) hp (λ (x y) (stop-logging))))
;; remove-logging-pref-callback : -> void
;; removes the callback that shows and hides the logging panel
(field [remove-logging-pref-callback
(preferences:add-callback
'framework:show-status-line
(λ (p v)
(when (is-a? logging-parent-panel panel%)
(send logging-parent-panel change-children
(λ (l)
(if v
(list logging-panel)
null))))))])
;; ensure-empty : string[directory] -> boolean ;; ensure-empty : string[directory] -> boolean
;; if the log-directory is empty, just return #t ;; if the log-directory is empty, just return #t
;; if not, ask the user about emptying it. ;; if not, ask the user about emptying it.
@ -1180,8 +1167,8 @@ module browser threading seems wrong.
(parent louter-panel) (parent louter-panel)
(stretchable-height #f))) (stretchable-height #f)))
(set! logging-panel (make-object horizontal-panel% logging-parent-panel)) (set! logging-panel (make-object horizontal-panel% logging-parent-panel))
(unless (preferences:get 'framework:show-status-line) (unless toolbar-shown?
(send logging-parent-panel change-children (λ (l) null))) (send logging-parent-panel change-children (λ (l) '())))
root)) root))
(inherit show-info hide-info is-info-hidden?) (inherit show-info hide-info is-info-hidden?)
@ -1201,10 +1188,12 @@ module browser threading seems wrong.
[toolbar-shown? [toolbar-shown?
(show-info) (show-info)
(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 toolbar-menu-item set-label (string-constant hide-toolbar))] (send toolbar-menu-item set-label (string-constant hide-toolbar))]
[else [else
(hide-info) (hide-info)
(send top-outer-panel change-children (λ (l) '())) (send top-outer-panel change-children (λ (l) '()))
(send logging-parent-panel change-children (λ (l) '()))
(send toolbar-menu-item set-label (string-constant show-toolbar))]) (send toolbar-menu-item set-label (string-constant show-toolbar))])
(update-defs/ints-resize-corner)) (update-defs/ints-resize-corner))
@ -1953,7 +1942,6 @@ module browser threading seems wrong.
(set! newest-frame #f)) (set! newest-frame #f))
(when logging (when logging
(stop-logging)) (stop-logging))
(remove-logging-pref-callback)
(remove-show-status-line-callback) (remove-show-status-line-callback)
(send interactions-text on-close)) (send interactions-text on-close))