--     WHEN-MOUSE-CLICK
DECLARE
	X VARCHAR2(1);
BEGIN
	X:=:SYSTEM.MOUSE_BUTTON_PRESSED;
	IF X='3' THEN
	--	EXECUTE_TRIGGER('KEY-LSTVAL');-- NOTE X='1' >>>>>>>>LEFT CLICK
	DO_KEY('LIST_VALUES');            --      X='2' >>>>>>>>MIDDLE CLICK       
	END IF;
END ;