/*--------------------------------------------------------------------
 * FICHERO:  UsrInfor.c
 * OBJETIVO: Definir la fucin Usr_Informa()
 * AUTOR:    Pedro Reina
 * FECHA:    J.20.4.1995
 *------------------------------------------------------------------*/

#include "Usuario.h"

/*--------------------------------------------------------------------
 * Definicin de funciones
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Usr_Informa()
 * OBJETIVO: Mandar un mensaje al usuario
 * ENTRADAS: El texto del mensaje
 * SALIDAS:  Ninguna
 * EJEMPLO:  Usr_Informa ( "Calculando" )
 * ALGORITMO:
 *      Borrar con negro la zona del usuario
 *      Aadir puntos suspensivos al texto
 *      Indicar que espere, en verde
 *      Escribir el texto, en blanco
 *------------------------------------------------------------------*/
void Usr_Informa (Texto)
cadena Texto;
  {
  cadena Mensaje;

  Usr_BorraZona ( NEGRO );
  Mensaje = Cad_Une (Texto, "... ", CAD_FIN);

  Pan_Tinta ( VERDE );
  Pan_PonTexto (USR_MENSAJE+1,0,"Espera un momento, por favor." );

  Pan_Tinta ( BLANCO );
  Pan_PonTexto (USR_MENSAJE,0,Mensaje);
  Pan_CursorVisible (SI);

  Cad_Destruye (Mensaje);
  }