Intel® Fortran Compiler 16.0 User and Reference Guide
QuickWin Function: Deletes a menu item from a QuickWin menu.
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..
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