summaryrefslogtreecommitdiffstats
path: root/library/demos/widget
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2003-05-19 14:44:03 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2003-05-19 14:44:03 (GMT)
commit4926ded3376b2238fc889db0e53a383c6164b941 (patch)
tree0daab51d71d8b0f43ace1d01d785c52f602ec969 /library/demos/widget
parenta302e60a15b009ebd33033013d2a602c2a1a0825 (diff)
downloadtk-4926ded3376b2238fc889db0e53a383c6164b941.zip
tk-4926ded3376b2238fc889db0e53a383c6164b941.tar.gz
tk-4926ded3376b2238fc889db0e53a383c6164b941.tar.bz2
I18n (and some l10n) for the console and the main window of the widget demo.
Diffstat (limited to 'library/demos/widget')
-rw-r--r--library/demos/widget159
1 files changed, 108 insertions, 51 deletions
diff --git a/library/demos/widget b/library/demos/widget
index 33c7843..e0fde72 100644
--- a/library/demos/widget
+++ b/library/demos/widget
@@ -11,10 +11,13 @@ exec wish "$0" "$@"
# ".tcl" files is this directory, which are sourced by this script
# as needed.
#
-# RCS: @(#) $Id: widget,v 1.9 2003/02/19 16:13:15 dkf Exp $
+# RCS: @(#) $Id: widget,v 1.10 2003/05/19 14:44:04 dkf Exp $
eval destroy [winfo child .]
-wm title . "Widget Demonstration"
+package require msgcat
+::msgcat::mcload [file join $tk_library demos]
+namespace import ::msgcat::mc
+wm title . [mc "Widget Demonstration"]
if {$tcl_platform(platform) eq "unix"} {
# This won't work everywhere, but there's no other way in core Tk
# at the moment to display a coloured icon.
@@ -22,7 +25,7 @@ if {$tcl_platform(platform) eq "unix"} {
-file [file join $tk_library images logo64.gif]
wm iconwindow . [toplevel ._iconWindow]
pack [label ._iconWindow.i -image TclPowered]
- wm iconname . "tkWidgetDemo"
+ wm iconname . [mc "tkWidgetDemo"]
}
array set widgetFont {
@@ -43,24 +46,26 @@ set font $widgetFont(main)
#----------------------------------------------------------------
menu .menuBar -tearoff 0
-.menuBar add cascade -menu .menuBar.file -label "File" -underline 0
+# This is a tk-internal procedure to make i18n easier
+::tk::AmpMenuArgs .menuBar add cascade -label [mc "&File"] -menu .menuBar.file
menu .menuBar.file -tearoff 0
# On the Mac use the specia .apple menu for the about item
-if {[string equal [tk windowingsystem] "classic"]} {
+if {[tk windowingsystem] eq "classic"} {
.menuBar add cascade -menu .menuBar.apple
menu .menuBar.apple -tearoff 0
- .menuBar.apple add command -label "About..." -command "aboutBox"
+ .menuBar.apple add command -label [mc "About..."] -command {aboutBox}
} else {
- .menuBar.file add command -label "About..." -command "aboutBox" \
- -underline 0 -accelerator "<F1>"
+ ::tk::AmpMenuArgs .menuBar.file add command -label [mc "&About..."] \
+ -command {aboutBox} -accelerator [mc "<F1>"]
.menuBar.file add sep
}
-.menuBar.file add command -label "Quit" -command "exit" -underline 0 \
- -accelerator "Meta-Q"
+::tk::AmpMenuArgs .menuBar.file add command -label [mc "&Quit"] \
+ -command {exit} -accelerator [mc "Meta-Q"]
. configure -menu .menuBar
-bind . <F1> aboutBox
+bind . <F1> {aboutBox}
+bind . <Meta-q> {exit}
frame .statusBar
label .statusBar.lab -text " " -relief sunken -bd 1 \
@@ -125,7 +130,7 @@ set lastLine ""
}
.t tag bind demo <Motion> {
set newLine [.t index {@%x,%y linestart}]
- if {[string compare $newLine $lastLine] != 0} {
+ if {$newLine ne $lastLine} {
.t tag remove hot 1.0 end
set lastLine $newLine
@@ -140,25 +145,78 @@ set lastLine ""
# Create the text for the text widget.
+# addFormattedText --
+#
+# Add formatted text (but not hypertext) to the text widget after
+# first passing it through the message catalog to allow for
+# localization. Lines starting with @@ are formatting directives
+# (begin newline, or change style) and all other lines are literal
+# strings to be inserted. Blank lines are ignored.
+#
+proc addFormattedText {formattedText} {
+ set style normal
+ set isNL 1
+ foreach line [split [mc $formattedText] \n] {
+ set line [string trim $line]
+ if {$line eq ""} {
+ continue
+ }
+ if {$line eq "@@newline"} {
+ .t insert end \n $style
+ set isNL 1
+ continue
+ }
+ if {[string match @@* $line]} {
+ set style [string range $line 1 end]
+ continue
+ }
+ if {!$isNL} {
+ .t insert end " " $style
+ }
+ set isNL 0
+ .t insert end $line $style
+ }
+}
+
+# addDemoSection --
+#
+# Add a new section of demos with a title and a (stride-2) list of
+# demo files and their descriptions. Titles and descriptions are
+# passed through the message catalog to allow for localization.
+#
proc addDemoSection {title demos} {
- .t insert end "\n" {} $title title " \n " demospace
+ .t insert end "\n" {} [mc $title] title " \n " demospace
set num 0
foreach {name description} $demos {
- .t insert end "[incr num]. $description." [list demo demo-$name]
+ .t insert end "[incr num]. [mc $description]." [list demo demo-$name]
.t insert end " \n " demospace
}
}
-.t insert end "Tk Widget Demonstrations\n" title
-.t insert end "\nThis application provides a front end for several short\
- scripts that demonstrate what you can do with Tk widgets. Each of\
- the numbered lines below describes a demonstration; you can click\
- on it to invoke the demonstration. Once the demonstration window\
- appears, you can click the " {} "See Code" bold " button to see the\
- Tcl/Tk code that created the demonstration. If you wish, you can\
- edit the code and click the " {} "Rerun Demo" bold " button in the\
- code window to reinvoke the demonstration with the modified code.\n"
-
+addFormattedText {
+ @@title
+ Tk Widget Demonstrations
+ @@newline
+ @@normal
+ @@newline
+
+ This application provides a front end for several short scripts
+ that demonstrate what you can do with Tk widgets. Each of the
+ numbered lines below describes a demonstration; you can click on
+ it to invoke the demonstration. Once the demonstration window
+ appears, you can click the
+ @@bold
+ See Code
+ @@normal
+ button to see the Tcl/Tk code that created the demonstration. If
+ you wish, you can edit the code and click the
+ @@bold
+ Rerun Demo
+ @@normal
+ button in the code window to reinvoke the demonstration with the
+ modified code.
+ @@newline
+}
addDemoSection "Labels, buttons, checkbuttons, and radiobuttons" {
label "Labels (text and bitmaps)"
unicodeout "Labels and UNICODE text"
@@ -248,8 +306,8 @@ proc showVars {w args} {
global widgetFont
catch {destroy $w}
toplevel $w
- wm title $w "Variable values"
- label $w.title -text "Variable values:" -width 20 -anchor center \
+ wm title $w [mc "Variable values"]
+ label $w.title -text [mc "Variable values:"] -width 20 -anchor center \
-font $widgetFont(vars)
pack $w.title -side top -fill x
set len 1
@@ -266,8 +324,9 @@ proc showVars {w args} {
pack $w.$i.value -side left -expand 1 -fill x
pack $w.$i -side top -anchor w -fill x
}
- button $w.ok -text OK -command "destroy $w" -default active
- bind $w <Return> "tkButtonInvoke $w.ok"
+ button $w.ok -text [mc "OK"] -command [list destroy $w] -default active
+ bind $w <Return> [list tkButtonInvoke $w.ok]
+ bind $w <Escape> [list tkButtonInvoke $w.ok]
pack $w.ok -side bottom -pady 2
}
@@ -311,10 +370,10 @@ proc showStatus index {
set newcursor xterm
} else {
set demo [string range [lindex $tags $i] 5 end]
- .statusBar.lab config -text "Run the \"$demo\" sample program"
+ .statusBar.lab config -text [mc "Run the \"%s\" sample program" $demo]
set newcursor hand2
}
- if [string compare $cursor $newcursor] {
+ if {$cursor ne $newcursor} {
.t config -cursor $newcursor
}
}
@@ -331,27 +390,27 @@ proc showStatus index {
proc showCode w {
global tk_library
set file [string range $w 1 end].tcl
- if ![winfo exists .code] {
+ if {![winfo exists .code]} {
toplevel .code
frame .code.buttons
pack .code.buttons -side bottom -fill x
- button .code.buttons.dismiss -text Dismiss \
- -default active -command "destroy .code"
- button .code.buttons.rerun -text "Rerun Demo" -command {
+ button .code.buttons.dismiss -text [mc "Dismiss"] \
+ -default active -command {destroy .code}
+ button .code.buttons.rerun -text [mc "Rerun Demo"] -command {
eval [.code.text get 1.0 end]
}
pack .code.buttons.dismiss .code.buttons.rerun -side left \
- -expand 1 -pady 2
+ -expand 1 -pady 2
frame .code.frame
pack .code.frame -expand yes -fill both -padx 1 -pady 1
- text .code.text -height 40 -wrap word\
- -xscrollcommand ".code.xscroll set" \
- -yscrollcommand ".code.yscroll set" \
- -setgrid 1 -highlightthickness 0 -pady 2 -padx 3
- scrollbar .code.xscroll -command ".code.text xview" \
- -highlightthickness 0 -orient horizontal
- scrollbar .code.yscroll -command ".code.text yview" \
- -highlightthickness 0 -orient vertical
+ text .code.text -height 40 -wrap word \
+ -xscrollcommand {.code.xscroll set} \
+ -yscrollcommand {.code.yscroll set} \
+ -setgrid 1 -highlightthickness 0 -pady 2 -padx 3
+ scrollbar .code.xscroll -command {.code.text xview} \
+ -highlightthickness 0 -orient horizontal
+ scrollbar .code.yscroll -command {.code.text yview} \
+ -highlightthickness 0 -orient vertical
grid .code.text -in .code.frame -padx 1 -pady 1 \
-row 0 -column 0 -rowspan 1 -columnspan 1 -sticky news
@@ -365,7 +424,7 @@ proc showCode w {
wm deiconify .code
raise .code
}
- wm title .code "Demo code: [file join $tk_library demos $file]"
+ wm title .code [mc "Demo code: %s" [file join $tk_library demos $file]]
wm iconname .code $file
set id [open [file join $tk_library demos $file]]
.code.text delete 1.0 end
@@ -379,14 +438,12 @@ proc showCode w {
# Pops up a message box with an "about" message
#
proc aboutBox {} {
- tk_messageBox -icon info -type ok -title "About Widget Demo" -message \
-"Tk widget demonstration
-
-Copyright (c) 1996-1997 Sun Microsystems, Inc.
-
-Copyright (c) 1997-2000 Ajuba Solutions, Inc.
+ tk_messageBox -icon info -type ok -title [mc "About Widget Demo"] \
+ -message "[mc {Tk widget demonstration application}]
-Copyright (c) 2001-2002 Donal K. Fellows"
+[mc {Copyright (c) %s} {1996-1997 Sun Microsystems, Inc.}]
+[mc {Copyright (c) %s} {1997-2000 Ajuba Solutions, Inc.}]
+[mc {Copyright (c) %s} {2001-2003 Donal K. Fellows}]"
}
# Local Variables: