Path: utzoo!attcan!uunet!husc6!im4u!ut-sally!ut-emx!jdm
From: jdm@ut-emx.UUCP (Jim Meiss)
Newsgroups: comp.sys.mac.programmer
Subject: Re: Bug in List Manager?
Summary: Shrinking Rectangles on Shift-Drag-->works
Message-ID: <2483@ut-emx.UUCP>
Date: 17 May 88 15:45:22 GMT
References: <CMM.0.86.579762519.lipa@polya.stanford.edu>
Reply-To: jdm@emx.UUCP (James Meiss)
Organization: UTexas Computation Center, Austin, Texas
Lines: 34
Posted: Tue May 17 10:45:22 1988


	I wrote a program that uses the List Manager in a vanilla
fashion, and have no problems with the shift-drag procedure.
Here's the LSC code I use to handle mouse downs in the list:
--------------
static ListHandle	ListH;
static Cell		theCell;

myclick(where,modifiers)		/*Mouse Click in ListWindow*/
Point where;
int modifiers;
{
	ListH = (**thewList).ListH;	/*handle to List in active window*/
	SetPort((**thewList).ListW);
	GlobalToLocal(&where);
	if(LClick(where,modifiers,ListH))    /*there has been a double click */
	{
		theCell.v = HiWord(LLastClick(ListH));
		theCell.h=MAXCOLS+1;
		while(theCell.h-- >0) LSetSelect(TRUE,theCell,ListH);
	}
	if(PtInRect(where,&(**ListH).rView)) 
		displayEdit('\0'); 	/*Display editText dialog*/		
}
---------------

	Hope this helps.

									
				Jim Meiss				
		 		jdm@emx.utexas.edu
				jdm%uta.MFENET@nmfecc.ARPA
									
-------------------------------------------------------------------------