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^) (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

@ -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

@ -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

@ -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

@ -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
[ [