Foro - Perl en Español

Hola

Aquí va mi problema.
Lo explicaré con el siguiente código:



Hssta aquí todo bien, pero no sé cómo guardar la opción que el usuario ha seleccionado en el getOpenFile... por lo que he visto, hice algo así pero aun no funciona:



desde ya, gracias =)

Faltan un par de cosillas y cambiar otras:
* He agregado la línea 4 para poder usar diálogos
* En la línea 12, estaba mal escrita la forma de pasar a -command la referencia de una función. Fíjate que es simplemente el nombre de la función &get_file precedida por el '\' para indicar que le estamos pasando la referencia a esa función. Lo que tenías antes era: sub{\&get_file}, que es una función que devuelve la referencia a &get_file, pero eso no le sirve a -command
* De la 17 a 24 he añadido algún contenido para la lista desplegable de tipos de archivo. Lo he sacado del ejemplo de getOpenFile en CPAN
* En la 26, agregamos a la llamada getOpenFile los tipos de ficheros definidos antes
* Y, lo que faltaba, en la línea 32, mostramos la caja de diálogo con la selección hecha por el usuario.

El resultado de getOpenFile queda almacenado en $file, pero como es una variable local a get_file, su valor se perderá al terminar esa función.

muchas gracias
funciona a la perfección.

:/ lo de Tk::Dialog se me paso por alto en el ejemplo =O pero lo había puesto en mi script, en fin, eso ya no importa.

gracias otra vez

bueno, siguiendo kon el mismo tema tengo mas problemas

kon el mismo kodigo he intentado asignar el valor ke toma $file (my $file = $mw->getOpenFile(-filetypes=>$types); ) en una variable ke es usada fuera de la subrutina, pero no lo he logrado. =/

Mas especifikamente, el valor de $file se asigna a una variable externa llamada $currentfile, la kual se usa en un kuadro de Dialogo para ser mostrada dentro del atributo "-text". Aki el kode:



desde ia gracia

Si analizamos el código, esta es la secuencia de acontecimientos:
1.- Creas la ventana principal y la barra de menús
2.- $currentfile es creada. Su valor es indefinido.
3.- Defines qué sucede cuando el usuario pulsa sobre 'Open'
4.- Creas la caja de diálogo. ATENCIÓN: $currentfile, aquí, sigue estando indefinida.
5.- Defines qué sucede cuando el usuario pulsa sobre 'View'
6.- Defines la función que saca el openGetFile
7.- Entras en el bucle principal de espera

Date cuenta: creas el diálogo UNA vez, con el valor de $currentfile EN ESE MOMENTO, por lo que no veremos nada, porque nada tiene.

Cuando el usuario pulsa sobre 'Open', $currentfile, correctamente, se actualiza al valor de $file, PERO, cuando el usuario pulsa sobre 'View', estamos viendo el valor ORIGINAL de CUANDO SE CREÓ el diálogo. Osea, nada.

Entonces, la solución pasa, naturalmente, por crear el diálogo JUSTO DESPUÉS de saber el nuevo valor de $currentfile... o, mejor aún... JUSTO cuando el usuario lo pide: