Check-in [cf9d6db9cf]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:fix typo in twv demo script
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: cf9d6db9cfcca1520c485c006277c1dd778dde45
User & Date: chw 2019-06-12 05:00:53
Context
2019-06-12
11:33
fix typos in some build scripts check-in: 9d6b7570a1 user: chw tags: trunk
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:19
add tcl upstream changes check-in: b1cdfa6875 user: chw tags: trunk
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