IIUG Software Repository Files

Vertmenu 30 secs documentation:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Contents:	fgiusr.c - sample fgiusr.c file for vertlib.c
		readme - this readme file
		vertlib.c - c functions needed by vertmenu
		vertmenu.4gl - the tool

Author:		Marco Greco (marcog@ctonline.it), Catania, Italy

Initial release: Nov 92
Current release: Dec 96

Usage:

#
#  vertical menu initialization
#
call mnv_start(help_message_number, text_col, text_row)

Note:	text_col & text_row indicate the top-left corner where
	the text (and *NOT* the border) should be placed

#
#  insert item in vertical menu
#
let option_index=mnv_opt(description, quick_key)

Note:	option_index is null if the array holding the options
	is full

#
#  menu display & option selection
#
let selected_option_index=mnv_get()

Note:	selected_option_index is null is the user hits the interrupt key

A quick example:

call mnv_start(1, 2, 2)
let i=mnv_put("Option 1", "O")
let i=mnv_put("oPtion 2", "P")
let i=mnv_get()
case
  when i is null
  ...
  when i=1
  ...
  when i=2
  ...
end case