diff options
| author |  glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-09-28 15:32:14 +0000 |
|---|---|---|
| committer | glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-09-28 15:32:14 +0000 |
| commit | 5754edd0bfc8c38cee2e721ef8d2130c97664f05 (patch) | |
| tree | 523fdec4b715c5e79fa8e679684dd41697e3d6c2 /ide/ideutils.ml | |
| parent | 86919192359dee7e274ab4af17bd32efe11a5f44 (diff) | |
Fix function applications without labels (OCaml warning 6)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13469 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/ideutils.ml')
| -rw-r--r-- | ide/ideutils.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ide/ideutils.ml b/ide/ideutils.ml index b8eb2754f..319cf4e4d 100644 --- a/ide/ideutils.ml +++ b/ide/ideutils.ml @@ -16,11 +16,11 @@ exception Forbidden let status = GMisc.statusbar () let push_info,pop_info = - let status_context = status#new_context "Messages" in + let status_context = status#new_context ~name:"Messages" in (fun s -> ignore (status_context#push s)),status_context#pop let flash_info = - let flash_context = status#new_context "Flash" in + let flash_context = status#new_context ~name:"Flash" in (fun ?(delay=5000) s -> flash_context#flash ~delay s) |