Richard Suchenwirth 2006-01-24 - Triggered by a question by lvirden on comp.lang.tcl, I hacked up this little thing that uses DDE to display the specified URLs, in order, in an Internet Explorer:
package req dde
proc every {ms body} {eval $body; after $ms [info level 0]}
proc cycle _list {
upvar 1 $_list list
set list [concat [lrange $list 1 end] [list [lindex $list 0]]]
}
set URLs {
wiki.tcl.tk
wiki.tcl.tk/4
groups.google.com/group/comp.lang.tcl
}
eval exec [auto_execok iexplore] &
every 10000 {dde execute iexplore WWW_OpenURL [lindex [cycle ::URLs] 0]}
vwait foreverArts and crafts of Tcl-Tk programming | Category Example | Category Internet | Category Windows