diff options
| author |  coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-01-29 14:49:44 +0000 |
|---|---|---|
| committer | coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-01-29 14:49:44 +0000 |
| commit | 29c33c1143635d89b82048835082c133439fffbd (patch) | |
| tree | 39324d085b47c3613ed5a55cb559a362c0a07fe8 /ide/ideutils.ml | |
| parent | d6997b13582a19772a74fc5b198fa3752d9e2b16 (diff) | |
pour ide sous windows
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5267 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/ideutils.ml')
| -rw-r--r-- | ide/ideutils.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ide/ideutils.ml b/ide/ideutils.ml index db0f82b16..19f5070b4 100644 --- a/ide/ideutils.ml +++ b/ide/ideutils.ml @@ -210,9 +210,10 @@ let find_tag_stop (tag :GText.tag) (it:GText.iter) = let find_tag_limits (tag :GText.tag) (it:GText.iter) = (find_tag_start tag it , find_tag_stop tag it) -let async = +let async = +(* if Sys.os_type <> "Unix" then GtkThread.async else (fun x -> x) - +*) fun x -> x let stock_to_widget ?(size=`DIALOG) s = let img = GMisc.image () |