Posted to tcl by emiliano at Tue Oct 27 12:25:30 GMT 2009view raw

  1. --- ctext.tcl.orig 2009-10-27 08:58:44.000000000 -0300
  2. +++ ctext.tcl 2009-10-27 09:00:04.000000000 -0300
  3. @@ -42,7 +42,7 @@
  4.  
  5. # First, create the text item and give it bindings so it can be edited.
  6.  
  7. -$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]
  8. +$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]
  9. $c bind text <1> "textB1Press $c %x %y"
  10. $c bind text <B1-Motion> "textB1Move $c %x %y"
  11. $c bind text <Shift-1> "$c select adjust current @%x,%y"
  12.