A little Web kiosk

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

Arts and crafts of Tcl-Tk programming

Category Example | Category Internet | Category Windows