From:	ADVAX::"mcnc!WKUVX1.BITNET!goathunter" "Hunter Goatley, WKU" 25-MAY-1991 00:42:50.12
To:	flist-l@WKUVX1.BITNET
CC:	
Subj:	Bug in GOLD/T (Directory tree)

Received: by ADVAX.DECnet (utk-mail11 v1.5) ; Sat, 25 May 91 00:40:58 EDT
Received:  from mcnc by ge-dab.GE.COM (5.61/GE-DAB 1.15) with UUCP
	id AA09144 for ; Thu, 23 May 91 18:35:27 -0400
Received: from UKCC.uky.edu by mcnc.mcnc.org (5.59/MCNC/3-21-91)
	id AA01743; Thu, 23 May 91 16:57:13 -0400
	for ARISIA.DNET.ge.com!EVERHART
Received: from ukcc.uky.edu by UKCC.uky.edu (IBM VM SMTP V2R1)
   with BSMTP id 0347; Thu, 23 May 91 16:56:40 EST
Received: from UKCC by ukcc.uky.edu (Mailer R2.07) with BSMTP id 5499; Thu, 23
 May 91 16:55:12 EST
Received: from WKUVX1.BITNET by ukcc.uky.edu (Mailer R2.07) with BSMTP id 5443;
 Thu, 23 May 91 16:54:24 EST
Received: by WKUVX1.BITNET (MX V2.2-2) id 30924; Thu, 23 May 1991 15:40:02 CDT
Date: Thu, 23 May 1991 15:40:02 CDT
From: "Hunter Goatley, WKU" <mcnc!WKUVX1.BITNET!goathunter>
To: flist-l@WKUVX1.BITNET
Message-Id: <0094909C.E1F36620.30924@WKUVX1.BITNET>
Subject: Bug in GOLD/T (Directory tree)
 
Well, I guess it never fails in the software biz.  Almost immediately
after FLIST started going out to people, someone noticed that the GOLD/T
command didn't let them move around the directory tree.  I tracked down
the problem; simply make the following change to FLIST.TPU and rebuild it:
 
In procedure flist$tree_post_key_procedure, remove the move_vertical(-1);
line in the following section:
 
 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
   scroll(tree_window,1); move_vertical(-1); update(tree_window);
   first_line_number := 2;
 
The line should look like:
 
   scroll(tree_window,1); update(tree_window);
 
Also, I discovered that the directory tree routines incorrectly display the
directory tree when a directory has 6 or more subdirectories.  In this case,
the subdirectories follow at the end of the main list.  As you scroll down
through the list (after applying the change above), the 2nd line in the
buffer shows the correct directory specification for each subdirectory.
This will be examined in a future release.
 
Finally, Scott Shuster of Polaroid pointed out that when the file list is
locked (GOLD/L), the cursor should be left in the directory window, not
the file list window.  To fix this, locate procedure flist_main_cleanup
and replace the last two position() statements with the following IF
statement:
 
        if flist$lock_filelist = OFF then
           position (beginning_of (flist_buf));
           position (main_window);
        endif;
 
Let me know if you find any other problems....
 
Hunter
------
Hunter Goatley, WKU, goathunter@wkuvx1.bitnet, 502-745-5251
