quakeforge/tools/qwaq/test.r
Bill Currie a3a2dd62e3 fix type of "self"
This is an imperfect revision of history.
2004-11-02 07:13:00 +00:00

34 lines
326 B
R

@interface Foo : Object
{
integer x;
}
-run;
@end
@implementation Foo
+alloc
{
print ("+alloc\n");
return class_create_instance (self);
}
-init
{
print ("-init\n");
return [super init];
}
+ (void) initialize
{
print ("+initialize\n");
}
-run
{
print ("Hello world\n");
printf ("%i %p\n", self, &self.x);
}
@end