--- a/Cairo__GraphicsContext.st	Wed Dec 24 22:29:13 2014 +0100
+++ b/Cairo__GraphicsContext.st	Wed Dec 24 23:59:59 2014 +0100
@@ -80,7 +80,7 @@
     "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
-structSize
+sizeof
 
 	^0
 
@@ -202,7 +202,7 @@
 
 primCreate: target
 
-	<cdecl: const Cairo::GraphicsContext "cairo_create" ( Cairo::Surface ) >
+	<cdecl: Cairo::GraphicsContext "cairo_create" ( Cairo::Surface ) >
 	self primitiveFailed
 
     "Modified: / 10-09-2008 / 18:19:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
@@ -314,7 +314,7 @@
 
 primGetFontFace: cr
 
-	<cdecl: const Cairo::FontFace "cairo_get_font_face" ( Cairo::GraphicsContext ) >
+	<cdecl: Cairo::FontFace "cairo_get_font_face" ( Cairo::GraphicsContext ) >
 	self primitiveFailed
 
     "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
@@ -338,7 +338,7 @@
 
 primGetGroupTarget: cr
 
-	<cdecl: const Cairo::Surface "cairo_get_group_target" ( Cairo::GraphicsContext ) >
+	<cdecl: Cairo::Surface "cairo_get_group_target" ( Cairo::GraphicsContext ) >
 	self primitiveFailed
 
     "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
@@ -402,7 +402,7 @@
 
 primGetScaledFont: cr
 
-	<cdecl: const Cairo::ScaledFont "cairo_get_scaled_font" ( Cairo::GraphicsContext ) >
+	<cdecl: Cairo::ScaledFont "cairo_get_scaled_font" ( Cairo::GraphicsContext ) >
 	self primitiveFailed
 
     "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
@@ -410,7 +410,7 @@
 
 primGetSource: cr
 
-	<cdecl: const Cairo::Pattern "cairo_get_source" ( Cairo::GraphicsContext ) >
+	<cdecl: Cairo::Pattern "cairo_get_source" ( Cairo::GraphicsContext ) >
 	self primitiveFailed
 
     "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
@@ -418,7 +418,7 @@
 
 primGetTarget: cr
 
-	<cdecl: const Cairo::Surface "cairo_get_target" ( Cairo::GraphicsContext ) >
+	<cdecl: Cairo::Surface "cairo_get_target" ( Cairo::GraphicsContext ) >
 	self primitiveFailed
 
     "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
@@ -562,7 +562,7 @@
 
 primPopGroup: cr
 
-	<cdecl: const Cairo::Pattern "cairo_pop_group" ( Cairo::GraphicsContext ) >
+	<cdecl: Cairo::Pattern "cairo_pop_group" ( Cairo::GraphicsContext ) >
 	self primitiveFailed
 
     "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
@@ -602,7 +602,7 @@
 
 primReference: cr
 
-	<cdecl: const Cairo::GraphicsContext "cairo_reference" ( Cairo::GraphicsContext ) >
+	<cdecl: Cairo::GraphicsContext "cairo_reference" ( Cairo::GraphicsContext ) >
 	self primitiveFailed
 
     "Modified: / 10-09-2008 / 18:19:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
@@ -1010,6 +1010,22 @@
     "Created: / 23-04-2009 / 17:24:33 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
+!GraphicsContext methodsFor:'misc'!
+
+setSourceSurface: aSurface
+    ^ self setSourceSurface: aSurface x: 0.0 y: 0.0
+
+    "Created: / 24-12-2014 / 23:12:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+setSourceSurface: aSyrface x:x y:y
+    "raise an error: this method should be implemented (TODO)"
+
+    ^ self class primSetSourceSurface: self surface: aSyrface x: x y: y
+
+    "Created: / 24-12-2014 / 23:12:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !GraphicsContext methodsFor:'paints'!
 
 paintRed: red green: green blue: blue alpha: alpha
@@ -1166,3 +1182,4 @@
 version_HG
     ^ '$Changeset: <not expanded> $'
 ! !
+