From ae0eb104c5ff5f43eb4cc096ac4ef7a0b04afdac Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 16 May 2010 23:46:05 -0400 Subject: [PATCH] A lot of "MrEd" -> "GRacket"s. original commit: 7f6efdc8beea4b81af31807f9788197c24d0d63e --- collects/framework/private/application.rkt | 2 +- collects/mred/private/repl.rkt | 2 +- collects/scribblings/framework/test.scrbl | 2 +- collects/scribblings/gui/blurbs.rkt | 2 +- collects/tests/framework/handler-test.rkt | 4 ++-- collects/tests/framework/test-suite-utils.rkt | 2 +- collects/tests/mred/README | 6 +++--- collects/tests/mred/testing.rktl | 2 +- man/man1/mred.1 | 2 +- man/man1/mzscheme.1 | 2 +- 10 files changed, 13 insertions(+), 13 deletions(-) diff --git a/collects/framework/private/application.rkt b/collects/framework/private/application.rkt index 30eaa497..b7777082 100644 --- a/collects/framework/private/application.rkt +++ b/collects/framework/private/application.rkt @@ -7,7 +7,7 @@ (export framework:application^) (define current-app-name (make-parameter - "MrEd" + "GRacket" (λ (x) (unless (string? x) (error 'current-app-name diff --git a/collects/mred/private/repl.rkt b/collects/mred/private/repl.rkt index d68e04c9..a98c2c7a 100644 --- a/collects/mred/private/repl.rkt +++ b/collects/mred/private/repl.rkt @@ -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)])) diff --git a/collects/scribblings/framework/test.scrbl b/collects/scribblings/framework/test.scrbl index baf993fb..50f848f0 100644 --- a/collects/scribblings/framework/test.scrbl +++ b/collects/scribblings/framework/test.scrbl @@ -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} diff --git a/collects/scribblings/gui/blurbs.rkt b/collects/scribblings/gui/blurbs.rkt index a9210b94..577c399e 100644 --- a/collects/scribblings/gui/blurbs.rkt +++ b/collects/scribblings/gui/blurbs.rkt @@ -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))] diff --git a/collects/tests/framework/handler-test.rkt b/collects/tests/framework/handler-test.rkt index a6e79334..4f469873 100644 --- a/collects/tests/framework/handler-test.rkt +++ b/collects/tests/framework/handler-test.rkt @@ -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) diff --git a/collects/tests/framework/test-suite-utils.rkt b/collects/tests/framework/test-suite-utils.rkt index 704d833a..2f060aa1 100644 --- a/collects/tests/framework/test-suite-utils.rkt +++ b/collects/tests/framework/test-suite-utils.rkt @@ -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"))))) diff --git a/collects/tests/mred/README b/collects/tests/mred/README index 6ce7f292..aa94a21a 100644 --- a/collects/tests/mred/README +++ b/collects/tests/mred/README @@ -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) diff --git a/collects/tests/mred/testing.rktl b/collects/tests/mred/testing.rktl index e08d5fda..0e3c9880 100644 --- a/collects/tests/mred/testing.rktl +++ b/collects/tests/mred/testing.rktl @@ -1,5 +1,5 @@ -;; MrEd automatic testing basic functions and macros +;; GRacket automatic testing basic functions and macros (require mzlib/class) diff --git a/man/man1/mred.1 b/man/man1/mred.1 index d5e64711..4c46b27a 100644 --- a/man/man1/mred.1 +++ b/man/man1/mred.1 @@ -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 [ diff --git a/man/man1/mzscheme.1 b/man/man1/mzscheme.1 index 5adf4fc7..ae104ad2 100644 --- a/man/man1/mzscheme.1 +++ b/man/man1/mzscheme.1 @@ -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 [