(module mred mzscheme (require (only scheme/base define-namespace-anchor namespace-anchor->empty-namespace make-base-empty-namespace) scheme/class mzlib/etc (prefix wx: "private/kernel.ss") (prefix wx: "private/wxme/style.ss") (prefix wx: "private/wxme/editor.ss") (prefix wx: "private/wxme/text.ss") (prefix wx: "private/wxme/pasteboard.ss") (prefix wx: "private/wxme/snip.ss") (prefix wx: "private/wxme/keymap.ss") (prefix wx: "private/wxme/editor-admin.ss") (prefix wx: "private/wxme/editor-snip.ss") (prefix wx: "private/wxme/stream.ss") (prefix wx: "private/wxme/wordbreak.ss") (prefix wx: "private/wxme/snip-admin.ss") "private/wxtop.ss" "private/app.ss" "private/misc.ss" "private/mrwindow.ss" "private/mrcontainer.ss" "private/mrtop.ss" "private/mrpanel.ss" "private/mrcanvas.ss" "private/mritem.ss" "private/mrtextfield.ss" "private/mrmenuintf.ss" "private/mrmenu.ss" "private/mrpopup.ss" "private/editor.ss" "private/messagebox.ss" "private/filedialog.ss" "private/fontdialog.ss" "private/moredialogs.ss" "private/gdi.ss" "private/snipfile.ss" "private/repl.ss" "private/afm.ss" "private/helper.ss" "private/dynamic.ss") ;; Initialize AFM/PS: (wx:set-ps-procs afm-draw-text afm-get-text-extent afm-expand-name afm-glyph-exists? afm-record-font afm-fonts-string) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (wx:set-dialogs get-file put-file get-ps-setup-from-user message-box) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define-namespace-anchor anchor) (define (make-gui-empty-namespace) (let ([ns (make-base-empty-namespace)]) (namespace-attach-module (namespace-anchor->empty-namespace anchor) 'mred ns) ns)) (define (make-gui-namespace) (let ([ns (make-gui-empty-namespace)]) (parameterize ([current-namespace ns]) (namespace-require 'scheme/base) (namespace-require 'mred) (namespace-require 'scheme/class)) ns)) (define (make-eventspace) (parameterize ([wx:the-snip-class-list (wx:make-the-snip-class-list)] [wx:the-editor-data-class-list (wx:make-the-editor-data-class-list)]) (wx:make-eventspace))) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define-syntax propagate (lambda (stx) (syntax-case stx () [(_ n ...) (let ([ns (syntax->list (syntax (n ...)))]) (with-syntax ([(k:n ...) (map (lambda (n) (datum->syntax-object n (string->symbol (format "wx:~a" (syntax-e n))) #f)) ns)]) (syntax (begin ;; We can't just re-export, because kernel.ss's ;; exports are protected. (define n k:n) ... (provide n ...)))))]))) (propagate add-color<%> add-editor-keymap-functions add-text-keymap-functions add-pasteboard-keymap-functions begin-busy-cursor bell bitmap% brush% brush-list% editor-data% editor-data-class% editor-data-class-list<%> check-for-break clipboard<%> clipboard-client% color% color-database<%> control-event% current-eventspace current-ps-setup cursor% dc<%> dc-path% get-display-depth end-busy-cursor event% event-dispatch-handler eventspace? find-graphical-system-path flush-display font% font-list% font-name-directory<%> get-resource get-the-editor-data-class-list get-the-snip-class-list image-snip% is-busy? is-color-display? key-event% keymap% editor-admin% editor-set-x-selection-mode editor-snip-editor-admin<%> editor-stream-in% editor-stream-in-base% editor-stream-in-bytes-base% editor-stream-out% editor-stream-out-base% editor-stream-out-bytes-base% editor-wordbreak-map% mouse-event% mult-color<%> pen% pen-list% point% ps-setup% read-editor-global-footer read-editor-global-header read-editor-version region% scroll-event% snip% snip-admin% snip-class% snip-class-list<%> special-control-key special-option-key map-command-as-meta-key label->plain-label string-snip% style<%> style-delta% style-list% tab-snip% write-editor-global-footer write-editor-global-header write-editor-version write-resource queue-callback yield eventspace-shutdown? get-panel-background send-event gl-context<%> gl-config%) (define the-color-database (wx:get-the-color-database)) (define the-font-name-directory (wx:get-the-font-name-directory)) (define the-clipboard (wx:get-the-clipboard)) (define the-x-selection-clipboard (wx:get-the-x-selection)) (define the-font-list (wx:get-the-font-list)) (define the-pen-list (wx:get-the-pen-list)) (define the-brush-list (wx:get-the-brush-list)) (define the-style-list wx:the-style-list) (define the-editor-wordbreak-map wx:the-editor-wordbreak-map) (provide button% canvas% check-box% choice% dialog% frame% gauge% tab-panel% group-box-panel% list-box% editor-canvas% message% pane% horizontal-pane% vertical-pane% grow-box-spacer-pane% panel% horizontal-panel% vertical-panel% radio-box% slider% text-field% combo-field% window<%> area<%> top-level-window<%> subarea<%> subwindow<%> area-container<%> area-container-window<%> canvas<%> control<%> list-control<%> menu-item<%> separator-menu-item% selectable-menu-item<%> labelled-menu-item<%> menu-item% checkable-menu-item% get-default-shortcut-prefix menu-item-container<%> menu% menu-bar% popup-menu% get-top-level-windows editor-snip% editor<%> text% pasteboard% graphical-read-eval-print-loop textual-read-eval-print-loop message-box message+check-box message-box/custom message+check-box/custom get-face-list get-file get-file-list put-file get-directory get-choices-from-user get-text-from-user get-ps-setup-from-user get-page-setup-from-user can-get-page-setup-from-user? play-sound get-display-size get-display-left-top-inset get-color-from-user get-font-from-user append-editor-operation-menu-items append-editor-font-menu-items get-top-level-focus-window get-top-level-edit-target-window register-collecting-blit unregister-collecting-blit bitmap-dc% post-script-dc% printer-dc% current-text-keymap-initializer sleep/yield get-window-text-extent get-family-builtin-face send-message-to-window the-clipboard the-x-selection-clipboard the-editor-wordbreak-map the-brush-list the-color-database the-font-name-directory the-pen-list the-font-list the-style-list normal-control-font small-control-font tiny-control-font view-control-font menu-control-font timer% readable-snip<%> open-input-text-editor open-input-graphical-file open-output-text-editor text-editor-load-handler application-about-handler application-preferences-handler application-quit-handler application-file-handler current-eventspace-has-standard-menus? current-eventspace-has-menu-root? eventspace-handler-thread make-eventspace make-gui-namespace make-gui-empty-namespace file-creator-and-type current-ps-afm-file-paths current-ps-cmap-file-paths hide-cursor-until-moved system-position-ok-before-cancel?))