From 56cf196320eb913d4a4cac59796d462b95d63f6a Mon Sep 17 00:00:00 2001 From: Jens Axel Soegaard Date: Tue, 28 Aug 2007 20:47:39 +0000 Subject: [PATCH] Moved "A Note on Language Levels" into home.ss. svn: r7207 --- collects/help/servlets/home.ss | 40 ++++++++++++ .../help/servlets/private/split-screen.ss | 11 ++++ collects/help/servlets/scheme/langlevels.ss | 62 ------------------- 3 files changed, 51 insertions(+), 62 deletions(-) delete mode 100644 collects/help/servlets/scheme/langlevels.ss diff --git a/collects/help/servlets/home.ss b/collects/help/servlets/home.ss index 5e752e801c..41b1c71e40 100644 --- a/collects/help/servlets/home.ss +++ b/collects/help/servlets/home.ss @@ -446,6 +446,46 @@ "within DrScheme or MzScheme using ActiveX and COM components. " "Dynamic HTML is used for component presentation and event-handling.") (p "See the " (a ([href ,url-external-mysterx]) "MysterX") " web-site."))) + ;; + ("note-on-language-levels" "A Note on Language Levels" + ((p "DrScheme presents Scheme via a hierarchy of " + (a ([href ,url-helpdesk-languages]) "language levels") ".") + (p "We designed the teaching languages based upon our observations of" + " students in classes and labs over several years. Beginning students" + " tend to make small notational mistakes that produce " + (em "syntactically legal") " Scheme programs with a " + (em "radically different meaning") " than the one intended." + " Even the best students are then surprised by error messages, which" + " might mention concepts not covered in classes, or other unexpected" + " behavior.") + (p "The teaching levels are not ideal for instructors. They are" + " particularly unhelpful for implementing libraries to support course" + " material. But the levels were not designed for this purpose." + " Instead, in order to protect students from unwanted mistakes and to" + " provide them with libraries based on language constructs outside of" + " their knowledge, DrScheme provides an interface designed specially" + " for instructors: " + ,(manual-entry "drscheme" "DrScheme Teachpacks" "Teachpacks") "." + " A Teachpack is a " + ,(manual-entry "mzscheme" "modules" "module") + " that is implemented in Full Scheme; it imports the functions from the" + " teaching languages and the graphics run-time library. The provided" + " values are automatically imported to the run-time of the" + " read-eval-print loop when the student clicks the Execute button." + " In short, Teachpacks provide students the best of both worlds:" + " protection from wanton error messages and unexpected behavior, and" + " powerful support from the instructor.") + (p "We strongly encourage instructors to employ language levels and" + " Teachpacks. In our experience, the restriction of the teaching" + " languages do not interfere with students' programming needs up to," + " and including, junior-level courses on programming languages. It" + " gives students a more productive learning experience than raw Scheme," + " and simplifies the interface between library and user code.") + (p "We also strongly encourage students to point out this page to their" + " instructors.") + (p "Please follow the links on this page for more information. If you" + " have additional questions or comments, please contact us at " + (a ((href "mailto:scheme@plt-scheme.org")) "scheme@plt-scheme.org") "."))) ;; ("odbc" "ODBC" ((p "See " (a ([href ,url-helpdesk-srpersist]) "SrPersist") "."))) diff --git a/collects/help/servlets/private/split-screen.ss b/collects/help/servlets/private/split-screen.ss index f97f1063a2..3d15029eef 100644 --- a/collects/help/servlets/private/split-screen.ss +++ b/collects/help/servlets/private/split-screen.ss @@ -118,6 +118,16 @@ (define (html-left-item item) (match item +<<<<<<< .mine + ['UP (list '(font ((size "-2")) nbsp))] + ['-- (list '(tr (td " ") ((height "4")) (td ((colspan "2")))))] + [('VERBATIM sxml) (list `(tr (td ((align "center")) ,sxml)))] + [(header) (list `(tr (td #;((colspan "2")) ,header)))] + [(header body ...) (list `(tr (td #;((colspan "2")) ,header)) + `(tr (td ,@body)))] + [other (list other)])) + +======= ['UP (list '(font ((size "-2")) nbsp))] ['-- (list '(tr ((height "4")) (td ((colspan "2")))))] [('VERBATIM sxml) (list `(tr (td ((align "center")) ,sxml)))] @@ -126,6 +136,7 @@ `(tr (td ,@body)))] [other (list other)])) +>>>>>>> .r7191 (define (html-right-items items) (mappend html-right-item items)) diff --git a/collects/help/servlets/scheme/langlevels.ss b/collects/help/servlets/scheme/langlevels.ss deleted file mode 100644 index 56aa3370f9..0000000000 --- a/collects/help/servlets/scheme/langlevels.ss +++ /dev/null @@ -1,62 +0,0 @@ -(module langlevels mzscheme - (require "../private/headelts.ss" - "../../private/manuals.ss" - (lib "servlet.ss" "web-server")) - (provide interface-version timeout start) - (define interface-version 'v1) - (define timeout +inf.0) - (define (start initial-request) - (with-errors-to-browser - send/finish - (lambda () - `(html - (head ,hd-css ,@hd-links (title "A Note on Language Levels")) - (body - (h1 "A Note on Language Levels") - (a ([name "language levels"] [value "language levels"])) - (p) - "DrScheme presents Scheme via a hierarchy of " - ,(manual-entry "drscheme" "languages" "language levels") "." - (p) - "We designed the teaching languages based upon our observations of" - " students in classes and labs over several years. Beginning students" - " tend to make small notational mistakes that produce " - (em "syntactically legal") " Scheme programs with a " - (em "radically different meaning") " than the one intended." - " Even the best students are then surprised by error messages, which" - " might mention concepts not covered in classes, or other unexpected" - " behavior." - (p) - "The teaching levels are not ideal for instructors. They are" - " particularly unhelpful for implementing libraries to support course" - " material. But the levels were not designed for this purpose." - " Instead, in order to protect students from unwanted mistakes and to" - " provide them with libraries based on language constructs outside of" - " their knowledge, DrScheme provides an interface designed specially" - " for instructors: " - ,(manual-entry "drscheme" "DrScheme Teachpacks" "Teachpacks") "." - " A Teachpack is a " - ,(manual-entry "mzscheme" "modules" "module") - " that is implemented in Full Scheme; it imports the functions from the" - " teaching languages and the graphics run-time library. The provided" - " values are automatically imported to the run-time of the" - " read-eval-print loop when the student clicks the " - ,(manual-entry "drscheme" "Execute button" "Execute") "." - " In short, Teachpacks provide students the best of both worlds:" - " protection from wanton error messages and unexpected behavior, and" - " powerful support from the instructor." - (p) - "We strongly encourage instructors to employ language levels and" - " Teachpacks. In our experience, the restriction of the teaching" - " languages do not interfere with students' programming needs up to," - " and including, junior-level courses on programming languages. It" - " gives students a more productive learning experience than raw Scheme," - " and simplifies the interface between library and user code." - (p) - "We also strongly encourage students to point out this page to their" - " instructors." - (p) - "Please follow the links on this page for more information. If you" - " have additional questions or comments, please contact us at " - (a ((href "mailto:scheme@plt-scheme.org")) "scheme@plt-scheme.org") - "."))))))