DELETEMENUQQ

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

Module: USE DFLIB

Syntax

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.

Results:

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

Compatibility

QUICKWIN GRAPHICS LIB

See Also: Using QuickWin, APPENDMENUQQ, INSERTMENUQQ, MODIFYMENUFLAGSQQ, MODIFYMENUROUTINEQQ, MODIFYMENUSTRINGQQ

Example

USE DFLIB
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