Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | merge with trunk |
---|---|
Timelines: | family | ancestors | descendants | both | wtf-8-experiment |
Files: | files | file ages | folders |
SHA1: |
d6daad45bf845f148daa40663987458c |
User & Date: | chw 2019-06-12 05:01:58.052 |
Context
2019-06-12
| ||
11:35 | merge with trunk check-in: 7a33036b05 user: chw tags: wtf-8-experiment | |
05:01 | merge with trunk check-in: d6daad45bf user: chw tags: wtf-8-experiment | |
05:00 | fix typo in twv demo script check-in: cf9d6db9cf user: chw tags: trunk | |
03:21 | merge with trunk check-in: 282e005b04 user: chw tags: wtf-8-experiment | |
Changes
Changes to undroid/tsb/tsb.tcl.
︙ | ︙ | |||
244 245 246 247 248 249 250 | } set f [open $name r] set data [read $f] close $f array set h $data after idle [list ::tsb::loadh $data] set ::tsb::file $name | | | 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 | } set f [open $name r] set data [read $f] close $f array set h $data after idle [list ::tsb::loadh $data] set ::tsb::file $name $::W title "$::tsb::title - [file tail $name]" return -code 4 ;# continue } proc ::tsb::loadh {data} { variable inload set inload 1 unset -nocomplain ::H |
︙ | ︙ |