! procedure to insert blanks before the area indicated by the
! rectangular select. By using eve_rectangular_pad you can shift
! columns to the right.
! 
PROCEDURE eve_rectangular_pad
    LOCAL 
	saved_mode,
	end_select,
	end_column,
	start_column,
	temp,
	pad_chars,
	save_position,
	blank_chars,
	len,
	cut_text;

    !+
    !   Check for no select active
    !-
    IF eveplus_v_begin_select = 0
    THEN
	MESSAGE("Select not active");
	RETURN
    ENDIF;

    !+
    !   Set INSERT mode and erase PASTE_BUFFER
    !-
    saved_mode := eveplus_set_mode(INSERT);
    !+
    !   Make sure there is a character at the corner of the box opposite
    !   the begin_select mark.  If the end_select mark is before the
    !   begin_select mark, juggle the markers so that begin_select precedes
    !   end_select.
    !-
    eveplus_pad_blank;
    IF MARK(NONE) >= eveplus_v_begin_select
    THEN

	end_select := MARK(NONE)
    ELSE
	end_select := eveplus_v_begin_select;
	eveplus_v_begin_select := MARK(NONE);
	POSITION(end_select)
    ENDIF;

    !+
    !   Figure out what column the box ends in and set END_COLUMN there.
    !   Then, clear out the video on EVEPLUS_V_BEGIN_SELECT.  Figure out
    !   the start column.
    !-
    end_column := edd_current_column;
    POSITION(eveplus_v_begin_select);
    eveplus_v_begin_select := MARK(NONE);
    start_column := edd_current_column;

    !+
    !   We may have the upper right and lower left corners of the box
    !   selected.  If so, START_COLUMN and END_COLUMN need to be reversed.
    !-
    IF start_column > end_column
    THEN
	temp := end_column;
	end_column := start_column;
	start_column := temp
    ENDIF;

    !+
    !   Get a string of the appropriate number of blanks to paste back in
    !-
    pad_chars := eveplus_blank_chars(end_column - start_column + 1);
    len := 0;
    len := end_column-start_column+1;
    !+
!    MOVE_HORIZONTAL(-len);
    SET(INSERT, current_buffer);
    LOOP
	EXITIF MARK(NONE) > end_select;

	COPY_TEXT(pad_chars);

	MOVE_HORIZONTAL(-len);
	MOVE_VERTICAL(1)
    ENDLOOP;

    !+
    !   Position to the beginning of the cut area, reset BEGIN_SELECT,
    !   restore old insert/overstrike setting
    !-
    POSITION(eveplus_v_begin_select);
    eveplus_v_begin_select := 0;
    MOVE_HORIZONTAL(-CURRENT_OFFSET);
    MOVE_HORIZONTAL(start_column);
    SET(saved_mode, CURRENT_BUFFER);
	
ENDPROCEDURE