Cairo__Pattern.st
changeset 29 6ba06265e543
parent 23 38ee47dbd976
child 30 c8fe298c8cc7
--- a/Cairo__Pattern.st	Sat Dec 27 00:45:13 2014 +0100
+++ b/Cairo__Pattern.st	Sun Dec 28 22:38:24 2014 +0100
@@ -52,230 +52,17 @@
 
 libraryName
 
-	OperatingSystem isUNIXlike ifTrue:[^'libcairo.so.2'].
-
-	OperatingSystem isMSWINDOWSlike ifTrue:[^'cairo.dll'].
-
-	self error:'Library name for host OS is not known'
-
-    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-structSize
-
-	^0
-
-    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
-! !
-
-!Pattern class methodsFor:'primitives'!
-
-primAddColorStopRgb: pattern offset: offset red: red green: green blue: blue 
-
-	<cdecl: const void "cairo_pattern_add_color_stop_rgb" ( Cairo::Pattern double double double double ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primAddColorStopRgba: pattern offset: offset red: red green: green blue: blue alpha: alpha 
-
-	<cdecl: const void "cairo_pattern_add_color_stop_rgba" ( Cairo::Pattern double double double double double ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primDestroy: pattern 
-
-	<cdecl: const void "cairo_pattern_destroy" ( Cairo::Pattern ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primGetColorStopCount: pattern count: count 
-
-	<cdecl: const int32 "cairo_pattern_get_color_stop_count" ( Cairo::Pattern pointer ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primGetColorStopRgba: pattern index: index offset: offset red: red green: green blue: blue alpha: alpha 
+    OperatingSystem isUNIXlike ifTrue:[^'libcairo.so.2'].
 
-	<cdecl: const int32 "cairo_pattern_get_color_stop_rgba" ( Cairo::Pattern int32 pointer pointer pointer pointer pointer ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primGetExtend: pattern 
-
-	<cdecl: const int32 "cairo_pattern_get_extend" ( Cairo::Pattern ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primGetFilter: pattern 
-
-	<cdecl: const int32 "cairo_pattern_get_filter" ( Cairo::Pattern ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primGetLinearPoints: pattern x0: x0 y0: y0 x1: x1 y1: y1 
+    OperatingSystem isMSWINDOWSlike ifTrue:[^'cairo.dll'].
 
-	<cdecl: const int32 "cairo_pattern_get_linear_points" ( Cairo::Pattern pointer pointer pointer pointer ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primGetMatrix: pattern matrix: matrix 
-
-	<cdecl: const void "cairo_pattern_get_matrix" ( Cairo::Pattern Cairo::Matrix ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primGetRadialCircles: pattern x0: x0 y0: y0 r0: r0 x1: x1 y1: y1 r1: r1 
-
-	<cdecl: const int32 "cairo_pattern_get_radial_circles" ( Cairo::Pattern pointer pointer pointer pointer pointer pointer ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primGetReferenceCount: pattern 
-
-	<cdecl: const uint32 "cairo_pattern_get_reference_count" ( Cairo::Pattern ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    self error:'Library name for host OS is not known'
 !
 
-primGetRgba: pattern red: red green: green blue: blue alpha: alpha 
-
-	<cdecl: const int32 "cairo_pattern_get_rgba" ( Cairo::Pattern pointer pointer pointer pointer ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primGetSurface: pattern surface: surface 
-
-	<cdecl: const int32 "cairo_pattern_get_surface" ( Cairo::Pattern pointer ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primGetType: pattern 
-
-	<cdecl: const int32 "cairo_pattern_get_type" ( Cairo::Pattern ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primGetUserData: pattern key: key 
-
-	<cdecl: const pointer "cairo_pattern_get_user_data" ( Cairo::Pattern Cairo::UserDataKey ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primPatternCreateForSurface: surface 
-
-	<cdecl: const Cairo::Pattern "cairo_pattern_create_for_surface" ( Cairo::Surface ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primPatternCreateLinear: x0 y0: y0 x1: x1 y1: y1 
-
-	<cdecl: const Cairo::Pattern "cairo_pattern_create_linear" ( double double double double ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primPatternCreateRadial: cx0 cy0: cy0 radius0: radius0 cx1: cx1 cy1: cy1 radius1: radius1 
-
-	<cdecl: const Cairo::Pattern "cairo_pattern_create_radial" ( double double double double double double ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primPatternCreateRgb: red green: green blue: blue 
+sizeof
+    "Returns size of undelaying structure in bytes"
 
-	<cdecl: const Cairo::Pattern "cairo_pattern_create_rgb" ( double double double ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primPatternCreateRgba: red green: green blue: blue alpha: alpha 
-
-	<cdecl: const Cairo::Pattern "cairo_pattern_create_rgba" ( double double double double ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primReference: pattern 
-
-	<cdecl: const Cairo::Pattern "cairo_pattern_reference" ( Cairo::Pattern ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primSetExtend: pattern extend: extend 
-
-	<cdecl: const void "cairo_pattern_set_extend" ( Cairo::Pattern int32 ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primSetFilter: pattern filter: filter 
-
-	<cdecl: const void "cairo_pattern_set_filter" ( Cairo::Pattern int32 ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primSetMatrix: pattern matrix: matrix 
-
-	<cdecl: const void "cairo_pattern_set_matrix" ( Cairo::Pattern Cairo::Matrix ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primSetUserData: pattern key: key userData: user_data destroy: destroy 
-
-	<cdecl: const int32 "cairo_pattern_set_user_data" ( Cairo::Pattern Cairo::UserDataKey pointer pointer ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-primStatus: pattern 
-
-	<cdecl: const int32 "cairo_pattern_status" ( Cairo::Pattern ) >
-	self primitiveFailed
-
-    "Modified: / 10-09-2008 / 18:19:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    ^0
 ! !
 
 !Pattern class methodsFor:'documentation'!
@@ -287,3 +74,4 @@
 version_HG
     ^ '$Changeset: <not expanded> $'
 ! !
+