事件处理器Event Handler

*----------------------------------------------------------------------*
*       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 ."窗口事件处理器接