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

.

Browse Source 
original commit: e264a9a0aa9593fb71c7158024e622f454082f2e
This commit is contained in:
Matthew Flatt 2005-05-16 15:48:52 +00:00
parent 84cfae357e
commit bf8fb6027f
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -118,6 +118,7 @@
on-size on-size
on-set-focus on-set-focus
on-kill-focus on-kill-focus
get-handle
is-enabled-to-root? is-enabled-to-root?
is-shown-to-root? is-shown-to-root?
set-phantom-size set-phantom-size

5
collects/mred/private/mrwindow.ss
View File

@ -110,7 +110,8 @@
get-label set-label get-plain-label get-label set-label get-plain-label
get-client-size get-size get-width get-height get-x get-y get-client-size get-size get-width get-height get-x get-y
get-cursor set-cursor popup-menu get-cursor set-cursor popup-menu
show is-shown? on-superwindow-show refresh)) show is-shown? on-superwindow-show refresh
get-handle))
(define-keywords window%-keywords [enabled #t]) (define-keywords window%-keywords [enabled #t])
@ -166,6 +167,8 @@
l)))] l)))]
[get-plain-label (lambda () (and (string? label) (wx:label->plain-label label)))] [get-plain-label (lambda () (and (string? label) (wx:label->plain-label label)))]
[get-handle (lambda () (send wx get-handle))]
[accept-drop-files [accept-drop-files
(entry-point (entry-point
(case-lambda (case-lambda