external activate_default : [>`window] obj -> bool
      = "ml_gtk_window_activate_default"