external get_wmclass_class : [>`window] obj -> string
      = "ml_gtk_window_get_wmclass_class"