diff options
| author |  pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-09-04 21:39:18 +0000 |
|---|---|---|
| committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-09-04 21:39:18 +0000 |
| commit | f0b936e7cb90000f5db6272b926cb13dc1a5c055 (patch) | |
| tree | 63a5fefc70912f436c08b75f2e5813e62f407a93 /ide/preferences.ml | |
| parent | 0187193260a57e6bac8fcde8eb0e66ccf3f37b9b (diff) | |
Fix coqide compilation with lablgtk 2.16
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15772 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/preferences.ml')
| -rw-r--r-- | ide/preferences.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ide/preferences.ml b/ide/preferences.ml index 0866563f7..9e226708f 100644 --- a/ide/preferences.ml +++ b/ide/preferences.ml @@ -41,6 +41,10 @@ let mod_to_str (m:Gdk.Tags.modifier) = | `MOD5 -> "<Mod5>" | `CONTROL -> "<Control>" | `SHIFT -> "<Shift>" + | `HYPER -> "<Hyper>" + | `META -> "<Meta>" + | `RELEASE -> "" + | `SUPER -> "<Super>" | `BUTTON1| `BUTTON2| `BUTTON3| `BUTTON4| `BUTTON5| `LOCK -> "" let mod_list_to_str l = List.fold_left (fun s m -> (mod_to_str m)^s) "" l |