76 lines
2.3 KiB
Racket
76 lines
2.3 KiB
Racket
#lang scheme/base
|
|
(require scheme/runtime-path (for-syntax scheme/base))
|
|
(provide (all-defined-out))
|
|
|
|
(define-runtime-path platform-lib
|
|
(let ([gtk-lib
|
|
'(lib "mred/private/wx/gtk/platform.rkt")])
|
|
(case (system-type)
|
|
[(windows) (if (getenv "PLT_WIN_GTK")
|
|
gtk-lib
|
|
'(lib "mred/private/wx/win32/platform.rkt"))]
|
|
[(maxcosx) '(lib "mred/private/wx/cocoa/platform.rkt")]
|
|
[(unix) gtk-lib])))
|
|
|
|
(define-values (button%
|
|
canvas%
|
|
check-box%
|
|
choice%
|
|
clipboard-driver%
|
|
cursor-driver%
|
|
dialog%
|
|
frame%
|
|
gauge%
|
|
gl-context%
|
|
group-panel%
|
|
item%
|
|
list-box%
|
|
menu%
|
|
menu-bar%
|
|
menu-item%
|
|
message%
|
|
panel%
|
|
printer-dc%
|
|
radio-box%
|
|
slider%
|
|
tab-panel%
|
|
window%
|
|
can-show-print-setup?
|
|
show-print-setup
|
|
id-to-menu-item
|
|
file-selector
|
|
is-color-display?
|
|
get-display-depth
|
|
has-x-selection?
|
|
hide-cursor
|
|
bell
|
|
display-size
|
|
display-origin
|
|
get-resource
|
|
write-resource
|
|
flush-display
|
|
fill-private-color
|
|
cancel-quit
|
|
get-control-font-size
|
|
get-control-font-size-in-pixels?
|
|
get-double-click-time
|
|
run-printout
|
|
file-creator-and-type
|
|
send-event
|
|
location->window
|
|
shortcut-visible-in-label?
|
|
unregister-collecting-blit
|
|
register-collecting-blit
|
|
find-graphical-system-path
|
|
play-sound
|
|
get-panel-background
|
|
get-font-from-user
|
|
get-color-from-user
|
|
special-option-key
|
|
special-control-key
|
|
get-highlight-background-color
|
|
get-highlight-text-color
|
|
make-screen-bitmap
|
|
check-for-break)
|
|
((dynamic-require platform-lib 'platform-values)))
|