From 71387d274cd5aa48fcb44a64e292b6134b59d641 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 2 Nov 2009 12:08:06 +0000
Subject: [PATCH] made gill sans be the default under unix when it is available

svn: r16499
---
 collects/slideshow/base.ss | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/collects/slideshow/base.ss b/collects/slideshow/base.ss
index 44014f0e13..dce629e95c 100644
--- a/collects/slideshow/base.ss
+++ b/collects/slideshow/base.ss
@@ -1,6 +1,7 @@
 
-(module base scheme
+(module base scheme/base
   (require "slide.ss"
+           scheme/gui/base
            (only-in "core.ss"
                     sliderec?
                     just-a-comment?))
@@ -11,7 +12,10 @@
     [(macosx)
      (current-main-font '("Gill Sans" . swiss))]
     [(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-titlet (lambda (s)