diff options
author | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-06-10 18:34:53 +0000 |
---|---|---|
committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-06-10 18:34:53 +0000 |
commit | 93b26a7d7cb5f7c86f99589ac740b486c5d51c71 (patch) | |
tree | 11dd2181927421b32d415fc1711db770e7f8461f /ide/minilib.ml | |
parent | 7b80c5023071a0dead641da1d14078489f6e6f4c (diff) |
Menubar and toolbar in coqide using GtkUI & Gactions.
You'll need to remove/edit your ~/.coqiderc and ~/.coqide.keys.
As it used to be, accelerator modifiers changes are only done after a
reboot but we need more binding in lablgtk to improve that...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14178 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/minilib.ml')
-rw-r--r-- | ide/minilib.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/ide/minilib.ml b/ide/minilib.ml index b1f85d2fe..dcadc81f5 100644 --- a/ide/minilib.ml +++ b/ide/minilib.ml @@ -55,6 +55,12 @@ let list_filter_i p = in filter_i_rec 0 +let string_map f s = + let l = String.length s in + let r = String.create l in + for i= 0 to (l - 1) do r.[i] <- f (s.[i]) done; + r + let subst_command_placeholder s t = Str.global_replace (Str.regexp_string "%s") t s |