MODULE window_box_defs

NAMES = CASE_INSENSITIVE

PROCEDURE
        tpu$widget_integer_callback (integer);

OBJECT
    window_box: popup_attached_db
        {
        arguments
            {
            title = COMPOUND_STRING ("Window Box");
            };
        controls
            {
            push_button window_box_next;
            push_button window_box_prev;
            push_button window_box_split;
            push_button window_box_delete;
            push_button window_box_dismiss;
            };
        };
    window_box_next: push_button
        {
        callbacks
            {
            activate = procedure tpu$widget_integer_callback (1);
            };
        arguments
            {
            label_label = COMPOUND_STRING ("Next Window");
            y = 0;
            };
        };
    window_box_prev: push_button
        {
        callbacks
            {
            activate = procedure tpu$widget_integer_callback (2);
            };
        arguments
            {
            label_label = COMPOUND_STRING ("Previous Window");
            y = 20;
            };
        };
    window_box_split: push_button
        {
        callbacks
            {
            activate = procedure tpu$widget_integer_callback (3);
            };
        arguments
            {
            label_label = COMPOUND_STRING ("Split Window");
            y = 40;
            };
        };
    window_box_delete: push_button
        {
        callbacks
            {
            activate = procedure tpu$widget_integer_callback (4);
            };
        arguments
            {
            label_label = COMPOUND_STRING ("Delete Window");
            y = 60;
            };
        };
    window_box_dismiss: push_button
        {
        callbacks
            {
            activate = procedure tpu$widget_integer_callback (5);
            };
        arguments
            {
            label_label = COMPOUND_STRING ("Dismiss");
            y = 80;
            };
        };
end module;