* В следующем примере создается меню popDemo. Ключевое слово MOVER
* было задано, поэтому элементы в меню можно переставлять. О том, как
* переставлять элементы меню, см. описание предложения MOVER
* команды DEFINE POPUP.

* Меню активизируется, и последовательность функций GETBAR( ) в
* составе PRMBAR( ) возвращает названия всех элементов. Переставив
* элементы, нажмите клавиши CTRL+Z, чтобы вывести элементы на экран в
* новом порядке.

CLEAR

ON KEY LABEL CTRL+Z DO showorder

WAIT WINDOW "Press CTRL+Z to refresh." NOWAIT

DEFINE POPUP popDemo MOVER FROM 2,2

DEFINE BAR 1 OF popDemo PROMPT 'One'

DEFINE BAR 2 OF popDemo PROMPT 'Two'

DEFINE BAR 3 OF popDemo PROMPT 'Three'

DEFINE BAR 4 OF popDemo PROMPT 'Four'

DO showorder

ACTIVATE POPUP popDemo

PROCEDURE showorder

CLEAR

@ 3,12 SAY '1 ' + PRMBAR('popDemo', GETBAR('popDemo',1))

@ 4,12 SAY '2 ' + PRMBAR('popDemo', GETBAR('popDemo',2))

@ 5,12 SAY '3 ' + PRMBAR('popDemo', GETBAR('popDemo',3))

@ 6,12 SAY '4 ' + PRMBAR('popDemo', GETBAR('popDemo',4))

RETURN