在下面这个例子中,先创建一个名为 popexam 的菜单,将该菜单定义压进堆栈。接着修改其中一个菜单项,最后将菜单定义弹出堆栈,从而还原菜单的原始定义。
define popup popexam from 5,5
define bar 1 of popexam prompt 'one'
define bar 2 of popexam prompt 'two'
define bar 3 of popexam prompt 'three'
define bar 4 of popexam prompt 'four'
activate popup popexam nowait
push popup popexam
wait 'popup pushed' window
release bar 2 of popexam
wait 'this is the modified popup' window
pop popup popexam
wait 'popup popped, original popup restored' window
deactivate popup popexam
release popup popexam