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

.

Browse Source 
original commit: b92792f3e6d182ff8b5c058aee02d96f47e4019f
This commit is contained in:
Matthew Flatt 2004-11-01 20:10:42 +00:00
parent 5888081a06
commit 355e9dcafb
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/mred.ss
View File

@ -4837,7 +4837,8 @@
min-client-width min-client-height min-client-width min-client-height
on-char on-event on-paint on-scroll on-tab-in on-char on-event on-paint on-scroll on-tab-in
warp-pointer get-dc warp-pointer get-dc
set-canvas-background get-canvas-background)) set-canvas-background get-canvas-background
set-resize-corner))
(define-keywords canvas%-keywords (define-keywords canvas%-keywords
window%-keywords window%-keywords
@ -4875,7 +4876,10 @@
[get-canvas-background [get-canvas-background
(entry-point (entry-point
(lambda () (lambda ()
(send wx get-canvas-background)))]) (send wx get-canvas-background)))]
[set-resize-corner (lambda (on?)
(send wx set-resize-corner))])
(private-field (private-field
[wx #f]) [wx #f])
(sequence (sequence

1
collects/mred/private/kernel.ss
View File

@ -356,6 +356,7 @@
scroll scroll
warp-pointer warp-pointer
view-start view-start
set-resize-corner
show-scrollbars show-scrollbars
set-scrollbars set-scrollbars
get-virtual-size get-virtual-size