*----------------------------------------------------------------------*
* INTERFACE window ."窗口事件接
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
INTERFACE window."窗口事件接口
EVENTS:minimize EXPORTING value(status) TYPE i."最小化事件
ENDINTERFACE. "window ."窗口事件接
*----------------------------------------------------------------------*
* CLASS dialog_window DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS dialog_window DEFINITION."窗口事件实现
PUBLIC SECTION.
INTERFACES window.
ENDCLASS. "dialog_window DEFINITION
*----------------------------------------------------------------------*
* INTERFACE window_handler ."窗口事件处理器接
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
INTERFACE window_handler."窗口事件处理器接口
METHODS:minimize_window FOR EVENT window~minimize OF dialog_window
IMPORTING status sender."事件处理器方法参数要与事件接口定义中的一致
ENDINTERFACE. "window_handler ."窗口事件处理器接