From 9167ba7281d1267147ffdb7ebbf4978c6e76c551 Mon Sep 17 00:00:00 2001
From: Perry Werneck <perry.werneck@gmail.com>
Date: Wed, 16 Sep 2020 10:03:50 -0300
Subject: [PATCH] Adding get cursor position method.

---
 client/src/include/lib3270/ipc.h        |  30 +++++++++++++++++++++++-------
 client/src/session/local/attribute.cc   |  12 ++++++++++++
 client/src/session/local/private.h      |   2 +-
 client/src/session/remote/private.h     |   1 +
 client/src/testprogram/testprogram.cc   |   2 +-
 server/pw3270-plugin-ipc.cbp            |   9 +++------
 server/src/core/linux/gobject.c         |   4 ++++
 server/src/core/linux/response.c        | 149 -----------------------------------------------------------------------------------------------------------------------------------------------------
 server/src/core/linux/start.c           |  12 ++++++++++--
 server/src/core/methods/cursor.c        |  19 +++++++++++++++++++
 server/src/core/methods/methods.c       |   1 +
 server/src/core/methods/private.h       |   1 +
 server/src/core/response.c              | 139 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 server/src/core/windows/response.c      | 150 ------------------------------------------------------------------------------------------------------------------------------------------------------
 server/src/include/ipc-glib.h           |   2 ++
 server/src/testprogram/testprogram.c    |   4 ++++
 server/testscripts/dbus.conf            |   6 ++++++
 server/testscripts/getcursorposition.sh |  14 ++++++++++++++
 server/testscripts/introspect.sh        |   6 +++---
 19 files changed, 244 insertions(+), 319 deletions(-)
 delete mode 100644 server/src/core/linux/response.c
 create mode 100644 server/src/core/response.c
 delete mode 100644 server/src/core/windows/response.c
 create mode 100644 server/testscripts/dbus.conf
 create mode 100755 server/testscripts/getcursorposition.sh

diff --git a/client/src/include/lib3270/ipc.h b/client/src/include/lib3270/ipc.h
index 27ae009..13c6c5f 100644
--- a/client/src/include/lib3270/ipc.h
+++ b/client/src/include/lib3270/ipc.h
@@ -116,27 +116,26 @@
 		template<typename T>
 		class lib3270_ptr {
 		private:
-			T *data;
+			T *ptr;
 
 		public:
-			lib3270_ptr(T *data) {
-				this->data = data;
+			lib3270_ptr(T *d) : ptr(d) {
 			}
 
 			~lib3270_ptr() {
-				lib3270_free((void *) this->data);
+				lib3270_free((void *) this->ptr);
 			}
 
 			operator bool() const noexcept {
-				return this->data != NULL;
+				return this->ptr != NULL;
 			}
 
 			T * operator->() {
-				return this->data;
+				return this->ptr;
 			}
 
 			operator T *() const noexcept {
-				return this->data;
+				return this->ptr;
 			}
 
 		};
@@ -230,6 +229,7 @@
 			SSL_SECURE		= LIB3270_SSL_SECURE,						///< @brief Connection secure with CA check
 			SSL_NEGOTIATED	= LIB3270_SSL_NEGOTIATED,					///< @brief Connection secure, no CA, self-signed or expired CRL
 			SSL_NEGOTIATING	= LIB3270_SSL_NEGOTIATING,					///< @brief Negotiating SSL
+			SSL_VERIFYING	= LIB3270_SSL_VERIFYING,					///< @brief Verifying SSL (Getting CRL)
 			SSL_UNDEFINED	= LIB3270_SSL_UNDEFINED						///< @brief Undefined
 		};
 
@@ -451,6 +451,15 @@
 
 		public:
 
+			struct Cursor {
+				unsigned short row;
+				unsigned short col;
+
+				Cursor(unsigned short r, unsigned short c) : row(r), col(c) {
+				}
+
+			};
+
 			/// @brief Get an instance of the TN3270 session based on the supplied ID.
 			static Session * getInstance(const char *id = nullptr, const char *charset = nullptr);
 			virtual ~Session();
