|
From: Cesar P. T. <or...@us...> - 2001-06-13 22:20:28
|
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);
|