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

added 'Scribble' as a prefix to the scribble drscheme buttons

Browse Source
This commit is contained in:
Robby Findler 2010-04-15 23:11:38 -04:00
parent d4c0aa1daf
commit 4587795d40
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/tools/drscheme-buttons.ss
View File

@ -47,12 +47,12 @@
(define drscheme-buttons (define drscheme-buttons
(let ([html-button (let ([html-button
(make-render-button "HTML" html.png "--html" #".html" (make-render-button "Scribble HTML" html.png "--html" #".html"
'("++xref-in" "setup/xref" "load-collections-xref"))] '("++xref-in" "setup/xref" "load-collections-xref"))]
[pdf-button [pdf-button
;; only available on OSX currently ;; only available on OSX currently
;; when we have a general way of opening pdfs, can use that ;; when we have a general way of opening pdfs, can use that
(make-render-button "PDF" pdf.png "--pdf" #".pdf" null)]) (make-render-button "Scribble PDF" pdf.png "--pdf" #".pdf" null)])
(case (system-type) (case (system-type)
[(macosx) (list html-button pdf-button)] [(macosx) (list html-button pdf-button)]
[else (list html-button)]))) [else (list html-button)])))