| None -> ()
| Some check -> check#set_active (not check#active)
+let toggle_callback ~callback ~(check: GMenu.check_menu_item) =
+ ignore (check#connect#toggled (fun _ -> callback check#active))
+
let add_key_binding key callback (evbox: GBin.event_box) =
ignore (evbox#event#connect#key_press (function
| key' when GdkEvent.Key.keyval key' = key ->