Remove erroneous files
This commit is contained in:
Eli Barzilay
parent
83bcdbbd81
commit
f29e4c860b
|
|
@ -1,324 +0,0 @@
|
|||
(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"
|
||||
"private/check.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?
|
||||
label-string?
|
||||
key-code-symbol?))
|
||||
|
|
@ -1,31 +0,0 @@
|
|||
***************
|
||||
*** 38,56 ****
|
||||
"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)
|
||||
--- 38,46 ----
|
||||
"private/gdi.ss"
|
||||
"private/snipfile.ss"
|
||||
"private/repl.ss"
|
||||
"private/helper.ss"
|
||||
"private/dynamic.ss")
|
||||
|
||||
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(wx:set-dialogs get-file put-file get-ps-setup-from-user message-box)
|
||||
Loading…
Reference in New Issue
Block a user