Posted to tcl by kevin_walzer at Wed May 25 13:26:50 GMT 2011view pretty
pack [text .t] .t tag config URL -underline 1 .t tag bind URL <Enter> [list .t configure -cursor hand2] .t tag bind URL <Leave> [list .t configure -cursor left_ptr] set test {the text is http://wiki.tcl.tk} foreach item $test { if {[regexp {(http|https|sftp|ftp|file)://([-\w\.]+)+(:\d+)?(/([\w/_\.]*(\?\S+)?)?)?} $test->url]} { lappend tag URL .t insert end $item $tag } else { .t insert end $item } .t insert end \n }