Updated 2013-03-05 02:03:29 by pooryorick

Summary  edit

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 start] http://[lindex $URLs 0] &
after 10000
every 10000 {
    catch {dde execute iexplore WWW_OpenURL [lindex [cycle ::URLs] 0]}
}
vwait forever