diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2000-08-25 08:20:49 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2000-08-25 08:20:49 +0000 |
| commit | 738f54a8dac0ae3ba2b3bddea2648c074dc6b738 (patch) | |
| tree | 9dd24f94965bcb4a259ef0b57c16fd651d0db003 /otherlibs/labltk/browser/jg_config.ml | |
| parent | 307c53c6f5eade001a4dd88ba6efddd3ebc7f56e (diff) | |
use windows fonts for Cygwin; but shell does not work
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3288 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/browser/jg_config.ml')
| -rw-r--r-- | otherlibs/labltk/browser/jg_config.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/otherlibs/labltk/browser/jg_config.ml b/otherlibs/labltk/browser/jg_config.ml index a65d6b6e4..41e8e9cd1 100644 --- a/otherlibs/labltk/browser/jg_config.ml +++ b/otherlibs/labltk/browser/jg_config.ml @@ -13,13 +13,13 @@ (* $Id$ *) -let fixed = - if Sys.os_type = "Win32" then "{Courier New} 8" else "fixed" -let variable = - if Sys.os_type = "Win32" then "Arial 9" else "variable" +open Jg_tk + +let fixed = if wingui then "{Courier New} 8" else "fixed" +let variable = if wingui then "Arial 9" else "variable" let init () = - if Sys.os_type = "Win32" then Option.add ~path:"*font" fixed; + if wingui then Option.add ~path:"*font" fixed; let font = let font = Option.get Widget.default_toplevel ~name:"variableFont" ~clas:"Font" in |