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

..

Browse Source 
original commit: 125413b1549a617205a12429c521e4f7ef0beffa
This commit is contained in:
Robby Findler 2003-05-17 17:12:01 +00:00
parent ff0560792a
commit b52ec6eda2
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/framework/private/frame.ss
View File

@ -464,7 +464,9 @@
set-info-canvas
get-info-canvas
get-info-editor
get-info-panel))
get-info-panel
show-info
hide-info))
(define magic-space 25)
@ -517,6 +519,14 @@
(rename [super-on-close on-close])
[define outer-info-panel 'top-info-panel-uninitialized]
(define/public (hide-info)
(send super-root change-children
(lambda (l)
(list rest-panel))))
(define/public (show-info)
(send super-root change-children
(lambda (l)
(list rest-panel outer-info-panel))))
[define close-panel-callback
(preferences:add-callback
'framework:show-status-line
@ -524,11 +534,9 @@
(if v
(register-gc-blit)
(unregister-collecting-blit gc-canvas))
(send super-root change-children
(lambda (l)
(if v
(list rest-panel outer-info-panel)
(list rest-panel))))))]
(if v
(show-info)
(hide-info))))]
[define memory-cleanup void] ;; only for CVSers; used with memory-text
(override on-close)
[define on-close