|
From: Juan M. P. B. <ju...@us...> - 2001-05-18 05:30:31
|
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;
|