v3.99.0.2

svn: r7706

original commit: 39cedb62edf9258b051a22a29a90be9c6841956f

collects/embedded-gui/info.ss

@@ -1,4 +1,4 @@
-(module info (lib "infotab.ss" "setup")
+(module info setup/infotab
   (define name "Embedded GUI")
   (define doc.txt "doc.txt"))
 

collects/framework/private/application.ss

@@ -1,4 +1,5 @@
-(module application (lib "a-unit.ss")
+#lang scheme/unit
+
   (require "sig.ss")
   
   (import)
@@ -11,4 +12,4 @@
                               (unless (string? x)
                                 (error 'current-app-name
                                        "the app name must be a string"))
-                              x))))
+                              x)))

collects/framework/private/autosave.ss

@@ -1,5 +1,6 @@
 
-(module autosave (lib "a-unit.ss")
+#lang scheme/unit
+
   (require (lib "class.ss")
            (lib "file.ss")
            "sig.ss"
@@ -312,4 +313,4 @@
                (delete-file autosave-name)
                (when tmp-name
                  (delete-file tmp-name))
-               orig-name))))))
+               orig-name)))))

collects/framework/private/canvas.ss

@@ -1,4 +1,4 @@
-(module canvas (lib "a-unit.ss")
+#lang scheme/unit
   (require (lib "class.ss")
            "sig.ss"
            "../preferences.ss"
@@ -178,4 +178,4 @@
   (define -color% (color-mixin basic%))
   (define info% (info-mixin basic%))
   (define delegate% (delegate-mixin basic%))
-  (define wide-snip% (wide-snip-mixin basic%)))
+  (define wide-snip% (wide-snip-mixin basic%))

collects/framework/private/color-model.ss

@@ -1,4 +1,4 @@
-(module color-model (lib "a-unit.ss")
+#lang scheme/unit
   (require (lib "class.ss")
            "sig.ss"
            (lib "mred-sig.ss" "mred")
@@ -265,4 +265,3 @@
   ;; (print-struct #t)
   ;; (xyz->luv (make-xyz 95.0 100.0 141.0))
   ;; (xyz->luv (make-xyz 60.0 80.0 20.0))
-  )

collects/framework/private/color-prefs.ss

@@ -1,4 +1,4 @@
-(module color-prefs (lib "a-unit.ss")
+#lang scheme/unit
   (require (lib "class.ss")
            (lib "etc.ss")
            (lib "mred.ss" "mred")
@@ -482,4 +482,4 @@
                     [(is-a? old style-delta%)
                      (send old set-delta-foreground color)
                      (preferences:set p old)])))
-              color-scheme-colors)))
+              color-scheme-colors))

collects/framework/private/color.ss

@@ -1,4 +1,4 @@
-(module color (lib "a-unit.ss")
+#lang scheme/unit
   (require (lib "class.ss")
            (lib "thread.ss")
            (lib "mred.ss" "mred")
@@ -724,4 +724,4 @@
       
       (super-new)))
   
-  (define text-mode% (text-mode-mixin mode:surrogate-text%)))
+  (define text-mode% (text-mode-mixin mode:surrogate-text%))

collects/framework/private/comment-box.ss

@@ -1,5 +1,6 @@
 
-(module comment-box (lib "a-unit.ss")
+#lang scheme/unit
+
   (require (lib "class.ss")
            (lib "etc.ss")
            (lib "mred.ss" "mred")
@@ -121,4 +122,4 @@
         (make-special-comment "comment"))
       (super-instantiate ())
       (inherit set-snipclass)
-      (set-snipclass snipclass))))
+      (set-snipclass snipclass)))

collects/framework/private/editor.ss

@@ -1,5 +1,5 @@
 
-(module editor (lib "a-unit.ss")
+#lang scheme/unit
   (require (lib "class.ss")
            (lib "string-constant.ss" "string-constants")
            "sig.ss"
@@ -598,4 +598,4 @@
                   (set! callback-running? #f))
                 #f))))
          'framework:update-lock-icon))
-      (super-new))))
+      (super-new)))

collects/framework/private/exit.ss

@@ -1,4 +1,5 @@
-(module exit (lib "a-unit.ss")
+#lang scheme/unit
+
   (require (lib "string-constant.ss" "string-constants")
            "sig.ss"
            "../preferences.ss"
@@ -72,4 +73,4 @@
           (exit)
           (set! is-exiting? #f)))]
       [else
-       (set! is-exiting? #f)])))
+       (set! is-exiting? #f)]))

collects/framework/private/finder.ss

@@ -1,5 +1,5 @@
 
-(module finder (lib "a-unit.ss")
+#lang scheme/unit
   (require (lib "string-constant.ss" "string-constants")
            "sig.ss"
            "../preferences.ss"
@@ -100,4 +100,4 @@
       (apply (case (preferences:get 'framework:file-dialogs)
                [(std) std-get-file]
                [(common) common-get-file])
-             args))))
+             args)))

collects/framework/private/frame.ss

@@ -1,4 +1,4 @@
-(module frame (lib "a-unit.ss")
+#lang scheme/unit
   (require (lib "string-constant.ss" "string-constants")
            (lib "class.ss")
            (lib "include.ss")
@@ -2526,4 +2526,4 @@
   (define searchable% (searchable-text-mixin (searchable-mixin -text%)))
   (define delegate% (delegate-mixin searchable%))
   
-  (define -pasteboard% (pasteboard-mixin open-here%)))
+  (define -pasteboard% (pasteboard-mixin open-here%))

collects/framework/private/group.ss

@@ -1,5 +1,5 @@
 
-(module group (lib "a-unit.ss")
+#lang scheme/unit
   (require (lib "string-constant.ss" "string-constants")
            (lib "class.ss")
            "sig.ss"
@@ -341,4 +341,4 @@
       (internal-get-the-frame-group)))
   
   (define (get-the-frame-group)
-    (internal-get-the-frame-group)))
+    (internal-get-the-frame-group))

collects/framework/private/handler.ss

@@ -1,5 +1,5 @@
 
-(module handler (lib "a-unit.ss")
+#lang scheme/unit
   (require (lib "class.ss")
            (lib "list.ss")
            (lib "hierlist.ss" "hierlist")
@@ -200,14 +200,18 @@
   ;; updates the recent menu preferences 
   ;; with the positions `start' and `end'
   (define (set-recent-position filename start end)
-    (let ([recent-items
+    (let* ([recent-items
-           (filter (λ (x) (string=? (path->string (car x))
+            (preferences:get 'framework:recently-opened-files/pos)]
-                                    (path->string filename)))
+           [new-recent-items
-                   (preferences:get 'framework:recently-opened-files/pos))])
+            (map (λ (x) 
-      (unless (null? recent-items)
+                    (if (string=? (path->string (car x))
-        (let ([recent-item (car recent-items)])
+                                  (path->string filename))
-          (set-car! (cdr recent-item) start)
+                        (list* (car x) start end (cdddr x))
-          (set-car! (cddr recent-item) end)))))
+                        x))
+                 (preferences:get 'framework:recently-opened-files/pos))])
+      (unless (equal? recent-items new-recent-items)
+        (preferences:set 'framework:recently-opened-files/pos
+                         new-recent-items))))
   
   ;; install-recent-items : (is-a?/c menu%) -> void?
   (define (install-recent-items menu)
@@ -389,4 +393,4 @@
         (send *open-directory*
               set-from-file! file))
       (and file
-           (edit-file file)))))
+           (edit-file file))))

collects/framework/private/icon.ss

@@ -1,4 +1,4 @@
-(module icon (lib "a-unit.ss")
+#lang scheme/unit
   (require (lib "class.ss")
            (lib "include-bitmap.ss" "mrlib")
            "bday.ss"
@@ -69,4 +69,4 @@
     (force
      (if (mrf-bday?)
          mrf-off-bitmap
-         gc-off-bitmap))))
+         gc-off-bitmap)))

collects/framework/private/keymap.ss

@@ -1,5 +1,6 @@
 
-(module keymap (lib "a-unit.ss")
+#lang scheme/unit
+
   (require (lib "string-constant.ss" "string-constants")
            (lib "class.ss")
            (lib "list.ss")
@@ -1404,4 +1405,4 @@
                       (λ (keymap)
                         (send keymap chain-to-keymap global #t)
                         (ctki keymap))])
-        (thunk)))))
+        (thunk))))

