diff options
| author | ericm <ericm> | 2000-06-05 23:03:30 (GMT) |
|---|---|---|
| committer | ericm <ericm> | 2000-06-05 23:03:30 (GMT) |
| commit | 4098f3211c970ab44ba727e079475022d3256534 (patch) | |
| tree | 008f3f64a84c2dd4159cbedddfb9b945ff1d3caa /library/bgerror.tcl | |
| parent | 6da4f0d7c8076e82d91b238e010db6a42edb6d93 (diff) | |
| download | tk-4098f3211c970ab44ba727e079475022d3256534.zip tk-4098f3211c970ab44ba727e079475022d3256534.tar.gz tk-4098f3211c970ab44ba727e079475022d3256534.tar.bz2 | |
*** empty log message ***
Diffstat (limited to 'library/bgerror.tcl')
| -rw-r--r-- | library/bgerror.tcl | 11 |
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"] } { |