From 1c3c5d6089f03b70a840c3496df70ad70cf66b7f Mon Sep 17 00:00:00 2001 From: fvogel Date: Sun, 7 Jul 2019 19:01:30 +0000 Subject: Fix [e6d58de4b6]: ctext.tcl: remove duplicate word --- library/demos/ctext.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/library/demos/ctext.tcl b/library/demos/ctext.tcl index 4b8c644..a3b4e8a 100644 --- a/library/demos/ctext.tcl +++ b/library/demos/ctext.tcl @@ -40,7 +40,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 $textFont -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 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 "textB1Move $c %x %y" $c bind text "$c select adjust current @%x,%y" -- cgit v0.12