Source position: gtksocket.pp line 32
procedure set_same_app(
var a: TGtkSocket;
__same_app: guint
);