Add AeFFIUInt32Array and use it in asFormARGB32.

See: #44
pharo-graphics · Nov 23, 2023 · 997fac0 · 997fac0
1 parent f57d449
commit 997fac0
Show file tree

Hide file tree

Showing 4 changed files with 21 additions and 8 deletions.
diff --git a/src/Alexandrie-Base/AeFFIDoubleArray.class.st b/src/Alexandrie-Base/AeFFIDoubleArray.class.st
@@ -7,12 +7,6 @@ Class {
 	#category : #'Alexandrie-Base'
 }
 
-{ #category : #finalization }
-AeFFIDoubleArray class >> externallyFree: aHandle [
-
-	aHandle free
-]
-
 { #category : #'class initialization' }
 AeFFIDoubleArray class >> initialize [
 

diff --git a/src/Alexandrie-Base/AeFFIExternalArray.class.st b/src/Alexandrie-Base/AeFFIExternalArray.class.st
@@ -12,6 +12,12 @@ Class {
 	#category : #'Alexandrie-Base'
 }
 
+{ #category : #finalization }
+AeFFIExternalArray class >> externallyFree: aHandle [
+
+	aHandle free
+]
+
 { #category : #'instance creation' }
 AeFFIExternalArray class >> fromHandle: aHandle size: aNumber [
 

diff --git a/src/Alexandrie-Base/AeFFIUInt32Array.class.st b/src/Alexandrie-Base/AeFFIUInt32Array.class.st
@@ -0,0 +1,14 @@
+"
+I'm an array of `FFIUInt32` (unsigned int).
+"
+Class {
+	#name : #AeFFIUInt32Array,
+	#superclass : #AeFFIExternalArray,
+	#category : #'Alexandrie-Base'
+}
+
+{ #category : #'class initialization' }
+AeFFIUInt32Array class >> initialize [
+
+	resolvedType := self resolveType: FFIUInt32
+]
diff --git a/src/Alexandrie-Cairo/AeCairoImageSurface.class.st b/src/Alexandrie-Cairo/AeCairoImageSurface.class.st
@@ -252,9 +252,8 @@ AeCairoImageSurface >> asFormARGB32 [
 		streamContents: [ :stream |
 			| words |
 			self flush.
-			words := FFIExternalArray
+			words := AeFFIUInt32Array
 				fromHandle: self data
-				type: FFIUInt32
 				size: aSizeInWords.
 			words do: [ :pixel |
 				| alpha |