external get_wmclass_name : [>`window] obj -> string
      = "ml_gtk_window_get_wmclass_name"