diff --git a/pw3270.cbp b/pw3270.cbp
index b81001e..7e89da6 100644
--- a/pw3270.cbp
+++ b/pw3270.cbp
@@ -274,6 +274,9 @@
 		<Unit filename="src/pw3270/uiparser/script.c">
 			<Option compilerVar="CC" />
 		</Unit>
+		<Unit filename="src/pw3270/uiparser/scroll.c">
+			<Option compilerVar="CC" />
+		</Unit>
 		<Unit filename="src/pw3270/uiparser/separator.c">
 			<Option compilerVar="CC" />
 		</Unit>
diff --git a/src/include/v3270.h b/src/include/v3270.h
index 1efe98a..fbee5e7 100644
--- a/src/include/v3270.h
+++ b/src/include/v3270.h
@@ -180,7 +180,6 @@
  LIB3270_EXPORT	void		  	  v3270_draw_element(cairo_t *cr, unsigned char chr, unsigned short attr, H3270 *session, guint height, GdkRectangle *rect, GdkColor *color);
  LIB3270_EXPORT	void			  v3270_set_color(GtkWidget *widget, enum V3270_COLOR id, GdkColor *color);
  LIB3270_EXPORT	GdkColor		* v3270_get_color(GtkWidget *widget, enum V3270_COLOR id);
- LIB3270_EXPORT gboolean		  v3270_set_keyboard_action(GtkWidget *widget, const gchar *key_name, GtkAction *action);
 
  // Misc
  LIB3270_EXPORT	GtkIMContext	* v3270_get_im_context(GtkWidget *widget);
@@ -191,6 +190,9 @@
 
  LIB3270_EXPORT	void 			  v3270_set_host(GtkWidget *widget, const gchar *uri);
 
+ // Keyboard & Mouse special actions
+ LIB3270_EXPORT gboolean		  v3270_set_keyboard_action(GtkWidget *widget, const gchar *key_name, GtkAction *action);
+ LIB3270_EXPORT void			  v3270_set_scroll_action(GtkWidget *widget, GdkScrollDirection direction, GtkAction *action);
 
 G_END_DECLS
 
diff --git a/src/pw3270/actions.c b/src/pw3270/actions.c
index 70a30a6..9ac0446 100644
--- a/src/pw3270/actions.c
+++ b/src/pw3270/actions.c
@@ -468,15 +468,15 @@ GtkAction * ui_get_action(GtkWidget *widget, const gchar *name, GHashTable *hash
 														"setfullscreen",
 														"resetfullscreen"
  													};
