/*--------------------------------------------------------------------
 * FICHERO:  RegEscri.c
 * OBJETIVO: Definir la funcin Reg_Escribe()
 * AUTOR:    Pedro Reina
 * FECHA:    V.14.7.1995
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------------
 * Ficheros de cabecera
 *------------------------------------------------------------------*/

#include "Region.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Reg_Escribe()
 * OBJETIVO: Escribir el trozo almacenado en el trozo de 
 *           una regin
 * ENTRADAS: La regin
 * SALIDAS:  Lgica, que indica que se ha podido realizar la 
 *           escritura
 * EJEMPLO:  Reg_Escribe (CuadroInfo)
 *------------------------------------------------------------------*/
logico Reg_Escribe (Region)
region Region;
  {
  logico Respuesta = NO;

  if ( Reg_Trozo (Region) )
    {
    Respuesta = Trz_Restituye (Reg_Trozo(Region), Reg_FilSup(Region),
                               Reg_ColIzq(Region));
    }

  return ( Respuesta );
  }