mirror of
https://git.code.sf.net/p/quake/quakeforge
synced 2024-11-10 23:32:09 +00:00
34 lines
510 B
R
34 lines
510 B
R
|
#include "Frame.h"
|
||
|
|
|
||
|
|
@implementation Frame
|
||
|
|
+ (id) newWithSize: (integer) sz link: (Frame) l
|
||
|
|
{
|
||
|
|
return [[self alloc] initWithSize: sz link: l];
|
||
|
|
}
|
||
|
|
|
||
|
|
- (id) initWithSize: (integer) sz link: (Frame) l
|
||
|
|
{
|
||
|
|
self = [super init];
|
||
|
|
size = sz;
|
||
|
|
link = l;
|
||
|
|
array = obj_malloc(@sizeof (id) * size);
|
||
|
|
return self;
|
||
|
|
}
|
||
|
|
|
||
|
|
- (void) set: (integer) index to: (SchemeObject) o
|
||
|
|
{
|
||
|
|
array[index] = o;
|
||
|
|
}
|
||
|
|
|
||
|
|
- (SchemeObject) get: (integer) index
|
||
|
|
{
|
||
|
|
return array[index];
|
||
|
|
}
|
||
|
|
|
||
|
|
- (Frame) getLink
|
||
|
|
{
|
||
|
|
return link;
|
||
|
|
}
|
||
|
|
|
||
|
|
@end
|