Source position: gtkwindow.inc line 152
procedure set_has_focus(
var a: TGtkWindow;
__has_focus: guint
);