mirror of
https://git.FreeBSD.org/ports.git
synced 2024-10-26 21:17:40 +00:00
c4a4317a53
- Include extra patches from master web site fixing various problems. - Use FreeBSD-specific utils (e.g. 'vipw' instead of 'vi /etc/passwd') or correct non-FreeBSD flags to system programs (e.g. 'du -D' will not work on FreeBSD). PR: 18725 Submitted by: Andy Sparrow <andy@geek4food.org>
22 lines
751 B
Plaintext
22 lines
751 B
Plaintext
--- 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)
|
|
}
|
|
}
|