HP OpenVMS Systems Documentation

PROCEDURE eve$scroll_dispatch
LOCAL   status,
        widget_called,
        widget_tag,
        widget_reason,
        scroll_bar_values,
        linenum,
        temp_array,
           .
           .
           .;

ON_ERROR
    [TPU$_CONTROLC]:
        eve$learn_abort;
        ABORT;
ENDON_ERROR


(1)status := GET_INFO (WIDGET, "callback_parameters", temp_array);

widget_called := temp_array {"widget;
widget_tag := temp_array {"closure"};
widget_reason := temp_array {"reason_code"};

POSITION (eve$$scroll_bar_window {widget_called});
   .
   .
   .

scroll_bar_values := CREATE_ARRAY;
scroll_bar_values {"increment"} := 0;
scroll_bar_values {"pageIncrement"} := 0;
scroll_bar_values {"maximum"} := 0;
scroll_bar_values {"minimum"} := 0;
scroll_bar_values {"value"} := 0;
scroll_bar_values {"sliderSize"} := 0;

(2)status := GET_INFO (widget_called, "widget_info", scroll_bar_values);


! The deleted statements scroll the window as dictated
! by the callback reason.

   .
   .
   .

CASE widget_reason
   .
   .
   .


        [2]:

           IF (scroll_bar_values {"value"} =
               scroll_bar_values {"minimum"})
           THEN
               POSITION (beginning_of (current_buffer));
           ELSE
(3)               POSITION (scroll_bar_values {"value"});

            ENDIF;
                   .
                   .
                   .
ENDCASE;
!      .
!      .
!      .

ENDPROCEDURE;

PROCEDURE eve$restore_primary_selection

LOCAL   saved_position;

ON_ERROR
    [TPU$_CONTROLC]:
        eve$$restore_position (saved_position);
        eve$learn_abort;
        ABORT;
    [OTHERWISE]:
        eve$$restore_position (saved_position);
ENDON_ERROR;


IF NOT eve$x_decwindows_active
THEN
    RETURN (FALSE);
ENDIF;

saved_position := MARK (FREE_CURSOR);

IF GET_INFO (eve$$x_save_select_array, "type") = ARRAY
THEN
    CASE eve$$x_save_select_array {"type"}
        [RANGE]:
            eve$select_a_range (eve$$x_save_select_array {"start"},
                                eve$$x_save_select_array {"end"});
            eve$$x_state_array {eve$$k_select_all_active} :=
                                                        eve$$x_save_select_array
                                                             {"select_all"};
            POSITION (eve$$x_save_select_array {"current"});
            eve$start_pending_delete;
        [MARKER]:
            POSITION (eve$$x_save_select_array {"start"});
            eve$x_select_position := select (eve$x_highlighting);
            POSITION (eve$$x_save_select_array {"end"});
            eve$start_pending_delete;
        [OTHERWISE]:
            RETURN (FALSE);
    ENDCASE;


    eve$$restore_position (saved_position);
    eve$$found_post_filter;             ! This is necessary if the
                                        ! cursor is outside the selection.

    eve$$x_save_select_array {"type"} := 0;
    UPDATE (current_window);

    SET (GLOBAL_SELECT, SCREEN, PRIMARY);  ! This statement
                                           ! requests ownership of
                                           ! the primary global selection.
    RETURN (TRUE);
ENDIF;
RETURN (FALSE);

ENDPROCEDURE;

PROCEDURE eve$write_global_select        ! EVE uses this procedure
                                         ! to respond to requests
                                         ! for information about
                                         ! selections.


LOCAL   saved_position,
        the_data,
        temp_array,
        total_lines,
        the_line,
        status,
        eob_flag,
        percent;

ON_ERROR
    [OTHERWISE]:
        eve$$restore_position (saved_position);
ENDON_ERROR;

saved_position := MARK (FREE_CURSOR);


IF NOT eve$x_decwindows_active

THEN
    RETURN (FALSE);
ENDIF;


the_data := NONE;
temp_array := GET_INFO (SCREEN, "event", GLOBAL_SELECT);

    ! Finds out which global selection and which property
    ! of the global selection are the subject of the
    ! information request.


CASE temp_array {2}     ! Determines the property requested by the other application.

    ["STRING", "TEXT"]: ! If one of these strings is requested, the
                        ! procedure sends the text in the global
                        ! selection to the requesting application.

        CASE temp_array {1}  ! Checks which global selection was specified.
            [PRIMARY]:

                IF eve$x_select_position <> 0
                THEN
                    POSITION (GET_INFO (eve$x_select_position, "buffer"));

                    IF GET_INFO (eve$x_select_position, "type") = RANGE
                    THEN
                        the_data := STR (eve$x_select_position);
                    ELSE
                        IF GET_INFO (eve$x_select_position, "type") = MARKER
                        THEN
                            the_data := STR (eve$select_a_range (eve$x_select_position,
                                                                 MARK (FREE_CURSOR)));
                        ELSE
                            the_data := NONE;
                        ENDIF;
                    ENDIF;
                    eve$$restore_position (saved_position);
                ENDIF;
            [OTHERWISE]:
                the_data := NONE;
        ENDCASE;
    [OTHERWISE]:
        the_data := NONE;       ! The procedure does not send data if
                                ! the requesting application has asked
                                ! for something other than the text,
                                ! the file name, or the line number.
ENDCASE;


WRITE_GLOBAL_SELECT (the_data);         ! This statement sends the
                                        ! requested information to
                                        ! the requesting application.


ENDPROCEDURE;