PROCEDURE cjc_toggle_windows

        !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        !   Procedure to toggle back and forth between one window and   !
        !   two windows, approximately centering the cursor on the      !
        !   current position in each case                               !
        !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

LOCAL	this_position ;

        this_position  :=  mark ( NONE ) ;

        if ( eve$x_number_of_windows = 1 )  then
                                            ! do enhanced eve_two_windows:
             eve$check_bad_window ;
             map ( eve$top_window , current_buffer ) ;
             eve$set_status_line ( eve$top_window ) ;
             position ( eve$top_window ) ;
             eve$position_in_middle ( this_position ) ;
             update ( eve$top_window ) ;

             map ( eve$bottom_window , current_buffer ) ;
             eve$set_status_line ( eve$bottom_window ) ;
             position ( eve$bottom_window ) ;
             eve$position_in_middle ( this_position ) ;
             update ( eve$bottom_window ) ;

             eve$x_number_of_windows  :=  2 ;
             eve$x_this_window  :=  eve$bottom_window ;

        else if ( eve$x_number_of_windows = 2 )  then
             eve_one_window  ;
        endif ; endif ;

        eve$position_in_middle ( this_position ) ;


ENDPROCEDURE ;