- 	GtkAction		* action 		= NULL;
-	GtkAction 		**toggle_action	= (GtkAction **) g_object_get_data(G_OBJECT(widget),"toggle_actions");
-	const gchar		* direction		= ui_get_attribute("direction",names,values);
-	unsigned short	  flags			= 0;
-	const GCallback * callback		= NULL;
-	const gchar		* attr			= NULL;
-	int				  id			= 0;
-	gchar			* nm			= NULL;
-	int				  f;
+ 	GtkAction			* action 		= NULL;
+	GtkAction	 		**toggle_action	= (GtkAction **) g_object_get_data(G_OBJECT(widget),"toggle_actions");
+	UI_ATTR_DIRECTION	  dir			= ui_get_dir_attribute(names,values);
+	unsigned short		  flags			= 0;
+	const GCallback		* callback		= NULL;
+	const gchar			* attr			= NULL;
+	int					  id			= 0;
+	gchar				* nm			= NULL;
+	int					  f;
 
 	enum _action_type
 	{
@@ -492,20 +492,8 @@ GtkAction * ui_get_action(GtkWidget *widget, const gchar *name, GHashTable *hash
 
 	} action_type = ACTION_TYPE_DEFAULT;
 
-	if(direction)
-	{
-		static const gchar *dirname[] = { "up", "down", "left", "right" };
-		int f;
-
-		for(f=0;f<G_N_ELEMENTS(dirname);f++)
-		{
-			if(!g_ascii_strcasecmp(direction,dirname[f]))
-			{
-				flags |= f;
-				break;
-			}
-		}
-	}
+	if(dir != UI_ATTR_DIRECTION_NONE)
+		flags |= ((unsigned char) dir) & 0x03;
 
 	if(ui_get_bool_attribute("selecting",names,values,FALSE))
 		flags |= 0x80;
@@ -538,13 +526,13 @@ GtkAction * ui_get_action(GtkWidget *widget, const gchar *name, GHashTable *hash
 		action_type	= ACTION_TYPE_MOVE;
 		attr		= ui_get_attribute("target",names,values);
 
-		if(!(attr && direction))
+		if(!attr || dir == UI_ATTR_DIRECTION_NONE)
 		{
 			*error = g_error_new(ERROR_DOMAIN,EINVAL,"%s",_("Move action needs target & direction attributes" ));
 			return NULL;
 		}
 
-		nm = g_strconcat((flags & 0x80) ? "select" : "move",attr,direction, NULL);
+		nm = g_strconcat((flags & 0x80) ? "select" : "move",attr,ui_get_dir_name(dir), NULL);
 
 	}
 	else if(!g_ascii_strcasecmp(name,"paste"))
@@ -808,3 +796,14 @@ void ui_connect_text_script(GtkWidget *widget, GtkAction *action, const gchar *s
 	g_signal_connect(action,"activate",G_CALLBACK(action_text_script),widget);
 }
 
+void ui_set_scroll_actions(GtkWidget *widget, GtkAction *action[UI_ATTR_DIRECTION_COUNT])
+{
+	int f;
+
+	for(f=0;f<4;f++)
+	{
+		if(action[f])
+			v3270_set_scroll_action(widget, (GdkScrollDirection) f, action[f]);
+	}
+
+}
diff --git a/src/pw3270/uiparser/parsefile.c b/src/pw3270/uiparser/parsefile.c
index 273e99a..a8fb403 100644
--- a/src/pw3270/uiparser/parsefile.c
+++ b/src/pw3270/uiparser/parsefile.c
@@ -51,6 +51,7 @@
  	{ "accelerator",	UI_ELEMENT_ACCELERATOR,	ui_create_accelerator,	ui_end_accelerator	},
  	{ "popup",			UI_ELEMENT_POPUP,		ui_create_popup,		ui_end_popup		},
  	{ "script",			UI_ELEMENT_SCRIPT,		ui_create_script,		ui_end_script		},
+ 	{ "scroll",			UI_ELEMENT_SCROLL,		ui_create_scroll,		ui_end_scroll		},
  };
 
 /*--[ Implement ]------------------------------------------------------------------------------------*/
@@ -168,15 +169,6 @@
  	GtkWidget		* widget	= NULL;
  	int				  f;
 
-/*
-	if(info->disabled)
-	{
-		info->disabled++;
-		trace("%s: <%s> disabled=%d",__FUNCTION__,element_name,info->disabled);
-		return;
-	}
-*/
-
 	for(f=0;f<G_N_ELEMENTS(element_builder);f++)
 	{
 		if(!g_ascii_strcasecmp(element_name,element_builder[f].name))
@@ -240,7 +232,6 @@
 	}
 	else
 	{
-//		info->disabled++;
 		info->action = NULL;
 	}
  }
diff --git a/src/pw3270/uiparser/parser.c b/src/pw3270/uiparser/parser.c
index 0fffdca..61f99e4 100644
--- a/src/pw3270/uiparser/parser.c
+++ b/src/pw3270/uiparser/parser.c
@@ -36,6 +36,9 @@
 	#include <gtkmacintegration/gtk-mac-menu.h>
  #endif // HAVE_GTKMAC
 
+/*--[ Globals ]--------------------------------------------------------------------------------------*/
+
+static const gchar	* dirname[]	= { "up", "down", "left", "right" };
 
 /*--[ Implement ]------------------------------------------------------------------------------------*/
 
@@ -208,13 +211,15 @@ void parser_build(struct parser *p, GtkWidget *widget)
 	// Pack top toolbars
 	g_hash_table_foreach(p->element_list[UI_ELEMENT_TOOLBAR],(GHFunc) pack_start, p);
 
