Merge 9.0core-tip-626

1 files changed, 7 insertions, 7 deletions

diff --git a/library/bgerror.tcl b/library/bgerror.tcl
index 0dd04a1..a4147c3 100644
--- a/library/bgerror.tcl
+++ b/library/bgerror.tcl
@@ -22,7 +22,7 @@ namespace eval ::tk::dialog::error {
 	option add *ErrorDialog*background systemAlertBackgroundActive \
 		widgetDefault
 	option add *ErrorDialog*info.text.background \
-	        systemTextBackgroundColor widgetDefault
+		systemTextBackgroundColor widgetDefault
 	option add *ErrorDialog*Button.highlightBackground \
 		systemAlertBackgroundActive widgetDefault
     }
@@ -63,9 +63,9 @@ proc ::tk::dialog::error::SaveToLog {text} {
     set filename [tk_getSaveFile -title [mc "Select Log File"] \
 	    -filetypes $types -defaultextension .log -parent .bgerrorDialog]
     if {$filename ne {}} {
-        set f [open $filename w]
-        puts -nonewline $f $text
-        close $f
+	set f [open $filename w]
+	puts -nonewline $f $text
+	close $f
     }
     return
 }
@@ -131,7 +131,7 @@ proc ::tk::dialog::error::bgerror {err {flag 1}} {
     set maxRows 5
     foreach line [split $err \n] {
 	if {$lines > $maxRows - 1} {
-            # No more lines.  Append to previous line.
+	    # No more lines.  Append to previous line.
 	    append displayedErr { ...}
 	    break
 	}
@@ -143,7 +143,7 @@ proc ::tk::dialog::error::bgerror {err {flag 1}} {
 	    append displayedErr "[string range $line 0 $maxLine-3]..."
 	    break
 	} elseif {$lines > $maxRows - 2} {
-            # Last line, but no break or newline.  Room to add 4 chars.
+	    # Last line, but no break or newline.  Room to add 4 chars.
 	    append displayedErr "${line}"
 	} else {
 	    append displayedErr "${line}\n"
@@ -255,7 +255,7 @@ proc ::tk::dialog::error::bgerror {err {flag 1}} {
 	# order to ensure that it's seen
 	if {[lindex [wm stackorder .] end] ne "$dlg"} {
 	    wm attributes $dlg -topmost 1
-        }
+	}
     }
 
     # 9. Wait for the user to respond, then restore the focus and