[Acdo-commit] CVS: acdo/src/pkg navegador_pkg-completar_lista.adb,NONE,1.1 navegador_pkg-completar_lista.ads,NONE,1.1

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

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

Added Files:
	navegador_pkg-completar_lista.adb 
	navegador_pkg-completar_lista.ads 
Log Message:
Navegador completo.


--- NEW FILE ---
--------------------------------------------------------------------------
--TILDURE
--Autores: Óscar Bonilla, César Pérez
--Fecha: 17 Mayo 2001
--Fichero: navegador_pkg-completar_lista.adb
--Proyecto: ACDO
--Descripción: funcion para rellenar la lista de la ventana del navegador
--------------------------------------------------------------------------
with navegador_pkg; use navegador_pkg;
with datos; use datos;
with ustrings; use ustrings;
with base_datos; use base_datos;
with unchecked_deallocation;
with Gtk.Enums; use Gtk.Enums;
with Glib; use Glib;
with gtkada.types; use gtkada.types;

package body navegador_pkg.completar_lista is

  procedure Free is new
    unchecked_deallocation(tpitem, tpitem_access );

  procedure rellenar_lista (item : tpItem) is
    itemDirectorio, itemVolumen : tpitem_access;
    cad : ustring;
    entero : gint;
  begin
      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;
end navegador_pkg.completar_lista;

--- NEW FILE ---
--------------------------------------------------------------------------
--TILDURE
--Autores: Óscar Bonilla, César Pérez
--Fecha: 17 Mayo 2001
--Fichero: navegador_pkg-completar_lista.ads
--Proyecto: ACDO
--Descripción: funcion para rellenar la lista de la ventana del navegador
--------------------------------------------------------------------------
with datos; use datos;

package navegador_pkg.completar_lista is

  procedure rellenar_lista (item : tpItem);
  --Se le pasa un item y lo inserta al final de la lista del navegador

end navegador_pkg.completar_lista;