问题描述
我正在开发基于 AppBuilder 11.6 版的 Progress-4GL 编程环境。
到目前为止,我一直在更改已经存在的 *.w 和 *.p 文件,但现在我想从头开始创建我的 *.w 文件。
我创建了一个窗口,并放置了一个浏览器、一个填充字段和一个按钮。现在我想向该按钮添加一个事件。为了做到这一点,我在 *.w 文件中添加了以下几行:
ON CHOOSE OF btn-Start_Query IN FRAME DEFAULT-FRAME
DO:
MESSAGE "button is pushed" VIEW-AS ALERT-Box.
END.
但是,当我保存 *.w 文件时,在 AppBuilder 中重新打开它并再次将文件保存在那里,这些代码行将被删除。
我已经明白,为了避免这种情况,我需要用 Scoped-define
或 Analyze:suspend/resume
行“包装”这些代码行,如下所示:
&Scoped-define SELF-NAME btn-Start_Query
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btn-Start_Query C-Win
ON CHOOSE OF btn-Start_Query IN FRAME DEFAULT-FRAME
DO:
MESSAGE "button is pushed" VIEW-AS ALERT-Box.
END.
&ANALYZE-RESUME
然而,这似乎不起作用。
顺便说一句:我知道我正在使用极其过时的技术,但我只在这里工作了两个星期,所以我没有权力强迫我的老板改变他的开发环境,只是为了我。