Recketizing much in `net/*', mass ".ss" -> ".rkt" conversion in .scrbl files.
(Some other minor things here and there.)
This commit is contained in:
parent
e008fc3399
commit
debd1f9f1e
|
@ -264,7 +264,7 @@ sequence.
|
||||||
|
|
||||||
The @racket[code] code will appear on a new line in the file for C
|
The @racket[code] code will appear on a new line in the file for C
|
||||||
compilation. Multiple @racket[c-include] declarations are concatenated
|
compilation. Multiple @racket[c-include] declarations are concatenated
|
||||||
(with newlines) in order to produces a sequence of declarations.}
|
(with newlines) in order to produce a sequence of declarations.}
|
||||||
|
|
||||||
@defform[(c-include path-spec)]{
|
@defform[(c-include path-spec)]{
|
||||||
|
|
||||||
|
|
|
@ -1,7 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require scribblings/htdp-langs/common
|
@(require scribblings/htdp-langs/common "std-grammar.rkt" "prim-ops.rkt"
|
||||||
"std-grammar.ss"
|
|
||||||
"prim-ops.ss"
|
|
||||||
(for-label deinprogramm/DMdA-assignments))
|
(for-label deinprogramm/DMdA-assignments))
|
||||||
|
|
||||||
@title[#:style 'toc #:tag "DMdA-advanced"]{Die Macht der Abstraktion fortgeschritten}
|
@title[#:style 'toc #:tag "DMdA-advanced"]{Die Macht der Abstraktion fortgeschritten}
|
||||||
|
@ -35,7 +33,7 @@ Abstraktion - fortgeschritten} that goes with the German textbook
|
||||||
|
|
||||||
@|prim-nonterms|
|
@|prim-nonterms|
|
||||||
|
|
||||||
@prim-ops['(lib "DMdA-advanced.ss" "deinprogramm") #'here]
|
@prim-ops['(lib "DMdA-advanced.rkt" "deinprogramm") #'here]
|
||||||
|
|
||||||
@section[#:tag "advanced-quote"]{Quote-Literal}
|
@section[#:tag "advanced-quote"]{Quote-Literal}
|
||||||
|
|
||||||
|
@ -54,4 +52,4 @@ Signatur für Symbole.
|
||||||
|
|
||||||
@section[#:tag "advanced-prim-op"]{Primitive Operationen}
|
@section[#:tag "advanced-prim-op"]{Primitive Operationen}
|
||||||
|
|
||||||
@prim-op-defns['(lib "DMdA-advanced.ss" "deinprogramm") #'here '()]
|
@prim-op-defns['(lib "DMdA-advanced.rkt" "deinprogramm") #'here '()]
|
||||||
|
|
|
@ -1,8 +1,8 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require scribblings/htdp-langs/common
|
@(require scribblings/htdp-langs/common "std-grammar.rkt" "prim-ops.rkt"
|
||||||
"std-grammar.ss"
|
(for-label deinprogramm/DMdA-assignments
|
||||||
"prim-ops.ss"
|
(only-in deinprogramm/DMdA-beginner
|
||||||
(for-label deinprogramm/DMdA-assignments (only-in deinprogramm/DMdA-beginner define-record-procedures-parametric)))
|
define-record-procedures-parametric)))
|
||||||
|
|
||||||
@title[#:style 'toc #:tag "DMdA-assignments"]{Die Macht der Abstraktion mit Zuweisungen}
|
@title[#:style 'toc #:tag "DMdA-assignments"]{Die Macht der Abstraktion mit Zuweisungen}
|
||||||
|
|
||||||
|
@ -28,7 +28,7 @@ Abstraktion mit Zuweisungen} to go with the German textbook
|
||||||
|
|
||||||
@|prim-nonterms|
|
@|prim-nonterms|
|
||||||
|
|
||||||
@prim-ops['(lib "DMdA-assignments.ss" "deinprogramm") #'here]
|
@prim-ops['(lib "DMdA-assignments.rkt" "deinprogramm") #'here]
|
||||||
|
|
||||||
@section{@scheme[define-record-procedures-2]}
|
@section{@scheme[define-record-procedures-2]}
|
||||||
|
|
||||||
|
@ -105,4 +105,4 @@ gebunden.}
|
||||||
|
|
||||||
@section[#:tag "assignments-prim-op"]{Primitive Operationen}
|
@section[#:tag "assignments-prim-op"]{Primitive Operationen}
|
||||||
|
|
||||||
@prim-op-defns['(lib "DMdA-assignments.ss" "deinprogramm") #'here '()]
|
@prim-op-defns['(lib "DMdA-assignments.rkt" "deinprogramm") #'here '()]
|
||||||
|
|
|
@ -1,8 +1,6 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require scribblings/htdp-langs/common
|
@(require scribblings/htdp-langs/common scribble/struct
|
||||||
scribble/struct
|
"std-grammar.rkt" "prim-ops.rkt"
|
||||||
"std-grammar.ss"
|
|
||||||
"prim-ops.ss"
|
|
||||||
(for-label deinprogramm/DMdA-beginner))
|
(for-label deinprogramm/DMdA-beginner))
|
||||||
|
|
||||||
@title[#:style 'toc #:tag "DMdA-beginner"]{Die Macht der Abstraktion - Anfänger}
|
@title[#:style 'toc #:tag "DMdA-beginner"]{Die Macht der Abstraktion - Anfänger}
|
||||||
|
@ -20,7 +18,7 @@ Macht der Abstraktion}.
|
||||||
|
|
||||||
@|prim-nonterms|
|
@|prim-nonterms|
|
||||||
|
|
||||||
@prim-ops['(lib "DMdA-beginner.ss" "deinprogramm") #'here]
|
@prim-ops['(lib "DMdA-beginner.rkt" "deinprogramm") #'here]
|
||||||
|
|
||||||
@; ----------------------------------------------------------------------
|
@; ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
@ -441,4 +439,4 @@ Eigenschaft: @scheme[(==> c p)] legt fest, daß die Eigenschaft
|
||||||
@section[#:tag "beginner-prim-ops"]{Primitive Operationen}
|
@section[#:tag "beginner-prim-ops"]{Primitive Operationen}
|
||||||
|
|
||||||
@declare-exporting[deinprogramm/DMdA-beginner]
|
@declare-exporting[deinprogramm/DMdA-beginner]
|
||||||
@prim-op-defns['(lib "DMdA-beginner.ss" "deinprogramm") #'here '()]
|
@prim-op-defns['(lib "DMdA-beginner.rkt" "deinprogramm") #'here '()]
|
||||||
|
|
|
@ -1,7 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require scribblings/htdp-langs/common
|
@(require scribblings/htdp-langs/common "std-grammar.rkt" "prim-ops.rkt"
|
||||||
"std-grammar.ss"
|
|
||||||
"prim-ops.ss"
|
|
||||||
(for-label deinprogramm/DMdA-vanilla
|
(for-label deinprogramm/DMdA-vanilla
|
||||||
(only-in deinprogramm/DMdA-beginner define)))
|
(only-in deinprogramm/DMdA-beginner define)))
|
||||||
|
|
||||||
|
@ -20,7 +18,7 @@ Abstraktion}.
|
||||||
|
|
||||||
@|prim-nonterms|
|
@|prim-nonterms|
|
||||||
|
|
||||||
@prim-ops['(lib "DMdA-vanilla.ss" "deinprogramm") #'here]
|
@prim-ops['(lib "DMdA-vanilla.rkt" "deinprogramm") #'here]
|
||||||
|
|
||||||
@section[#:tag "signatures-vanilla"]{Signaturen}
|
@section[#:tag "signatures-vanilla"]{Signaturen}
|
||||||
|
|
||||||
|
@ -77,5 +75,4 @@ sich also auf das @scheme[a] aus dem @scheme[let*]-Ausdruck, nicht das
|
||||||
|
|
||||||
@section[#:tag "vanilla-prim-op"]{Primitive Operationen}
|
@section[#:tag "vanilla-prim-op"]{Primitive Operationen}
|
||||||
|
|
||||||
@prim-op-defns['(lib "DMdA-vanilla.ss" "deinprogramm") #'here '()]
|
@prim-op-defns['(lib "DMdA-vanilla.rkt" "deinprogramm") #'here '()]
|
||||||
|
|
||||||
|
|
|
@ -1,12 +1,11 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
|
|
||||||
@(require scribble/manual "shared.ss"
|
@(require scribble/manual "shared.rkt"
|
||||||
(for-label scheme
|
(for-label scheme teachpack/deinprogramm/image))
|
||||||
teachpack/deinprogramm/image))
|
|
||||||
|
|
||||||
@teachpack["image"]{Bilder konstruieren}
|
@teachpack["image"]{Bilder konstruieren}
|
||||||
|
|
||||||
Note: This is documentation for the @tt{image.ss} teachpack that goes
|
Note: This is documentation for the @filepath{image.rkt} teachpack that goes
|
||||||
with the German textbook
|
with the German textbook
|
||||||
@italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der
|
@italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der
|
||||||
Abstraktion}}.
|
Abstraktion}}.
|
||||||
|
|
|
@ -1,13 +1,13 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
|
|
||||||
@(require scribble/manual "shared.ss"
|
@(require scribble/manual "shared.rkt"
|
||||||
(for-label scheme
|
(for-label scheme
|
||||||
teachpack/deinprogramm/image
|
teachpack/deinprogramm/image
|
||||||
teachpack/deinprogramm/line3d))
|
teachpack/deinprogramm/line3d))
|
||||||
|
|
||||||
@teachpack["line3d"]{3D-Liniengraphik}
|
@teachpack["line3d"]{3D-Liniengraphik}
|
||||||
|
|
||||||
Note: This is documentation for the @tt{line3d.ss} teachpack that goes
|
Note: This is documentation for the @filepath{line3d.rkt} teachpack that goes
|
||||||
with the German textbook
|
with the German textbook
|
||||||
@italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der
|
@italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der
|
||||||
Abstraktion}}.
|
Abstraktion}}.
|
||||||
|
|
|
@ -1,14 +1,11 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
|
|
||||||
@(require scribble/manual
|
@(require scribble/manual scribble/struct "shared.rkt"
|
||||||
"shared.ss"
|
(for-label scheme teachpack/deinprogramm/sound))
|
||||||
scribble/struct
|
|
||||||
(for-label scheme
|
|
||||||
teachpack/deinprogramm/sound))
|
|
||||||
|
|
||||||
@teachpack["sound"]{Abspielen von Audio-Dateien}
|
@teachpack["sound"]{Abspielen von Audio-Dateien}
|
||||||
|
|
||||||
Note: This is documentation for the @tt{sound.ss} teachpack that goes
|
Note: This is documentation for the @filepath{sound.rkt} teachpack that goes
|
||||||
with the German textbook
|
with the German textbook
|
||||||
@italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der
|
@italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der
|
||||||
Abstraktion}}.
|
Abstraktion}}.
|
||||||
|
|
|
@ -1,15 +1,13 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
|
|
||||||
@(require scribble/manual
|
@(require scribble/manual scribble/struct "shared.rkt"
|
||||||
"shared.ss"
|
|
||||||
scribble/struct
|
|
||||||
(for-label scheme
|
(for-label scheme
|
||||||
teachpack/deinprogramm/image
|
teachpack/deinprogramm/image
|
||||||
teachpack/deinprogramm/turtle))
|
teachpack/deinprogramm/turtle))
|
||||||
|
|
||||||
@teachpack["turtle"]{Turtle-Grafik}
|
@teachpack["turtle"]{Turtle-Grafik}
|
||||||
|
|
||||||
Note: This is documentation for the @tt{turtle.ss} teachpack that goes
|
Note: This is documentation for the @filepath{turtle.rkt} teachpack that goes
|
||||||
with the German textbook
|
with the German textbook
|
||||||
@italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der
|
@italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der
|
||||||
Abstraktion}}.
|
Abstraktion}}.
|
||||||
|
|
|
@ -1,15 +1,13 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
|
|
||||||
@(require scribble/manual
|
@(require scribble/manual scribble/struct "shared.rkt"
|
||||||
"shared.ss"
|
|
||||||
scribble/struct
|
|
||||||
(for-label scheme
|
(for-label scheme
|
||||||
teachpack/deinprogramm/image
|
teachpack/deinprogramm/image
|
||||||
teachpack/deinprogramm/world))
|
teachpack/deinprogramm/world))
|
||||||
|
|
||||||
@teachpack["world"]{Animationen}
|
@teachpack["world"]{Animationen}
|
||||||
|
|
||||||
Note: This is documentation for the @tt{world.ss} teachpack that goes
|
Note: This is documentation for the @filepath{world.rkt} teachpack that goes
|
||||||
with the German textbook
|
with the German textbook
|
||||||
@italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der
|
@italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der
|
||||||
Abstraktion}}.
|
Abstraktion}}.
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@defclass/title[aligned-pasteboard% pasteboard% (alignment-parent<%>)]{
|
@defclass/title[aligned-pasteboard% pasteboard% (alignment-parent<%>)]{
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@definterface/title[alignment-parent<%> ()]{
|
@definterface/title[alignment-parent<%> ()]{
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@definterface/title[alignment<%> (dllist<%>)]{
|
@definterface/title[alignment<%> (dllist<%>)]{
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@defclass/title[button-snip% snip% ()]{
|
@defclass/title[button-snip% snip% ()]{
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@title[#:tag "containers" #:style 'toc]{Containers}
|
@title[#:tag "containers" #:style 'toc]{Containers}
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@title[#:tag "control-snips" #:style 'toc]{Control Snips}
|
@title[#:tag "control-snips" #:style 'toc]{Control Snips}
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@title[#:tag "controls" #:style 'toc]{Controls}
|
@title[#:tag "controls" #:style 'toc]{Controls}
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@definterface/title[dllist<%> ()]{
|
@definterface/title[dllist<%> ()]{
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@defclass/title[embedded-button% snip-wrapper% (alignment<%>)]{
|
@defclass/title[embedded-button% snip-wrapper% (alignment<%>)]{
|
||||||
|
|
||||||
|
|
|
@ -1,6 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt" (for-label framework))
|
||||||
(for-label framework))
|
|
||||||
|
|
||||||
@title{@bold{Embedded GUI}: Widgets within @scheme[editor<%>]}
|
@title{@bold{Embedded GUI}: Widgets within @scheme[editor<%>]}
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@defclass/title[embedded-message% snip-wrapper% ()]{
|
@defclass/title[embedded-message% snip-wrapper% ()]{
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@defclass/title[embedded-text-button% snip-wrapper% (alignment<%>)]{
|
@defclass/title[embedded-text-button% snip-wrapper% (alignment<%>)]{
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@defclass/title[embedded-toggle-button% snip-wrapper% (alignment<%>)]{
|
@defclass/title[embedded-toggle-button% snip-wrapper% (alignment<%>)]{
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@defclass/title[hline% snip-wrapper% (alignment<%>)]{
|
@defclass/title[hline% snip-wrapper% (alignment<%>)]{
|
||||||
|
|
||||||
|
@ -8,4 +8,3 @@ Displays a horizontal line across the region that is inserted into.
|
||||||
@defconstructor[([parent (is-a?/c alignment-parent<%>)])]{
|
@defconstructor[([parent (is-a?/c alignment-parent<%>)])]{
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@defclass/title[horizontal-alignment% dllist<%> (alignment<%> alignment-parent<%>)]{
|
@defclass/title[horizontal-alignment% dllist<%> (alignment<%> alignment-parent<%>)]{
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@title[#:tag "snip-related-functions"]{Snip Functions}
|
@title[#:tag "snip-related-functions"]{Snip Functions}
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@defclass/title[snip-wrapper% dllist<%> (alignment<%>)]{
|
@defclass/title[snip-wrapper% dllist<%> (alignment<%>)]{
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@definterface/title[stretchable-snip<%> ()]{
|
@definterface/title[stretchable-snip<%> ()]{
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@defclass/title[text-button-snip% snip% ()]{
|
@defclass/title[text-button-snip% snip% ()]{
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@defclass/title[toggle-button-snip% snip% ()]{
|
@defclass/title[toggle-button-snip% snip% ()]{
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@defclass/title[vertical-alignment% dllist<%> (alignment<%> alignment-parent<%>)]{
|
@defclass/title[vertical-alignment% dllist<%> (alignment<%> alignment-parent<%>)]{
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@defclass/title[vline% snip-wrapper% (alignment<%>)]{
|
@defclass/title[vline% snip-wrapper% (alignment<%>)]{
|
||||||
|
|
||||||
|
@ -8,4 +8,3 @@ Displays a vertical line across the region that is inserted into.
|
||||||
@defconstructor[([parent (is-a?/c alignment-parent<%>)])]{
|
@defconstructor[([parent (is-a?/c alignment-parent<%>)])]{
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
@ -318,7 +318,7 @@ procedure is suitable for use as a compilation handler via
|
||||||
(-> any/c any/c compiled-expression)]{
|
(-> any/c any/c compiled-expression)]{
|
||||||
|
|
||||||
Produces a compile handler that is like
|
Produces a compile handler that is like
|
||||||
@scheme[errortrace-compile-handler], except that the code that the
|
@scheme[errortrace-compile-handler], except that the code that
|
||||||
it produces is instrumented if the value of
|
it produces is instrumented if the value of
|
||||||
@schemeblock[(namespace-module-registry (current-namespace))]
|
@schemeblock[(namespace-module-registry (current-namespace))]
|
||||||
is the same as when the original thunk is invoked.
|
is the same as when the original thunk is invoked.
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@title{@bold{File}: Racket File Format Libraries}
|
@title{@bold{File}: Racket File Format Libraries}
|
||||||
|
|
||||||
|
|
|
@ -1,7 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt" (for-label file/gunzip file/gzip))
|
||||||
(for-label file/gunzip
|
|
||||||
file/gzip))
|
|
||||||
|
|
||||||
@title[#:tag "gunzip"]{@exec{gzip} Decompression}
|
@title[#:tag "gunzip"]{@exec{gzip} Decompression}
|
||||||
|
|
||||||
|
|
|
@ -1,6 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt" (for-label file/gzip))
|
||||||
(for-label file/gzip))
|
|
||||||
|
|
||||||
@title[#:tag "gzip"]{@exec{gzip} Compression and File Creation}
|
@title[#:tag "gzip"]{@exec{gzip} Compression and File Creation}
|
||||||
|
|
||||||
|
|
|
@ -1,7 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt" scribble/eval (for-label file/md5))
|
||||||
scribble/eval
|
|
||||||
(for-label file/md5))
|
|
||||||
|
|
||||||
@(define md5-eval (make-base-eval))
|
@(define md5-eval (make-base-eval))
|
||||||
@interaction-eval[#:eval md5-eval (require file/md5)]
|
@interaction-eval[#:eval md5-eval (require file/md5)]
|
||||||
|
|
|
@ -1,6 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt" (for-label file/resource))
|
||||||
(for-label file/resource))
|
|
||||||
|
|
||||||
@(define-syntax-rule (compat file section indexed-racket what)
|
@(define-syntax-rule (compat file section indexed-racket what)
|
||||||
@elem{For backward compatibilty, the
|
@elem{For backward compatibilty, the
|
||||||
|
|
|
@ -1,7 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt" scribble/eval (for-label file/sha1))
|
||||||
scribble/eval
|
|
||||||
(for-label file/sha1))
|
|
||||||
|
|
||||||
@(define sha1-eval (make-base-eval))
|
@(define sha1-eval (make-base-eval))
|
||||||
@interaction-eval[#:eval sha1-eval (require file/sha1)]
|
@interaction-eval[#:eval sha1-eval (require file/sha1)]
|
||||||
|
|
|
@ -1,6 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt" (for-label file/tar file/gzip))
|
||||||
(for-label file/tar file/gzip))
|
|
||||||
|
|
||||||
@title[#:tag "tar"]{@exec{tar} File Creation}
|
@title[#:tag "tar"]{@exec{tar} File Creation}
|
||||||
|
|
||||||
|
|
|
@ -1,8 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt" (for-label file/zip file/gunzip scheme/file))
|
||||||
(for-label file/zip
|
|
||||||
file/gunzip
|
|
||||||
scheme/file))
|
|
||||||
|
|
||||||
@title[#:tag "zip"]{@exec{zip} File Creation}
|
@title[#:tag "zip"]{@exec{zip} File Creation}
|
||||||
|
|
||||||
|
|
|
@ -407,34 +407,34 @@ To run the following animation/GUI demos, simply set the language
|
||||||
level to FrTime, open the corresponding file, and Execute. See the
|
level to FrTime, open the corresponding file, and Execute. See the
|
||||||
demo source code for more information.
|
demo source code for more information.
|
||||||
|
|
||||||
@scheme[orbit-mouse.ss] : A collection of balls that move in circles
|
@scheme[orbit-mouse.rkt] : A collection of balls that move in circles
|
||||||
around the mouse pointer.
|
around the mouse pointer.
|
||||||
|
|
||||||
@scheme[piston.ss] : Simulation of a piston/cylinder.
|
@scheme[piston.rkt] : Simulation of a piston/cylinder.
|
||||||
|
|
||||||
@scheme[rotation.ss] : Balls moving in circles.
|
@scheme[rotation.rkt] : Balls moving in circles.
|
||||||
|
|
||||||
@scheme[delay-mouse.ss] : A trail of balls following the mouse.
|
@scheme[delay-mouse.rkt] : A trail of balls following the mouse.
|
||||||
|
|
||||||
@scheme[ball-on-string.ss] : A ball chasing the mouse.
|
@scheme[ball-on-string.rkt] : A ball chasing the mouse.
|
||||||
|
|
||||||
@scheme[pong.ss] : A simple pong/air-hockey game. The left paddle moves with
|
@scheme[pong.rkt] : A simple pong/air-hockey game. The left paddle moves with
|
||||||
numeric keypad; the right paddle moves with the mouse. The 'r' key
|
numeric keypad; the right paddle moves with the mouse. The 'r' key
|
||||||
resets the score.
|
resets the score.
|
||||||
|
|
||||||
@scheme[pizza.ss] : A simple "pizza ordering" user interface based on an HtDP
|
@scheme[pizza.rkt] : A simple "pizza ordering" user interface based on an HtDP
|
||||||
exercise.
|
exercise.
|
||||||
|
|
||||||
@scheme[calculator.ss] : A simple calculator interface, also based on an HtDP
|
@scheme[calculator.rkt] : A simple calculator interface, also based on an HtDP
|
||||||
exercise except that the result updates continuously as the arguments
|
exercise except that the result updates continuously as the arguments
|
||||||
and operator change.
|
and operator change.
|
||||||
|
|
||||||
The next three animation examples are courtesy of Robb Cutler:
|
The next three animation examples are courtesy of Robb Cutler:
|
||||||
|
|
||||||
@scheme[analog-clock.ss] : An animated real-time clock. A slider adjusts the radius
|
@scheme[analog-clock.rkt] : An animated real-time clock. A slider adjusts the
|
||||||
of the face. Click and drag to move the face around.
|
radius of the face. Click and drag to move the face around.
|
||||||
|
|
||||||
@scheme[growing-points.ss] : A field of points that grow as the mouse approaches.
|
@scheme[growing-points.rkt] : A field of points that grow as the mouse
|
||||||
|
approaches.
|
||||||
@scheme[needles.ss] : A field of needles that point at the mouse.
|
|
||||||
|
|
||||||
|
@scheme[needles.rkt] : A field of needles that point at the mouse.
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@gametitle["Aces" "aces" "Solitaire Card Game"]
|
@gametitle["Aces" "aces" "Solitaire Card Game"]
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@gametitle["Blackjack" "blackjack" "21 Card Game"]
|
@gametitle["Blackjack" "blackjack" "21 Card Game"]
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@gametitle["Checkers" "checkers" "Board Game"]
|
@gametitle["Checkers" "checkers" "Board Game"]
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@gametitle["Crazy 8s" "crazy8s" "Card Game"]
|
@gametitle["Crazy 8s" "crazy8s" "Card Game"]
|
||||||
|
|
||||||
|
|
|
@ -1,9 +1,7 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt"
|
||||||
(for-label scheme/base
|
(for-label scheme/base scheme/contract
|
||||||
scheme/contract
|
games/show-help games/show-scribbling))
|
||||||
games/show-help
|
|
||||||
games/show-scribbling))
|
|
||||||
|
|
||||||
@title{@bold{Games}: Fun Examples}
|
@title{@bold{Games}: Fun Examples}
|
||||||
|
|
||||||
|
@ -24,8 +22,8 @@ installed as sub-collections of the @filepath{games} collection (see
|
||||||
|
|
||||||
The game-starting console inspects the sub-collections of the
|
The game-starting console inspects the sub-collections of the
|
||||||
@filepath{games} collection. If a sub-collection has an
|
@filepath{games} collection. If a sub-collection has an
|
||||||
@filepath{info.ss} module (see @schememodname[setup/infotab]), the
|
@filepath{info.rkt} module (see @schememodname[setup/infotab]), the
|
||||||
following fields of the collection's "info.ss" file are used:
|
following fields of the collection's @filepath{info.rkt} file are used:
|
||||||
|
|
||||||
@itemize[
|
@itemize[
|
||||||
|
|
||||||
|
|
|
@ -1,12 +1,10 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@(define Lambda "\u3BB")
|
@gametitle["GCalc" "gcalc" "Visual λ-Calculus"]
|
||||||
|
|
||||||
@gametitle["GCalc" "gcalc" "Visual \u3BB-Calculus"]
|
|
||||||
|
|
||||||
@onscreen{GCalc} is a system for visually demonstrating the
|
@onscreen{GCalc} is a system for visually demonstrating the
|
||||||
@|Lambda|-Calculus (not really a game).
|
λ-Calculus (not really a game).
|
||||||
|
|
||||||
See the following for the principles:
|
See the following for the principles:
|
||||||
|
|
||||||
|
@ -60,22 +58,22 @@ undo feature: a right-click on the right cell always splits the main
|
||||||
cube to two halves and throws the right side.
|
cube to two halves and throws the right side.
|
||||||
|
|
||||||
The colored cubes and the six basic operators make this simple domain,
|
The colored cubes and the six basic operators make this simple domain,
|
||||||
which is extended to form a @|Lambda|-Calculus-like language by adding
|
which is extended to form a λ-Calculus-like language by adding
|
||||||
abstractions and applications. Right-clicking on a basic cube on the
|
abstractions and applications. Right-clicking on a basic cube on the
|
||||||
left panel creates an abstraction which is actually a lambda
|
left panel creates an abstraction which is actually a lambda
|
||||||
expression except that colors are used instead of syntactic variables.
|
expression except that colors are used instead of syntactic variables.
|
||||||
For example, if the main cell contains @onscreen{R|G} (red-green on
|
For example, if the main cell contains @onscreen{R|G} (red-green on
|
||||||
the left and right), then right-clicking the green cube on the left
|
the left and right), then right-clicking the green cube on the left
|
||||||
panel leaves us with @onscreen{@|Lambda| G . R|G}, which is visualized
|
panel leaves us with @onscreen{λ G . R|G}, which is visualized
|
||||||
as @onscreen{R|G} with a green circle. The last two operator cells
|
as @onscreen{R|G} with a green circle. The last two operator cells
|
||||||
are used for application of these abstractions: drag a function to the
|
are used for application of these abstractions: drag a function to the
|
||||||
top-right to have it applied on the main cube, or to the bottom-left
|
top-right to have it applied on the main cube, or to the bottom-left
|
||||||
to have the main cube applied to it. As in the @|Lambda|-Calculus,
|
to have the main cube applied to it. As in the λ-Calculus,
|
||||||
all abstractions have exactly one variable, use currying for multiple
|
all abstractions have exactly one variable, use currying for multiple
|
||||||
variables.
|
variables.
|
||||||
|
|
||||||
So far the result is a domain of colored cubes that can be used in the
|
So far the result is a domain of colored cubes that can be used in the
|
||||||
same way as the simple @|Lambda|-Calculus. There is one last
|
same way as the simple λ-Calculus. There is one last
|
||||||
extension that goes one step further: function cubes can themselves be
|
extension that goes one step further: function cubes can themselves be
|
||||||
combined with other functions using the simple operations. This
|
combined with other functions using the simple operations. This
|
||||||
results in a form of "spatial functions" that behave differently in
|
results in a form of "spatial functions" that behave differently in
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@gametitle["Rummy" "ginrummy" "Card Game"]
|
@gametitle["Rummy" "ginrummy" "Card Game"]
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@gametitle["Gobblet" "gobblet" "Strategy Game"]
|
@gametitle["Gobblet" "gobblet" "Strategy Game"]
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@gametitle["Go Fish" "gofish" "Kid's Card Game"]
|
@gametitle["Go Fish" "gofish" "Kid's Card Game"]
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@gametitle["Jewel" "jewel" "3-D Skill Game"]
|
@gametitle["Jewel" "jewel" "3-D Skill Game"]
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@gametitle["Lights Out" "lights-out" "Logic Game"]
|
@gametitle["Lights Out" "lights-out" "Logic Game"]
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@gametitle["Memory" "memory" "Kid's Game"]
|
@gametitle["Memory" "memory" "Kid's Game"]
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@gametitle["Minesweeper" "mines" "Logic Game"]
|
@gametitle["Minesweeper" "mines" "Logic Game"]
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@gametitle["Paint By Numbers" "paint-by-numbers" "Logic Game"]
|
@gametitle["Paint By Numbers" "paint-by-numbers" "Logic Game"]
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@gametitle["Parcheesi" "parcheesi" "Board Game"]
|
@gametitle["Parcheesi" "parcheesi" "Board Game"]
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@gametitle["Pousse" "pousse" "Tic-Tac-Toe-like Game"]
|
@gametitle["Pousse" "pousse" "Tic-Tac-Toe-like Game"]
|
||||||
|
|
||||||
|
|
|
@ -1,8 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt" racket/class racket/draw (only-in slideshow/pict dc)
|
||||||
racket/class
|
|
||||||
racket/draw
|
|
||||||
(only-in slideshow/pict dc)
|
|
||||||
"../same/same-lib.rkt")
|
"../same/same-lib.rkt")
|
||||||
|
|
||||||
@(define board-width 6)
|
@(define board-width 6)
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@gametitle["Slidey" "slidey" "Picture Puzzle"]
|
@gametitle["Slidey" "slidey" "Picture Puzzle"]
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@gametitle["Spider" "spider" "Solitaire Card Game"]
|
@gametitle["Spider" "spider" "Solitaire Card Game"]
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@title[#:style 'toc #:tag "bundled"]{Bundled Games}
|
@title[#:style 'toc #:tag "bundled"]{Bundled Games}
|
||||||
|
|
||||||
|
|
|
@ -1,9 +1,9 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt"
|
||||||
(for-label "../graphics.ss"
|
(for-label "../graphics.rkt"
|
||||||
"../graphics-sig.ss"
|
"../graphics-sig.rkt"
|
||||||
"../graphics-unit.ss"
|
"../graphics-unit.rkt"
|
||||||
"../graphics-posn-less-unit.ss"))
|
"../graphics-posn-less-unit.rkt"))
|
||||||
|
|
||||||
@title{@bold{Graphics}: Legacy Library}
|
@title{@bold{Graphics}: Legacy Library}
|
||||||
|
|
||||||
|
|
|
@ -1,7 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt" (for-label "../turtles.rkt" "../turtle-examples.rkt"))
|
||||||
(for-label "../turtles.ss"
|
|
||||||
"../turtle-examples.ss"))
|
|
||||||
|
|
||||||
@title{Traditional Turtles}
|
@title{Traditional Turtles}
|
||||||
|
|
||||||
|
|
|
@ -1,7 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt" (for-label "../value-turtles.rkt"))
|
||||||
(for-label "../value-turtles.ss"))
|
|
||||||
|
|
||||||
|
|
||||||
@title{Value Turtles}
|
@title{Value Turtles}
|
||||||
|
|
||||||
|
|
|
@ -160,7 +160,7 @@ Similar to @scheme[!list] but also forces (using @scheme[!]) the
|
||||||
elements of the list.}
|
elements of the list.}
|
||||||
|
|
||||||
|
|
||||||
@;{ This moved into lazy.ss, and all the other forces will move there too.
|
@;{ This moved into lazy.rkt, and all the other forces will move there too.
|
||||||
|
|
||||||
@subsection{Multiple values}
|
@subsection{Multiple values}
|
||||||
|
|
||||||
|
|
|
@ -1,16 +1,9 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require scribble/manual
|
@(require scribble/manual
|
||||||
(for-label scheme/base
|
(for-label scheme/base scheme/contract scheme/unit
|
||||||
scheme/contract
|
make make/make-unit make/make-sig
|
||||||
scheme/unit
|
make/collection make/collection-sig make/collection-unit
|
||||||
make
|
dynext/file-sig compiler/sig))
|
||||||
make/make-unit
|
|
||||||
make/make-sig
|
|
||||||
make/collection
|
|
||||||
make/collection-sig
|
|
||||||
make/collection-unit
|
|
||||||
dynext/file-sig
|
|
||||||
compiler/sig))
|
|
||||||
|
|
||||||
@(define raco-manual @other-manual['(lib "scribblings/raco/raco.scrbl")])
|
@(define raco-manual @other-manual['(lib "scribblings/raco/raco.scrbl")])
|
||||||
|
|
||||||
|
@ -348,11 +341,12 @@ The arguments are as follows:
|
||||||
supply @scheme['("wsock32")].}
|
supply @scheme['("wsock32")].}
|
||||||
|
|
||||||
@item{@scheme[extra-depends] --- a list of relative paths to treat as
|
@item{@scheme[extra-depends] --- a list of relative paths to treat as
|
||||||
dependencies for compiling `file.c'. Often this list will include
|
dependencies for compiling @filepath{file.c}. Often this list will
|
||||||
`file.c' with the ".c" suffix replaced by ".ss" or ".scm". For
|
include @filepath{file.c} with the @filepath{.c} suffix replaced by
|
||||||
example, the "openssl" installer supplies '("mzssl.ss") to ensure
|
@filepath{.rkt}. For example, the "openssl" installer supplies
|
||||||
that the stub module "mzssl.ss" is never used when the true
|
@scheme['("mzssl.rkt")] to ensure that the stub module
|
||||||
extension can be built.}
|
@filepath{mzssl.rkt} is never used when the true extension can be
|
||||||
|
built.}
|
||||||
|
|
||||||
@item{@scheme[last-chance-k] --- a procedure of one argument, which
|
@item{@scheme[last-chance-k] --- a procedure of one argument, which
|
||||||
is a thunk. This procedure should invoke the thunk to make the
|
is a thunk. This procedure should invoke the thunk to make the
|
||||||
|
|
|
@ -1,11 +1,7 @@
|
||||||
(require
|
(require mzlib/class mzlib/list mred mzlib/etc
|
||||||
mzlib/class
|
"../aligned-editor-container.rkt"
|
||||||
mzlib/list
|
"../aligned-pasteboard.rkt"
|
||||||
mred
|
"../snip-lib.rkt")
|
||||||
mzlib/etc
|
|
||||||
"../aligned-editor-container.ss"
|
|
||||||
"../aligned-pasteboard.ss"
|
|
||||||
"../snip-lib.ss")
|
|
||||||
|
|
||||||
(define f (new frame% (label "test") (width 200) (height 200)))
|
(define f (new frame% (label "test") (width 200) (height 200)))
|
||||||
(define e (new text%))
|
(define e (new text%))
|
||||||
|
|
|
@ -1,6 +1,4 @@
|
||||||
(require
|
(require "../aligned-pasteboard.rkt" "../aligned-editor-container.rkt")
|
||||||
"../aligned-pasteboard.ss"
|
|
||||||
"../aligned-editor-container.ss")
|
|
||||||
|
|
||||||
(define (converges? x) #t)
|
(define (converges? x) #t)
|
||||||
|
|
||||||
|
|
|
@ -1,10 +1,4 @@
|
||||||
|
(require mzlib/etc mzlib/list mzlib/match "../alignment.rkt" "test-macro.rkt")
|
||||||
(require
|
|
||||||
mzlib/etc
|
|
||||||
mzlib/list
|
|
||||||
mzlib/match
|
|
||||||
"../alignment.ss"
|
|
||||||
"test-macro.ss")
|
|
||||||
|
|
||||||
;;los-equal? ((listof rect?) (listof rect?) . -> . boolean?)
|
;;los-equal? ((listof rect?) (listof rect?) . -> . boolean?)
|
||||||
;;tests the equality of the list of structures
|
;;tests the equality of the list of structures
|
||||||
|
|
|
@ -1,14 +1,9 @@
|
||||||
|
(require mzlib/etc mzlib/class "test-macro.rkt" mred
|
||||||
|
"../pasteboard-lib.rkt"
|
||||||
|
"../aligned-pasteboard.rkt"
|
||||||
|
"../aligned-editor-container.rkt")
|
||||||
|
|
||||||
(require
|
;; (printf "running tests for pasteboard-lib.rkt\n")
|
||||||
mzlib/etc
|
|
||||||
mzlib/class
|
|
||||||
"test-macro.ss"
|
|
||||||
mred
|
|
||||||
"../pasteboard-lib.ss"
|
|
||||||
"../aligned-pasteboard.ss"
|
|
||||||
"../aligned-editor-container.ss")
|
|
||||||
|
|
||||||
;; (printf "running tests for pasteboard-lib.ss\n")
|
|
||||||
|
|
||||||
;;pasteboard-root: ((is-a?/c aligned-pasteboard<%>) -> (is-a?/c aligned-pasteboard<%>))
|
;;pasteboard-root: ((is-a?/c aligned-pasteboard<%>) -> (is-a?/c aligned-pasteboard<%>))
|
||||||
;;gets the top most aligned pasteboard in the tree of pasteboards and containers
|
;;gets the top most aligned pasteboard in the tree of pasteboards and containers
|
||||||
|
|
|
@ -1,14 +1,9 @@
|
||||||
|
(require mzlib/etc mzlib/class mred "test-macro.rkt"
|
||||||
|
"../snip-lib.rkt"
|
||||||
|
"../aligned-pasteboard.rkt"
|
||||||
|
"../aligned-editor-container.rkt")
|
||||||
|
|
||||||
(require
|
;;(printf "running tests for snip-lib.rkt\n")
|
||||||
mzlib/etc
|
|
||||||
mzlib/class
|
|
||||||
mred
|
|
||||||
"../snip-lib.ss"
|
|
||||||
"../aligned-pasteboard.ss"
|
|
||||||
"../aligned-editor-container.ss"
|
|
||||||
"test-macro.ss")
|
|
||||||
|
|
||||||
;;(printf "running tests for snip-lib.ss\n")
|
|
||||||
|
|
||||||
;;snip-width: ((is-a?/c aligned-pasteboard<%>) (is-a?/c snip%) . -> . number?)
|
;;snip-width: ((is-a?/c aligned-pasteboard<%>) (is-a?/c snip%) . -> . number?)
|
||||||
;;the width of a snip in the given pasteboard
|
;;the width of a snip in the given pasteboard
|
||||||
|
|
|
@ -1,12 +1,7 @@
|
||||||
(require
|
(require mzlib/class mred mzlib/etc mzlib/list
|
||||||
mzlib/class
|
"../aligned-pasteboard.rkt"
|
||||||
mred
|
"../aligned-editor-container.rkt"
|
||||||
mzlib/etc
|
"snip-dumper.rkt")
|
||||||
mzlib/list
|
|
||||||
"../aligned-pasteboard.ss"
|
|
||||||
"../aligned-editor-container.ss"
|
|
||||||
"snip-dumper.ss")
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; ;;
|
; ;;
|
||||||
|
@ -21,7 +16,7 @@
|
||||||
; ;
|
; ;
|
||||||
; ;;;
|
; ;;;
|
||||||
|
|
||||||
(printf "running test1.ss\n")
|
(printf "running test.rktl\n")
|
||||||
|
|
||||||
(define frame
|
(define frame
|
||||||
(instantiate frame% ()
|
(instantiate frame% ()
|
||||||
|
|
|
@ -1,11 +1,7 @@
|
||||||
(require
|
(require mzlib/class mred mzlib/etc mzlib/list
|
||||||
mzlib/class
|
"../aligned-pasteboard.rkt"
|
||||||
mred
|
"../aligned-editor-container.rkt"
|
||||||
mzlib/etc
|
"snip-dumper.rkt")
|
||||||
mzlib/list
|
|
||||||
"../aligned-pasteboard.ss"
|
|
||||||
"../aligned-editor-container.ss"
|
|
||||||
"snip-dumper.ss")
|
|
||||||
|
|
||||||
;
|
;
|
||||||
;
|
;
|
||||||
|
@ -22,7 +18,7 @@
|
||||||
; ;;;
|
; ;;;
|
||||||
;
|
;
|
||||||
|
|
||||||
(printf "running test2.ss\n")
|
(printf "running test2.rktl\n")
|
||||||
|
|
||||||
(define frame
|
(define frame
|
||||||
(instantiate frame% ()
|
(instantiate frame% ()
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@defclass/title[aligned-editor-canvas% editor-canvas% ()]{
|
@defclass/title[aligned-editor-canvas% editor-canvas% ()]{
|
||||||
|
|
||||||
|
@ -7,4 +7,3 @@ Calls the
|
||||||
@method[aligned-pasteboard<%> realign] method when resized.
|
@method[aligned-pasteboard<%> realign] method when resized.
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
@ -1,9 +1,8 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@defclass/title[aligned-editor-snip% editor-snip% ()]{
|
@defclass/title[aligned-editor-snip% editor-snip% ()]{
|
||||||
|
|
||||||
Calls the @method[aligned-pasteboard<%> realign] method when resized.
|
Calls the @method[aligned-pasteboard<%> realign] method when resized.
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@definterface/title[aligned-pasteboard<%> ()]{
|
@definterface/title[aligned-pasteboard<%> ()]{
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@definterface/title[aligned-pasteboard-parent<%> ()]{
|
@definterface/title[aligned-pasteboard-parent<%> ()]{
|
||||||
|
|
||||||
|
@ -10,4 +10,3 @@ is an @scheme[aligned-pasteboard<%>].
|
||||||
void?]{}
|
void?]{}
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "../common.ss")
|
@(require "../common.rkt")
|
||||||
|
|
||||||
@title[#:style 'toc]{Aligned Pasteboard}
|
@title[#:style 'toc]{Aligned Pasteboard}
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@defclass/title[horizontal-pasteboard% pasteboard% (aligned-pasteboard<%>)]{
|
@defclass/title[horizontal-pasteboard% pasteboard% (aligned-pasteboard<%>)]{
|
||||||
|
|
||||||
|
@ -28,4 +28,3 @@ Passes all arguments to @scheme[super-init].
|
||||||
(resized [snip (is-a?/c snip%)]
|
(resized [snip (is-a?/c snip%)]
|
||||||
[redraw-now? any/c])
|
[redraw-now? any/c])
|
||||||
void?]{}}
|
void?]{}}
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@definterface/title[stretchable-snip<%> ()]{
|
@definterface/title[stretchable-snip<%> ()]{
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@defclass/title[vertical-pasteboard% pasteboard% (aligned-pasteboard<%>)]{
|
@defclass/title[vertical-pasteboard% pasteboard% (aligned-pasteboard<%>)]{
|
||||||
|
|
||||||
|
|
|
@ -1,6 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt" (for-label mrlib/bitmap-label))
|
||||||
(for-label mrlib/bitmap-label))
|
|
||||||
|
|
||||||
@title{Bitmap Label}
|
@title{Bitmap Label}
|
||||||
|
|
||||||
|
|
|
@ -1,14 +1,13 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt" (for-label mrlib/cache-image-snip))
|
||||||
(for-label mrlib/cache-image-snip))
|
|
||||||
|
|
||||||
@title{Cache-image Snip}
|
@title{Cache-image Snip}
|
||||||
|
|
||||||
@defmodule[mrlib/cache-image-snip]{
|
@defmodule[mrlib/cache-image-snip]{
|
||||||
|
|
||||||
The @schememodname[mrlib/cache-image-snip] library provides the core
|
The @schememodname[mrlib/cache-image-snip] library provides the core
|
||||||
data structure for DrRacket's @filepath{image.ss} teachpack. Images in
|
data structure for DrRacket's @filepath{image.rkt} teachpack. Images in
|
||||||
the @filepath{image.ss} teachpack are instances of the
|
the @filepath{image.rkt} teachpack are instances of the
|
||||||
@scheme[cache-image-snip%] class.}
|
@scheme[cache-image-snip%] class.}
|
||||||
|
|
||||||
The library also defines a new type, @scheme[argb], that represents a
|
The library also defines a new type, @scheme[argb], that represents a
|
||||||
|
|
|
@ -1,9 +1,7 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt"
|
||||||
(for-label mrlib/close-icon
|
(for-label mrlib/close-icon
|
||||||
scheme/gui
|
scheme/gui scheme/runtime-path scheme/include))
|
||||||
scheme/runtime-path
|
|
||||||
scheme/include))
|
|
||||||
|
|
||||||
@title{Close Icon}
|
@title{Close Icon}
|
||||||
|
|
||||||
|
|
|
@ -1,7 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt" (for-label mrlib/gif file/gif))
|
||||||
(for-label mrlib/gif
|
|
||||||
file/gif))
|
|
||||||
|
|
||||||
@title{GIF and Animated GIF Writing}
|
@title{GIF and Animated GIF Writing}
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@definterface/title[graph-pasteboard<%> ()]{
|
@definterface/title[graph-pasteboard<%> ()]{
|
||||||
|
|
||||||
|
@ -121,4 +121,3 @@ of an arrowhead for a line that connects (@scheme[from-x],@scheme[from-y]) to (@
|
||||||
}
|
}
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@defmixin/title[graph-pasteboard-mixin (pasteboard%) (graph-pasteboard<%>)]{
|
@defmixin/title[graph-pasteboard-mixin (pasteboard%) (graph-pasteboard<%>)]{
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@definterface/title[graph-snip<%> ()]{
|
@definterface/title[graph-snip<%> ()]{
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss")
|
@(require "common.rkt")
|
||||||
|
|
||||||
@defmixin/title[graph-snip-mixin (snip%) (graph-snip<%>)]{
|
@defmixin/title[graph-snip-mixin (snip%) (graph-snip<%>)]{
|
||||||
}
|
}
|
||||||
|
|
|
@ -1,6 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt" (for-label mrlib/graph))
|
||||||
(for-label mrlib/graph))
|
|
||||||
|
|
||||||
@title[#:style 'toc]{Graphs}
|
@title[#:style 'toc]{Graphs}
|
||||||
|
|
||||||
|
|
|
@ -1,6 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "../common.ss"
|
@(require "../common.rkt" (for-label mrlib/hierlist))
|
||||||
(for-label mrlib/hierlist))
|
|
||||||
|
|
||||||
@definterface/title[hierarchical-list-compound-item<%>
|
@definterface/title[hierarchical-list-compound-item<%>
|
||||||
(hierarchical-list-item<%>)]{
|
(hierarchical-list-item<%>)]{
|
||||||
|
|
|
@ -1,6 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "../common.ss"
|
@(require "../common.rkt" (for-label mrlib/hierlist))
|
||||||
(for-label mrlib/hierlist))
|
|
||||||
|
|
||||||
@title[#:style 'toc]{Hierarchical List Control}
|
@title[#:style 'toc]{Hierarchical List Control}
|
||||||
|
|
||||||
|
|
|
@ -1,6 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "../common.ss"
|
@(require "../common.rkt" (for-label mrlib/hierlist))
|
||||||
(for-label mrlib/hierlist))
|
|
||||||
|
|
||||||
@definterface/title[hierarchical-list-item<%> ()]{
|
@definterface/title[hierarchical-list-item<%> ()]{
|
||||||
|
|
||||||
|
|
|
@ -1,6 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "../common.ss"
|
@(require "../common.rkt" (for-label mrlib/hierlist))
|
||||||
(for-label mrlib/hierlist))
|
|
||||||
|
|
||||||
@defclass/title[hierarchical-list% editor-canvas% ()]{
|
@defclass/title[hierarchical-list% editor-canvas% ()]{
|
||||||
|
|
||||||
|
|
|
@ -1,6 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "../common.ss"
|
@(require "../common.rkt" (for-label mrlib/hierlist))
|
||||||
(for-label mrlib/hierlist))
|
|
||||||
|
|
||||||
@title{Snips in a @scheme[hierarchical-list%] Instance}
|
@title{Snips in a @scheme[hierarchical-list%] Instance}
|
||||||
|
|
||||||
|
|
|
@ -1,6 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt" (for-label mrlib/image-core))
|
||||||
(for-label mrlib/image-core))
|
|
||||||
|
|
||||||
@title{Image Core}
|
@title{Image Core}
|
||||||
|
|
||||||
|
|
|
@ -1,8 +1,6 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt"
|
||||||
(for-label mrlib/include-bitmap
|
(for-label mrlib/include-bitmap scheme/runtime-path scheme/include))
|
||||||
scheme/runtime-path
|
|
||||||
scheme/include))
|
|
||||||
|
|
||||||
@title{Include Bitmap}
|
@title{Include Bitmap}
|
||||||
|
|
||||||
|
|
|
@ -1,7 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt" (for-label mrlib/interactive-value-port scheme/pretty))
|
||||||
(for-label mrlib/interactive-value-port
|
|
||||||
scheme/pretty))
|
|
||||||
|
|
||||||
@title{Interactive Value Port}
|
@title{Interactive Value Port}
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scribble/doc
|
#lang scribble/doc
|
||||||
@(require "common.ss"
|
@(require "common.rkt"
|
||||||
(for-label mrlib/matrix-snip
|
(for-label mrlib/matrix-snip
|
||||||
(only-in mrlib/cache-image-snip
|
(only-in mrlib/cache-image-snip
|
||||||
cache-image-snip%)))
|
cache-image-snip%)))
|
||||||
|
|
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user