Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | add tk upstream changes |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
dd4e9fa22a6a94edef14be3b85b629d6 |
User & Date: | chw 2019-07-08 09:10:51.666 |
Context
2019-07-08
| ||
09:12 | improve double-click handler in TSB check-in: 4fec6e8cc6 user: chw tags: trunk | |
09:10 | add tk upstream changes check-in: dd4e9fa22a user: chw tags: trunk | |
05:03 | attempt to fix ticket [e3c6fbfa6f], now generating <Leave> on <<FingerUp>> check-in: bff8537e1b user: chw tags: trunk | |
Changes
Changes to jni/sdl2tk/library/demos/ctext.tcl.
︙ | ︙ | |||
36 37 38 39 40 41 42 | set textFont {Helvetica -24} $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. | | | 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 | set textFont {Helvetica -24} $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 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" $c bind text <Shift-B1-Motion> "textB1Move $c %x %y" $c bind text <KeyPress> "textInsert $c %A" $c bind text <Return> "textInsert $c \\n" $c bind text <Control-h> "textBs $c" |
︙ | ︙ |