BAR()

Purpose

Function to return the most recently selected menu bar number

Syntax

BAR()

See Also

ACTIVATE POPUP, BARCOUNT(), BARPROMPT(), DEFINE BAR, DEFINE MENU, DEFINE POPUP, MENU(), MENUITEM(), ON BAR, ON EXIT BAR, ON EXIT MENU, ON EXIT POPUP, ON POPUP, ON SELECTION BAR, ON SELECTION MENU, ON SELECTION POPUP, PAD(), POPUP(), PROMPT(), SET COMPATIBLE

Description

The BAR() function returns the most recently selected bar number from an Xbase style pop-up menu. If the pop-up menu has been defined using the DEFINE BAR command, BAR() returns the bar number. If the pop-up prompts have been defined using the DEFINE POPUP command, BAR() returns the line number of the prompt, starting with number 1 as the first line within the pop-up screen area. The BAR() function will return 0 if there is no active or defined pop-up, or if the [ABANDON] key was pressed from within a pop-up menu. The command SET COMPATIBLE must be set to "dbase4" when using Xbase style menus.

Example

procedure action
do case
case bar() = 1
    do editfunc
case bar() = 2
    do deletefunc
case bar() = 3
    do addfunc
endcase
return

Products

Recital