Repository navigation
Expand file tree
/
Copy pathSDL_FPoint.cls
More file actions
69 lines (47 loc) · 1.5 KB
/
Copy pathSDL_FPoint.cls
File metadata and controls
69 lines (47 loc) · 1.5 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
"Filed out from Dolphin Smalltalk"!
ExternalStructure subclass: #SDL_FPoint
instanceVariableNames: ''
classVariableNames: '_OffsetOf_x _OffsetOf_y'
poolDictionaries: ''
classInstanceVariableNames: ''!
SDL_FPoint guid: (GUID fromString: '{769cdeaf-4e94-46f7-802e-d417a07a547b}')!
SDL_FPoint addClassConstant: '_OffsetOf_x' value: 16r0!
SDL_FPoint addClassConstant: '_OffsetOf_y' value: 16r4!
SDL_FPoint comment: ''!
!SDL_FPoint categoriesForClass!External-Data-Structured! !
!SDL_FPoint methodsFor!
x
"Answer the <Float> value of the receiver's 'x' field."
^bytes floatAtOffset: _OffsetOf_x!
x: aFloat
"Set the receiver's 'x' field to the value of the argument, aFloat"
bytes floatAtOffset: _OffsetOf_x put: aFloat!
y
"Answer the <Float> value of the receiver's 'y' field."
^bytes floatAtOffset: _OffsetOf_y!
y: aFloat
"Set the receiver's 'y' field to the value of the argument, aFloat"
bytes floatAtOffset: _OffsetOf_y put: aFloat! !
!SDL_FPoint categoriesForMethods!
x!**compiled accessors**!public! !
x:!**compiled accessors**!public! !
y!**compiled accessors**!public! !
y:!**compiled accessors**!public! !
!
!SDL_FPoint class methodsFor!
defineFields
"SDL_FPoint compileDefinition
typedef struct SDL_FPoint
{
float x;
float y;
} SDL_FPoint;"
self
defineField: #x type: FLOATField new;
defineField: #y type: FLOATField new!
getFieldNames
^#(#x #y)! !
!SDL_FPoint class categoriesForMethods!
defineFields!public! !
getFieldNames!**compiled accessors**!constants!private! !
!