SEXP qt_qtext_QGraphicsItem(SEXP item) { QGraphicsItem *i = unwrapQGraphicsItem(item, QGraphicsItem); QGraphicsTextItem *textitem = qgraphicsitem_cast<QGraphicsTextItem *>(i); if (textitem) return qstring2sexp(textitem->toPlainText()); else return qstring2sexp(QString("")); }