Artifact
e2d4980dc760128493c732ec6c15d1de764a1b54:
Attachment "tkchat.diff" to
ticket [467876ffff]
added by
stevecassidy
2001-10-04 20:49:51.
*** tkchat2.tcl Thu Oct 4 23:20:25 2001
--- tkchat.tcl Thu Oct 4 23:47:44 2001
***************
*** 563,570 ****
set festival [open "|festival --pipe" w]
}
! puts [string map [list "\"" ""] $message]
! puts $festival "(SayText \"$message\")"
flush $festival
}
}
--- 563,569 ----
set festival [open "|festival --pipe" w]
}
! puts $festival "(SayText \"[string map [list "\"" ""] $message]\")"
flush $festival
}
}
***************
*** 679,712 ****
}
proc showInfo {title str} {
! set t .infobox
! set i 0
! while {[winfo exists $t]} {
! set t .infobox[incr i]
! }
! toplevel $t
! wm title $t $title
! set height [expr {[string length $str] / 75 + 1}]
! if {[set lines [regexp -all "\n" $str]] > $height} {
! set height $lines
! }
! text $t.txt -cursor left_ptr -wrap word -height $height -font NAME
! pack $t.txt -expand 1 -fill both
! bind $t.txt <1> { focus %W }
! $t.txt tag config URL -underline 1
! $t.txt tag bind URL <Enter> "$t.txt config -cursor hand2"
! $t.txt tag bind URL <Leave> "$t.txt config -cursor left_ptr"
! foreach {str url} [parseStr $str] {
! set str [string map [list "\n" "\n\t"] $str]
! if {$url == ""} {
! $t.txt insert end "$str "
! } else {
! $t.txt insert end "$str " [list URL URL-[incr ::URLID]]
! $t.txt tag bind URL-$::URLID <1> [list gotoURL $url]
}
! }
! $t.txt insert end "\n"
! $t.txt config -state disabled
}
proc addHelp {clr name str} {
--- 678,718 ----
}
proc showInfo {title str} {
! global shownInfo
!
! # show this info in a toplevel if it's not already shown
! # how do we know? Use a hash on the string...
! if { ![info exists shownInfo($str)] } {
! set t .infobox
! set i 0
! while {[winfo exists $t]} {
! set t .infobox[incr i]
}
! toplevel $t
! wm title $t $title
! set height [expr {[string length $str] / 75 + 1}]
! if {[set lines [regexp -all "\n" $str]] > $height} {
! set height $lines
! }
! text $t.txt -cursor left_ptr -wrap word -height $height -font NAME
! pack $t.txt -expand 1 -fill both
! bind $t.txt <1> { focus %W }
! $t.txt tag config URL -underline 1
! $t.txt tag bind URL <Enter> "$t.txt config -cursor hand2"
! $t.txt tag bind URL <Leave> "$t.txt config -cursor left_ptr"
! foreach {str url} [parseStr $str] {
! set str [string map [list "\n" "\n\t"] $str]
! if {$url == ""} {
! $t.txt insert end "$str "
! } else {
! $t.txt insert end "$str " [list URL URL-[incr ::URLID]]
! $t.txt tag bind URL-$::URLID <1> [list gotoURL $url]
! }
! }
! $t.txt insert end "\n"
! $t.txt config -state disabled
! set shownInfo($str) 1
! }
}
proc addHelp {clr name str} {
