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

made gill sans be the default under unix when it is available

Browse Source 
svn: r16499
This commit is contained in:
Robby Findler 2009-11-02 12:08:06 +00:00
parent 44c833e2dc
commit 71387d274c
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/slideshow/base.ss
View File

@ -1,6 +1,7 @@
(module base scheme (module base scheme/base
(require "slide.ss" (require "slide.ss"
scheme/gui/base
(only-in "core.ss" (only-in "core.ss"
sliderec? sliderec?
just-a-comment?)) just-a-comment?))
@ -11,7 +12,10 @@
[(macosx) [(macosx)
(current-main-font '("Gill Sans" . swiss))] (current-main-font '("Gill Sans" . swiss))]
[(windows) [(windows)
(current-main-font '("Tahoma" . swiss))]) (current-main-font '("Tahoma" . swiss))]
[(unix)
(when (member " Gill Sans" (get-face-list))
(current-main-font '(" Gill Sans" . swiss)))])
(current-para-width (* 3/4 client-w)) (current-para-width (* 3/4 client-w))
(current-titlet (lambda (s) (current-titlet (lambda (s)