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

* Newlines at EOFs

Browse Source 
* Another big chunk of v4-require-isms
* Allow `#lang framework/keybinding-lang' for keybinding files
* Move hierlist sources into "mrlib/hierlist", leave stub behind

svn: r10689
This commit is contained in:
Eli Barzilay 2008-07-09 07:18:06 +00:00
parent 1b525f60cc
commit 7d50e61c7f
445 changed files with 788 additions and 808 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/algol60/bd-tool.ss
View File

@ -1,5 +1,5 @@
(module bd-tool mzscheme (module bd-tool mzscheme
(require (lib "encode-decode.ss" "framework" "private")) (require framework/private/encode-decode)
(decode 05c1dd6edc460c06d057f9226301b2e86c5c23690103a9835c (decode 05c1dd6edc460c06d057f9226301b2e86c5c23690103a9835c
e53a0f50602852d2ecce8f324379adb7ef3924b6a60aeaf6fb e53a0f50602852d2ecce8f324379adb7ef3924b6a60aeaf6fb
48dd403909a6d24daf634c984a379d189493609a731ce33ac6 48dd403909a6d24daf634c984a379d189493609a731ce33ac6

2
collects/algol60/cfg-parser.ss
View File

@ -35,7 +35,7 @@
mzlib/etc) mzlib/etc)
(require-for-syntax syntax/boundmap (require-for-syntax syntax/boundmap
mzlib/list mzlib/list
(lib "token-syntax.ss" "parser-tools" "private-lex")) parser-tools/private-lex/token-syntax)
(provide cfg-parser) (provide cfg-parser)

2
collects/algol60/tool.ss
View File

@ -1,5 +1,5 @@
(module tool mzscheme (module tool mzscheme
(require (lib "tool.ss" "drscheme") (require drscheme/tool
mred mred
mzlib/unit mzlib/unit
mzlib/class mzlib/class

4
collects/browser/browser-unit.ss
View File

@ -1,7 +1,7 @@
(module browser-unit mzscheme (module browser-unit mzscheme
(require mzlib/unit (require mzlib/unit
(lib "mred-sig.ss" "mred") mred/mred-sig
(lib "plt-installer-sig.ss" "setup") setup/plt-installer-sig
net/tcp-sig net/tcp-sig
net/url-sig net/url-sig
net/url-unit net/url-unit

6
collects/browser/browser.ss
View File

@ -1,9 +1,9 @@
(module browser mzscheme (module browser mzscheme
(require mzlib/unit (require mzlib/unit
mred mred
(lib "mred-sig.ss" "mred") mred/mred-sig
(lib "plt-installer-sig.ss" "setup") setup/plt-installer-sig
(lib "plt-installer.ss" "setup") setup/plt-installer
net/tcp-sig net/tcp-sig
net/url-sig net/url-sig
net/url net/url

6
collects/browser/htmltext.ss
View File

@ -9,9 +9,9 @@
net/url net/url
net/url-sig net/url-sig
mred mred
(lib "mred-unit.ss" "mred") mred/mred-unit
(lib "mred-sig.ss" "mred") mred/mred-sig
(lib "external.ss" "browser")) browser/external)
(define-unit-from-context url@ url^) (define-unit-from-context url@ url^)

7
collects/browser/private/html.ss
View File

@ -1,13 +1,12 @@
#lang scheme/unit #lang scheme/unit
(require "sig.ss" (require "sig.ss"
(lib "mred-sig.ss" "mred") mred/mred-sig
scheme/file scheme/file
mzlib/port mzlib/port
net/url-sig net/url-sig
(only-in (lib "html.ss" "html") (only-in html read-html-as-xml read-html-comments use-html-spec)
read-html-as-xml read-html-comments use-html-spec) (except-in xml/xml read-comments)
(except-in (lib "xml.ss" "xml") read-comments)
mzlib/class mzlib/class
"bullet.ss" "bullet.ss"
"option-snip.ss" "option-snip.ss"

4
collects/browser/private/hyper.ss
View File

@ -34,10 +34,10 @@ A test case:
net/url-sig net/url-sig
net/url-structs net/url-structs
net/head net/head
(lib "mred-sig.ss" "mred") mred/mred-sig
framework framework
string-constants string-constants
(lib "plt-installer-sig.ss" "setup")) setup/plt-installer-sig)
(import html^ (import html^

4
collects/browser/tool.ss
View File

@ -1,7 +1,7 @@
(module tool mzscheme (module tool mzscheme
(require (lib "external.ss" "browser") (require browser/external
mzlib/unit mzlib/unit
(lib "tool.ss" "drscheme")) drscheme/tool)
(provide tool@) (provide tool@)
;; to add a preference pannel to drscheme that sets the browser preference ;; to add a preference pannel to drscheme that sets the browser preference

6
collects/combinator-parser/private-combinator/parser-sigs.ss
View File

@ -1,8 +1,8 @@
(module parser-sigs scheme (module parser-sigs scheme
(require (only-in (lib "etc.ss") opt-lambda)) ; Required for expansion (require (only-in mzlib/etc opt-lambda)) ; Required for expansion
(require (lib "lex.ss" "parser-tools") (require parser-tools/lex
(lib "string.ss")) mzlib/string)
(provide (all-defined-out)) (provide (all-defined-out))

2
collects/compiler/distribute.ss
View File

@ -4,7 +4,7 @@
scheme/path scheme/path
setup/dirs setup/dirs
mzlib/list mzlib/list
(lib "variant.ss" "setup") setup/variant
dynext/filename-version dynext/filename-version
"private/macfw.ss" "private/macfw.ss"
"private/windlldir.ss" "private/windlldir.ss"

10
collects/compiler/main.ss
View File

@ -30,8 +30,8 @@
dynext/compile dynext/compile
dynext/link dynext/link
scheme/pretty scheme/pretty
(lib "pack.ss" "setup") setup/pack
(lib "getinfo.ss" "setup") setup/getinfo
setup/dirs) setup/dirs)
(define dest-dir (make-parameter #f)) (define dest-dir (make-parameter #f))
@ -511,11 +511,11 @@
(unless (= 1 (length source-files)) (unless (= 1 (length source-files))
(error 'mzc "expected a single module source file to embed; given: ~e" (error 'mzc "expected a single module source file to embed; given: ~e"
source-files)) source-files))
(let ([dest ((dynamic-require '(lib "embed.ss" "compiler" "private") (let ([dest ((dynamic-require 'compiler/private/embed
'mzc:embedding-executable-add-suffix) 'mzc:embedding-executable-add-suffix)
(exe-output) (exe-output)
(eq? mode 'gui-exe))]) (eq? mode 'gui-exe))])
((dynamic-require '(lib "embed.ss" "compiler" "private") ((dynamic-require 'compiler/private/embed
'mzc:create-embedding-executable) 'mzc:create-embedding-executable)
dest dest
#:mred? (eq? mode 'gui-exe) #:mred? (eq? mode 'gui-exe)
@ -542,7 +542,7 @@
(let ([dest (mods-output)]) (let ([dest (mods-output)])
(let-values ([(in out) (make-pipe)]) (let-values ([(in out) (make-pipe)])
(parameterize ([current-output-port out]) (parameterize ([current-output-port out])
((dynamic-require '(lib "embed.ss" "compiler") 'write-module-bundle) ((dynamic-require 'compiler/embed 'write-module-bundle)
#:modules #:modules
(append (map (lambda (l) `(#f (file ,l))) source-files) (append (map (lambda (l) `(#f (file ,l))) source-files)
(map (lambda (l) `(#t (lib ,l))) (exe-embedded-libraries))))) (map (lambda (l) `(#t (lib ,l))) (exe-embedded-libraries)))))

4
collects/drscheme/drscheme.ss
View File

@ -17,13 +17,13 @@
(parameterize ([current-namespace (make-namespace)] (parameterize ([current-namespace (make-namespace)]
[use-compiled-file-paths '()]) [use-compiled-file-paths '()])
(values (values
(dynamic-require '(lib "zo-compile.ss" "errortrace") 'zo-compile) (dynamic-require 'errortrace/zo-compile 'zo-compile)
(dynamic-require 'mzlib/cm 'make-compilation-manager-load/use-compiled-handler) (dynamic-require 'mzlib/cm 'make-compilation-manager-load/use-compiled-handler)
(dynamic-require 'mzlib/cm 'manager-trace-handler)))]) (dynamic-require 'mzlib/cm 'manager-trace-handler)))])
(current-compile zo-compile) (current-compile zo-compile)
(use-compiled-file-paths (list (build-path "compiled" "errortrace"))) (use-compiled-file-paths (list (build-path "compiled" "errortrace")))
(current-load/use-compiled (make-compilation-manager-load/use-compiled-handler)) (current-load/use-compiled (make-compilation-manager-load/use-compiled-handler))
(error-display-handler (dynamic-require '(lib "errortrace-lib.ss" "errortrace") (error-display-handler (dynamic-require 'errortrace/errortrace-lib
'errortrace-error-display-handler)) 'errortrace-error-display-handler))
(when cm-trace? (when cm-trace?
(printf "PLTDRDEBUG: enabling CM tracing\n") (printf "PLTDRDEBUG: enabling CM tracing\n")

4
collects/drscheme/private/app.ss
View File

@ -6,8 +6,8 @@
string-constants string-constants
mred mred
framework framework
(lib "external.ss" "browser") browser/external
(lib "getinfo.ss" "setup") setup/getinfo
"drsig.ss" "drsig.ss"
"../acks.ss") "../acks.ss")

2
collects/drscheme/private/bindings-browser.ss
View File

@ -14,7 +14,7 @@ Marshalling (and hence the 'read' method of the snipclass omitted for fast proto
mred mred
mzlib/match mzlib/match
mzlib/string mzlib/string
(lib "marks.ss" "stepper" "private") stepper/private/marks
mzlib/contract) mzlib/contract)
(provide render-bindings/snip) (provide render-bindings/snip)

