[Acdo-commit] CVS: acdo/src/pkg base_datos.adb,2.1,2.2 navegador_pkg-completar_lista.adb,1.1,1.2

[Juan M. P. B. <ju...@us...>]

Update of /cvsroot/acdo/acdo/src/pkg
In directory usw-pr-cvs1:/tmp/cvs-serv19529/src/pkg

Modified Files:
	base_datos.adb navegador_pkg-completar_lista.adb 
Log Message:

He hecho los call-backs del navegador y he arreglado bastantes cosas


Index: base_datos.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/pkg/base_datos.adb,v
retrieving revision 2.1
retrieving revision 2.2
diff -C2 -r2.1 -r2.2
*** base_datos.adb	2001/05/17 11:28:07	2.1
--- base_datos.adb	2001/05/18 05:30:28	2.2
***************
*** 9,13 ****
  with postgresql; use postgresql;
  with preferencias; use preferencias;
- with ada.text_IO; use ada.text_IO;
  
  package body base_datos is
--- 9,12 ----

Index: navegador_pkg-completar_lista.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/pkg/navegador_pkg-completar_lista.adb,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** navegador_pkg-completar_lista.adb	2001/05/17 19:39:46	1.1
--- navegador_pkg-completar_lista.adb	2001/05/18 05:30:28	1.2
***************
*** 3,6 ****
--- 3,8 ----
  --Autores: Óscar Bonilla, César Pérez
  --Fecha: 17 Mayo 2001
+ --Modificado: Juan Manuel Perie
+ --Fecha: 18 Mayo 2001
  --Fichero: navegador_pkg-completar_lista.adb
  --Proyecto: ACDO
***************
*** 22,26 ****
  
    procedure rellenar_lista (item : tpItem) is
!     itemDirectorio, itemVolumen : tpitem_access;
      cad : ustring;
      entero : gint;
--- 24,28 ----
  
    procedure rellenar_lista (item : tpItem) is
!     itemDirectorio, itemVolumen, itemFichero : tpitem_access;
      cad : ustring;
      entero : gint;
***************
*** 28,50 ****
        case item.tipo is
          when DIRECTORIO => 
! 	  itemVolumen := new tpItem(VOLUMEN);
! 	  itemVolumen.identificador := item.volumen;
! 	  completar(itemVolumen.all);
! 	  cad := U(S(itemVolumen.titulo)&":"&S(item.nombre_completo_dir));
! 	  entero := append (Navegador.Lista, item.identificador'img + "D" + S(itemVolumen.codigo) + S(cad) + item.tamanyo_dir'img + S(item.fecha_dir) + S(itemVolumen.tema) + S(itemVolumen.descripcion) + S(itemVolumen.tipo_dispositivo));
! 	  free(itemVolumen);
          when FICHERO => 
! 	  itemDirectorio := new tpitem(DIRECTORIO);
! 	  itemDirectorio.identificador := item.padre_fich;
! 	  completar(itemDirectorio.all);
! 	  itemVolumen := new tpItem(VOLUMEN);
! 	  itemVolumen.identificador := itemDirectorio.volumen;
! 	  completar(itemVolumen.all);
! 	  cad := U(S(itemVolumen.titulo)&":"&S(itemDirectorio.nombre_completo_dir)&"/"&S(item.nombre_fich));
!           entero := append (Navegador.Lista, item.identificador'img + "F" + S(itemVolumen.codigo) + S(cad) + item.tamanyo_fich'img + S(item.fecha_fich) + S(itemVolumen.tema) + S(itemVolumen.descripcion) + S(itemVolumen.tipo_dispositivo));
! 	  free(itemDirectorio);
! 	  free(itemVolumen);
          when VOLUMEN =>
!           entero := append (Navegador.Lista, item.identificador'img + "V" + S(item.codigo) + S(item.titulo) + "" + S(item.fecha_insercion) + S(item.tema) + S(item.descripcion) + S(item.tipo_dispositivo)); 
        end case;
    end rellenar_lista;
--- 30,72 ----
        case item.tipo is
          when DIRECTORIO => 
! 	        itemVolumen := new tpItem(VOLUMEN);
!           itemDirectorio := new tpitem(DIRECTORIO);
!           itemDirectorio.all := item;
!           completar(itemDirectorio.all);
! 	        itemVolumen.identificador := itemDirectorio.volumen;
! 	        completar(itemVolumen.all);
! 	        cad := U(S(itemVolumen.titulo)&":"&S(itemDirectorio.nombre_completo_dir));
! 	        entero := append (Navegador.Lista, itemDirectorio.identificador'img +
!                     "D" + S(itemVolumen.codigo) + S(cad) + itemDirectorio.tamanyo_dir'img
!                     + S(itemDirectorio.fecha_dir) + S(itemVolumen.tema) +
!                     S(itemVolumen.descripcion) + S(itemVolumen.tipo_dispositivo));
! 	        free(itemVolumen);
!           free(itemDirectorio);
          when FICHERO => 
! 	        itemDirectorio := new tpitem(DIRECTORIO);
!           itemFichero := new tpitem(FICHERO);
!           itemFichero.all := item;
!           completar(itemFichero.all);
! 	        itemDirectorio.identificador := itemFichero.padre_fich;
! 	        completar(itemDirectorio.all);
! 	        itemVolumen := new tpItem(VOLUMEN);
! 	        itemVolumen.identificador := itemDirectorio.volumen;
! 	        completar(itemVolumen.all);
! 	        cad := U(S(itemVolumen.titulo)&":"&S(itemDirectorio.nombre_completo_dir)&"/"&S(itemFichero.nombre_fich));
!           entero := append (Navegador.Lista, itemFichero.identificador'img +
!                     "F" + S(itemVolumen.codigo) + S(cad) + itemFichero.tamanyo_fich'img
!                     + S(itemFichero.fecha_fich) + S(itemVolumen.tema) +
!                     S(itemVolumen.descripcion) + S(itemVolumen.tipo_dispositivo));
! 	        free(itemDirectorio);
! 	        free(itemVolumen);
!           free(itemFichero);
          when VOLUMEN =>
!           itemVolumen := new tpitem(VOLUMEN);
!           itemVolumen.all := item;
!           completar(itemVolumen.all);
!           entero := append (Navegador.Lista, itemVolumen.identificador'img + "V" +
!                     S(itemVolumen.codigo) + S(itemVolumen.titulo) + "" +
!                     S(itemVolumen.fecha_insercion) + S(itemVolumen.tema) +
!                     S(itemVolumen.descripcion) + S(itemVolumen.tipo_dispositivo)); 
        end case;
    end rellenar_lista;