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

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

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);