DELETEMENUQQ (W*32, W*64)

QuickWin Function: Deletes a menu item from a QuickWin menu.

Module

USE IFQWIN

result = DELETEMENUQQ (menuID, itemID)

menuID	(Input) INTEGER(4). Identifies the menu that contains the menu item to be deleted, starting with 1 as the leftmost menu.
itemID	(Input) INTEGER(4). Identifies the menu item to be deleted, starting with 0 as the top menu item.

The result type is LOGICAL(4). The result is .TRUE. if successful; otherwise, .FALSE..

QUICKWIN GRAPHICS LIB

USE IFQWIN

LOGICAL(4) result

CHARACTER(25) str

str = 'Add to EDIT Menu'C ! Append to 2nd menu

result = APPENDMENUQQ(2, $MENUENABLED, str, WINSTATUS)

! Delete third item (EXIT) from menu 1 (FILE)

result = DELETEMENUQQ(1, 3)

! Delete entire fifth menu (WINDOW)

result = DELETEMENUQQ(5,0)

END