Sounds like just the fact that you don't have the scrollbar I used to experiment with the depth. The mouseUp code is just for testing -- the function is self-contained.
gc On Tue, Oct 27, 2015 at 4:32 PM, JB <sund...@pacifier.com> wrote: > I was not able to get the mouseUp handler to > work but I got the function to return a list but it > probably not the same list. I used this. > > on mouseUp > answer folder "Pick a folder you want to walk:" > put it into whatFolder > --put directoryListing(fld "directory",round(the thumbposition of > scrollbar "depth")) into field "listing" > put directoryListing(whatFolder,2) into fld id 342435 > end mouseUp > > Any suggestions? > > JB > > > > > On Oct 27, 2015, at 12:43 PM, Michael Doub <miked...@gmail.com> wrote: > > > > Geoff, > > > > I would suggest replacing the first statement of the function with > > > > if c is empty then put -1 into c -- set the default to go all the way > down > > put whatFolder & "/" & cr into R -- add a "/" to directory output so > they are more easily parsed later > > > > -= Mike > > > > > > On 10/27/15 12:18 PM, Geoff Canyon wrote: > >> Revised. Now in function form, with error checking and depth control. > You > >> can hand in a positive number to get that number of layers deep, or a > >> negative number to go all the way down. I tested it on my home directory > >> and it came back fine (after some time). I haven't (knowingly) tested > with > >> unusual characters. > >> > >> on mouseUp > >> put directoryListing(fld "directory",round(the thumbposition of > >> scrollbar "depth")) into field "listing" > >> end mouseUp > >> > >> function directoryListing whatFolder,c > >> put whatFolder & cr into R > >> set the directory to whatFolder > >> if c = 0 or the result is not empty then return R > >> put the files into tFileList > >> sort tFileList > >> replace cr with cr & whatFolder & "/" in tFileList > >> put whatFolder & "/" & tFileList & cr after R > >> put line 2 to -1 of the folders into tDirList > >> sort tDirList > >> repeat for each line L in tDirList > >> put directoryListing((whatFolder & "/" & L),(c-1)) after R > >> end repeat > >> return R > >> end directoryListing > >> > >> > >> On Mon, Oct 26, 2015 at 12:00 AM, Geoff Canyon <gcan...@gmail.com> > wrote: > >> > >>> On Sat, Oct 24, 2015 at 7:28 PM, Matthias Rebbe | M-R-D < > >>> matthias_livecode_150...@m-r-d.de> wrote: > >>> > >>>> I am using a script snippet which was posted by Scott Rossi to the > list > >>>> and was originally from Geoff Canyon in 2002. > >>>> http://lists.runrev.com/pipermail/metacard/2002-August/002274.html > >>>> > >>> Man, do I hate looking at my old code... > >>> > >> _______________________________________________ > >> use-livecode mailing list > >> use-livecode@lists.runrev.com > >> Please visit this url to subscribe, unsubscribe and manage your > subscription preferences: > >> http://lists.runrev.com/mailman/listinfo/use-livecode > >> > > > > > > _______________________________________________ > > use-livecode mailing list > > use-livecode@lists.runrev.com > > Please visit this url to subscribe, unsubscribe and manage your > subscription preferences: > > http://lists.runrev.com/mailman/listinfo/use-livecode > > > > _______________________________________________ > use-livecode mailing list > use-livecode@lists.runrev.com > Please visit this url to subscribe, unsubscribe and manage your > subscription preferences: > http://lists.runrev.com/mailman/listinfo/use-livecode > _______________________________________________ use-livecode mailing list use-livecode@lists.runrev.com Please visit this url to subscribe, unsubscribe and manage your subscription preferences: http://lists.runrev.com/mailman/listinfo/use-livecode
