From 077b55a8f11d01048c342c5b86ce0e635c576b48 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Tue, 18 Jun 2002 08:24:15 +0000
Subject: Fix tcltest::makeFile so cursor.test can work properly...

---
 ChangeLog      | 6 ++++++
 tests/defs.tcl | 3 ++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index b708077..230cb17 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2002-06-18  Donal K. Fellows  <fellowsd@cs.man.ac.uk>
+
+	* tests/defs.tcl (makeFile): Defined the return value of this
+	procedure to be the filename of the created file, as in the real
+	tcltest package...
+
 2002-06-17  Mo DeJong  <mdejong@users.sourceforge.net>
 
 	* generic/tkImage.c (Tk_ImageObjCmd, DeleteImage): Call
diff --git a/tests/defs.tcl b/tests/defs.tcl
index e16a136..1007465 100644
--- a/tests/defs.tcl
+++ b/tests/defs.tcl
@@ -11,7 +11,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 # 
-# RCS: @(#) $Id: defs.tcl,v 1.9 2002/06/13 15:31:39 dgp Exp $
+# RCS: @(#) $Id: defs.tcl,v 1.10 2002/06/18 08:24:15 dkf Exp $
 
 # Initialize wish shell
 
@@ -801,6 +801,7 @@ proc ::tcltest::makeFile {contents name {directory {}}} {
     if {[lsearch -exact $::tcltest::filesMade $fullName] == -1} {
 	lappend ::tcltest::filesMade $fullName
     }
+    return $fullName
 }
 
 proc ::tcltest::removeFile {name} {
-- 
cgit v0.12