diff options
| author | narboux | 2005-12-13 14:18:13 +0000 |
|---|---|---|
| committer | narboux | 2005-12-13 14:18:13 +0000 |
| commit | c08a0627948976eef09d08638dedfeb77b1882c7 (patch) | |
| tree | 125b679c986d2441315adddfcb36cd5d5c6cf4d8 | |
| parent | 509680e0644a8787d11612948f8b1b36e2de9f18 (diff) | |
changing the name of drgeocaml into GeoProof
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7644 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | ide/coqide.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index 487e457d86..b4e3b915fb 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -3324,11 +3324,11 @@ with _ := Induction for _ Sort _.\n",61,10, Some GdkKeysyms._S); ;; -(* This function check every half of second if DrGeoCaml has send +(* This function check every half of second if GeoProof has send something on his private clipboard *) -let rec check_for_drgeocaml_input () = - let cb_Dr = GData.clipboard (Gdk.Atom.intern "_DrGeoCaml") in +let rec check_for_geoproof_input () = + let cb_Dr = GData.clipboard (Gdk.Atom.intern "_GeoProof") in while true do Thread.delay 0.1; let s = cb_Dr#text in @@ -3362,7 +3362,7 @@ let start () = Command_windows.main (); Blaster_window.main 9; main files; - ignore (Thread.create check_for_drgeocaml_input ()); + ignore (Thread.create check_for_geoproof_input ()); while true do try GtkThread.main () |