From 4098f3211c970ab44ba727e079475022d3256534 Mon Sep 17 00:00:00 2001
From: ericm <ericm>
Date: Mon, 5 Jun 2000 23:03:30 +0000
Subject: *** empty log message ***

---
 library/bgerror.tcl | 11 ++++-------
 1 file 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"] } {
-- 
cgit v0.12