Software Público Brasileiro

/*
 * "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., 59 Temple
 * Place, Suite 330, Boston, MA, 02111-1307, USA
 *
 * Este programa está nomeado como gui.c e possui 88 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)
 * macmiranda@bb.com.br		(Marco Aurélio Caldas Miranda)
 *
 */

 #include "rx3270.h"

/*---[ Statics ]----------------------------------------------------------------------------------*/

 GtkWidget *getWidget(LONG Argc, RXSTRING Argv[])
 {
 	GtkWidget *widget = NULL;

	Trace("%s(%s)",__FUNCTION__,Argv[Argc].strptr);

	if(sscanf(Argv[Argc].strptr, "%p", &widget) != 1)
		return NULL;

	Trace("Widget: %p (is widget: %s)",widget,GTK_IS_WIDGET(widget) ? "yes" : "no");

	if(!widget)
		return NULL;

	if(!GTK_IS_WIDGET(widget))
		return NULL;

	return widget;
 }

GtkMessageType getMessageDialogType(const char *arg)
{
 	static const struct _msgtype
 	{
 		const gchar 	*name;
 		GtkMessageType type;
 	} msgtype[] =
 	{
		{ "INFO",		GTK_MESSAGE_INFO		},
		{ "WARNING",	GTK_MESSAGE_WARNING		},
		{ "QUESTION",	GTK_MESSAGE_QUESTION	},
		{ "ERROR",		GTK_MESSAGE_ERROR		}
 	};

 	int f;

	for(f = 0; f < G_N_ELEMENTS(msgtype); f++)
	{
		if(!g_ascii_strncasecmp(msgtype[f].name,arg,strlen(msgtype[f].name)))
		{
			Trace("Messagetype: %s (%d)",msgtype[f].name,(int) msgtype[f].type);
			return msgtype[f].type;
		}
	}
	return GTK_MESSAGE_OTHER;
 }

 RexxReturnCode RetGtkResponse(PRXSTRING Retstr, GtkResponseType type)
 {
 	static const struct _rsptype
 	{
 		GtkResponseType type;
 		const gchar 	*ret;
 	} rsptype[] =
 	{
		{ GTK_RESPONSE_NONE,			"NONE"		},
		{ GTK_RESPONSE_REJECT,			"REJECT"	},
		{ GTK_RESPONSE_ACCEPT,			"ACCEPT"	},
		{ GTK_RESPONSE_DELETE_EVENT,	"DELETED"	},
		{ GTK_RESPONSE_OK,				"OK"		},
		{ GTK_RESPONSE_CANCEL,			"CANCEL"	},
		{ GTK_RESPONSE_CLOSE,			"CLOSE"		},
		{ GTK_RESPONSE_YES,				"YES"		},
		{ GTK_RESPONSE_NO,				"NO"		},
		{ GTK_RESPONSE_APPLY,			"APPLY"		},
		{ GTK_RESPONSE_HELP,			"HELP"		},
 	};

 	int f;

 	for(f=0;f<G_N_ELEMENTS(rsptype);f++)
 	{
 		if(rsptype[f].type == type)
			return RetString(Retstr,rsptype[f].ret);
 	}

	return RetValue(Retstr,(int) type);
 }

/*---[ Implement ]--------------------------------------------------------------------------------*/

