[Date Prev] [Date Next] [Thread Prev] [Thread Next] Date Index Thread Index Search archive:
Date:Mon Oct 31 19:06:06 1995 
Subject:Re: No scrolling on ESC w? 
From:A . Sloman 
Volume-ID:951101.02 

> Dear Ved hackers,
>
> How can I stop Ved from scrolling the screen when I do <ESC>w to enlarge
> the window?

You can't change the behaviour of vedsetwindow. It's a relic of bygone
days and should be changed.

> The current behaviour is really annoying.

I agree.

Try this instead.
=======================================================================
vars oldvedsetwindow = vedsetwindow; ;;; precaution

sysunprotect("vedsetwindow");		;;; it should be a VARS but isn't

define vedsetwindow();
	if vedwindowlength < vedscreenlength then
		;;; expand to full window
		vedscreenlength -> vedwindowlength;
		0 -> vedscreenoffset;
		vedcurrentfile -> vedupperfile;
		false -> vedlowerfile;		
		vedcheck();
		vedrefresh();
	else
		;;; reduce to half window in bottom half of screen.
		vedscreenlength div 2 -> vedwindowlength;
		vedscreenlength - vedwindowlength -> vedscreenoffset;
		false -> vedupperfile;
		vedcurrentfile -> vedlowerfile;
		vedcheck();
		vedrefresh();
	endif
enddefine;

;;; Make ESC w use this version

vedsetkey('\^[w', "vedsetwindow");

=======================================================================
If you don't like it reassign oldvedsetwindow to vedsetwindow.

Aaron