-	// Pack center widget
+	// Pack & configure center widget
 	if(widget)
 	{
+		ui_set_scroll_actions(widget,p->scroll_action);
 		gtk_box_pack_start(GTK_BOX(vbox),widget,TRUE,TRUE,0);
 		gtk_widget_show(widget);
 	}
 
+
 //	gtk_box_pack_start(GTK_BOX(vbox),hbox,TRUE,TRUE,0);
 
 	gtk_container_add(GTK_CONTAINER(p->toplevel),vbox);
@@ -335,3 +340,28 @@ int ui_parse_xml_folder(GtkWindow *toplevel, const gchar *path, const gchar ** g
 
 	return 0;
 }
+
+UI_ATTR_DIRECTION ui_get_dir_attribute(const gchar **names, const gchar **values)
+{
+	const gchar			* dir		= ui_get_attribute("direction",names,values);
+	int					  f;
+
+	if(dir)
+	{
+		for(f=0;f<G_N_ELEMENTS(dirname);f++)
+		{
+			if(!g_ascii_strcasecmp(dir,dirname[f]))
+				return f;
+		}
+	}
+
+	return UI_ATTR_DIRECTION_NONE;
+}
+
+const gchar * ui_get_dir_name(UI_ATTR_DIRECTION dir)
+{
+	if(dir == UI_ATTR_DIRECTION_NONE)
+		return "";
+	return dirname[dir];
+}
+
diff --git a/src/pw3270/uiparser/parser.h b/src/pw3270/uiparser/parser.h
index 9b515ce..327aaf9 100644
--- a/src/pw3270/uiparser/parser.h
+++ b/src/pw3270/uiparser/parser.h
@@ -33,6 +33,19 @@
 
 	#define UI_PARSER_H_INCLUDED 1
 
