a = 3 + 4

dtl$object:subclass("imp$object", "iPID,iFID,iUserData")

procedure dtl$object:test()
  return 3
end

procedure dtl$object::tryme()
  return 3
end

procedure xxx::toto()
end

procedure foo()
		local aaa, b
		b = dtl$object
		b = xxx
		aaa = b
		aaa:to()
end

dtl$object:tr()

test()