/*--------------------------------------------------------------------
 * FICHERO:  MenHoriz.c
 * OBJETIVO: Definir la funcin Men_Horizontal()
 * AUTOR:    Pedro Reina
 * FECHA:    L.7.8.1995
 *------------------------------------------------------------------*/

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

#include "Menu.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Men_Horizontal()
 * OBJETIVO: Presentar al usuario un men horizontal para que
 *           pueda elegir entre varias opciones, mediante las
 *           teclas del cursor o mediante un atajo (tecla
 *           caliente)
 * ENTRADAS: La fila en la que se muestra el men, las columnas
 *           entre las que se muestra, un vector de cadenas, 
 *           terminado en NIL, en el que se sealan los atajos
 *           y la opcin que hay resaltar en primer lugar
 * SALIDAS:  Un nmero indicando la opcin elegida, empezando a
 *           contar en 1, o 0 si no se elige ninguna o no hay
 *           memoria suficiente
 * EJEMPLO:  Men_Horizontal (1,1,78,{">Fichero","A>yuda",NIL},2)
 * ALGORITMO:
 *      Crear un men horizontal de vectores
 *      Ejecutarlo
 *      Destruirlo
 *------------------------------------------------------------------*/
entero Men_Horizontal (Fila, Col1, Col2, ListaOpcion, Opcion)
octeto Fila, Col1, Col2;
cadena ListaOpcion[];
entero Opcion;
  {
  menu Menu;
  
  if ( Menu = Men_Crea (MEN_HORIZONTAL, Fila, Col1, Fila, Col2, 
                        Men_TotalOpcion(ListaOpcion), MEN_VECTOR,
                        (memoria) ListaOpcion) )
    { 
    Opcion = Men_EjecutaHorizontal (Menu, Opcion, 
                 "Elige una de las opciones");
    Men_Destruye (Menu);
    }
    
  else  { Opcion = 0; }
  
  return ( Opcion );  
  }
