Article ID: 57885
Article Last Modified on 11/21/2006
This article was previously published under Q57885
SYMPTOMS
The User Interface (UI) Toolbox menu routines, provided with Microsoft Basic Professional Development System (PDS) versions 7.00 and 7.10 for MS-DOS, do not behave correctly when the first menu on the line is disabled. In this case, the menu can still be chosen with the ALT+X key combination.
STATUS
Microsoft has confirmed this to be a bug in Microsoft Basic PDS versions 7.00 and 7.10 for MS-DOS. We are researching this problem and will post new information here in the Microsoft Knowledge Base as it becomes available.
This article provides an example demonstrating the problem and the correction to MENU.BAS.
MORE INFORMATION
Use the following command line to set up QBX for demonstrating the problem:
QBX /L UITBEFR
The following code example disables the first (only) menu, but it can still be selected with the ALT+X keys. To demonstrate the problem, press ALT, which incorrectly highlights the first menu, then press the DOWN ARROW, which incorrectly brings down the menu item (without a proper menu box).
REM $INCLUDE: 'General.bi'
REM $INCLUDE: 'Mouse.bi'
REM $INCLUDE: 'Menu.bi'
COMMON SHARED /uitools/ GloMenu AS MenuMiscType
COMMON SHARED /uitools/ GloTitle() AS MenuTitleType
COMMON SHARED /uitools/ GloItem() AS MenuItemType
DIM GloTitle(MAXMENU) AS MenuTitleType
DIM GloItem(MAXMENU, MAXITEM) AS MenuItemType
CLS
MenuInit
MenuSet 1, 0, 0, "Menu Title", 1 '*** Disable main level menu
MenuSet 1, 1, 1, "Exit", 1
MenuPreProcess
MenuShow
MouseShow
'*** It should not be possible to select the menu. Pressing
'*** ALT highlights the first menu and the arrow brings down
'*** other options (with incorrect highlighting).
WHILE NOT ((menu = 1) AND (item = 1))
IF MenuInkey$ = "menu" THEN
menu = MenuCheck(0)
item = MenuCheck(1)
END IF
WEND
The following IF statement is taken from the end of the MenuDoInit GOSUB routine near the beginning of the MenuDo SUB:
IF lButton THEN
mouseMode = TRUE
currMenu = 0
currItem = 0
ELSE
mouseMode = FALSE
currMenu = 1 '****** These lines need
currItem = 0 '****** to be changed.
GOSUB MenuDoShowTitleAccessKeys
END IF
The above IF statement should be replaced with the following IF statement:
IF lButton THEN
mouseMode = TRUE
currMenu = 0
currItem = 0
ELSE
mouseMode = FALSE
currMenu = 0 '****** Set defaults to 0
currItem = 0 '******
FOR m=1 TO MAXMENU '****** Search each menu
IF GloTitle(m).state = 1 THEN ' check state
currMenu=m '****** set menu for 1st state
EXIT FOR '****** and exit
END IF '******
NEXT '****** last line of changes
GOSUB MenuDoShowTitleAccessKeys
END IF
This correction should be made and the libraries rebuilt to properly disable a menu item.
To find any other problems with the User Interface Toolbox, query on the following words:
User and Interface and Toolbox and buglist7.00
Additional query words: BasicCom SR# S900108-102 buglist7.00 buglist7.10
Keywords: KB57885
