2002-12-18 Martin M. Hunt <hunt@redhat.com>

	* library/main.tcl: Don't try to print errors to stderr on Windows.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index b4e5071..6233d88 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,5 +1,9 @@
 2002-12-18  Martin M. Hunt  <hunt@redhat.com>
 
+       * library/main.tcl: Don't try to print errors to stderr on Windows.
+
+2002-12-18  Martin M. Hunt  <hunt@redhat.com>
+       
        * library/regwin.itb (RegWin::update): When updating, check
        that a cell still exists before checking its value.
        (RegWin::_select_group): Clear cells with changed values before

diff --git a/gdb/gdbtk/library/main.tcl b/gdb/gdbtk/library/main.tcl
index 77a105b..76638be 100644 (file)
--- a/gdb/gdbtk/library/main.tcl
+++ b/gdb/gdbtk/library/main.tcl
@@ -60,7 +60,9 @@ if {[info exists auto_path]} {
 foreach p {{Tcl 8.0} {Tk 8.0} {Itcl 3.0} {Itk 3.0} {Gdbtk 1.0} {combobox 1.0} {debug 1.0}} {
   if {[catch {package require [lindex $p 0] [lindex $p 1]} msg]} {
     if {![info exists ::env(GDBTK_TEST_RUNNING)] || $::env(GDBTK_TEST_RUNNING) == 0} {
-      puts stderr "Error: $msg"
+      if {$::tcl_platform(platform) != "windows"} {
+       puts stderr "Error: $msg"
+      }
       catch {tk_messageBox -title Error -message $msg -icon error -type ok}
     }
     exit -1
@@ -78,7 +80,9 @@ if {[info exists IWIDGETS_LIBRARY]} {
 }
 if {[catch {package require Iwidgets 3.0} msg]} {
   if {![info exists ::env(GDBTK_TEST_RUNNING)] || $::env(GDBTK_TEST_RUNNING) == 0} {
-    puts stderr "Error: $msg"
+    if {$::tcl_platform(platform) != "windows"} {
+      puts stderr "Error: $msg"
+    }
     catch {tk_messageBox -title Error -message $msg -icon error -type ok}
   }
   exit -1