let window_state : ([>`widget], GdkEvent.WindowState.t -> bool) t =
        { name = "window_state_event"; classe = `widget;
          marshaller = marshal }