SEXP
SmokeObject::sexpFromPtr(void *ptr, const Class *klass,
bool allocated, bool copy)
{
SmokeObject *so = fromPtr(ptr, klass, allocated, copy);
if (!so)
return R_NilValue;
else return so->sexp();
}
SEXP qt_qdataFrameModel(SEXP rparent, SEXP useRoles, SEXP editable) {
static Class *dataFrameModelClass =
new NameOnlyClass("DataFrameModel", Class::fromName("QAbstractTableModel"));
SmokeObject *so =
SmokeObject::fromPtr(new DataFrameModel(unwrapSmoke(rparent, QObject),
useRoles, editable),
Class::fromName("QAbstractTableModel"), true);
so->cast(dataFrameModelClass);
return so->sexp();
}
SEXP qt_qcast(SEXP x, SEXP klass) {
SmokeObject *obj = SmokeObject::fromSexp(x);
obj->cast(Class::fromSexp(klass));
return obj->sexp();
}
