
Object.eq(o)
	^self.sys_eq(o)
!
Object.intern_new_object_of_class(size,class)
    |new_object|
    new_object = self.sys_new_vector(size);
    new_object.sys_set_class(class);
    ^new_object
!
## ------------------------
## Klassenzugriff
## ------------------------
Object.class
    self.sys_class
!
Object.class_name
    self.sys_class.name
!
Object.class_with_name(name)
    ^self.sys_class_for(name)
!
## ------------------------
## Ausgabe
## ------------------------
Object.print()
    "<Object ".simple_print();
    self.sys_print_adress();
    " of class ".simple_print();
    self.class.name.print();
    ">".simple_print()
!
Object.write()
    self.print();
    "\n".simple_print()
!
Object.simple_print()
    self.print()
!
Object.lprint()
    self.print()
!
## ------------------------
## Initialisierung
## ------------------------
Object.init()
    ^self

## ------------------------
## Globale
## ------------------------
!
Object.global_value()
    ^self.sys_global_value()
!
Object.set_global_value(v)
    ^self.sys_set_global_value(v)
!
## ------------------------
## Errorhandling
## ------------------------
Object.doesNotUnderstand(symbol_method,args)
    "\n\n*** Error doesNotUnderstand".simple_print();
    "\n".simple_print();
    "Object of Class ".simple_print();
    self.class_name.simple_print(); 
    " versteht Methode ".simple_print();
    symbol_method.print();
    " nicht.".simple_print();
    "\n".simple_print();
    "Argumente: ".simple_print();
    args.write();
    "self: ".simple_print();self.write();
    self.sys_traceback();
    self.sys_exit(10)
!
## ------------------------
## Misc
## ------------------------
Object.perform(method,args)
    if args.eq(nil) 
    then 
	^self.sys_perform(method,nil) 
    endif;
    self.sys_perform(method,args.asFixedVector())
!
Object.perform_with(method,one_arg)
    self.perform(method,FixedVector.new_with(one_arg))
!
Object.asFixedVector()
    |res i|
    i = self.size;
    res = ClassFixedVector.new(i);
    while (i>0)
	i = i - 1;
	res.set_nth(i,self.nth(i))
    end;
    res


