🚀 go-pugleaf

PheStaR escribi�:
>> Estoy haciendo un programa con Pascal y el "fabuloso" GTK+.
>>
>> Tengo 3 entradas de texto y una funcion que deberia recoger como
>> parametros los valores que les damos a esas entradas pero no tengo ni
>> idea de como pasar esos parametros a la funcion por lo que he empleado
>> una variable global, un vector de cadenas, en el que meto el valor de
>> cada entrada y luego en la funcion que que debe recibirlos leo ese vector.
>> Funciona el invento, es una guarrada lo se, pero mi pregunta es: �como
>> paso parametros a la funcion que los necesita?
>>
>> Algun tutorial donde se vea algo de esto porque de los que me he
>> encontrado solo usan una entrada de texto.
>>
>> Saludos y gracias.
> 
> �Practicas de MTP en Le�n? Yo las hice hace ya unos cuantos a�os... Bueno,
> para pasar parametros a funciones creo que hay que usar un puntero a los
> datos que quieres pasar como �ltimo par�metro al llamar gtk_signal_connect,
> y luego ya se pueden disponer de esos datos en la funci�n llamada cuando se
> produce la se�al. Pondr�a algo de ejemplo pero no tengo nada a mano (lo
> tengo todo en otro ordenador que no tengo aqu�), de todas formas busca
> ejemplos en C que es m�s o menos igual y hay bastante m�s que en
> freepascal.

Pues si en Leon y MTP.

La cosa es que a la funcion crearXML le quiero pasr lo que meto en 
entrada1, entrada2 y entrada3 pero no tengo ni zorra de como indicarselo.

Te pego el codigo, que es una guarrada, para que lo veas.

Saludos y gracias!

*********************************************************************

PROGRAM practica06;

USES gtk, gdk, glib, dos, unix;

VAR
	vector: array[1..3] of string;
	i: byte;

	window: pGtkWidget;
	cajaFondo, cajaFondo2, cajaIzd, cajaDer, cajaSalir: pGtkWidget;
	btnSalir, btnMakeskelCrear, entrada1, entrada2, entrada3: pGtkWidget;

PROCEDURE delete_event(widget: pGtkWidget; event: pGdkEvent; data: 
pgpointer );
BEGIN
	gtk_main_quit();
END;

PROCEDURE textoEntrada(widget, entrada: pGtkWidget); cdecl;
VAR texto: pgchar;
BEGIN
	texto := gtk_entry_get_text(pGtkEntry(entrada));
	//writeln(entry_text);
	vector[i] := texto;
	i:=i+1;
END;

PROCEDURE crearXML(widget, entrada1: pGtkWidget); cdecl;
VAR comando: string;
BEGIN	
	comando :='makeskel --package='+ vector[0] + '  --input=' + vector[1] + 
' --output=' + vector[2];
	//writeln(comando);
	shell(comando);
END;

BEGIN
	i := 0;
	gtk_init(@argc, @argv);

	// Ventana
	window := gtk_window_new(GTK_WINDOW_TOPLEVEL);
	gtk_widget_set_usize( GTK_WIDGET (window), 400, 400);
	gtk_signal_connect(GTK_OBJECT(window), 'delete_event', 
GTK_SIGNAL_FUNC(@gtk_exit), NIL);
	gtk_container_set_border_width(GTK_CONTAINER(window),10);
	// **********************************************

	cajaFondo := gtk_vbox_new(FALSE, 0);
	cajaFondo2:= gtk_hbox_new(FALSE, 0);

	// Parte de la zona izquierda
	cajaIzd := gtk_vbox_new(false, 0);

	entrada1 := gtk_entry_new_with_max_length(50);
	gtk_signal_connect(pGtkOBJECT(entrada1), 'activate', 
GTK_SIGNAL_FUNC(@textoEntrada), entrada1);
	gtk_box_pack_start(pGtkBOX(cajaIzd), entrada1, true, false, 0);

	entrada2 := gtk_entry_new_with_max_length(50);
	gtk_signal_connect(pGtkOBJECT(entrada2), 'activate', 
GTK_SIGNAL_FUNC(@textoEntrada), entrada2);
	gtk_box_pack_start(pGtkBOX(cajaIzd), entrada2, false, true, 5);


	entrada3 := gtk_entry_new_with_max_length(50);
	gtk_signal_connect(pGtkOBJECT(entrada3), 'activate', 
GTK_SIGNAL_FUNC(@textoEntrada), entrada3);
	gtk_box_pack_start(pGtkBOX(cajaIzd), entrada3, false, false, 5);

	btnMakeskelCrear := gtk_button_new_with_label('Crear XML');
	gtk_signal_connect_object(pGtkObject(btnMakeskelCrear), 'clicked', 
GTK_SIGNAL_FUNC(@crearXML), GTK_OBJECT(window));
	gtk_box_pack_start(GTK_BOX(cajaIzd), btnMakeskelCrear, TRUE, true, 5);

	gtk_box_pack_start(GTK_BOX(cajaFondo2), cajaIzd, FALSE, FALSE, 0);
	// **********************************************

	// Parte de la zona derecha
	cajaDer := gtk_vbox_new(FALSE, 0);
	gtk_box_pack_start(GTK_BOX(cajaFondo2), cajaDer, FALSE, FALSE, 0);

	gtk_box_pack_start(GTK_BOX(cajaFondo), cajaFondo2, FALSE, FALSE, 0);

	cajaSalir := gtk_hbox_new(FALSE, 0);

	btnSalir := gtk_button_new_with_label('Salir');
	gtk_signal_connect_object(pGtkObject(btnSalir), 'clicked', 
GTK_SIGNAL_FUNC(@delete_event), 	GTK_OBJECT(window));
	gtk_box_pack_start(GTK_BOX(cajaSalir), btnSalir, TRUE, true, 0);

	gtk_box_pack_start(GTK_BOX(cajaFondo), cajaSalir, FALSE, FALSE, 0);
	gtk_container_add (GTK_CONTAINER(window), cajaFondo);
	// **********************************************

	gtk_widget_show_all(window);
	gtk_main();
END.