From:	ADVAX::"mcnc!WKUVX1.BITNET!goathunter" "Hunter Goatley, WKU" 24-MAY-1991 23:42:04.15
To:	flist-l@WKUVX1.BITNET
CC:	
Subj:	Bug fixes again

Received: by ADVAX.DECnet (utk-mail11 v1.5) ; Fri, 24 May 91 23:40:19 EDT
Received:  from mcnc by ge-dab.GE.COM (5.61/GE-DAB 1.15) with UUCP
	id AA04071 for ; Fri, 24 May 91 22:59:15 -0400
Received: from UKCC.uky.edu by mcnc.mcnc.org (5.59/MCNC/3-21-91)
	id AA23720; Fri, 24 May 91 18:16:29 -0400
	for ARISIA.DNET.ge.com!EVERHART
Received: from ukcc.uky.edu by UKCC.uky.edu (IBM VM SMTP V2R1)
   with BSMTP id 2549; Fri, 24 May 91 18:15:59 EST
Received: from UKCC by ukcc.uky.edu (Mailer R2.07) with BSMTP id 3491; Fri, 24
 May 91 18:15:25 EST
Received: from WKUVX1.BITNET by ukcc.uky.edu (Mailer R2.07) with BSMTP id 3438;
 Fri, 24 May 91 18:14:44 EST
Received: by WKUVX1.BITNET (MX V2.2-2) id 462; Fri, 24 May 1991 16:43:12 CDT
Date: Fri, 24 May 1991 16:43:12 CDT
From: "Hunter Goatley, WKU" <mcnc!WKUVX1.BITNET!goathunter>
To: flist-l@WKUVX1.BITNET
Message-Id: <0094916E.DF0EDB60.462@WKUVX1.BITNET>
Subject: Bug fixes again
 
Well, here's the fix to yesterday's fix about key movement in the directory
tree.  I said yesterday that the move_vertical(-1) should be removed.  Well,
that's not entirely correct.  Instead, an IF should be added to procedure
flist$tree_post_key_procedure:
 
-------------------------------------------------------------------------------
if (first_line_number = 1) and (get_info(mark(free_cursor),"record_number")<>1)
then ! Scroll window when cursor not on first line and top line is visible
   if scroll(tree_window,1) = 1 then move_vertical(-1); first_line_number := 2;
   endif;
   update(tree_window);
   [...]
-------------------------------------------------------------------------------
 
The problem was caused only when the entire tree fit in the window---there
was no scrolling done, and the move_vertical(-1) negated the move.  The
IF added above says "don't do the move if we didn't scroll."
 
About the problem with the directory tree not being accurate, it only
occurred when the tree started from dev:[000000].  The routine that does
this work has been fixed, and modified to start from the current top-level
directory instead of [000000].  I'm sending another message that contains
a new version of the routine flist_tree; just edit FLIST.TPU, locate the
flist_tree procedure, delete it, and insert the new one.  THIS IS OPTONAL;
if you don't use the directory tree, you don't have to do this.
 
After both changes have been made, just re-execute BUILD_FLIST.COM.
 
I hope these are the last bug fixes.  I will also try to devise a way to
automate patches like these.  My thanks for your patience!
 
Hunter
------
Hunter Goatley, WKU, goathunter@wkuvx1.bitnet, 502-745-5251
