Select Code to Download

struct tvision_info {
  TObject *tobj;
...
tvision_info_from_magic(SV *objref, int flags) {
  ...
}

TYPEMAP
TObject*    O_TObject
...
O_TButton
  $var= dynamic_cast<TButton*>(tvision_info_from_magic($arg, OR_DIE)->
+tobj);
  if (!$var) croak("Not an instance of TButton");

bool
focus(view)
...
    RETVAL= view->focus();
  OUTPUT:
    RETVAL

template <T> void tvision_obj_from_magic(T *dest, SV *objref, int flag
+s) {
  struct tvision_info* tinfo= tvision_info_from_magic(objref, flags);
...
  if ((flags & OR_DIE) && !typed) croak("Wrong type of object");
  *dest= typed;
}

O_TButton
  tvision_obj_from_magic(&$var, $arg, OR_DIE);

TYPEMAP
TObject*    O_TObject
...
O_TObject
  $var= dynamic_cast<$type>(tvision_info_from_magic($arg, OR_DIE)->tob
+j);
  if (!$var) croak("Object is not a $type");