head	1.2;
access;
symbols
	RELEASE_5_2_1:1.1
	RELEASE_5_2_0:1.1
	RELEASE_4_9_0:1.1
	RELEASE_5_1_0:1.1
	RELEASE_4_8_0:1.1
	RELEASE_5_0_0:1.1
	RELEASE_4_7_0:1.1
	RELEASE_4_6_2:1.1
	RELEASE_4_6_1:1.1
	RELEASE_4_6_0:1.1
	RELEASE_5_0_DP1:1.1
	RELEASE_4_5_0:1.1
	RELEASE_4_4_0:1.1
	RELEASE_4_3_0:1.1
	RELEASE_4_2_0:1.1
	RELEASE_4_1_1:1.1
	RELEASE_4_1_0:1.1
	RELEASE_3_5_0:1.1;
locks; strict;
comment	@# @;


1.2
date	2004.04.18.17.01.12;	author krion;	state dead;
branches;
next	1.1;

1.1
date	2000.05.29.03.33.10;	author steve;	state Exp;
branches;
next	;


desc
@@


1.2
log
@- Update to version 2.0

PR:		ports/65720
Submitted by:	Ports Fury
@
text
@--- 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)
 	}
     }
@


1.1
log
@- Use itcl as a dependency instead of itk.
- 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>
@
text
@@

