Check-in [dd4e9fa22a]
Not logged in

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: dd4e9fa22a6a94edef14be3b85b629d64b397358
User & Date: chw 2019-07-08 09:10:51
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
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 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"







|







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"