47 lines
2.1 KiB
Plaintext
47 lines
2.1 KiB
Plaintext
|
*******************************************************************************
|
||
|
|
*
|
||
|
|
* New System Admin tools - this routine creates a Menubar structure
|
||
|
|
* in a new, easier fashion, creates the sub-menu part
|
||
|
|
*
|
||
|
|
* 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 programming
|
||
|
|
*******************************************************************************
|
||
|
|
* This routine is used to fill in all the submenus off of the main menu
|
||
|
|
* bar. It should be called using the MB structure that was passed to
|
||
|
|
* DEF.MNU.B. It returns ACTION.ARRAY, which is an array of selection
|
||
|
|
* values for each corresponding entry. To determine which value was
|
||
|
|
* selected, you should check the return value from DO.MNU.BAR.B with
|
||
|
|
* action.array.
|
||
|
|
* MB - same Menu bar structure used in DEF.MNU.B
|
||
|
|
* action.array<x,y> - return values. X defines main menu bar choice,
|
||
|
|
* Y defines submenu choice
|
||
|
|
* subvalue- which main menu bar selection to add subvalues to
|
||
|
|
* sub.count-# of subvalues in this selection
|
||
|
|
* text.array- array of labels for submenu
|
||
|
|
* help.array- array of help strings for labels of submenu
|
||
|
|
*******************************************************************************
|
||
|
|
|
||
|
|
SUBROUTINE DEF.SUB.B(MB,action.array,subvalue,sub.count,text.array,help.array)
|
||
|
|
|
||
|
|
MB<subvalue+1,1,2>=sub.count
|
||
|
|
FOR i=1 TO sub.count
|
||
|
|
MB<subvalue+1,i+1,1>=text.array<i>
|
||
|
|
MB<subvalue+1,i+1,2>=(subvalue * 20)+i
|
||
|
|
action.array<subvalue,i>=(subvalue * 20)+i
|
||
|
|
MB<subvalue+1,i+1,3>=help.array<i>
|
||
|
|
NEXT i
|
||
|
|
|
||
|
|
|