diff options
| author | bagnonm <bagnonm> | 2002-04-29 13:17:44 (GMT) |
|---|---|---|
| committer | bagnonm <bagnonm> | 2002-04-29 13:17:44 (GMT) |
| commit | 507ab7e1fecc125cd4950161dcf34addcf205f5a (patch) | |
| tree | 1c2d3bc843f7cc439cf97149c84acff495e00eb1 /library/msgbox.tcl | |
| parent | 3d7f7709c38ac4b03dbc50b594baee0402079aa6 (diff) | |
| download | tk-507ab7e1fecc125cd4950161dcf34addcf205f5a.zip tk-507ab7e1fecc125cd4950161dcf34addcf205f5a.tar.gz tk-507ab7e1fecc125cd4950161dcf34addcf205f5a.tar.bz2 | |
new feature, make dependence on msgcat soft, [539309]
Diffstat (limited to 'library/msgbox.tcl')
| -rw-r--r-- | library/msgbox.tcl | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/library/msgbox.tcl b/library/msgbox.tcl index 6fdef49..c40f753 100644 --- a/library/msgbox.tcl +++ b/library/msgbox.tcl @@ -3,7 +3,7 @@ # Implements messageboxes for platforms that do not have native # messagebox support. # -# RCS: @(#) $Id: msgbox.tcl,v 1.15 2001/08/06 18:29:41 dgp Exp $ +# RCS: @(#) $Id: msgbox.tcl,v 1.16 2002/04/29 13:17:44 bagnonm Exp $ # # Copyright (c) 1994-1997 Sun Microsystems, Inc. # @@ -171,66 +171,66 @@ proc ::tk::MessageBox {args} { switch -- $data(-type) { abortretryignore { - set maxWidth [::msgcat::mcmax Abort Retry Ignore] + set maxWidth [mcmax Abort Retry Ignore] set maxWidth [expr {$maxWidth<6?6:$maxWidth}] set buttons [list \ - [list abort -width $maxWidth -text [::msgcat::mc "Abort"] \ + [list abort -width $maxWidth -text [mc "Abort"] \ -under 0]\ - [list retry -width $maxWidth -text [::msgcat::mc "Retry"] \ + [list retry -width $maxWidth -text [mc "Retry"] \ -under 0]\ - [list ignore -width $maxWidth -text [::msgcat::mc "Ignore"] \ + [list ignore -width $maxWidth -text [mc "Ignore"] \ -under 0]\ ] } ok { set buttons [list \ - [list ok -width [::msgcat::mcmax OK] \ - -text [::msgcat::mc {OK}] -under 0] \ + [list ok -width [mcmax OK] \ + -text [mc {OK}] -under 0] \ ] if {[string equal $data(-default) ""]} { set data(-default) "ok" } } okcancel { - set maxWidth [::msgcat::mcmax OK Cancel] + set maxWidth [mcmax OK Cancel] set maxWidth [expr {$maxWidth<6?6:$maxWidth}] set buttons [list \ [list ok -width $maxWidth \ - -text [::msgcat::mc "OK"] -under 0] \ + -text [mc "OK"] -under 0] \ [list cancel -width $maxWidth \ - -text [::msgcat::mc "Cancel"] -under 0] \ + -text [mc "Cancel"] -under 0] \ ] } retrycancel { - set maxWidth [::msgcat::mcmax Retry Cancel] + set maxWidth [mcmax Retry Cancel] set maxWidth [expr {$maxWidth<6?6:$maxWidth}] set buttons [list \ [list retry -width $maxWidth \ - -text [::msgcat::mc "Retry"] -under 0] \ + -text [mc "Retry"] -under 0] \ [list cancel -width $maxWidth \ - -text [::msgcat::mc "Cancel"] -under 0] \ + -text [mc "Cancel"] -under 0] \ ] } yesno { - set maxWidth [::msgcat::mcmax Yes No] + set maxWidth [mcmax Yes No] set maxWidth [expr {$maxWidth<6?6:$maxWidth}] set buttons [list \ [list yes -width $maxWidth \ - -text [::msgcat::mc "Yes"] -under 0]\ + -text [mc "Yes"] -under 0]\ [list no -width $maxWidth \ - -text [::msgcat::mc "No"] -under 0]\ + -text [mc "No"] -under 0]\ ] } yesnocancel { - set maxWidth [::msgcat::mcmax Yes No Cancel] + set maxWidth [mcmax Yes No Cancel] set maxWidth [expr {$maxWidth<6?6:$maxWidth}] set buttons [list \ [list yes -width $maxWidth \ - -text [::msgcat::mc "Yes"] -under 0]\ + -text [mc "Yes"] -under 0]\ [list no -width $maxWidth \ - -text [::msgcat::mc "No"] -under 0]\ + -text [mc "No"] -under 0]\ [list cancel -width $maxWidth \ - -text [::msgcat::mc "Cancel"] -under 0]\ + -text [mc "Cancel"] -under 0]\ ] } default { |