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_tk.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_tk.ml')
| -rw-r--r-- | otherlibs/labltk/browser/jg_tk.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/otherlibs/labltk/browser/jg_tk.ml b/otherlibs/labltk/browser/jg_tk.ml index 56309d9a7..32ed9699c 100644 --- a/otherlibs/labltk/browser/jg_tk.ml +++ b/otherlibs/labltk/browser/jg_tk.ml @@ -19,3 +19,5 @@ let tpos x : textIndex = `Linechar (1,0), [`Char x] and tposend x : textIndex = `End, [`Char (-x)] let tstart : textIndex = `Linechar (1,0), [] and tend : textIndex = `End, [] + +let wingui = Sys.os_type = "Win32" || Sys.os_type = "Cygwin" |