Source position: gtkhandlebox.pp line 48
procedure set_snap_edge(
var a: TGtkHandleBox;
__snap_edge: gint
);