7
collects/drscheme/private/debug.ss
View File

@ -2010,7 +2010,6 @@ profile todo:
(on-paint)))))) (on-paint))))))
(super-instantiate ()))) (super-instantiate ())))
(define-values/invoke-unit/infer stacktrace@))
(define-values/invoke-unit/infer stacktrace@))

22
collects/drscheme/private/drscheme-normal.ss
View File

@ -78,8 +78,8 @@
(set! key-codes (take key-codes longest-magic-string)))) (set! key-codes (take key-codes longest-magic-string))))
(let ([set-splash-bitmap (let ([set-splash-bitmap
(dynamic-require '(lib "splash.ss" "framework") 'set-splash-bitmap)]) (dynamic-require 'framework/splash 'set-splash-bitmap)])
((dynamic-require '(lib "splash.ss" "framework") 'set-splash-char-observer) ((dynamic-require 'framework/splash 'set-splash-char-observer)
(λ (evt) (λ (evt)
(let ([ch (send evt get-key-code)]) (let ([ch (send evt get-key-code)])
(when (char? ch) (when (char? ch)
@ -137,7 +137,7 @@
[(< angle 0) (normalize-angle (+ angle (* 2 pi)))] [(< angle 0) (normalize-angle (+ angle (* 2 pi)))]
[else (normalize-angle (- angle (* 2 pi)))])) [else (normalize-angle (- angle (* 2 pi)))]))
(define splash-canvas ((dynamic-require '(lib "splash.ss" "framework") 'get-splash-canvas))) (define splash-canvas ((dynamic-require 'framework/splash 'get-splash-canvas)))
(define (draw-single-step dc offset) (define (draw-single-step dc offset)
(send bdc draw-bitmap eli 0 0) (send bdc draw-bitmap eli 0 0)
(draw-single-loop omega-str bdc offset (/ main-size 2) (/ main-size 2) 120 32 outer-color) (draw-single-loop omega-str bdc offset (/ main-size 2) (/ main-size 2) 120 32 outer-color)
@ -184,7 +184,7 @@
(define (eli-event evt) (define (eli-event evt)
(cond (cond
[(send evt leaving?) [(send evt leaving?)
((dynamic-require '(lib "splash.ss" "framework") 'set-splash-paint-callback) orig-paint) ((dynamic-require 'framework/splash 'set-splash-paint-callback) orig-paint)
(when gc-b (when gc-b
(unregister-collecting-blit splash-canvas)) (unregister-collecting-blit splash-canvas))
(send splash-canvas refresh) (send splash-canvas refresh)
@ -192,7 +192,7 @@
(kill-thread draw-thread) (kill-thread draw-thread)
(set! draw-thread #f))] (set! draw-thread #f))]
[(send evt entering?) [(send evt entering?)
((dynamic-require '(lib "splash.ss" "framework") 'set-splash-paint-callback) eli-paint) ((dynamic-require 'framework/splash 'set-splash-paint-callback) eli-paint)
(when gc-b (when gc-b
(register-collecting-blit splash-canvas (register-collecting-blit splash-canvas
(floor (- (/ main-size 2) (floor (- (/ main-size 2)
@ -206,7 +206,7 @@
(unless draw-thread (unless draw-thread
(start-thread))])) (start-thread))]))
(define splash-eventspace ((dynamic-require '(lib "splash.ss" "framework") 'get-splash-eventspace))) (define splash-eventspace ((dynamic-require 'framework/splash 'get-splash-eventspace)))
(define draw-next-state (define draw-next-state
(let ([o 0]) (let ([o 0])
(lambda () (lambda ()
@ -231,13 +231,13 @@
(draw-next-state) (draw-next-state)
(sleep .01) (sleep .01)
(loop)))))) (loop))))))
(define orig-paint ((dynamic-require '(lib "splash.ss" "framework") 'get-splash-paint-callback))) (define orig-paint ((dynamic-require 'framework/splash 'get-splash-paint-callback)))
(draw-next-state) (draw-next-state)
((dynamic-require '(lib "splash.ss" "framework") 'set-splash-event-callback) eli-event) ((dynamic-require 'framework/splash 'set-splash-event-callback) eli-event)
(send splash-canvas refresh))) (send splash-canvas refresh)))
((dynamic-require '(lib "splash.ss" "framework") 'start-splash) ((dynamic-require 'framework/splash 'start-splash)
(build-path (collection-path "icons") (build-path (collection-path "icons")
(cond (cond
[texas-independence-day? [texas-independence-day?
@ -267,8 +267,8 @@
(label "Break All Threads") (label "Break All Threads")
(callback (callback
(λ (x y) (λ (x y)
((dynamic-require '(lib "key.ss" "drscheme" "private") 'break-threads)))) ((dynamic-require 'drscheme/private/key 'break-threads))))
(parent f))]) (parent f))])
(send f show #t))))) (send f show #t)))))
(dynamic-require '(lib "tool-lib.ss" "drscheme") #f)) (dynamic-require 'drscheme/tool-lib #f))

2
collects/drscheme/private/eval.ss
View File

@ -10,7 +10,7 @@
;; to ensure this guy is loaded (and the snipclass installed) in the drscheme namespace & eventspace ;; to ensure this guy is loaded (and the snipclass installed) in the drscheme namespace & eventspace
;; these things are for effect only! ;; these things are for effect only!
(require (lib "cache-image-snip.ss" "mrlib") (require mrlib/cache-image-snip
#; #;
(prefix foo htdp/matrix)) (prefix foo htdp/matrix))

4
collects/drscheme/private/frame.ss
View File

@ -10,8 +10,8 @@
framework framework
net/url net/url
net/head net/head
(lib "plt-installer.ss" "setup") setup/plt-installer
(lib "bug-report.ss" "help") help/bug-report
scheme/file) scheme/file)
(import [prefix drscheme:unit: drscheme:unit^] (import [prefix drscheme:unit: drscheme:unit^]

4
collects/drscheme/private/language-configuration.ss
View File

@ -1,7 +1,7 @@
(module language-configuration mzscheme (module language-configuration mzscheme
(require mzlib/unit (require mzlib/unit
(lib "hierlist.ss" "hierlist") mrlib/hierlist
mzlib/class mzlib/class
mzlib/contract mzlib/contract
mzlib/kw mzlib/kw
@ -14,7 +14,7 @@
mzlib/list mzlib/list
mzlib/etc mzlib/etc
mzlib/file mzlib/file
(lib "getinfo.ss" "setup") setup/getinfo
syntax/toplevel) syntax/toplevel)
(define original-output (current-output-port)) (define original-output (current-output-port))

4
collects/drscheme/private/language.ss
View File

@ -17,7 +17,7 @@
launcher launcher
mred mred
framework framework
(lib "syntax-browser.ss" "mrlib") mrlib/syntax-browser
compiler/distribute compiler/distribute
compiler/bundle-dist compiler/bundle-dist
"rep.ss") "rep.ss")
@ -464,7 +464,7 @@
(print-convert value))])) (print-convert value))]))
,(if (memq (simple-settings-annotations setting) '(debug debug/profile test-coverage)) ,(if (memq (simple-settings-annotations setting) '(debug debug/profile test-coverage))
`(require (lib "errortrace.ss" "errortrace")) `(require errortrace)
`(void)) `(void))
(define (init-code) (define (init-code)

2
collects/drscheme/private/launcher-bootstrap.ss
View File

@ -47,4 +47,4 @@
;; safe to do this earlier? ;; safe to do this earlier?
(delete-file init-code-tmp-filename) (delete-file init-code-tmp-filename)
(load program-filename)) (load program-filename))

4
collects/drscheme/private/main.ss
View File

@ -8,8 +8,8 @@
mzlib/class mzlib/class
mzlib/list mzlib/list
scheme/path scheme/path
(lib "external.ss" "browser") browser/external
(lib "plt-installer.ss" "setup")) setup/plt-installer)
(import [prefix drscheme:app: drscheme:app^] (import [prefix drscheme:app: drscheme:app^]
[prefix drscheme:unit: drscheme:unit^] [prefix drscheme:unit: drscheme:unit^]

2
collects/drscheme/private/recon.ss
View File

@ -16,4 +16,4 @@
(datum->syntax #'src (datum->syntax #'src
(loop (syntax-e (sloc-inside stx))) (loop (syntax-e (sloc-inside stx)))
(syntax->datum (sloc-loc stx)))] (syntax->datum (sloc-loc stx)))]
[else stx]))])) [else stx]))]))

