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
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
}
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