summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
Diffstat (limited to 'library')
-rw-r--r--library/bgerror.tcl30
1 files changed, 16 insertions, 14 deletions
diff --git a/library/bgerror.tcl b/library/bgerror.tcl
index f18ef7b..11b51ac 100644
--- a/library/bgerror.tcl
+++ b/library/bgerror.tcl
@@ -9,16 +9,18 @@
# Copyright (c) 1998-2000 by Ajuba Solutions.
# All rights reserved.
#
-# RCS: @(#) $Id: bgerror.tcl,v 1.18 2002/04/29 13:17:44 bagnonm Exp $
-# $Id: bgerror.tcl,v 1.18 2002/04/29 13:17:44 bagnonm Exp $
+# RCS: @(#) $Id: bgerror.tcl,v 1.19 2002/05/03 07:46:41 bagnonm Exp $
+# $Id: bgerror.tcl,v 1.19 2002/05/03 07:46:41 bagnonm Exp $
-option add *ErrorDialog.function.text [::tk::msgcat::mc "Save To Log"] \
+option add *ErrorDialog.function.text [namespace eval ::tk {mc "Save To Log"}] \
widgetDefault
option add *ErrorDialog.function.command "::tk::dialog::error::saveToLog"
namespace eval ::tk {}
namespace eval ::tk::dialog {}
-namespace eval ::tk::dialog::error {}
+namespace eval ::tk::dialog::error {
+ namespace import ::tk::msgcat::*
+}
proc ::tk::dialog::error::Return {} {
variable button
@@ -52,11 +54,11 @@ proc ::tk::dialog::error::saveToLog {text} {
set allFiles "*"
}
set types [list \
- [list [::tk::msgcat::mc "Log Files"] .log] \
- [list [::tk::msgcat::mc "Text Files"] .txt] \
- [list [::tk::msgcat::mc "All Files"] $allFiles] \
+ [list [mc "Log Files"] .log] \
+ [list [mc "Text Files"] .txt] \
+ [list [mc "All Files"] $allFiles] \
]
- set filename [tk_getSaveFile -title [::tk::msgcat::mc "Select Log File"] \
+ set filename [tk_getSaveFile -title [mc "Select Log File"] \
-filetypes $types -defaultextension .log -parent .bgerrorDialog]
if {![string length $filename]} {
return
@@ -93,12 +95,12 @@ proc ::bgerror err {
# Ok the application's tkerror either failed or was not found
# we use the default dialog then :
if {$tcl_platform(platform) == "macintosh"} {
- set ok [::tk::msgcat::mc "Ok"]
+ set ok [namespace eval ::tk {mc "Ok"}]
set messageFont system
set textRelief "flat"
set textHilight 0
} else {
- set ok [::tk::msgcat::mc "OK"]
+ set ok [namespace eval ::tk {mc "OK"}]
set messageFont {Times -18}
set textRelief "sunken"
set textHilight 1
@@ -125,10 +127,10 @@ proc ::bgerror err {
}
set w .bgerrorDialog
- set title [::tk::msgcat::mc "Application Error"]
- set text [::tk::msgcat::mc "Error: %1\$s" $err]
- set buttons [list ok $ok dismiss [::tk::msgcat::mc "Skip Messages"] \
- function [::tk::msgcat::mc "Details >>"]]
+ set title [namespace eval ::tk {mc "Application Error"}]
+ set text [namespace eval ::tk "mc {Error: %1\$s} {$err}"]
+ set buttons [list ok $ok dismiss [namespace eval ::tk {mc "Skip Messages"}] \
+ function [namespace eval ::tk {mc "Details >>"}]]
# 1. Create the top-level window and divide it into top
# and bottom parts.