小问题：在顶层表单中按[添加]按钮，会弹出一个弹出式菜单，菜单中有两个选项:1添加目录2添加文件
用如下代码：
define popup myselect from 3,1
define bar 1 of myselect prompt "添加目录"
define bar 2 of myselect prompt "添加文件"

activate popup myselect 显示效果是这样的：

如何让弹出式菜单是3D，而不是平面式样的

? 怎么没人回应啊

DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF shortcut PROMPT "添加分类"
DEFINE BAR 2 OF shortcut PROMPT "\-"
DEFINE BAR 3 OF shortcut PROMPT "添加文件"
DEFINE BAR 4 OF shortcut PROMPT "\-"
DEFINE BAR 5 OF shortcut PROMPT "取消添加"

ACTIVATE POPUP shortcut