FFIExternalEnumeration subclass: #FFITEnum instanceVariableNames: '' classVariableNames: 'TESTE' poolDictionaries: '' category: 'FFITest'! "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! FFITEnum class instanceVariableNames: ''! !FFITEnum class methodsFor: 'as yet unclassified' stamp: 'MerwanOuddane 7/8/2016 20:07'! enumDecl ^ #( TESTE 1 )! ! FFIExternalStructure subclass: #FFITStruct instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFITest'! !FFITStruct methodsFor: 'accessing structure variables' stamp: 'MerwanOuddane 7/8/2016 20:38'! a: anObject "This method was automatically generated" handle pointerAt: 1 put: anObject getHandle.! ! !FFITStruct methodsFor: 'accessing structure variables' stamp: 'MerwanOuddane 7/8/2016 20:39'! b "This method was automatically generated" ^FFITEnum fromInteger: (handle unsignedLongAt: 9)! ! !FFITStruct methodsFor: 'accessing structure variables' stamp: 'MerwanOuddane 7/8/2016 20:38'! b: anObject "This method was automatically generated" handle unsignedLongAt: 9 put: anObject value! ! !FFITStruct methodsFor: 'accessing structure variables' stamp: 'MerwanOuddane 7/8/2016 20:38'! a "This method was automatically generated" ^ExternalData fromHandle: (handle pointerAt: 1) type: ExternalType void asPointerType! ! !FFITStruct methodsFor: 'accessing structure variables' stamp: 'MerwanOuddane 7/8/2016 20:38'! c: anObject "This method was automatically generated" handle unsignedLongAt: 17 put: anObject value! ! !FFITStruct methodsFor: 'accessing structure variables' stamp: 'MerwanOuddane 7/8/2016 20:39'! c "This method was automatically generated" ^FFITEnum fromInteger: (handle unsignedLongAt: 17)! ! "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! FFITStruct class instanceVariableNames: ''! !FFITStruct class methodsFor: 'as yet unclassified' stamp: 'MerwanOuddane 7/8/2016 20:39'! fieldsDesc " self rebuildFieldAccessors " ^#( void* a; #FFITEnum b; #FFITEnum c; ) ! ! FFITStruct compileFields!