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

fixed bug in the panels and gc bug

Browse Source 
original commit: 4873692e07e863c38a82895a06bfd63299661456
This commit is contained in:
Robby Findler 1996-10-27 00:14:11 +00:00
parent 5e242260a9
commit ac80edb119
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/panel.ss
View File

@ -52,7 +52,7 @@
(let* ([parents-children (ivar parent children)]
[num-children (length parents-children)])
(if (<= num-children 1)
(collapse parent)
(helper parent)
(begin (send parent delete-child canvas/panel)
(send (car (ivar parent children)) set-focus)))))))])
(send media remove-canvas canvas)