TYPEMAP
TObject*    O_TObject
TView*      O_TObject
TButton*    O_TObject

INPUT
O_TObject
  $var= dynamic_cast<$type>(tvision_info_from_magic($arg, OR_DIE)->tobj);
  if (!$var) croak("Object is not a $type");