+	typedef enum ui_attr_direction
+	{
+		UI_ATTR_UP,
+		UI_ATTR_DOWN,
+		UI_ATTR_LEFT,
+		UI_ATTR_RIGHT,
+
+		UI_ATTR_DIRECTION_COUNT
+
+	} UI_ATTR_DIRECTION;
+
+	#define UI_ATTR_DIRECTION_NONE ((UI_ATTR_DIRECTION) -1)
+
 	/**
 	 * Callback list for specil widget.
 	 *
@@ -51,11 +64,14 @@
 		void		  (*setup)(GtkWidget *widget, GtkWidget *obj);
 	} UI_WIDGET_SETUP;
 
-	int			  ui_parse_xml_folder(GtkWindow *toplevel, const gchar *path, const gchar ** groupname, const gchar **popupname, GtkWidget *widget, const UI_WIDGET_SETUP *itn);
-	const gchar	* ui_get_attribute(const gchar *key, const gchar **name, const gchar **value);
-	gboolean	  ui_get_bool_attribute(const gchar *key, const gchar **name, const gchar **value, gboolean def);
-	GtkAction	* ui_get_action(GtkWidget *widget, const gchar *name, GHashTable *hash, const gchar **names, const gchar **values, GError **error);
+	int					  ui_parse_xml_folder(GtkWindow *toplevel, const gchar *path, const gchar ** groupname, const gchar **popupname, GtkWidget *widget, const UI_WIDGET_SETUP *itn);
+	const gchar			* ui_get_attribute(const gchar *key, const gchar **name, const gchar **value);
+	gboolean			  ui_get_bool_attribute(const gchar *key, const gchar **name, const gchar **value, gboolean def);
+	UI_ATTR_DIRECTION	  ui_get_dir_attribute(const gchar **name, const gchar **value);
+	GtkAction			* ui_get_action(GtkWidget *widget, const gchar *name, GHashTable *hash, const gchar **names, const gchar **values, GError **error);
+	const gchar			* ui_get_dir_name(UI_ATTR_DIRECTION dir);
 
-	void		  ui_connect_text_script(GtkWidget *widget, GtkAction *action, const gchar *script_text, GError **error);
+	void				  ui_connect_text_script(GtkWidget *widget, GtkAction *action, const gchar *script_text, GError **error);
+	void				  ui_set_scroll_actions(GtkWidget *widget, GtkAction *action[UI_ATTR_DIRECTION_COUNT]);
 
 #endif // UI_PARSER_H_INCLUDED
diff --git a/src/pw3270/uiparser/private.h b/src/pw3270/uiparser/private.h
index c42a191..8034861 100644
--- a/src/pw3270/uiparser/private.h
+++ b/src/pw3270/uiparser/private.h
@@ -51,12 +51,14 @@
  #define UI_ELEMENT_ACCELERATOR UI_ELEMENT_COUNT+2
  #define UI_ELEMENT_SCRIPT		UI_ELEMENT_COUNT+3
  #define UI_ELEMENT_MENUITEM	UI_ELEMENT_COUNT+4
+ #define UI_ELEMENT_SCROLL		UI_ELEMENT_COUNT+5
 
  struct parser
  {
  	GtkWidget				*  toplevel;
  	GObject					*  element;
  	GtkAction				*  action;
+ 	GtkAction				*  scroll_action[UI_ATTR_DIRECTION_COUNT];
 	GtkWidget				*  topmenu;
  	GtkAction				*  script_action;
  	GtkWidget				*  center_widget;
@@ -84,6 +86,7 @@
  GObject		* ui_create_accelerator(GMarkupParseContext *context,GtkAction *action,struct parser *info,const gchar **names, const gchar **values, GError **error);
  GObject		* ui_create_popup(GMarkupParseContext *context,GtkAction *action,struct parser *info,const gchar **names, const gchar **values, GError **error);
  GObject		* ui_create_script(GMarkupParseContext *context,GtkAction *action,struct parser *info,const gchar **names, const gchar **values, GError **error);
+ GObject		* ui_create_scroll(GMarkupParseContext *context,GtkAction *action,struct parser *info,const gchar **names, const gchar **values, GError **error);
 
  void			  ui_end_menubar(GMarkupParseContext *context,GObject *widget,struct parser *info,GError **error);
  void			  ui_end_menu(GMarkupParseContext *context,GObject *widget,struct parser *info,GError **error);
@@ -94,5 +97,6 @@
  void			  ui_end_accelerator(GMarkupParseContext *context,GObject *widget,struct parser *info,GError **error);
  void			  ui_end_popup(GMarkupParseContext *context,GObject *widget,struct parser *info,GError **error);
  void			  ui_end_script(GMarkupParseContext *context,GObject *widget,struct parser *info,GError **error);
+ void			  ui_end_scroll(GMarkupParseContext *context,GObject *widget,struct parser *info,GError **error);
 
  #include "parser.h"
diff --git a/src/pw3270/uiparser/scroll.c b/src/pw3270/uiparser/scroll.c
new file mode 100644
index 0000000..f81c970
--- /dev/null
+++ b/src/pw3270/uiparser/scroll.c
@@ -0,0 +1,66 @@
+/*
+ * "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 scroll.c e possui - linhas de código.
+ *
+ * Contatos:
+ *
+ * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
+ * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
+ * licinio@bb.com.br		(Licínio Luis Branco)
+ * kraucer@bb.com.br		(Kraucer Fernandes Mazuco)
+ *
+ */
+
+ #include <gtk/gtk.h>
+ #include "private.h"
+
+/*--[ Implement ]------------------------------------------------------------------------------------*/
+
+ GObject * ui_create_scroll(GMarkupParseContext *context,GtkAction *action,struct parser *info,const gchar **names, const gchar **values, GError **error)
+ {
+	UI_ATTR_DIRECTION dir = ui_get_dir_attribute(names,values);
+
+ 	if(info->element)
+	{
+		*error = g_error_new(ERROR_DOMAIN,EINVAL, _( "<%s> should be on toplevel"), "scroll");
+		return NULL;
+	}
+
+ 	if(!action)
+	{
+		*error = g_error_new(ERROR_DOMAIN,ENOENT, _( "<%s> requires %s"),"scroll",_( "an action attribute" ) );
+		return NULL;
+	}
+
+	if(dir == UI_ATTR_DIRECTION_NONE)
+	{
+		*error = g_error_new(ERROR_DOMAIN,ENOENT, _( "<%s> requires %s"),"scroll",_( "a direction attribute" ) );
+		return NULL;
+	}
+
+	info->scroll_action[dir] = action;
+
+	return NULL;
+ }
+
+ void ui_end_scroll(GMarkupParseContext *context,GObject *widget,struct parser *info,GError **error)
+ {
+ }
diff --git a/src/pw3270/uiparser/sources.mak b/src/pw3270/uiparser/sources.mak
index ec83861..a1ae1d0 100644
--- a/src/pw3270/uiparser/sources.mak
+++ b/src/pw3270/uiparser/sources.mak
@@ -1,3 +1,5 @@
 UI_PARSER_SRC=accelerator.c action.c menubar.c menu.c menuitem.c parser.c \
