summaryrefslogtreecommitdiffstats
path: root/library/demos
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2009-10-27 14:02:17 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2009-10-27 14:02:17 (GMT)
commitf960bd30e3d2ad3152235a100cb11d80fe971c4d (patch)
treedb67effa2f4ee8828e23608076539954cb0d2833 /library/demos
parentf8a12031084ace161fabdcdadaea112f0e6e35e6 (diff)
downloadtk-f960bd30e3d2ad3152235a100cb11d80fe971c4d.zip
tk-f960bd30e3d2ad3152235a100cb11d80fe971c4d.tar.gz
tk-f960bd30e3d2ad3152235a100cb11d80fe971c4d.tar.bz2
Minor glitch fix.
Diffstat (limited to 'library/demos')
-rw-r--r--library/demos/ctext.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/library/demos/ctext.tcl b/library/demos/ctext.tcl
index ddfe59f..6bfe2be 100644
--- a/library/demos/ctext.tcl
+++ b/library/demos/ctext.tcl
@@ -3,7 +3,7 @@
# This demonstration script creates a canvas widget with a text
# item that can be edited and reconfigured in various ways.
#
-# RCS: @(#) $Id: ctext.tcl,v 1.6 2008/11/22 23:03:20 dkf Exp $
+# RCS: @(#) $Id: ctext.tcl,v 1.7 2009/10/27 14:02:17 dkf Exp $
if {![info exists widgetDemo]} {
error "This script should be run from the \"widget\" demo."
@@ -42,7 +42,7 @@ $c create rectangle 245 195 255 205 -outline black -fill red
# First, create the text item and give it bindings so it can be edited.
-$c addtag text withtag [$c create text 250 200 -text "This is just a string of text to demonstrate the text facilities of canvas widgets. Bindings have been been defined to support editing (see above)." -width 440 -anchor n -font {Helvetica 24} -justify left]
+$c addtag text withtag [$c create text 250 200 -text "This is just a string of text to demonstrate the text facilities of canvas widgets. Bindings have been been defined to support editing (see above)." -width 440 -anchor n -font $textFont -justify left]
$c bind text <1> "textB1Press $c %x %y"
$c bind text <B1-Motion> "textB1Move $c %x %y"
$c bind text <Shift-1> "$c select adjust current @%x,%y"