getbar( ) 函数示例

下面的示例创建一个名为 popdemo 的菜单。由于包含了 mover 关键字，可以重新安排 
* 菜单项在菜单中的位置。有关重新安排菜单项位置的详细内容，请参阅 define popup 的 mover 子句。激活此菜单后，在 prmbar( ) 中用一系列 getbar( ) 函数返回每个菜单项的标题。重新安排菜单项位置后，按 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