summaryrefslogtreecommitdiffstats
path: root/library/xmfbox.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/xmfbox.tcl')
-rw-r--r--library/xmfbox.tcl32
1 files changed, 16 insertions, 16 deletions
diff --git a/library/xmfbox.tcl b/library/xmfbox.tcl
index 58f5496..e2c9194 100644
--- a/library/xmfbox.tcl
+++ b/library/xmfbox.tcl
@@ -4,7 +4,7 @@
# Unix platform. This implementation is used only if the
# "::tk_strictMotif" flag is set.
#
-# RCS: @(#) $Id: xmfbox.tcl,v 1.18 2001/10/16 23:39:32 hobbs Exp $
+# RCS: @(#) $Id: xmfbox.tcl,v 1.19 2002/04/29 13:17:44 bagnonm Exp $
#
# Copyright (c) 1996 Sun Microsystems, Inc.
# Copyright (c) 1998-2000 Scriptics Corporation
@@ -237,12 +237,12 @@ proc ::tk::MotifFDialog_Config {dataName type argList} {
if {[string equal $data(-title) ""]} {
if {[string equal $type "open"]} {
if {$data(-multiple) != 0} {
- set data(-title) "[::msgcat::mc {Open Multiple Files}]"
+ set data(-title) "[mc {Open Multiple Files}]"
} else {
- set data(-title) [::msgcat::mc "Open"]
+ set data(-title) [mc "Open"]
}
} else {
- set data(-title) [::msgcat::mc "Save As"]
+ set data(-title) [mc "Save As"]
}
}
@@ -323,7 +323,7 @@ proc ::tk::MotifFDialog_BuildUI {w} {
# The Filter box
#
- label $f1.lab -text [::msgcat::mc "Filter:"] -under 3 -anchor w
+ label $f1.lab -text [mc "Filter:"] -under 3 -anchor w
entry $f1.ent
pack $f1.lab -side top -fill x -padx 6 -pady 4
pack $f1.ent -side top -fill x -padx 4 -pady 0
@@ -332,13 +332,13 @@ proc ::tk::MotifFDialog_BuildUI {w} {
# The file and directory lists
#
set data(dList) [MotifFDialog_MakeSList $w $f2a \
- [::msgcat::mc "Directory:"] 0 DList]
+ [mc "Directory:"] 0 DList]
set data(fList) [MotifFDialog_MakeSList $w $f2b \
- [::msgcat::mc "Files:"] 2 FList]
+ [mc "Files:"] 2 FList]
# The Selection box
#
- label $f3.lab -text [::msgcat::mc "Selection:"] -under 0 -anchor w
+ label $f3.lab -text [mc "Selection:"] -under 0 -anchor w
entry $f3.ent
pack $f3.lab -side top -fill x -padx 6 -pady 0
pack $f3.ent -side top -fill x -padx 4 -pady 4
@@ -346,15 +346,15 @@ proc ::tk::MotifFDialog_BuildUI {w} {
# The buttons
#
- set maxWidth [::msgcat::mcmax OK Filter Cancel]
+ set maxWidth [mcmax OK Filter Cancel]
set maxWidth [expr {$maxWidth<6?6:$maxWidth}]
- set data(okBtn) [button $bot.ok -text [::msgcat::mc "OK"] \
+ set data(okBtn) [button $bot.ok -text [mc "OK"] \
-width $maxWidth -under 0 \
-command [list tk::MotifFDialog_OkCmd $w]]
- set data(filterBtn) [button $bot.filter -text [::msgcat::mc "Filter"] \
+ set data(filterBtn) [button $bot.filter -text [mc "Filter"] \
-width $maxWidth -under 0 \
-command [list tk::MotifFDialog_FilterCmd $w]]
- set data(cancelBtn) [button $bot.cancel -text [::msgcat::mc "Cancel"] \
+ set data(cancelBtn) [button $bot.cancel -text [mc "Cancel"] \
-width $maxWidth -under 0 \
-command [list tk::MotifFDialog_CancelCmd $w]]
@@ -812,7 +812,7 @@ proc ::tk::MotifFDialog_ActivateSEnt {w} {
set item [file join $data(selectPath) $item]
} elseif {![file exists [file dirname $item]]} {
tk_messageBox -icon warning -type ok \
- -message [::msgcat::mc {Directory "%1$s" does not exist.} \
+ -message [mc {Directory "%1$s" does not exist.} \
[file dirname $item]]
return
}
@@ -820,16 +820,16 @@ proc ::tk::MotifFDialog_ActivateSEnt {w} {
if {![file exists $item]} {
if {[string equal $data(type) open]} {
tk_messageBox -icon warning -type ok \
- -message [::msgcat::mc {File "$item" does not exist.} \
+ -message [mc {File "$item" does not exist.} \
$item]
return
}
} else {
if {[string equal $data(type) save]} {
set message [format %s%s \
- [::msgcat::mc {File "%1$s" already exists.\n\n} \
+ [mc {File "%1$s" already exists.\n\n} \
$selectFilePath ] \
- [::msgcat::mc {Replace existing file?}]]
+ [mc {Replace existing file?}]]
set answer [tk_messageBox -icon warning -type yesno \
-message $message]
if {[string equal $answer "no"]} {