blob: 28dde21f11d0ddf490a26177646c435969311bfb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
$NetBSD: patch-ai,v 1.1.1.1 2002/07/03 09:27:00 dmcmahill Exp $
--- tcldesk/find.tcl.orig Sun Nov 14 16:07:47 1999
+++ tcldesk/find.tcl Sun May 28 16:30:32 2000
@@ -805,7 +805,7 @@
set flist ""
set list [$dlb get]
foreach f $fl {
- lappend flist [lindex [lindex $list $f] 0]
+ lappend flist [lindex [split [lindex $list $f] \t] 0]
}
set nfiles 0
|