diff options
| author |  Gaetan Gilbert <gaetan.gilbert@ens-lyon.fr> | 2017-04-21 19:50:27 +0200 |
|---|---|---|
| committer | Gaetan Gilbert <gaetan.gilbert@ens-lyon.fr> | 2017-04-27 21:33:39 +0200 |
| commit | f67f84fc4831923aa9a2323b3a71c3a69fe61480 (patch) | |
| tree | 6bec83e048a29d4db5fc97350eb22f26cbed667f /ide/wg_Detachable.ml | |
| parent | 2826683746569b9d78aa01e319315ab554e1619b (diff) | |
Use [method!] to override methods (warning 7)
Diffstat (limited to 'ide/wg_Detachable.ml')
| -rw-r--r-- | ide/wg_Detachable.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ide/wg_Detachable.ml b/ide/wg_Detachable.ml index 3d1b63dfa..cbc34462e 100644 --- a/ide/wg_Detachable.ml +++ b/ide/wg_Detachable.ml @@ -26,8 +26,8 @@ class detachable (obj : ([> Gtk.box] as 'a) Gobject.obj) = val mutable attached_cb = (fun _ -> ()) method child = frame#child - method add = frame#add - method pack ?from ?expand ?fill ?padding w = + method! add = frame#add + method! pack ?from ?expand ?fill ?padding w = if frame#all_children = [] then self#add w else raise (Invalid_argument "detachable#pack") |