Source position: gdkcairo.inc line 10
procedure gdk_cairo_set_source_color(
cr: Pcairo_t;
color: PGdkColor
);