[Acdo-commit] CVS: acdo/src/gui navegador_pkg.adb,2.0,2.1 principal_pkg-callbacks.adb,2.0,2.1

[?scar B. Gonz?l. <bo...@us...>]

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;