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

..

Browse Source 
original commit: 03ebf4654328bd69868e4d1061b9c38322b6f9fe
This commit is contained in:
Robby Findler 1998-12-04 20:26:52 +00:00
parent 996c08e41c
commit d165311b7e
2 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/framework/frame.ss
View File

@ -716,7 +716,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
@ -727,7 +727,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)
@ -785,7 +785,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)
@ -805,9 +805,9 @@
[gc-height (if (send gcb ok?)
(send gcb get-height)
10)])
'(send* gc-canvas
(min-client-width gc-width)
(min-client-height gc-height)
(send* gc-canvas
(min-client-width (max (send gc-canvas min-width) gc-width))
(min-client-height (max (send gc-canvas min-height) gc-height))
(stretchable-width #f)
(stretchable-height #f)))
(send* (get-info-panel)

9
collects/framework/text.ss
View File

@ -405,11 +405,12 @@
(override
[on-local-char
(lambda (key)
(let ([cr-code 13]
[lf-code 10]
(let ([cr-code #\return]
[lf-code #\newline]
[code (send key get-key-code)])
(or (and (or (= lf-code code)
(= cr-code code))
(or (and (char? code)
(or (char=? lf-code code)
(char=? cr-code code))
(return))
(super-on-local-char key))))])
(sequence