From 0b3d6e92499461624a68d7dcaa92c145c38ab8a2 Mon Sep 17 00:00:00 2001 From: dkf Date: Wed, 19 Feb 2003 16:13:07 +0000 Subject: New part for the widget demo showing Tk's UNICODE output. [Patch #627453] --- ChangeLog | 5 +++ library/demos/unicodeout.tcl | 94 ++++++++++++++++++++++++++++++++++++++++++++ library/demos/widget | 3 +- 3 files changed, 101 insertions(+), 1 deletion(-) create mode 100644 library/demos/unicodeout.tcl diff --git a/ChangeLog b/ChangeLog index f9a7a1c..8dbcb6d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2003-02-19 Donal K. Fellows + + * library/demos/widget: New part for the widget demo showing + * library/demos/unicodeout.tcl: Tk's UNICODE output. [Patch #627453] + 2003-02-18 Andreas Kupries * unix/configure: Regen. diff --git a/library/demos/unicodeout.tcl b/library/demos/unicodeout.tcl new file mode 100644 index 0000000..7f30b3d --- /dev/null +++ b/library/demos/unicodeout.tcl @@ -0,0 +1,94 @@ +# unicodeout.tcl -- +# +# This demonstration script shows how you can produce output (in label +# widgets) using many different alphabets. +# +# RCS: @(#) $Id: unicodeout.tcl,v 1.1 2003/02/19 16:13:14 dkf Exp $ + +if {![info exists widgetDemo]} { + error "This script should be run from the \"widget\" demo." +} + +set w .unicodeout +catch {destroy $w} +toplevel $w +wm title $w "Unicode Label Demonstration" +wm iconname $w "unicodeout" +positionWindow $w + +label $w.msg -font $font -wraplength 4i -justify left \ + -text "This is a sample of Tk's support for languages that use\ + non-Western character sets. However, what you will actually see\ + below depends largely on what character sets you have installed,\ + and what you see for characters that are not present varies greatly\ + between platforms as well. The strings are written in Tcl using\ + UNICODE characters using the \\uXXXX escape so as to do so in a\ + portable fashion." +pack $w.msg -side top + +frame $w.buttons +pack $w.buttons -side bottom -fill x -pady 2m +button $w.buttons.dismiss -text Dismiss -command "destroy $w" +button $w.buttons.code -text "See Code" -command "showCode $w" +pack $w.buttons.dismiss $w.buttons.code -side left -expand 1 + +pack [label $w.wait -text "Please wait while loading fonts..." \ + -font {Helvetica 12 italic}] +pack [frame $w.f] -expand 1 -fill both -padx 2m -pady 1m +grid columnconfigure $w.f 1 -weight 1 + +#frame $w.left +#frame $w.right +#pack $w.left $w.right -side left -expand yes -padx 10 -pady 10 -fill both +# +#label $w.left.l1 -text "First label" +#label $w.left.l2 -text "Second label, raised" -relief raised +#label $w.left.l3 -text "Third label, sunken" -relief sunken +#pack $w.left.l1 $w.left.l2 $w.left.l3 -side top -expand yes -pady 2 -anchor w +# +#label $w.right.bitmap -borderwidth 2 -relief sunken \ +# -bitmap @[file join $tk_library demos images face.bmp] +#label $w.right.caption -text "Tcl/Tk Proprietor" +#pack $w.right.bitmap $w.right.caption -side top + +#--- Begin ~/lang/tcl/cvs/unicode_output.tcl -------------------------- +set i 0 +proc addSample {w language args} { + global font i + set sample [join $args ""] + set j [incr i] + label $w.f.l$j -font $font -text "${language}:" -anchor nw -pady 0 + label $w.f.s$j -font $font -text $sample -anchor nw -width 30 -pady 0 + grid $w.f.l$j $w.f.s$j -sticky ew -pady 0 + grid configure $w.f.l$j -padx 1m +} + +# Processing when some characters are missing might take a while, so make +# sure we're displaying something in the meantime... + +set oldCursor [$w cget -cursor] +$w conf -cursor watch +update + +addSample $w Arabic \ + "\uFE94\uFEF4\uFE91\uFEAE\uFECC\uFEDF\uFE8D\uFE94" \ + "\uFEE4\uFEE0\uFEDC\uFEDF\uFE8D" +addSample $w "Trad. Chinese" "\u4E2D\u570B\u7684\u6F22\u5B57" +addSample $w "Simpl. Chinese" "\u6C49\u8BED" +addSample $w Greek \ + "\u0395\u03BB\u03BB\u03B7\u03BD\u03B9\u03BA\u03AC " \ + "\u03B3\u03BB\u03CE\u03C3\u03C3\u03B1" +addSample $w Hebrew \ + "\u05DD\u05D9\u05DC\u05E9\u05D5\u05E8\u05D9 " \ + "\u05DC\u05D9\u05D0\u05E8\u05E9\u05D9" +addSample $w Japanese \ + "\u65E5\u672C\u8A9E\u306E\u3072\u3089\u304C\u306A, " \ + "\u6F22\u5B57\u3068\u30AB\u30BF\u30AB\u30CA" +addSample $w Korean "\uB300\uD55C\uBBFC\uAD6D\uC758 \uD55C\uAE00" +addSample $w Russian \ + "\u0420\u0443\u0441\u0441\u043A\u0438\u0439 \u044F\u0437\u044B\u043A" + +# We're done processing, so change things back to normal running... +destroy $w.wait +$w conf -cursor $oldCursor +#--- End ~/lang/tcl/cvs/unicode_output.tcl ---------------------------- diff --git a/library/demos/widget b/library/demos/widget index fde5c94..33c7843 100644 --- a/library/demos/widget +++ b/library/demos/widget @@ -11,7 +11,7 @@ exec wish "$0" "$@" # ".tcl" files is this directory, which are sourced by this script # as needed. # -# RCS: @(#) $Id: widget,v 1.8 2002/08/31 06:12:28 das Exp $ +# RCS: @(#) $Id: widget,v 1.9 2003/02/19 16:13:15 dkf Exp $ eval destroy [winfo child .] wm title . "Widget Demonstration" @@ -161,6 +161,7 @@ proc addDemoSection {title demos} { addDemoSection "Labels, buttons, checkbuttons, and radiobuttons" { label "Labels (text and bitmaps)" + unicodeout "Labels and UNICODE text" button "Buttons" check "Check-buttons (select any of a group)" radio "Radio-buttons (select one of a group)" -- cgit v0.12