summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorericm <ericm>2000-06-05 23:03:30 (GMT)
committerericm <ericm>2000-06-05 23:03:30 (GMT)
commit4098f3211c970ab44ba727e079475022d3256534 (patch)
tree008f3f64a84c2dd4159cbedddfb9b945ff1d3caa
parent6da4f0d7c8076e82d91b238e010db6a42edb6d93 (diff)
downloadtk-4098f3211c970ab44ba727e079475022d3256534.zip
tk-4098f3211c970ab44ba727e079475022d3256534.tar.gz
tk-4098f3211c970ab44ba727e079475022d3256534.tar.bz2
*** empty log message ***
-rw-r--r--library/bgerror.tcl11
1 files changed, 4 insertions, 7 deletions
diff --git a/library/bgerror.tcl b/library/bgerror.tcl
index d3bb58c..aaa671e 100644
--- a/library/bgerror.tcl
+++ b/library/bgerror.tcl
@@ -9,10 +9,9 @@
# Copyright (c) 1998-2000 by Ajuba Solutions.
# All rights reserved.
#
-# RCS: @(#) $Id: bgerror.tcl,v 1.9 2000/05/31 23:28:46 ericm Exp $
-# $Id: bgerror.tcl,v 1.9 2000/05/31 23:28:46 ericm Exp $
+# RCS: @(#) $Id: bgerror.tcl,v 1.10 2000/06/05 23:03:30 ericm Exp $
+# $Id: bgerror.tcl,v 1.10 2000/06/05 23:03:30 ericm Exp $
-option add *ErrorDialog.message.wrapLength 3.5i widgetDefault
option add *ErrorDialog.function.text "Save To Log" widgetDefault
option add *ErrorDialog.function.command "::tk::dialog::error::saveToLog"
@@ -62,7 +61,7 @@ proc ::tk::dialog::error::saveToLog {text} {
return
}
set f [open $filename w]
- puts -nonewline $text
+ puts -nonewline $f $text
close $f
}
@@ -153,9 +152,7 @@ proc bgerror err {
$W.text mark set insert 0.0
$W.text configure -state disabled
- # 2. Fill the top part with bitmap and message (use the option
- # database for -wraplength so that it can be overridden by
- # the caller).
+ # 2. Fill the top part with bitmap and message
label .bgerrorDialog.msg -justify left -text $text -font $messageFont
if { [string equal $tcl_platform(platform) "macintosh"] } {