From 747881c8033dd9bcecd061f4c5d75f5bdc6097c5 Mon Sep 17 00:00:00 2001
From: jenglish <jenglish@flightlab.com>
Date: Sat, 20 Dec 2003 19:57:53 +0000
Subject: library/bgerror.tcl: Truncate displayed error message if it's too
long (fixes: #231251)
---
ChangeLog | 4 ++++
library/bgerror.tcl | 6 +++---
2 files changed, 7 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index b00d235..f6d3e39 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-12-20 Joe English <jenglish@users.sourceforge.net>
+ * library/bgerror.tcl: Truncate displayed error message
+ if it's too long (fixes: #231251)
+
2003-12-16 Pat Thoyts <patthoyts@users.sourceforge.net>
* win/rc/wish.exe.manifest: It seems that Windows XP insists on a
diff --git a/library/bgerror.tcl b/library/bgerror.tcl
index 7884180..a96c755 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.24 2003/04/25 20:02:43 hobbs Exp $
-# $Id: bgerror.tcl,v 1.24 2003/04/25 20:02:43 hobbs Exp $
+# RCS: @(#) $Id: bgerror.tcl,v 1.25 2003/12/20 19:57:53 jenglish Exp $
+# $Id: bgerror.tcl,v 1.25 2003/12/20 19:57:53 jenglish Exp $
namespace eval ::tk {
namespace eval dialog {
@@ -127,7 +127,7 @@ proc ::tk::dialog::error::bgerror err {
set w .bgerrorDialog
set title [mc "Application Error"]
- set text [mc {Error: %1$s} $err]
+ set text "Error: $displayedErr"
set buttons [list ok $ok dismiss [mc "Skip Messages"] \
function [mc "Details >>"]]
--
cgit v0.12