A lot of "MrEd" -> "GRacket"s.

This commit is contained in:
Eli Barzilay 2010-05-16 23:46:05 -04:00
parent 2ecdc0f33a
commit 7f6efdc8be
61 changed files with 130 additions and 130 deletions

View File

@ -6,7 +6,7 @@
;; splines. This allows the usual O(log(n)) operations, plus a ;; splines. This allows the usual O(log(n)) operations, plus a
;; O(log(n)) shift operation. ;; O(log(n)) shift operation.
;; (This is the same data structure as used for lines by MrEd's text% ;; (This is the same data structure as used for lines by GRacket's text%
;; class, but that one is implemented in C++.) ;; class, but that one is implemented in C++.)
(import) (import)
(export (rename relative-btree^ (export (rename relative-btree^

View File

@ -55,7 +55,7 @@
;; Create directories for libs, collects, and extensions: ;; Create directories for libs, collects, and extensions:
(let-values ([(lib-dir collects-dir relative-collects-dir exts-dir relative-exts-dir) (let-values ([(lib-dir collects-dir relative-collects-dir exts-dir relative-exts-dir)
(if single-mac-app? (if single-mac-app?
;; Special case: single Mac OS X MrEd app: ;; Special case: single Mac OS X GRacket app:
(let-values ([(base name dir?) (let-values ([(base name dir?)
(split-path (car binaries))]) (split-path (car binaries))])
(values (values
@ -294,7 +294,7 @@
[(macosx) [(macosx)
(if (and (= 1 (length types)) (if (and (= 1 (length types))
(memq (car types) '(mredcgc mred3m))) (memq (car types) '(mredcgc mred3m)))
;; Special case for single MrEd app: ;; Special case for single GRacket app:
(update-framework-path "@executable_path/../Frameworks/" (update-framework-path "@executable_path/../Frameworks/"
(car binaries) (car binaries)
#t) #t)

View File

@ -1065,7 +1065,7 @@
(link-exists? dest)) (link-exists? dest))
;; Delete-file isn't enough if the target ;; Delete-file isn't enough if the target
;; is supposed to be a directory. But ;; is supposed to be a directory. But
;; currently, that happens only for MrEd ;; currently, that happens only for GRacket
;; on Mac OS X, which is handles above. ;; on Mac OS X, which is handles above.
(delete-file dest)) (delete-file dest))
(copy-file exe dest) (copy-file exe dest)
@ -1271,7 +1271,7 @@
(when m (when m
(set-subsystem dest-exe (cdr m)))))]))))))))) (set-subsystem dest-exe (cdr m)))))])))))))))
;; For Mac OS X MrEd, the actual executable is deep inside the ;; For Mac OS X GRacket, the actual executable is deep inside the
;; nominal executable bundle ;; nominal executable bundle
(define (mac-mred-collects-path-adjust p) (define (mac-mred-collects-path-adjust p)
(cond (cond

View File

@ -622,7 +622,7 @@
(lambda () (close-input-port p))))) (lambda () (close-input-port p)))))
;; The following is useful for bitmap->icon, ;; The following is useful for bitmap->icon,
;; but it uses MrEd, and this module is used by ;; but it uses GRacket, and this module is used by
;; Setup PLT. Probably this code should just be ;; Setup PLT. Probably this code should just be
;; moved somewhere else. ;; moved somewhere else.
#; #;

View File

