blob: 22ca6db7ec1f2b91ce8264263056c2689ee778cd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
$NetBSD: patch-ag,v 1.1.1.1 2002/07/03 09:27:00 dmcmahill Exp $
--- tcldesk/delete.tcl.orig Sun Nov 14 16:07:47 1999
+++ tcldesk/delete.tcl Sun May 28 16:30:32 2000
@@ -381,12 +381,12 @@
if {[cb_okcancel "Empty trash can?\nThis will delete ALL files in the trash can!"] == 0} {
dsk_sound dsk_really_deleting
if {$anum == 1} {set fll "File"} {set fll "Files"}
- #set tlist ""
- #foreach f $alist {
- # lappend tlist [string trimright \
- # $tkdesk(trashdir)/$f " "]
- #}
- dsk_bgexec "$tkdesk(cmd,rm) .* *" "Deleting $anum $fll..."
+ set tlist ""
+ foreach f $alist {
+ lappend tlist [string trimright \
+ $tkdesk(trashdir)/$f " "]
+ }
+ dsk_bgexec "$tkdesk(cmd,rm) $tlist" "Deleting $anum $fll..."
dsk_refresh $tkdesk(trashdir)
}
}
|