2
collects/drscheme/private/time-keystrokes.ss
View File

@ -1,6 +1,6 @@
(module time-keystrokes mzscheme (module time-keystrokes mzscheme
(require (lib "tool.ss" "drscheme") (require drscheme/tool
mzlib/list mzlib/list
mzlib/unit mzlib/unit
mzlib/class mzlib/class

10
collects/drscheme/private/tools.ss
View File

@ -1,7 +1,7 @@
#lang scheme/unit #lang scheme/unit
(require (lib "getinfo.ss" "setup") (require setup/getinfo
mred mred
scheme/class scheme/class
scheme/list scheme/list
@ -350,9 +350,9 @@
(unless (and (is-a? bitmap bitmap%) (unless (and (is-a? bitmap bitmap%)
(send bitmap ok?)) (send bitmap ok?))
(k #f)) (k #f))
(let ([splash-eventspace ((dynamic-require '(lib "framework/splash.ss") 'get-splash-eventspace))] (let ([splash-eventspace ((dynamic-require 'framework/splash 'get-splash-eventspace))]
[splash-bitmap ((dynamic-require '(lib "framework/splash.ss") 'get-splash-bitmap))] [splash-bitmap ((dynamic-require 'framework/splash 'get-splash-bitmap))]
[splash-canvas ((dynamic-require '(lib "framework/splash.ss") 'get-splash-canvas))]) [splash-canvas ((dynamic-require 'framework/splash 'get-splash-canvas))])
(unless (and (eventspace? splash-eventspace) (unless (and (eventspace? splash-eventspace)
(is-a? splash-bitmap bitmap%) (is-a? splash-bitmap bitmap%)
@ -387,7 +387,7 @@
(send bdc set-bitmap #f) (send bdc set-bitmap #f)
(set! bitmap new-b))) (set! bitmap new-b)))
((dynamic-require '(lib "framework/splash.ss") 'add-splash-icon) ((dynamic-require 'framework/splash 'add-splash-icon)
bitmap tool-bitmap-x translated-tool-bitmap-y) bitmap tool-bitmap-x translated-tool-bitmap-y)
(set! tool-bitmap-x (+ tool-bitmap-x tool-bitmap-size tool-bitmap-gap)) (set! tool-bitmap-x (+ tool-bitmap-x tool-bitmap-size tool-bitmap-gap))
(when ((+ tool-bitmap-x tool-bitmap-gap tool-bitmap-size) . > . (send splash-bitmap get-width)) (when ((+ tool-bitmap-x tool-bitmap-gap tool-bitmap-size) . > . (send splash-bitmap get-width))

12
collects/drscheme/private/unit.ss
View File

@ -21,9 +21,9 @@ module browser threading seems wrong.
(only-in mzlib/etc compose) (only-in mzlib/etc compose)
string-constants string-constants
framework framework
(lib "name-message.ss" "mrlib") mrlib/name-message
(lib "bitmap-label.ss" "mrlib") mrlib/bitmap-label
(lib "include-bitmap.ss" "mrlib") mrlib/include-bitmap
"drsig.ss" "drsig.ss"
"auto-language.ss" "auto-language.ss"
"insert-large-letters.ss" "insert-large-letters.ss"
@ -3592,9 +3592,9 @@ module browser threading seems wrong.
(set! newest-frame this) (set! newest-frame this)
(send definitions-canvas focus))) (send definitions-canvas focus)))
(define running-bitmap (include-bitmap (lib "b-run.png" "icons"))) (define running-bitmap (include-bitmap (lib "icons/b-run.png")))
(define waiting-bitmap (include-bitmap (lib "b-wait.png" "icons"))) (define waiting-bitmap (include-bitmap (lib "icons/b-wait.png")))
(define waiting2-bitmap (include-bitmap (lib "b-wait2.png" "icons"))) (define waiting2-bitmap (include-bitmap (lib "icons/b-wait2.png")))
(define running/waiting-bitmaps (list running-bitmap waiting-bitmap waiting2-bitmap)) (define running/waiting-bitmaps (list running-bitmap waiting-bitmap waiting2-bitmap))
(define running-canvas% (define running-canvas%
(class canvas% (class canvas%

6
collects/drscheme/tool-lib.ss
View File

@ -74,11 +74,7 @@ all of the names in the tools library, for use defining keybindings
created empty namespace. This namespace has the following modules created empty namespace. This namespace has the following modules
copied (with @scheme[namespace-attach-module]) copied (with @scheme[namespace-attach-module])
from DrScheme's original namespace: from DrScheme's original namespace:
@itemize{ @itemize{@item{@scheme['mzscheme]}@item{@scheme['mred]}}
@item{ @scheme['mzscheme]
}@item{ @scheme['(lib "mred.ss" "mred")]
}}
}@item{ }@item{
@scheme[read-curly-brace-as-paren] @scheme[read-curly-brace-as-paren]
is @scheme[#t], is @scheme[#t],

8
collects/embedded-gui/private/aligned-pasteboard.ss
View File

@ -5,21 +5,21 @@
|# |#
(module aligned-pasteboard mzscheme (module aligned-pasteboard mzscheme
(provide aligned-pasteboard%) (provide aligned-pasteboard%)
(require (require
mzlib/class mzlib/class
mred mred
mzlib/etc mzlib/etc
(lib "click-forwarding-editor.ss" "mrlib") mrlib/click-forwarding-editor
"on-show-pasteboard.ss" "on-show-pasteboard.ss"
"really-resized-pasteboard.ss" "really-resized-pasteboard.ss"
"interface.ss" "interface.ss"
"locked-pasteboard.ss" "locked-pasteboard.ss"
"suppress-modify-editor.ss" "suppress-modify-editor.ss"
"on-show-editor.ss") "on-show-editor.ss")
(define aligned-pasteboard% (define aligned-pasteboard%
(class* (click-forwarding-editor-mixin (class* (click-forwarding-editor-mixin
(suppress-modify-editor-mixin (suppress-modify-editor-mixin

4
collects/embedded-gui/private/button-snip.ss
View File

@ -205,8 +205,8 @@
;; tests ;; tests
#| #|
(require (require
(lib "locked-pasteboard.ss" "mrlib" "private" "aligned-pasteboard") mrlib/private/aligned-pasteboard/locked-pasteboard
(lib "click-forwarding-editor.ss" "mrlib")) mrlib/click-forwarding-editor)
(define (test) (define (test)
(define f (new frame% (label "test") (width 200) (height 200))) (define f (new frame% (label "test") (width 200) (height 200)))

2
collects/embedded-gui/private/grid-alignment.ss
View File

@ -13,7 +13,7 @@
mzlib/list mzlib/list
mzlib/match mzlib/match
(prefix a: "alignment.ss") (prefix a: "alignment.ss")
(lib "click-forwarding-editor.ss" "mrlib") mrlib/click-forwarding-editor
"on-show-pasteboard.ss" "on-show-pasteboard.ss"
"really-resized-pasteboard.ss" "really-resized-pasteboard.ss"

8
collects/embedded-gui/private/tests/not-stetching.ss
View File

@ -1,13 +1,13 @@
(module not-stetching mzscheme (module not-stetching mzscheme
(require (require
(lib "debug.ss" "mike-lib") mike-lib/debug
mzlib/class mzlib/class
mzlib/etc mzlib/etc
mred mred
(lib "aligned-pasteboard.ss" "embedded-gui") embedded-gui/aligned-pasteboard
(lib "stretchable-editor-snip.ss" "embedded-gui") embedded-gui/stretchable-editor-snip
(lib "verthoriz-alignment.ss" "embedded-gui")) embedded-gui/verthoriz-alignment)
(define traced-ses% (define traced-ses%
#;(override/trace stretchable-editor-snip% #;(override/trace stretchable-editor-snip%

2
collects/embedded-gui/private/tests/only-one-child.ss
View File

@ -7,7 +7,7 @@
(prefix a: "../alignment.ss") (prefix a: "../alignment.ss")
"../alignment-helpers.ss" "../alignment-helpers.ss"
"../dllist.ss" "../dllist.ss"
(lib "click-forwarding-editor.ss" "mrlib") mrlib/click-forwarding-editor
"../on-show-pasteboard.ss" "../on-show-pasteboard.ss"
"../really-resized-pasteboard.ss" "../really-resized-pasteboard.ss"
"../interface.ss" "../interface.ss"

12
collects/embedded-gui/private/tests/stretching-in-alignment.ss
View File

@ -4,15 +4,15 @@
mred mred
mzlib/etc mzlib/etc
mzlib/class mzlib/class
(lib "interface.ss" "mrlib" "private" "aligned-pasteboard") mrlib/private/aligned-pasteboard/interface
(lib "debug.ss" "mike-lib") mike-lib/debug
mzlib/list mzlib/list
mzlib/match mzlib/match
(prefix a: "alignment.ss") (prefix a: "alignment.ss")
(lib "click-forwarding-editor.ss" "mrlib") mrlib/click-forwarding-editor
(lib "snip-lib.ss" "mrlib" "private" "aligned-pasteboard") mrlib/private/aligned-pasteboard/snip-lib
(lib "aligned-pasteboard.ss" "embedded-gui") embedded-gui/aligned-pasteboard
(lib "stretchable-editor-snip.ss" "embedded-gui")) embedded-gui/stretchable-editor-snip)
(define f (new frame% (label "f") (width 400) (height 400))) (define f (new frame% (label "f") (width 400) (height 400)))
(define e (new text%)) (define e (new text%))

2
collects/embedded-gui/private/tests/test-case-box.ss
View File

@ -3,7 +3,7 @@
mzlib/list mzlib/list
mred mred
mzlib/unitsig mzlib/unitsig
(lib "tool.ss" "drscheme") drscheme/tool
mzlib/etc mzlib/etc
mzlib/match mzlib/match
framework framework

4
collects/embedded-gui/private/tests/test-show-feature.ss
View File

@ -14,7 +14,7 @@
"../snip-lib.ss" "../snip-lib.ss"
"../interface.ss" "../interface.ss"
"../alignment-helpers.ss" "../alignment-helpers.ss"
(lib "click-forwarding-editor.ss" "mrlib") mrlib/click-forwarding-editor
"../on-show-pasteboard.ss" "../on-show-pasteboard.ss"
"../really-resized-pasteboard.ss" "../really-resized-pasteboard.ss"
"../interface.ss" "../interface.ss"
@ -23,7 +23,7 @@
"../verthoriz-alignment.ss" "../verthoriz-alignment.ss"
"../suppress-modify-editor.ss") "../suppress-modify-editor.ss")
(require (lib "print-debug.ss" "mike-lib")) (require mike-lib/print-debug)
(define aligned-pasteboard% (define aligned-pasteboard%
(class (click-forwarding-editor-mixin (class (click-forwarding-editor-mixin

4
collects/embedded-gui/private/tests/unaligned-childless-redux.ss
View File

@ -1,5 +1,5 @@
(require (lib "aligned-pasteboard.ss" "embedded-gui") (require embedded-gui/aligned-pasteboard
(lib "debug.ss" "mike-lib")) mike-lib/debug)
(define f (new frame% (label "f") (width 100) (height 100))) (define f (new frame% (label "f") (width 100) (height 100)))
(define e (new text%)) (define e (new text%))

4
collects/eopl/eopl-tool.ss
View File

@ -11,7 +11,7 @@ wraps the load of the module.)
(module eopl-tool mzscheme (module eopl-tool mzscheme
(require mzlib/unit (require mzlib/unit
mzlib/class mzlib/class
(lib "tool.ss" "drscheme") drscheme/tool
string-constants) string-constants)
(provide tool@) (provide tool@)
@ -28,7 +28,7 @@ wraps the load of the module.)
(list (string-constant teaching-languages) (list (string-constant teaching-languages)
"Essentials of Programming Languages (2nd ed.)")) "Essentials of Programming Languages (2nd ed.)"))
(define/public (get-module) (define/public (get-module)
'(lib "eopl.ss" "eopl")) '(lib "eopl/eopl.ss"))
(define/public (get-one-line-summary) (define/public (get-one-line-summary)
"Based on the Friedman, Wand, and Haynes text") "Based on the Friedman, Wand, and Haynes text")
(define/public (get-language-url) (define/public (get-language-url)

2
collects/eopl/lang/reader.ss
View File

@ -1,2 +1,2 @@
(module reader syntax/module-reader (module reader syntax/module-reader
eopl/eopl) eopl/eopl)

6
collects/errortrace/errortrace-key-syntax.ss
View File

@ -1,7 +1,5 @@
(module errortrace-key-syntax mzscheme (module errortrace-key-syntax mzscheme
(require (lib "errortrace-key.ss" "errortrace")) (require errortrace/errortrace-key)
(require-for-syntax (lib "errortrace-key.ss" "errortrace")) (require-for-syntax errortrace/errortrace-key)
(define errortrace-key-syntax #'errortrace-key) (define errortrace-key-syntax #'errortrace-key)
(provide errortrace-key-syntax)) (provide errortrace-key-syntax))

5
collects/errortrace/errortrace-lib.ss
View File

@ -327,10 +327,9 @@
#,(syntax-recertify #,(syntax-recertify
#`(#%plain-module-begin #`(#%plain-module-begin
#,((make-syntax-introducer) #,((make-syntax-introducer)
#'(#%require (lib "errortrace-key.ss" "errortrace"))) #'(#%require errortrace/errortrace-key))
#,((make-syntax-introducer) #,((make-syntax-introducer)
#'(#%require (for-syntax #'(#%require (for-syntax errortrace/errortrace-key)))
(lib "errortrace-key.ss" "errortrace"))))
body ...) body ...)
(list-ref (syntax->list top-e) 3) (list-ref (syntax->list top-e) 3)
orig-inspector orig-inspector

2
collects/ffi/examples/sndfile.ss
View File

@ -4,7 +4,7 @@
(require ffi/sndfile) (require ffi/sndfile)
;; (require (lib "swindle.ss" "swindle")) ;; (require swindle)
(define (add-half x y) (define (add-half x y)
(/ (+ x (* y 0.5)) 1.5)) (/ (+ x (* y 0.5)) 1.5))

4
collects/framework/framework-unit.ss
View File

@ -1,7 +1,7 @@
#lang scheme/base #lang scheme/base
(require mzlib/unit (require mzlib/unit
(lib "mred-sig.ss" "mred")) mred/mred-sig)
(require "private/sig.ss" (require "private/sig.ss"
"private/number-snip.ss" "private/number-snip.ss"
@ -94,4 +94,4 @@
(prefix handler: framework:handler^) (prefix handler: framework:handler^)
(prefix scheme: framework:scheme^) (prefix scheme: framework:scheme^)
(prefix main: framework:main^)) (prefix main: framework:main^))
framework-separate@ mred^)) framework-separate@ mred^))

2
collects/framework/gui-utils.ss
View File

@ -557,4 +557,4 @@
a delta suitable for use on a black background. a delta suitable for use on a black background.
See also See also
@scheme[gui-utils:get-clicked-clickback-delta].})) @scheme[gui-utils:get-clicked-clickback-delta].}))

4
collects/framework/main.ss
View File

@ -1,8 +1,8 @@
#reader scribble/reader #reader scribble/reader
#lang scheme/gui #lang scheme/gui
(require (lib "mred-unit.ss" "mred") (require mred/mred-unit
(lib "mred-sig.ss" "mred") mred/mred-sig
framework/framework-unit framework/framework-unit
framework/private/sig framework/private/sig
(for-syntax scheme/base) (for-syntax scheme/base)

2
collects/framework/private/autosave.ss
View File

@ -6,7 +6,7 @@
"sig.ss" "sig.ss"
"../gui-utils.ss" "../gui-utils.ss"
"../preferences.ss" "../preferences.ss"
(lib "mred-sig.ss" "mred") mred/mred-sig
mzlib/list mzlib/list
string-constants) string-constants)

2
collects/framework/private/bday.ss
View File

@ -1,4 +1,4 @@
(module bday mzscheme (require (lib "encode-decode.ss" "framework" "private")) (module bday mzscheme (require framework/private/encode-decode)
(decode (decode
\5d8f4 \5d8f4
\10ec22010 \10ec22010

2
collects/framework/private/canvas.ss
View File

@ -2,7 +2,7 @@
(require mzlib/class (require mzlib/class
"sig.ss" "sig.ss"
"../preferences.ss" "../preferences.ss"
(lib "mred-sig.ss" "mred")) mred/mred-sig)
(import mred^ (import mred^
[prefix frame: framework:frame^] [prefix frame: framework:frame^]

2
collects/framework/private/color-model.ss
View File

@ -1,7 +1,7 @@
#lang scheme/unit #lang scheme/unit
(require mzlib/class (require mzlib/class
"sig.ss" "sig.ss"
(lib "mred-sig.ss" "mred") mred/mred-sig
mzlib/list) mzlib/list)
(import) (import)

4
collects/framework/private/comment-box.ss
View File

@ -6,7 +6,7 @@
mred mred
"sig.ss" "sig.ss"
"../decorated-editor-snip.ss" "../decorated-editor-snip.ss"
(lib "include-bitmap.ss" "mrlib") mrlib/include-bitmap
string-constants) string-constants)
(import [prefix text: framework:text^] (import [prefix text: framework:text^]
@ -25,7 +25,7 @@
(send snipclass set-classname (format "~s" '(lib "comment-snip.ss" "framework"))) (send snipclass set-classname (format "~s" '(lib "comment-snip.ss" "framework")))
(send (get-the-snip-class-list) add snipclass) (send (get-the-snip-class-list) add snipclass)
(define bm (include-bitmap (lib "semicolon.gif" "icons"))) (define bm (include-bitmap (lib "icons/semicolon.gif")))
(define (editor-keymap-mixin %) (define (editor-keymap-mixin %)
(class % (class %

2
collects/framework/private/editor.ss
View File

@ -6,7 +6,7 @@
"../preferences.ss" "../preferences.ss"
"../gui-utils.ss" "../gui-utils.ss"
mzlib/etc mzlib/etc
(lib "mred-sig.ss" "mred") mred/mred-sig
scheme/path) scheme/path)
(import mred^ (import mred^

2
collects/framework/private/encode-decode.ss
View File

@ -21,7 +21,7 @@
(λ (oport) (λ (oport)
(let ([chopped (chop-up (encode-sexp `(begin ,@bodies)))]) (let ([chopped (chop-up (encode-sexp `(begin ,@bodies)))])
(fprintf oport "(module ~a mzscheme\n" m) (fprintf oport "(module ~a mzscheme\n" m)
(fprintf oport " (require (lib \"encode-decode.ss\" \"framework\" \"private\"))\n") (fprintf oport " (require framework/private/encode-decode)\n")
(fprintf oport " (decode ~a" (car chopped)) (fprintf oport " (decode ~a" (car chopped))
(for-each (lambda (chopped) (for-each (lambda (chopped)
(fprintf oport "\n ~a" chopped)) (fprintf oport "\n ~a" chopped))

2
collects/framework/private/exit.ss
View File

@ -4,7 +4,7 @@
"sig.ss" "sig.ss"
"../preferences.ss" "../preferences.ss"
"../gui-utils.ss" "../gui-utils.ss"
(lib "mred-sig.ss" "mred")) mred/mred-sig)
(import mred^) (import mred^)
(export (rename framework:exit^ (export (rename framework:exit^

2
collects/framework/private/finder.ss
View File

@ -3,7 +3,7 @@
(require string-constants (require string-constants
"sig.ss" "sig.ss"
"../preferences.ss" "../preferences.ss"
(lib "mred-sig.ss" "mred") mred/mred-sig
mzlib/string mzlib/string
scheme/path scheme/path
mzlib/etc) mzlib/etc)

2
collects/framework/private/frame.ss
View File

@ -6,7 +6,7 @@
"../preferences.ss" "../preferences.ss"
"../gui-utils.ss" "../gui-utils.ss"
"bday.ss" "bday.ss"
(lib "mred-sig.ss" "mred") mred/mred-sig
mzlib/list mzlib/list
scheme/path scheme/path
mzlib/etc) mzlib/etc)

2
collects/framework/private/gen-standard-menus.ss
View File

@ -282,4 +282,4 @@
@definterface[frame:standard-menus<%> (frame:basic<%>)]{ @definterface[frame:standard-menus<%> (frame:basic<%>)]{
-- --
) )

2
collects/framework/private/group.ss
View File

@ -5,7 +5,7 @@
"sig.ss" "sig.ss"
"../preferences.ss" "../preferences.ss"
"../gui-utils.ss" "../gui-utils.ss"
(lib "mred-sig.ss" "mred") mred/mred-sig
mzlib/list mzlib/list
scheme/path) scheme/path)

5
collects/framework/private/handler.ss
View File

@ -2,15 +2,14 @@
(require mzlib/class (require mzlib/class
mzlib/list mzlib/list
(lib "hierlist.ss" "hierlist") mrlib/hierlist
"sig.ss" "sig.ss"
"../preferences.ss" "../preferences.ss"
"../gui-utils.ss" "../gui-utils.ss"
(lib "mred-sig.ss" "mred") mred/mred-sig
scheme/path scheme/path
string-constants) string-constants)
(import mred^ (import mred^
[prefix finder: framework:finder^] [prefix finder: framework:finder^]
[prefix group: framework:group^] [prefix group: framework:group^]

20
collects/framework/private/icon.ss
View File

@ -2,28 +2,28 @@
(require (for-syntax scheme/base) (require (for-syntax scheme/base)
scheme/promise scheme/promise
mzlib/class mzlib/class
(lib "include-bitmap.ss" "mrlib") mrlib/include-bitmap
"bday.ss" "bday.ss"
"sig.ss" "sig.ss"
(lib "mred-sig.ss" "mred")) mred/mred-sig)
(import mred^) (import mred^)
(export framework:icon^) (export framework:icon^)
(define eof-bitmap (delay (include-bitmap (lib "eof.gif" "icons")))) (define eof-bitmap (delay (include-bitmap (lib "icons/eof.gif"))))
(define (get-eof-bitmap) (force eof-bitmap)) (define (get-eof-bitmap) (force eof-bitmap))
(define anchor-bitmap (delay (include-bitmap (lib "anchor.gif" "icons")))) (define anchor-bitmap (delay (include-bitmap (lib "icons/anchor.gif"))))
(define (get-anchor-bitmap) (force anchor-bitmap)) (define (get-anchor-bitmap) (force anchor-bitmap))
(define lock-bitmap (delay (include-bitmap (lib "lock.gif" "icons")))) (define lock-bitmap (delay (include-bitmap (lib "icons/lock.gif"))))
(define (get-lock-bitmap) (force lock-bitmap)) (define (get-lock-bitmap) (force lock-bitmap))
(define unlock-bitmap (delay (include-bitmap (lib "unlock.gif" "icons")))) (define unlock-bitmap (delay (include-bitmap (lib "icons/unlock.gif"))))
(define (get-unlock-bitmap) (force unlock-bitmap)) (define (get-unlock-bitmap) (force unlock-bitmap))
(define autowrap-bitmap (delay (include-bitmap (lib "return.xbm" "icons")))) (define autowrap-bitmap (delay (include-bitmap (lib "icons/return.xbm"))))
(define (get-autowrap-bitmap) (force autowrap-bitmap)) (define (get-autowrap-bitmap) (force autowrap-bitmap))
(define paren-highlight-bitmap (delay (include-bitmap (lib "paren.xbm" "icons")))) (define paren-highlight-bitmap (delay (include-bitmap (lib "icons/paren.xbm"))))
(define (get-paren-highlight-bitmap) (force paren-highlight-bitmap)) (define (get-paren-highlight-bitmap) (force paren-highlight-bitmap))
(define-syntax (make-get-cursor stx) (define-syntax (make-get-cursor stx)
@ -46,8 +46,8 @@
(define get-up/down-cursor (make-get-cursor "up-down-cursor.xbm" "up-down-mask.xbm" 'size-n/s)) (define get-up/down-cursor (make-get-cursor "up-down-cursor.xbm" "up-down-mask.xbm" 'size-n/s))
(define get-left/right-cursor (make-get-cursor "left-right-cursor.xbm" "left-right-mask.xbm" 'size-e/w)) (define get-left/right-cursor (make-get-cursor "left-right-cursor.xbm" "left-right-mask.xbm" 'size-e/w))
(define mrf-on-bitmap (delay (include-bitmap (lib "mrf.png" "icons")))) (define mrf-on-bitmap (delay (include-bitmap (lib "icons/mrf.png"))))
(define gc-on-bitmap (delay (include-bitmap (lib "recycle.png" "icons")))) (define gc-on-bitmap (delay (include-bitmap (lib "icons/recycle.png"))))
(define (make-off-bitmap onb) (define (make-off-bitmap onb)
(let* ([bitmap (make-object bitmap% (let* ([bitmap (make-object bitmap%

7
collects/framework/private/keymap.ss
View File

@ -4,7 +4,7 @@
(require string-constants (require string-constants
mzlib/class mzlib/class
mzlib/list mzlib/list
(lib "mred-sig.ss" "mred") mred/mred-sig
mzlib/match mzlib/match
"../preferences.ss" "../preferences.ss"
"tex-table.ss" "tex-table.ss"
@ -30,7 +30,10 @@
[sexp (and (file-exists? path) [sexp (and (file-exists? path)
(call-with-input-file path read))]) (call-with-input-file path read))])
(match sexp (match sexp
[`(module ,name (lib "keybinding-lang.ss" "framework") ,@(x ...)) [`(module ,name ,(or `(lib "keybinding-lang.ss" "framework")
`(lib "framework/keybinding-lang.ss")
`framework/keybinding-lang)
,@(x ...))
(let ([km (dynamic-require spec '#%keymap)]) (let ([km (dynamic-require spec '#%keymap)])
(hash-set! user-keybindings-files spec km) (hash-set! user-keybindings-files spec km)
(send global chain-to-keymap km #t))] (send global chain-to-keymap km #t))]

2
collects/framework/private/main.ss
View File

@ -2,7 +2,7 @@
(require mzlib/class (require mzlib/class
"sig.ss" "sig.ss"
"../preferences.ss" "../preferences.ss"
(lib "mred-sig.ss" "mred")) mred/mred-sig)
(import mred^ (import mred^
[prefix preferences: framework:preferences^] [prefix preferences: framework:preferences^]

1
collects/framework/private/mapdesc.ss
View File

@ -13,4 +13,3 @@
" (" " ("
(symbol->string 'events) (symbol->string 'events)
" events)"))])) " events)"))]))

2
collects/framework/private/menu.ss
View File

@ -2,7 +2,7 @@
(require mzlib/class (require mzlib/class
"sig.ss" "sig.ss"
"../preferences.ss" "../preferences.ss"
(lib "mred-sig.ss" "mred")) mred/mred-sig)
(import mred^) (import mred^)
(export framework:menu^) (export framework:menu^)

2
collects/framework/private/number-snip.ss
View File

@ -2,7 +2,7 @@
#lang scheme/unit #lang scheme/unit
(require "sig.ss" (require "sig.ss"
(lib "mred-sig.ss" "mred") mred/mred-sig
mzlib/class mzlib/class
"../preferences.ss" "../preferences.ss"
string-constants) string-constants)

2
collects/framework/private/panel.ss
View File

@ -2,7 +2,7 @@
#lang scheme/unit #lang scheme/unit
(require mzlib/class (require mzlib/class
"sig.ss" "sig.ss"
(lib "mred-sig.ss" "mred") mred/mred-sig
mzlib/list mzlib/list
mzlib/etc) mzlib/etc)

9
collects/framework/private/pasteboard.ss
View File

@ -1,14 +1,13 @@
#lang scheme/unit #lang scheme/unit
(require "sig.ss" (require "sig.ss" mred/mred-sig)
(lib "mred-sig.ss" "mred"))
(import mred^ (import mred^
[prefix editor: framework:editor^]) [prefix editor: framework:editor^])
(export (rename framework:pasteboard^ (export (rename framework:pasteboard^
[-keymap% keymap%])) [-keymap% keymap%]))
(init-depend mred^ framework:editor^) (init-depend mred^ framework:editor^)
(define basic% (editor:basic-mixin pasteboard%)) (define basic% (editor:basic-mixin pasteboard%))
(define standard-style-list% (editor:standard-style-list-mixin basic%)) (define standard-style-list% (editor:standard-style-list-mixin basic%))
(define -keymap% (editor:keymap-mixin standard-style-list%)) (define -keymap% (editor:keymap-mixin standard-style-list%))

3
collects/framework/private/path-utils.ss
View File

@ -1,6 +1,5 @@
#lang scheme/unit #lang scheme/unit
(require "sig.ss" (require "sig.ss" mred/mred-sig)
(lib "mred-sig.ss" "mred"))
(import) (import)
(export framework:path-utils^) (export framework:path-utils^)

2
collects/framework/private/preferences.ss
View File

@ -34,7 +34,7 @@ the state transitions / contracts are:
"sig.ss" "sig.ss"
"../gui-utils.ss" "../gui-utils.ss"
"../preferences.ss" "../preferences.ss"
(lib "mred-sig.ss" "mred") mred/mred-sig
mzlib/list) mzlib/list)
(import mred^ (import mred^

2
collects/framework/private/standard-menus-items.ss
View File

@ -396,4 +396,4 @@
'(string-constant about-menu-item) '(string-constant about-menu-item)
on-demand-do-nothing on-demand-do-nothing
#f) #f)
(make-after 'help-menu 'about 'nothing))) (make-after 'help-menu 'about 'nothing)))

4
collects/framework/private/text.ss
View File

@ -13,8 +13,8 @@ WARNING: printf is rebound in the body of the unit to always
"sig.ss" "sig.ss"
"../gui-utils.ss" "../gui-utils.ss"
"../preferences.ss" "../preferences.ss"
(lib "mred-sig.ss" "mred") mred/mred-sig
(lib "interactive-value-port.ss" "mrlib") mrlib/interactive-value-port
mzlib/list mzlib/list
mzlib/etc mzlib/etc
setup/dirs setup/dirs

2
collects/framework/private/version.ss
View File

@ -1,7 +1,7 @@
#lang scheme/unit #lang scheme/unit
(require "sig.ss" (require "sig.ss"
(lib "mred-sig.ss" "mred") mred/mred-sig
mzlib/string mzlib/string
mzlib/list) mzlib/list)
(import) (import)

2
collects/frtime/base-gm.ss
View File

@ -1,6 +1,6 @@
(module base-gm mzscheme (module base-gm mzscheme
(require mzlib/list (require mzlib/list
(lib "etc.ss")) mzlib/etc)
(provide assert (provide assert
print-each print-each

6
collects/frtime/etc.ss
View File

@ -1,12 +1,12 @@
(module etc frtime/frtime-lang-only (module etc frtime/frtime-lang-only
(require (lib "main-collects.ss" "setup")) (require setup/main-collects)
(require-for-syntax syntax/kerncase (require-for-syntax syntax/kerncase
syntax/stx syntax/stx
syntax/name syntax/name
syntax/context syntax/context
(lib "main-collects.ss" "setup") setup/main-collects
(lib "stxset.ss" "mzlib" "private")) mzlib/private/stxset)
(provide true false (provide true false
boolean=? symbol=? boolean=? symbol=?

2
collects/frtime/frp-core.ss
View File

@ -6,7 +6,7 @@
"erl.ss" "erl.ss"
"heap.ss") "heap.ss")
(require-for-syntax (lib "struct-info.ss" "scheme")) (require-for-syntax scheme/struct-info)

2
collects/frtime/frtime-tool.ss
View File

@ -5,7 +5,7 @@
mred mred
mzlib/etc mzlib/etc
mzlib/list mzlib/list
(lib "tool.ss" "drscheme") drscheme/tool
string-constants) string-constants)
(provide tool@) (provide tool@)

2
collects/frtime/graphics-posn-less-unit.ss
View File

@ -6,7 +6,7 @@
#lang scheme/unit #lang scheme/unit
(require (lib "mred-sig.ss" "mred") (require mred/mred-sig
mzlib/class mzlib/class
mzlib/class100 mzlib/class100
mzlib/etc mzlib/etc

2
collects/frtime/graphics-unit.ss
View File

@ -1,6 +1,6 @@
(module graphics-unit mzscheme (module graphics-unit mzscheme
(require mzlib/unit (require mzlib/unit
(lib "mred-sig.ss" "mred") mred/mred-sig
"graphics-sig.ss" "graphics-sig.ss"
"graphics-posn-less-unit.ss") "graphics-posn-less-unit.ss")
(provide graphics@) (provide graphics@)

2
collects/frtime/graphics.ss
View File

@ -1,6 +1,6 @@
(module graphics mzscheme (module graphics mzscheme
(require mzlib/unit (require mzlib/unit
(lib "mred-sig.ss" "mred") mred/mred-sig
mred mred
"graphics-sig.ss" "graphics-sig.ss"
"graphics-unit.ss") "graphics-unit.ss")

4
collects/frtime/gui/doc.txt
View File

@ -2,8 +2,8 @@
MACROS MACROS
------- -------
To get the basic macros: To get the basic macros:
(require (lib "mixin-macros.ss" "frtime" "demos" "gui")) (require frtime/demos/gui/mixin-macros)
> (events->callbacks field-name update-call) > (events->callbacks field-name update-call)
Generates a mixin for allowing an event stream to drive Generates a mixin for allowing an event stream to drive

22
collects/frtime/gui/mod-mrpanel.ss
View File

@ -1,18 +1,18 @@
(module mod-mrpanel mzscheme (module mod-mrpanel mzscheme
(require mzlib/class (require mzlib/class
mzlib/class100 mzlib/class100
(prefix wx: (lib "kernel.ss" "mred" "private")) (prefix wx: mred/private/kernel)
(lib "lock.ss" "mred" "private") mred/private/lock
(lib "const.ss" "mred" "private") mred/private/const
(lib "check.ss" "mred" "private") mred/private/check
(lib "helper.ss" "mred" "private") mred/private/helper
(lib "wx.ss" "mred" "private") mred/private/wx
(lib "kw.ss" "mred" "private") mred/private/kw
"mod-wx-panel.ss" "mod-wx-panel.ss"
(lib "mrwindow.ss" "mred" "private") mred/private/mrwindow
(lib "mrcontainer.ss" "mred" "private") mred/private/mrcontainer
(lib "mrtabgroup.ss" "mred" "private") mred/private/mrtabgroup
(lib "mrgroupbox.ss" "mred" "private")) mred/private/mrgroupbox)
(provide #|pane% (provide #|pane%
vertical-pane% vertical-pane%

18
collects/frtime/gui/mod-wx-panel.ss
View File

@ -2,15 +2,15 @@
(require mzlib/class (require mzlib/class
mzlib/class100 mzlib/class100
mzlib/list mzlib/list
(prefix wx: (lib "kernel.ss" "mred" "private")) (prefix wx: mred/private/kernel)
(lib "lock.ss" "mred" "private") mred/private/lock
(lib "const.ss" "mred" "private") mred/private/const
(lib "helper.ss" "mred" "private") mred/private/helper
(lib "check.ss" "mred" "private") mred/private/check
(lib "wx.ss" "mred" "private") mred/private/wx
(lib "wxwindow.ss" "mred" "private") mred/private/wxwindow
(lib "wxitem.ss" "mred" "private") mred/private/wxitem
(lib "wxcontainer.ss" "mred" "private")) mred/private/wxcontainer)
(provide (protect wx-panel% (provide (protect wx-panel%
wx-vertical-panel% wx-vertical-panel%

2
collects/frtime/struct.ss
View File

@ -2,7 +2,7 @@
(module struct mzscheme (module struct mzscheme
(require mzlib/etc (require mzlib/etc
syntax/stx syntax/stx
(lib "struct-info.ss" "scheme")) scheme/struct-info)
(require-for-template mzscheme) (require-for-template mzscheme)
(provide build-struct-names (provide build-struct-names

4
collects/games/checkers/checkers.ss
View File

@ -1,6 +1,6 @@
#lang mzscheme #lang mzscheme
(require (lib "gl-board.ss" "games" "gl-board-game") (require games/gl-board-game/gl-board
mzlib/class mzlib/class
mzlib/math mzlib/math
mred mred
@ -9,7 +9,7 @@
sgl sgl
sgl/gl sgl/gl
srfi/25/array srfi/25/array
(lib "include-bitmap.ss" "mrlib") mrlib/include-bitmap
"honu-bitmaps.ss") "honu-bitmaps.ss")
(provide game@) (provide game@)

4
collects/games/doors/doors.ss
View File

@ -1,8 +1,8 @@
(module doors mzscheme (module doors mzscheme
(require (lib "gl-board.ss" "games" "gl-board-game") (require games/gl-board-game/gl-board
sgl/gl-vectors sgl/gl-vectors
sgl sgl
(lib "bitmap.ss" "sgl") sgl/bitmap
mred mred
mzlib/list mzlib/list
mzlib/etc mzlib/etc

2
collects/games/gobblet/gui.ss
View File

@ -1,5 +1,5 @@
(module gui mzscheme (module gui mzscheme
(require (lib "gl-board.ss" "games" "gl-board-game") (require games/gl-board-game/gl-board
mzlib/class mzlib/class
mred mred
mzlib/file mzlib/file

2
collects/games/mines/mines.ss
View File

@ -9,7 +9,7 @@
mzlib/class mzlib/class
mzlib/unit mzlib/unit
mred mred
(lib "include-bitmap.ss" "mrlib")) mrlib/include-bitmap)
(provide game@) (provide game@)

2
collects/games/parcheesi/best-players.ss
View File

@ -700,7 +700,7 @@ another new board representation (vector of loc's)
(cdr ents))]))) (cdr ents))])))
#; #;
(require (lib "xml.ss" "xml") (require xml
"parse.ss") "parse.ss")
#; #;
(define (dump-out-candidates candidates) (define (dump-out-candidates candidates)

4
collects/games/parcheesi/rules.ss
View File

@ -6,8 +6,8 @@
"gui.ss" "gui.ss"
mzlib/class mzlib/class
(lib "xml.ss" "xml") xml
(lib "htmltext.ss" "browser") browser/htmltext
mred) mred)
(define board-size 250) (define board-size 250)

2
collects/games/scribblings/common.ss
View File

@ -24,4 +24,4 @@
(onscreen name) (onscreen name)
", run the " ", run the "
(exec "PLT Games") " program." (exec "PLT Games") " program."
" (Under Unix, it's called " (exec "plt-games") ").")))) " (Under Unix, it's called " (exec "plt-games") ")."))))

2
collects/graphics/graphics-posn-less-unit.ss
View File

@ -4,7 +4,7 @@
(module graphics-posn-less-unit mzscheme (module graphics-posn-less-unit mzscheme
(require mzlib/unit (require mzlib/unit
(lib "mred-sig.ss" "mred") mred/mred-sig
mred mred
mzlib/class mzlib/class
mzlib/class100 mzlib/class100

2
collects/graphics/graphics-unit.ss
View File

@ -1,6 +1,6 @@
(module graphics-unit mzscheme (module graphics-unit mzscheme
(require mzlib/unit (require mzlib/unit
(lib "mred-sig.ss" "mred") mred/mred-sig
"graphics-sig.ss" "graphics-sig.ss"
"graphics-posn-less-unit.ss") "graphics-posn-less-unit.ss")
(provide graphics@) (provide graphics@)

4
collects/graphics/graphics.ss
View File

@ -1,7 +1,7 @@
(module graphics mzscheme (module graphics mzscheme
(require mzlib/unit (require mzlib/unit
(lib "mred-sig.ss" "mred") mred/mred-sig
(lib "mred-unit.ss" "mred") mred/mred-unit
"graphics-sig.ss" "graphics-sig.ss"
"graphics-unit.ss") "graphics-unit.ss")
(provide-signature-elements graphics^ graphics:posn^) (provide-signature-elements graphics^ graphics:posn^)

2
collects/graphics/turtle-unit.ss
View File

@ -1,6 +1,6 @@
#lang scheme/unit #lang scheme/unit
(require (lib "mred-sig.ss" "mred") (require mred/mred-sig
mzlib/class mzlib/class
mzlib/class100 mzlib/class100
mzlib/list mzlib/list

4
collects/graphics/turtles.ss
View File

@ -1,7 +1,7 @@
(module turtles mzscheme (module turtles mzscheme
(require mzlib/unit (require mzlib/unit
(lib "mred-sig.ss" "mred") mred/mred-sig
(lib "mred-unit.ss" "mred") mred/mred-unit
"turtle-sig.ss" "turtle-sig.ss"
"turtle-unit.ss") "turtle-unit.ss")

2
collects/gui-debugger/annotator.ss
View File

@ -1,7 +1,7 @@
(module annotator scheme/base (module annotator scheme/base
(require (prefix-in kernel: syntax/kerncase) (require (prefix-in kernel: syntax/kerncase)
(lib "marks.ss" "gui-debugger") gui-debugger/marks
mzlib/etc mzlib/etc
(prefix-in srfi: srfi/1/search) (prefix-in srfi: srfi/1/search)
(for-syntax scheme/base) (for-syntax scheme/base)

4
collects/gui-debugger/debug-tool.ss
View File

@ -6,7 +6,7 @@
mzlib/contract mzlib/contract
mred mred
mzlib/match mzlib/match
(lib "tool.ss" "drscheme") drscheme/tool
"marks.ss" "marks.ss"
mrlib/switchable-button mrlib/switchable-button
mrlib/bitmap-label mrlib/bitmap-label
@ -14,7 +14,7 @@
"load-sandbox.ss" "load-sandbox.ss"
framework framework
string-constants string-constants
(lib "debugger-language-interface.ss" "lang")) lang/debugger-language-interface)
(provide tool@) (provide tool@)

4
collects/gui-debugger/marks.ss
View File

@ -3,8 +3,8 @@
(require mzlib/list (require mzlib/list
mzlib/contract mzlib/contract
(prefix-in mz: mzscheme) (prefix-in mz: mzscheme)
(lib "my-macros.ss" "stepper" "private") stepper/private/my-macros
(lib "shared.ss" "stepper" "private")) stepper/private/shared)
(define-struct full-mark-struct (module-name source label bindings values)) (define-struct full-mark-struct (module-name source label bindings values))

2
collects/guibuilder/doc.txt
View File

@ -6,7 +6,7 @@ from the "Special" menu.
Though less recommended, you can also run Though less recommended, you can also run
(require (lib ".ss" "guibuilder")) (require guibuilder/guibuilder)
to get a stand-alone builder. Save your files with the extension to get a stand-alone builder. Save your files with the extension
".gui" to ensure that they can be re-loaded later. ".gui" to ensure that they can be re-loaded later.

2
collects/guibuilder/tool.ss
View File

@ -1,6 +1,6 @@
(module tool mzscheme (module tool mzscheme
(require (lib "tool.ss" "drscheme") (require drscheme/tool
mred mred
mzlib/unit mzlib/unit
mzlib/class mzlib/class

2
collects/handin-client/client.ss
View File

@ -1,5 +1,5 @@
(module client mzscheme (module client mzscheme
(require (lib "mzssl.ss" "openssl") "this-collection.ss") (require openssl/mzssl "this-collection.ss")
(provide handin-connect (provide handin-connect
handin-disconnect handin-disconnect

Some files were not shown because too many files have changed in this diff Show More