From f7ac9f954639f57a3d820f2d7f6219ebde49fec5 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 24 Apr 2010 16:16:06 -0500 Subject: [PATCH] switched all of the names inside drracket to be drracket: instead of drscheme: (this breaks the tools, tho) --- collects/drscheme/arrow.rkt | 6 +- collects/drscheme/private/app.rkt | 34 +- collects/drscheme/private/debug.rkt | 82 +- collects/drscheme/private/drsig.rkt | 218 ++--- collects/drscheme/private/eval.rkt | 32 +- collects/drscheme/private/font.rkt | 8 +- collects/drscheme/private/frame.rkt | 26 +- collects/drscheme/private/get-extend.rkt | 50 +- collects/drscheme/private/help-desk.rkt | 12 +- collects/drscheme/private/init.rkt | 2 +- .../private/language-configuration.rkt | 84 +- .../private/language-object-contract.rkt | 4 +- collects/drscheme/private/language.rkt | 34 +- collects/drscheme/private/link.rkt | 62 +- collects/drscheme/private/main.rkt | 117 +-- collects/drscheme/private/modes.rkt | 2 +- collects/drscheme/private/module-browser.rkt | 22 +- .../private/module-language-tools.rkt | 26 +- collects/drscheme/private/module-language.rkt | 62 +- .../drscheme/private/multi-file-search.rkt | 10 +- collects/drscheme/private/rep.rkt | 116 +-- collects/drscheme/private/text.rkt | 2 +- collects/drscheme/private/tools.rkt | 40 +- collects/drscheme/private/tracing.rkt | 18 +- collects/drscheme/private/unit.rkt | 238 +++--- .../drscheme/syncheck-drracket-button.rkt | 18 + .../drscheme/syncheck-drscheme-button.rkt | 8 +- collects/drscheme/syncheck.rkt | 2 +- collects/drscheme/tool-lib.rkt | 762 +++++++++--------- collects/drscheme/tool.rkt | 7 +- 30 files changed, 1063 insertions(+), 1041 deletions(-) create mode 100644 collects/drscheme/syncheck-drracket-button.rkt diff --git a/collects/drscheme/arrow.rkt b/collects/drscheme/arrow.rkt index 6cc8852bc0..a6ee6819ac 100644 --- a/collects/drscheme/arrow.rkt +++ b/collects/drscheme/arrow.rkt @@ -1,8 +1,8 @@ #lang racket/base -(require scheme/class - scheme/math - scheme/gui/base) +(require racket/class + racket/math + racket/gui/base) (provide draw-arrow) diff --git a/collects/drscheme/private/app.rkt b/collects/drscheme/private/app.rkt index 82e4e64d6b..09e90e3bfe 100644 --- a/collects/drscheme/private/app.rkt +++ b/collects/drscheme/private/app.rkt @@ -9,15 +9,15 @@ "drsig.rkt" "../acks.rkt") -(import [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix help-desk: drscheme:help-desk^] - [prefix drscheme:tools: drscheme:tools^]) -(export drscheme:app^) +(import [prefix drracket:unit: drracket:unit^] + [prefix drracket:frame: drracket:frame^] + [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix help-desk: drracket:help-desk^] + [prefix drracket:tools: drracket:tools^]) +(export drracket:app^) (define about-frame% - (class (drscheme:frame:basics-mixin (frame:standard-menus-mixin frame:basic%)) + (class (drracket:frame:basics-mixin (frame:standard-menus-mixin frame:basic%)) (init-field main-text) (define/private (edit-menu:do const) (send main-text do-edit-operation const)) @@ -184,18 +184,18 @@ (send* e (insert " The A List (c) 1997-2001 Kyle Hammond\n"))) - (let ([tools (sort (drscheme:tools:get-successful-tools) + (let ([tools (sort (drracket:tools:get-successful-tools) (lambda (a b) - (stringstring (drscheme:tools:successful-tool-spec a)) - (path->string (drscheme:tools:successful-tool-spec b)))))]) + (stringstring (drracket:tools:successful-tool-spec a)) + (path->string (drracket:tools:successful-tool-spec b)))))]) (unless (null? tools) (let loop ([actions1 '()] [actions2 '()] [tools tools]) (if (pair? tools) (let* ([successful-tool (car tools)] - [name (drscheme:tools:successful-tool-name successful-tool)] - [spec (drscheme:tools:successful-tool-spec successful-tool)] - [bm (drscheme:tools:successful-tool-bitmap successful-tool)] - [url (drscheme:tools:successful-tool-url successful-tool)]) + [name (drracket:tools:successful-tool-name successful-tool)] + [spec (drracket:tools:successful-tool-spec successful-tool)] + [bm (drracket:tools:successful-tool-bitmap successful-tool)] + [url (drracket:tools:successful-tool-url successful-tool)]) (define (action) (send e insert " ") (when bm @@ -366,11 +366,11 @@ (add (string-constant how-to-design-programs) "http://www.htdp.org/") (for-each (λ (tool) - (cond [(drscheme:tools:successful-tool-url tool) + (cond [(drracket:tools:successful-tool-url tool) => (λ (url) - (add (drscheme:tools:successful-tool-name tool) url tool-urls-menu))])) - (drscheme:tools:get-successful-tools)) + (add (drracket:tools:successful-tool-name tool) url tool-urls-menu))])) + (drracket:tools:get-successful-tools)) (let loop ([additional additional]) (cond diff --git a/collects/drscheme/private/debug.rkt b/collects/drscheme/private/debug.rkt index 773a8f513c..d4aa4ac832 100644 --- a/collects/drscheme/private/debug.rkt +++ b/collects/drscheme/private/debug.rkt @@ -31,13 +31,13 @@ profile todo: (provide debug@) (define-unit debug@ - (import [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix drscheme:init: drscheme:init^]) - (export drscheme:debug^) + (import [prefix drracket:rep: drracket:rep^] + [prefix drracket:frame: drracket:frame^] + [prefix drracket:unit: drracket:unit^] + [prefix drracket:language: drracket:language^] + [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix drracket:init: drracket:init^]) + (export drracket:debug^) (define (printf . args) (apply fprintf orig args)) @@ -257,7 +257,7 @@ profile todo: ;; adds in the bug icon, if there are contexts to display (define (make-debug-error-display-handler orig-error-display-handler) (define (debug-error-display-handler msg exn) - (let ([rep (drscheme:rep:current-rep)]) + (let ([rep (drracket:rep:current-rep)]) (cond [rep (error-display-handler/stacktrace @@ -275,8 +275,8 @@ profile todo: (define (error-display-handler/stacktrace msg exn [pre-stack #f] - #:interactions-text [ints (drscheme:rep:current-rep)] - #:definitions-text [defs (let ([rep (drscheme:rep:current-rep)]) + #:interactions-text [ints (drracket:rep:current-rep)] + #:definitions-text [defs (let ([rep (drracket:rep:current-rep)]) (and rep (send rep get-definitions-text)))]) @@ -305,7 +305,7 @@ profile todo: (when (and ints (eq? (current-error-port) (send ints get-err-port))) - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (λ () ;; need to make sure that the user's eventspace is still the same @@ -328,7 +328,7 @@ profile todo: [(path? src) (let ([frame (send (group:get-the-frame-group) locate-file src)]) (and frame - (is-a? frame drscheme:unit:frame<%>) + (is-a? frame drracket:unit:frame<%>) (cons (make-weak-box (send frame get-definitions-text)) (send (send frame get-definitions-text) get-edition-number))))] [else #f]))) @@ -346,12 +346,12 @@ profile todo: (let ([note (new planet-note%)]) (send note set-callback (λ () ;; =Kernel= =Handler= - (drscheme:unit:forget-saved-bug-report table) + (drracket:unit:forget-saved-bug-report table) (send-url (url->string gp-url)))) - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (λ () - (drscheme:unit:record-saved-bug-report table)))) + (drracket:unit:record-saved-bug-report table)))) (write-special note (current-error-port)) (display #\space (current-error-port)))))))))) @@ -389,7 +389,7 @@ profile todo: (define (exn->trace exn) (let ([sp (open-output-string)]) (parameterize ([current-error-port sp]) - (drscheme:init:original-error-display-handler (exn-message exn) exn)) + (drracket:init:original-error-display-handler (exn-message exn) exn)) (get-output-string sp))) ;; =User= @@ -433,9 +433,9 @@ profile todo: [do-line/col (λ () (fprintf (current-error-port) ":~a:~a" line col))] [do-pos (λ () (fprintf (current-error-port) "::~a" pos))] [src-loc-in-defs/ints? - (let ([rep (drscheme:rep:current-rep)]) + (let ([rep (drracket:rep:current-rep)]) (and rep - (is-a? rep drscheme:rep:text<%>) + (is-a? rep drracket:rep:text<%>) (let ([defs (send rep get-definitions-text)]) (or (send rep port-name-matches? src) (eq? rep src) @@ -534,7 +534,7 @@ profile todo: [(is-a? (syntax-source src-stx) editor<%>) (syntax-source src-stx)] [else - (let* ([rep (drscheme:rep:current-rep)]) + (let* ([rep (drracket:rep:current-rep)]) (and rep (let ([defs (send rep get-definitions-text)]) @@ -587,7 +587,7 @@ profile todo: ;; backtrace-frame% : (extends frame:basic<%>) (define backtrace-frame% - (class (drscheme:frame:basics-mixin (frame:standard-menus-mixin frame:basic%)) + (class (drracket:frame:basics-mixin (frame:standard-menus-mixin frame:basic%)) (define/override (on-size x y) (preferences:set 'drscheme:backtrace-window-width x) (preferences:set 'drscheme:backtrace-window-height y) @@ -759,7 +759,7 @@ profile todo: => (λ (frame) (cond - [(is-a? frame drscheme:unit:frame%) + [(is-a? frame drracket:unit:frame%) (let loop ([tabs (send frame get-tabs)]) (cond [(null? tabs) (values #f void)] @@ -841,7 +841,7 @@ profile todo: (let* ([untitled (string-constant unknown-debug-frame)] [canvas (send editor get-canvas)] [frame (and canvas (send canvas get-top-level-window))]) - (if (is-a? frame drscheme:unit:frame%) + (if (is-a? frame drracket:unit:frame%) (let ([filename (send (send frame get-definitions-text) get-filename)]) (cond [(and filename (eq? editor (send frame get-interactions-text))) @@ -873,7 +873,7 @@ profile todo: [editor (cond [(path? debug-source) (cond - [(and frame (is-a? frame drscheme:unit:frame%)) + [(and frame (is-a? frame drracket:unit:frame%)) (send frame get-definitions-text)] [(and frame (is-a? frame frame:editor<%>)) (send frame get-editor)] @@ -883,7 +883,7 @@ profile todo: => values] [else #f])] - [rep (and (is-a? frame drscheme:unit:frame%) + [rep (and (is-a? frame drracket:unit:frame%) (send frame get-interactions-text))]) (when frame (send frame show #t)) @@ -927,7 +927,7 @@ profile todo: (define (initialize-test-coverage-point key expr) (unless (hash? (thread-cell-ref current-test-coverage-info)) - (let ([rep (drscheme:rep:current-rep)]) + (let ([rep (drracket:rep:current-rep)]) (when rep (let ([ut (eventspace-handler-thread (send rep get-user-eventspace))]) (when (eq? ut (current-thread)) @@ -959,7 +959,7 @@ profile todo: ask-about-clearing-test-coverage?)) (define test-coverage-interactions-text-mixin - (mixin (drscheme:rep:text<%> text:basic<%>) (test-coverage-interactions-text<%>) + (mixin (drracket:rep:text<%> text:basic<%>) (test-coverage-interactions-text<%>) (inherit get-context) (field [test-coverage-info #f] [test-coverage-on-style #f] @@ -987,7 +987,7 @@ profile todo: (super-new))) (define test-coverage-definitions-text-mixin - (mixin ((class->interface text%) drscheme:unit:definitions-text<%>) () + (mixin ((class->interface text%) drracket:unit:definitions-text<%>) () (inherit get-canvas get-tab) (define/private (clear-test-coverage?) @@ -1054,7 +1054,7 @@ profile todo: (send erase-test-coverage-style-delta set-transparent-text-backing-on #t) (define test-coverage-tab-mixin - (mixin (drscheme:rep:context<%> drscheme:unit:tab<%>) (test-coverage-tab<%>) + (mixin (drracket:rep:context<%> drracket:unit:tab<%>) (test-coverage-tab<%>) (field [internal-clear-test-coverage-display #f]) @@ -1298,7 +1298,7 @@ profile todo: ;; imported into errortrace (define (initialize-profile-point key name expr) (unless (thread-cell-ref current-profile-info) - (let ([rep (drscheme:rep:current-rep)]) + (let ([rep (drracket:rep:current-rep)]) (when rep (let ([ut (eventspace-handler-thread (send rep get-user-eventspace))]) (when (eq? ut (current-thread)) @@ -1340,17 +1340,17 @@ profile todo: (prof-info-time info))))))) (void)) - (define (get-color-value/pref val max-val drscheme:profile:low-color drscheme:profile:high-color drscheme:profile:scale) + (define (get-color-value/pref val max-val drracket:profile:low-color drracket:profile:high-color drracket:profile:scale) (let* ([adjust - (case drscheme:profile:scale + (case drracket:profile:scale [(sqrt) sqrt] [(square) (λ (x) (* x x))] [(linear) (λ (x) x)])] [factor (adjust (if (zero? max-val) 0 (/ val max-val)))] [get-rgb-value (λ (sel) - (let ([small (sel drscheme:profile:low-color)] - [big (sel drscheme:profile:high-color)]) + (let ([small (sel drracket:profile:low-color)] + [big (sel drracket:profile:high-color)]) (inexact->exact (floor (+ (* factor (- big small)) small)))))]) (make-object color% (get-rgb-value (λ (x) (send x red))) @@ -1383,7 +1383,7 @@ profile todo: ;; profile-definitions-mixin : mixin (define profile-definitions-text-mixin - (mixin ((class->interface text%) drscheme:unit:definitions-text<%>) () + (mixin ((class->interface text%) drracket:unit:definitions-text<%>) () (inherit get-canvas get-tab) (define/augment (can-insert? x y) @@ -1445,7 +1445,7 @@ profile todo: ) (define profile-tab-mixin - (mixin (drscheme:unit:tab<%>) (profile-interactions-tab<%>) + (mixin (drracket:unit:tab<%>) (profile-interactions-tab<%>) (define profile-info-visible? #f) (define/public (get-profile-info-visible?) profile-info-visible?) @@ -1503,7 +1503,7 @@ profile todo: ;; profile-unit-frame-mixin : mixin ;; adds profiling to the unit frame (define profile-unit-frame-mixin - (mixin (drscheme:unit:frame<%> drscheme:frame:<%>) () + (mixin (drracket:unit:frame<%> drracket:frame:<%>) () (inherit get-interactions-text get-current-tab) @@ -1975,7 +1975,7 @@ profile todo: (let ([frame (handler:edit-file filename)]) (when (and frame pos - (is-a? frame drscheme:unit:frame%)) + (is-a? frame drracket:unit:frame%)) (let ([defs (send frame get-definitions-text)]) (send defs set-position (- pos 1)))))) @@ -2072,14 +2072,14 @@ profile todo: (set! in-on-paint? #t) (let* ([dc (get-dc)] [dummy-pen (send dc get-pen)] - [drscheme:profile:low-color (preferences:get 'drscheme:profile:low-color)] - [drscheme:profile:high-color (preferences:get 'drscheme:profile:high-color)] - [drscheme:profile:scale (preferences:get 'drscheme:profile:scale)]) + [drracket:profile:low-color (preferences:get 'drscheme:profile:low-color)] + [drracket:profile:high-color (preferences:get 'drscheme:profile:high-color)] + [drracket:profile:scale (preferences:get 'drscheme:profile:scale)]) (let-values ([(w h) (get-client-size)]) (let loop ([n 0]) (when (n . <= . w) (send pen set-color - (get-color-value/pref n w drscheme:profile:low-color drscheme:profile:high-color drscheme:profile:scale)) + (get-color-value/pref n w drracket:profile:low-color drracket:profile:high-color drracket:profile:scale)) (send dc set-pen pen) (send dc draw-line n 0 n h) (send dc set-pen dummy-pen) diff --git a/collects/drscheme/private/drsig.rkt b/collects/drscheme/private/drsig.rkt index a41a6860b6..56f196c06b 100644 --- a/collects/drscheme/private/drsig.rkt +++ b/collects/drscheme/private/drsig.rkt @@ -1,57 +1,57 @@ #lang racket/base (require scheme/unit) -(provide drscheme:eval^ - drscheme:debug^ - drscheme:module-language^ - drscheme:module-language-tools^ - drscheme:get-collection^ - drscheme:main^ - drscheme:init^ - drscheme:language-configuration^ - drscheme:language-configuration/internal^ - drscheme:tools^ - drscheme:get/extend^ - drscheme:unit^ - drscheme:frame^ - drscheme:program^ - drscheme:text^ - drscheme:rep^ - drscheme:app^ - drscheme:draw-arrow^ - drscheme:help-desk^ - drscheme:language^ - drscheme:multi-file-search^ - drscheme:module-overview^ - drscheme:font^ - drscheme:modes^ - drscheme:tracing^ - drscheme:tool-exports^ - drscheme:tool^ - drscheme:tool-cm^) +(provide drracket:eval^ + drracket:debug^ + drracket:module-language^ + drracket:module-language-tools^ + drracket:get-collection^ + drracket:main^ + drracket:init^ + drracket:language-configuration^ + drracket:language-configuration/internal^ + drracket:tools^ + drracket:get/extend^ + drracket:unit^ + drracket:frame^ + drracket:program^ + drracket:text^ + drracket:rep^ + drracket:app^ + drracket:draw-arrow^ + drracket:help-desk^ + drracket:language^ + drracket:multi-file-search^ + drracket:module-overview^ + drracket:font^ + drracket:modes^ + drracket:tracing^ + drracket:tool-exports^ + drracket:tool^ + drracket:tool-cm^) -(define-signature drscheme:modes-cm^ +(define-signature drracket:modes-cm^ ()) -(define-signature drscheme:modes^ extends drscheme:modes-cm^ +(define-signature drracket:modes^ extends drracket:modes-cm^ (add-mode get-modes add-initial-modes (struct mode (name surrogate repl-submit matches-language) #:omit-constructor))) -(define-signature drscheme:font-cm^ +(define-signature drracket:font-cm^ ()) -(define-signature drscheme:font^ extends drscheme:font-cm^ +(define-signature drracket:font^ extends drracket:font-cm^ (setup-preferences)) -(define-signature drscheme:debug-cm^ +(define-signature drracket:debug-cm^ (profile-definitions-text-mixin profile-tab-mixin profile-unit-frame-mixin test-coverage-interactions-text-mixin test-coverage-definitions-text-mixin test-coverage-tab-mixin)) -(define-signature drscheme:debug^ extends drscheme:debug-cm^ +(define-signature drracket:debug^ extends drracket:debug-cm^ (make-debug-error-display-handler make-debug-eval-handler error-display-handler/stacktrace @@ -79,32 +79,32 @@ ;show-syntax-error-context )) -(define-signature drscheme:module-language-cm^ +(define-signature drracket:module-language-cm^ (module-language<%>)) -(define-signature drscheme:module-language^ extends drscheme:module-language-cm^ +(define-signature drracket:module-language^ extends drracket:module-language-cm^ (add-module-language module-language-put-file-mixin)) -(define-signature drscheme:module-language-tools-cm^ +(define-signature drracket:module-language-tools-cm^ (frame-mixin frame<%> tab-mixin tab<%> definitions-text-mixin definitions-text<%>)) -(define-signature drscheme:module-language-tools^ extends drscheme:module-language-tools-cm^ +(define-signature drracket:module-language-tools^ extends drracket:module-language-tools-cm^ (add-opt-out-toolbar-button)) -(define-signature drscheme:get-collection-cm^ ()) -(define-signature drscheme:get-collection^ extends drscheme:get-collection-cm^ +(define-signature drracket:get-collection-cm^ ()) +(define-signature drracket:get-collection^ extends drracket:get-collection-cm^ (get-file/collection)) -(define-signature drscheme:main-cm^ ()) -(define-signature drscheme:main^ extends drscheme:main-cm^ ()) +(define-signature drracket:main-cm^ ()) +(define-signature drracket:main^ extends drracket:main-cm^ ()) -(define-signature drscheme:init-cm^ +(define-signature drracket:init-cm^ ()) -(define-signature drscheme:init^ extends drscheme:init-cm^ +(define-signature drracket:init^ extends drracket:init-cm^ (original-output-port original-error-port original-error-display-handler @@ -117,9 +117,9 @@ system-namespace first-dir)) -(define-signature drscheme:language-configuration-cm^ +(define-signature drracket:language-configuration-cm^ ()) -(define-signature drscheme:language-configuration^ extends drscheme:language-configuration-cm^ +(define-signature drracket:language-configuration^ extends drracket:language-configuration-cm^ (add-language get-languages (struct language-settings (language settings)) @@ -127,7 +127,7 @@ language-dialog fill-language-dialog)) -(define-signature drscheme:language-configuration/internal^ extends drscheme:language-configuration^ +(define-signature drracket:language-configuration/internal^ extends drracket:language-configuration^ (add-info-specified-languages get-default-language-settings settings-preferences-symbol @@ -136,18 +136,18 @@ add-built-in-languages not-a-language-language<%>)) -(define-signature drscheme:tools-cm^ +(define-signature drracket:tools-cm^ ()) -(define-signature drscheme:tools^ extends drscheme:tools-cm^ +(define-signature drracket:tools^ extends drracket:tools-cm^ ((struct successful-tool (spec bitmap name url)) get-successful-tools only-in-phase load/invoke-all-tools add-prefs-panel)) -(define-signature drscheme:get/extend-cm^ +(define-signature drracket:get/extend-cm^ ()) -(define-signature drscheme:get/extend^ extends drscheme:get/extend-cm^ +(define-signature drracket:get/extend^ extends drracket:get/extend-cm^ (extend-tab extend-interactions-text extend-definitions-text @@ -161,7 +161,7 @@ get-definitions-canvas get-unit-frame)) -(define-signature drscheme:unit-cm^ +(define-signature drracket:unit-cm^ (tab% tab<%> frame% @@ -170,7 +170,7 @@ get-definitions-text% definitions-text<%> interactions-canvas%)) -(define-signature drscheme:unit^ extends drscheme:unit-cm^ +(define-signature drracket:unit^ extends drracket:unit-cm^ (open-drscheme-window find-symbol get-program-editor-mixin @@ -179,24 +179,24 @@ record-saved-bug-report (struct teachpack-callbacks (get-names remove add)))) -(define-signature drscheme:frame-cm^ +(define-signature drracket:frame-cm^ (<%> mixin basics-mixin basics<%>)) -(define-signature drscheme:frame^ extends drscheme:frame-cm^ +(define-signature drracket:frame^ extends drracket:frame-cm^ (create-root-menubar add-keybindings-item planet-spec?)) -(define-signature drscheme:program-cm^ +(define-signature drracket:program-cm^ (frame%)) -(define-signature drscheme:program^ extends drscheme:program-cm^ +(define-signature drracket:program^ extends drracket:program-cm^ ()) -(define-signature drscheme:eval-cm^ +(define-signature drracket:eval-cm^ ()) -(define-signature drscheme:eval^ extends drscheme:eval-cm^ +(define-signature drracket:eval^ extends drracket:eval-cm^ (expand-program expand-program/multiple traverse-program/multiple @@ -204,23 +204,23 @@ set-basic-parameters get-snip-classes)) -(define-signature drscheme:text-cm^ +(define-signature drracket:text-cm^ (text<%> text%)) -(define-signature drscheme:text^ extends drscheme:text-cm^ +(define-signature drracket:text^ extends drracket:text-cm^ ()) -(define-signature drscheme:setup-cm^ +(define-signature drracket:setup-cm^ ()) -(define-signature drscheme:setup^ extends drscheme:setup-cm^ +(define-signature drracket:setup^ extends drracket:setup-cm^ (do-setup)) -(define-signature drscheme:rep-cm^ +(define-signature drracket:rep-cm^ (drs-bindings-keymap-mixin text% text<%> context<%>)) -(define-signature drscheme:rep^ extends drscheme:rep-cm^ +(define-signature drracket:rep^ extends drracket:rep-cm^ (current-rep current-language-settings current-value-port @@ -230,34 +230,34 @@ get-dark-green-delta drs-autocomplete-mixin)) -(define-signature drscheme:app-cm^ +(define-signature drracket:app-cm^ ()) -(define-signature drscheme:app^ extends drscheme:app-cm^ +(define-signature drracket:app^ extends drracket:app-cm^ (about-drscheme add-language-items-to-help-menu add-important-urls-to-help-menu switch-language-to)) -(define-signature drscheme:draw-arrow-cm^ +(define-signature drracket:draw-arrow-cm^ ()) -(define-signature drscheme:draw-arrow^ extends drscheme:draw-arrow-cm^ +(define-signature drracket:draw-arrow^ extends drracket:draw-arrow-cm^ (draw-arrow)) -(define-signature drscheme:help-desk-cm^ +(define-signature drracket:help-desk-cm^ ()) -(define-signature drscheme:help-desk^ extends drscheme:help-desk-cm^ +(define-signature drracket:help-desk^ extends drracket:help-desk-cm^ (help-desk goto-plt-license get-docs)) -(define-signature drscheme:language-cm^ +(define-signature drracket:language-cm^ (language<%> module-based-language<%> simple-module-based-language<%> simple-module-based-language% simple-module-based-language->module-based-language-mixin module-based-language->language-mixin)) -(define-signature drscheme:language^ extends drscheme:language-cm^ +(define-signature drracket:language^ extends drracket:language-cm^ (get-default-mixin extend-language-interface get-language-extensions @@ -294,56 +294,56 @@ get-capability-default get-capability-contract)) -(define-signature drscheme:multi-file-search-cm^ +(define-signature drracket:multi-file-search-cm^ ()) -(define-signature drscheme:multi-file-search^ extends drscheme:multi-file-search-cm^ +(define-signature drracket:multi-file-search^ extends drracket:multi-file-search-cm^ (multi-file-search)) -(define-signature drscheme:module-overview-cm^ +(define-signature drracket:module-overview-cm^ ()) -(define-signature drscheme:module-overview^ extends drscheme:module-overview-cm^ +(define-signature drracket:module-overview^ extends drracket:module-overview-cm^ (module-overview make-module-overview-pasteboard fill-pasteboard)) -(define-signature drscheme:tracing-cm^ +(define-signature drracket:tracing-cm^ (tab-mixin frame-mixin)) -(define-signature drscheme:tracing^ extends drscheme:tracing-cm^ +(define-signature drracket:tracing^ extends drracket:tracing-cm^ (annotate)) -(define-signature drscheme:tool-exports-cm^ +(define-signature drracket:tool-exports-cm^ ()) -(define-signature drscheme:tool-exports^ extends drscheme:tool-exports-cm^ +(define-signature drracket:tool-exports^ extends drracket:tool-exports-cm^ (phase1 phase2)) -(define-signature drscheme:tool-cm^ - ((open (prefix drscheme:debug: drscheme:debug-cm^)) - (open (prefix drscheme:unit: drscheme:unit-cm^)) - (open (prefix drscheme:rep: drscheme:rep-cm^)) - (open (prefix drscheme:frame: drscheme:frame-cm^)) - (open (prefix drscheme:get/extend: drscheme:get/extend-cm^)) - (open (prefix drscheme:language-configuration: drscheme:language-configuration-cm^)) - (open (prefix drscheme:language: drscheme:language-cm^)) - (open (prefix drscheme:help-desk: drscheme:help-desk-cm^)) - (open (prefix drscheme:eval: drscheme:eval-cm^)) - (open (prefix drscheme:modes: drscheme:modes-cm^)) - (open (prefix drscheme:tracing: drscheme:tracing-cm^)) - (open (prefix drscheme:module-language: drscheme:module-language-cm^)) - (open (prefix drscheme:module-language-tools: drscheme:module-language-tools-cm^)))) +(define-signature drracket:tool-cm^ + ((open (prefix drracket:debug: drracket:debug-cm^)) + (open (prefix drracket:unit: drracket:unit-cm^)) + (open (prefix drracket:rep: drracket:rep-cm^)) + (open (prefix drracket:frame: drracket:frame-cm^)) + (open (prefix drracket:get/extend: drracket:get/extend-cm^)) + (open (prefix drracket:language-configuration: drracket:language-configuration-cm^)) + (open (prefix drracket:language: drracket:language-cm^)) + (open (prefix drracket:help-desk: drracket:help-desk-cm^)) + (open (prefix drracket:eval: drracket:eval-cm^)) + (open (prefix drracket:modes: drracket:modes-cm^)) + (open (prefix drracket:tracing: drracket:tracing-cm^)) + (open (prefix drracket:module-language: drracket:module-language-cm^)) + (open (prefix drracket:module-language-tools: drracket:module-language-tools-cm^)))) -(define-signature drscheme:tool^ - ((open (prefix drscheme:debug: drscheme:debug^)) - (open (prefix drscheme:unit: drscheme:unit^)) - (open (prefix drscheme:rep: drscheme:rep^)) - (open (prefix drscheme:frame: drscheme:frame^)) - (open (prefix drscheme:get/extend: drscheme:get/extend^)) - (open (prefix drscheme:language-configuration: drscheme:language-configuration^)) - (open (prefix drscheme:language: drscheme:language^)) - (open (prefix drscheme:help-desk: drscheme:help-desk^)) - (open (prefix drscheme:eval: drscheme:eval^)) - (open (prefix drscheme:modes: drscheme:modes^)) - (open (prefix drscheme:tracing: drscheme:tracing^)) - (open (prefix drscheme:module-language: drscheme:module-language^)) - (open (prefix drscheme:module-language-tools: drscheme:module-language-tools^)))) +(define-signature drracket:tool^ + ((open (prefix drracket:debug: drracket:debug^)) + (open (prefix drracket:unit: drracket:unit^)) + (open (prefix drracket:rep: drracket:rep^)) + (open (prefix drracket:frame: drracket:frame^)) + (open (prefix drracket:get/extend: drracket:get/extend^)) + (open (prefix drracket:language-configuration: drracket:language-configuration^)) + (open (prefix drracket:language: drracket:language^)) + (open (prefix drracket:help-desk: drracket:help-desk^)) + (open (prefix drracket:eval: drracket:eval^)) + (open (prefix drracket:modes: drracket:modes^)) + (open (prefix drracket:tracing: drracket:tracing^)) + (open (prefix drracket:module-language: drracket:module-language^)) + (open (prefix drracket:module-language-tools: drracket:module-language-tools^)))) diff --git a/collects/drscheme/private/eval.rkt b/collects/drscheme/private/eval.rkt index 0ba5318f71..6354c7825b 100644 --- a/collects/drscheme/private/eval.rkt +++ b/collects/drscheme/private/eval.rkt @@ -18,12 +18,12 @@ (provide eval@) (define-unit eval@ - (import [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:init: drscheme:init^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:unit: drscheme:unit^]) - (export drscheme:eval^) + (import [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:init: drracket:init^] + [prefix drracket:language: drracket:language^] + [prefix drracket:unit: drracket:unit^]) + (export drracket:eval^) (define (traverse-program/multiple language-settings init @@ -33,18 +33,18 @@ language-settings init kill-termination)]) - (let ([language (drscheme:language-configuration:language-settings-language + (let ([language (drracket:language-configuration:language-settings-language language-settings)] - [settings (drscheme:language-configuration:language-settings-settings + [settings (drracket:language-configuration:language-settings-settings language-settings)]) (λ (input iter complete-program?) (let-values ([(port src) (cond [(input-port? input) (values input #f)] [else (values - (let* ([text (drscheme:language:text/pos-text input)] - [start (drscheme:language:text/pos-start input)] - [end (drscheme:language:text/pos-end input)] + (let* ([text (drracket:language:text/pos-text input)] + [start (drracket:language:text/pos-start input)] + [end (drracket:language:text/pos-end input)] [text-port (open-input-text-editor text start end values (send text get-port-name))]) (port-count-lines! text-port) @@ -56,7 +56,7 @@ (+ start 1))]) (port-count-lines! relocated-port) relocated-port)) - (drscheme:language:text/pos-text input))])]) + (drracket:language:text/pos-text input))])]) (parameterize ([current-eventspace eventspace]) (queue-callback (λ () @@ -109,9 +109,9 @@ (let* ([user-custodian (make-custodian)] [eventspace (parameterize ([current-custodian user-custodian]) (make-eventspace))] - [language (drscheme:language-configuration:language-settings-language + [language (drracket:language-configuration:language-settings-language language-settings)] - [settings (drscheme:language-configuration:language-settings-settings + [settings (drracket:language-configuration:language-settings-settings language-settings)] [eventspace-main-thread #f] [run-in-eventspace @@ -135,7 +135,7 @@ (λ () (current-custodian user-custodian) (set-basic-parameters drs-snip-classes) - (drscheme:rep:current-language-settings language-settings))) + (drracket:rep:current-language-settings language-settings))) (send language on-execute settings run-in-eventspace) (run-in-eventspace (λ () @@ -174,7 +174,7 @@ (current-ps-setup (make-object ps-setup%)) (current-namespace (make-empty-namespace)) - (for-each (λ (x) (namespace-attach-module drscheme:init:system-namespace x)) + (for-each (λ (x) (namespace-attach-module drracket:init:system-namespace x)) to-be-copied-module-names)) ;; these module specs are copied over to each new user's namespace diff --git a/collects/drscheme/private/font.rkt b/collects/drscheme/private/font.rkt index 75e8d8829d..44e7880a5d 100644 --- a/collects/drscheme/private/font.rkt +++ b/collects/drscheme/private/font.rkt @@ -15,8 +15,8 @@ (provide font@) (define-unit font@ - (import [prefix drscheme:language-configuration: drscheme:language-configuration/internal^]) - (export drscheme:font^) + (import [prefix drracket:language-configuration: drracket:language-configuration/internal^]) + (export drracket:font^) (define (setup-preferences) (preferences:add-panel @@ -205,10 +205,10 @@ 'framework:standard-style-list:font-size (λ (p v) (send size-slider set-value v))) (preferences:add-callback - drscheme:language-configuration:settings-preferences-symbol + drracket:language-configuration:settings-preferences-symbol (λ (p v) (update-text v))) - (update-text (preferences:get drscheme:language-configuration:settings-preferences-symbol)) + (update-text (preferences:get drracket:language-configuration:settings-preferences-symbol)) (send ex-panel set-alignment 'left 'center) (send ex-panel stretchable-height #f) (send canvas allow-tab-exit #t) diff --git a/collects/drscheme/private/frame.rkt b/collects/drscheme/private/frame.rkt index bb04819026..ac91c0cda9 100644 --- a/collects/drscheme/private/frame.rkt +++ b/collects/drscheme/private/frame.rkt @@ -12,12 +12,12 @@ help/bug-report racket/file) - (import [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:app: drscheme:app^] - [prefix help: drscheme:help-desk^] - [prefix drscheme:multi-file-search: drscheme:multi-file-search^] - [prefix drscheme:init: drscheme:init^]) - (export (rename drscheme:frame^ + (import [prefix drracket:unit: drracket:unit^] + [prefix drracket:app: drracket:app^] + [prefix help: drracket:help-desk^] + [prefix drracket:multi-file-search: drracket:multi-file-search^] + [prefix drracket:init: drracket:init^]) + (export (rename drracket:frame^ [-mixin mixin])) (define basics<%> (interface (frame:standard-menus<%>))) @@ -143,13 +143,13 @@ (define/override (help-menu:before-about help-menu) (make-help-desk-menu-item help-menu)) - (define/override (help-menu:about-callback item evt) (drscheme:app:about-drscheme)) + (define/override (help-menu:about-callback item evt) (drracket:app:about-drscheme)) (define/override (help-menu:about-string) (string-constant about-drscheme)) (define/override (help-menu:create-about?) #t) (define/public (get-additional-important-urls) '()) (define/override (help-menu:after-about menu) - (drscheme:app:add-important-urls-to-help-menu + (drracket:app:add-important-urls-to-help-menu menu (get-additional-important-urls)) (new menu-item% @@ -159,7 +159,7 @@ (λ (x y) (help-desk:report-bug)))) - (drscheme:app:add-language-items-to-help-menu menu)) + (drracket:app:add-language-items-to-help-menu menu)) (define/override (file-menu:new-string) (string-constant new-menu-item)) (define/override (file-menu:open-string) (string-constant open-menu-item)) @@ -179,7 +179,7 @@ (parent menu) (callback (λ (_1 _2) - (drscheme:multi-file-search:multi-file-search)))) + (drracket:multi-file-search:multi-file-search)))) (new separator-menu-item% (parent menu))) (define/override (edit-menu:between-find-and-preferences menu) @@ -387,7 +387,7 @@ (string-append "http://" url))) parent)] [else (parameterize ([error-display-handler - drscheme:init:original-error-display-handler]) + drracket:init:original-error-display-handler]) (run-installer (string->path (send file-text-field get-value))))])) @@ -453,7 +453,7 @@ (queue-callback (λ () (semaphore-post wait-to-start))) (send d show #t) (when exn (raise exn)) - (parameterize ([error-display-handler drscheme:init:original-error-display-handler]) + (parameterize ([error-display-handler drracket:init:original-error-display-handler]) (run-installer tmp-filename (λ () (delete-file tmp-filename))))))) @@ -581,7 +581,7 @@ (parent file-menu) (callback (λ (_1 _2) - (drscheme:multi-file-search:multi-file-search)))) + (drracket:multi-file-search:multi-file-search)))) (unless (current-eventspace-has-standard-menus?) (new separator-menu-item% (parent file-menu)) (new menu-item% diff --git a/collects/drscheme/private/get-extend.rkt b/collects/drscheme/private/get-extend.rkt index f758b38598..fa14ea3d67 100644 --- a/collects/drscheme/private/get-extend.rkt +++ b/collects/drscheme/private/get-extend.rkt @@ -3,13 +3,13 @@ (require racket/class "drsig.rkt") -(import [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:debug: drscheme:debug^] - [prefix drscheme:tracing: drscheme:tracing^] - [prefix drscheme:module-language-tools: drscheme:module-language-tools^]) -(export drscheme:get/extend^) +(import [prefix drracket:unit: drracket:unit^] + [prefix drracket:frame: drracket:frame^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:debug: drracket:debug^] + [prefix drracket:tracing: drracket:tracing^] + [prefix drracket:module-language-tools: drracket:module-language-tools^]) +(export drracket:get/extend^) (define make-extender (λ (get-base% name) @@ -45,47 +45,47 @@ built))))) (define (get-base-tab%) - (drscheme:module-language-tools:tab-mixin - (drscheme:tracing:tab-mixin - (drscheme:debug:test-coverage-tab-mixin - (drscheme:debug:profile-tab-mixin - drscheme:unit:tab%))))) + (drracket:module-language-tools:tab-mixin + (drracket:tracing:tab-mixin + (drracket:debug:test-coverage-tab-mixin + (drracket:debug:profile-tab-mixin + drracket:unit:tab%))))) (define-values (extend-tab get-tab) (make-extender get-base-tab% 'tab%)) (define (get-base-interactions-canvas%) - drscheme:unit:interactions-canvas%) + drracket:unit:interactions-canvas%) (define-values (extend-interactions-canvas get-interactions-canvas) (make-extender get-base-interactions-canvas% 'interactions-canvas%)) (define (get-base-definitions-canvas%) - drscheme:unit:definitions-canvas%) + drracket:unit:definitions-canvas%) (define-values (extend-definitions-canvas get-definitions-canvas) (make-extender get-base-definitions-canvas% 'definitions-canvas%)) (define (get-base-unit-frame%) - (drscheme:module-language-tools:frame-mixin - (drscheme:tracing:frame-mixin - (drscheme:debug:profile-unit-frame-mixin - drscheme:unit:frame%)))) + (drracket:module-language-tools:frame-mixin + (drracket:tracing:frame-mixin + (drracket:debug:profile-unit-frame-mixin + drracket:unit:frame%)))) (define-values (extend-unit-frame get-unit-frame) - (make-extender get-base-unit-frame% 'drscheme:unit:frame)) + (make-extender get-base-unit-frame% 'drracket:unit:frame)) (define (get-base-interactions-text%) - (drscheme:debug:test-coverage-interactions-text-mixin - drscheme:rep:text%)) + (drracket:debug:test-coverage-interactions-text-mixin + drracket:rep:text%)) (define-values (extend-interactions-text get-interactions-text) (make-extender get-base-interactions-text% 'interactions-text%)) (define (get-base-definitions-text%) - (drscheme:module-language-tools:definitions-text-mixin - (drscheme:debug:test-coverage-definitions-text-mixin - (drscheme:debug:profile-definitions-text-mixin - (drscheme:unit:get-definitions-text%))))) + (drracket:module-language-tools:definitions-text-mixin + (drracket:debug:test-coverage-definitions-text-mixin + (drracket:debug:profile-definitions-text-mixin + (drracket:unit:get-definitions-text%))))) (define-values (extend-definitions-text get-definitions-text) (make-extender get-base-definitions-text% 'definitions-text%)) diff --git a/collects/drscheme/private/help-desk.rkt b/collects/drscheme/private/help-desk.rkt index d2c349912e..02ff7c1203 100644 --- a/collects/drscheme/private/help-desk.rkt +++ b/collects/drscheme/private/help-desk.rkt @@ -10,19 +10,19 @@ help/private/buginfo "drsig.rkt") -(import [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:language-configuration: drscheme:language-configuration/internal^]) -(export drscheme:help-desk^) +(import [prefix drracket:frame: drracket:frame^] + [prefix drracket:language-configuration: drracket:language-configuration/internal^]) +(export drracket:help-desk^) (define (-add-help-desk-font-prefs b) '(add-help-desk-font-prefs b)) ;; : -> string (define (get-computer-language-info) (let* ([language/settings (preferences:get - drscheme:language-configuration:settings-preferences-symbol)] - [language (drscheme:language-configuration:language-settings-language + drracket:language-configuration:settings-preferences-symbol)] + [language (drracket:language-configuration:language-settings-language language/settings)] - [settings (drscheme:language-configuration:language-settings-settings + [settings (drracket:language-configuration:language-settings-settings language/settings)]) (format "~s" diff --git a/collects/drscheme/private/init.rkt b/collects/drscheme/private/init.rkt index ad66ae5458..c100d966ef 100644 --- a/collects/drscheme/private/init.rkt +++ b/collects/drscheme/private/init.rkt @@ -5,7 +5,7 @@ (import) - (export drscheme:init^) + (export drracket:init^) (define original-output-port (current-output-port)) (define original-error-port (current-error-port)) diff --git a/collects/drscheme/private/language-configuration.rkt b/collects/drscheme/private/language-configuration.rkt index e3308c0aca..68cac6ebf5 100644 --- a/collects/drscheme/private/language-configuration.rkt +++ b/collects/drscheme/private/language-configuration.rkt @@ -24,15 +24,15 @@ (provide language-configuration@) (define-unit language-configuration@ - (import [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:init: drscheme:init^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:app: drscheme:app^] - [prefix drscheme:tools: drscheme:tools^] - [prefix drscheme:help-desk: drscheme:help-desk^] - [prefix drscheme:module-language: drscheme:module-language^]) - (export drscheme:language-configuration/internal^) + (import [prefix drracket:unit: drracket:unit^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:init: drracket:init^] + [prefix drracket:language: drracket:language^] + [prefix drracket:app: drracket:app^] + [prefix drracket:tools: drracket:tools^] + [prefix drracket:help-desk: drracket:help-desk^] + [prefix drracket:module-language: drracket:module-language^]) + (export drracket:language-configuration/internal^) ;; settings-preferences-symbol : symbol ;; this pref used to depend on `version', but no longer does. @@ -58,12 +58,12 @@ (define add-language (λ (language [front? #f]) - (drscheme:tools:only-in-phase 'drscheme:language:add-language 'phase2) + (drracket:tools:only-in-phase 'drscheme:language:add-language 'phase2) (for-each (λ (i<%>) (unless (is-a? language i<%>) - (error 'drscheme:language:add-language "expected language ~e to implement ~e, forgot to use drscheme:language:get-default-mixin ?" language i<%>))) - (drscheme:language:get-language-extensions)) + (error 'drracket:language:add-language "expected language ~e to implement ~e, forgot to use drracket:language:get-default-mixin ?" language i<%>))) + (drracket:language:get-language-extensions)) (ensure-no-duplicate-numbers language languages) (set! languages @@ -76,7 +76,7 @@ (λ (l2) (when (equal? (send l1 get-language-numbers) (send l2 get-language-numbers)) - (error 'drscheme:language-configuration:add-language + (error 'drracket:language-configuration:add-language "found two languages with the same result from get-language-numbers: ~s, ~s and ~s" (send l1 get-language-numbers) (send l1 get-language-position) @@ -85,8 +85,8 @@ ;; get-languages : -> (listof languages) (define (get-languages) - (drscheme:tools:only-in-phase - 'drscheme:language-configuration:get-languages + (drracket:tools:only-in-phase + 'drracket:language-configuration:get-languages 'init-complete) languages) @@ -516,13 +516,13 @@ (andmap string? positions) (= (length positions) (length numbers)) ((length numbers) . >= . 1)) - (error 'drscheme:language + (error 'drracket:language "languages position and numbers must be lists of strings and numbers, respectively, must have the same length, and must each contain at least one element, got: ~e ~e" positions numbers)) (when (null? (cdr positions)) (unless (equal? positions (list (string-constant module-language-name))) - (error 'drscheme:language + (error 'drracket:language "Only the module language may be at the top level. Other languages must have at least two levels"))) (send languages-hier-list clear-fringe-cache) @@ -741,7 +741,7 @@ (define (open-current-language) (when (and language-to-show settings-to-show) (cond - [(is-a? language-to-show drscheme:module-language:module-language<%>) + [(is-a? language-to-show drracket:module-language:module-language<%>) (module-language-selected)] [else (send languages-hier-list focus) ;; only focus when the module language isn't selected @@ -1055,7 +1055,7 @@ (label native-lang-string) (parent welcome-after-panel) (stretchable-width #t) - (callback (λ (x1 x2) (drscheme:app:switch-language-to dialog language)))))) + (callback (λ (x1 x2) (drracket:app:switch-language-to dialog language)))))) (string-constants is-this-your-native-language) (all-languages)))) @@ -1202,10 +1202,10 @@ (for-each (λ (lang-module lang-position lang-numbers one-line-summary url reader-spec) (let ([% - ((drscheme:language:get-default-mixin) - (drscheme:language:module-based-language->language-mixin - (drscheme:language:simple-module-based-language->module-based-language-mixin - drscheme:language:simple-module-based-language%)))] + ((drracket:language:get-default-mixin) + (drracket:language:module-based-language->language-mixin + (drracket:language:simple-module-based-language->module-based-language-mixin + drracket:language:simple-module-based-language%)))] [reader (if reader-spec (with-handlers ([exn:fail? @@ -1335,7 +1335,7 @@ [else `(expand ',res)])))) (super-instantiate ()))) - (define-struct (simple-settings+assume drscheme:language:simple-settings) (no-redef?)) + (define-struct (simple-settings+assume drracket:language:simple-settings) (no-redef?)) (define simple-settings+assume->vector (make-->vector simple-settings+assume)) (define (macro-stepper-mixin %) @@ -1344,7 +1344,7 @@ (define/augment (capability-value key) (cond [(eq? key 'macro-stepper:enabled) #t] - [else (inner (drscheme:language:get-capability-default key) + [else (inner (drracket:language:get-capability-default key) capability-value key)])))) (define (assume-mixin %) @@ -1391,12 +1391,12 @@ (simple-settings+assume->vector (default-settings)))) (define/private (extend-simple-settings s no-redef?) - (make-simple-settings+assume (drscheme:language:simple-settings-case-sensitive s) - (drscheme:language:simple-settings-printing-style s) - (drscheme:language:simple-settings-fraction-style s) - (drscheme:language:simple-settings-show-sharing s) - (drscheme:language:simple-settings-insert-newlines s) - (drscheme:language:simple-settings-annotations s) + (make-simple-settings+assume (drracket:language:simple-settings-case-sensitive s) + (drracket:language:simple-settings-printing-style s) + (drracket:language:simple-settings-fraction-style s) + (drracket:language:simple-settings-show-sharing s) + (drracket:language:simple-settings-insert-newlines s) + (drracket:language:simple-settings-annotations s) no-redef?)) (define/override (use-namespace-require/copy-from-setting? s) @@ -1452,7 +1452,7 @@ [extras-mixin (λ (mred-launcher? one-line-summary) (λ (%) - (class* % (drscheme:language:language<%>) + (class* % (drracket:language:language<%>) (define/override (get-one-line-summary) one-line-summary) (inherit get-module get-transformer-module get-init-code use-namespace-require/copy-from-setting?) @@ -1461,11 +1461,11 @@ [(eq? key 'drscheme:autocomplete-words) (get-all-manual-keywords)] [else (inner - (drscheme:language:get-capability-default key) + (drracket:language:get-capability-default key) capability-value key)])) (define/override (create-executable setting parent program-filename) (let ([executable-fn - (drscheme:language:put-executable + (drracket:language:put-executable parent program-filename #t @@ -1474,7 +1474,7 @@ (string-constant save-a-mred-launcher) (string-constant save-a-mzscheme-launcher)))]) (when executable-fn - (drscheme:language:create-module-based-launcher + (drracket:language:create-module-based-launcher program-filename executable-fn (get-module) @@ -1488,10 +1488,10 @@ (let ([% (extra-mixin ((extras-mixin mred-launcher? one-line-summary) - ((drscheme:language:get-default-mixin) - (drscheme:language:module-based-language->language-mixin - (drscheme:language:simple-module-based-language->module-based-language-mixin - drscheme:language:simple-module-based-language%)))))]) + ((drracket:language:get-default-mixin) + (drracket:language:module-based-language->language-mixin + (drracket:language:simple-module-based-language->module-based-language-mixin + drracket:language:simple-module-based-language%)))))]) (instantiate % () (module module) (language-id id) @@ -1528,7 +1528,7 @@ (define (not-a-language-extra-mixin %) (class* % (not-a-language-language<%>) - (define/override (get-style-delta) drscheme:rep:error-delta) + (define/override (get-style-delta) drracket:rep:error-delta) (define/override (first-opened) (not-a-language-message) @@ -1544,7 +1544,7 @@ (define/augment (capability-value v) (case v [(drscheme:check-syntax-button) #f] - [else (inner (drscheme:language:get-capability-default v) + [else (inner (drracket:language:get-capability-default v) capability-value v)])) (super-new))) @@ -1599,7 +1599,7 @@ green-style-delta))) (define (language-still-unchanged?) - (let ([rep (drscheme:rep:current-rep)]) + (let ([rep (drracket:rep:current-rep)]) (cond [rep (let* ([next-settings (send (send rep get-definitions-text) get-next-settings)] diff --git a/collects/drscheme/private/language-object-contract.rkt b/collects/drscheme/private/language-object-contract.rkt index 37144d5e6e..d338a7ca3b 100644 --- a/collects/drscheme/private/language-object-contract.rkt +++ b/collects/drscheme/private/language-object-contract.rkt @@ -79,9 +79,9 @@ (capability-value (->d ([s (and/c symbol? - drscheme:language:capability-registered?)]) + drracket:language:capability-registered?)]) () - [res (drscheme:language:get-capability-contract s)]))))]) + [res (drracket:language:get-capability-contract s)]))))]) #`(begin (define id (reconstitute #,ctc provide?)) #,@(if (syntax-e #'provide?) diff --git a/collects/drscheme/private/language.rkt b/collects/drscheme/private/language.rkt index 0485facc4e..fa46011bca 100644 --- a/collects/drscheme/private/language.rkt +++ b/collects/drscheme/private/language.rkt @@ -29,11 +29,11 @@ compiler/bundle-dist "rep.rkt") - (import [prefix drscheme:debug: drscheme:debug^] - [prefix drscheme:tools: drscheme:tools^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:help-desk: drscheme:help-desk^]) - (export drscheme:language^) + (import [prefix drracket:debug: drracket:debug^] + [prefix drracket:tools: drracket:tools^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:help-desk: drracket:help-desk^]) + (export drracket:language^) (define original-output-port (current-output-port)) (define (printf . args) (apply fprintf original-output-port args)) @@ -458,22 +458,22 @@ [(debug) (current-compile (el:make-errortrace-compile-handler)) (error-display-handler - (drscheme:debug:make-debug-error-display-handler + (drracket:debug:make-debug-error-display-handler (error-display-handler))) (use-compiled-file-paths (cons (build-path "compiled" "errortrace") (use-compiled-file-paths)))] [(debug/profile) - (drscheme:debug:profiling-enabled #t) + (drracket:debug:profiling-enabled #t) (error-display-handler - (drscheme:debug:make-debug-error-display-handler + (drracket:debug:make-debug-error-display-handler (error-display-handler))) - (current-eval (drscheme:debug:make-debug-eval-handler (current-eval)))] + (current-eval (drracket:debug:make-debug-eval-handler (current-eval)))] [(debug/profile test-coverage) - (drscheme:debug:test-coverage-enabled #t) - (current-eval (drscheme:debug:make-debug-eval-handler (current-eval)))])) + (drracket:debug:test-coverage-enabled #t) + (current-eval (drracket:debug:make-debug-eval-handler (current-eval)))])) (global-port-print-handler (λ (value port) @@ -1225,21 +1225,21 @@ (define language-extensions null) (define (get-language-extensions) - (drscheme:tools:only-in-phase - 'drscheme:language:get-default-mixin + (drracket:tools:only-in-phase + 'drracket:language:get-default-mixin 'phase2) language-extensions) (define (default-mixin x) x) (define (get-default-mixin) - (drscheme:tools:only-in-phase - 'drscheme:language:get-default-mixin + (drracket:tools:only-in-phase + 'drracket:language:get-default-mixin 'phase2) default-mixin) (define (extend-language-interface extension<%> default-impl) - (drscheme:tools:only-in-phase - 'drscheme:language:extend-language-interface + (drracket:tools:only-in-phase + 'drracket:language:extend-language-interface 'phase1) (set! default-mixin (compose default-impl default-mixin)) (set! language-extensions (cons extension<%> language-extensions))) diff --git a/collects/drscheme/private/link.rkt b/collects/drscheme/private/link.rkt index 8048f00838..48c280e875 100644 --- a/collects/drscheme/private/link.rkt +++ b/collects/drscheme/private/link.rkt @@ -23,42 +23,42 @@ "help-desk.rkt" "module-language-tools.rkt") -(provide drscheme@) +(provide drracket@) -(define-compound-unit/infer drscheme-unit@ +(define-compound-unit/infer drracket-unit@ (import) - (export drscheme:debug^ - drscheme:unit^ - drscheme:rep^ - drscheme:frame^ - drscheme:get/extend^ - drscheme:language-configuration^ - drscheme:language^ - drscheme:help-desk^ - drscheme:eval^ - drscheme:modes^ - drscheme:tracing^ - drscheme:module-language^ - drscheme:module-language-tools^) + (export drracket:debug^ + drracket:unit^ + drracket:rep^ + drracket:frame^ + drracket:get/extend^ + drracket:language-configuration^ + drracket:language^ + drracket:help-desk^ + drracket:eval^ + drracket:modes^ + drracket:tracing^ + drracket:module-language^ + drracket:module-language-tools^) (link init@ tools@ modes@ text@ eval@ frame@ rep@ language@ module-overview@ unit@ debug@ multi-file-search@ get-extend@ language-configuration@ font@ module-language@ module-language-tools@ help-desk@ tracing@ app@ main@)) -(define-unit/new-import-export drscheme@ - (import) (export drscheme:tool^) - (((prefix drscheme:debug: drscheme:debug^) - (prefix drscheme:unit: drscheme:unit^) - (prefix drscheme:rep: drscheme:rep^) - (prefix drscheme:frame: drscheme:frame^) - (prefix drscheme:get/extend: drscheme:get/extend^) - (prefix drscheme:language-configuration: drscheme:language-configuration^) - (prefix drscheme:language: drscheme:language^) - (prefix drscheme:help-desk: drscheme:help-desk^) - (prefix drscheme:eval: drscheme:eval^) - (prefix drscheme:modes: drscheme:modes^) - (prefix drscheme:tracing: drscheme:tracing^) - (prefix drscheme:module-language: drscheme:module-language^) - (prefix drscheme:module-language-tools: drscheme:module-language-tools^)) - drscheme-unit@)) +(define-unit/new-import-export drracket@ + (import) (export drracket:tool^) + (((prefix drracket:debug: drracket:debug^) + (prefix drracket:unit: drracket:unit^) + (prefix drracket:rep: drracket:rep^) + (prefix drracket:frame: drracket:frame^) + (prefix drracket:get/extend: drracket:get/extend^) + (prefix drracket:language-configuration: drracket:language-configuration^) + (prefix drracket:language: drracket:language^) + (prefix drracket:help-desk: drracket:help-desk^) + (prefix drracket:eval: drracket:eval^) + (prefix drracket:modes: drracket:modes^) + (prefix drracket:tracing: drracket:tracing^) + (prefix drracket:module-language: drracket:module-language^) + (prefix drracket:module-language-tools: drracket:module-language-tools^)) + drracket-unit@)) diff --git a/collects/drscheme/private/main.rkt b/collects/drscheme/private/main.rkt index 816ebd15a1..4b78e6a602 100644 --- a/collects/drscheme/private/main.rkt +++ b/collects/drscheme/private/main.rkt @@ -11,18 +11,18 @@ browser/external setup/plt-installer) -(import [prefix drscheme:app: drscheme:app^] - [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:get/extend: drscheme:get/extend^] - [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:module-language: drscheme:module-language^] - [prefix drscheme:tools: drscheme:tools^] - [prefix drscheme:debug: drscheme:debug^] - [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:font: drscheme:font^] - [prefix drscheme:modes: drscheme:modes^] - [prefix drscheme:help-desk: drscheme:help-desk^]) +(import [prefix drracket:app: drracket:app^] + [prefix drracket:unit: drracket:unit^] + [prefix drracket:get/extend: drracket:get/extend^] + [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix drracket:language: drracket:language^] + [prefix drracket:module-language: drracket:module-language^] + [prefix drracket:tools: drracket:tools^] + [prefix drracket:debug: drracket:debug^] + [prefix drracket:frame: drracket:frame^] + [prefix drracket:font: drracket:font^] + [prefix drracket:modes: drracket:modes^] + [prefix drracket:help-desk: drracket:help-desk^]) (export) @@ -78,11 +78,11 @@ (application-about-handler (λ () - (drscheme:app:about-drscheme))) + (drracket:app:about-drscheme))) -(drscheme:modes:add-initial-modes) +(drracket:modes:add-initial-modes) -(namespace-set-variable-value! 'help-desk:frame-mixin drscheme:frame:basics-mixin) +(namespace-set-variable-value! 'help-desk:frame-mixin drracket:frame:basics-mixin) (finder:default-filters (list* '("Racket (.rkt)" "*.rkt") '("Racket (.ss)" "*.ss") @@ -153,7 +153,7 @@ (preferences:set-default 'drscheme:user-defined-keybindings '() (λ (x) (and (list? x) - (andmap (λ (x) (or (path? x) (drscheme:frame:planet-spec? x))) + (andmap (λ (x) (or (path? x) (drracket:frame:planet-spec? x))) x)))) (preferences:set-default 'drscheme:install-plt-dialog '(#t "" "") ; url-selected?, url string, file string @@ -271,7 +271,7 @@ list?) -(drscheme:font:setup-preferences) +(drracket:font:setup-preferences) (color-prefs:add-background-preferences-panel) (scheme:add-preferences-panel) (scheme:add-coloring-preferences-panel) @@ -360,15 +360,15 @@ (make-check-box 'drscheme:test-coverage-ask-about-clearing? (string-constant test-coverage-ask?) warnings-panel)))) -(drscheme:debug:add-prefs-panel) +(drracket:debug:add-prefs-panel) (install-help-browser-preference-panel) -(drscheme:tools:add-prefs-panel) +(drracket:tools:add-prefs-panel) -(drscheme:language:register-capability 'drscheme:tabify-menu-callback +(drracket:language:register-capability 'drscheme:tabify-menu-callback (or/c false/c (-> (is-a?/c text%) number? number? void?)) (λ (t a b) (send t tabify-selection a b))) -(drscheme:language:register-capability 'drscheme:autocomplete-words (listof string?) '()) -(drscheme:language:register-capability 'drscheme:define-popup +(drracket:language:register-capability 'drscheme:autocomplete-words (listof string?) '()) +(drracket:language:register-capability 'drscheme:define-popup (or/c (cons/c string? string?) (list/c string? string? string?) #f) @@ -376,34 +376,34 @@ ;; The default is #f to keep whatever the user chose as their context. ;; If it's "", then we will kill the user's choice. -(drscheme:language:register-capability 'drscheme:help-context-term +(drracket:language:register-capability 'drscheme:help-context-term (or/c false/c string?) #f) -(drscheme:language:register-capability 'drscheme:special:insert-fraction (flat-contract boolean?) #t) -(drscheme:language:register-capability 'drscheme:special:insert-large-letters (flat-contract boolean?) #t) -(drscheme:language:register-capability 'drscheme:special:insert-lambda (flat-contract boolean?) #t) -(drscheme:language:register-capability 'drscheme:special:insert-image (flat-contract boolean?) #t) -(drscheme:language:register-capability 'drscheme:special:insert-comment-box (flat-contract boolean?) #t) -(drscheme:language:register-capability 'drscheme:language-menu-title +(drracket:language:register-capability 'drscheme:special:insert-fraction (flat-contract boolean?) #t) +(drracket:language:register-capability 'drscheme:special:insert-large-letters (flat-contract boolean?) #t) +(drracket:language:register-capability 'drscheme:special:insert-lambda (flat-contract boolean?) #t) +(drracket:language:register-capability 'drscheme:special:insert-image (flat-contract boolean?) #t) +(drracket:language:register-capability 'drscheme:special:insert-comment-box (flat-contract boolean?) #t) +(drracket:language:register-capability 'drscheme:language-menu-title (flat-contract string?) (string-constant scheme-menu-name)) -(drscheme:language:register-capability 'drscheme:teachpack-menu-items - (or/c false/c (flat-contract drscheme:unit:teachpack-callbacks?)) +(drracket:language:register-capability 'drscheme:teachpack-menu-items + (or/c false/c (flat-contract drracket:unit:teachpack-callbacks?)) #f) (handler:current-create-new-window (let ([drscheme-current-create-new-window (λ (filename) - (drscheme:unit:open-drscheme-window filename))]) + (drracket:unit:open-drscheme-window filename))]) drscheme-current-create-new-window)) ;; add a catch-all handler to open drscheme files (handler:insert-format-handler "Units" (λ (filename) #t) - drscheme:unit:open-drscheme-window) + drracket:unit:open-drscheme-window) ;; add a handler to open .plt files. (handler:insert-format-handler @@ -421,27 +421,27 @@ (run-installer filename) #f)) -(drscheme:tools:load/invoke-all-tools +(drracket:tools:load/invoke-all-tools (λ () (void)) (λ () - (drscheme:language-configuration:add-built-in-languages) - (drscheme:module-language:add-module-language) - (drscheme:language-configuration:add-info-specified-languages))) + (drracket:language-configuration:add-built-in-languages) + (drracket:module-language:add-module-language) + (drracket:language-configuration:add-info-specified-languages))) ;; no more extension after this point -(drscheme:get/extend:get-interactions-canvas) -(drscheme:get/extend:get-definitions-canvas) -(drscheme:get/extend:get-unit-frame) -(drscheme:get/extend:get-interactions-text) -(drscheme:get/extend:get-definitions-text) -(drscheme:language-configuration:get-languages) +(drracket:get/extend:get-interactions-canvas) +(drracket:get/extend:get-definitions-canvas) +(drracket:get/extend:get-unit-frame) +(drracket:get/extend:get-interactions-text) +(drracket:get/extend:get-definitions-text) +(drracket:language-configuration:get-languages) ;; this default can only be set *after* the ;; languages have all be registered by tools (preferences:set-default - drscheme:language-configuration:settings-preferences-symbol - (drscheme:language-configuration:get-default-language-settings) - drscheme:language-configuration:language-settings?) + drracket:language-configuration:settings-preferences-symbol + (drracket:language-configuration:get-default-language-settings) + drracket:language-configuration:language-settings?) ;; if the unmarshaller returns #f, that will fail the ;; test for this preference, reverting back to the default. @@ -449,10 +449,10 @@ ;; of the default collection and may not be the default ;; specified above (of course). (preferences:set-un/marshall - drscheme:language-configuration:settings-preferences-symbol + drracket:language-configuration:settings-preferences-symbol (λ (x) - (let ([lang (drscheme:language-configuration:language-settings-language x)] - [settings (drscheme:language-configuration:language-settings-settings x)]) + (let ([lang (drracket:language-configuration:language-settings-language x)] + [settings (drracket:language-configuration:language-settings-settings x)]) (list (send lang get-language-numbers) (send lang marshall-settings settings)))) (λ (x) @@ -469,15 +469,15 @@ ;; drscheme, for a sort of backwards compatibility (equal? (send x get-language-position) lang-nums)) x)) - (drscheme:language-configuration:get-languages))]) + (drracket:language-configuration:get-languages))]) (and lang (let ([settings (send lang unmarshall-settings marshalled-settings)]) - (drscheme:language-configuration:make-language-settings + (drracket:language-configuration:make-language-settings lang (or settings (send lang default-settings))))))))) (let ([drs-handler-recent-items-super% - (class (drscheme:frame:basics-mixin + (class (drracket:frame:basics-mixin (frame:standard-menus-mixin frame:basic%)) (define/override (edit-menu:between-select-all-and-find menu) @@ -487,12 +487,13 @@ (cond [(current-eventspace-has-menu-root?) - (drscheme:frame:create-root-menubar) + (drracket:frame:create-root-menubar) (preferences:set 'framework:exit-when-no-frames #f)] [else (preferences:set 'framework:exit-when-no-frames #t)]) +;; is this used anywhere? (let* ([sl (editor:get-standard-style-list)] [sd (make-object style-delta%)]) (send sd set-delta-foreground (make-object color% 255 0 0)) @@ -501,6 +502,8 @@ (send sl find-or-create-style (send sl find-named-style "text:ports err") sd))) + + (define repl-error-pref 'drscheme:read-eval-print-loop:error-color) (define repl-out-pref 'drscheme:read-eval-print-loop:out-color) (define repl-value-pref 'drscheme:read-eval-print-loop:value-color) @@ -538,7 +541,7 @@ (let loop ([item item]) (cond [(is-a? item top-level-window<%>) - (and (is-a? item drscheme:unit:frame%) + (and (is-a? item drracket:unit:frame%) item)] [(is-a? item menu-item<%>) (loop (send item get-parent))] @@ -587,13 +590,13 @@ (autosave:restore-autosave-files/gui) ;; install user's keybindings -(for-each drscheme:frame:add-keybindings-item +(for-each drracket:frame:add-keybindings-item (preferences:get 'drscheme:user-defined-keybindings)) ;; the initial window doesn't set the ;; unit object's state correctly, yet. (define (make-basic) - (let* ([frame (drscheme:unit:open-drscheme-window)] + (let* ([frame (drracket:unit:open-drscheme-window)] [interactions-edit (send frame get-interactions-text)] [definitions-edit (send frame get-interactions-text)] [filename (send definitions-edit get-filename)]) @@ -632,7 +635,7 @@ [frames (map (λ (f) (handler:edit-file f - (λ () (drscheme:unit:open-drscheme-window f)))) + (λ () (drracket:unit:open-drscheme-window f)))) no-dups)]) (when (null? (filter (λ (x) x) frames)) (make-basic)) diff --git a/collects/drscheme/private/modes.rkt b/collects/drscheme/private/modes.rkt index 85225c8087..22bc8b2ec8 100644 --- a/collects/drscheme/private/modes.rkt +++ b/collects/drscheme/private/modes.rkt @@ -6,7 +6,7 @@ "drsig.rkt") (import) - (export drscheme:modes^) + (export drracket:modes^) (define-struct mode (name surrogate repl-submit matches-language)) (define modes (list)) diff --git a/collects/drscheme/private/module-browser.rkt b/collects/drscheme/private/module-browser.rkt index 22daf174ca..4e3671e20a 100644 --- a/collects/drscheme/private/module-browser.rkt +++ b/collects/drscheme/private/module-browser.rkt @@ -23,11 +23,11 @@ (define unknown-module-name "? unknown module name") (define-unit module-overview@ - (import [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:eval: drscheme:eval^] - [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix drscheme:language: drscheme:language^]) - (export drscheme:module-overview^) + (import [prefix drracket:frame: drracket:frame^] + [prefix drracket:eval: drracket:eval^] + [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix drracket:language: drracket:language^]) + (export drracket:module-overview^) (define filename-constant (string-constant module-browser-filename-format)) (define font-size-gauge-label (string-constant module-browser-font-size-gauge-label)) @@ -675,7 +675,7 @@ (define text/pos (let ([t (make-object text:basic%)]) (send t load-file filename) - (drscheme:language:make-text/pos + (drracket:language:make-text/pos t 0 (send t last-position)))) @@ -738,7 +738,7 @@ [(3) 1])) (callback (λ (x y) - ;; note: the preference drscheme:module-browser:name-length is also used for the View|Show Module Browser version of the module browser + ;; note: the preference drracket:module-browser:name-length is also used for the View|Show Module Browser version of the module browser ;; here we just treat any pref value except '3' as if it were for the long names. (let ([selection (send module-browser-name-length-choice get-selection)]) (preferences:set 'drscheme:module-browser:name-length (+ 2 selection)) @@ -807,7 +807,7 @@ (define init-dir (let* ([bx (box #f)] - [filename (send (drscheme:language:text/pos-text text/pos) get-filename bx)]) + [filename (send (drracket:language:text/pos-text text/pos) get-filename bx)]) (if (and filename (not (unbox bx))) (let-values ([(base name dir) (split-path filename)]) @@ -847,8 +847,8 @@ (define complete-program? #t) (define stupid-internal-define-syntax1 - ((drscheme:eval:traverse-program/multiple - (preferences:get (drscheme:language-configuration:get-settings-preferences-symbol)) + ((drracket:eval:traverse-program/multiple + (preferences:get (drracket:language-configuration:get-settings-preferences-symbol)) init kill-termination) text/pos @@ -903,7 +903,7 @@ #t])) (define overview-frame% - (class (drscheme:frame:basics-mixin + (class (drracket:frame:basics-mixin frame:standard-menus%) (define/override (edit-menu:between-select-all-and-find menu) (void)) (define/override (edit-menu:between-redo-and-cut menu) (void)) diff --git a/collects/drscheme/private/module-language-tools.rkt b/collects/drscheme/private/module-language-tools.rkt index e9c1af5827..5318868c80 100644 --- a/collects/drscheme/private/module-language-tools.rkt +++ b/collects/drscheme/private/module-language-tools.rkt @@ -13,11 +13,11 @@ (define (oprintf . args) (apply fprintf op args)) (define-unit module-language-tools@ - (import [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:module-language: drscheme:module-language^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:language-configuration: drscheme:language-configuration^]) - (export drscheme:module-language-tools^) + (import [prefix drracket:unit: drracket:unit^] + [prefix drracket:module-language: drracket:module-language^] + [prefix drracket:language: drracket:language^] + [prefix drracket:language-configuration: drracket:language-configuration^]) + (export drracket:module-language-tools^) (define-local-member-name initialized? move-to-new-language) @@ -32,7 +32,7 @@ (define tab<%> (interface ())) (define tab-mixin - (mixin (drscheme:unit:tab<%>) (tab<%>) + (mixin (drracket:unit:tab<%>) (tab<%>) (inherit get-frame) (define toolbar-buttons '()) (define/public (get-lang-toolbar-buttons) toolbar-buttons) @@ -46,7 +46,7 @@ (define frame<%> (interface ())) (define frame-mixin - (mixin (drscheme:unit:frame<%>) (frame<%>) + (mixin (drracket:unit:frame<%>) (frame<%>) (inherit unregister-toolbar-button get-definitions-text) (define toolbar-button-panel #f) @@ -72,7 +72,7 @@ (define definitions-text<%> (interface ())) (define definitions-text-mixin - (mixin (text:basic<%> drscheme:unit:definitions-text<%>) (definitions-text<%>) + (mixin (text:basic<%> drracket:unit:definitions-text<%>) (definitions-text<%>) (inherit get-next-settings) (define in-module-language? #f) ;; true when we are in the module language (define hash-lang-last-location #f) ;; non-false when we know where the hash-lang line ended @@ -130,7 +130,7 @@ (register-new-buttons (contract (or/c #f (listof (list/c string? (is-a?/c bitmap%) - (-> (is-a?/c drscheme:unit:frame<%>) any)))) + (-> (is-a?/c drracket:unit:frame<%>) any)))) ((if (vector? info-result) (vector-ref info-result 0) info-result) @@ -197,10 +197,10 @@ (define/augment (after-set-next-settings settings) (update-in-module-language? - (is-a? (drscheme:language-configuration:language-settings-language settings) - drscheme:module-language:module-language<%>)) + (is-a? (drracket:language-configuration:language-settings-language settings) + drracket:module-language:module-language<%>)) (inner (void) after-set-next-settings settings)) (super-new) (set! in-module-language? - (is-a? (drscheme:language-configuration:language-settings-language (get-next-settings)) - drscheme:module-language:module-language<%>))))) + (is-a? (drracket:language-configuration:language-settings-language (get-next-settings)) + drracket:module-language:module-language<%>))))) diff --git a/collects/drscheme/private/module-language.rkt b/collects/drscheme/private/module-language.rkt index 476e93e5ab..e62ab2bff6 100644 --- a/collects/drscheme/private/module-language.rkt +++ b/collects/drscheme/private/module-language.rkt @@ -20,12 +20,12 @@ (define (oprintf . args) (apply fprintf op args)) (define-unit module-language@ - (import [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:init: drscheme:init^]) - (export drscheme:module-language^) + (import [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix drracket:language: drracket:language^] + [prefix drracket:unit: drracket:unit^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:init: drracket:init^]) + (export drracket:module-language^) (define module-language<%> (interface () @@ -36,27 +36,27 @@ (define (add-module-language) (define module-language% (module-mixin - ((drscheme:language:get-default-mixin) - (drscheme:language:module-based-language->language-mixin - (drscheme:language:simple-module-based-language->module-based-language-mixin - drscheme:language:simple-module-based-language%))))) - (drscheme:language-configuration:add-language + ((drracket:language:get-default-mixin) + (drracket:language:module-based-language->language-mixin + (drracket:language:simple-module-based-language->module-based-language-mixin + drracket:language:simple-module-based-language%))))) + (drracket:language-configuration:add-language (new module-language%))) ;; collection-paths : (listof (union 'default string)) ;; command-line-args : (vectorof string) ;; auto-text : string - (define-struct (module-language-settings drscheme:language:simple-settings) + (define-struct (module-language-settings drracket:language:simple-settings) (collection-paths command-line-args auto-text compilation-on? full-trace?)) (define default-compilation-on? #t) (define default-full-trace? #t) - (define default-auto-text "#lang scheme\n") + (define default-auto-text "#lang racket\n") - ;; module-mixin : (implements drscheme:language:language<%>) - ;; -> (implements drscheme:language:language<%>) + ;; module-mixin : (implements drracket:language:language<%>) + ;; -> (implements drracket:language:language<%>) (define (module-mixin %) - (class* % (drscheme:language:language<%> module-language<%>) + (class* % (drracket:language:language<%> module-language<%>) (inherit get-language-name) (define/public (get-users-language-name defs-text) @@ -89,11 +89,11 @@ (define/augment (capability-value key) (cond [(eq? key 'drscheme:autocomplete-words) - (drscheme:language-configuration:get-all-manual-keywords)] - [else (drscheme:language:get-capability-default key)])) + (drracket:language-configuration:get-all-manual-keywords)] + [else (drracket:language:get-capability-default key)])) ;; config-panel : as in super class - ;; uses drscheme:language:simple-module-based-language-config-panel + ;; uses drracket:language:simple-module-based-language-config-panel ;; and adds a collection paths configuration to it. (define/override (config-panel parent) (module-language-config-panel parent)) @@ -167,7 +167,7 @@ (and super (apply make-module-language-settings (append - (vector->list (drscheme:language:simple-settings->vector super)) + (vector->list (drracket:language:simple-settings->vector super)) (list collection-paths command-line-args auto-text @@ -175,7 +175,7 @@ ;; current versions of drscheme do not allow this combination ;; in the first place (compilation is only allowed in 'none ;; and 'debug mode), but older versions might. - (and (memq (drscheme:language:simple-settings-annotations super) + (and (memq (drracket:language:simple-settings-annotations super) '(none debug)) compilation-on?) @@ -200,7 +200,7 @@ (when (module-language-settings-compilation-on? settings) - (let ([annotations (drscheme:language:simple-settings-annotations settings)]) + (let ([annotations (drracket:language:simple-settings-annotations settings)]) (case annotations [(none) (use-compiled-file-paths @@ -349,7 +349,7 @@ ;; printer settings are just ignored here. (define/override (create-executable setting parent program-filename) - (let* ([executable-specs (drscheme:language:create-executable-gui + (let* ([executable-specs (drracket:language:create-executable-gui parent program-filename #t #t)]) (when executable-specs (let ([launcher? (eq? 'launcher (car executable-specs))] @@ -367,7 +367,7 @@ (let-values ([(base name dir) (split-path program-filename)]) (path-replace-suffix name #""))]) ((if (eq? 'distribution (car executable-specs)) - drscheme:language:create-distribution-for-executable + drracket:language:create-distribution-for-executable (lambda (executable-filename gui? make) (make executable-filename))) executable-filename @@ -398,7 +398,7 @@ ;; can be called with #f to just kill the repl (in case we want to kill it ;; but keep the highlighting of a previous error) (define (raise-hopeless-exception exn [prefix #f] [suffix #f]) - (define rep (drscheme:rep:current-rep)) + (define rep (drracket:rep:current-rep)) ;; Throw an error as usual if we don't have the drscheme rep, then we just ;; raise the exception as normal. (It can happen in some rare cases like ;; having a single empty scheme box in the definitions.) @@ -413,7 +413,7 @@ (let ([s (make-semaphore 0)] [msg (string-append "\nInteractions disabled" (if suffix (string-append ": " suffix) "."))]) - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (λ () (send rep call-without-reset-highlighting @@ -451,7 +451,7 @@ (define left-debugging-radio-box #f) (define right-debugging-radio-box #f) (define simple-case-lambda - (drscheme:language:simple-module-based-language-config-panel + (drracket:language:simple-module-based-language-config-panel new-parent #:case-sensitive #t @@ -634,7 +634,7 @@ (let ([simple-settings (simple-case-lambda)]) (apply make-module-language-settings (append - (vector->list (drscheme:language:simple-settings->vector simple-settings)) + (vector->list (drracket:language:simple-settings->vector simple-settings)) (list (get-collection-paths) (get-command-line-args) (get-auto-text) @@ -687,7 +687,7 @@ (let ([canvas (send source get-canvas)]) (and canvas (let ([frame (send canvas get-top-level-window)]) - (and (is-a? frame drscheme:unit:frame%) + (and (is-a? frame drracket:unit:frame%) (let* ([b (box #f)] [filename (send (send frame get-definitions-text) get-filename @@ -716,10 +716,10 @@ (define/override (put-file directory default-name) (let ([tlw (get-top-level-window)]) (if (and tlw - (is-a? tlw drscheme:unit:frame<%>)) + (is-a? tlw drracket:unit:frame<%>)) (let* ([definitions-text (send tlw get-definitions-text)] [module-language? - (is-a? (drscheme:language-configuration:language-settings-language + (is-a? (drracket:language-configuration:language-settings-language (send definitions-text get-next-settings)) module-language<%>)] [module-default-filename diff --git a/collects/drscheme/private/multi-file-search.rkt b/collects/drscheme/private/multi-file-search.rkt index ac9728197f..f663de0edd 100644 --- a/collects/drscheme/private/multi-file-search.rkt +++ b/collects/drscheme/private/multi-file-search.rkt @@ -9,9 +9,9 @@ string-constants "drsig.rkt") - (import [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:unit: drscheme:unit^]) - (export drscheme:multi-file-search^) + (import [prefix drracket:frame: drracket:frame^] + [prefix drracket:unit: drracket:unit^]) + (export drracket:multi-file-search^) ;; multi-file-search : -> void ;; opens a dialog to configure the search and initiates the search @@ -252,7 +252,7 @@ (when current-file (let ([f (handler:edit-file current-file)]) (when (and f - (is-a? f drscheme:unit:frame<%>)) + (is-a? f drracket:unit:frame<%>)) (let* ([t (send f get-definitions-text)] [pos (+ (send t paragraph-start-position line-in-current-file) col-in-current-file)]) @@ -351,7 +351,7 @@ ;; thread: eventspace main thread (define search-size-frame% - (class (drscheme:frame:basics-mixin + (class (drracket:frame:basics-mixin (frame:searchable-mixin frame:standard-menus%)) (init-field name) diff --git a/collects/drscheme/private/rep.rkt b/collects/drscheme/private/rep.rkt index d455e8124b..03b67ac3fd 100644 --- a/collects/drscheme/private/rep.rkt +++ b/collects/drscheme/private/rep.rkt @@ -80,18 +80,18 @@ TODO (parameterize-break #f (current-break-parameterization))) (define-unit rep@ - (import (prefix drscheme:init: drscheme:init^) - (prefix drscheme:language-configuration: drscheme:language-configuration/internal^) - (prefix drscheme:language: drscheme:language^) - (prefix drscheme:app: drscheme:app^) - (prefix drscheme:frame: drscheme:frame^) - (prefix drscheme:unit: drscheme:unit^) - (prefix drscheme:text: drscheme:text^) - (prefix drscheme:help-desk: drscheme:help-desk^) - (prefix drscheme:debug: drscheme:debug^) - [prefix drscheme:eval: drscheme:eval^] - [prefix drscheme:module-language: drscheme:module-language^]) - (export (rename drscheme:rep^ + (import (prefix drracket:init: drracket:init^) + (prefix drracket:language-configuration: drracket:language-configuration/internal^) + (prefix drracket:language: drracket:language^) + (prefix drracket:app: drracket:app^) + (prefix drracket:frame: drracket:frame^) + (prefix drracket:unit: drracket:unit^) + (prefix drracket:text: drracket:text^) + (prefix drracket:help-desk: drracket:help-desk^) + (prefix drracket:debug: drracket:debug^) + [prefix drracket:eval: drracket:eval^] + [prefix drracket:module-language: drracket:module-language^]) + (export (rename drracket:rep^ [-text% text%] [-text<%> text<%>])) @@ -241,7 +241,7 @@ TODO (λ (frame) (printf " ~s\n" frame)) (continuation-mark-set->context (exn-continuation-marks exn))) (printf "\n")) - (drscheme:debug:error-display-handler/stacktrace msg exn stack))) + (drracket:debug:error-display-handler/stacktrace msg exn stack))) (define (main-user-eventspace-thread?) (let ([rep (current-rep)]) @@ -257,7 +257,7 @@ TODO (let ([canvas (send obj get-canvas)]) (and canvas (let ([frame (send canvas get-top-level-window)]) - (and (is-a? frame drscheme:unit:frame%) + (and (is-a? frame drracket:unit:frame%) frame))))))] [add-drs-function (λ (name f) @@ -268,7 +268,7 @@ TODO (λ (obj evt) (let ([fr (get-frame obj)]) (and fr - (is-a? fr drscheme:unit:frame<%>) + (is-a? fr drracket:unit:frame<%>) (< i (send fr get-tab-count)) (begin (send fr change-to-nth-tab i) #t)))))]) @@ -277,22 +277,22 @@ TODO (send drs-bindings-keymap add-function "search-help-desk" (λ (obj evt) (if (not (and (is-a? obj text%) (get-frame obj))) ; is `get-frame' needed? - (drscheme:help-desk:help-desk) + (drracket:help-desk:help-desk) (let* ([start (send obj get-start-position)] [end (send obj get-end-position)] [str (if (= start end) - (drscheme:unit:find-symbol obj start) + (drracket:unit:find-symbol obj start) (send obj get-text start end))]) (if (or (not str) (equal? "" str)) - (drscheme:help-desk:help-desk) + (drracket:help-desk:help-desk) (let* ([l (send obj get-canvas)] [l (and l (send l get-top-level-window))] - [l (and l (is-a? l drscheme:unit:frame<%>) (send l get-definitions-text))] + [l (and l (is-a? l drracket:unit:frame<%>) (send l get-definitions-text))] [l (and l (send l get-next-settings))] - [l (and l (drscheme:language-configuration:language-settings-language l))] + [l (and l (drracket:language-configuration:language-settings-language l))] [ctxt (and l (send l capability-value 'drscheme:help-context-term))] [name (and l (send l get-language-name))]) - (drscheme:help-desk:help-desk + (drracket:help-desk:help-desk str (and ctxt (list ctxt name))))))))) (add-drs-function "execute" (λ (frame) (send frame execute-callback))) (add-drs-function "next-tab" (λ (frame) (send frame next-tab))) @@ -325,7 +325,7 @@ TODO ;; drs-bindings-keymap-mixin : ;; ((implements editor:keymap<%>) -> (implements editor:keymap<%>)) ;; for any x that is an instance of the resulting class, - ;; (is-a? (send (send x get-canvas) get-top-level-frame) drscheme:unit:frame%) + ;; (is-a? (send (send x get-canvas) get-top-level-frame) drracket:unit:frame%) (define drs-bindings-keymap-mixin (mixin (editor:keymap<%>) (editor:keymap<%>) (define/override (get-keymaps) @@ -336,7 +336,7 @@ TODO ;; queue is full): (define output-limit-size 2000) - (define (printf . args) (apply fprintf drscheme:init:original-output-port args)) + (define (printf . args) (apply fprintf drracket:init:original-output-port args)) (define setup-scheme-interaction-mode-keymap (λ (keymap) @@ -418,24 +418,24 @@ TODO ;; determines if the settings in `language-settings' ;; correspond to the default settings of the language. (define (is-default-settings? language-settings) - (send (drscheme:language-configuration:language-settings-language language-settings) + (send (drracket:language-configuration:language-settings-language language-settings) default-settings? - (drscheme:language-configuration:language-settings-settings language-settings))) + (drracket:language-configuration:language-settings-settings language-settings))) (define (extract-language-name language-settings defs-text) (cond - [(is-a? (drscheme:language-configuration:language-settings-language language-settings) - drscheme:module-language:module-language<%>) - (send (drscheme:language-configuration:language-settings-language language-settings) + [(is-a? (drracket:language-configuration:language-settings-language language-settings) + drracket:module-language:module-language<%>) + (send (drracket:language-configuration:language-settings-language language-settings) get-users-language-name defs-text)] [else - (send (drscheme:language-configuration:language-settings-language language-settings) + (send (drracket:language-configuration:language-settings-language language-settings) get-language-name)])) (define (extract-language-style-delta language-settings) - (send (drscheme:language-configuration:language-settings-language language-settings) + (send (drracket:language-configuration:language-settings-language language-settings) get-style-delta)) (define (extract-language-url language-settings) - (send (drscheme:language-configuration:language-settings-language language-settings) + (send (drracket:language-configuration:language-settings-language language-settings) get-language-url)) (define-struct sexp (left right prompt)) @@ -585,8 +585,8 @@ TODO (define/public (get-definitions-text) definitions-text) (unless (is-a? context context<%>) - (error 'drscheme:rep:text% - "expected an object that implements drscheme:rep:context<%> as initialization argument, got: ~e" + (error 'drracket:rep:text% + "expected an object that implements drracket:rep:context<%> as initialization argument, got: ~e" context)) (define/public (get-context) context) @@ -600,7 +600,7 @@ TODO ;; =User= (probably doesn't matter) (define/private queue-system-callback (λ (ut thunk [always? #f]) - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (λ () (when (or always? (eq? ut (get-user-thread))) @@ -631,8 +631,8 @@ TODO (for-each (λ (v) (let* ([ls (current-language-settings)] - [lang (drscheme:language-configuration:language-settings-language ls)] - [settings (drscheme:language-configuration:language-settings-settings ls)]) + [lang (drracket:language-configuration:language-settings-language ls)] + [settings (drracket:language-configuration:language-settings-settings ls)]) (send lang render-value/format v settings @@ -749,7 +749,7 @@ TODO [start (- (srcloc-position loc) 1)] [span (srcloc-span loc)] [finish (+ start span)]) - (send file highlight-range start finish (drscheme:debug:get-error-color) #f 'high))) + (send file highlight-range start finish (drracket:debug:get-error-color) #f 'high))) locs)]) (when (and definitions-text error-arrows) @@ -1114,8 +1114,8 @@ TODO (run-in-evaluation-thread (λ () ; =User=, =Handler=, =No-Breaks= (let* ([settings (current-language-settings)] - [lang (drscheme:language-configuration:language-settings-language settings)] - [settings (drscheme:language-configuration:language-settings-settings settings)] + [lang (drracket:language-configuration:language-settings-language settings)] + [settings (drracket:language-configuration:language-settings-settings settings)] [dummy-value (box #f)] [get-sexp/syntax/eof (if complete-program? @@ -1256,7 +1256,7 @@ TODO ; setup standard parameters (let ([snip-classes ; the snip-classes in the DrScheme eventspace's snip-class-list - (drscheme:eval:get-snip-classes)] + (drracket:eval:get-snip-classes)] [drs-eventspace (current-eventspace)]) (queue-user/wait (λ () ; =User=, =No-Breaks= @@ -1270,7 +1270,7 @@ TODO (λ () ;; forward system events the user's logger, and record any ;; events that happen on the user's logger to show in the GUI - (let ([sys-evt (make-log-receiver drscheme:init:system-logger 'debug)] + (let ([sys-evt (make-log-receiver drracket:init:system-logger 'debug)] [user-evt (make-log-receiver user-logger 'debug)]) (let loop () (sync @@ -1285,7 +1285,7 @@ TODO (handle-evt user-evt (λ (vec) - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (λ () (new-log-message vec)))) (loop)))))))) @@ -1315,16 +1315,16 @@ TODO (planet-terse-set-key (gensym)) (planet-terse-register (lambda (tag package) - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (λ () (new-planet-info tag package)))))) ;; disable breaks until an evaluation actually occurs (send context set-breakables #f #f) ;; initialize the language - (send (drscheme:language-configuration:language-settings-language user-language-settings) + (send (drracket:language-configuration:language-settings-language user-language-settings) on-execute - (drscheme:language-configuration:language-settings-settings user-language-settings) + (drracket:language-configuration:language-settings-settings user-language-settings) (let ([run-on-user-thread (lambda (t) (queue-user/wait (λ () @@ -1340,11 +1340,11 @@ TODO (with-handlers ((void (λ (x) (set! exn x) (set! raised-exn? #t)))) - (drscheme:language:setup-setup-values)))) + (drracket:language:setup-setup-values)))) (when raised-exn? (fprintf (current-error-port) - "copied exn raised when setting up snip values (thunk passed as third argume to drscheme:language:add-snip-value)\n") + "copied exn raised when setting up snip values (thunk passed as third argume to drracket:language:add-snip-value)\n") (raise exn))) ;; allow extensions to this class to do some setup work @@ -1513,10 +1513,10 @@ TODO (current-custodian user-custodian) (current-load text-editor-load-handler) - (drscheme:eval:set-basic-parameters snip-classes) + (drracket:eval:set-basic-parameters snip-classes) (current-rep this) (let ([dir (or (send context get-directory) - drscheme:init:first-dir)]) + drracket:init:first-dir)]) (current-directory dir)) (set! user-namespace-box (make-weak-box (current-namespace))) @@ -1575,14 +1575,14 @@ TODO (define/public (new-empty-console) (queue-user/wait (λ () ; =User=, =No-Breaks= - (send (drscheme:language-configuration:language-settings-language user-language-settings) + (send (drracket:language-configuration:language-settings-language user-language-settings) first-opened)))) (define/public (reset-console) (when (thread? thread-killed) (kill-thread thread-killed)) (send context clear-annotations) - (drscheme:debug:hide-backtrace-window) + (drracket:debug:hide-backtrace-window) (shutdown-user-custodian) (clear-input-port) (clear-box-input-port) @@ -1633,9 +1633,9 @@ TODO (let ([osf (get-styles-fixed)]) (set-styles-fixed #f) - (send (drscheme:language-configuration:language-settings-language user-language-settings) + (send (drracket:language-configuration:language-settings-language user-language-settings) extra-repl-information - (drscheme:language-configuration:language-settings-settings user-language-settings) + (drracket:language-configuration:language-settings-settings user-language-settings) (open-output-text-editor this 'end)) (set-styles-fixed osf)) @@ -1663,7 +1663,7 @@ TODO (version:version) (system-type 'gc)) welcome-delta) (set-clickback before after - (λ args (drscheme:app:about-drscheme)) + (λ args (drracket:app:about-drscheme)) click-delta)) (set! setting-up-repl? #f) (thaw-colorer) @@ -1672,7 +1672,7 @@ TODO (queue-user/wait (λ () ; =User=, =No-Breaks= - (send (drscheme:language-configuration:language-settings-language user-language-settings) + (send (drracket:language-configuration:language-settings-language user-language-settings) first-opened))) (insert-prompt) @@ -1825,7 +1825,7 @@ TODO (send input-delta set-delta-foreground (make-object color% 0 150 0)) ;; insert-error-in-text : (is-a?/c text%) - ;; (union #f (is-a?/c drscheme:rep:text<%>)) + ;; (union #f (is-a?/c drracket:rep:text<%>)) ;; string? ;; exn? ;; (union false? (and/c string? directory-exists?)) @@ -1947,7 +1947,7 @@ TODO ;; other position. (define (open-file-and-highlight filename position other-position) (let ([file (handler:edit-file filename)]) - (when (and (is-a? file drscheme:unit:frame%) + (when (and (is-a? file drracket:unit:frame%) position) (if other-position (send (send file get-interactions-text) @@ -1966,7 +1966,7 @@ TODO (define/override (get-all-words) (let* ([definitions-text (get-defs this)] [settings (send definitions-text get-next-settings)] - [language (drscheme:language-configuration:language-settings-language settings)]) + [language (drracket:language-configuration:language-settings-language settings)]) (send language capability-value 'drscheme:autocomplete-words))) (super-new)))) diff --git a/collects/drscheme/private/text.rkt b/collects/drscheme/private/text.rkt index d2c8570bac..6d7df03140 100644 --- a/collects/drscheme/private/text.rkt +++ b/collects/drscheme/private/text.rkt @@ -4,7 +4,7 @@ framework) (import) - (export drscheme:text^) + (export drracket:text^) (define text<%> (interface (scheme:text<%>) printing-on diff --git a/collects/drscheme/private/tools.rkt b/collects/drscheme/private/tools.rkt index 962c5f321e..5a36b62b5c 100644 --- a/collects/drscheme/private/tools.rkt +++ b/collects/drscheme/private/tools.rkt @@ -15,21 +15,21 @@ string-constants) (require (for-syntax racket/base racket/match)) -(import [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:get/extend: drscheme:get/extend^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:language-configuration: drscheme:language-configuration^] - [prefix drscheme:help-desk: drscheme:help-desk^] - [prefix drscheme:init: drscheme:init^] - [prefix drscheme:debug: drscheme:debug^] - [prefix drscheme:eval: drscheme:eval^] - [prefix drscheme:modes: drscheme:modes^] - [prefix drscheme:tracing: drscheme:tracing^] - [prefix drscheme:module-language: drscheme:module-language^] - [prefix drscheme:module-language-tools: drscheme:module-language-tools^]) -(export drscheme:tools^) +(import [prefix drracket:frame: drracket:frame^] + [prefix drracket:unit: drracket:unit^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:get/extend: drracket:get/extend^] + [prefix drracket:language: drracket:language^] + [prefix drracket:language-configuration: drracket:language-configuration^] + [prefix drracket:help-desk: drracket:help-desk^] + [prefix drracket:init: drracket:init^] + [prefix drracket:debug: drracket:debug^] + [prefix drracket:eval: drracket:eval^] + [prefix drracket:modes: drracket:modes^] + [prefix drracket:tracing: drracket:tracing^] + [prefix drracket:module-language: drracket:module-language^] + [prefix drracket:module-language-tools: drracket:module-language-tools^]) +(export drracket:tools^) ;; An installed-tool is ;; (make-installed-tool directory-record module-spec string/#f string/#f string/#f string/#f) @@ -97,7 +97,7 @@ string-constants) (let ([sp (open-output-string)]) (parameterize ([current-error-port sp] [current-error-port sp]) - (drscheme:init:original-error-display-handler (exn-message table) table)) + (drracket:init:original-error-display-handler (exn-message table) table)) (get-output-string sp))) #f '(ok stop)) @@ -342,18 +342,18 @@ string-constants) ;; invoke-tool : unit/sig string -> (values (-> void) (-> void)) ;; invokes the tools and returns the two phase thunks. (define (invoke-tool unit tool-name) - (define-unit-binding unit@ unit (import drscheme:tool^) (export drscheme:tool-exports^)) - (language-object-abstraction drscheme:language:object/c #f) + (define-unit-binding unit@ unit (import drracket:tool^) (export drracket:tool-exports^)) + (language-object-abstraction drracket:language:object/c #f) (wrap-tool-inputs (let () (define-values/invoke-unit unit@ - (import drscheme:tool^) (export drscheme:tool-exports^)) + (import drracket:tool^) (export drracket:tool-exports^)) (values phase1 phase2)) tool-name)) ;; show-error : string (union exn TST) -> void (define (show-error title x) - (parameterize ([drscheme:init:error-display-handler-message-box-title + (parameterize ([drracket:init:error-display-handler-message-box-title title]) ((error-display-handler) (if (exn? x) diff --git a/collects/drscheme/private/tracing.rkt b/collects/drscheme/private/tracing.rkt index 664a88decb..ce0f1f1c96 100644 --- a/collects/drscheme/private/tracing.rkt +++ b/collects/drscheme/private/tracing.rkt @@ -15,11 +15,11 @@ (provide tracing@) (define-unit tracing@ - (import [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:init: drscheme:init^] - [prefix drscheme:unit: drscheme:unit^]) - (export drscheme:tracing^) + (import [prefix drracket:frame: drracket:frame^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:init: drracket:init^] + [prefix drracket:unit: drracket:unit^]) + (export drracket:tracing^) (define-local-member-name get-tracing-text @@ -41,7 +41,7 @@ (let ([name (cond [(identifier? inferred-name) (syntax-e inferred-name)] [else (object-name inferred-name)])] - [rep (drscheme:rep:current-rep)]) + [rep (drracket:rep:current-rep)]) (when (and name rep) (let ([canvas (send rep get-canvas)]) (when canvas @@ -74,7 +74,7 @@ ;; Queue callback to write trace line --- ;; low priority, so that infinite loops don't stop the user ;; from clicking "Break" - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (lambda () (send tab tracing:add-line (get-output-string sp)) @@ -89,7 +89,7 @@ (import tr:stacktrace-imports^) (export tr:stacktrace^)) (define tab-mixin - (mixin (drscheme:unit:tab<%> drscheme:rep:context<%>) (tab-tracing<%>) + (mixin (drracket:unit:tab<%> drracket:rep:context<%>) (tab-tracing<%>) (inherit get-frame) (define tracing-visible? #f) @@ -160,7 +160,7 @@ (send clickback-delta set-delta 'change-underline #t) (define frame-mixin - (mixin (drscheme:frame:<%> drscheme:unit:frame<%>) () + (mixin (drracket:frame:<%> drracket:unit:frame<%>) () (inherit get-current-tab) (define show-tracing-menu-item #f) (define tracing-visible? #f) diff --git a/collects/drscheme/private/unit.rkt b/collects/drscheme/private/unit.rkt index 86a2b2f0c8..efe6d32ce8 100644 --- a/collects/drscheme/private/unit.rkt +++ b/collects/drscheme/private/unit.rkt @@ -33,7 +33,7 @@ module browser threading seems wrong. "drsig.rkt" "auto-language.rkt" "insert-large-letters.rkt" - (prefix-in drscheme:arrow: "../arrow.rkt") + (prefix-in drracket:arrow: "../arrow.rkt") mred (prefix-in mred: mred) @@ -51,23 +51,23 @@ module browser threading seems wrong. (define define-button-long-label "(define ...)") (define-unit unit@ - (import [prefix help-desk: drscheme:help-desk^] - [prefix drscheme:app: drscheme:app^] - [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:text: drscheme:text^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:get/extend: drscheme:get/extend^] - [prefix drscheme:module-overview: drscheme:module-overview^] - [prefix drscheme:tools: drscheme:tools^] - [prefix drscheme:eval: drscheme:eval^] - [prefix drscheme:init: drscheme:init^] - [prefix drscheme:module-language: drscheme:module-language^] - [prefix drscheme:module-language-tools: drscheme:module-language-tools^] - [prefix drscheme:modes: drscheme:modes^] - [prefix drscheme:debug: drscheme:debug^]) - (export (rename drscheme:unit^ + (import [prefix help-desk: drracket:help-desk^] + [prefix drracket:app: drracket:app^] + [prefix drracket:frame: drracket:frame^] + [prefix drracket:text: drracket:text^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix drracket:language: drracket:language^] + [prefix drracket:get/extend: drracket:get/extend^] + [prefix drracket:module-overview: drracket:module-overview^] + [prefix drracket:tools: drracket:tools^] + [prefix drracket:eval: drracket:eval^] + [prefix drracket:init: drracket:init^] + [prefix drracket:module-language: drracket:module-language^] + [prefix drracket:module-language-tools: drracket:module-language-tools^] + [prefix drracket:modes: drracket:modes^] + [prefix drracket:debug: drracket:debug^]) + (export (rename drracket:unit^ [-frame% frame%] [-frame<%> frame<%>])) @@ -78,7 +78,7 @@ module browser threading seems wrong. get-i set-i) (define tab<%> - (interface (drscheme:rep:context<%>) + (interface (drracket:rep:context<%>) get-frame get-defs get-ints @@ -119,7 +119,7 @@ module browser threading seems wrong. (old menu text event) (when (and (is-a? text text%) (or (is-a? text (get-definitions-text%)) - (is-a? text drscheme:rep:text%)) + (is-a? text drracket:rep:text%)) (is-a? event mouse-event%)) (let ([add-sep @@ -148,7 +148,7 @@ module browser threading seems wrong. [l (and l (send l get-top-level-window))] [l (and l (is-a? l -frame<%>) (send l get-definitions-text))] [l (and l (send l get-next-settings))] - [l (and l (drscheme:language-configuration:language-settings-language l))] + [l (and l (drracket:language-configuration:language-settings-language l))] [ctxt (and l (send l capability-value 'drscheme:help-context-term))] [name (and l (send l get-language-name))]) (unless (string=? str "") @@ -331,7 +331,7 @@ module browser threading seems wrong. (and (number? v) v)))))) - ;; create-executable : (instanceof drscheme:unit:frame<%>) -> void + ;; create-executable : (instanceof drracket:unit:frame<%>) -> void (define (create-executable frame) (let* ([definitions-text (send frame get-definitions-text)] [program-filename (send definitions-text get-filename)]) @@ -350,9 +350,9 @@ module browser threading seems wrong. #f frame)) (let ([settings (send definitions-text get-next-settings)]) - (send (drscheme:language-configuration:language-settings-language settings) + (send (drracket:language-configuration:language-settings-language settings) create-executable - (drscheme:language-configuration:language-settings-settings settings) + (drracket:language-configuration:language-settings-settings settings) frame program-filename)))]))) @@ -385,11 +385,11 @@ module browser threading seems wrong. (apply super-make-object args))] [get-program-editor-mixin (λ () - (drscheme:tools:only-in-phase 'drscheme:unit:get-program-editor-mixin 'phase2 'init-complete) + (drracket:tools:only-in-phase 'drscheme:unit:get-program-editor-mixin 'phase2 'init-complete) program-editor-mixin)] [add-to-program-editor-mixin (λ (mixin) - (drscheme:tools:only-in-phase 'drscheme:unit:add-to-program-editor-mixin 'phase1) + (drracket:tools:only-in-phase 'drscheme:unit:add-to-program-editor-mixin 'phase1) (let ([old program-editor-mixin]) (set! program-editor-mixin (λ (x) (mixin (old x))))))]) (values get-program-editor-mixin @@ -442,7 +442,7 @@ module browser threading seems wrong. (define get-definitions-text% (let ([definitions-text% #f]) (λ () - (drscheme:tools:only-in-phase 'phase2 'init-complete) + (drracket:tools:only-in-phase 'phase2 'init-complete) (unless definitions-text% (set! definitions-text% (make-definitions-text%))) definitions-text%))) @@ -451,14 +451,14 @@ module browser threading seems wrong. (let ([definitions-super% ((get-program-editor-mixin) (text:first-line-mixin - (drscheme:module-language:module-language-put-file-mixin + (drracket:module-language:module-language-put-file-mixin (scheme:text-mixin (color:text-mixin - (drscheme:rep:drs-bindings-keymap-mixin + (drracket:rep:drs-bindings-keymap-mixin (mode:host-text-mixin (text:delegate-mixin (text:foreground-color-mixin - (drscheme:rep:drs-autocomplete-mixin + (drracket:rep:drs-autocomplete-mixin (λ (x) x) (text:normalize-paste-mixin text:info%)))))))))))]) @@ -475,29 +475,29 @@ module browser threading seems wrong. (inherit get-surrogate set-surrogate) (define/public (set-current-mode mode) - (let ([surrogate (drscheme:modes:mode-surrogate mode)]) + (let ([surrogate (drracket:modes:mode-surrogate mode)]) (set-surrogate surrogate) (when interactions-text (send interactions-text set-surrogate surrogate) (send interactions-text set-submit-predicate - (drscheme:modes:mode-repl-submit mode))))) + (drracket:modes:mode-repl-submit mode))))) (define/public (is-current-mode? mode) - (let ([surrogate (drscheme:modes:mode-surrogate mode)]) + (let ([surrogate (drracket:modes:mode-surrogate mode)]) (eq? surrogate (get-surrogate)))) (define/public (change-mode-to-match) (let* ([language-settings (get-next-settings)] [language-name (and language-settings - (send (drscheme:language-configuration:language-settings-language + (send (drracket:language-configuration:language-settings-language language-settings) get-language-position))]) - (let loop ([modes (drscheme:modes:get-modes)]) + (let loop ([modes (drracket:modes:get-modes)]) (cond [(null? modes) (error 'change-mode-to-match "didn't find a matching mode")] [else (let ([mode (car modes)]) - (if ((drscheme:modes:mode-matches-language mode) language-name) + (if ((drracket:modes:mode-matches-language mode) language-name) (unless (is-current-mode? mode) (set-current-mode mode)) (loop (cdr modes))))])))) @@ -517,8 +517,8 @@ module browser threading seems wrong. (define/augment (on-save-file filename fmt) (inner (void) on-save-file filename fmt) - (let* ([lang (drscheme:language-configuration:language-settings-language next-settings)] - [settings (drscheme:language-configuration:language-settings-settings next-settings)] + (let* ([lang (drracket:language-configuration:language-settings-language next-settings)] + [settings (drracket:language-configuration:language-settings-settings next-settings)] [name-mod (send lang get-reader-module)]) (when name-mod ;; the reader-module method's result is used a test of whether or not the get-metadata method is used for this language (let ([metadata (send lang get-metadata (filename->modname filename) settings)]) @@ -571,12 +571,12 @@ module browser threading seems wrong. (let-values ([(matching-language settings) (pick-new-language this - (drscheme:language-configuration:get-languages) + (drracket:language-configuration:get-languages) module-language module-language-settings)]) (when matching-language (set-next-settings - (drscheme:language-configuration:make-language-settings + (drracket:language-configuration:make-language-settings matching-language settings) #f)))) @@ -607,7 +607,7 @@ module browser threading seems wrong. (field [needs-execution-state #f] [already-warned-state #f] - [execute-settings (preferences:get drscheme:language-configuration:settings-preferences-symbol)] + [execute-settings (preferences:get drracket:language-configuration:settings-preferences-symbol)] [next-settings execute-settings]) (define/private (set-needs-execution-state! s) (set! needs-execution-state s)) @@ -622,9 +622,9 @@ module browser threading seems wrong. (define/pubment (get-next-settings) next-settings) (define/pubment (set-next-settings _next-settings [update-prefs? #t]) - (when (or (send (drscheme:language-configuration:language-settings-language _next-settings) + (when (or (send (drracket:language-configuration:language-settings-language _next-settings) get-reader-module) - (send (drscheme:language-configuration:language-settings-language next-settings) + (send (drracket:language-configuration:language-settings-language next-settings) get-reader-module)) (set-modified #t)) (set! next-settings _next-settings) @@ -635,11 +635,11 @@ module browser threading seems wrong. (send f language-changed))) (highlight-first-line - (is-a? (drscheme:language-configuration:language-settings-language _next-settings) - drscheme:module-language:module-language<%>)) + (is-a? (drracket:language-configuration:language-settings-language _next-settings) + drracket:module-language:module-language<%>)) - (let ([lang (drscheme:language-configuration:language-settings-language next-settings)] - [sets (drscheme:language-configuration:language-settings-settings next-settings)]) + (let ([lang (drracket:language-configuration:language-settings-language next-settings)] + [sets (drracket:language-configuration:language-settings-settings next-settings)]) (preferences:set 'drscheme:recent-language-names (limit-length @@ -651,7 +651,7 @@ module browser threading seems wrong. (when update-prefs? (preferences:set - drscheme:language-configuration:settings-preferences-symbol + drracket:language-configuration:settings-preferences-symbol next-settings)) (remove-auto-text) @@ -662,14 +662,14 @@ module browser threading seems wrong. (inner (void) after-set-next-settings s)) (define/public (this-and-next-language-the-same?) - (let ([execute-lang (drscheme:language-configuration:language-settings-language execute-settings)] - [next-lang (drscheme:language-configuration:language-settings-language next-settings)]) + (let ([execute-lang (drracket:language-configuration:language-settings-language execute-settings)] + [next-lang (drracket:language-configuration:language-settings-language next-settings)]) (and (eq? execute-lang next-lang) (equal? (send execute-lang marshall-settings - (drscheme:language-configuration:language-settings-settings execute-settings)) + (drracket:language-configuration:language-settings-settings execute-settings)) (send execute-lang marshall-settings - (drscheme:language-configuration:language-settings-settings next-settings)))))) + (drracket:language-configuration:language-settings-settings next-settings)))))) (define/pubment (set-needs-execution-message msg) (set-needs-execution-state! msg)) @@ -746,7 +746,7 @@ module browser threading seems wrong. (define/private (draw-arrow dc dx dy pt1 pt2) (let-values ([(x1 y1) (find-poss (srcloc-source pt1) (- (srcloc-position pt1) 1) (srcloc-position pt1))] [(x2 y2) (find-poss (srcloc-source pt2) (- (srcloc-position pt2) 1) (srcloc-position pt2))]) - (drscheme:arrow:draw-arrow dc x1 y1 x2 y2 dx dy))) + (drracket:arrow:draw-arrow dc x1 y1 x2 y2 dx dy))) (inherit dc-location-to-editor-location) (define/private (find-poss text left-pos right-pos) @@ -770,14 +770,14 @@ module browser threading seems wrong. ;; inserts the auto-text if any, and executes the text if so (define/private (insert-auto-text) (define lang - (drscheme:language-configuration:language-settings-language + (drracket:language-configuration:language-settings-language next-settings)) (define auto-text (and (not really-modified?) (not (get-filename)) - (is-a? lang drscheme:module-language:module-language<%>) + (is-a? lang drracket:module-language:module-language<%>) (send lang get-auto-text - (drscheme:language-configuration:language-settings-settings + (drracket:language-configuration:language-settings-settings next-settings)))) (when auto-text (begin-edit-sequence #f) @@ -816,8 +816,8 @@ module browser threading seems wrong. ;; insert the default-text (queue-callback (lambda () (insert-auto-text))) (highlight-first-line - (is-a? (drscheme:language-configuration:language-settings-language next-settings) - drscheme:module-language:module-language<%>)) + (is-a? (drracket:language-configuration:language-settings-language next-settings) + drracket:module-language:module-language<%>)) (inherit set-max-undo-history) (set-max-undo-history 'forever)))) @@ -852,16 +852,16 @@ module browser threading seems wrong. (and (preferences:get 'drscheme:switch-to-module-language-automatically?) (ormap (λ (lang) - (and (is-a? lang drscheme:module-language:module-language<%>) + (and (is-a? lang drracket:module-language:module-language<%>) lang)) - (drscheme:language-configuration:get-languages)))] + (drracket:language-configuration:get-languages)))] [module-language-settings (let ([prefs-setting (preferences:get - drscheme:language-configuration:settings-preferences-symbol)]) + drracket:language-configuration:settings-preferences-symbol)]) (cond - [(eq? (drscheme:language-configuration:language-settings-language prefs-setting) + [(eq? (drracket:language-configuration:language-settings-language prefs-setting) module-language) - (drscheme:language-configuration:language-settings-settings prefs-setting)] + (drracket:language-configuration:language-settings-settings prefs-setting)] [else (and module-language (send module-language default-settings))]))]) @@ -909,7 +909,7 @@ module browser threading seems wrong. [frame (and canvas (send canvas get-top-level-window))]) (when (is-a? frame -frame<%>) (let* ([language-settings (send (send frame get-definitions-text) get-next-settings)] - [new-language (drscheme:language-configuration:language-settings-language language-settings)] + [new-language (drracket:language-configuration:language-settings-language language-settings)] [capability-info (send new-language capability-value 'drscheme:define-popup)]) (when capability-info (let* ([current-pos (get-pos editor event)] @@ -951,7 +951,7 @@ module browser threading seems wrong. (init-field frame) (unless (is-a? frame -frame<%>) - (error 'func-defs-canvas "frame is not a drscheme:unit:frame<%>")) + (error 'func-defs-canvas "frame is not a drracket:unit:frame<%>")) (define sort-by-name? (preferences:get 'drscheme:defns-popup-sort-by-name?)) (define sorting-name (if sort-by-name? @@ -964,13 +964,13 @@ module browser threading seems wrong. (string-constant sort-by-position) (string-constant sort-by-name)))) - (define drscheme:define-popup-capability-info - (drscheme:language:get-capability-default 'drscheme:define-popup)) + (define define-popup-capability-info + (drracket:language:get-capability-default 'drscheme:define-popup)) (inherit set-message set-hidden?) (define/public (language-changed new-language vertical?) - (set! drscheme:define-popup-capability-info (send new-language capability-value 'drscheme:define-popup)) - (let ([define-name (get-drscheme:define-popup-name drscheme:define-popup-capability-info + (set! define-popup-capability-info (send new-language capability-value 'drscheme:define-popup)) + (let ([define-name (get-define-popup-name define-popup-capability-info vertical?)]) (cond [define-name @@ -979,9 +979,9 @@ module browser threading seems wrong. [else (set-hidden? #t)]))) (define/override (fill-popup menu reset) - (when drscheme:define-popup-capability-info + (when define-popup-capability-info (let* ([text (send frame get-definitions-text)] - [unsorted-defns (get-definitions (car drscheme:define-popup-capability-info) + [unsorted-defns (get-definitions (car define-popup-capability-info) (not sort-by-name?) text)] [defns (if sort-by-name? @@ -1186,8 +1186,8 @@ module browser threading seems wrong. (define horizontal-dragable/def-int% (dragable/def-int-mixin panel:horizontal-dragable%)) (define super-frame% - (drscheme:frame:mixin - (drscheme:frame:basics-mixin + (drracket:frame:mixin + (drracket:frame:basics-mixin (frame:searchable-text-mixin (frame:searchable-mixin (frame:text-info-mixin @@ -1203,7 +1203,7 @@ module browser threading seems wrong. frame%))))))))))))))) (define tab% - (class* object% (drscheme:rep:context<%> tab<%>) + (class* object% (drracket:rep:context<%> tab<%>) (init-field frame defs i @@ -1385,7 +1385,7 @@ module browser threading seems wrong. show-planet-status) (define -frame<%> - (interface (drscheme:frame:<%> frame:searchable-text<%> frame:delegate<%> frame:open-here<%>) + (interface (drracket:frame:<%> frame:searchable-text<%> frame:delegate<%> frame:open-here<%>) get-insert-menu get-special-menu get-interactions-text @@ -1416,7 +1416,7 @@ module browser threading seems wrong. (define frame-mixin - (mixin (drscheme:frame:<%> frame:searchable-text<%> frame:delegate<%> frame:open-here<%>) + (mixin (drracket:frame:<%> frame:searchable-text<%> frame:delegate<%> frame:open-here<%>) (-frame<%>) (init filename) (inherit set-label-prefix get-show-menu @@ -1635,7 +1635,7 @@ module browser threading seems wrong. (unless planet-message (new message% [parent planet-status-panel] - [label drscheme:debug:small-planet-bitmap]) + [label drracket:debug:small-planet-bitmap]) (set! planet-message (new message% [parent planet-status-panel] [label ""] [stretchable-width #t])) (set! planet-logger-button (new button% @@ -1915,8 +1915,8 @@ module browser threading seems wrong. (send transcript-parent-panel change-children (λ (l) (list transcript-panel))) (let* ([settings (send definitions-text get-next-settings)] - [language (drscheme:language-configuration:language-settings-language settings)] - [name (get-drscheme:define-popup-name (send language capability-value 'drscheme:define-popup) + [language (drracket:language-configuration:language-settings-language settings)] + [name (get-define-popup-name (send language capability-value 'drscheme:define-popup) vertical?)]) (when name (send func-defs-canvas set-message #f name))) @@ -2040,13 +2040,13 @@ module browser threading seems wrong. (define/public (language-changed) (let* ([settings (send definitions-text get-next-settings)] - [language (drscheme:language-configuration:language-settings-language settings)]) + [language (drracket:language-configuration:language-settings-language settings)]) (send func-defs-canvas language-changed language (or (toolbar-is-left?) (toolbar-is-right?))) (send language-message set-yellow/lang (not (send definitions-text this-and-next-language-the-same?)) (string-append (send language get-language-name) (if (send language default-settings? - (drscheme:language-configuration:language-settings-settings settings)) + (drracket:language-configuration:language-settings-settings settings)) "" (string-append " " (string-constant custom))))) (when (is-a? scheme-menu menu%) @@ -2179,7 +2179,7 @@ module browser threading seems wrong. candidate)) candidate-prefixes))) - [define/override get-canvas% (λ () (drscheme:get/extend:get-definitions-canvas))] + [define/override get-canvas% (λ () (drracket:get/extend:get-definitions-canvas))] (define/public (update-running running?) (send running-canvas set-running running?)) @@ -2203,7 +2203,7 @@ module browser threading seems wrong. (toggle-show/hide-interactions) (update-shown))) - (define/override (get-editor%) (drscheme:get/extend:get-definitions-text)) + (define/override (get-editor%) (drracket:get/extend:get-definitions-text)) (define/public (still-untouched?) (and (send definitions-text still-untouched?) (let* ([prompt (send interactions-text get-prompt)] @@ -2274,13 +2274,13 @@ module browser threading seems wrong. (for-each (λ (mode) (let* ([item (new checkable-menu-item% - (label (drscheme:modes:mode-name mode)) + (label (drracket:modes:mode-name mode)) (parent menu) (callback (λ (_1 _2) (send definitions-text set-current-mode mode))))]) (when (send definitions-text is-current-mode? mode) (send item check #t)))) - (drscheme:modes:get-modes)))))) + (drracket:modes:get-modes)))))) @@ -2318,14 +2318,14 @@ module browser threading seems wrong. (handle-split canvas-to-be-split (λ (x) (set! definitions-canvases x)) definitions-canvases - (drscheme:get/extend:get-definitions-canvas) + (drracket:get/extend:get-definitions-canvas) definitions-text)) (define/private (split-interactions canvas-to-be-split) (handle-split canvas-to-be-split (λ (x) (set! interactions-canvases x)) interactions-canvases - (drscheme:get/extend:get-interactions-canvas) + (drracket:get/extend:get-interactions-canvas) interactions-text)) (define/private (handle-split canvas-to-be-split set-canvases! canvases canvas% text) @@ -2685,13 +2685,13 @@ module browser threading seems wrong. ;; if the language is not-a-language, and the buffer looks like a module, ;; automatically make the switch to the module language (let ([next-settings (send definitions-text get-next-settings)]) - (when (is-a? (drscheme:language-configuration:language-settings-language next-settings) - drscheme:language-configuration:not-a-language-language<%>) + (when (is-a? (drracket:language-configuration:language-settings-language next-settings) + drracket:language-configuration:not-a-language-language<%>) (when (looks-like-module? definitions-text) (let-values ([(module-language module-language-settings) (get-module-language/settings)]) (when (and module-language module-language-settings) (send definitions-text set-next-settings - (drscheme:language-configuration:make-language-settings + (drracket:language-configuration:make-language-settings module-language module-language-settings))))))) @@ -2777,7 +2777,7 @@ module browser threading seems wrong. (define/private (initialize-definitions-canvas) (unless definitions-canvas (set! definitions-canvas - (new (drscheme:get/extend:get-definitions-canvas) + (new (drracket:get/extend:get-definitions-canvas) (parent resizable-panel) (editor definitions-text))))) @@ -2815,15 +2815,15 @@ module browser threading seems wrong. ;; creates a new tab and updates the GUI for that new tab (define/private create-new-tab (lambda ([filename #f]) - (let* ([defs (new (drscheme:get/extend:get-definitions-text))] + (let* ([defs (new (drracket:get/extend:get-definitions-text))] [tab-count (length tabs)] - [new-tab (new (drscheme:get/extend:get-tab) + [new-tab (new (drracket:get/extend:get-tab) (defs defs) (i tab-count) (frame this) (defs-shown? #t) (ints-shown? (not filename)))] - [ints (make-object (drscheme:get/extend:get-interactions-text) new-tab)]) + [ints (make-object (drracket:get/extend:get-interactions-text) new-tab)]) (send new-tab set-ints ints) (set! tabs (append tabs (list new-tab))) (send tabs-panel append @@ -3244,10 +3244,10 @@ module browser threading seems wrong. (define/private (can-browse-language?) (let* ([lang/config (send (get-definitions-text) get-next-settings)] - [lang (drscheme:language-configuration:language-settings-language lang/config)] + [lang (drracket:language-configuration:language-settings-language lang/config)] [strs (send lang get-language-position)] [can-browse? - (or (is-a? lang drscheme:module-language:module-language<%>) + (or (is-a? lang drracket:module-language:module-language<%>) (ormap (λ (x) (regexp-match #rx"PLT" x)) strs))]) (unless can-browse? @@ -3260,7 +3260,7 @@ module browser threading seems wrong. (send module-browser-panel begin-container-sequence) (unless module-browser-ec (set! module-browser-pb - (drscheme:module-overview:make-module-overview-pasteboard + (drracket:module-overview:make-module-overview-pasteboard #t (λ (x) (mouse-currently-over x)))) (set! module-browser-ec (make-object editor-canvas% @@ -3349,9 +3349,9 @@ module browser threading seems wrong. (send module-browser-planet-path-check-box enable #f) (send module-browser-name-length-choice enable #f) (disable-evaluation-in-tab current-tab) - (drscheme:module-overview:fill-pasteboard + (drracket:module-overview:fill-pasteboard module-browser-pb - (drscheme:language:make-text/pos + (drracket:language:make-text/pos definitions-text 0 (send definitions-text last-position)) @@ -3570,7 +3570,7 @@ module browser threading seems wrong. (define/private (get-current-capability-value key) (let* ([language-settings (send (get-definitions-text) get-next-settings)] - [new-language (drscheme:language-configuration:language-settings-language language-settings)]) + [new-language (drracket:language-configuration:language-settings-language language-settings)]) (send new-language capability-value key))) (define language-menu 'uninited-language-menu) @@ -3580,7 +3580,7 @@ module browser threading seems wrong. (define/public (get-special-menu) insert-menu) (define/public (choose-language-callback) - (let ([new-settings (drscheme:language-configuration:language-dialog + (let ([new-settings (drracket:language-configuration:language-dialog #f (send definitions-text get-next-settings) this)]) @@ -3593,15 +3593,15 @@ module browser threading seems wrong. (let ([tp-callbacks (get-current-capability-value 'drscheme:teachpack-menu-items)]) (cond [tp-callbacks - (let* ([language (drscheme:language-configuration:language-settings-language + (let* ([language (drracket:language-configuration:language-settings-language (send (get-definitions-text) get-next-settings))] - [settings (drscheme:language-configuration:language-settings-settings + [settings (drracket:language-configuration:language-settings-settings (send (get-definitions-text) get-next-settings))] [tp-names ((teachpack-callbacks-get-names tp-callbacks) settings)] [update-settings (λ (settings) (send (get-definitions-text) set-next-settings - (drscheme:language-configuration:make-language-settings language settings)) + (drracket:language-configuration:make-language-settings language settings)) (send (get-definitions-text) teachpack-changed))]) (set! teachpack-items (list* @@ -3648,7 +3648,7 @@ module browser threading seems wrong. (and (send l capability-value 'drscheme:teachpack-menu-items) (format "\n ~a" (send l get-language-name)))) - (drscheme:language-configuration:get-languages)))))) + (drracket:language-configuration:get-languages)))))) this))])))]))) (define/private (initialize-menus) @@ -3660,7 +3660,7 @@ module browser threading seems wrong. #f language-menu-on-demand))] [_ (set! scheme-menu (new (get-menu%) - [label (drscheme:language:get-capability-default + [label (drracket:language:get-capability-default 'drscheme:language-menu-title)] [parent mb]))] [send-method @@ -3739,7 +3739,7 @@ module browser threading seems wrong. (make-object menu:can-restore-menu-item% (string-constant module-browser...) scheme-menu - (λ (x y) (drscheme:module-overview:module-overview this))) + (λ (x y) (drracket:module-overview:module-overview this))) (make-object separator-menu-item% scheme-menu) (let ([cap-val @@ -3747,7 +3747,7 @@ module browser threading seems wrong. (let* ([tab (get-current-tab)] [defs (send tab get-defs)] [settings (send defs get-next-settings)] - [language (drscheme:language-configuration:language-settings-language settings)]) + [language (drracket:language-configuration:language-settings-language settings)]) (send language capability-value 'drscheme:tabify-menu-callback)))]) (new menu:can-restore-menu-item% [label (string-constant reindent-menu-item-label)] @@ -3838,7 +3838,7 @@ module browser threading seems wrong. (let ([language-settings (send definitions-text get-next-settings)]) (let-values ([(comment-prefix comment-character) (if language-settings - (send (drscheme:language-configuration:language-settings-language + (send (drracket:language-configuration:language-settings-language language-settings) get-comment-character) (values ";" #\;))]) @@ -3912,10 +3912,10 @@ module browser threading seems wrong. ; ; - (define definitions-text (new (drscheme:get/extend:get-definitions-text))) + (define definitions-text (new (drracket:get/extend:get-definitions-text))) ;; tabs : (listof tab) - (define tabs (list (new (drscheme:get/extend:get-tab) + (define tabs (list (new (drracket:get/extend:get-tab) (defs definitions-text) (frame this) (i 0) @@ -3927,7 +3927,7 @@ module browser threading seems wrong. ;; corresponds to the tabs-panel's active button. (define current-tab (car tabs)) - (define interactions-text (new (drscheme:get/extend:get-interactions-text) + (define interactions-text (new (drracket:get/extend:get-interactions-text) (context (car tabs)))) (send (car tabs) set-ints interactions-text) @@ -3998,7 +3998,7 @@ module browser threading seems wrong. [define definitions-canvas #f] (initialize-definitions-canvas) [define definitions-canvases (list definitions-canvas)] - [define interactions-canvas (new (drscheme:get/extend:get-interactions-canvas) + [define interactions-canvas (new (drracket:get/extend:get-interactions-canvas) (parent resizable-panel) (editor interactions-text))] [define interactions-canvases (list interactions-canvas)] @@ -4140,8 +4140,8 @@ module browser threading seems wrong. (set! newest-frame this) (send definitions-canvas focus))) - ;; get-drscheme:define-popup-name : (or/c #f (cons/c string? string?) (list/c string? string? string)) boolean -> (or/c #f string?) - (define (get-drscheme:define-popup-name info vertical?) + ;; get-define-popup-name : (or/c #f (cons/c string? string?) (list/c string? string? string)) boolean -> (or/c #f string?) + (define (get-define-popup-name info vertical?) (and info (if vertical? (if (pair? (cdr info)) @@ -4424,7 +4424,7 @@ module browser threading seems wrong. [marshalled-settings (cdr name/settings)] [lang (ormap (λ (l) (and (equal? (send l get-language-name) name) l)) - (drscheme:language-configuration:get-languages))]) + (drracket:language-configuration:get-languages))]) (when lang ;; this test can fail when a language has been added wrongly via the tools interface ;; just ignore that menu item, in that case. @@ -4439,7 +4439,7 @@ module browser threading seems wrong. (λ (x y) (send (send frame get-definitions-text) set-next-settings - (drscheme:language-configuration:make-language-settings + (drracket:language-configuration:make-language-settings lang settings)))])))))) (preferences:get 'drscheme:recent-language-names)) @@ -4592,7 +4592,7 @@ module browser threading seems wrong. (forget-saved-bug-report item) (send-url (url->string - (drscheme:debug:bug-info->ticket-url item))))] + (drracket:debug:bug-info->ticket-url item))))] [label (string-constant bug-track-report)])) (void))) pref) ;; reverse list so first elements end up on top of list @@ -4705,7 +4705,7 @@ module browser threading seems wrong. (define first-frame? #t) (define (create-new-drscheme-frame filename) - (let* ([drs-frame% (drscheme:get/extend:get-unit-frame)] + (let* ([drs-frame% (drracket:get/extend:get-unit-frame)] [frame (new drs-frame% (filename filename))]) (send (send frame get-interactions-text) initialize-console) (when first-frame? diff --git a/collects/drscheme/syncheck-drracket-button.rkt b/collects/drscheme/syncheck-drracket-button.rkt new file mode 100644 index 0000000000..59ca26373f --- /dev/null +++ b/collects/drscheme/syncheck-drracket-button.rkt @@ -0,0 +1,18 @@ +#lang racket/base +(require racket/class + racket/gui/base + string-constants/string-constant) +(provide syncheck-drracket-button + syncheck-bitmap + syncheck:button-callback) + +(define-local-member-name syncheck:button-callback) + +(define syncheck-bitmap (make-object bitmap% (build-path (collection-path "icons") "syncheck.png") 'png/mask)) + +(define syncheck-drracket-button + (list + (string-constant check-syntax) + syncheck-bitmap + (λ (drs-frame) (send drs-frame syncheck:button-callback)))) + diff --git a/collects/drscheme/syncheck-drscheme-button.rkt b/collects/drscheme/syncheck-drscheme-button.rkt index a4d7f28d30..59ca26373f 100644 --- a/collects/drscheme/syncheck-drscheme-button.rkt +++ b/collects/drscheme/syncheck-drscheme-button.rkt @@ -1,8 +1,8 @@ #lang racket/base -(require scheme/class - scheme/gui/base +(require racket/class + racket/gui/base string-constants/string-constant) -(provide syncheck-drscheme-button +(provide syncheck-drracket-button syncheck-bitmap syncheck:button-callback) @@ -10,7 +10,7 @@ (define syncheck-bitmap (make-object bitmap% (build-path (collection-path "icons") "syncheck.png") 'png/mask)) -(define syncheck-drscheme-button +(define syncheck-drracket-button (list (string-constant check-syntax) syncheck-bitmap diff --git a/collects/drscheme/syncheck.rkt b/collects/drscheme/syncheck.rkt index d9895c9994..60b7dea3eb 100644 --- a/collects/drscheme/syncheck.rkt +++ b/collects/drscheme/syncheck.rkt @@ -38,7 +38,7 @@ If the namespace does not, they are colored the unbound color. net/uri-codec browser/external (for-syntax scheme/base) - "syncheck-drscheme-button.rkt") + "syncheck-drracket-button.rkt") (provide tool@) (define o (current-output-port)) diff --git a/collects/drscheme/tool-lib.rkt b/collects/drscheme/tool-lib.rkt index 8f8464faac..1d969f92a3 100644 --- a/collects/drscheme/tool-lib.rkt +++ b/collects/drscheme/tool-lib.rkt @@ -7,11 +7,11 @@ the main unit, starting up drscheme. After that, it just provides all of the names in the tools library, for use defining keybindings |# -(require scheme/class - scheme/gui/base +(require racket/class + racket/gui/base (except-in scheme/unit struct) - scheme/contract - scheme/class + racket/contract + racket/class drscheme/private/link drscheme/private/drsig @@ -31,22 +31,22 @@ all of the names in the tools library, for use defining keybindings scheme/pretty mzlib/pconvert)) -(define-values/invoke-unit/infer drscheme@) -(provide-signature-elements drscheme:tool-cm^) ;; provide all of the classes & interfaces +(define-values/invoke-unit/infer drracket@) +(provide-signature-elements drracket:tool-cm^) ;; provide all of the classes & interfaces -(provide drscheme:unit:program-editor-mixin) -(define-syntax (drscheme:unit:program-editor-mixin stx) +(provide drracket:unit:program-editor-mixin) +(define-syntax (drracket:unit:program-editor-mixin stx) (syntax-case stx () [(_ a ...) - #'((drscheme:unit:get-program-editor-mixin) a ...)] - [_ #'(drscheme:unit:get-program-editor-mixin)])) + #'((drracket:unit:get-program-editor-mixin) a ...)] + [_ #'(drracket:unit:get-program-editor-mixin)])) -(language-object-abstraction drscheme:language:object/c #t) +(language-object-abstraction drracket:language:object/c #t) (provide/doc (proc-doc/names - drscheme:module-language-tools:add-opt-out-toolbar-button + drracket:module-language-tools:add-opt-out-toolbar-button (-> (-> (is-a?/c top-level-window<%>) (is-a?/c area-container<%>) (is-a?/c switchable-button%)) @@ -60,24 +60,24 @@ all of the names in the tools library, for use defining keybindings have this button (or all such buttons), the button will appear. @section-index["drscheme:opt-out-toolbar-buttons"] - See @scheme[read-language] for more details on how language's specify how to opt out. - DrScheme will invoke the @tt{get-info} proc from @scheme[read-language] with + See @racket[read-language] for more details on how language's specify how to opt out. + DrScheme will invoke the @tt{get-info} proc from @racket[read-language] with @tt{'drscheme:opt-out-toolbar-buttons}. If the result is a list of symbols, the - listed symbols are opted out. If the result is @scheme[#f], all buttons are opted + listed symbols are opted out. If the result is @racket[#f], all buttons are opted out. The default is the empty list, meaning that all opt-out buttons appear.. }) (proc-doc/names - drscheme:module-language:add-module-language + drracket:module-language:add-module-language (-> any) () @{Adds the module language to DrScheme. This is called during DrScheme's startup.}) (proc-doc/names - drscheme:module-language:module-language-put-file-mixin + drracket:module-language:module-language-put-file-mixin (-> (implementation?/c text:basic<%>) (implementation?/c text:basic<%>)) (super%) - @{Extends @scheme[super%] by overriding the @method[editor<%> put-file] method + @{Extends @racket[super%] by overriding the @method[editor<%> put-file] method to use a default name from the buffer, if the buffer contains something like @tt{(module name ...)}.}) @@ -101,50 +101,50 @@ all of the names in the tools library, for use defining keybindings (proc-doc/names - drscheme:eval:set-basic-parameters + drracket:eval:set-basic-parameters (-> (listof (is-a?/c snip-class%)) void?) (snipclasses) @{sets the parameters that are shared between the repl's - initialization and @scheme[drscheme:eval:build-user-eventspace/custodian] + initialization and @racket[drracket:eval:build-user-eventspace/custodian] Specifically, it sets these parameters: @itemize[ - @item{ @scheme[current-namespace] has been set to a newly + @item{ @racket[current-namespace] has been set to a newly created empty namespace. This namespace has the following modules - copied (with @scheme[namespace-attach-module]) + copied (with @racket[namespace-attach-module]) from DrScheme's original namespace: - @itemize[@item{@scheme['mzscheme]}@item{@scheme['mred]}] + @itemize[@item{@racket['mzscheme]}@item{@racket['mred]}] }@item{ - @scheme[read-curly-brace-as-paren] - is @scheme[#t], + @racket[read-curly-brace-as-paren] + is @racket[#t], }@item{ - @scheme[read-square-bracket-as-paren] - is @scheme[#t], + @racket[read-square-bracket-as-paren] + is @racket[#t], }@item{ - @scheme[error-print-width] is set to 250. + @racket[error-print-width] is set to 250. }@item{ - @scheme[current-ps-setup] + @racket[current-ps-setup] is set to a newly created - @scheme[ps-setup%] + @racket[ps-setup%] object. - }@item{ The @scheme[exit-handler] is set to + }@item{ The @racket[exit-handler] is set to a parameter that kills the user's custodian. }@item{ The snip-class-list, returned by - @scheme[get-the-snip-class-list] + @racket[get-the-snip-class-list] is initialized with all of the snipclasses in DrScheme's eventspace's snip-class-list. }]}) (proc-doc/names - drscheme:eval:get-snip-classes + drracket:eval:get-snip-classes (-> (listof (is-a?/c snip-class%))) () @{Returns a list of all of the snipclasses in the current eventspace.}) (proc-doc/names - drscheme:eval:expand-program - (-> (or/c port? drscheme:language:text/pos?) - drscheme:language-configuration:language-settings? + drracket:eval:expand-program + (-> (or/c port? drracket:language:text/pos?) + drracket:language-configuration:language-settings? boolean? (-> void?) (-> void?) @@ -158,60 +158,60 @@ all of the names in the tools library, for use defining keybindings window for use with external program processing tools. This function uses - @scheme[drscheme:eval:build-user-eventspace/custodian] + @racket[drracket:eval:build-user-eventspace/custodian] to build the user's environment. - The arguments @scheme[language-settings], @scheme[init], and - @scheme[kill-termination] are passed to - @scheme[drscheme:eval:build-user-eventspace/custodian]. + The arguments @racket[language-settings], @racket[init], and + @racket[kill-termination] are passed to + @racket[drracket:eval:build-user-eventspace/custodian]. - The @scheme[input] argument specifies the source of the program. + The @racket[input] argument specifies the source of the program. - The @scheme[eval-compile-time-part?] argument indicates if - @scheme[expand] + The @racket[eval-compile-time-part?] argument indicates if + @racket[expand] is called or if - @scheme[expand-top-level-with-compile-time-evals] + @racket[expand-top-level-with-compile-time-evals] is called when the program is expanded. Roughly speaking, if your tool will evaluate each expression itself by calling - @scheme[eval] - then pass @scheme[#f]. Otherwise, if your tool + @racket[eval] + then pass @racket[#f]. Otherwise, if your tool just processes the expanded program, be sure to pass - @scheme[#t]. + @racket[#t]. This function calls - @method[drscheme:language:language<%> front-end/complete-program] + @method[drracket:language:language<%> front-end/complete-program] to expand the program. Unlike when the @onscreen{Run} is clicked, however, it does not call - @method[drscheme:language:language<%> front-end/finished-complete-program]. + @method[drracket:language:language<%> front-end/finished-complete-program]. - The first argument to @scheme[iter] is the expanded program + The first argument to @racket[iter] is the expanded program (represented as syntax) or eof. - The @scheme[iter] argument is called for each expression in the + The @racket[iter] argument is called for each expression in the expanded program and once more with eof, unless an error is raised during expansion. It is called from the user's thread. If an exception is raised during expansion of the - user's program, @scheme[iter] is not called. - Consider setting the exception-handler during @scheme[init] to + user's program, @racket[iter] is not called. + Consider setting the exception-handler during @racket[init] to handle this situation. - The second argument to @scheme[iter] is a thunk that + The second argument to @racket[iter] is a thunk that continues expanding the rest of the contents of the - definitions window. If the first argument to @scheme[iter] was + definitions window. If the first argument to @racket[iter] was eof, this argument is just the primitive - @scheme[void]. + @racket[void]. See also - @scheme[drscheme:eval:expand-program/multiple].}) + @racket[drracket:eval:expand-program/multiple].}) (proc-doc/names - drscheme:eval:traverse-program/multiple - (drscheme:language-configuration:language-settings? + drracket:eval:traverse-program/multiple + (drracket:language-configuration:language-settings? (-> void?) (-> void?) . -> . - ((or/c port? drscheme:language:text/pos?) + ((or/c port? drracket:language:text/pos?) ((or/c eof-object? syntax? (cons/c string? any/c)) (-> any) . -> . @@ -222,19 +222,19 @@ all of the names in the tools library, for use defining keybindings (language-settings init kill-termination) @{This function is similar to - @scheme[drscheme:eval:expand-program/multiple] + @racket[drracket:eval:expand-program/multiple] The only difference is that it does not expand the program in the editor; instead the processing function can decide how to expand the program.}) (proc-doc/names - drscheme:eval:expand-program/multiple - (-> drscheme:language-configuration:language-settings? + drracket:eval:expand-program/multiple + (-> drracket:language-configuration:language-settings? boolean? (-> void?) (-> void?) - (-> (or/c port? drscheme:language:text/pos?) + (-> (or/c port? drracket:language:text/pos?) (-> (or/c eof-object? syntax? (cons/c string? any/c)) (-> any) any) @@ -243,7 +243,7 @@ all of the names in the tools library, for use defining keybindings (language-settings eval-compile-time-part? init kill-termination) @{This function is just like - @scheme[drscheme:eval:expand-program] + @racket[drracket:eval:expand-program] except that it is curried and the second application can be used multiple times. Use this function if you want to initialize the user's @@ -252,14 +252,14 @@ all of the names in the tools library, for use defining keybindings The extra boolean argument to the result function determines if - @scheme[drscheme:language:language front-end/complete-program<%>] + @racket[drracket:language:language front-end/complete-program<%>] or - @scheme[drscheme:language:language front-end/interaction<%>] + @racket[drracket:language:language front-end/interaction<%>] is called.}) (proc-doc/names - drscheme:eval:build-user-eventspace/custodian - (->* (drscheme:language-configuration:language-settings? + drracket:eval:build-user-eventspace/custodian + (->* (drracket:language-configuration:language-settings? (-> void?) (-> void?)) () @@ -269,50 +269,50 @@ all of the names in the tools library, for use defining keybindings @{This function creates a custodian and an eventspace (on the new custodian) to expand the user's program. It does not kill this custodian, but it can safely be shutdown (with - @scheme[custodian-shutdown-all]) after the + @racket[custodian-shutdown-all]) after the expansion is finished. It initializes the user's eventspace's main thread with several parameters: @itemize[ - @item{ @scheme[current-custodian] is set to a new custodian. + @item{ @racket[current-custodian] is set to a new custodian. }@item{ In addition, it calls - @scheme[drscheme:eval:set-basic-parameters]. + @racket[drracket:eval:set-basic-parameters]. }] - The @scheme[language-settings] argument is the current + The @racket[language-settings] argument is the current language and its settings. See - @scheme[drscheme:language-configuration:make-language-settings] + @racket[drracket:language-configuration:make-language-settings] for details on that structure. If the program is associated with a DrScheme frame, get the frame's language settings from the - @method[drscheme:unit:definitions-text<%> get-next-settings] + @method[drracket:unit:definitions-text<%> get-next-settings] method of - @scheme[drscheme:unit:definitions-text<%>]. Also, the most recently chosen language in + @racket[drracket:unit:definitions-text<%>]. Also, the most recently chosen language in the language dialog is saved via the framework's preferences. Apply - @scheme[preferences:get] + @racket[preferences:get] to - @scheme[drscheme:language-configuration:get-settings-preferences-symbol] - for that @scheme[language-settings]. + @racket[drracket:language-configuration:get-settings-preferences-symbol] + for that @racket[language-settings]. - The @scheme[init] argument is called after the user's parameters + The @racket[init] argument is called after the user's parameters are all set, but before the program is run. It is called on the user's thread. The - @scheme[current-directory] and - @scheme[current-load-relative-directory] + @racket[current-directory] and + @racket[current-load-relative-directory] parameters are not set, so if there are appropriate directories, - the @scheme[init] argument is a good place to set them. + the @racket[init] argument is a good place to set them. - The @scheme[kill-termination] argument is called when the main thread of + The @racket[kill-termination] argument is called when the main thread of the eventspace terminates, no matter if the custodian was shutdown, or the thread was killed. This procedure is also called when the thread terminates normally. This procedure is called from a new, dedicated thread (@italic{i. e.}, not the thread created to do the expansion, nor the thread that - @scheme[drscheme:eval:build-user-eventspace/custodian] was called from.)}) + @racket[drracket:eval:build-user-eventspace/custodian] was called from.)}) @@ -334,11 +334,11 @@ all of the names in the tools library, for use defining keybindings ; ;;;; (proc-doc/names - drscheme:debug:error-display-handler/stacktrace + drracket:debug:error-display-handler/stacktrace (->* (string? any/c) ((or/c false/c (listof srcloc?)) - #:definitions-text (or/c #f (is-a?/c drscheme:unit:definitions-text<%>)) - #:interactions-text (or/c #f (is-a?/c drscheme:rep:text<%>)) + #:definitions-text (or/c #f (is-a?/c drracket:unit:definitions-text<%>)) + #:interactions-text (or/c #f (is-a?/c drracket:rep:text<%>)) ) any/c) ((msg exn) ((stack #f) @@ -350,16 +350,16 @@ all of the names in the tools library, for use defining keybindings and a clickable icon for the source of the error (read & syntax errors show their source locations and otherwise the first place in the stack trace is shown). - If @scheme[stack] is false, then the stack traces embedded in the @scheme[exn] argument (if any) are used. + If @racket[stack] is false, then the stack traces embedded in the @racket[exn] argument (if any) are used. Specifically, this function looks for a stacktrace via - @scheme[errortrace-key] in the continuation marks of @scheme[exn] and @scheme[continuation-mark-set->context]. + @racket[errortrace-key] in the continuation marks of @racket[exn] and @racket[continuation-mark-set->context]. - If @scheme[stack] is not false, that stack is added to the stacks already in the exception. + If @racket[stack] is not false, that stack is added to the stacks already in the exception. This should be called in the same eventspace and on the same thread as the error.}) (proc-doc/names - drscheme:debug:make-debug-error-display-handler + drracket:debug:make-debug-error-display-handler (-> (-> string? (or/c any/c exn?) any) (-> string? (or/c any/c exn?) any)) @@ -369,36 +369,36 @@ all of the names in the tools library, for use defining keybindings of another error-display-handler. See also MzScheme's - @scheme[error-display-handler] + @racket[error-display-handler] parameter. If the current-error-port is the definitions window in drscheme, this error handler inserts some debugging - annotations, calls @scheme[oedh], and then highlights the + annotations, calls @racket[oedh], and then highlights the source location of the runtime error. It looks for both stack trace information in the continuation marks both via the @schememodname[errortrace/errortrace-key] module and via - @scheme[continuation-mark-set->context]. + @racket[continuation-mark-set->context]. }) (proc-doc/names - drscheme:debug:hide-backtrace-window + drracket:debug:hide-backtrace-window (-> void?) () @{Hides the backtrace window.}) (proc-doc/names - drscheme:debug:add-prefs-panel + drracket:debug:add-prefs-panel (-> void?) () @{Adds the profiling preferences panel.}) (proc-doc/names - drscheme:debug:open-and-highlight-in-file + drracket:debug:open-and-highlight-in-file (->* ((or/c srcloc? (listof srcloc?))) ((or/c #f (cons/c (λ (x) (and (weak-box? x) (let ([v (weak-box-value x)]) @@ -409,19 +409,19 @@ all of the names in the tools library, for use defining keybindings ((debug-info) ((edition-pair #f))) @{This function opens a DrScheme to display - @scheme[debug-info]. Only the src the position + @racket[debug-info]. Only the src the position and the span fields of the srcloc are considered. - The @scheme[edition-pair] is used to determine if a + The @racket[edition-pair] is used to determine if a warning message is shown when before opening the file. - If the @scheme[edition-pair] is not @scheme[#f], it is compared + If the @racket[edition-pair] is not @racket[#f], it is compared with the result of @method[text:basic<%> get-edition-number] of the editor that is loaded to determine if the file has been edited since the source location was recorded. If so, it puts up a warning dialog message to that effect.}) (proc-doc/names - drscheme:debug:show-backtrace-window/edition-pairs + drracket:debug:show-backtrace-window/edition-pairs (-> string? (listof srcloc?) (listof (or/c #f (cons/c (λ (x) (and (weak-box? x) @@ -429,40 +429,40 @@ all of the names in the tools library, for use defining keybindings (or (not v) (is-a?/c v editor<%>))))) number?))) - (or/c #f (is-a?/c drscheme:unit:definitions-text<%>)) - (or/c #f (is-a?/c drscheme:rep:text<%>)) + (or/c #f (is-a?/c drracket:unit:definitions-text<%>)) + (or/c #f (is-a?/c drracket:rep:text<%>)) void?) (error-message dis editions-pairs defs ints) @{Shows the backtrace window you get when clicking on the bug in DrScheme's REPL. - The @scheme[error-message] argument is the text of the error, - @scheme[dis] is the debug information, extracted from the + The @racket[error-message] argument is the text of the error, + @racket[dis] is the debug information, extracted from the continuation mark in the exception record, using - @scheme[errortrace-key]. + @racket[errortrace-key]. - The @scheme[editions] argument indicates the editions of any editors + The @racket[editions] argument indicates the editions of any editors that are open editing the files corresponding to the source locations - The @scheme[defs] argument should be non-@scheme[#f] if there are + The @racket[defs] argument should be non-@racket[#f] if there are possibly stacktrace frames that contain unsaved versions of the - definitions window from drscheme. Similarly, the @scheme[ints] argument - should be non-@scheme[#f] if there are possibly stacktrace frames that contain + definitions window from drscheme. Similarly, the @racket[ints] argument + should be non-@racket[#f] if there are possibly stacktrace frames that contain unsaved versions of the interactions window. Use - @scheme[drscheme:rep:current-rep] to get the rep during evaluation of a program. + @racket[drracket:rep:current-rep] to get the rep during evaluation of a program. }) (proc-doc/names - drscheme:debug:show-backtrace-window + drracket:debug:show-backtrace-window (->* (string? (or/c exn? (listof srcloc?) (non-empty-listof (cons/c string? (listof srcloc?))))) - ((or/c #f (is-a?/c drscheme:rep:text<%>)) - (or/c #f (is-a?/c drscheme:unit:definitions-text<%>))) + ((or/c #f (is-a?/c drracket:rep:text<%>)) + (or/c #f (is-a?/c drracket:unit:definitions-text<%>))) void?) ((error-message dis) ((rep #f) @@ -470,15 +470,15 @@ all of the names in the tools library, for use defining keybindings @{Shows the backtrace window you get when clicking on the bug in DrScheme's REPL. - This function simply calls @scheme[drscheme:debug:show-backtrace-window/edition-pairs], - using @scheme[drscheme:debug:srcloc->edition/pair]. + This function simply calls @racket[drracket:debug:show-backtrace-window/edition-pairs], + using @racket[drracket:debug:srcloc->edition/pair]. }) (proc-doc/names - drscheme:debug:srcloc->edition/pair + drracket:debug:srcloc->edition/pair (-> srcloc? - (or/c #f (is-a?/c drscheme:rep:text<%>)) - (or/c #f (is-a?/c drscheme:unit:definitions-text<%>)) + (or/c #f (is-a?/c drracket:rep:text<%>)) + (or/c #f (is-a?/c drracket:unit:definitions-text<%>)) (or/c #f (cons/c (let ([weak-box-containing-an-editor? (λ (x) (and (weak-box? x) (let ([v (weak-box-value x)]) @@ -491,7 +491,7 @@ all of the names in the tools library, for use defining keybindings returning the current edition of the editor editing the source location (if any). - The @scheme[ints] and @scheme[defs] arguments are used to map source locations, + The @racket[ints] and @racket[defs] arguments are used to map source locations, in the case that the source location corresponds to the definitions window (when it has not been saved) or the interactions window. }) @@ -515,7 +515,7 @@ all of the names in the tools library, for use defining keybindings ; ;; (proc-doc/names - drscheme:help-desk:help-desk + drracket:help-desk:help-desk (->* () ((or/c #f string?) (or/c #f string? (list/c string? string?))) @@ -523,10 +523,10 @@ all of the names in the tools library, for use defining keybindings (() ((search-key #f) (search-context #f))) - @{if @scheme[search-key] is a string, calls @scheme[perform-search] with - @scheme[search-key] and @scheme[search-context]. + @{if @racket[search-key] is a string, calls @racket[perform-search] with + @racket[search-key] and @racket[search-context]. - Otherwise, calls @scheme[send-main-page] with no arguments.}) + Otherwise, calls @racket[send-main-page] with no arguments.}) ; @@ -548,35 +548,35 @@ all of the names in the tools library, for use defining keybindings (proc-doc/names - drscheme:unit:get-program-editor-mixin + drracket:unit:get-program-editor-mixin (-> ((subclass?/c text%) . -> . (subclass?/c text%))) () @{Returns a mixin that must be mixed in to any - @scheme[text%] object that might contain + @racket[text%] object that might contain program text (and thus can be in the source field of some syntax object). See also - @scheme[drscheme:unit:add-to-program-editor-mixin].}) + @racket[drracket:unit:add-to-program-editor-mixin].}) (proc-doc/names - drscheme:unit:add-to-program-editor-mixin + drracket:unit:add-to-program-editor-mixin (((subclass?/c text%) . -> . (subclass?/c text%)) . -> . void?) (mixin) @{@phase[1] - Adds @scheme[mixin] to the result of - @scheme[drscheme:unit:get-program-editor-mixin].}) + Adds @racket[mixin] to the result of + @racket[drracket:unit:get-program-editor-mixin].}) (proc-doc/names - drscheme:unit:open-drscheme-window + drracket:unit:open-drscheme-window (case-> - (-> (is-a?/c drscheme:unit:frame%)) - ((or/c string? false/c) . -> . (is-a?/c drscheme:unit:frame%))) + (-> (is-a?/c drracket:unit:frame%)) + ((or/c string? false/c) . -> . (is-a?/c drracket:unit:frame%))) (() (filename)) - @{Opens a drscheme frame that displays @scheme[filename], - or nothing if @scheme[filename] is @scheme[#f] or not supplied.}) + @{Opens a drscheme frame that displays @racket[filename], + or nothing if @racket[filename] is @racket[#f] or not supplied.}) @@ -599,41 +599,41 @@ all of the names in the tools library, for use defining keybindings (proc-doc/names - drscheme:modes:add-mode + drracket:modes:add-mode (string? (or/c false/c (is-a?/c mode:surrogate-text<%>)) - ((is-a?/c drscheme:rep:text%) number? . -> . boolean?) + ((is-a?/c drracket:rep:text%) number? . -> . boolean?) ((or/c false/c (listof string?)) . -> . boolean?) . -> . - drscheme:modes:mode?) + drracket:modes:mode?) (name surrogate repl-submit matches-language) @{Adds a mode to DrScheme. Returns a mode value that identifies the mode. - The first argument, @scheme[name], is the name + The first argument, @racket[name], is the name of the mode, used in DrScheme's GUI to allow the user to select this mode. - The @scheme[surrogate] argument is set to the + The @racket[surrogate] argument is set to the definitions text and the interactions text (via the - @scheme[mode:host-text set-surrogate<%>] + @racket[mode:host-text set-surrogate<%>] method) whenever this mode is enabled. - The @scheme[repl-submit] procedure is called + The @racket[repl-submit] procedure is called whenever the user types a return in the interactions window. It is passed the interactions editor and the position where the last prompt occurs. If it - returns @scheme[#t], the text after the last + returns @racket[#t], the text after the last prompt is treated as a program fragment and evaluated, according to the language settings. - If it returns @scheme[#f], the text is + If it returns @racket[#f], the text is assumed to be an incomplete program fragment, and the keystroke is not treated specially. - The @scheme[matches-language] predicate is called whenever - the language changes. If it returns @scheme[#t] + The @racket[matches-language] predicate is called whenever + the language changes. If it returns @racket[#t] this mode is installed. It is passed the list of strings that correspond to the names of the language in the language dialog. @@ -644,58 +644,58 @@ all of the names in the tools library, for use defining keybindings changes. See also - @scheme[drscheme:modes:get-modes].}) + @racket[drracket:modes:get-modes].}) (proc-doc/names - drscheme:modes:mode? + drracket:modes:mode? (any/c . -> . boolean?) (val) - @{Determines if @scheme[val] is a mode.}) + @{Determines if @racket[val] is a mode.}) (proc-doc/names - drscheme:modes:get-modes - (-> (listof drscheme:modes:mode?)) + drracket:modes:get-modes + (-> (listof drracket:modes:mode?)) () @{Returns all of the modes currently added to DrScheme. See also - @scheme[drscheme:modes:add-mode].}) + @racket[drracket:modes:add-mode].}) (proc-doc/names - drscheme:modes:mode-name - (drscheme:modes:mode? . -> . string?) + drracket:modes:mode-name + (drracket:modes:mode? . -> . string?) (mode) @{Extracts the name of the mode. See also - @scheme[drscheme:modes:add-mode].}) + @racket[drracket:modes:add-mode].}) (proc-doc/names - drscheme:modes:mode-surrogate - (drscheme:modes:mode? . -> . (or/c false/c (is-a?/c mode:surrogate-text<%>))) + drracket:modes:mode-surrogate + (drracket:modes:mode? . -> . (or/c false/c (is-a?/c mode:surrogate-text<%>))) (mode) @{Extracts the surrogate of the mode. See also - @scheme[drscheme:modes:add-mode].}) + @racket[drracket:modes:add-mode].}) (proc-doc/names - drscheme:modes:mode-repl-submit - (drscheme:modes:mode? . -> . any) + drracket:modes:mode-repl-submit + (drracket:modes:mode? . -> . any) (mode) @{Extracts the repl submission predicate of the mode. See also - @scheme[drscheme:modes:add-mode].}) + @racket[drracket:modes:add-mode].}) (proc-doc/names - drscheme:modes:mode-matches-language - (drscheme:modes:mode? . -> . ((or/c false/c (listof string?)) . -> . boolean?)) + drracket:modes:mode-matches-language + (drracket:modes:mode? . -> . ((or/c false/c (listof string?)) . -> . boolean?)) (mode) @{Extracts the language matching predicate of the mode. See also - @scheme[drscheme:modes:add-mode].}) + @racket[drracket:modes:add-mode].}) ; @@ -717,21 +717,21 @@ all of the names in the tools library, for use defining keybindings (proc-doc/names - drscheme:rep:get-welcome-delta + drracket:rep:get-welcome-delta (-> (is-a?/c style-delta%)) () @{Returns a style delta that matches the style and color of the phrase ``Welcome to'' in the beginning of the interactions window.}) (proc-doc/names - drscheme:rep:get-dark-green-delta + drracket:rep:get-dark-green-delta (-> (is-a?/c style-delta%)) () @{Returns a style delta that matches the style and color of the name of a language in the interactions window.}) (proc-doc/names - drscheme:rep:get-drs-bindings-keymap + drracket:rep:get-drs-bindings-keymap (-> (is-a?/c keymap%)) () @{Returns a keymap that binds various DrScheme-specific @@ -743,19 +743,19 @@ all of the names in the tools library, for use defining keybindings windows. Also binds f5 to Execute and f1 to Help Desk.}) (proc-doc/names - drscheme:rep:current-rep - (-> (or/c false/c (is-a?/c drscheme:rep:text%))) + drracket:rep:current-rep + (-> (or/c false/c (is-a?/c drracket:rep:text%))) () @{This is a parameter whose value should not be set by tools. It is initialized to the repl that controls this evaluation in the user's thread. - It only returns @scheme[#f] if the program not running + It only returns @racket[#f] if the program not running in the context of a repl (eg, the test suite window).}) (proc-doc/names - drscheme:rep:current-value-port + drracket:rep:current-value-port (-> (or/c false/c port?)) () @{This is a parameter whose value is a port that @@ -784,127 +784,127 @@ all of the names in the tools library, for use defining keybindings (proc-doc/names - drscheme:get/extend:extend-tab + drracket:get/extend:extend-tab (case-> - ((make-mixin-contract drscheme:unit:tab<%>) . -> . void?) - ((make-mixin-contract drscheme:unit:tab<%>) boolean? . -> . void?)) + ((make-mixin-contract drracket:unit:tab<%>) . -> . void?) + ((make-mixin-contract drracket:unit:tab<%>) boolean? . -> . void?)) ((mixin) (mixin before?)) @{This class implements the tabs in drscheme. One is created for each tab in a frame (each frame always has at least one tab, even if the tab bar is not shown) - The argument, @scheme[before], controls if the mixin is applied before or + The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. - If unsupplied, this is the same as supplying @scheme[#t].}) + If unsupplied, this is the same as supplying @racket[#t].}) (proc-doc/names - drscheme:get/extend:extend-interactions-text + drracket:get/extend:extend-interactions-text (case-> - ((make-mixin-contract drscheme:rep:text<%>) . -> . void?) - ((make-mixin-contract drscheme:rep:text<%>) boolean? . -> . void?)) + ((make-mixin-contract drracket:rep:text<%>) . -> . void?) + ((make-mixin-contract drracket:rep:text<%>) boolean? . -> . void?)) ((mixin) (mixin before?)) @{This text is used in the bottom window of drscheme frames. - The argument, @scheme[before], controls if the mixin is applied before or + The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. - If unsupplied, this is the same as supplying @scheme[#t].}) + If unsupplied, this is the same as supplying @racket[#t].}) (proc-doc/names - drscheme:get/extend:get-interactions-text - (-> (implementation?/c drscheme:rep:text<%>)) + drracket:get/extend:get-interactions-text + (-> (implementation?/c drracket:rep:text<%>)) () @{Once this function is called, - @scheme[drscheme:get/extend:extend-interactions-text] + @racket[drracket:get/extend:extend-interactions-text] raises an error, disallowing any more extensions.}) (proc-doc/names - drscheme:get/extend:extend-definitions-text + drracket:get/extend:extend-definitions-text (case-> - ((make-mixin-contract drscheme:unit:definitions-text<%>) . -> . void?) - ((make-mixin-contract drscheme:unit:definitions-text<%>) boolean? . -> . void?)) + ((make-mixin-contract drracket:unit:definitions-text<%>) . -> . void?) + ((make-mixin-contract drracket:unit:definitions-text<%>) boolean? . -> . void?)) ((mixin) (mixin before?)) @{This text is used in the top window of drscheme frames. - The argument, @scheme[before], controls if the mixin is applied before or + The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. - If unsupplied, this is the same as supplying @scheme[#f].}) + If unsupplied, this is the same as supplying @racket[#f].}) (proc-doc/names - drscheme:get/extend:get-definitions-text - (-> (implementation?/c drscheme:unit:definitions-text<%>)) + drracket:get/extend:get-definitions-text + (-> (implementation?/c drracket:unit:definitions-text<%>)) () @{Once this function is called, - @scheme[drscheme:get/extend:extend-definitions-text] + @racket[drracket:get/extend:extend-definitions-text] raises an error, disallowing any more extensions.}) (proc-doc/names - drscheme:get/extend:extend-interactions-canvas + drracket:get/extend:extend-interactions-canvas (case-> - ((make-mixin-contract drscheme:unit:interactions-canvas%) . -> . void?) - ((make-mixin-contract drscheme:unit:interactions-canvas%) boolean? . -> . void?)) + ((make-mixin-contract drracket:unit:interactions-canvas%) . -> . void?) + ((make-mixin-contract drracket:unit:interactions-canvas%) boolean? . -> . void?)) ((mixin) (mixin before?)) @{This canvas is used in the bottom window of drscheme frames. - The argument, @scheme[before], controls if the mixin is applied before or + The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. - If unsupplied, this is the same as supplying @scheme[#f].}) + If unsupplied, this is the same as supplying @racket[#f].}) (proc-doc/names - drscheme:get/extend:get-interactions-canvas - (-> (subclass?/c drscheme:unit:interactions-canvas%)) + drracket:get/extend:get-interactions-canvas + (-> (subclass?/c drracket:unit:interactions-canvas%)) () @{Once this function is called, - @scheme[drscheme:get/extend:extend-interactions-canvas] + @racket[drracket:get/extend:extend-interactions-canvas] raises an error, disallowing any more extensions.}) (proc-doc/names - drscheme:get/extend:extend-definitions-canvas + drracket:get/extend:extend-definitions-canvas (case-> - ((make-mixin-contract drscheme:unit:definitions-canvas%) . -> . void?) - ((make-mixin-contract drscheme:unit:definitions-canvas%) boolean? . -> . void?)) + ((make-mixin-contract drracket:unit:definitions-canvas%) . -> . void?) + ((make-mixin-contract drracket:unit:definitions-canvas%) boolean? . -> . void?)) ((mixin) (mixin before?)) @{This canvas is used in the top window of drscheme frames. - The argument, @scheme[before], controls if the mixin is applied before or + The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. - If unsupplied, this is the same as supplying @scheme[#f].}) + If unsupplied, this is the same as supplying @racket[#f].}) (proc-doc/names - drscheme:get/extend:get-definitions-canvas - (-> (subclass?/c drscheme:unit:definitions-canvas%)) + drracket:get/extend:get-definitions-canvas + (-> (subclass?/c drracket:unit:definitions-canvas%)) () @{Once this function is called, - @scheme[drscheme:get/extend:extend-definitions-canvas] + @racket[drracket:get/extend:extend-definitions-canvas] raises an error, disallowing any more extensions.}) (proc-doc/names - drscheme:get/extend:extend-unit-frame + drracket:get/extend:extend-unit-frame (case-> - ((make-mixin-contract drscheme:unit:frame%) . -> . void?) - ((make-mixin-contract drscheme:unit:frame%) boolean? . -> . void?)) + ((make-mixin-contract drracket:unit:frame%) . -> . void?) + ((make-mixin-contract drracket:unit:frame%) boolean? . -> . void?)) ((mixin) (mixin before?)) @{This is the frame that implements the main drscheme window. - The argument, @scheme[before], controls if the mixin is applied before or + The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. - If unsupplied, this is the same as supplying @scheme[#f].}) + If unsupplied, this is the same as supplying @racket[#f].}) (proc-doc/names - drscheme:get/extend:get-unit-frame - (-> (subclass?/c drscheme:unit:frame%)) + drracket:get/extend:get-unit-frame + (-> (subclass?/c drracket:unit:frame%)) () @{Once this function is called, - @scheme[drscheme:get/extend:extend-unit-frame] + @racket[drracket:get/extend:extend-unit-frame] raises an error, disallowing any more extensions.}) @@ -928,7 +928,7 @@ all of the names in the tools library, for use defining keybindings ; (proc-doc/names - drscheme:tracing:annotate + drracket:tracing:annotate (-> syntax? syntax?) (stx) @{Call this function to add tracing annotations to the a fully-expanded @@ -969,39 +969,39 @@ all of the names in the tools library, for use defining keybindings ; ;;;; (proc-doc/names - drscheme:language-configuration:get-languages - (-> (listof (is-a?/c drscheme:language:language<%>))) + drracket:language-configuration:get-languages + (-> (listof (is-a?/c drracket:language:language<%>))) () @{This can only be called after all of the tools initialization phases have completed. Returns the list of all of the languages installed in DrScheme.}) (proc-doc/names - drscheme:language-configuration:add-language - ((and/c (is-a?/c drscheme:language:language<%>) drscheme:language:object/c) + drracket:language-configuration:add-language + ((and/c (is-a?/c drracket:language:language<%>) drracket:language:object/c) . -> . void?) (language) @{@phase[2] - Adds @scheme[language] to the languages offerend by DrScheme.}) + Adds @racket[language] to the languages offerend by DrScheme.}) (proc-doc/names - drscheme:language-configuration:get-settings-preferences-symbol + drracket:language-configuration:get-settings-preferences-symbol (-> symbol?) () @{Returns the symbol that is used to store the user's language settings. Use as an argument to either - @scheme[preferences:get] + @racket[preferences:get] or - @scheme[preferences:set].}) + @racket[preferences:set].}) (proc-doc/names - drscheme:language-configuration:make-language-settings - ((or/c (is-a?/c drscheme:language:language<%>) drscheme:language:object/c) + drracket:language-configuration:make-language-settings + ((or/c (is-a?/c drracket:language:language<%>) drracket:language:object/c) any/c . -> . - drscheme:language-configuration:language-settings?) + drracket:language-configuration:language-settings?) (language settings) @{This is the constructor for a record consisting of two @@ -1011,73 +1011,73 @@ all of the names in the tools library, for use defining keybindings value describing a parameterization of the language. It has two selectors, - @scheme[drscheme:language-configuration:language-settings-language] + @racket[drracket:language-configuration:language-settings-language] and - @scheme[drscheme:language-configuration:language-settings-settings], and a predicate, - @scheme[drscheme:language-configuration:language-settings?]}) + @racket[drracket:language-configuration:language-settings-settings], and a predicate, + @racket[drracket:language-configuration:language-settings?]}) (proc-doc/names - drscheme:language-configuration:language-settings-settings - (-> drscheme:language-configuration:language-settings? + drracket:language-configuration:language-settings-settings + (-> drracket:language-configuration:language-settings? any/c) (ls) @{Extracts the settings field of a language-settings.}) (proc-doc/names - drscheme:language-configuration:language-settings-language - (drscheme:language-configuration:language-settings? + drracket:language-configuration:language-settings-language + (drracket:language-configuration:language-settings? . -> . - (or/c (is-a?/c drscheme:language:language<%>) drscheme:language:object/c)) + (or/c (is-a?/c drracket:language:language<%>) drracket:language:object/c)) (ls) @{Extracts the language field of a language-settings.}) (proc-doc/names - drscheme:language-configuration:language-settings? + drracket:language-configuration:language-settings? (any/c . -> . boolean?) (val) @{Determines if the argument is a language-settings or not.}) (proc-doc/names - drscheme:language-configuration:language-dialog - (->* (boolean? drscheme:language-configuration:language-settings?) + drracket:language-configuration:language-dialog + (->* (boolean? drracket:language-configuration:language-settings?) ((or/c false/c (is-a?/c top-level-window<%>))) - (or/c false/c drscheme:language-configuration:language-settings?)) + (or/c false/c drracket:language-configuration:language-settings?)) ((show-welcome? language-settings-to-show) ((parent #t))) @{Opens the language configuration dialog. See also - @scheme[drscheme:language-configuration:fill-language-dialog]. + @racket[drracket:language-configuration:fill-language-dialog]. - The @scheme[show-welcome?] argument determines if + The @racket[show-welcome?] argument determines if if a ``Welcome to DrScheme'' message and some natural language buttons are shown. - The @scheme[language-settings-to-show] argument + The @racket[language-settings-to-show] argument must be some default language settings that the dialog is initialized to. If unsure of a default, the currently set language in the user's preferences can be obtained via: @schemeblock[ - (preferences:get (drscheme:language-configuration:get-settings-preferences-symbol)) + (preferences:get (drracket:language-configuration:get-settings-preferences-symbol)) ] - The @scheme[parent] argument is used as the parent + The @racket[parent] argument is used as the parent to the dialog. - The result if @scheme[#f] when the user cancells the dialog, and + The result if @racket[#f] when the user cancells the dialog, and the selected language if they hit ok.}) (proc-doc/names - drscheme:language-configuration:fill-language-dialog + drracket:language-configuration:fill-language-dialog (->* ((is-a?/c vertical-panel%) (is-a?/c area-container<%>) - drscheme:language-configuration:language-settings?) + drracket:language-configuration:language-settings?) ((or/c false/c (is-a?/c top-level-window<%>)) (-> symbol? void?)) - drscheme:language-configuration:language-settings?) + drracket:language-configuration:language-settings?) ((panel button-panel language-setting) ((re-center #f) (ok-handler void))) @@ -1086,28 +1086,28 @@ all of the names in the tools library, for use defining keybindings It is used to include language configuration controls in some larger context in another dialog. - The @scheme[panel] argument is the main panel where the + The @racket[panel] argument is the main panel where the language controls will be placed. - The function adds buttons to the @scheme[button-panel] + The function adds buttons to the @racket[button-panel] to revert a language to its default settings and to show the details of a language. - The @scheme[language-setting] is the default + The @racket[language-setting] is the default language to show in the dialog. - The @scheme[re-center] argument is used when the @onscreen{Show Details} - button is clicked. If that argument is a @scheme[top-level-window<%>], + The @racket[re-center] argument is used when the @onscreen{Show Details} + button is clicked. If that argument is a @racket[top-level-window<%>], the @onscreen{Show Details} callback will recenter the window each time it is clicked. Otherwise, the argument is not used. - @scheme[ok-handler] is a function that is in charge of interfacing the OK - button. It should accept a symbol message: @scheme['enable] and - @scheme['disable] to toggle the button, and @scheme['execute] to run + @racket[ok-handler] is a function that is in charge of interfacing the OK + button. It should accept a symbol message: @racket['enable] and + @racket['disable] to toggle the button, and @racket['execute] to run the desired operation. (The language selection dialog also uses an - internal @scheme['enable-sync] message.)}) + internal @racket['enable-sync] message.)}) (proc-doc - drscheme:language:register-capability + drracket:language:register-capability (->d ([s symbol?] [the-contract contract?] [default the-contract]) @@ -1119,12 +1119,12 @@ all of the names in the tools library, for use defining keybindings By default, these capabilities are registered as DrScheme starts up: @(let-syntax ([cap (syntax-rules () [(cap key contract default desc ...) - (item @scheme['key : contract = default] + (item @racket['key : contract = default] "--- " desc ...)])]) (itemize - @cap[drscheme:check-syntax-button boolean? #t]{ + @cap[drracket:check-syntax-button boolean? #t]{ controls the visiblity of the check syntax button} - @cap[drscheme:language-menu-title + @cap[drracket:language-menu-title string? (string-constant scheme-menu-name)]{ controls the name of the menu just to the right of the language @@ -1135,7 +1135,7 @@ all of the names in the tools library, for use defining keybindings (cons/c string? string?)) (list "(define" "(define ...)" "δ")]{ specifies the prefix that the define popup should look for and what - label it should have, or @scheme[#f] if it should not appear at all. + label it should have, or @racket[#f] if it should not appear at all. If the list of three strings alternative is used, the first string is the prefix that is looked for when finding definitions. The second @@ -1143,13 +1143,13 @@ all of the names in the tools library, for use defining keybindings and vertical mode, respectively. The pair of strings alternative is deprecated. If it is used, - the pair @scheme[(cons a-str b-str)] is the same as @scheme[(list a-str b-str "δ")].} + the pair @racket[(cons a-str b-str)] is the same as @racket[(list a-str b-str "δ")].} @cap[drscheme:help-context-term (or/c false/c string?) #f]{ specifies a context query for documentation searches that are - initiated in this language, can be @scheme[#f] (no change to the + initiated in this language, can be @racket[#f] (no change to the user's setting) or a string to be used as a context query (note: the - context is later maintained as a cookie, @scheme[""] is different - from @scheme[#f] in that it clears the stored context)} + context is later maintained as a cookie, @racket[""] is different + from @racket[#f] in that it clears the stored context)} @cap[drscheme:special:insert-fraction boolean? #t]{ determines if the insert fraction menu item in the special menu is visible} @@ -1189,25 +1189,25 @@ all of the names in the tools library, for use defining keybindings ))}) (proc-doc/names - drscheme:language:capability-registered? + drracket:language:capability-registered? (-> symbol? boolean?) (s) @{Indicates if - @scheme[drscheme:language:register-capability] - has been called with @scheme[s].}) + @racket[drracket:language:register-capability] + has been called with @racket[s].}) (proc-doc - drscheme:language:get-capability-default - (->d ([s (and/c symbol? drscheme:language:capability-registered?)]) + drracket:language:get-capability-default + (->d ([s (and/c symbol? drracket:language:capability-registered?)]) () - [res (drscheme:language:get-capability-contract s)]) + [res (drracket:language:get-capability-contract s)]) @{Returns the default for a particular capability.}) (proc-doc/names - drscheme:language:get-capability-contract - (-> (and/c symbol? drscheme:language:capability-registered?) + drracket:language:get-capability-contract + (-> (and/c symbol? drracket:language:capability-registered?) contract?) (s) @{Returns the contract for a given capability, which was specified - when @scheme[drscheme:language:register-capability] was called.}) + when @racket[drracket:language:register-capability] was called.}) ; @@ -1229,7 +1229,7 @@ all of the names in the tools library, for use defining keybindings (proc-doc/names - drscheme:language:add-snip-value + drracket:language:add-snip-value (->* ((-> any/c boolean?) (-> any/c (is-a?/c snip%))) ((-> any/c)) @@ -1238,55 +1238,55 @@ all of the names in the tools library, for use defining keybindings ((setup-thunk void))) @{Registers a handler to convert values into snips as they are printed in the REPL. - The @scheme[test-snip] argument is called to determine if this handler can convert the value - and the @scheme[convert-value] argument is called to build a snip. - The (optional) @scheme[setup-thunk] is called just after the user's namespace and other + The @racket[test-snip] argument is called to determine if this handler can convert the value + and the @racket[convert-value] argument is called to build a snip. + The (optional) @racket[setup-thunk] is called just after the user's namespace and other setings are built, but before any of the user's code is evaluated. All three functions are called on the user's thread and with the user's settings.}) (proc-doc/names - drscheme:language:extend-language-interface + drracket:language:extend-language-interface (-> interface? - (make-mixin-contract drscheme:language:language<%>) + (make-mixin-contract drracket:language:language<%>) void?) (interface default-implementation) @{@phase[1] Each language added passed to - @scheme[drscheme:language-configuration:add-language] - must implement @scheme[interface]. + @racket[drracket:language-configuration:add-language] + must implement @racket[interface]. - The @scheme[default-implementation] is a mixin + The @racket[default-implementation] is a mixin that provides a default implementation of - @scheme[interface]. Languages that are unaware of - the specifics of @scheme[extension] use - @scheme[default-implementation] via - @scheme[drscheme:language:get-default-mixin].}) + @racket[interface]. Languages that are unaware of + the specifics of @racket[extension] use + @racket[default-implementation] via + @racket[drracket:language:get-default-mixin].}) (proc-doc - drscheme:language:get-default-mixin - (-> (make-mixin-contract drscheme:language:language<%>)) + drracket:language:get-default-mixin + (-> (make-mixin-contract drracket:language:language<%>)) @{@phase[2] The result of this function is the composite of all of the - @scheme[default-implementation] arguments passed + @racket[default-implementation] arguments passed to - @scheme[drscheme:language:extend-language-interface].}) + @racket[drracket:language:extend-language-interface].}) (proc-doc/names - drscheme:language:get-language-extensions + drracket:language:get-language-extensions (-> (listof interface?)) () @{@phase[2] Returns a list of the interfaces passed to - @scheme[drscheme:language:extend-language-interface].}) + @racket[drracket:language:extend-language-interface].}) (proc-doc/names - drscheme:language:put-executable + drracket:language:put-executable ((is-a?/c top-level-window<%>) path? (or/c boolean? (symbols 'launcher 'standalone 'distribution)) @@ -1295,25 +1295,25 @@ all of the names in the tools library, for use defining keybindings . -> . (or/c false/c path?)) (parent program-filename mode mred? title) @{Calls the MrEd primitive - @scheme[put-file] + @racket[put-file] with arguments appropriate for creating an executable - from the file @scheme[program-filename]. + from the file @racket[program-filename]. - The arguments @scheme[mred?] and @scheme[mode] indicates + The arguments @racket[mred?] and @racket[mode] indicates what type of executable this should be (and the dialog may be slightly different on some platforms, depending - on these arguments). For historical reasons, @scheme[#f] - is allowed for @scheme[mode] as an alias for @scheme['launcher], and - @scheme[#t] is allowed for @scheme[mode] as an alias for @scheme['stand-alone]. + on these arguments). For historical reasons, @racket[#f] + is allowed for @racket[mode] as an alias for @racket['launcher], and + @racket[#t] is allowed for @racket[mode] as an alias for @racket['stand-alone]. - The @scheme[title] argument is used as the title to the primitive - @scheme[put-file] + The @racket[title] argument is used as the title to the primitive + @racket[put-file] or - @scheme[get-directory] + @racket[get-directory] primitive.}) (proc-doc/names - drscheme:language:create-executable-gui + drracket:language:create-executable-gui ((or/c false/c (is-a?/c top-level-window<%>)) (or/c false/c string?) (or/c (λ (x) (eq? x #t)) (symbols 'launcher 'standalone 'distribution)) @@ -1325,26 +1325,26 @@ all of the names in the tools library, for use defining keybindings string?))) (parent program-name show-type show-base) @{Opens a dialog to prompt the user about their choice of executable. - If @scheme[show-type] is @scheme[#t], the user is prompted about + If @racket[show-type] is @racket[#t], the user is prompted about a choice of executable: stand-alone, launcher, or distribution; otherwise, the symbol determines the type. - If @scheme[show-base] - is @scheme[#t], the user is prompted about a choice of base + If @racket[show-base] + is @racket[#t], the user is prompted about a choice of base binary: mzscheme or mred; otherwise the symbol determines the base. - The @scheme[program-name] argument is used to construct the default + The @racket[program-name] argument is used to construct the default executable name in a platform-specific manner. - The @scheme[parent] argument is used for the parent of the dialog. + The @racket[parent] argument is used for the parent of the dialog. - The result of this function is @scheme[#f] if the user cancel's + The result of this function is @racket[#f] if the user cancel's the dialog and a list of three items indicating what options - they chose. If either @scheme[show-type] or @scheme[show-base] - was not @scheme[#t], the corresponding result will be @scheme['no-show], + they chose. If either @racket[show-type] or @racket[show-base] + was not @racket[#t], the corresponding result will be @racket['no-show], otherwise it will indicate the user's choice.}) (proc-doc/names - drscheme:language:create-module-based-stand-alone-executable + drracket:language:create-module-based-stand-alone-executable ((or/c path? string?) (or/c path? string?) any/c any/c any/c boolean? boolean? . -> . @@ -1358,33 +1358,33 @@ all of the names in the tools library, for use defining keybindings use-copy?) @{This procedure creates a stand-alone executable in the file - @scheme[executable-filename] that runs the program - @scheme[program-filename]. + @racket[executable-filename] that runs the program + @racket[program-filename]. The arguments - @scheme[module-language-spec] and - @scheme[transformer-module-language-spec] specify the + @racket[module-language-spec] and + @racket[transformer-module-language-spec] specify the settings of the initial namespace, both the transformer - portion and the regular portion. Both may be @scheme[#f] + portion and the regular portion. Both may be @racket[#f] to indicate there are no initial bindings. - The @scheme[init-code] argument is an s-expression representing + The @racket[init-code] argument is an s-expression representing the code for a module. This module is expected to provide - the identifer @scheme[init-code], bound to a procedure of no - arguments. That module is required and the @scheme[init-code] + the identifer @racket[init-code], bound to a procedure of no + arguments. That module is required and the @racket[init-code] procedure is executed to initialize language-specific - settings before the code in @scheme[program-filename] runs. + settings before the code in @racket[program-filename] runs. - The @scheme[gui?] argument indicates if a MrEd or MzScheme + The @racket[gui?] argument indicates if a MrEd or MzScheme stand-alone executable is created. - The @scheme[use-copy?] argument indicates if the initial + The @racket[use-copy?] argument indicates if the initial namespace should be populated with - @scheme[namespace-require/copy] or - @scheme[namespace-require]. }) + @racket[namespace-require/copy] or + @racket[namespace-require]. }) (proc-doc/names - drscheme:language:create-module-based-distribution + drracket:language:create-module-based-distribution ((or/c path? string?) (or/c path? string?) any/c any/c any/c boolean? boolean? . -> . @@ -1398,10 +1398,10 @@ all of the names in the tools library, for use defining keybindings use-copy?) @{Like - @scheme[drscheme:language:create-module-based-stand-alone-executable], but packages the stand-alone executable into a distribution.}) + @racket[drracket:language:create-module-based-stand-alone-executable], but packages the stand-alone executable into a distribution.}) (proc-doc/names - drscheme:language:create-distribution-for-executable + drracket:language:create-distribution-for-executable ((or/c path? string?) boolean? (-> path? void?) @@ -1411,17 +1411,17 @@ all of the names in the tools library, for use defining keybindings gui? make-executable) - @{Creates a distribution where the given @scheme[make-executable] procedure + @{Creates a distribution where the given @racket[make-executable] procedure creates the stand-alone executable to be distributed. - The @scheme[make-executable] procedure is given the name of the - executable to create. The @scheme[gui?] argument is needed in case the - executable's name (which @scheme[drscheme:language:create-distribution-for-executable] + The @racket[make-executable] procedure is given the name of the + executable to create. The @racket[gui?] argument is needed in case the + executable's name (which @racket[drracket:language:create-distribution-for-executable] must generate) depends on the type of executable. During the distribution-making process, a progress dialog is shown to the user, and the user can click an @onscreen{Abort} button that sends a break to the current thread.}) (proc-doc/names - drscheme:language:create-module-based-launcher + drracket:language:create-module-based-launcher ((or/c path? string?) (or/c path? string?) any/c any/c any/c boolean? boolean? . -> . void?) @@ -1434,77 +1434,77 @@ all of the names in the tools library, for use defining keybindings use-copy?) @{This procedure is identical to - @scheme[drscheme:language:create-module-based-stand-alone-executable], except that it creates a launcher instead of a + @racket[drracket:language:create-module-based-stand-alone-executable], except that it creates a launcher instead of a stand-alone executable.}) (proc-doc/names - drscheme:language:simple-module-based-language-convert-value - (-> any/c drscheme:language:simple-settings? any/c) + drracket:language:simple-module-based-language-convert-value + (-> any/c drracket:language:simple-settings? any/c) (value settings) - @{Sets the @scheme[constructor-style-printing] and @scheme[show-sharing] - parameters based on @scheme[settings] and sets @scheme[current-print-convert-hook] - to ignore snips and then uses @scheme[print-convert] on @scheme[value]. + @{Sets the @racket[constructor-style-printing] and @racket[show-sharing] + parameters based on @racket[settings] and sets @racket[current-print-convert-hook] + to ignore snips and then uses @racket[print-convert] on @racket[value]. - Unless, of course, the @scheme[settings] argument has @scheme['write] in - the @scheme[simple-settings-printing-style] field, in which case it simply - returns @scheme[value].}) + Unless, of course, the @racket[settings] argument has @racket['write] in + the @racket[simple-settings-printing-style] field, in which case it simply + returns @racket[value].}) (proc-doc/names - drscheme:language:setup-printing-parameters - (-> (-> any) drscheme:language:simple-settings? (or/c number? 'infinity) any) + drracket:language:setup-printing-parameters + (-> (-> any) drracket:language:simple-settings? (or/c number? 'infinity) any) (thunk settings width) - @{Sets all of the @scheme[pretty-print] and @scheme[print-convert] parameters - either to the defaults to values based on @scheme[settings] - and then invokes @scheme[thunk], returning what it returns.}) + @{Sets all of the @racket[pretty-print] and @racket[print-convert] parameters + either to the defaults to values based on @racket[settings] + and then invokes @racket[thunk], returning what it returns.}) (proc-doc/names - drscheme:language:text/pos-text - (drscheme:language:text/pos? . -> . (is-a?/c text%)) + drracket:language:text/pos-text + (drracket:language:text/pos? . -> . (is-a?/c text%)) (text/pos) - @{Selects the @scheme[text%] from a text/pos.}) + @{Selects the @racket[text%] from a text/pos.}) (proc-doc/names - drscheme:language:text/pos-start - (drscheme:language:text/pos? . -> . number?) + drracket:language:text/pos-start + (drracket:language:text/pos? . -> . number?) (text/pos) @{Selects the starting position from a text/pos.}) (proc-doc/names - drscheme:language:text/pos-end - (drscheme:language:text/pos? . -> . number?) + drracket:language:text/pos-end + (drracket:language:text/pos? . -> . number?) (text/pos) @{Selects the ending position from a text/pos.}) (proc-doc/names - drscheme:language:text/pos? + drracket:language:text/pos? (any/c . -> . boolean?) (val) - @{Returns @scheme[#t] if @scheme[val] is a text/pos, and @scheme[#f] + @{Returns @racket[#t] if @racket[val] is a text/pos, and @racket[#f] otherwise.}) (proc-doc/names - drscheme:language:make-text/pos + drracket:language:make-text/pos ((is-a?/c text%) number? number? . -> . - drscheme:language:text/pos?) + drracket:language:text/pos?) (text start end) @{Constructs a text/pos.}) (proc-doc/names - drscheme:language:simple-settings-case-sensitive - (drscheme:language:simple-settings? . -> . boolean?) + drracket:language:simple-settings-case-sensitive + (drracket:language:simple-settings? . -> . boolean?) (simple-settings) @{Extracts the case-sensitive setting from a simple-settings.}) (proc-doc/names - drscheme:language:simple-settings-printing-style - (drscheme:language:simple-settings? + drracket:language:simple-settings-printing-style + (drracket:language:simple-settings? . -> . (symbols 'constructor 'quasiquote 'write)) (simple-settings) @@ -1512,8 +1512,8 @@ all of the names in the tools library, for use defining keybindings @{Extracts the printing-style setting from a simple-settings.}) (proc-doc/names - drscheme:language:simple-settings-fraction-style - (drscheme:language:simple-settings? + drracket:language:simple-settings-fraction-style + (drracket:language:simple-settings? . -> . (symbols 'mixed-fraction 'mixed-fraction-e @@ -1524,8 +1524,8 @@ all of the names in the tools library, for use defining keybindings @{Extracts the fraction-style setting from a simple-settings.}) (proc-doc/names - drscheme:language:simple-settings-show-sharing - (drscheme:language:simple-settings? + drracket:language:simple-settings-show-sharing + (drracket:language:simple-settings? . -> . boolean?) (simple-settings) @@ -1533,8 +1533,8 @@ all of the names in the tools library, for use defining keybindings @{Extracts the show-sharing setting from a simple-settings.}) (proc-doc/names - drscheme:language:simple-settings-insert-newlines - (drscheme:language:simple-settings? + drracket:language:simple-settings-insert-newlines + (drracket:language:simple-settings? . -> . boolean?) (simple-settings) @@ -1542,8 +1542,8 @@ all of the names in the tools library, for use defining keybindings @{Extracts the insert-newline setting from a simple-settings.}) (proc-doc/names - drscheme:language:simple-settings-annotations - (drscheme:language:simple-settings? + drracket:language:simple-settings-annotations + (drracket:language:simple-settings? . -> . (symbols 'none 'debug 'debug/profile 'test-coverage)) (simple-settings) @@ -1551,21 +1551,21 @@ all of the names in the tools library, for use defining keybindings @{Extracts the debugging setting from a simple-settings.}) (proc-doc/names - drscheme:language:simple-settings? + drracket:language:simple-settings? (any/c . -> . boolean?) (val) - @{Determines if @scheme[val] is a simple-settings.}) + @{Determines if @racket[val] is a simple-settings.}) (proc-doc/names - drscheme:language:make-simple-settings + drracket:language:make-simple-settings (-> boolean? (symbols 'constructor 'quasiquote 'write) (symbols 'mixed-fraction 'mixed-fraction-e 'repeating-decimal 'repeating-decimal-e) boolean? boolean? (symbols 'none 'debug 'debug/profile 'test-coverage) - drscheme:language:simple-settings?) + drracket:language:simple-settings?) (case-sensitive printing-style fraction-style @@ -1576,8 +1576,8 @@ all of the names in the tools library, for use defining keybindings @{Constructs a simple settings.}) (proc-doc/names - drscheme:language:simple-settings->vector - (drscheme:language:simple-settings? . -> . vector?) + drracket:language:simple-settings->vector + (drracket:language:simple-settings? . -> . vector?) (simple-settings) - @{Constructs a vector whose elements are the fields of @scheme[simple-settings].})) + @{Constructs a vector whose elements are the fields of @racket[simple-settings].})) diff --git a/collects/drscheme/tool.rkt b/collects/drscheme/tool.rkt index ff4a7fbf66..b44fcc646b 100644 --- a/collects/drscheme/tool.rkt +++ b/collects/drscheme/tool.rkt @@ -1,5 +1,6 @@ #lang racket/base (require "private/drsig.ss") -(provide drscheme:tool^ - drscheme:tool-exports^) - +(provide drracket:tool^ + drracket:tool-exports^ + (rename-out [drracket:tool^ drscheme:tool^] + [drracket:tool-exports^ drscheme:tool-exports^]))