diff options
| author | coq | 2004-02-04 15:30:44 +0000 |
|---|---|---|
| committer | coq | 2004-02-04 15:30:44 +0000 |
| commit | 836276d44d2bad23c2dbc8ee66a74c7f71856a5f (patch) | |
| tree | 1d3325b539b6635979e813019be9f6da53a8dbc5 /ide/ideutils.ml | |
| parent | cf45343a65cc1c84dc5c521a34c6c112fb7b5fe7 (diff) | |
search window
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5288 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/ideutils.ml')
| -rw-r--r-- | ide/ideutils.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ide/ideutils.ml b/ide/ideutils.ml index 19f5070b47..925199ecd1 100644 --- a/ide/ideutils.ml +++ b/ide/ideutils.ml @@ -210,10 +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 = -(* - if Sys.os_type <> "Unix" then GtkThread.async else (fun x -> x) -*) fun x -> x +(* explanations ?? *) +let async = + if Sys.os_type <> "Unix" then GtkThread.async else + (fun x -> x) let stock_to_widget ?(size=`DIALOG) s = let img = GMisc.image () |