Posted to tcl by mjanssen at Thu Nov 08 23:08:23 GMT 2007view raw
- #! /bin/sh
- # the next line restarts using wish \
- exec wish "$0" "$@"
- set file /tmp/TV-Viewer/channels.txt
- set f [open $file r]
- set i 1
- while {[gets $f line]!=-1} {
- foreach {kanal channel} [split $line] {
- set kanale($i,kanal) $kanal
- set kanale($i,channel) $channel
- }
- incr i
- }
- parray kanale