[Acdo-commit] CVS: acdo/src/gui agregar_pkg-callbacks.adb,2.3,2.4

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

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

Modified Files:
	agregar_pkg-callbacks.adb 
Log Message:
Añadidas las barras de desplazamiento


Index: agregar_pkg-callbacks.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/agregar_pkg-callbacks.adb,v
retrieving revision 2.3
retrieving revision 2.4
diff -C2 -r2.3 -r2.4
*** agregar_pkg-callbacks.adb	2001/06/13 19:13:00	2.3
--- agregar_pkg-callbacks.adb	2001/06/13 22:20:26	2.4
***************
*** 23,26 ****
--- 23,27 ----
  with text_io; use text_io;
  with navegador_pkg; use navegador_pkg;
+ with preferencias;
  
  package body Agregar_Pkg.Callbacks is
***************
*** 53,56 ****
--- 54,58 ----
     itemDirectorio: tpitem(DIRECTORIO);
     identif : integer;
+    p: tppreferencias;
     begin
     	datos_agregar.identificador := integer(agregar.identificador);
***************
*** 59,64 ****
  	datos_agregar.codigo := ustrings.U(Get_Text(Agregar.codigo));
  	datos_agregar.fecha_insercion := ustrings.U(Get_Text(Agregar.fecha));
- 	datos_agregar.tipo_dispositivo := ustrings.U(Get_Text(Agregar.medio));
  	datos_agregar.descripcion := ustrings.U(get_chars(Agregar.descripcion));
        if modoAgregar = AMANO then
           insertar(datos_agregar, identif);
--- 61,71 ----
  	datos_agregar.codigo := ustrings.U(Get_Text(Agregar.codigo));
  	datos_agregar.fecha_insercion := ustrings.U(Get_Text(Agregar.fecha));
  	datos_agregar.descripcion := ustrings.U(get_chars(Agregar.descripcion));
+ 	if get_text(agregar.medio) = "" then
+ 	  preferencias.dar(p);
+ 	  datos_agregar.tipo_dispositivo := p.medio;
+ 	else
+ 	  datos_agregar.tipo_dispositivo := ustrings.U(Get_Text(Agregar.medio));
+ 	end if;
        if modoAgregar = AMANO then
           insertar(datos_agregar, identif);