|
From: Cesar P. T. <or...@us...> - 2001-06-21 23:46:51
|
Update of /cvsroot/acdo//acdo/src/gui
In directory usw-pr-cvs1:/tmp/cvs-serv8822/src/gui
Modified Files:
agregar_pkg-callbacks.adb
Log Message:
añadimos tema por defecto
Index: agregar_pkg-callbacks.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/agregar_pkg-callbacks.adb,v
retrieving revision 2.4
retrieving revision 2.5
diff -C2 -r2.4 -r2.5
*** agregar_pkg-callbacks.adb 2001/06/13 22:20:26 2.4
--- agregar_pkg-callbacks.adb 2001/06/21 23:46:48 2.5
***************
*** 62,65 ****
--- 62,68 ----
datos_agregar.fecha_insercion := ustrings.U(Get_Text(Agregar.fecha));
datos_agregar.descripcion := ustrings.U(get_chars(Agregar.descripcion));
+ if S(datos_agregar.tema) = "" then
+ datos_agregar.tema := U("Sin tema");
+ end if;
if get_text(agregar.medio) = "" then
preferencias.dar(p);
|