43 lines
1.6 KiB
Plaintext
43 lines
1.6 KiB
Plaintext
|
*****************************************************************************t
|
||
|
|
*
|
||
|
|
*
|
||
|
|
* New System Admin tools - this routine creates a Menubar structure
|
||
|
|
* in a new, easier fashion
|
||
|
|
*
|
||
|
|
* 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.
|
||
|
|
* 11/10/90 7673 DTM Initial programmin
|
||
|
|
*******************************************************************************
|
||
|
|
* This routine will build the basic menu bar, and when used in conjunction
|
||
|
|
* with DEF.SUB.B, can build the complete menu bar structure.
|
||
|
|
* MB - Structure that holds all the Menu Bar information, used in DEF.MNU.B
|
||
|
|
* DEF.SUB.B, DO.MNU.BAR.B, and MENU.BAR.PR.B
|
||
|
|
* print.line - line to display menu bar, usually 1
|
||
|
|
* sub.count - number of main menu bar selections
|
||
|
|
* label.array - array of main menu bar labels
|
||
|
|
* help.array - array of main menu bar help labels
|
||
|
|
*******************************************************************************
|
||
|
|
|
||
|
|
SUBROUTINE DEF.MNU.B(MB,print.line,sub.count,label.array,help.array)
|
||
|
|
|
||
|
|
MB<1,1>=sub.count
|
||
|
|
MB<1,2>=print.line
|
||
|
|
FOR i=1 TO MB<1,1>
|
||
|
|
MB<i+1,1,1>=label.array<i>
|
||
|
|
MB<i+1,1,2>=0
|
||
|
|
MB<i+1,1,3>=help.array<i>
|
||
|
|
NEXT i
|
||
|
|
|
||
|
|
|