images for scribblings

svn: r7750

original commit: fd0d99f1583f1782a19d36b881f4fd849c61e423

collects/scribble/basic.ss

@@ -65,7 +65,7 @@
   (define (subsubsub*section #:tag [tag #f] . str)
     (let ([content (decode-content str)])
       (make-paragraph (list (make-element 'bold content)))))
-
+  
   (define-syntax (include-section stx)
     (syntax-case stx ()
       [(_ mod)

collects/scribble/manual.ss

@@ -149,7 +149,7 @@
            litchar
            verbatim)
 
-  (provide onscreen menuitem defterm
+  (provide image onscreen menuitem defterm
            schemefont schemevalfont schemeresultfont schemeidfont 
            schemeparenfont schemekeywordfont schememetafont schememodfont
            filepath exec envvar Flag DFlag
@@ -157,6 +157,14 @@
            link procedure
            idefterm)
 
+  ;; String String *-> Element
+  ;; an in-lined image, relative to the current directory 
+  (define (image filename-relative-to-source . alt)
+    (centerline ;; this doesn't do anything? 
+      (make-element
+	(make-image-file filename-relative-to-source)
+	(decode-content alt))))
+
   (define (onscreen . str)
     (make-element 'sf (decode-content str)))
   (define (menuitem menu item)