[Acdo-commit] CVS: acdo/src/gui globales.ads,2.1,2.2 navegador_pkg.adb,2.1,2.2

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

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

Modified Files:
	globales.ads navegador_pkg.adb 
Log Message:

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


Index: globales.ads
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/globales.ads,v
retrieving revision 2.1
retrieving revision 2.2
diff -C2 -r2.1 -r2.2
*** globales.ads	2001/05/10 19:01:09	2.1
--- globales.ads	2001/05/18 05:30:28	2.2
***************
*** 4,7 ****
--- 4,9 ----
  --Fichero: globales.ads
  --Fecha: 1 Mayo 2001
+ --Modificado: Juan Manuel Perie
+ --Fecha modificacion: 18 Mayo 2001
  --Proyecto: ACDO
  --Descripción: 
***************
*** 15,17 ****
--- 17,21 ----
  	desde_buscar : boolean;
  	glIdentificador: integer; -- identificador de un item para pasarlo entre el navegador y la ventana agregar
+   son_temas : boolean;
+ 
  end globales;

Index: navegador_pkg.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/navegador_pkg.adb,v
retrieving revision 2.1
retrieving revision 2.2
diff -C2 -r2.1 -r2.2
*** navegador_pkg.adb	2001/05/17 19:39:46	2.1
--- navegador_pkg.adb	2001/05/18 05:30:28	2.2
***************
*** 5,8 ****
--- 5,10 ----
  --Modificado por: Óscar Bonilla
  --Fecha modificación: 17 Mayo 2001
+ --Modificado por: Juan Manuel Perie
+ --Fecha modificacion: 18 Mayo 2001
  --Fichero: navegador_pkg.adb
  --Proyecto: ACDO
***************
*** 25,28 ****
--- 27,32 ----
  with preferencias;
  with navegador_pkg.completar_lista; use navegador_pkg.completar_lista;
+ with ada.text_IO; use ada.text_IO;
+ with ada.integer_text_IO; use ada.integer_text_IO;
  
  package body Navegador_Pkg is
***************
*** 36,44 ****
  procedure Initialize (Navegador : access Navegador_Record'Class) is
     pragma Suppress (All_Checks);
! nombreTema: ustring;
! fin: boolean;
! item : tpitem_access;
! prefs: tppreferencias;
! entero: gint;
  begin
     preferencias.dar(prefs);
--- 40,48 ----
  procedure Initialize (Navegador : access Navegador_Record'Class) is
     pragma Suppress (All_Checks);
!   nombreTema: ustring;
!   fin: boolean;
!   item : tpitem_access;
!   prefs: tppreferencias;
!   entero: gint;
  begin
     preferencias.dar(prefs);
***************
*** 183,186 ****
--- 187,191 ----
     else -- buscamos los temas
      -- ocultamos las columnas que no nos interesan
+     son_temas := true;
      Set_Column_Visibility (Navegador.Lista, 1, false);
      Set_Column_Visibility (Navegador.Lista, 2, false);
***************
*** 195,199 ****
      recuperar (nombreTema, fin);
      while not fin loop
!       entero := append (Navegador.Lista, "" + "" + "" + ustrings.S(nombreTema));
        recuperar (nombreTema, fin);
      end loop;
--- 200,204 ----
      recuperar (nombreTema, fin);
      while not fin loop
!       entero := append(Navegador.Lista, "" + "" + "" + ustrings.S(nombreTema) + "" + "" + "" + "" + "");
        recuperar (nombreTema, fin);
      end loop;