let connect_button (button: #GButton.button) callback =
ignore (button#connect#clicked (wrap_callback callback))
+let connect_toggle_button (button: #GButton.toggle_button) callback =
+ ignore (button#connect#toggled (wrap_callback callback))
+
let connect_menu_item (menu_item: #GMenu.menu_item) callback =
ignore (menu_item#connect#activate (wrap_callback callback))