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

images for scribblings

Browse Source 
svn: r7750
This commit is contained in:
Matthias Felleisen 2007-11-16 20:33:59 +00:00
parent 28a1f1f60a
commit fd0d99f158
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/scribble/manual.ss
View File

@ -149,7 +149,7 @@
litchar litchar
verbatim) verbatim)
(provide onscreen menuitem defterm (provide image onscreen menuitem defterm
schemefont schemevalfont schemeresultfont schemeidfont schemefont schemevalfont schemeresultfont schemeidfont
schemeparenfont schemekeywordfont schememetafont schememodfont schemeparenfont schemekeywordfont schememetafont schememodfont
filepath exec envvar Flag DFlag filepath exec envvar Flag DFlag
@ -157,6 +157,14 @@
link procedure link procedure
idefterm) 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) (define (onscreen . str)
(make-element 'sf (decode-content str))) (make-element 'sf (decode-content str)))
(define (menuitem menu item) (define (menuitem menu item)