ON EXIT POPUP

Purpose

Execute a command when the cursor moves off of bars in a pop-up Xbase style menu

Syntax

ON EXIT POPUP <pop-up> [<command>]

See Also

ACTIVATE POPUP, BAR(), DEACTIVATE POPUP, DEFINE BAR, DEFINE POPUP, ON BAR, ON POPUP, ON SELECTION BAR, ON EXIT BAR, ON EXIT MENU, ON SELECTION POPUP, POPUP(), PROMPT(), SHOW POPUP, SET COMPATIBLE

Description

The ON EXIT POPUP command is used to specify commands which will execute when the cursor moves off of menu bars. A bar is a menu option in an Xbase style popup menu. These types of menus are created with the DEFINE POPUP and DEFINE BAR commands. The pop-up menu is identified by the name <pop-up> that was assigned with the DEFINE POPUP command. The command SET COMPATIBLE should be ON when using Xbase style menus.

The specified command, <command>, may be any Recital/4GL command. To specify a command that will execute when a bar is selected, see the ON SELECTION BAR command. Used without a specified command, the ON EXIT POPUP command disables previously specified commands. Commands specified by an ON EXIT BAR command override commands specified by the ON EXIT POPUP command.

Example

define menu main
define pad exit of main;
  prompt "\<Exit" at 0,0
define pad filelist of main;
  prompt "\<Files" at 0,6
 
on pad filelist of main activate popup files
on selection pad exit of main deactivate menu
 
define popup files from 1,06
define bar 1 of files prompt "\<Programs"
define bar 2 of files prompt "\<Databases"
 
on popup files dialog box "On Popup"
on exit popup files dialog box "On Exit Popup"
activate menu main

Products

Recital