Menu

#115 TIK 0.90 & Wish 8.0 Fixed bug

open
nobody
None
5
2001-07-23
2001-07-23
No

The error message that poped up was very helpful. I
fixed it and thought I would let you know about it. I
know you say to use TCL/TK 8.1 but I've been using Wish
8.0 with no problems for a while now.

i kept getting an error saying encoding wasn't a
useable command
for fconfigure.

It used to say
fconfigure $logfile -encoding UTF-8

sflap.tcl
----------------------------------------
proc sflap::puts_debug { entry } {
set logfile [open $::TIK(options,sflap,logfile) a+]
fconfigure $logfile (*** -translation auto***)
puts $logfile $entry
close $logfile

components/imcapture.tcl
----------------------------------------------
if {![file exists [file join $::TIK(configDir) capture
$n.html]]} {
# This is the first IM from this buddy so
setup the HTML
# page with the beginning stuff:)
set f [open [file join $::TIK(configDir)
capture $n.html] a+]
fconfigure $f -translation auto
puts $f [tik_str P_IMCAPTURE_FILEHDR $nick]
} else {
set f [open [file join $::TIK(configDir)
capture $n.html] a+]
fconfigure $f (***-translation auto***)
}
return $f

components/imchatcapture.tcl
--------------------------------------------
if {![file exists [file join $::TIK(configDir)
chatcapture $n.html]]} {
# This is the first chat room so setup the
HTML
# page with the beginning stuff:)
set f [open [file join $::TIK(configDir)
chatcapture $n.html] a+]
fconfigure $f (***-translation auto***)
puts $f [tik_str P_CHATCAPTURE_FILEHDR
$name]
} else {
set f [open [file join $::TIK(configDir)
chatcapture $n.html] a+]
fconfigure $f (***-translation auto***)
}
return $f

After i changed it to this It worked fine. I hope this
helps.

Discussion


Log in to post a comment.