/*----------------------------------------------------------------------------*/
/*                                                                            */
/* Rexx External Function: rx3270Popup			                              */
/*                                                                            */
/* Description: Show Popup window                                             */
/*                                                                            */
/* Rexx Args:   Text for error popup                                          */
/*                                                                            */
/* Rexx Args:   Message Type ( "INFO", "WARNING", "QUESTION", "ERROR"         */
/*				Text for popup           							  		  */
/*              Window title	                            				  */
/*                                                                            */
/* Returns:	    Dialog result                                                 */
/*                                                                            */
/*----------------------------------------------------------------------------*/
 RexxReturnCode REXXENTRY rx3270Popup(PSZ Name, LONG Argc, RXSTRING Argv[],PSZ Queuename, PRXSTRING Retstr)
 {
 	GtkMessageType	type = GTK_MESSAGE_ERROR;
 	GtkWidget		*dialog;
 	const gchar	*text = "";
 	const gchar	*title = _( "Rexx message" );
 	int				rc = 0;

	Trace("Argc: %d",(int) Argc);

	switch(Argc)
	{
	case 1:
		text = Argv[0].strptr;
		break;

	case 2:
		type = getMessageDialogType(Argv[0].strptr);
		text = Argv[1].strptr;
		break;

	case 3:
		type = getMessageDialogType(Argv[0].strptr);
		text = Argv[1].strptr;
		title = Argv[2].strptr;
		break;

	default:
		return RXFUNC_BADCALL;

	}

 	dialog = gtk_message_dialog_new(	GTK_WINDOW(program_window),
										GTK_DIALOG_DESTROY_WITH_PARENT,
										type,
										GTK_BUTTONS_CLOSE,
										"%s",text );

	gtk_window_set_title(GTK_WINDOW(dialog),title);

	rc = gtk_dialog_run(GTK_DIALOG (dialog));
	gtk_widget_destroy(dialog);
	return RetValue(Retstr,rc);
 }

/*----------------------------------------------------------------------------*/
/*                                                                            */
/* Rexx External Function: rx3270SetWidgetData	                              */
/*                                                                            */
/* Description: Set widget data                                               */
/*                                                                            */
/* Rexx Args:   Widget handle                                                 */
/*              Parameter name                                                */
/*              Parameter value                                               */
/*                                                                            */
/* Returns:	    None                                                          */
/*                                                                            */
/*----------------------------------------------------------------------------*/
RexxReturnCode REXXENTRY rx3270SetWidgetData(PSZ Name, LONG Argc, RXSTRING Argv[],PSZ Queuename, PRXSTRING Retstr)
{
	GtkWidget *widget;

	if(Argc != 3)
		return RXFUNC_BADCALL;

	GET_WIDGET_ARG(widget,0);

	g_object_set_data_full(G_OBJECT(widget),Argv[1].strptr,g_strdup(Argv[2].strptr),g_free);

	return RetValue(Retstr,0);
}

/*----------------------------------------------------------------------------*/
/*                                                                            */
/* Rexx External Function: rx3270GetWidgetData	                              */
/*                                                                            */
/* Description: Get widget data                                               */
/*                                                                            */
/* Rexx Args:   Widget handle                                                 */
/*              Parameter name                                                */
/*                                                                            */
/* Returns:	    Parameter value                                               */
/*                                                                            */
/*----------------------------------------------------------------------------*/
RexxReturnCode REXXENTRY rx3270GetWidgetData(PSZ Name, LONG Argc, RXSTRING Argv[],PSZ Queuename, PRXSTRING Retstr)
{
	GtkWidget *widget;

	if(Argc != 2)
		return RXFUNC_BADCALL;

	GET_WIDGET_ARG(widget,0);

	return RetString(Retstr,g_object_get_data(G_OBJECT(widget),Argv[1].strptr));
}

/*----------------------------------------------------------------------------*/
/*                                                                            */
/* Rexx External Function: rx3270SetWidgetVisibleState                        */
/*                                                                            */
/* Description: Causes the given text to appear superimposed on the progress bar. */
/*                                                                            */
/* Rexx Args:   Widget hangle                                                 */
/*              0 to hide widget, non zero to show it                         */
/*                                                                            */
/* Returns:	    none                                                          */
/*                                                                            */
/*----------------------------------------------------------------------------*/
 RexxReturnCode REXXENTRY rx3270SetWidgetVisibleState(PSZ Name, LONG Argc, RXSTRING Argv[],PSZ Queuename, PRXSTRING Retstr)
 {
 	GtkWidget *widget;

	if(Argc != 2)
		return RXFUNC_BADCALL;

	GET_WIDGET_ARG(widget,0);

	if(atoi(Argv[1].strptr))
		gtk_widget_show(widget);
	else
		gtk_widget_hide(widget);

	return RetValue(Retstr,0);
 }