Check-in [d6daad45bf]
Not logged in

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: d6daad45bf845f148daa40663987458c31740edc
User & Date: chw 2019-06-12 05:01:58
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
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







|







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