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: |
cf9d6db9cfcca1520c485c006277c1dd |
| 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
|