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