[Acdo-commit] CVS: acdo/src/pkg dispositivo.adb,2.4,2.5

[Cesar P. T. <or...@us...>]

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

Modified Files:
	dispositivo.adb 
Log Message:
añadidos los iconos


Index: dispositivo.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/pkg/dispositivo.adb,v
retrieving revision 2.4
retrieving revision 2.5
diff -C2 -r2.4 -r2.5
*** dispositivo.adb	2001/06/13 22:20:26	2.4
--- dispositivo.adb	2001/06/19 19:06:31	2.5
***************
*** 71,74 ****
--- 71,75 ----
        fecha := U(value(fechaptr));
        tamanyo := fichtamanyo;
+       put_line ("D?: " & fichdirectorio'img &". Nombre: " & value(nombreptr));
        if fichdirectorio = 0 then --no es directorio
  	 itemf.padre_fich := id;
***************
*** 107,112 ****
    begin
      preferencias.dar(prefs);
      -- abrimos el directorio
- 
      directorioPtr := abrirdirectorio (ustrings.S(prefs.ruta) & ASCII.NUL);
      --insertamos el volumen
--- 108,113 ----
    begin
      preferencias.dar(prefs);
+     
      -- abrimos el directorio
      directorioPtr := abrirdirectorio (ustrings.S(prefs.ruta) & ASCII.NUL);
      --insertamos el volumen