A lot of "MrEd" -> "GRacket"s.
original commit: 7f6efdc8beea4b81af31807f9788197c24d0d63e
This commit is contained in:
parent
ce035e3f8c
commit
ae0eb104c5
|
@ -7,7 +7,7 @@
|
|||
(export framework:application^)
|
||||
|
||||
(define current-app-name (make-parameter
|
||||
"MrEd"
|
||||
"GRacket"
|
||||
(λ (x)
|
||||
(unless (string? x)
|
||||
(error 'current-app-name
|
||||
|
|
|
@ -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)]))
|
||||
|
||||
|
|
|
@ -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}
|
||||
|
||||
|
|
|
@ -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))]
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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")))))
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
|
||||
;; MrEd automatic testing basic functions and macros
|
||||
;; GRacket automatic testing basic functions and macros
|
||||
|
||||
(require mzlib/class)
|
||||
|
||||
|
|
|
@ -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
|
||||
[
|
||||
|
|
|
@ -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
|
||||
[
|
||||
|
|
Loading…
Reference in New Issue
Block a user