66 lines
2.0 KiB
Plaintext
66 lines
2.0 KiB
Plaintext
|
Subroutine MTF.ERASE.B(orientation, menu.x.orig, menu.y.orig, menu.width,
|
||
|
|
menu.choices)
|
||
|
|
|
||
|
|
******************************************************************************
|
||
|
|
*
|
||
|
|
* Erase MOTIF like menu
|
||
|
|
*
|
||
|
|
* Module %M% Version %I% Date %H%
|
||
|
|
*
|
||
|
|
* (c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
|
||
|
|
* This is unpublished proprietary source code of Ardent Software Inc.
|
||
|
|
* The copyright notice above does not evidence any actual or intended
|
||
|
|
* publication of such source code.
|
||
|
|
*
|
||
|
|
*******************************************************************************
|
||
|
|
*
|
||
|
|
* Maintenence log - insert most recent change descriptions at top
|
||
|
|
*
|
||
|
|
* Date.... GTAR# WHO Description.........................................
|
||
|
|
* 10/14/98 23801 SAP Change copyrights.
|
||
|
|
* 05/13/91 8345 DTM Changed print to tprint
|
||
|
|
* 06/28/90 7236 JWT New MOTIF like new capability
|
||
|
|
*
|
||
|
|
*******************************************************************************
|
||
|
|
|
||
|
|
* This subroutine erases a MOTIF menu object on the terminal screen.
|
||
|
|
* Arguments to the function are:
|
||
|
|
* orientation - is the menu horizontal (menubar) or vertical
|
||
|
|
*
|
||
|
|
* menu.x.orig - the x (horizontal) anchor point for the menu
|
||
|
|
*
|
||
|
|
* menu.y.orig - the y (vertical) anchor point for the menu
|
||
|
|
*
|
||
|
|
* menu.width - for vertical menus, the width of the menu;
|
||
|
|
* for horizontal menus, a dynamic array of horizontal
|
||
|
|
* start and end points.
|
||
|
|
*
|
||
|
|
* menu.choices - number of menu elements
|
||
|
|
*
|
||
|
|
* Routine generates a string called blanks which is a string of enough
|
||
|
|
* space characters to blank out a line of the menu. Then each
|
||
|
|
* menu line is overprinted with the blanks string.
|
||
|
|
|
||
|
|
id = "%W%"
|
||
|
|
|
||
|
|
$include UNIVERSE.INCLUDE MTF.INCL.H
|
||
|
|
|
||
|
|
if orientation = HORIZONTAL
|
||
|
|
then
|
||
|
|
blanks = str(' ',menu.width<menu.choices,2>-menu.width<1,1>+1)
|
||
|
|
tprint @(menu.x.orig,menu.y.orig):blanks:
|
||
|
|
end
|
||
|
|
else
|
||
|
|
blanks = str(' ',menu.width)
|
||
|
|
|
||
|
|
* loop goes from zero to number of lines + 1 so that we also
|
||
|
|
* erase the top and bottom border of the menu box
|
||
|
|
for i = 0 to menu.choices+1
|
||
|
|
tprint @(menu.x.orig,menu.y.orig+i):blanks:
|
||
|
|
next i
|
||
|
|
end
|
||
|
|
|
||
|
|
return
|
||
|
|
|
||
|
|
end
|