diff options
| author | Martin Hunt <hunt@redhat.com> | 2002-12-19 05:35:49 +0000 |
|---|---|---|
| committer | Martin Hunt <hunt@redhat.com> | 2002-12-19 05:35:49 +0000 |
| commit | a5acf46f28e24991ab902e573e21e1d8511c71d6 (patch) | |
| tree | ee66c5f95e2c81f034db064071dfa1c304c2f8a7 | |
| parent | 54a06954afe721788b5f1d487b165654502ba81c (diff) | |
| download | gdb-a5acf46f28e24991ab902e573e21e1d8511c71d6.tar.gz | |
2002-12-18 Martin M. Hunt <hunt@redhat.com>
* library/main.tcl: Don't try to print errors to stderr on Windows.
| -rw-r--r-- | gdb/gdbtk/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/gdbtk/library/main.tcl | 8 |
2 files changed, 10 insertions, 2 deletions
diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index b4e50716a65..6233d8895c2 100644 --- 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 77a105b7021..76638be2347 100644 --- 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 |