@ -1734,7 +1734,7 @@
(define (skip-static-line? e) (define (skip-static-line? e)
;; We want to skip the really-big static declaration for ;; We want to skip the really-big static declaration for
;; the inlined bytecodes in MrEd ;; the inlined bytecodes in GRacket
(let loop ([e e][l '(static unsigned char expr)]) (let loop ([e e][l '(static unsigned char expr)])
(cond (cond
[(null? l) #t] [(null? l) #t]

View File

@ -1288,7 +1288,7 @@ all of the names in the tools library, for use defining keybindings
string? string?
. -> . (or/c false/c path?)) . -> . (or/c false/c path?))
(parent program-filename mode mred? title) (parent program-filename mode mred? title)
@{Calls the MrEd primitive @{Calls the GRacket primitive
@racket[put-file] @racket[put-file]
with arguments appropriate for creating an executable with arguments appropriate for creating an executable
from the file @racket[program-filename]. from the file @racket[program-filename].

View File

@ -7,7 +7,7 @@
(export framework:application^) (export framework:application^)
(define current-app-name (make-parameter (define current-app-name (make-parameter
"MrEd" "GRacket"
(λ (x) (λ (x)
(unless (string? x) (unless (string? x)
(error 'current-app-name (error 'current-app-name

View File

@ -1,5 +1,5 @@
; graphics.ss ; graphics.ss
; Simple graphics routines for MrEd ; Simple graphics routines for GRacket
; Originally written by Johnathan Franklin ; Originally written by Johnathan Franklin
; ;
; modified by Gregory Cooper to support FrTime ; modified by Gregory Cooper to support FrTime

View File

@ -287,11 +287,11 @@ of the resulting class that gets the result of applying
FtA provides event-is-val, split-mouse-events/type, and FtA provides event-is-val, split-mouse-events/type, and
split-key-events/type for use as initialization arguments. split-key-events/type for use as initialization arguments.
event-is-val can be used for [stream-name]-event-processor event-is-val can be used for [stream-name]-event-processor
when the event should just be the value of the first when the event should just be the value of the first
argument of the callback. split-*-events/type sets up an argument of the callback. split-*-events/type sets up an
appropriate split (see FrTime docs for split information, appropriate split (see FrTime docs for split information,
MrEd docs for key-event codes and mouse-event types). GRacket docs for key-event codes and mouse-event types).
MIXINS MIXINS
------ ------

View File

@ -14,7 +14,7 @@
(only-in frtime/lang-core (only-in frtime/lang-core
any-nested-reactivity? raise-reactivity) any-nested-reactivity? raise-reactivity)
;; MrEd require ;; GRacket require
(except-in mred send-event)) (except-in mred send-event))
(define drs-eventspace #f) (define drs-eventspace #f)

View File

@ -31,7 +31,7 @@ event-is-val can be used for [stream-name]-event-processor
when the event should just be the value of the first when the event should just be the value of the first
argument of the callback. split-*-events/type sets up an argument of the callback. split-*-events/type sets up an
appropriate split (see FrTime docs for split information, appropriate split (see FrTime docs for split information,
MrEd docs for key-event codes and mouse-event types) over GRacket docs for key-event codes and mouse-event types) over
the type of event occurence. the type of event occurence.

View File

@ -155,7 +155,7 @@ included in the basic FrTime language.
(require (lifted:nonstrict module-spec proc-name ...) ...) (require (lifted:nonstrict module-spec proc-name ...) ...)
] ]
@section[#:tag "fred"]{Fred: Functional Reactive Wrapper around MrEd} @section[#:tag "fred"]{Fred: Functional Reactive Wrapper around GRacket}
@defmodule[frtime/gui/fred] @defmodule[frtime/gui/fred]

View File

@ -276,7 +276,7 @@
[(#\L) (push-left! (sub1 p))] [(#\L) (push-left! (sub1 p))]
[(#\R) (push-right! (sub1 p))])))))))] [(#\R) (push-right! (sub1 p))])))))))]
[run-player [run-player
;; A wrapper for monitoring the program player in a MrEd thread. ;; A wrapper for monitoring the program player in a GRacket thread.
;; Also handle the possibility that something goes wrong. ;; Also handle the possibility that something goes wrong.
(lambda (robot who) (lambda (robot who)
(send status set-label (format "~a: running ~a" (send status set-label (format "~a: running ~a"
@ -613,7 +613,7 @@
(send canvas focus) (send canvas focus)
; Make a text window for showing the board history to the right. ; Make a text window for showing the board history to the right.
; Uses the built-in text editor in MrEd, adding a show-moves ; Uses the built-in text editor in GRacket, adding a show-moves
; method to refresh the window after a move or rewind. ; method to refresh the window after a move or rewind.
(make-object message% "Moves" history-panel) (make-object message% "Moves" history-panel)
(define history-canvas (make-object editor-canvas% history-panel #f '(no-hscroll))) (define history-canvas (make-object editor-canvas% history-panel #f '(no-hscroll)))

View File

@ -1,5 +1,5 @@
; graphics.ss ; graphics.ss
; Simple graphics routines for MrEd ; Simple graphics routines for GRacket
; Originally written by Johnathan Franklin ; Originally written by Johnathan Franklin
(module graphics-posn-less-unit mzscheme (module graphics-posn-less-unit mzscheme

View File

@ -14,7 +14,7 @@ languages for other modules (i.e., as the initial import):
functions of Beginning Student. functions of Beginning Student.
* _plt-pretty-big.ss_ - provides plt-pretty-big-text.ss * _plt-pretty-big.ss_ - provides plt-pretty-big-text.ss
plus the MrEd classes. This corresponds to the plus the GRacket classes. This corresponds to the
_Pretty Big Scheme_ language in DrScheme. _Pretty Big Scheme_ language in DrScheme.
* _htdp-beginner.ss_ - provides Beginning Student * _htdp-beginner.ss_ - provides Beginning Student

View File

@ -3,7 +3,7 @@
(define op (current-output-port)) (define op (current-output-port))
;; Flag to indicate whether we've tried to load ;; Flag to indicate whether we've tried to load
;; the MrEd-using image functions ;; the GRacket-using image functions
(define tried? #f) (define tried? #f)
;; This macro is used once to export all functions ;; This macro is used once to export all functions
@ -41,6 +41,6 @@
;; Each re-export is the name, formals for the argument, ;; Each re-export is the name, formals for the argument,
;; and if the first argument isn't required to be an image, ;; and if the first argument isn't required to be an image,
;; a function to apply when the real version is unavailable ;; a function to apply when the real version is unavailable
;; (i.e., because there's no MrEd) ;; (i.e., because there's no GRacket)
(re-export (image? (x) (lambda (x) #f)) (re-export (image? (x) (lambda (x) #f))
(image=? (a b)))) (image=? (a b))))

View File

@ -7,7 +7,7 @@
(define variants (available-mred-variants)) (define variants (available-mred-variants))
(for ([v variants] #:when (memq v '(3m cgc))) (for ([v variants] #:when (memq v '(3m cgc)))
(parameterize ([current-launcher-variant v]) (parameterize ([current-launcher-variant v])
(create-embedding-executable (create-embedding-executable
(mred-program-launcher-path "MrEd") (mred-program-launcher-path "MrEd")
#:cmdline '("-I" "scheme/gui/init") #:cmdline '("-I" "scheme/gui/init")
#:variant v #:variant v

View File

@ -13,7 +13,7 @@
(provide (protect group-box%)) (provide (protect group-box%))
;; Not exported from MrEd: ;; Not exported from GRacket:
(define group-box% (define group-box%
(class100 basic-control% (label parent [style null] [font #f]) (class100 basic-control% (label parent [style null] [font #f])
(override (override

View File

@ -12,7 +12,7 @@
(provide (protect tab-group%)) (provide (protect tab-group%))
;; Not exported from MrEd: ;; Not exported from GRacket:
(define tab-group% (define tab-group%
(class100 basic-control% (label choices parent callback [style null] [font #f]) (class100 basic-control% (label choices parent callback [style null] [font #f])
(override (override

View File

@ -82,7 +82,7 @@
[on-drop-file (lambda (f) (evaluate (format "(load ~s)" (path->string f))))]) [on-drop-file (lambda (f) (evaluate (format "(load ~s)" (path->string f))))])
(sequence (sequence
(apply super-init args) (accept-drop-files #t))) (apply super-init args) (accept-drop-files #t)))
"MrEd REPL" #f 500 400)) "GRacket REPL" #f 500 400))
(define repl-buffer (make-object esq:text%)) (define repl-buffer (make-object esq:text%))
(define repl-display-canvas (new editor-canvas% [parent frame] [style '(no-border auto-hscroll resize-corner)])) (define repl-display-canvas (new editor-canvas% [parent frame] [style '(no-border auto-hscroll resize-corner)]))

View File

@ -9,6 +9,6 @@
((gui-dynamic-require 'send-event) who class msg data args) ((gui-dynamic-require 'send-event) who class msg data args)
(raise (raise
(make-exn:fail:unsupported (make-exn:fail:unsupported
"send-event: only supported in MrEd" "send-event: only supported in GRacket"
(current-continuation-marks)))))) (current-continuation-marks))))))

View File

@ -90,7 +90,7 @@
specific to the Tree class. The second part is more generic, specific to the Tree class. The second part is more generic,
providing a fairly simple objscheme_ interface to class-specific providing a fairly simple objscheme_ interface to class-specific
glue, such the Tree glue. The second part can be shared for any glue, such the Tree glue. The second part can be shared for any
number of C++ classes, and it is similar to code used by MrEd. number of C++ classes, and it is similar to code used by GRacket.
*/ */
#include "escheme.h" #include "escheme.h"
@ -507,7 +507,7 @@ Scheme_Object *scheme_module_name()
/**********************************************************/ /**********************************************************/
/* /*
(This code is mostly the same as code used by MrEd, and duplicating (This code is mostly the same as code used by GRacket, and duplicating
it is certainly a bad idea in principle, but putting the code in a it is certainly a bad idea in principle, but putting the code in a
shareable place seems like more work than is worthwhile for now.) shareable place seems like more work than is worthwhile for now.)

View File

@ -58,6 +58,6 @@
queue-for-update)) queue-for-update))
;; style-map ;; style-map
;; Maps symbolic style names ('bold, 'red) to MrEd styles. ;; Maps symbolic style names ('bold, 'red) to GRacket styles.
(define-interface style-map<%> () (define-interface style-map<%> ()
(get-style)) (get-style))

View File

@ -28,7 +28,7 @@ buttons, setting check-boxes and choices, sending keystrokes,
selecting menu items and clicking the mouse. Many functions selecting menu items and clicking the mouse. Many functions
that are also useful in application testing, such as that are also useful in application testing, such as
traversing a tree of panels, getting the text from a canvas, traversing a tree of panels, getting the text from a canvas,
determining if a window is shown, and so on, exist in MrEd. determining if a window is shown, and so on, exist in GRacket.
@section[#:tag "test:actions-completeness"]{Actions and completeness} @section[#:tag "test:actions-completeness"]{Actions and completeness}

View File

@ -245,7 +245,7 @@ information@|details|, even if the editor currently has delayed refreshing (see
(bytes->string/latin-1 name)))) (bytes->string/latin-1 name))))
(define (res-sym s) (define (res-sym s)
(string->symbol (string-append "MrEd:" s))) (string->symbol (string-append "GRacket:" s)))
(define (Resource s) (define (Resource s)
@elem{@to-element[`(quote ,(res-sym s))] @elem{@to-element[`(quote ,(res-sym s))]

View File

@ -320,7 +320,7 @@ To embed Racket CGC in a program, follow these steps:
@filepath{libmzgc@italic{x}.dll} must be moved to a location in the @filepath{libmzgc@italic{x}.dll} must be moved to a location in the
standard DLL search path, or your embedding application must standard DLL search path, or your embedding application must
``delayload'' link the DLLs and explicitly load them before ``delayload'' link the DLLs and explicitly load them before
use. (@filepath{Racket.exe} and @filepath{MrEd.exe} use the latter use. (@filepath{Racket.exe} and @filepath{GRacket.exe} use the latter
strategy.) strategy.)
Under Mac OS X, dynamic libraries are provided by the Under Mac OS X, dynamic libraries are provided by the

View File

@ -24,7 +24,7 @@ automatically directed to shut down its managed values as well.}
@defproc[(custodian-shutdown-all [cust custodian?]) void?]{ @defproc[(custodian-shutdown-all [cust custodian?]) void?]{
@margin-note{In MrEd, @|eventspaces| managed by @racket[cust] are also @margin-note{In GRacket, @|eventspaces| managed by @racket[cust] are also
shut down.} shut down.}
Closes all @tech{file-stream ports}, @tech{TCP ports}, @tech{TCP Closes all @tech{file-stream ports}, @tech{TCP ports}, @tech{TCP
@ -40,7 +40,7 @@ thread.}
@defparam[current-custodian cust custodian?]{ @defparam[current-custodian cust custodian?]{
@margin-note{In MrEd, custodians also manage @|eventspaces|.} @margin-note{In GRacket, custodians also manage @|eventspaces|.}
A parameter that determines a custodian that assumes responsibility A parameter that determines a custodian that assumes responsibility
for newly created threads, @tech{file-stream ports}, TCP ports, for newly created threads, @tech{file-stream ports}, TCP ports,

View File

@ -766,7 +766,7 @@ created, it is placed under the management of the @deftech{current
custodian} as determined by the @racket[current-custodian] custodian} as determined by the @racket[current-custodian]
@tech{parameter}. @tech{parameter}.
@margin-note{In MrEd, custodians also manage eventspaces.} @margin-note{In GRacket, custodians also manage eventspaces.}
Except for the root custodian, every @tech{custodian} itself it Except for the root custodian, every @tech{custodian} itself it
managed by a @tech{custodian}, so that custodians form a hierarchy. managed by a @tech{custodian}, so that custodians form a hierarchy.

View File

@ -113,7 +113,7 @@ by @racket[kind], which must be one of the following:
executable as provided by the operating system for the current executable as provided by the operating system for the current
invocation. invocation.
@margin-note{For MrEd, the executable path is the name of a MrEd @margin-note{For GRacket, the executable path is the name of a GRacket
executable.}} executable.}}
@item{@indexed-racket['run-file] --- the path of the current @item{@indexed-racket['run-file] --- the path of the current

View File

@ -110,7 +110,7 @@ Racket.}
@defproc[(banner) (and/c string? immutable?)]{ @defproc[(banner) (and/c string? immutable?)]{
Returns an immutable string for Racket's start-up banner text (or the Returns an immutable string for Racket's start-up banner text (or the
banner text for an embedding program, such as MrEd). The banner string banner text for an embedding program, such as GRacket). The banner string
ends with a newline.} ends with a newline.}

View File

@ -684,7 +684,7 @@
(send message-editor insert bcc-header) (send message-editor insert bcc-header)
(send message-editor insert #\newline))) (send message-editor insert #\newline)))
(send message-editor insert (string-crlf->lf other-headers)) (send message-editor insert (string-crlf->lf other-headers))
(send message-editor insert "X-Mailer: SirMail under MrEd ") (send message-editor insert "X-Mailer: SirMail under GRacket ")
(send message-editor insert (version)) (send message-editor insert (version))
(send message-editor insert " (") (send message-editor insert " (")
(send message-editor insert (path->string (system-library-subpath))) (send message-editor insert (path->string (system-library-subpath)))

View File

@ -8,7 +8,7 @@
define/provide-struct) define/provide-struct)
;; If bitmap creation fails, try an explicit GC. ;; If bitmap creation fails, try an explicit GC.
;; (This loop should be built into MrEd, but it wasn't ;; (This loop should be built into GRacket, but it wasn't
;; at the time this code was written.) ;; at the time this code was written.)
(define (make-bitmap w h) (define (make-bitmap w h)
(let loop ([n 0]) (let loop ([n 0])

View File

@ -431,7 +431,7 @@
(slide (slide
#:title "Arbitrary Drawing" #:title "Arbitrary Drawing"
(para "The" (code dc) "function provides an escape hatch to the underlying" (para "The" (code dc) "function provides an escape hatch to the underlying"
"MrEd toolkit") "GRacket toolkit")
(para "For example," (code (disk 100)) "is the same as") (para "For example," (code (disk 100)) "is the same as")
(code (code
(dc (lambda (dc dx dy) (dc (lambda (dc dx dy)

View File

@ -921,8 +921,8 @@
;;; --------------------------------------------------------------------------- ;;; ---------------------------------------------------------------------------
;;>>... Very basic UI - works also in console mode ;;>>... Very basic UI - works also in console mode
;;> The following defines some hacked UI functions that works using MrEd GUI ;;> The following defines some hacked UI functions that works using GRacket
;;> if it is available, or the standard error and input ports otherwise. ;;> GUI if it is available, or the standard error and input ports otherwise.
;;> The check is done by looking for a GUI global binding. ;;> The check is done by looking for a GUI global binding.
;;>> *dialog-title* ;;>> *dialog-title*

View File

@ -90,7 +90,7 @@ suppress evaluation of test expressions.
@; FIXME: need to actually list the bindings here, so they're found in @; FIXME: need to actually list the bindings here, so they're found in
@; the index @; the index
This module requires MrEd and produces an independent window when This module requires GRacket and produces an independent window when
displaying test results. It provides the same bindings as displaying test results. It provides the same bindings as
@scheme[test-engine/scheme-tests]. @scheme[test-engine/scheme-tests].

View File

@ -6,7 +6,7 @@
(test (test
'file-opened 'file-opened
(lambda (x) (equal? (list filename "MrEd REPL") x)) (lambda (x) (equal? (list filename "GRacket REPL") x))
(lambda () (lambda ()
(send-sexp-to-mred (send-sexp-to-mred
`(begin (handler:edit-file ,tmp-filename) `(begin (handler:edit-file ,tmp-filename)
@ -18,7 +18,7 @@
(test (test
'files-opened-twice 'files-opened-twice
(lambda (x) (equal? (list filename "MrEd REPL") x)) (lambda (x) (equal? (list filename "GRacket REPL") x))
(lambda () (lambda ()
(send-sexp-to-mred (send-sexp-to-mred
`(begin (handler:edit-file ,tmp-filename) `(begin (handler:edit-file ,tmp-filename)

View File

@ -88,7 +88,7 @@
(let-values ([(dir exe _) (let-values ([(dir exe _)
(split-path (find-system-path 'exec-file))]) (split-path (find-system-path 'exec-file))])
dir) dir)
(if (eq? 'windows (system-type)) "MrEd.exe" "mred"))) (if (eq? 'windows (system-type)) "GRacket.exe" "mred")))
(path->string (path->string
(build-path (collection-path "tests" "framework") (build-path (collection-path "tests" "framework")
"framework-test-engine.ss"))))) "framework-test-engine.ss")))))

View File

@ -24,8 +24,8 @@ A large number of lines (say, 50) indicates a GC problem.
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
[Out of date:] [Out of date:]
The "random.ss" test is a randomized test of the MrEd classes that tests The "random.ss" test is a randomized test of the GRacket classes that tests
MrEd's stability. Load "random.ss", and then run GRacket's stability. Load "random.ss", and then run
(init) (init)
This attempts to create instances of classes using random This attempts to create instances of classes using random
intialization arguments. (init) can be run any number of times. intialization arguments. (init) can be run any number of times.
@ -56,7 +56,7 @@ of symbol flags:
Use a new eventspace; don't run mred:run-exit-callbacks and Use a new eventspace; don't run mred:run-exit-callbacks and
call wx:kill-eventspace instead. call wx:kill-eventspace instead.
'console included: 'console included:
Open a MrEd console Open a GRacket console
'thread included: 'thread included:
Spawn a sleeping-and-looping thread during each invocation. Spawn a sleeping-and-looping thread during each invocation.
Also tests semaphore-callback (because it has to) Also tests semaphore-callback (because it has to)

View File

@ -1,5 +1,5 @@
;; MrEd automatic testing basic functions and macros ;; GRacket automatic testing basic functions and macros
(require mzlib/class) (require mzlib/class)

View File

@ -11,7 +11,7 @@
;; Don't try to run other tests from the test suite after loading this ;; Don't try to run other tests from the test suite after loading this
;; one into a particular namespace. ;; one into a particular namespace.
;; See also htdp-image.ss, which must be loaded into MrEd (but is in this ;; See also htdp-image.ss, which must be loaded into GRacket (but is in this
;; directory anyway) ;; directory anyway)
;; Tests that apply to all languages go in beg-adv.ss. ;; Tests that apply to all languages go in beg-adv.ss.

View File

@ -367,7 +367,7 @@
(extension-test #f) (extension-test #f)
(extension-test #t) (extension-test #t)
;; A MrEd-specific test with mzc: ;; A GRacket-specific test with mzc:
(parameterize ([current-directory (find-system-path 'temp-dir)]) (parameterize ([current-directory (find-system-path 'temp-dir)])
(system* mzc (system* mzc
"--gui-exe" "--gui-exe"
@ -375,7 +375,7 @@
(path->string (build-path (collection-path "tests" "mzscheme") "embed-me5.ss"))) (path->string (build-path (collection-path "tests" "mzscheme") "embed-me5.ss")))
(try-exe (mk-dest #t) "This is 5: #<class:button%>\n" #t)) (try-exe (mk-dest #t) "This is 5: #<class:button%>\n" #t))
;; Another MrEd-specific: try embedding plot, which has extra DLLs and font files: ;; Another GRacket-specific: try embedding plot, which has extra DLLs and font files:
(parameterize ([current-directory (find-system-path 'temp-dir)]) (parameterize ([current-directory (find-system-path 'temp-dir)])
(define direct (build-path (find-system-path 'temp-dir) "direct.ps")) (define direct (build-path (find-system-path 'temp-dir) "direct.ps"))

View File

@ -1,4 +1,4 @@
;; Load this one with MrEd ;; Load this one with GRacket
(load-relative "loadtest.rktl") (load-relative "loadtest.rktl")
(require teachpack/htdp/image (require teachpack/htdp/image

View File

@ -982,7 +982,7 @@
;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;
;; ;;
;; XML (uses MrEd) ;; XML (uses GRacket)
;; ;;
;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;
@ -1464,4 +1464,4 @@

View File

@ -34,8 +34,8 @@ picts. However, it also means that a pict cannot be generated before
its target device is known. its target device is known.
A slightly different set of picture-making function are available for A slightly different set of picture-making function are available for
MrEd and LaTeX output. For example, the LaTeX set includes `tex', GRacket and LaTeX output. For example, the LaTeX set includes `tex',
which accepts a string of arbitrary LaTeX code, and the MrEd set which accepts a string of arbitrary LaTeX code, and the GRacket set
includes `dc', which accepts an arbitrary Scheme procedure for drawing includes `dc', which accepts an arbitrary Scheme procedure for drawing
to a dc<%>. to a dc<%>.
@ -53,25 +53,25 @@ the `slide' function takes any number of picts and assembles them into
a slide. a slide.
If you are using Slideshow, skip the following two sections. In the If you are using Slideshow, skip the following two sections. In the
reference below, functions marked "MrEd only" or "MrEd only, in reference below, functions marked "GRacket only" or "GRacket only, in
utils.ss" are available, and functions marked "LaTeX only" are not utils.ss" are available, and functions marked "LaTeX only" are not
available. available.
For non-Slideshow users, _utils.ss_ library provides additional For non-Slideshow users, _utils.ss_ library provides additional
drawing procedures for MrEd (not LaTeX) output. These are marked below drawing procedures for GRacket (not LaTeX) output. These are marked below
with "MrEd only, in utils.ss". with "GRacket only, in utils.ss".
MrEd (or PostScript) output GRacket (or PostScript) output
--------------------------- ---------------------------
The MrEd texpict function set is loaded by the _mrpict.ss_ library. The GRacket texpict function set is loaded by the _mrpict.ss_ library.
The library is available in unit form via _mrpict-unit.ss_, which The library is available in unit form via _mrpict-unit.ss_, which
exports a `mrpict@' unit that imports mred^ and exports exports a `mrpict@' unit that imports mred^ and exports
`texpict-common^' and `mrpict-extra^'. The _mrpict-sig.ss_ library `texpict-common^' and `mrpict-extra^'. The _mrpict-sig.ss_ library
file provides both signatures. file provides both signatures.
When creating a picture for a MrEd dc<%> that contains text, texpict When creating a picture for a GRacket dc<%> that contains text, texpict
needs a drawing context for measuring the text. Provide a dc<%> before needs a drawing context for measuring the text. Provide a dc<%> before
constructing pictures via the `dc-for-text-size' parameter. The dc<%> constructing pictures via the `dc-for-text-size' parameter. The dc<%>
should have the same text-measuring results as the destination dc<%>; should have the same text-measuring results as the destination dc<%>;
@ -100,7 +100,7 @@ The `draw-pict' function takes a picture, a device context
(send ps-dc end-doc) (send ps-dc end-doc)
If the output dc<%> has a "user scale", it is not reflected in the If the output dc<%> has a "user scale", it is not reflected in the
size information reported for pictures. This is consistent with MrEd's size information reported for pictures. This is consistent with GRacket's
usual policy for reporting size information. usual policy for reporting size information.
LaTeX output LaTeX output
@ -113,7 +113,7 @@ provides a `texpict@' unit with no imports and taht exports
provides both signatures. provides both signatures.
Pictures created with this library are incompatible with Slideshow Pictures created with this library are incompatible with Slideshow
and MrEd-based output. and GRacket-based output.
To create a LaTeX picture, assemble a pict and then To create a LaTeX picture, assemble a pict and then
call `pict->string'. This string can be `display'ed to obtain the call `pict->string'. This string can be `display'ed to obtain the
@ -184,7 +184,7 @@ Basic Constructors:
the scale and offset of the dc will be set. The text mode will the scale and offset of the dc will be set. The text mode will
be transparent, but the font and colors are not guaranteed to be be transparent, but the font and colors are not guaranteed to be
anything in particular. anything in particular.
[MrEd only] [GRacket only]
> (blank) -> pict > (blank) -> pict
> (blank s) -> pict ; s is side length of square > (blank s) -> pict ; s is side length of square
@ -223,7 +223,7 @@ Basic Constructors:
disable combining; if both 'combine and 'no-combine disable combining; if both 'combine and 'no-combine
are specified, the first one takes precedence are specified, the first one takes precedence
If caps is specified, the angle must be zero. If caps is specified, the angle must be zero.
[MrEd only] [GRacket only]
> text-style/c :: contract? > text-style/c :: contract?
@ -238,7 +238,7 @@ Basic Constructors:
> (vline w h) -> pict > (vline w h) -> pict
> (dash-vline w h seg-length) -> pict ; default seg-length is 5 > (dash-vline w h seg-length) -> pict ; default seg-length is 5
To draw other kinds of lines, use `dc' [MrEd only] or `picture' or To draw other kinds of lines, use `dc' [GRacket only] or `picture' or
`cons-picture' [LaTeX]. `cons-picture' [LaTeX].
> (frame pict) -> pict > (frame pict) -> pict
@ -258,38 +258,38 @@ Basic Constructors:
Like `frame' and `dash-frame', but the frame gets a color and Like `frame' and `dash-frame', but the frame gets a color and
optional line width optional line width
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (round-frame pict radius-w) -> pict > (round-frame pict radius-w) -> pict
> (color-round-frame pict radius-w color-string) -> pict > (color-round-frame pict radius-w color-string) -> pict
> (color-round-frame pict radius-w color-string line-w) -> pict > (color-round-frame pict radius-w color-string line-w) -> pict
Rounded frames, given a radius for the corners Rounded frames, given a radius for the corners
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (circle diameter) -> pict > (circle diameter) -> pict
> (disk diameter) -> pict > (disk diameter) -> pict
Unfilled and filled circles; works for all sizes. Unfilled and filled circles; works for all sizes.
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (ellipse width height) -> pict > (ellipse width height) -> pict
> (filled-ellipse width height) -> pict > (filled-ellipse width height) -> pict
Unfilled and filled ellipses; works for all sizes. Unfilled and filled ellipses; works for all sizes.
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (rectangle width height) -> pict > (rectangle width height) -> pict
> (filled-rectangle width height) -> pict > (filled-rectangle width height) -> pict
Unfilled and filled rectangle; works for all sizes. Unfilled and filled rectangle; works for all sizes.
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (rounded-rectangle width height [corner]) -> pict > (rounded-rectangle width height [corner]) -> pict
> (filled-rounded-rectangle width height [corner]) -> pict > (filled-rounded-rectangle width height [corner]) -> pict
Unfilled and filled rounded rectangle; works for all sizes. Unfilled and filled rounded rectangle; works for all sizes.
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (arrow size radians) -> pict > (arrow size radians) -> pict
> (arrowhead size radians) -> pict > (arrowhead size radians) -> pict
@ -297,7 +297,7 @@ Basic Constructors:
Creates an arrow or arrowhead in the specific direction Creates an arrow or arrowhead in the specific direction
within a size x size pict. (Points on the arrow may within a size x size pict. (Points on the arrow may
extend slightly beyond the box.) extend slightly beyond the box.)
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (pip-line dx dy size) -> pict > (pip-line dx dy size) -> pict
> (pip-arrow-line dx dy size) -> pict > (pip-arrow-line dx dy size) -> pict
@ -306,19 +306,19 @@ Basic Constructors:
Creates a line [with arrowhead(s)] as a 0-sized picture suitable Creates a line [with arrowhead(s)] as a 0-sized picture suitable
for use with `pin-over'. The 0-sized picture contains the starting for use with `pin-over'. The 0-sized picture contains the starting
point. point.
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (bitmap filename) -> pict > (bitmap filename) -> pict
> (bitmap bitmap%-object) -> pict > (bitmap bitmap%-object) -> pict
Loads a bitmap into a pict; if the bitmap is not ok, Loads a bitmap into a pict; if the bitmap is not ok,
the result is a box containing the words "bitmap failed" the result is a box containing the words "bitmap failed"
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (cloud w h [color-string "gray"]) -> pict > (cloud w h [color-string "gray"]) -> pict
Fluffy cloud. Fluffy cloud.
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (file-icon w h gray [fancy? ...]) -> pict > (file-icon w h gray [fancy? ...]) -> pict
@ -327,27 +327,27 @@ Basic Constructors:
gray = #t -> default color gray = #t -> default color
gray = color/string -> uses color gray = color/string -> uses color
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (jack-o-lantern size [pumpkin-color "orange"] [face-color "black"]) -> pict > (jack-o-lantern size [pumpkin-color "orange"] [face-color "black"]) -> pict
Creates a jack-o-lantern; use the same pumpkin-color and Creates a jack-o-lantern; use the same pumpkin-color and
face color to get a plain pumpkin. The size is the width. face color to get a plain pumpkin. The size is the width.
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (angel-wing w h left?) -> pict > (angel-wing w h left?) -> pict
Creates an angel wing, left or right, or any size. Creates an angel wing, left or right, or any size.
The color and pen width for drawing the wing outline is the The color and pen width for drawing the wing outline is the
current one. current one.
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (standard-fish w h [direction 'left] [color "blue"] > (standard-fish w h [direction 'left] [color "blue"]
[eye-color "black"] [open-mouth? #t]) -> pict [eye-color "black"] [open-mouth? #t]) -> pict
Creates a fish, swimming either 'left or 'right. Creates a fish, swimming either 'left or 'right.
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (explode-star small-rad large-rad points line-size line-color) > (explode-star small-rad large-rad points line-size line-color)
@ -453,7 +453,7 @@ Drawing Adjusters:
Scales a pict (by adjusting the destination dc<%>'s Scales a pict (by adjusting the destination dc<%>'s
scale while drawing the pict. scale while drawing the pict.
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (ghost pict) -> pict > (ghost pict) -> pict
@ -463,13 +463,13 @@ Drawing Adjusters:
> (thick pict) -> pict > (thick pict) -> pict
> (thin pict) -> pict > (thin pict) -> pict
Set the line thickness for a picture. For MrEd output, Set the line thickness for a picture. For GRacket output,
selects between a pen width of 0 or 1. selects between a pen width of 0 or 1.
> (linewidth w pict) -> pict > (linewidth w pict) -> pict
Set a specific pen width for drawing. Set a specific pen width for drawing.
[MrEd only] [GRacket only]
> (colorize pict color-string) -> pict > (colorize pict color-string) -> pict
@ -481,13 +481,13 @@ Drawing Adjusters:
Same as above, except uses the color% object instead of a string Same as above, except uses the color% object instead of a string
to indicate the color of the pict. to indicate the color of the pict.
[MrEd only] [GRacket only]
> (colorize pict num-list) -> pict > (colorize pict num-list) -> pict
Same as above, except the list of three numbers indicate the Same as above, except the list of three numbers indicate the
red, green, and blue components of the color. red, green, and blue components of the color.
[MrEd only] [GRacket only]
> (cellophane pict opacity) -> pict > (cellophane pict opacity) -> pict
@ -499,7 +499,7 @@ Drawing Adjusters:
> (clip pict) > (clip pict)
Clips a pict to its bounding box. Clips a pict to its bounding box.
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (scale/improve-new-text pict-expr s-expr) > (scale/improve-new-text pict-expr s-expr)
> (scale/improve-new-text pict-expr sx-expr sy-expr) > (scale/improve-new-text pict-expr sx-expr sy-expr)
@ -507,7 +507,7 @@ Drawing Adjusters:
Syntax that is like `scale', but also sets Syntax that is like `scale', but also sets
`current-expected-text-scale' while evaluating `current-expected-text-scale' while evaluating
`pict-expr': `pict-expr':
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (inset/clip pict amt) > (inset/clip pict amt)
> (inset/clip pict h-amt v-amt) > (inset/clip pict h-amt v-amt)
@ -515,7 +515,7 @@ Drawing Adjusters:
Insets and clips the pict's drawing to its Insets and clips the pict's drawing to its
bounding box. (Usually the inset amounts are negative.) bounding box. (Usually the inset amounts are negative.)
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
Bounding-Box Adjusters: Bounding-Box Adjusters:
@ -614,13 +614,13 @@ Other constructors:
The defaults for line-w, color-string, and lines-under? The defaults for line-w, color-string, and lines-under?
are #f, and the default for solid-head? is #t. are #f, and the default for solid-head? is #t.
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (hyperlinkize pict) -> pict > (hyperlinkize pict) -> pict
Adds an underline and blue color. The pict's Adds an underline and blue color. The pict's
height and descent are extended. height and descent are extended.
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
Renderers: Renderers:
@ -637,21 +637,21 @@ Renderers:
the window is at least that size the window is at least that size
and the pict is drawn in the middle of and the pict is drawn in the middle of
the window. the window.
[MrEd only] [GRacket only]
> (draw-pict pict dc x y) -> void > (draw-pict pict dc x y) -> void
Draw a pict to a dc<%> Draw a pict to a dc<%>
[MrEd only] [GRacket only]
> (make-pict-drawer pict) -> ((dc x y) -> void) > (make-pict-drawer pict) -> ((dc x y) -> void)
Generate a pict-drawer procedure for multiple renderings of a Generate a pict-drawer procedure for multiple renderings of a
pict (much faster than repeated calls to draw-pict) pict (much faster than repeated calls to draw-pict)
[MrEd only] [GRacket only]
MrEd DC Helpers: GRacket DC Helpers:
---------------- ----------------
> (scale-color factor string-or-color%) -> color% > (scale-color factor string-or-color%) -> color%
@ -661,17 +661,17 @@ MrEd DC Helpers:
the RGB components by the factor. If the factor is > 1, the RGB components by the factor. If the factor is > 1,
the color is lightened by dividing the gap between the color is lightened by dividing the gap between
the RGB components and 255 by the factor. the RGB components and 255 by the factor.
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (find-pen string-or-color% [size 1] [style 'solid]) -> pen% > (find-pen string-or-color% [size 1] [style 'solid]) -> pen%
Gets an immutable pen% from the-pen-list Gets an immutable pen% from the-pen-list
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> (find-brush string-or-color% [style 'solid]) -> brush% > (find-brush string-or-color% [style 'solid]) -> brush%
Gets an immutable brush from the-brush-list Gets an immutable brush from the-brush-list
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> color-series ; dc<%> num-steps step-delta > color-series ; dc<%> num-steps step-delta
; start-color-or-string% ; start-color-or-string%
@ -688,7 +688,7 @@ MrEd DC Helpers:
starting color; for the last call, it matches the starting color; for the last call, it matches the
ending color; and for intermediate calls, the color ending color; and for intermediate calls, the color
is an intermediate color. is an intermediate color.
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
------------------------------------------------------------ ------------------------------------------------------------
Additional LaTex Utilities Additional LaTex Utilities
@ -721,14 +721,14 @@ Additional LaTex Utilities
[LaTeX only] [LaTeX only]
------------------------------------------------------------ ------------------------------------------------------------
MrEd and LaTex Setup GRacket and LaTex Setup
------------------------------------------------------------ ------------------------------------------------------------
> dc-for-text-size > dc-for-text-size
Parameter specifying the dc<%> to use for measuring text. Parameter specifying the dc<%> to use for measuring text.
Default: #f Default: #f
[MrEd only] [GRacket only]
> current-expected-text-scale ; -> (list num num) > current-expected-text-scale ; -> (list num num)
; (list num num) -> void ; (list num num) -> void
@ -736,7 +736,7 @@ MrEd and LaTex Setup
A parameter used to refine text measurements to better A parameter used to refine text measurements to better
match an expected scaling of the image. match an expected scaling of the image.
Default: 1 Default: 1
[MrEd only] [GRacket only]
> (read-in-sizes string) -> void > (read-in-sizes string) -> void
@ -849,7 +849,7 @@ Obsolete functions
Obsolete versions of the `line+arrow[s]' functions, Obsolete versions of the `line+arrow[s]' functions,
where the vertical delta is negated. where the vertical delta is negated.
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
> add-line > add-line
> add-arrow-line > add-arrow-line
@ -858,7 +858,7 @@ Obsolete functions
Obsolete variants of the pin-...line functions Obsolete variants of the pin-...line functions
where the pict-finding functions are like `find-lt' (i.e., where the pict-finding functions are like `find-lt' (i.e.,
the y result is flipped) the y result is flipped)
[MrEd only, in utils.ss] [GRacket only, in utils.ss]
------------------------------------------------------------ ------------------------------------------------------------
Obsolete: Commands, Putables, and Drawables Obsolete: Commands, Putables, and Drawables
@ -872,7 +872,7 @@ is (0, 0).
The varieties of `connect' commands are for LaTeX, where The varieties of `connect' commands are for LaTeX, where
lines are constrained to a small set of allowed angles. lines are constrained to a small set of allowed angles.
For MrEd, all of the commands below act the same, and produce For GRacket, all of the commands below act the same, and produce
lines with precisely the requested angle. lines with precisely the requested angle.
A command is one of the following: A command is one of the following:

View File

@ -664,7 +664,7 @@
(define (do-read port who read) (define (do-read port who read)
(let ([port (if (gui-available?) (let ([port (if (gui-available?)
;; GUI mode, since MrEd is available: ;; GUI mode, since GRacket is available:
(let ([text% (dynamic-require 'mred 'text%)] (let ([text% (dynamic-require 'mred 'text%)]
[open-input-text-editor (dynamic-require 'mred 'open-input-text-editor)]) [open-input-text-editor (dynamic-require 'mred 'open-input-text-editor)])
(let ([t (new text%)]) (let ([t (new text%)])

View File

@ -2,7 +2,7 @@
.TH MRED 1 "May 2010" .TH MRED 1 "May 2010"
.UC 4 .UC 4
.SH NAME .SH NAME
mred \- compatibility executable for Racket mred \- compatibility executable for GRacket
.SH SYNOPSIS .SH SYNOPSIS
.B mred .B mred
[ [

View File

@ -2,7 +2,7 @@
.TH MZSCHEME 1 "May 2010" .TH MZSCHEME 1 "May 2010"
.UC 4 .UC 4
.SH NAME .SH NAME
mzscheme \- compatibility executable for Racket mzscheme \- compatibility executable for Racket
.SH SYNOPSIS .SH SYNOPSIS
.B mzscheme .B mzscheme
[ [

View File

@ -1,6 +1,6 @@
/* /*
* File: mred.cc * File: mred.cc
* Purpose: MrEd main file, including a hodge-podge of global stuff * Purpose: GRacket main file, including a hodge-podge of global stuff
* Author: Matthew Flatt * Author: Matthew Flatt
* Created: 1995 * Created: 1995
* Copyright: (c) 2004-2010 PLT Scheme Inc. * Copyright: (c) 2004-2010 PLT Scheme Inc.
@ -3642,7 +3642,7 @@ static void wxDo(Scheme_Object *proc, int argc, Scheme_Object **argv)
return; return;
} }
/* wxDo might be called when MrEd is sleeping (i.e., /* wxDo might be called when GRacket is sleeping (i.e.,
blocked on WNE in OS X). Since we're hijacking the blocked on WNE in OS X). Since we're hijacking the
thread, save an restore block information. */ thread, save an restore block information. */
block_descriptor = thread->block_descriptor; block_descriptor = thread->block_descriptor;

View File

@ -1,6 +1,6 @@
/* /*
* File: mredmac.cc * File: mredmac.cc
* Purpose: MrEd MacOS event loop * Purpose: GRacket MacOS event loop
* Author: Matthew Flatt * Author: Matthew Flatt
* Created: 1996 * Created: 1996
* Copyright: (c) 2004-2010 PLT Scheme Inc. * Copyright: (c) 2004-2010 PLT Scheme Inc.

View File

@ -1,6 +1,6 @@
/* /*
* File: mredmsw.cc * File: mredmsw.cc
* Purpose: MrEd Windows event loop * Purpose: GRacket Windows event loop
* Author: Matthew Flatt * Author: Matthew Flatt
* Created: 1996 * Created: 1996
* Copyright: (c) 2004-2010 PLT Scheme Inc. * Copyright: (c) 2004-2010 PLT Scheme Inc.
@ -354,7 +354,7 @@ void MrEdDispatchEvent(MSG *msg)
void wxCopyData(LPARAM lParam) void wxCopyData(LPARAM lParam)
{ {
/* Is this a message from another MrEd? */ /* Is this a message from another GRacket? */
int len; int len;
COPYDATASTRUCT *cd; COPYDATASTRUCT *cd;
len = strlen(MRED_GUID); len = strlen(MRED_GUID);
@ -400,7 +400,7 @@ void wxCopyData(LPARAM lParam)
int wxEventTrampoline(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam, int wxEventTrampoline(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam,
LRESULT *res, WNDPROC proc) LRESULT *res, WNDPROC proc)
/* The Windows event dispatcher doesn't like MrEd's thread /* The Windows event dispatcher doesn't like GRacket's thread
implementation. In particular, if a message causes a thread implementation. In particular, if a message causes a thread
switch or kill, because it triggers Scheme code, then event switch or kill, because it triggers Scheme code, then event
dispatches don't return in the way that Windows expects. dispatches don't return in the way that Windows expects.

View File

@ -1,6 +1,6 @@
/* /*
* File: mredx.cc * File: mredx.cc
* Purpose: MrEd X Windows event loop * Purpose: GRacket X Windows event loop
* Author: Matthew Flatt * Author: Matthew Flatt
* Created: 1996 * Created: 1996
* Copyright: (c) 2004-2010 PLT Scheme Inc. * Copyright: (c) 2004-2010 PLT Scheme Inc.
@ -177,7 +177,7 @@ static void CheckUngrab(Display *dpy, Check_Ungrab_Record *cur)
&b, &d); &b, &d);
if ((cur->x < 0) || (cur->y < 0) if ((cur->x < 0) || (cur->y < 0)
|| ((unsigned int)cur->x > w) || ((unsigned int)cur->y > h)) { || ((unsigned int)cur->x > w) || ((unsigned int)cur->y > h)) {
/* Looks bad, but is it a click in a MrEd window /* Looks bad, but is it a click in a GRacket window
that we could care about? */ that we could care about? */
wxWindow *w; wxWindow *w;

View File

@ -9,7 +9,7 @@
void *dlopen(const char *filename, int flags) void *dlopen(const char *filename, int flags)
{ {
scheme_signal_error("load-extension: can't use with a statically-linked" scheme_signal_error("load-extension: can't use with a statically-linked"
" MrEd"); " GRacket");
return NULL; return NULL;
} }

View File

@ -408,7 +408,7 @@ void wxDrop_GetArgs(int *argc, char ***argv, int *in_terminal)
GetStarterInfo(); GetStarterInfo();
/* Open the PLT_MrEd framework resources: */ /* Open the GRacket framework resources: */
{ {
CFBundleRef fwBundle; CFBundleRef fwBundle;

View File

@ -160,7 +160,7 @@ typedef enum _mx_html_where_ {
insert,append insert,append
} MX_HTML_WHERE; } MX_HTML_WHERE;
typedef struct _browser_window_ { // parameters a la MrEd frame% class typedef struct _browser_window_ { // parameters a la GRacket frame% class
const char *label; const char *label;
int width; int width;
int height; int height;

View File

@ -167,7 +167,7 @@ int GC_general_register_disappearing_link(void * * link,
#if 1 #if 1
/* PLTSCHEME: If wxObjects are sometimes stack-allocated, /* PLTSCHEME: If wxObjects are sometimes stack-allocated,
MrEd needs this. Keeping it for now just-in-case, though GRacket needs this. Keeping it for now just-in-case, though
it should be eliminated in the future. */ it should be eliminated in the future. */
if (!GC_base(link)) if (!GC_base(link))
return 1; return 1;

View File

@ -36,7 +36,7 @@ static void GC_prim_stringout(char *s, int len)
/* Since getting the screen buffer info failed, /* Since getting the screen buffer info failed,
we must be in GUI mode. Create a console we must be in GUI mode. Create a console
window --- and set the handler so that closing window --- and set the handler so that closing
the window doesn't abort MrEd! */ the window doesn't abort GRacket! */
AllocConsole(); AllocConsole();
console = GetStdHandle(STD_ERROR_HANDLE); console = GetStdHandle(STD_ERROR_HANDLE);
GetConsoleScreenBufferInfo(console, &info); GetConsoleScreenBufferInfo(console, &info);

View File

@ -25,7 +25,7 @@
/* This file defines Racket's main(), which is a jumble of /* This file defines Racket's main(), which is a jumble of
platform-specific initialization. The included file "cmdline.inc" platform-specific initialization. The included file "cmdline.inc"
implements command-line parsing. (MrEd also uses "cmdline.inc".) implements command-line parsing. (GRacket also uses "cmdline.inc".)
The rest of the source code resides in the `src' subdirectory The rest of the source code resides in the `src' subdirectory
(except for the garbage collector, which is in `gc', `sgc', or (except for the garbage collector, which is in `gc', `sgc', or

View File

@ -3268,7 +3268,7 @@ read_string(int is_byte, int is_honu_char, Scheme_Object *port,
} }
Scheme_Object *scheme_read_byte_string(Scheme_Object *port) Scheme_Object *scheme_read_byte_string(Scheme_Object *port)
/* used by MrEd */ /* used by GRacket */
{ {
return read_string(1, 0, port, return read_string(1, 0, port,
NULL, 0, 0, 0, NULL, 0, 0, 0,

View File

@ -719,8 +719,8 @@ int scheme_wait_semas_chs(int n, Scheme_Object **o, int just_try, Syncing *synci
out_of_a_line = 0; out_of_a_line = 0;
/* If we get the post, we must return WITHOUT BLOCKING. /* If we get the post, we must return WITHOUT BLOCKING.
MrEd, for example, depends on this special property, which ensures GRacket, for example, depends on this special property, which
that the thread can't be broken or killed between ensures that the thread can't be broken or killed between
receiving the post and returning. */ receiving the post and returning. */
if (!syncing) { if (!syncing) {

View File

@ -2000,7 +2000,7 @@ void wxPath::Arc(double x, double y, double w, double h, double start, double en
start_open = IsOpen(); start_open = IsOpen();
/* The arc below is backwards from the MrEd API.... */ /* The arc below is backwards from the GRacket API.... */
{ {
double s; double s;
s = start; s = start;

View File

@ -232,7 +232,7 @@ static int alloc_close_color(Display *display, Colormap cmap, XColor *xc)
if (approxmsg) { if (approxmsg) {
wxError("Cannot allocate color, using approximate match.\n" wxError("Cannot allocate color, using approximate match.\n"
"(Future allocations may be approximate without report.)", "(Future allocations may be approximate without report.)",
"MrEd Warning"); "GRacket Warning");
approxmsg = 0; approxmsg = 0;
} }