|
From: ?scar B. Gonz?l. <bo...@us...> - 2001-05-17 19:39:48
|
Update of /cvsroot/acdo//acdo/src/gui
In directory usw-pr-cvs1:/tmp/cvs-serv3265/src/gui
Modified Files:
navegador_pkg.adb principal_pkg-callbacks.adb
Log Message:
Navegador completo.
Index: navegador_pkg.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/navegador_pkg.adb,v
retrieving revision 2.0
retrieving revision 2.1
diff -C2 -r2.0 -r2.1
*** navegador_pkg.adb 2001/05/10 19:59:31 2.0
--- navegador_pkg.adb 2001/05/17 19:39:46 2.1
***************
*** 3,9 ****
--Autores: María Bazús, César Pérez, Marta Tolosa
--Fecha: 5 Mayo 2001
! --Fichero: navegador_pkg-callbacks.adb
--Proyecto: ACDO
! --Descripción: callbacks de la ventana del navegador
--------------------------------------------------------------------------
with Glib; use Glib;
--- 3,11 ----
--Autores: María Bazús, César Pérez, Marta Tolosa
--Fecha: 5 Mayo 2001
! --Modificado por: Óscar Bonilla
! --Fecha modificación: 17 Mayo 2001
! --Fichero: navegador_pkg.adb
--Proyecto: ACDO
! --Descripción: ventana del navegador
--------------------------------------------------------------------------
with Glib; use Glib;
***************
*** 22,25 ****
--- 24,28 ----
with ustrings; use ustrings;
with preferencias;
+ with navegador_pkg.completar_lista; use navegador_pkg.completar_lista;
package body Navegador_Pkg is
***************
*** 35,39 ****
nombreTema: ustring;
fin: boolean;
! item: tpitem_access;
prefs: tppreferencias;
entero: gint;
--- 38,42 ----
nombreTema: ustring;
fin: boolean;
! item : tpitem_access;
prefs: tppreferencias;
entero: gint;
***************
*** 172,191 ****
if desde_buscar then
- -- FIXME: Pasar todo este código a una función, tb será utilizado por los
- -- callbacks de esta misma ventana.
- -- FIXME: hay que añadir el medio en la posición 8 de la lista
recuperar (item, fin);
while not fin loop
! case item.tipo is
! when DIRECTORIO => -- FIXME: buscar volumen, tema y descripcion
! --entero := append (Navegador.Lista, item.identificador'img + "D" + S(volumen) & ":" & S(item.nombre_completo_dir) + item.tamanyo_dir'img + S(fecha) + S(tema) + S(descripcion));
! entero := append (Navegador.Lista, item.identificador'img + "D");
! when FICHERO => -- FIXME: buscar volumen, directorio, tema y descripción
! entero := append (Navegador.Lista, item.identificador'img + "F");
! when VOLUMEN =>
! --entero := append (Navegador.Lista, item.identificador'img + "V" + S(item.codigo) + S(item.titulo) + "" + S(item.fecha_insercion) + S(tema) + S(descripcion));
! entero := append (Navegador.Lista, item.identificador'img + "V" + S(item.codigo) + S(item.titulo) + "" + S(item.fecha_insercion));
! end case;
end loop;
else -- buscamos los temas
-- ocultamos las columnas que no nos interesan
--- 175,184 ----
if desde_buscar then
recuperar (item, fin);
while not fin loop
! rellenar_lista(item.all);
! recuperar(item, fin);
end loop;
+
else -- buscamos los temas
-- ocultamos las columnas que no nos interesan
***************
*** 202,206 ****
recuperar (nombreTema, fin);
while not fin loop
! entero := append (Navegador.Lista, "" + "" + "" +ustrings.S(nombreTema));
end loop;
end if;
--- 195,200 ----
recuperar (nombreTema, fin);
while not fin loop
! entero := append (Navegador.Lista, "" + "" + "" + ustrings.S(nombreTema));
! recuperar (nombreTema, fin);
end loop;
end if;
Index: principal_pkg-callbacks.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/principal_pkg-callbacks.adb,v
retrieving revision 2.0
retrieving revision 2.1
diff -C2 -r2.0 -r2.1
*** principal_pkg-callbacks.adb 2001/05/10 19:59:31 2.0
--- principal_pkg-callbacks.adb 2001/05/17 19:39:46 2.1
***************
*** 24,28 ****
with navegador_pkg; use navegador_pkg;
with acercade_pkg; use acercade_pkg;
- with utiles; use utiles;
with ustrings; use ustrings;
with gtk.gentry; use gtk.gentry;
--- 24,27 ----
***************
*** 30,33 ****
--- 29,33 ----
with gtk.check_button; use gtk.check_button;
with base_datos;
+ with gtk.main; use gtk.main;
package body Principal_Pkg.Callbacks is
***************
*** 44,48 ****
is
begin
! salir;
end On_Principal_Destroy;
--- 44,49 ----
is
begin
! base_datos.desconectar;
! Main_Quit;
end On_Principal_Destroy;
***************
*** 129,133 ****
is
begin
! salir;
end On_Salir_Clicked;
--- 130,135 ----
is
begin
! base_datos.desconectar;
! Main_Quit;
end On_Salir_Clicked;
|