@@ -586,6 +595,9 @@
 			/// @brief Get cursor address
 			virtual unsigned short getCursorAddress() = 0;
 
+			/// @brief Get cursor position.
+			virtual struct Cursor getCursorPosition() = 0;
+
 			/// @brief Set local charset.
 			virtual void setCharSet(const char *charset = NULL) = 0;
 
@@ -783,6 +795,10 @@
 				return session->getCursorAddress();
 			}
 
+			inline Session::Cursor getCursorPosition() {
+				return session->getCursorPosition();
+			}
+
 			inline void setHostURL(const char *url) {
 				session->setHostURL(url);
 			}
diff --git a/client/src/session/local/attribute.cc b/client/src/session/local/attribute.cc
index 69bf38f..4ce77ac 100644
--- a/client/src/session/local/attribute.cc
+++ b/client/src/session/local/attribute.cc
@@ -527,6 +527,18 @@
 		return rc;
 	}
 
+	struct Session::Cursor Local::Session::getCursorPosition() {
+
+		std::lock_guard<std::recursive_mutex> lock(sync);
+
+		unsigned short row = 0, col = 0;
+
+
+		return Session::Cursor(row,col);
+
+	};
+
+
 	std::string Local::Session::getVersion() const {
 
 		std::lock_guard<std::recursive_mutex> lock(const_cast<Local::Session *>(this)->sync);
diff --git a/client/src/session/local/private.h b/client/src/session/local/private.h
index bc2c406..c07d6b7 100644
--- a/client/src/session/local/private.h
+++ b/client/src/session/local/private.h
@@ -161,7 +161,7 @@
 				unsigned short setCursor(int addr) override;
 				unsigned short setCursor(unsigned short row, unsigned short col) override;
 				unsigned short getCursorAddress() override;
-
+				Session::Cursor getCursorPosition() override;
 
 			};
 
diff --git a/client/src/session/remote/private.h b/client/src/session/remote/private.h
index 746991e..185391a 100644
--- a/client/src/session/remote/private.h
+++ b/client/src/session/remote/private.h
@@ -166,6 +166,7 @@
 				unsigned short setCursor(int addr) override;
 				unsigned short setCursor(unsigned short row, unsigned short col) override;
 				unsigned short getCursorAddress() override;
+				Session::Cursor getCursorPosition() override;
 
 			};
 
diff --git a/client/src/testprogram/testprogram.cc b/client/src/testprogram/testprogram.cc
index 342adae..1ea8fbb 100644
--- a/client/src/testprogram/testprogram.cc
+++ b/client/src/testprogram/testprogram.cc
@@ -103,7 +103,7 @@
 
 	TN3270::Host host{session};
 
-	name="url";
+	// name="url";
 
 	cout << endl << endl;
 	for(auto attribute : host.getAttributes()) {
diff --git a/server/pw3270-plugin-ipc.cbp b/server/pw3270-plugin-ipc.cbp
index 5f4e4e7..ce6b1c0 100644
--- a/server/pw3270-plugin-ipc.cbp
+++ b/server/pw3270-plugin-ipc.cbp
@@ -68,9 +68,6 @@
 			<Option compilerVar="CC" />
 		</Unit>
 		<Unit filename="src/core/linux/gobject.h" />
-		<Unit filename="src/core/linux/response.c">
-			<Option compilerVar="CC" />
-		</Unit>
 		<Unit filename="src/core/linux/start.c">
 			<Option compilerVar="CC" />
 		</Unit>
@@ -102,6 +99,9 @@
 		<Unit filename="src/core/methods/wait.c">
 			<Option compilerVar="CC" />
 		</Unit>
+		<Unit filename="src/core/response.c">
+			<Option compilerVar="CC" />
+		</Unit>
 		<Unit filename="src/core/setproperties.c">
 			<Option compilerVar="CC" />
 		</Unit>
@@ -161,9 +161,6 @@
 			<Option compilerVar="CC" />
 		</Unit>
 		<Extensions>
-			<code_completion />
-			<envvars />
-			<debugger />
 			<lib_finder disable_auto="1" />
 		</Extensions>
 	</Project>
diff --git a/server/src/core/linux/gobject.c b/server/src/core/linux/gobject.c
index cf54e7b..e330a4d 100644
--- a/server/src/core/linux/gobject.c
+++ b/server/src/core/linux/gobject.c
@@ -197,6 +197,10 @@ void ipc3270_add_terminal_introspection(GString *introspection) {
 		"		<arg type='i' name='addr' direction='in' />" \
 		"		<arg type='i' name='old' direction='out' />" \
 		"	</method>" \
+		"	<method name= 'getCursorPosition'>" \
+		"		<arg type='u' name='row' direction='out' />" \
+		"		<arg type='u' name='col' direction='out' />" \
+		"	</method>" \
 		"	<method name= 'getFieldAttribute'>" \
 		"		<arg type='u' name='attribute' direction='out' />" \
 		"	</method>" \
diff --git a/server/src/core/linux/response.c b/server/src/core/linux/response.c
deleted file mode 100644
index f940ae1..0000000
--- a/server/src/core/linux/response.c
+++ /dev/null
@@ -1,149 +0,0 @@
-/*
- * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como - e possui - linhas de código.
- *
- * Referências:
- *
- * https://github.com/joprietoe/gdbus/blob/master/gdbus-example-server.c
- * https://github.com/bratsche/glib/blob/master/gio/tests/gdbus-example-export.c
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
- *
- */
-
-#include "gobject.h"
-#include <lib3270.h>
-#include <lib3270/actions.h>
-#include <lib3270/properties.h>
-#include <lib3270/toggle.h>
-#include <v3270.h>
-
-#include <dbus/dbus-glib.h>
-#include <dbus/dbus-glib-bindings.h>
-
-/*--[ Widget definition ]----------------------------------------------------------------------------*/
-
-struct _ipc3270Response {
-	GObject		  parent;
-	GVariant	* value;
-};
-
-struct _ipc3270ResponseClass {
-
-	GObjectClass parent;
-	int dummy;
-
-};
-
-
-G_DEFINE_TYPE(ipc3270Response, ipc3270Response, G_TYPE_OBJECT)
-
-/*--[ Implement ]------------------------------------------------------------------------------------*/
-
-static void ipc3270Response_finalize(GObject *object) {
-
-	ipc3270Response * response = IPC3270_RESPONSE(object);
-
-	debug("%s value=%p",__FUNCTION__,response->value);
-
-	if(response->value)
-		g_variant_unref(response->value);
-
-}
-
-
-static void ipc3270Response_class_init(ipc3270ResponseClass *klass) {
-
-	debug("%s",__FUNCTION__);
-
-	GObjectClass *object_class;
-	object_class = G_OBJECT_CLASS (klass);
-	object_class->finalize = ipc3270Response_finalize;
-
-}
-
-static void ipc3270Response_init(ipc3270Response *object) {
-
-	object->value = NULL;
-
-}
-
-GObject * ipc3270_response_new() {
-	return g_object_new(GLIB_TYPE_IPC3270_RESPONSE, NULL);
-}
-
-void ipc3270_response_append_int32(GObject *object, gint32 value) {
-
-	ipc3270Response * response = IPC3270_RESPONSE(object);
-
-	if(response->value)
-		g_variant_unref(response->value);
-
-	response->value = g_variant_new_int32(value);
-}
-
-void ipc3270_response_append_uint32(GObject *object, guint32 value) {
-
-	ipc3270Response * response = IPC3270_RESPONSE(object);
-
-	if(response->value)
-		g_variant_unref(response->value);
-
-	response->value = g_variant_new_uint32(value);
-}
-
-void ipc3270_response_append_string(GObject *object, const gchar *text) {
-
-	ipc3270Response * response = IPC3270_RESPONSE(object);
-
-	if(response->value)
-		g_variant_unref(response->value);
-
-	response->value = g_variant_new_string(text);
-
-}
-
-void ipc3270_response_append_boolean(GObject *object, gboolean value) {
-
-	ipc3270Response * response = IPC3270_RESPONSE(object);
-
-	if(response->value)
-		g_variant_unref(response->value);
-
-	response->value = g_variant_new_boolean(value);
-}
-
-GVariant * ipc3270_response_steal_value(GObject *object) {
-
-	ipc3270Response * response = IPC3270_RESPONSE(object);
-
-	GVariant * value = response->value;
-	response->value = NULL;
-
-	return value;
-}
-
-gboolean ipc3270_response_has_values(GObject *object) {
-	return IPC3270_RESPONSE(object)->value != NULL;
-}
diff --git a/server/src/core/linux/start.c b/server/src/core/linux/start.c
index fcf0492..8157b4d 100644
--- a/server/src/core/linux/start.c
+++ b/server/src/core/linux/start.c
@@ -67,8 +67,16 @@ static void
 		// It is an error if parameters is not of the right format: it must be a tuple containing the out-parameters of the D-Bus method.
 		// Even if the method has a single out-parameter, it must be contained in a tuple.
 
-		GVariant *values[] = { ipc3270_response_steal_value(response) };
-		g_dbus_method_invocation_return_value(invocation, g_variant_new_tuple(values,1));
+		guint ix;
+		guint length = ipc3270_response_length(response);
+
+		g_autofree GVariant ** values = g_new0(GVariant *, length);
+
+		for(ix = 0; ix < length; ix++) {
+			values[ix] = ipc3270_response_steal_value(response);
+		}
+
+		g_dbus_method_invocation_return_value(invocation, g_variant_new_tuple(values,length));
 
 	} else {
 
diff --git a/server/src/core/methods/cursor.c b/server/src/core/methods/cursor.c
index f39d1a5..b43cfce 100644
--- a/server/src/core/methods/cursor.c
+++ b/server/src/core/methods/cursor.c
@@ -66,3 +66,22 @@ int ipc3270_method_set_cursor(GObject *session, GVariant *request, GObject *resp
 	return 0;
 }
 
+int ipc3270_method_get_cursor_position(GObject *session, GVariant G_GNUC_UNUSED(*request), GObject *response, GError **error) {
+
+	H3270 *hSession = ipc3270_get_session(session);
+
+	if(*error)
+		return 0;
+
+	unsigned short row, col;
+
+	int rc = lib3270_get_cursor_position(hSession,&row,&col);
+	if(rc)
+		return rc;
+
+	ipc3270_response_append_uint32(response, (guint32) row);
+	ipc3270_response_append_uint32(response, (guint32) col);
+
+	return 0;
+}
+
diff --git a/server/src/core/methods/methods.c b/server/src/core/methods/methods.c
index 44c521b..f54eac5 100644
--- a/server/src/core/methods/methods.c
+++ b/server/src/core/methods/methods.c
@@ -71,6 +71,7 @@ int ipc3270_method_call(GObject *object, const gchar *method_name, GVariant *req
 
 		{ "setCursorAddress",			ipc3270_method_set_cursor					},
 		{ "setCursorPosition",			ipc3270_method_set_cursor					},
+		{ "getCursorPosition",			ipc3270_method_get_cursor_position			},
 
 		{ "action",						ipc3270_method_action						},
 		{ "activatable",				ipc3270_method_activatable					},
diff --git a/server/src/core/methods/private.h b/server/src/core/methods/private.h
index f7c4fb9..9a81eeb 100644
--- a/server/src/core/methods/private.h
+++ b/server/src/core/methods/private.h
@@ -57,6 +57,7 @@
 	G_GNUC_INTERNAL int ipc3270_method_wait_for_keyboard_unlock(GObject *session, GVariant *request, GObject *response, GError **error);
 
 	G_GNUC_INTERNAL int ipc3270_method_set_cursor(GObject *session, GVariant *request, GObject *response, GError **error);
+	G_GNUC_INTERNAL int ipc3270_method_get_cursor_position(GObject *session, GVariant *request, GObject *response, GError **error);
 
 	G_GNUC_INTERNAL int ipc3270_method_action(GObject *session, GVariant *request, GObject *response, GError **error);
 	G_GNUC_INTERNAL int ipc3270_method_activatable(GObject *session, GVariant *request, GObject *response, GError **error);
diff --git a/server/src/core/response.c b/server/src/core/response.c
new file mode 100644
index 0000000..9c25bc1
--- /dev/null
+++ b/server/src/core/response.c
@@ -0,0 +1,139 @@
+/*
+ * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
+ * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
+ * aplicativos mainframe. Registro no INPI sob o nome G3270.
+ *
+ * Copyright (C) <2008> <Banco do Brasil S.A.>
+ *
+ * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
+ * os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
+ * Free Software Foundation.
+ *
+ * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
+ * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
+ * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
+ * obter mais detalhes.
+ *
+ * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
+ * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
+ * St, Fifth Floor, Boston, MA  02110-1301  USA
+ *
+ * Este programa está nomeado como - e possui - linhas de código.
+ *
+ * Referências:
+ *
+ * https://github.com/joprietoe/gdbus/blob/master/gdbus-example-server.c
+ * https://github.com/bratsche/glib/blob/master/gio/tests/gdbus-example-export.c
+ *
+ * Contatos:
+ *
+ * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
+ * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
+ *
+ */
+
+#include <internals.h>
+
+#include <glib.h>
+#include <gio/gio.h>
+
+#include <ipc-glib.h>
+#include <lib3270.h>
+
+#include <lib3270/actions.h>
+#include <lib3270/properties.h>
+#include <lib3270/toggle.h>
+#include <v3270.h>
+
+#include <dbus/dbus-glib.h>
+#include <dbus/dbus-glib-bindings.h>
+
+/*--[ Widget definition ]----------------------------------------------------------------------------*/
+
+struct _ipc3270Response {
+	GObject		  parent;
+	GList		* values;
+};
+
+struct _ipc3270ResponseClass {
+
+	GObjectClass parent;
+	int dummy;
+
+};
+
+
+G_DEFINE_TYPE(ipc3270Response, ipc3270Response, G_TYPE_OBJECT)
+
+/*--[ Implement ]------------------------------------------------------------------------------------*/
+
+static void ipc3270Response_finalize(GObject *object) {
+
+	ipc3270Response * response = IPC3270_RESPONSE(object);
+
+	if(response->values)
+		g_list_free_full(response->values,(GDestroyNotify) g_variant_unref);
+
+}
+
+
+static void ipc3270Response_class_init(ipc3270ResponseClass *klass) {
+
+	debug("%s",__FUNCTION__);
+
+	GObjectClass *object_class;
+	object_class = G_OBJECT_CLASS (klass);
+	object_class->finalize = ipc3270Response_finalize;
+
+}
+
+static void ipc3270Response_init(ipc3270Response *object) {
+
+	object->values = NULL;
+
+}
+
+GObject * ipc3270_response_new() {
+	return g_object_new(GLIB_TYPE_IPC3270_RESPONSE, NULL);
+}
+
+void ipc3270_response_append(GObject *object, GVariant *value) {
+	ipc3270Response * response = IPC3270_RESPONSE(object);
+	response->values = g_list_append(response->values,value);
+}
+
+void ipc3270_response_append_int32(GObject *object, gint32 value) {
+	ipc3270_response_append(object,g_variant_new_int32(value));
+}
+
+void ipc3270_response_append_uint32(GObject *object, guint32 value) {
+	ipc3270_response_append(object,g_variant_new_uint32(value));
+}
+
+void ipc3270_response_append_string(GObject *object, const gchar *text) {
+	ipc3270_response_append(object,g_variant_new_string(text));
+}
+
+void ipc3270_response_append_boolean(GObject *object, gboolean value) {
+	ipc3270_response_append(object,g_variant_new_boolean(value));
+}
+
+GVariant * ipc3270_response_steal_value(GObject *object) {
+
+	ipc3270Response * response = IPC3270_RESPONSE(object);
+
+	GList *first = g_list_first(response->values);
+	GVariant * value = first->data;
+
+	response->values = g_list_remove(response->values,value);
+
+	return value;
+}
+
+guint ipc3270_response_length(GObject *object) {
+	return g_list_length(IPC3270_RESPONSE(object)->values);
+}
+
+gboolean ipc3270_response_has_values(GObject *object) {
+	return IPC3270_RESPONSE(object)->values != NULL;
+}
diff --git a/server/src/core/windows/response.c b/server/src/core/windows/response.c
deleted file mode 100644
index c00c6f1..0000000
--- a/server/src/core/windows/response.c
+++ /dev/null
@@ -1,150 +0,0 @@
-/*
- * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como - e possui - linhas de código.
- *
- * Referências:
- *
- * https://github.com/joprietoe/gdbus/blob/master/gdbus-example-server.c
- * https://github.com/bratsche/glib/blob/master/gio/tests/gdbus-example-export.c
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
- *
- */
-
-#include "gobject.h"
-#include <lib3270.h>
-#include <lib3270/actions.h>
-#include <lib3270/properties.h>
-#include <lib3270/toggle.h>
-#include <lib3270/log.h>
-#include <v3270.h>
-
-/*--[ Widget definition ]----------------------------------------------------------------------------*/
-
-struct _ipc3270Response {
-	GObject		  parent;
-	GVariant	* value;
-};
-
-struct _ipc3270ResponseClass {
-
-	GObjectClass parent;
-	int dummy;
-
-};
-
-
-G_DEFINE_TYPE(ipc3270Response, ipc3270Response, G_TYPE_OBJECT)
-
-/*--[ Implement ]------------------------------------------------------------------------------------*/
-
-static void ipc3270Response_finalize(GObject *object) {
-
-	ipc3270Response * response = IPC3270_RESPONSE(object);
-
-	debug("%s value=%p",__FUNCTION__,response->value);
-
-	if(response->value)
-		g_variant_unref(response->value);
-
-}
-
-
-static void ipc3270Response_class_init(ipc3270ResponseClass *klass) {
-
-	debug("%s",__FUNCTION__);
-
-	GObjectClass *object_class;
-	object_class = G_OBJECT_CLASS (klass);
-	object_class->finalize = ipc3270Response_finalize;
-
-}
-
-static void ipc3270Response_init(ipc3270Response *object) {
-
-	object->value = NULL;
-
-}
-
-GObject * ipc3270_response_new() {
-	return g_object_new(GLIB_TYPE_IPC3270_RESPONSE, NULL);
-}
-
-void ipc3270_response_append_int32(GObject *object, gint32 value) {
-
-	debug("%s(%d)",__FUNCTION__,value);
-
-	ipc3270Response * response = IPC3270_RESPONSE(object);
-
-	if(response->value)
-		g_variant_unref(response->value);
-
-	response->value = g_variant_new_int32(value);
-}
-
-void ipc3270_response_append_uint32(GObject *object, guint32 value) {
-
-	ipc3270Response * response = IPC3270_RESPONSE(object);
-
-	if(response->value)
-		g_variant_unref(response->value);
-
-	response->value = g_variant_new_uint32(value);
-}
-
-void ipc3270_response_append_string(GObject *object, const gchar *text) {
-
-	ipc3270Response * response = IPC3270_RESPONSE(object);
-
-	if(response->value)
-		g_variant_unref(response->value);
-
-	response->value = g_variant_new_string(text);
-
-}
-
-void ipc3270_response_append_boolean(GObject *object, gboolean value) {
-
-	ipc3270Response * response = IPC3270_RESPONSE(object);
-
-	if(response->value)
-		g_variant_unref(response->value);
-
-	response->value = g_variant_new_boolean(value);
-}
-
-
-GVariant * ipc3270_response_steal_value(GObject *object) {
-
-	ipc3270Response * response = IPC3270_RESPONSE(object);
-
-	GVariant * value = response->value;
-	response->value = NULL;
-
-	return value;
-}
-
-gboolean ipc3270_response_has_values(GObject *object) {
-	return IPC3270_RESPONSE(object)->value != NULL;
-}
diff --git a/server/src/include/ipc-glib.h b/server/src/include/ipc-glib.h
index 9c52225..ea6dfe2 100644
--- a/server/src/include/ipc-glib.h
+++ b/server/src/include/ipc-glib.h
@@ -113,6 +113,8 @@
 	void		  ipc3270_response_append_boolean(GObject *object, gboolean value);
 
 	gboolean	  ipc3270_response_has_values(GObject *object);
+	guint		  ipc3270_response_length(GObject *object);
+
 	GVariant	* ipc3270_response_steal_value(GObject *object);
 
 
diff --git a/server/src/testprogram/testprogram.c b/server/src/testprogram/testprogram.c
index ec74509..a6892d8 100644
--- a/server/src/testprogram/testprogram.c
+++ b/server/src/testprogram/testprogram.c
@@ -43,6 +43,7 @@
  #include <glib.h>
  #include <glib/gstdio.h>
  #include <lib3270/toggle.h>
+ #include <lib3270/ssl.h>
 
  /*---[ Globals ]------------------------------------------------------------------------------------*/
 
@@ -106,6 +107,9 @@
 	GtkWidget * notebook	= gtk_notebook_new();
 	GModule   * module		= NULL;
 
+	// Hack to speed up the tests.
+	lib3270_ssl_set_crl_download(v3270_get_session(terminal),0);
+
 	gtk_widget_set_name(window,session_name);
 	v3270_set_session_name(terminal,session_name);
 
diff --git a/server/testscripts/dbus.conf b/server/testscripts/dbus.conf
new file mode 100644
index 0000000..7c12433
--- /dev/null
+++ b/server/testscripts/dbus.conf
@@ -0,0 +1,6 @@
+
+PRODUCT_NAME=$(pkg-config --variable=product_name lib3270)
+
+DBUS_DEST=br.com.bb.${PRODUCT_NAME}.a
+DBUS_PATH="/br/com/bb/${PRODUCT_NAME}/a"
+DBUS_INTERFACE="br.com.bb.tn3270.session"
diff --git a/server/testscripts/getcursorposition.sh b/server/testscripts/getcursorposition.sh
new file mode 100755
index 0000000..fb17170
--- /dev/null
+++ b/server/testscripts/getcursorposition.sh
@@ -0,0 +1,14 @@
+#!/bin/bash
+#
+# https://stackoverflow.com/questions/48648952/set-get-property-using-dbus-send
+#
+
+. ./dbus.conf
+
+dbus-send \
+	--session \
+	--dest=${DBUS_DEST} \
+	--print-reply \
+	"${DBUS_PATH}" \
+	"${DBUS_INTERFACE}.getCursorPosition"
+
diff --git a/server/testscripts/introspect.sh b/server/testscripts/introspect.sh
index eff58a8..dcae733 100755
--- a/server/testscripts/introspect.sh
+++ b/server/testscripts/introspect.sh
@@ -1,10 +1,10 @@
 #!/bin/bash
 
-PRODUCT_NAME=$(pkg-config --variable=product_name lib3270)
+. ./dbus.conf
 
 gdbus \
 	introspect \
 	--session \
-	--dest=br.com.bb.${PRODUCT_NAME}.a \
-	--object-path=/br/com/bb/${PRODUCT_NAME}/a
+	--dest=${DBUS_DEST} \
+	--object-path="${DBUS_PATH}"
 
--
libgit2 0.21.2