Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Adjust tooltip package version requirement. Stop leaking interps when loading history. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
783944b19cf665e1be608acad00ee25f |
| User & Date: | emiliano 2025-03-13 16:32:11.240 |
Context
|
2025-03-13
| ||
| 16:32 | Adjust tooltip package version requirement. Stop leaking interps when loading history. Leaf check-in: 783944b19c user: emiliano tags: trunk | |
|
2025-01-21
| ||
| 15:49 | Removed wrong utf-8 char from comments check-in: 9c28b69758 user: emiliano tags: trunk | |
Changes
Changes to apps/tkchat/tkchat.vfs/bin/tkchat.tcl.
| ︙ | ︙ | |||
123 124 125 126 127 128 129 |
proc ${ns}::${t} {w args} [string map [list @ns $ns @t $t] {
@ns::khimWrapped@t $w {*}$args
bindtags $w [linsert [bindtags $w] 1 KHIM]
return $w
}]
}
}
| | | 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 |
proc ${ns}::${t} {w args} [string map [list @ns $ns @t $t] {
@ns::khimWrapped@t $w {*}$args
bindtags $w [linsert [bindtags $w] 1 KHIM]
return $w
}]
}
}
if {[catch {package require tooltip 1.5 2}]} {
# tooltips. We provide our own noop version if missing
namespace eval tooltip {
namespace export tooltip
proc tooltip {args} {}
}
}
# this used to be optional, but we have now [tk inactive]
|
| ︙ | ︙ | |||
518 519 520 521 522 523 524 525 526 527 528 529 530 531 |
# tclhttpd configuration.
set charset [dict get [http::responseInfo $tok] charset]
if {$charset eq "iso8859-1"} {
$I eval [encoding convertfrom utf-8 [http::data $tok]]
} else {
$I eval [http::data $tok]
}
} err]} then {
log::log error $err
bgerror $err
}
if { $reverse } {
set HistoryLines [concat $HistoryLines $histTmp]
}
| > | 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 |
# tclhttpd configuration.
set charset [dict get [http::responseInfo $tok] charset]
if {$charset eq "iso8859-1"} {
$I eval [encoding convertfrom utf-8 [http::data $tok]]
} else {
$I eval [http::data $tok]
}
interp delete $I
} err]} then {
log::log error $err
bgerror $err
}
if { $reverse } {
set HistoryLines [concat $HistoryLines $histTmp]
}
|
| ︙ | ︙ | |||
5415 5416 5417 5418 5419 5420 5421 5422 5423 5424 5425 5426 5427 5428 |
if { [catch {
set f [open $loadFileName r]
fconfigure $f -encoding utf-8
set I [interp create -safe]
interp alias $I m {} ::tkjabber::ParseLogMsg
$I eval [read $f]
close $f
} err] } then {
# Handle file access problems.
log::log error $err
bgerror $err
return
}
.txt configure -state normal
| > | 5416 5417 5418 5419 5420 5421 5422 5423 5424 5425 5426 5427 5428 5429 5430 |
if { [catch {
set f [open $loadFileName r]
fconfigure $f -encoding utf-8
set I [interp create -safe]
interp alias $I m {} ::tkjabber::ParseLogMsg
$I eval [read $f]
close $f
interp delete $I
} err] } then {
# Handle file access problems.
log::log error $err
bgerror $err
return
}
.txt configure -state normal
|
| ︙ | ︙ |