* library/debug.tcl (logfile): Also recognize stderr.

diff --git a/libgui/ChangeLog b/libgui/ChangeLog
index 425ebbf..81f667c 100644 (file)
--- a/libgui/ChangeLog
+++ b/libgui/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-27  Tom Tromey  <tromey@cygnus.com>
+
+       * library/debug.tcl (logfile): Also recognize stderr.
+
 2000-07-12  Syd Polk  <spolk@redhat.com>
 
        * library/Makefile.am: Only regenerate tclIndex and pkgIndex.tcl

diff --git a/libgui/library/debug.tcl b/libgui/library/debug.tcl
index 36114eb..093e641 100644 (file)
--- a/libgui/library/debug.tcl
+++ b/libgui/library/debug.tcl
@@ -40,13 +40,13 @@ namespace eval ::debug {
 
   proc logfile {file} {
     variable logfile
-    if {$logfile != "" && $logfile != "stdout"} {
+    if {$logfile != "" && $logfile != "stdout" && $logfile != "stderr"} {
       catch {close $logfile}
     }
     
     if {$file == ""} {
       set logfile ""
-    } elseif {$file == "stdout"} {
+    } elseif {$file == "stdout" || $file == "stderr"} {
       set logfile $file
     } else {
       set logfile [open $file w+]