summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--library/bgerror.tcl6
2 files changed, 8 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index 6ca955b..ee310ef 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-03-11 Donal K. Fellows <donal.k.fellows@man.ac.uk>
+
+ * library/bgerror.tcl (::tk::dialog::error::bgerror): Truncated error
+ details were getting lost, leading to unreadable error messages.
+
2006-03-07 Donal K. Fellows <donal.k.fellows@man.ac.uk>
* doc/canvas.n: Added note that stipples are not well-supported on
diff --git a/library/bgerror.tcl b/library/bgerror.tcl
index e3593fa..c154961 100644
--- a/library/bgerror.tcl
+++ b/library/bgerror.tcl
@@ -9,8 +9,8 @@
# Copyright (c) 1998-2000 by Ajuba Solutions.
# All rights reserved.
#
-# RCS: @(#) $Id: bgerror.tcl,v 1.23.2.4 2006/01/25 18:21:41 dgp Exp $
-# $Id: bgerror.tcl,v 1.23.2.4 2006/01/25 18:21:41 dgp Exp $
+# RCS: @(#) $Id: bgerror.tcl,v 1.23.2.5 2006/03/11 22:50:51 dkf Exp $
+# $Id: bgerror.tcl,v 1.23.2.5 2006/03/11 22:50:51 dkf Exp $
namespace eval ::tk::dialog::error {
namespace import -force ::tk::msgcat::*
@@ -125,7 +125,7 @@ proc ::tk::dialog::error::bgerror err {
set w .bgerrorDialog
set title [mc "Application Error"]
- set text [mc {Error: %1$s} $err]
+ set text [mc {Error: %1$s} $displayedErr]
set buttons [list ok $ok dismiss [mc "Skip Messages"] \
function [mc "Details >>"]]