diff options
| author | jenglish <jenglish@flightlab.com> | 2003-12-20 19:57:53 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2003-12-20 19:57:53 (GMT) |
| commit | 747881c8033dd9bcecd061f4c5d75f5bdc6097c5 (patch) | |
| tree | abb299091ff278a500079240d143a157aa5c56d3 /library/bgerror.tcl | |
| parent | 1b6280713b3e209ea68f51fe16f0e04592699a65 (diff) | |
| download | tk-747881c8033dd9bcecd061f4c5d75f5bdc6097c5.zip tk-747881c8033dd9bcecd061f4c5d75f5bdc6097c5.tar.gz tk-747881c8033dd9bcecd061f4c5d75f5bdc6097c5.tar.bz2 | |
library/bgerror.tcl: Truncate displayed error message if it's too long
(fixes: #231251)
Diffstat (limited to 'library/bgerror.tcl')
| -rw-r--r-- | library/bgerror.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
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 >>"]] |