From 8d9e10f34e9c6883b3f00395dbe2487cd1c1abb9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 15 Apr 2011 07:31:19 -0600 Subject: [PATCH] remove compat bins: DrScheme, MrEd.exe, MrEd.app leaving mred (Unix and Mac OS X) for scripts --- collects/drscheme/info.rkt | 4 ++-- collects/mred/installer.rkt | 28 ++++++++++++++----------- collects/scribblings/main/license.scrbl | 6 +++--- doc/release-notes/drracket/HISTORY.txt | 6 ++++++ doc/release-notes/racket/HISTORY.txt | 4 ++++ 5 files changed, 31 insertions(+), 17 deletions(-) diff --git a/collects/drscheme/info.rkt b/collects/drscheme/info.rkt index 2442c15e2c..fcc315f533 100644 --- a/collects/drscheme/info.rkt +++ b/collects/drscheme/info.rkt @@ -1,4 +1,4 @@ #lang setup/infotab -(define mred-launcher-names '("DrScheme")) -(define mred-launcher-libraries '("drscheme.rkt")) +;(define mred-launcher-names '("DrScheme")) +;(define mred-launcher-libraries '("drscheme.rkt")) diff --git a/collects/mred/installer.rkt b/collects/mred/installer.rkt index 5f27caeae0..f6119fe3e4 100644 --- a/collects/mred/installer.rkt +++ b/collects/mred/installer.rkt @@ -3,19 +3,23 @@ (require launcher compiler/embed) (provide post-installer) +;; Platforms that get a `MrEd' executable: +(define mred-exe-systems '(unix)) + (define (post-installer path) (define variants (available-mred-variants)) - (for ([v variants] #:when (memq v '(3m cgc))) - (parameterize ([current-launcher-variant v]) - (create-embedding-executable - (mred-program-launcher-path "MrEd") - #:cmdline '("-I" "scheme/gui/init") - #:variant v - #:launcher? #t - #:gracket? #t - #:aux '((framework-root . #f) - (dll-dir . #f) - (relative? . #t))))) + (when (memq (system-type) mred-exe-systems) + (for ([v variants] #:when (memq v '(3m cgc))) + (parameterize ([current-launcher-variant v]) + (create-embedding-executable + (mred-program-launcher-path "MrEd") + #:cmdline '("-I" "scheme/gui/init") + #:variant v + #:launcher? #t + #:gracket? #t + #:aux '((framework-root . #f) + (dll-dir . #f) + (relative? . #t)))))) ;; add a mred-text executable that uses the -z flag (preferring a script) (for ([vs '((script-3m 3m) (script-cgc cgc))]) (let ([v (findf (lambda (v) (memq v variants)) vs)]) @@ -47,5 +51,5 @@ (make-gracket-launcher '() (mred-program-launcher-path "MrEd") - '([exe-name . "MrEd"] [relative? . #t] + '([exe-name . "GRacket"] [relative? . #t] [framework-root . #f] [dll-dir . #f])))))) diff --git a/collects/scribblings/main/license.scrbl b/collects/scribblings/main/license.scrbl index 3966b6930f..a01d285900 100644 --- a/collects/scribblings/main/license.scrbl +++ b/collects/scribblings/main/license.scrbl @@ -35,21 +35,21 @@ Racket software includes or extends the following copyrighted material: @copyright{ DrScheme Copyright (c) 1995-2003 PLT - Copyright (c) 2004-2011 PLT Scheme Inc. + Copyright (c) 2004-2010 PLT Scheme Inc. All rights reserved. } @copyright{ MrEd Copyright (c) 1995-2003 PLT - Copyright (c) 2004-2011 PLT Scheme Inc. + Copyright (c) 2004-2010 PLT Scheme Inc. All rights reserved. } @copyright{ MzScheme Copyright (c) 1995-2003 PLT - Copyright (c) 2004-2011 PLT Scheme Inc. + Copyright (c) 2004-2010 PLT Scheme Inc. All rights reserved. } diff --git a/doc/release-notes/drracket/HISTORY.txt b/doc/release-notes/drracket/HISTORY.txt index bb58f8d18f..45e6dd038e 100644 --- a/doc/release-notes/drracket/HISTORY.txt +++ b/doc/release-notes/drracket/HISTORY.txt @@ -1,3 +1,9 @@ +------------------------------ + Version 5.2 +------------------------------ + + . Removed the "DrScheme" compatability program. + ------------------------------ Version 5.1 ------------------------------ diff --git a/doc/release-notes/racket/HISTORY.txt b/doc/release-notes/racket/HISTORY.txt index dceff57ff0..e364ca5079 100644 --- a/doc/release-notes/racket/HISTORY.txt +++ b/doc/release-notes/racket/HISTORY.txt @@ -1,3 +1,7 @@ +Version 5.1.0.6 +Removed the "MrEd" compatability executable under Windows + and Mac OS X, but the "mred" compatibility script remains + Version 5.1.0.5 racket/gui: added 'wheel-left and 'wheel-right events