suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

switched all of the names inside drracket to be drracket: instead of drscheme: (this breaks the tools, tho)

Browse Source
This commit is contained in:
Robby Findler 2010-04-24 16:16:06 -05:00
parent 975f6445f0
commit f7ac9f9546
30 changed files with 1063 additions and 1041 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/drscheme/arrow.rkt
View File

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

34
collects/drscheme/private/app.rkt
View File

@ -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)
(string<? (path->string (drscheme:tools:successful-tool-spec a))
(path->string (drscheme:tools:successful-tool-spec b)))))])
(string<? (path->string (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

82
collects/drscheme/private/debug.rkt
View File

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

218
collects/drscheme/private/drsig.rkt
View File

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

32
collects/drscheme/private/eval.rkt
View File

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

8
collects/drscheme/private/font.rkt
View File

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

26
collects/drscheme/private/frame.rkt
View File

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

50
collects/drscheme/private/get-extend.rkt
View File

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

12
collects/drscheme/private/help-desk.rkt
View File

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

2
collects/drscheme/private/init.rkt
View File

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

84
collects/drscheme/private/language-configuration.rkt
View File

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

4
collects/drscheme/private/language-object-contract.rkt
View File

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

34
collects/drscheme/private/language.rkt
View File

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

62
collects/drscheme/private/link.rkt
View File

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

117
collects/drscheme/private/main.rkt
View File

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

2
collects/drscheme/private/modes.rkt
View File

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

22
collects/drscheme/private/module-browser.rkt
View File

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

26
collects/drscheme/private/module-language-tools.rkt
View File

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

62
collects/drscheme/private/module-language.rkt
View File

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

10
collects/drscheme/private/multi-file-search.rkt
View File

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

116
collects/drscheme/private/rep.rkt
View File

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

2
collects/drscheme/private/text.rkt
View File

@ -4,7 +4,7 @@
framework)
(import)
(export drscheme:text^)
(export drracket:text^)
(define text<%>
(interface (scheme:text<%>)
printing-on

40
collects/drscheme/private/tools.rkt
View File

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

18
collects/drscheme/private/tracing.rkt
View File

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

238
collects/drscheme/private/unit.rkt
View File

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

18
collects/drscheme/syncheck-drracket-button.rkt Normal file
View File

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

8
collects/drscheme/syncheck-drscheme-button.rkt
View File

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

2
collects/drscheme/syncheck.rkt
View File

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

762
collects/drscheme/tool-lib.rkt
View File

File diff suppressed because it is too large Load Diff

7
collects/drscheme/tool.rkt
View File

@ -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^]))