Expose QBuffer::data() to host environment

src/typica.w

@@ -2856,6 +2856,7 @@ when we want the latter.
 QScriptValue constructQBuffer(QScriptContext *context, QScriptEngine *engine);
 void setQBufferProperties(QScriptValue value, QScriptEngine *engine);
 QScriptValue QBuffer_setData(QScriptContext *context, QScriptEngine *engine);
+QScriptValue QBuffer_data(QScriptContext *context, QScriptEngine *engine);
 
 @ The host environment needs to be aware of the constructor.
 
@@ -2879,6 +2880,7 @@ void setQBufferProperties(QScriptValue value, QScriptEngine *engine)
 {
     setQIODeviceProperties(value, engine);
     value.setProperty("setData", engine->newFunction(QBuffer_setData));
+    value.setProperty("data", engine->newFunction(QBuffer_data));
 }
 
 QScriptValue QBuffer_setData(QScriptContext *context, QScriptEngine *)
@@ -2888,6 +2890,12 @@ QScriptValue QBuffer_setData(QScriptContext *context, QScriptEngine *)
     return QScriptValue();
 }
 
+QScriptValue QBuffer_data(QScriptContext *context, QScriptEngine *)
+{
+    QBuffer *self = getself<QBuffer *>(context);
+    return QScriptValue(QString(self->data()));
+}
+
 @* Scripting QXmlQuery.
 
 \noindent Sometimes we have some XML data in a file or a buffer and we would