collects/framework/private/main.ss

@@ -1,4 +1,4 @@
-(module main (lib "a-unit.ss")
+#lang scheme/unit
   (require (lib "class.ss")
            "sig.ss"
            "../preferences.ss"
@@ -298,6 +298,3 @@
   ;(preferences:set 'framework:file-dialogs 'std)
   
   ;; setup the color scheme stuff
-  
-  
-  (void))

collects/framework/private/menu.ss

@@ -1,4 +1,4 @@
-(module menu (lib "a-unit.ss")
+#lang scheme/unit
   (require (lib "class.ss")
            "sig.ss"
            "../preferences.ss"
@@ -45,4 +45,4 @@
   
   (define can-restore-menu-item% (can-restore-mixin menu-item%))
   (define can-restore-checkable-menu-item% (can-restore-mixin checkable-menu-item%))
-  (define can-restore-underscore-menu% (can-restore-underscore-mixin menu%)))
+  (define can-restore-underscore-menu% (can-restore-underscore-mixin menu%))

collects/framework/private/mode.ss

@@ -1,4 +1,4 @@
-(module mode (lib "a-unit.ss")
+#lang scheme/unit
   (require (lib "surrogate.ss")
            (lib "class.ss")
            "sig.ss")
@@ -47,4 +47,4 @@
      (augment #t can-set-size-constraint? ())
      (override can-do-edit-operation? (op) (op recursive?))
      (augment #t can-load-file? (filename format))
-     (augment #t can-save-file? (filename format)))))
+     (augment #t can-save-file? (filename format))))

collects/framework/private/number-snip.ss

@@ -1,5 +1,6 @@
 
-(module number-snip (lib "a-unit.ss")
+#lang scheme/unit
+
   (require "sig.ss"
            (lib "mred-sig.ss" "mred")
            (lib "class.ss")
@@ -515,4 +516,4 @@
   (define (hash-table-bound? ht key)
     (let/ec k
       (hash-table-get ht key (λ () (k #f)))
-      #t)))
+      #t))

collects/framework/private/panel.ss

@@ -1,5 +1,5 @@
 
-(module panel (lib "a-unit.ss")
+#lang scheme/unit
   (require (lib "class.ss")
            "sig.ss"
            (lib "mred-sig.ss" "mred")
@@ -267,10 +267,10 @@
                 [(and gap (send evt button-down? 'left))
                  (set! resizing-dim (event-get-dim evt))
                  (set! resizing-gap gap)]
-                [(and resizing-dim (send evt button-up?))
+                [(send evt button-up? 'left)
                  (set! resizing-dim #f)
                  (set! resizing-gap #f)]
-                [(and resizing-dim (send evt moving?))
+                [(and resizing-dim resizing-gap (send evt moving?))
                  (let-values ([(width height) (get-client-size)])
                    (let* ([before-percentage (gap-before-percentage resizing-gap)]
                           [orig-before (percentage-% before-percentage)]
@@ -419,5 +419,5 @@
   
   (define vertical-dragable% (vertical-dragable-mixin (dragable-mixin vertical-panel%)))
   
-  (define horizontal-dragable% (horizontal-dragable-mixin (dragable-mixin horizontal-panel%))))
+  (define horizontal-dragable% (horizontal-dragable-mixin (dragable-mixin horizontal-panel%)))
 

collects/framework/private/pasteboard.ss

@@ -1,4 +1,4 @@
-(module pasteboard (lib "a-unit.ss")
+#lang scheme/unit
   (require "sig.ss"
            (lib "mred-sig.ss" "mred"))
   
@@ -14,4 +14,4 @@
   (define -keymap% (editor:keymap-mixin standard-style-list%))
   (define file% (editor:file-mixin -keymap%))
   (define backup-autosave% (editor:backup-autosave-mixin file%))
-  (define info% (editor:info-mixin backup-autosave%)))
+  (define info% (editor:info-mixin backup-autosave%))

collects/framework/private/path-utils.ss

@@ -1,4 +1,4 @@
-(module path-utils (lib "a-unit.ss")
+#lang scheme/unit
   (require "sig.ss"
            (lib "mred-sig.ss" "mred"))
   
@@ -54,5 +54,5 @@
             [(eq? (system-type) 'windows)
              (build-path base (bytes->path-element (bytes-append name-bytes #".bak")))]
             [else
-             (build-path base (bytes->path-element (bytes-append name-bytes #"~")))]))))))
+             (build-path base (bytes->path-element (bytes-append name-bytes #"~")))])))))
 

collects/framework/private/preferences.ss

@@ -26,7 +26,8 @@ the state transitions / contracts are:
 
 |#
 
-(module preferences (lib "a-unit.ss")
+#lang scheme/unit
+
   (require (lib "string-constant.ss" "string-constants")
 	   (lib "class.ss")
            (lib "file.ss")
@@ -132,7 +133,7 @@ the state transitions / contracts are:
       (add-to-existing-children
        titles 
        make-panel
-       (λ (new-subtree) (set! ppanels (cons new-subtree ppanels))))))
+       (λ (new-ppanels) (set! ppanels new-ppanels)))))
   
   ;; add-to-existing-children : (listof string) (panel -> panel) (ppanel -> void)
   ;; adds the child specified by the path in-titles to the tree.
@@ -143,7 +144,7 @@ the state transitions / contracts are:
                [banger banger])
       (cond
         [(null? children)
-         (banger (build-new-subtree (cons title titles) make-panel))]
+         (banger (list (build-new-subtree (cons title titles) make-panel)))]
         [else
          (let ([child (car children)])
            (if (string=? (ppanel-name child) title)
@@ -157,19 +158,17 @@ the state transitions / contracts are:
                    (ppanel-interior-children child)
                    (car titles)
                    (cdr titles)
-                   (λ (x)
+                   (λ (children)
                      (set-ppanel-interior-children! 
-                      (cons
+                      child
-                       x
+                      children)))])
-                       (ppanel-interior-children child)))))])
                (loop 
                 (cdr children)
                 title
                 titles
-                (λ (x)
+                (λ (children)
-                  (set-cdr! children
+                   (banger (cons child children))))))])))
-                            (cons x (cdr children)))))))])))
+
-  
   ;; build-new-subtree : (cons string (listof string)) (panel -> panel) -> ppanel
   (define (build-new-subtree titles make-panel)
     (let loop ([title (car titles)]
@@ -641,4 +640,4 @@ the state transitions / contracts are:
            main))))
     (set! local-add-font-panel void))
   
-  (define (add-font-panel) (local-add-font-panel)))
+  (define (add-font-panel) (local-add-font-panel))

collects/framework/private/scheme.ss

@@ -1,7 +1,7 @@
 ;; originally by Dan Grossman
 ;; 6/30/95
 
-(module scheme (lib "a-unit.ss")
+#lang scheme/unit
   (require "collapsed-snipclass-helpers.ss"
            (lib "string-constant.ss" "string-constants")
            (lib "class.ss")
@@ -1757,23 +1757,27 @@
         (send text change-style sd 0 (send text last-position))))
     (define (update-pref sel x)
       (let ([pref (preferences:get 'framework:tabify)])
-        (set-car! (sel pref) x)
+        (let ([pref
-        (preferences:set 'framework:tabify pref)))
+               (let loop ([pref pref][sel sel])
+                 (if (zero? sel)
+                     (cons sel (cdr pref))
+                     (cons (car pref) (loop (cdr pref) (sub1 sel)))))])
+          (preferences:set 'framework:tabify pref))))
     (define-values (begin-list-box begin-regexp-text) 
       (make-column "Begin"
                    'begin
                    begin-keywords
-                   (λ (x) (update-pref cdr x))))
+                   (λ (x) (update-pref 1 x))))
     (define-values (define-list-box define-regexp-text) 
       (make-column "Define" 
                    'define 
                    define-keywords
-                   (λ (x) (update-pref cddr x))))
+                   (λ (x) (update-pref 2 x))))
     (define-values (lambda-list-box lambda-regexp-text)
       (make-column "Lambda"
                    'lambda
                    lambda-keywords
-                   (λ (x) (update-pref cdddr x))))
+                   (λ (x) (update-pref 3 x))))
     (define (update-list-boxes hash-table)
       (let-values ([(begin-keywords define-keywords lambda-keywords) (get-keywords hash-table)]
                    [(reset) (λ (list-box keywords)
@@ -1792,6 +1796,4 @@
     (preferences:add-callback 'framework:tabify (λ (p v) (update-gui v)))
     (update-gui (preferences:get 'framework:tabify))
     main-panel)
-  
-  )
 

collects/framework/private/text.ss

@@ -5,7 +5,7 @@ WARNING: printf is rebound in the body of the unit to always
 
 |#
 
-(module text (lib "a-unit.ss")
+#lang scheme/unit
   (require (lib "string-constant.ss" "string-constants")
            (lib "class.ss")
            (lib "match.ss")
@@ -2814,4 +2814,4 @@ designates the character that triggers autocompletion
   (define clever-file-format% (clever-file-format-mixin file%))
   (define backup-autosave% (editor:backup-autosave-mixin clever-file-format%))
   (define searching% (searching-mixin backup-autosave%))
-  (define info% (info-mixin (editor:info-mixin searching%))))
+  (define info% (info-mixin (editor:info-mixin searching%)))

collects/framework/private/version.ss

@@ -1,4 +1,5 @@
-(module version (lib "a-unit.ss")
+#lang scheme/unit
+
   (require "sig.ss"
            (lib "mred-sig.ss" "mred")
            (lib "string.ss")
@@ -19,4 +20,4 @@
   
   (define (add-spec sep num)
     (set! specs (cons (list (expr->string sep) (format "~a" num))
-                      specs))))
+                      specs)))

collects/hierlist/hierlist-sig.ss

@@ -1,11 +1,10 @@
-(module hierlist-sig (lib "a-signature.ss")
+#lang scheme/signature
-  hierarchical-list%
-  hierarchical-list-item<%>
-  hierarchical-list-item%
-  hierarchical-list-compound-item<%>
-  hierarchical-list-compound-item%
-  
-  hierarchical-item-snip%
-  hierarchical-list-snip%)
 
+hierarchical-list%
+hierarchical-list-item<%>
+hierarchical-list-item%
+hierarchical-list-compound-item<%>
+hierarchical-list-compound-item%
 
+hierarchical-item-snip%
+hierarchical-list-snip%

collects/hierlist/hierlist-unit.ss

@@ -338,30 +338,33 @@
            [depth dpth]
            [parent-snip parent-snp]
            [children null]
-	   [last-child #f]
+	   [new-children null]
 	   [no-sublists? #f])
           (private
+            [append-children! (lambda ()
+                                (unless (null? new-children)
+                                  (set! children (append children (reverse new-children)))
+                                  (set! new-children null)))]
             [make-whitespace (lambda () (make-object whitespace-snip%))]
             [insert-item 
              (lambda (mixin snip% whitespace?)
                (let ([s (make-object snip% this top top-select (add1 depth) mixin)])
                  (begin-edit-sequence)
-                 (unless (null? children)
+                 (unless (and (null? children)
+                              (null? new-children))
                    (insert #\newline (last-position)))
                  (when whitespace?
 		   (insert (make-whitespace) (last-position)))
                  (insert s (last-position))
                  (end-edit-sequence)
-		 (let ([p (list s)])
+                 (set! new-children (cons s new-children))
-		   (if last-child
-		       (set-cdr! last-child p)
-		       (set! children (append children p)))
-		   (set! last-child p))
                  (send s get-item)))])
           (public
             [get-parent-snip (lambda () parent-snip)]
             [deselect-all 
-             (lambda () (for-each (lambda (x) (send x deselect-all)) children))]
+             (lambda () 
+               (append-children!)
+               (for-each (lambda (x) (send x deselect-all)) children))]
             [new-item 
              (case-lambda
               [() (new-item (lambda (x) x))]
@@ -376,12 +379,16 @@
                (insert-item mixin hierarchical-list-snip% #f)])]
 	    [set-no-sublists
 	     (lambda (no?)
+               (append-children!)
 	       (unless (null? children)
 		 (error 'set-no-sublists "cannot change sublist mode because the list is non-empty"))
 	       (set! no-sublists? (and no? #t)))]
-            [get-items (lambda () (map (lambda (x) (send x get-item)) children))]
+            [get-items (lambda () 
+                         (append-children!)
+                         (map (lambda (x) (send x get-item)) children))]
             [delete-item
              (lambda (i)
+               (append-children!)
                (let loop ([pos 0][l children][others null])
                  (cond
                    [(null? l) (error 'hierarchical-list-compound-item::delete-item "item not found: ~a" i)]
@@ -389,12 +396,12 @@
 		    (send top ensure-not-selected i)
                     (send (car l) deselect-all)
                     (set! children (append (reverse others) (cdr l)))
-		    (set! last-child #f)
                     (let ([s (line-start-position pos)]
                           [e (line-end-position pos)])
                       (delete (if (zero? s) s (sub1 s)) (if (zero? s) (add1 e) e)))]
                    [else (loop (add1 pos) (cdr l) (cons (car l) others))])))]
             [sort (opt-lambda (less-than? [recur? #t])
+                    (append-children!)
                     (let ([l (sort* children
                                     (lambda (a b)
                                       (less-than? (send a get-item)
@@ -424,12 +431,12 @@
                         (unless (null? l)
                           (delete)) ; delete last #\newline
                         (set! children l)
-			(set! last-child #f)
                         (when to-scroll-to
                           (send (send to-scroll-to get-item) scroll-to)))
                       (end-edit-sequence)))]
             [reflow-items
              (lambda ()
+               (append-children!)
                (for-each
                 (lambda (c)
                   (send c reflow-item))

collects/mred/lang/reader.ss

@@ -1,4 +1,2 @@
-(module reader mzscheme
+(module reader syntax/module-reader
-  (require (lib "module-reader.ss" "syntax"))
+  mred)
-
-  (provide-module-reader (lib "main.ss" "mred" "lang")))

collects/mred/main.ss

@@ -0,0 +1,3 @@
+(module main scheme/base
+  (require "mred.ss")
+  (provide (all-from-out "mred.ss")))

collects/mred/mred-sig.ss

@@ -1,206 +1,205 @@
 
-(module mred-sig (lib "a-signature.ss")
+#lang scheme/signature
-     add-color<%>
-     add-editor-keymap-functions
-     add-pasteboard-keymap-functions
-     add-text-keymap-functions
-     append-editor-font-menu-items
-     append-editor-operation-menu-items
-     application-about-handler
-     application-file-handler
-     application-preferences-handler
-     application-quit-handler
-     area-container-window<%>
-     area-container<%>
-     area<%>
-     begin-busy-cursor
-     bell
-     bitmap%
-     bitmap-dc%
-     brush%
-     brush-list%
-     button%
-     can-get-page-setup-from-user?
-     canvas%
-     canvas<%>
-     check-box%
-     check-for-break
-     checkable-menu-item%
-     choice%
-     clipboard-client%
-     clipboard<%>
-     color%
-     color-database<%>
-     combo-field%
-     control-event%
-     control<%>
-     current-eventspace
-     current-eventspace-has-menu-root?
-     current-eventspace-has-standard-menus?
-     current-ps-afm-file-paths
-     current-ps-cmap-file-paths
-     current-ps-setup
-     current-text-keymap-initializer
-     cursor%
-     dc<%>
-     dc-path%
-     dialog%
-     editor-admin%
-     editor-canvas%
-     editor-data%
-     editor-data-class%
-     editor-data-class-list<%>
-     editor-set-x-selection-mode
-     editor-snip%
-     editor-snip-editor-admin<%>
-     editor-stream-in%
-     editor-stream-in-base%
-     editor-stream-in-bytes-base%
-     editor-stream-out%
-     editor-stream-out-base%
-     editor-stream-out-bytes-base%
-     editor-wordbreak-map%
-     editor<%>
-     end-busy-cursor
-     event%
-     event-dispatch-handler
-     eventspace-handler-thread
-     eventspace-shutdown?
-     eventspace?
-     file-creator-and-type
-     find-graphical-system-path
-     flush-display
-     font%
-     font-list%
-     font-name-directory<%>
-     frame%
-     gauge%
-     get-choices-from-user
-     get-color-from-user
-     get-default-shortcut-prefix
-     get-directory
-     get-display-depth
-     get-display-left-top-inset
-     get-display-size
-     get-face-list
-     get-family-builtin-face
-     get-file
-     get-file-list
-     get-font-from-user
-     get-page-setup-from-user
-     get-panel-background
-     get-ps-setup-from-user
-     get-resource
-     get-text-from-user
-     get-the-editor-data-class-list
-     get-the-snip-class-list
-     get-top-level-edit-target-window
-     get-top-level-focus-window
-     get-top-level-windows
-     get-window-text-extent
-     gl-config%
-     gl-context<%>
-     graphical-read-eval-print-loop
-     group-box-panel%
-     grow-box-spacer-pane%
-     hide-cursor-until-moved
-     horizontal-pane%
-     horizontal-panel%
-     tab-panel%
-     image-snip%
-     is-busy?
-     is-color-display?
-     key-event%
-     keymap%
-     label->plain-label
-     labelled-menu-item<%>
-     list-box%
-     list-control<%>
-     make-eventspace
-     make-namespace-with-mred
-     map-command-as-meta-key
-     menu%
-     menu-bar%
-     menu-control-font
-     menu-item%
-     menu-item-container<%>
-     menu-item<%>
-     message%
-     message-box
-     message+check-box
-     message-box/custom
-     message+check-box/custom
-     mouse-event%
-     mult-color<%>
-     normal-control-font
-     open-input-graphical-file
-     open-input-text-editor
-     open-output-text-editor
-     pane%
-     panel%
-     pasteboard%
-     pen%
-     pen-list%
-     play-sound
-     point%
-     popup-menu%
-     post-script-dc%
-     printer-dc%
-     ps-setup%
-     put-file
-     queue-callback
-     radio-box%
-     readable-snip<%>
-     read-editor-global-footer
-     read-editor-global-header
-     read-editor-version
-     region%
-     register-collecting-blit
-     scroll-event%
-     selectable-menu-item<%>
-     send-event
-     send-message-to-window
-     separator-menu-item%
-     sleep/yield
-     slider%
-     small-control-font
-     snip%
-     snip-admin%
-     snip-class%
-     snip-class-list<%>
-     special-control-key
-     special-option-key
-     string-snip%
-     style-delta%
-     style-list%
-     style<%>
-     subarea<%>
-     subwindow<%>
-     tab-snip%
-     text%
-     text-editor-load-handler
-     text-field%
-     the-brush-list
-     the-clipboard
-     the-color-database
-     the-editor-wordbreak-map
-     the-font-list
-     the-font-name-directory
-     the-pen-list
-     the-style-list
-     the-x-selection-clipboard
-     timer%
-     tiny-control-font
-     top-level-window<%>
-     unregister-collecting-blit
-     vertical-pane%
-     vertical-panel%
-     view-control-font
-     window<%>
-     write-editor-global-footer
-     write-editor-global-header
-     write-editor-version
-     write-resource
-     yield
-     )
 
+add-color<%>
+add-editor-keymap-functions
+add-pasteboard-keymap-functions
+add-text-keymap-functions
+append-editor-font-menu-items
+append-editor-operation-menu-items
+application-about-handler
+application-file-handler
+application-preferences-handler
+application-quit-handler
+area-container-window<%>
+area-container<%>
+area<%>
+begin-busy-cursor
+bell
+bitmap%
+bitmap-dc%
+brush%
+brush-list%
+button%
+can-get-page-setup-from-user?
+canvas%
+canvas<%>
+check-box%
+check-for-break
+checkable-menu-item%
+choice%
+clipboard-client%
+clipboard<%>
+color%
+color-database<%>
+combo-field%
+control-event%
+control<%>
+current-eventspace
+current-eventspace-has-menu-root?
+current-eventspace-has-standard-menus?
+current-ps-afm-file-paths
+current-ps-cmap-file-paths
+current-ps-setup
+current-text-keymap-initializer
+cursor%
+dc<%>
+dc-path%
+dialog%
+editor-admin%
+editor-canvas%
+editor-data%
+editor-data-class%
+editor-data-class-list<%>
+editor-set-x-selection-mode
+editor-snip%
+editor-snip-editor-admin<%>
+editor-stream-in%
+editor-stream-in-base%
+editor-stream-in-bytes-base%
+editor-stream-out%
+editor-stream-out-base%
+editor-stream-out-bytes-base%
+editor-wordbreak-map%
+editor<%>
+end-busy-cursor
+event%
+event-dispatch-handler
+eventspace-handler-thread
+eventspace-shutdown?
+eventspace?
+file-creator-and-type
+find-graphical-system-path
+flush-display
+font%
+font-list%
+font-name-directory<%>
+frame%
+gauge%
+get-choices-from-user
+get-color-from-user
+get-default-shortcut-prefix
+get-directory
+get-display-depth
+get-display-left-top-inset
+get-display-size
+get-face-list
+get-family-builtin-face
+get-file
+get-file-list
+get-font-from-user
+get-page-setup-from-user
+get-panel-background
+get-ps-setup-from-user
+get-resource
+get-text-from-user
+get-the-editor-data-class-list
+get-the-snip-class-list
+get-top-level-edit-target-window
+get-top-level-focus-window
+get-top-level-windows
+get-window-text-extent
+gl-config%
+gl-context<%>
+graphical-read-eval-print-loop
+group-box-panel%
+grow-box-spacer-pane%
+hide-cursor-until-moved
+horizontal-pane%
+horizontal-panel%
+tab-panel%
+image-snip%
+is-busy?
+is-color-display?
+key-event%
+keymap%
+label->plain-label
+labelled-menu-item<%>
+list-box%
+list-control<%>
+make-eventspace
+make-namespace-with-mred
+map-command-as-meta-key
+menu%
+menu-bar%
+menu-control-font
+menu-item%
+menu-item-container<%>
+menu-item<%>
+message%
+message-box
+message+check-box
+message-box/custom
+message+check-box/custom
+mouse-event%
+mult-color<%>
+normal-control-font
+open-input-graphical-file
+open-input-text-editor
+open-output-text-editor
+pane%
+panel%
+pasteboard%
+pen%
+pen-list%
+play-sound
+point%
+popup-menu%
+post-script-dc%
+printer-dc%
+ps-setup%
+put-file
+queue-callback
+radio-box%
+readable-snip<%>
+read-editor-global-footer
+read-editor-global-header
+read-editor-version
+region%
+register-collecting-blit
+scroll-event%
+selectable-menu-item<%>
+send-event
+send-message-to-window
+separator-menu-item%
+sleep/yield
+slider%
+small-control-font
+snip%
+snip-admin%
+snip-class%
+snip-class-list<%>
+special-control-key
+special-option-key
+string-snip%
+style-delta%
+style-list%
+style<%>
+subarea<%>
+subwindow<%>
+tab-snip%
+text%
+text-editor-load-handler
+text-field%
+the-brush-list
+the-clipboard
+the-color-database
+the-editor-wordbreak-map
+the-font-list
+the-font-name-directory
+the-pen-list
+the-style-list
+the-x-selection-clipboard
+timer%
+tiny-control-font
+top-level-window<%>
+unregister-collecting-blit
+vertical-pane%
+vertical-panel%
+view-control-font
+window<%>
+write-editor-global-footer
+write-editor-global-header
+write-editor-version
+write-resource
+yield

collects/mred/mred.ss

@@ -36,11 +36,9 @@
   (wx:set-dialogs get-file put-file get-ps-setup-from-user message-box)
 
   ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-  
+
-  (define mred-module-name ((current-module-name-resolver)
+  (define mred-module-name '(lib "mred/mred.ss"))
-			    '(lib "mred.ss" "mred") #f #f))
+  (define class-module-name '(lib "scheme/class.ss"))
-  (define class-module-name ((current-module-name-resolver)
-			     '(lib "class.ss") #f #f))
 
   (define make-namespace-with-mred
     (opt-lambda ([flag 'mred])

collects/mred/private/kernel.ss

@@ -9,11 +9,11 @@
   ;;  the library compiles with setup-plt in mzscheme.
   
   (define kernel:initialize-primitive-object
-    (dynamic-require '#%mred-kernel 'initialize-primitive-object))
+    (dynamic-require ''#%mred-kernel 'initialize-primitive-object))
   (define kernel:primitive-class-find-method
-    (dynamic-require '#%mred-kernel 'primitive-class-find-method))
+    (dynamic-require ''#%mred-kernel 'primitive-class-find-method))
   (define kernel:primitive-class-prepare-struct-type!
-    (dynamic-require '#%mred-kernel 'primitive-class-prepare-struct-type!))
+    (dynamic-require ''#%mred-kernel 'primitive-class-prepare-struct-type!))
 
   (define-syntax define-constant
     (lambda (stx)
@@ -28,7 +28,7 @@
 				     #f)])
 	   (syntax
 	    (begin
-	      (define kernel:name (dynamic-require '#%mred-kernel 'name))
+	      (define kernel:name (dynamic-require ''#%mred-kernel 'name))
 	      (provide (protect (rename kernel:name name))))))])))
 
   (define-syntax define-function
@@ -76,7 +76,7 @@
 		 (with-syntax ([(old ...) (datum->syntax-object #f old #f)]
 			       [(new ...) (datum->syntax-object #f new #f)])
 		   (syntax
-		    (define name (let ([c (dynamic-require '#%mred-kernel 'name)])
+		    (define name (let ([c (dynamic-require ''#%mred-kernel 'name)])
 				   (make-primitive-class
 				    (lambda (class prop:object preparer dispatcher)
 				      (kernel:primitive-class-prepare-struct-type! 

collects/mred/private/mritem.ss

@@ -373,12 +373,15 @@
 	[-append-list-string (lambda (i)
 			       (set! content (append content (list i))))]
 	[-set-list-string (lambda (i s)
-			    (set-car! (list-tail content i) (string->immutable-string s)))]
+                            (set! content (let loop ([content content][i i])
+                                            (if (zero? i)
+                                                (cons (string->immutable-string s) (cdr content))
+                                                (cons (car content) (loop (cdr content) (sub1 i)))))))]
 	[-delete-list-item (lambda (pos)
-			     (if (zero? pos)
+                             (set! content (let loop ([content content][pos pos])
-				 (set! content (cdr content))
+                                            (if (zero? pos)
-				 (set-cdr! (list-tail content (sub1 pos)) 
+                                                (cdr content)
-					   (list-tail content (add1 pos)))))]
+                                                (cons (car content) (loop (cdr content) (sub1 pos)))))))]
 	[-set-list-strings (lambda (l)
 			     (set! content (map string->immutable-string l)))])
       (private-field

collects/mred/private/mrmenu.ss

@@ -110,7 +110,7 @@
 		    (lambda (l)
 		      (check-label-string '(method labelled-menu-item<%> set-label) l)
 		      (set! label (string->immutable-string l))
-		      (set-car! (send wx get-menu-data) l)  ; for meta-shortcuts
+		      (set-mcar! (send wx get-menu-data) l)  ; for meta-shortcuts
 		      (set! plain-label (string->immutable-string (wx:label->plain-label l)))
 		      (when shown?
 			(if in-menu?
@@ -152,7 +152,7 @@
 	 (lambda ()
 	   (when help-string
 	     (set! help-string (string->immutable-string help-string)))
-	   (set! wx (set-wx (make-object wx-menu-item% this (cons label #f) #t)))
+	   (set! wx (set-wx (make-object wx-menu-item% this (mcons label #f) #t)))
 	   (set! wx-parent (send (mred->wx parent) get-container))
 	   (super-init wx)
 	   (when keymap (send wx set-keymap keymap))))
@@ -212,9 +212,9 @@
 
   (define default-prefix
     (case (system-type)
-      [(unix) (list-immutable default-x-prefix)]
+      [(unix) (list default-x-prefix)]
-      [(windows) (list-immutable 'ctl)]
+      [(windows) (list 'ctl)]
-      [(macosx) (list-immutable 'cmd)]))
+      [(macosx) (list 'cmd)]))
 
   (define (get-default-shortcut-prefix)
     default-prefix)
@@ -238,7 +238,7 @@
 		   (check-instance '(method selectable-menu-item<%> command) wx:control-event% 'control-event% #f e)
 		   (void (callback this e)))])
       (private-field
-        [prefix (apply list-immutable shrtcut-prefix)])
+        [prefix shrtcut-prefix])
       (private
 	[calc-labels (lambda (label)
 		       (let* ([new-label (if shortcut
@@ -392,7 +392,7 @@
 	   (set! wx-menu (make-object wx-menu% this #f void #f))
 	   (super-init parent label help-string wx-menu #f (send wx-menu get-keymap) (lambda (x) x) void)
 	   (let ([wx-item (mred->wx this)])
-	     (set-cdr! (send wx-item get-menu-data) wx-menu) ; for meta-shortcuts
+	     (set-mcdr! (send wx-item get-menu-data) wx-menu) ; for meta-shortcuts
 	     (send wx-item set-wx-menu wx-menu)))))))
 
   (define menu-bar%

collects/mred/private/mrpanel.ss

@@ -154,7 +154,10 @@
 			   (check-item 'set-item-label i)
 			   (check-label-string '(method tab-panel% set-item-label) s)
 			   (let ([s (string->immutable-string s)])
-			     (set-car! (list-tail save-choices i) s)
+                             (set! save-choices (let loop ([save-choices save-choices][i i])
+                                                  (if (zero? i)
+                                                      (cons s (cdr save-choices))
+                                                      (cons (car save-choices) (loop (cdr save-choices) (sub1 i))))))
 			     (send (mred->wx tabs) set-label i s))))]
 	[set
 	 (entry-point (lambda (l) 

collects/mred/private/path-dialog.ss

@@ -245,7 +245,7 @@
                               (directory-list))]
                      [pnames '()])
             (if (null? paths)
-              (let ([ps (sort! pnames pname<?)])
+              (let ([ps (sort pnames pname<?)])
                 (if (root? dir) ps (cons up-dir-pname ps)))
               (let* ([path   (car paths)]
                      [paths  (cdr paths)]

collects/mred/private/snipfile.ss

@@ -211,7 +211,9 @@
       (dynamic-wind
 	  (lambda () (void))
 	  (lambda ()
-	    (parameterize ([read-accept-compiled #t])
+	    (parameterize ([read-accept-compiled #t]
+                           [read-on-demand-source (and (load-on-demand-enabled)
+                                                       (path->complete-path filename))])
 	      (if expected-module
 		  (with-module-reading-parameterization 
 		   (lambda ()

collects/mzscheme/lang/reader.ss

@@ -1,5 +1,2 @@
-(module reader mzscheme
+(module reader syntax/module-reader
-  (require (lib "module-reader.ss" "syntax"))
+  mzscheme)
-
-  (provide-module-reader mzscheme))
-

collects/scheme/gui.ss

@@ -0,0 +1,4 @@
+(module gui scheme
+  (require mred)
+  (provide (all-from-out scheme)
+           (all-from-out mred)))

collects/scheme/gui/init.ss

@@ -0,0 +1,8 @@
+
+(module init scheme/gui
+  (require (only-in scheme/init))
+
+  (current-load text-editor-load-handler)
+
+  (provide (all-from-out scheme/gui)
+           (all-from-out scheme/init)))

collects/scheme/gui/lang/reader.ss

@@ -0,0 +1,2 @@
+(module reader syntax/module-reader
+  scheme/gui)

collects/scribblings/gui/add-color-intf.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @definterface/title[add-color<%> ()]{

collects/scribblings/gui/area-container-intf.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @definterface/title[area-container<%> (area<%>)]{

collects/scribblings/gui/area-container-window-intf.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @definterface/title[area-container-window<%> (area-container<%> window<%>)]{

collects/scribblings/gui/area-intf.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @definterface/title[area<%> ()]{

collects/scribblings/gui/blurbs.ss

@@ -1,12 +1,12 @@
-#reader(lib "reader.ss" "scribble")
+#readerscribble/reader
-(module blurbs (lib "lang.ss" "big")
+(module blurbs scheme/base
-  (require (lib "struct.ss" "scribble")
+  (require scribble/struct
-           (lib "manual.ss" "scribble")
+           scribble/manual
-           (lib "scheme.ss" "scribble")
+           scribble/scheme
-           (lib "decode.ss" "scribble"))
+           scribble/decode
-  (require-for-label (lib "mred.ss" "mred"))
+           (for-label mred))
 
-  (provide (all-defined-except p))
+  (provide (except-out (all-defined-out) p))
 
   (define (p . l)
     (decode-paragraph l))
@@ -160,7 +160,7 @@ information@|details|, even if the editor currently has delayed refreshing (see
                @item{@method[dc<%> end-doc]}}
       @p{Attempts to use a drawing method outside of an active page raises an exception.})))
 
-  (define reference-doc '(lib "reference.scrbl" "scribblings" "reference"))
+  (define reference-doc '(lib "scribblings/reference/reference.scrbl"))
 
   (define SeeMzParam @elem{(see @secref[#:doc reference-doc "parameters"])})
   

collects/scribblings/gui/button-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[button% object% (control<%>)]{

collects/scribblings/gui/canvas-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[canvas% object% (canvas<%>)]{

collects/scribblings/gui/canvas-intf.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @definterface/title[canvas<%> (subwindow<%>)]{

collects/scribblings/gui/check-box-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[check-box% object% (control<%>)]{

collects/scribblings/gui/checkable-menu-item-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[checkable-menu-item% object% (selectable-menu-item<%>)]{

collects/scribblings/gui/choice-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[choice% object% (list-control<%>)]{

collects/scribblings/gui/clipboard-client-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[clipboard-client% object% ()]{

collects/scribblings/gui/clipboard-intf.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @definterface/title[clipboard<%> ()]{

collects/scribblings/gui/combo-field-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[combo-field% text-field% ()]{

collects/scribblings/gui/common.ss

@@ -1,22 +1,22 @@
 
-(module common mzscheme
+(module common scheme/base
-  (require (lib "manual.ss" "scribble")
+  (require scribble/manual
-           (lib "basic.ss" "scribble")
+           scribble/basic
-           (lib "class.ss")
+           mzlib/class
-           (lib "contract.ss")
+           mzlib/contract
            "blurbs.ss"
-           (only "../reference/mz.ss" AllUnix exnraise))
+           (only-in "../reference/mz.ss" AllUnix exnraise))
-  (provide (all-from (lib "manual.ss" "scribble"))
+  (provide (all-from-out scribble/manual)
-           (all-from (lib "basic.ss" "scribble"))
+           (all-from-out scribble/basic)
-           (all-from (lib "class.ss"))
+           (all-from-out mzlib/class)
-           (all-from (lib "contract.ss"))
+           (all-from-out mzlib/contract)
-           (all-from "blurbs.ss")
+           (all-from-out "blurbs.ss")
-           (all-from "../reference/mz.ss"))
+           (all-from-out "../reference/mz.ss"))
 
-  (require-for-label (lib "mred.ss" "mred")
+  (require (for-label mred
-                     (lib "class.ss")
+                      mzlib/class
-                     (lib "lang.ss" "big"))
+                      scheme/base))
-  (provide-for-label (all-from (lib "mred.ss" "mred"))
+  (provide (for-label (all-from-out mred)
-                     (all-from (lib "class.ss"))
+                      (all-from-out mzlib/class)
-                     (all-from (lib "lang.ss" "big"))))
+                      (all-from-out scheme/base))))
 

collects/scribblings/gui/control-event-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[control-event% event% ()]{

collects/scribblings/gui/control-intf.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @definterface/title[control<%> (subwindow<%>)]{

collects/scribblings/gui/cursor-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[cursor% object% ()]{

collects/scribblings/gui/diagrams.ss

@@ -1,9 +1,8 @@
-(module diagrams mzscheme
+(module diagrams scheme/base
-  (require (lib "string.ss")
+  (require scribble/struct
-           (lib "struct.ss" "scribble")
+           scribble/scheme
-           (lib "scheme.ss" "scribble")
+           scribble/manual
-           (lib "manual.ss" "scribble"))
+           (for-label mred))
-  (require-for-label (lib "mred.ss" "mred"))
 
   (provide diagram->table
            short-windowing-diagram

collects/scribblings/gui/dialog-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[dialog% object% (top-level-window<%>)]{

collects/scribblings/gui/dialog-funcs.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @title{Dialogs}
@@ -503,4 +503,4 @@ Returns @scheme[#t] if the current platform (Mac OS X) supports a
  created. Returns @scheme[#f] if no separate page-layout dialog is
  needed (Windows and Unix).
 
-}
+}

collects/scribblings/gui/editor-admin-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[editor-admin% object% ()]{

collects/scribblings/gui/editor-canvas-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[editor-canvas% object% (canvas<%>)]{

collects/scribblings/gui/editor-classes.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 @require["diagrams.ss"]
 

collects/scribblings/gui/editor-data-class-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[editor-data-class% object% ()]{

collects/scribblings/gui/editor-data-class-list-intf.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @definterface/title[editor-data-class-list<%> ()]{

collects/scribblings/gui/editor-data-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[editor-data% object% ()]{

collects/scribblings/gui/editor-funcs.scrbl

@@ -1,6 +1,6 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
-@require[(lib "bnf.ss" "scribble")]
+@require[scribble/bnf]
 
 @title{Editor Functions}
 

collects/scribblings/gui/editor-intf.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @definterface/title[editor<%> ()]{

collects/scribblings/gui/editor-overview.scrbl

@@ -1,5 +1,5 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
-@require[(lib "bnf.ss" "scribble")]
+@require[scribble/bnf]
 @require["common.ss"]
 
 @title[#:tag "editor-overview"]{Editor}

collects/scribblings/gui/editor-snip-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[editor-snip% snip% ()]{

collects/scribblings/gui/editor-snip-editor-admin-intf.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @definterface/title[editor-snip-editor-admin<%> ()]{

collects/scribblings/gui/editor-stream-in-base-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[editor-stream-in-base% object% ()]{

collects/scribblings/gui/editor-stream-in-bytes-base-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[editor-stream-in-bytes-base% editor-stream-in-base% ()]{

collects/scribblings/gui/editor-stream-in-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[editor-stream-in% object% ()]{

collects/scribblings/gui/editor-stream-out-base-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[editor-stream-out-base% object% ()]{

collects/scribblings/gui/editor-stream-out-bytes-base-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[editor-stream-out-bytes-base% editor-stream-out-base% ()]{

collects/scribblings/gui/editor-stream-out-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[editor-stream-out% object% ()]{

collects/scribblings/gui/editor-wordbreak-map-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[editor-wordbreak-map% object% ()]{

collects/scribblings/gui/event-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[event% object% ()]{

collects/scribblings/gui/eventspace-funcs.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @title[#:tag "eventspace-funcs"]{Eventspaces}
@@ -230,4 +230,4 @@ Returns the handler thread of the given eventspace. If the handler
 
 
 
-}
+}

collects/scribblings/gui/font-funcs.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @title{Fonts}

collects/scribblings/gui/frame-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[frame% object% (top-level-window<%>)]{

collects/scribblings/gui/gauge-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[gauge% object% (control<%>)]{

collects/scribblings/gui/global-draw-funcs.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @title{Global Graphics}

collects/scribblings/gui/group-box-panel-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[group-box-panel% vertical-panel% ()]{

collects/scribblings/gui/grow-box-spacer-pane-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[grow-box-spacer-pane% pane% ()]{

collects/scribblings/gui/gui.scrbl

@@ -1,15 +1,15 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
-@title[#:tag-prefix '(lib "gui.scrbl" "scribblings" "gui") 
+@title[#:tag-prefix '(lib "scribblings/gui/gui.scrbl") 
        #:tag "top"]{PLT Scheme GUI: MrEd}
 
 @declare-exporting[(lib "mred")]
 
 This reference manual describes the MrEd GUI toolbox that is part of
- PLT Scheme. See @secref[#:doc '(lib "guide.scrbl" "scribblings"
+ PLT Scheme. See @secref[#:doc '(lib "scribblings/guide/guide.scrbl")
- "guide") "mred"] in @italic{@link["../guide/index.html"]{A Guide to
+ "mred"] in @italic{@link["../guide/index.html"]{A Guide to PLT
- PLT Scheme}} for an introduction to MrEd.
+ Scheme}} for an introduction to MrEd.
 
 The @scheme[(lib "mred")] module provides all of the class, interface,
  and procedure bindings defined in this manual. The

collects/scribblings/gui/guide.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @title[#:style '(toc reveal)]{Overview}

collects/scribblings/gui/horizontal-pane-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[horizontal-pane% pane% ()]{

collects/scribblings/gui/horizontal-panel-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[horizontal-panel% panel% ()]{

collects/scribblings/gui/image-snip-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[image-snip% snip% ()]{

collects/scribblings/gui/info.ss

@@ -1,4 +1,4 @@
-(module info (lib "infotab.ss" "setup")
+(module info setup/infotab
   (define name "Scribblings: GUI")
   (define scribblings '(("gui.scrbl" (multi-page main-doc)))))
 

collects/scribblings/gui/key-event-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[key-event% event% ()]{

collects/scribblings/gui/keymap-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @defclass/title[keymap% object% ()]{

collects/scribblings/gui/labelled-menu-item-intf.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @definterface/title[labelled-menu-item<%> (menu-item<%>)]{

collects/scribblings/gui/list-box-class.scrbl

@@ -1,4 +1,4 @@
-#reader(lib "docreader.ss" "scribble")
+#lang scribble/doc
 @require["common.ss"]
 
 @define[lbnumnote @elem{List box items are indexed from @scheme[0].}]