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

original commit: 7f6efdc8beea4b81af31807f9788197c24d0d63e
This commit is contained in:
Eli Barzilay 2010-05-16 23:46:05 -04:00
parent ce035e3f8c
commit ae0eb104c5
10 changed files with 13 additions and 13 deletions

View File

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

View File

@ -82,7 +82,7 @@
[on-drop-file (lambda (f) (evaluate (format "(load ~s)" (path->string f))))])
(sequence
(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-display-canvas (new editor-canvas% [parent frame] [style '(no-border auto-hscroll resize-corner)]))

View File

@ -28,7 +28,7 @@ buttons, setting check-boxes and choices, sending keystrokes,
selecting menu items and clicking the mouse. Many functions
that are also useful in application testing, such as
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}

View File

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

View File

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

View File

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

View File

@ -24,8 +24,8 @@ A large number of lines (say, 50) indicates a GC problem.
---------------------------------------------------------------------------
[Out of date:]
The "random.ss" test is a randomized test of the MrEd classes that tests
MrEd's stability. Load "random.ss", and then run
The "random.ss" test is a randomized test of the GRacket classes that tests
GRacket's stability. Load "random.ss", and then run
(init)
This attempts to create instances of classes using random
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
call wx:kill-eventspace instead.
'console included:
Open a MrEd console
Open a GRacket console
'thread included:
Spawn a sleeping-and-looping thread during each invocation.
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)

View File

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

View File

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