Artifact
451a7c79831e4d53469bd5b2f01eeb391adabe7755d74ffa2ebbd9ff85e171f3:
Attachment "e6d58de4.patch" to
ticket [e6d58de4]
added by
chrstphrchvz
2019-07-06 00:05:53.
diff --git library/demos/ctext.tcl library/demos/ctext.tcl
index 4b8c64417..a3b4e8a86 100644
--- library/demos/ctext.tcl
+++ 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 <B1-Motion> "textB1Move $c %x %y"
$c bind text <Shift-1> "$c select adjust current @%x,%y"
