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

...

Browse Source 
original commit: 3d25ef1cbf8bda213007228663a138040ede49cf
This commit is contained in:
Robby Findler 1999-02-09 16:39:38 +00:00
parent 10231812c2
commit 45a0c13121
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/framework/frame.ss
View File

@ -737,7 +737,7 @@
(lambda (p v)
(if v
(register-gc-blit)
'(unregister-collecting-blit gc-canvas))
(unregister-collecting-blit gc-canvas))
(send super-root change-children
(lambda (l)
(if v
@ -748,7 +748,7 @@
(lambda ()
(super-on-close)
(send time-canvas set-editor #f)
'(unregister-collecting-blit gc-canvas)
(unregister-collecting-blit gc-canvas)
(close-panel-callback))])
(inherit get-editor)
@ -805,7 +805,7 @@
[offb (icon:get-gc-off-bitmap)])
(when (and (send onb ok?)
(send offb ok?))
'(register-collecting-blit gc-canvas
(register-collecting-blit gc-canvas
0 0
(send onb get-width)
(send onb get-height)