PROCEDURE uil_window_box

    window_box := CREATE_WIDGET ("WINDOW_BOX",
                                 wb_id,
                                 SCREEN,
                                 'test_dispatch');
    MANAGE_WIDGET (window_box);

ENDPROCEDURE;

PROCEDURE test_dispatch

    LOCAL
        widget_args,
        status;

    status := GET_INFO (WIDGET, "callback_parameters", widget_args);

    CASE widget_args {"closure"}
        [1]: eve_next_window;
        [2]: eve_previous_window;
        [3]: eve_split_window (2);
        [4]: eve_delete_window;
        [5]: DELETE (window_box);
    ENDCASE;

ENDPROCEDURE;

wb_id := SET (DRM_HIERARCHY, "window_box");