-				parsefile.c separator.c toolbar.c toolitem.c popup.c script.c
+				parsefile.c separator.c toolbar.c toolitem.c popup.c script.c \
+				scroll.c
+
 
diff --git a/src/pw3270/v3270/mouse.c b/src/pw3270/v3270/mouse.c
index 102849f..0b192b2 100644
--- a/src/pw3270/v3270/mouse.c
+++ b/src/pw3270/v3270/mouse.c
@@ -36,6 +36,10 @@
  #include <lib3270/actions.h>
  #include <lib3270/log.h>
 
+/*--[ Globals ]--------------------------------------------------------------------------------------*/
+
+ static GtkAction *action_scroll[] = { NULL, NULL, NULL, NULL };
+
 /*--[ Implement ]------------------------------------------------------------------------------------*/
 
 gint v3270_get_offset_at_point(v3270 *widget, gint x, gint y)
@@ -262,3 +266,24 @@ gboolean v3270_motion_notify_event(GtkWidget *widget, GdkEventMotion *event)
 
 	return FALSE;
 }
+
+void v3270_set_scroll_action(GtkWidget *widget, GdkScrollDirection direction, GtkAction *action)
+{
+ 	g_return_if_fail(GTK_IS_V3270(widget));
+	action_scroll[((int) direction) & 0x03] = action;
+}
+
+gboolean	  v3270_scroll_event(GtkWidget *widget, GdkEventScroll *event, gpointer user_data)
+{
+	v3270	* terminal	= GTK_V3270(widget);
+
+	if(lib3270_get_program_message(terminal->host) != LIB3270_MESSAGE_NONE || event->direction < 0 || event->direction > G_N_ELEMENTS(action_scroll))
+		return FALSE;
+
+	trace("Scroll: %d Action: %p",event->direction,action_scroll[event->direction]);
+
+	if(action_scroll[event->direction])
+		gtk_action_activate(action_scroll[event->direction]);
+
+	return TRUE;
+ }
diff --git a/src/pw3270/v3270/private.h b/src/pw3270/v3270/private.h
index 1839f7c..0925123 100644
--- a/src/pw3270/v3270/private.h
+++ b/src/pw3270/v3270/private.h
@@ -254,5 +254,6 @@ gboolean	  v3270_button_release_event(GtkWidget *widget, GdkEventButton*event);
 gboolean	  v3270_motion_notify_event(GtkWidget *widget, GdkEventMotion *event);
 void		  v3270_emit_popup(v3270 *widget, int baddr, GdkEventButton *event);
 gint 		  v3270_get_offset_at_point(v3270 *widget, gint x, gint y);
+gboolean	  v3270_scroll_event(GtkWidget *widget, GdkEventScroll *event, gpointer user_data);
 
 G_END_DECLS
diff --git a/src/pw3270/v3270/widget.c b/src/pw3270/v3270/widget.c
index e1c300f..7997340 100644
--- a/src/pw3270/v3270/widget.c
+++ b/src/pw3270/v3270/widget.c
@@ -294,6 +294,7 @@ static void v3270_class_init(v3270Class *klass)
 	widget_class->button_release_event				= v3270_button_release_event;
 	widget_class->motion_notify_event				= v3270_motion_notify_event;
 	widget_class->popup_menu						= v3270_popup_menu;
+	widget_class->scroll_event						= v3270_scroll_event;
 
 	/* Accessibility support */
 	widget_class->get_accessible 					= v3270_get_accessible;
--
libgit2 0.21.2