Posted to tcl by Saedelaere at Tue Nov 13 07:03:08 GMT 2007view raw

  1. proc channel_up {} {
  2.  
  3. set file $::home_path/.tv-viewer/config/actualchannel.conf
  4. set f [open $file r]
  5. set i 1
  6. while {[gets $f line]!=-1} {
  7. foreach {kanal channel} [split $line] {
  8. set actual_channel $kanal
  9. set dummy $channel
  10. }
  11. incr i
  12. }
  13. unset dummy
  14.  
  15. if { "$actual_channel" == "$::kanalid1" } {
  16. set BASE ""
  17. $BASE.sender_label configure -text "$::kanalid2"
  18. exec echo $::kanalid2 $::kanalcall2 > $::home_path/.tv-viewer/config/actualchannel.conf
  19. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall2
  20. }
  21.  
  22. if { "$actual_channel" == "$::kanalid2" } {
  23. set BASE ""
  24. $BASE.sender_label configure -text "$::kanalid3"
  25. exec echo $::kanalid3 $::kanalcall3 > $::home_path/.tv-viewer/config/actualchannel.conf
  26. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall3
  27. }
  28.  
  29. if { "$actual_channel" == "$::kanalid3" } {
  30. set BASE ""
  31. $BASE.sender_label configure -text "$::kanalid4"
  32. exec echo $::kanalid4 $::kanalcall4 > $::home_path/.tv-viewer/config/actualchannel.conf
  33. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall4
  34. }
  35.  
  36. if { "$actual_channel" == "$::kanalid4" } {
  37. set BASE ""
  38. $BASE.sender_label configure -text "$::kanalid5"
  39. exec echo $::kanalid5 $::kanalcall5 > $::home_path/.tv-viewer/config/actualchannel.conf
  40. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall5
  41. }
  42.  
  43. if { "$actual_channel" == "$::kanalid5" } {
  44. set BASE ""
  45. $BASE.sender_label configure -text "$::kanalid6"
  46. exec echo $::kanalid6 $::kanalcall6 > $::home_path/.tv-viewer/config/actualchannel.conf
  47. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall6
  48. }
  49.  
  50. if { "$actual_channel" == "$::kanalid6" } {
  51. set BASE ""
  52. $BASE.sender_label configure -text "$::kanalid7"
  53. exec echo $::kanalid7 $::kanalcall7 > $::home_path/.tv-viewer/config/actualchannel.conf
  54. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall7
  55. }
  56.  
  57. if { "$actual_channel" == "$::kanalid7" } {
  58. set BASE ""
  59. $BASE.sender_label configure -text "$::kanalid8"
  60. exec echo $::kanalid8 $::kanalcall8 > $::home_path/.tv-viewer/config/actualchannel.conf
  61. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall8
  62. }
  63.  
  64. if { "$actual_channel" == "$::kanalid8" } {
  65. set BASE ""
  66. $BASE.sender_label configure -text "$::kanalid9"
  67. exec echo $::kanalid9 $::kanalcall9 > $::home_path/.tv-viewer/config/actualchannel.conf
  68. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall9
  69. }
  70.  
  71. if { "$actual_channel" == "$::kanalid9" } {
  72. set BASE ""
  73. $BASE.sender_label configure -text "$::kanalid10"
  74. exec echo $::kanalid10 $::kanalcall10 > $::home_path/.tv-viewer/config/actualchannel.conf
  75. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall10
  76. }
  77.  
  78. if { "$actual_channel" == "$::kanalid10" } {
  79. set BASE ""
  80. $BASE.sender_label configure -text "$::kanalid11"
  81. exec echo $::kanalid11 $::kanalcall11 > $::home_path/.tv-viewer/config/actualchannel.conf
  82. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall11
  83. }
  84.  
  85. if { "$actual_channel" == "$::kanalid11" } {
  86. set BASE ""
  87. $BASE.sender_label configure -text "$::kanalid12"
  88. exec echo $::kanalid12 $::kanalcall12 > $::home_path/.tv-viewer/config/actualchannel.conf
  89. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall12
  90. }
  91.  
  92. if { "$actual_channel" == "$::kanalid12" } {
  93. set BASE ""
  94. $BASE.sender_label configure -text "$::kanalid13"
  95. exec echo $::kanalid13 $::kanalcall13 > $::home_path/.tv-viewer/config/actualchannel.conf
  96. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall13
  97. }
  98.  
  99. if { "$actual_channel" == "$::kanalid13" } {
  100. set BASE ""
  101. $BASE.sender_label configure -text "$::kanalid14"
  102. exec echo $::kanalid14 $::kanalcall14 > $::home_path/.tv-viewer/config/actualchannel.conf
  103. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall14
  104. }
  105.  
  106. if { "$actual_channel" == "$::kanalid14" } {
  107. set BASE ""
  108. $BASE.sender_label configure -text "$::kanalid15"
  109. exec echo $::kanalid15 $::kanalcall15 > $::home_path/.tv-viewer/config/actualchannel.conf
  110. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall15
  111. }
  112.  
  113. if { "$actual_channel" == "$::kanalid15" } {
  114. set BASE ""
  115. $BASE.sender_label configure -text "$::kanalid16"
  116. exec echo $::kanalid16 $::kanalcall16 > $::home_path/.tv-viewer/config/actualchannel.conf
  117. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall16
  118. }
  119.  
  120. if { "$actual_channel" == "$::kanalid16" } {
  121. set BASE ""
  122. $BASE.sender_label configure -text "$::kanalid17"
  123. exec echo $::kanalid17 $::kanalcall17 > $::home_path/.tv-viewer/config/actualchannel.conf
  124. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall17
  125. }
  126.  
  127. if { "$actual_channel" == "$::kanalid17" } {
  128. set BASE ""
  129. $BASE.sender_label configure -text "$::kanalid18"
  130. exec echo $::kanalid18 $::kanalcall18 > $::home_path/.tv-viewer/config/actualchannel.conf
  131. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall18
  132. }
  133.  
  134. if { "$actual_channel" == "$::kanalid18" } {
  135. set BASE ""
  136. $BASE.sender_label configure -text "$::kanalid19"
  137. exec echo $::kanalid19 $::kanalcall19 > $::home_path/.tv-viewer/config/actualchannel.conf
  138. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall19
  139. }
  140.  
  141. if { "$actual_channel" == "$::kanalid19" } {
  142. set BASE ""
  143. $BASE.sender_label configure -text "$::kanalid20"
  144. exec echo $::kanalid20 $::kanalcall20 > $::home_path/.tv-viewer/config/actualchannel.conf
  145. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall20
  146. }
  147.  
  148. if { "$actual_channel" == "$::kanalid20" } {
  149. set BASE ""
  150. $BASE.sender_label configure -text "$::kanalid21"
  151. exec echo $::kanalid21 $::kanalcall21 > $::home_path/.tv-viewer/config/actualchannel.conf
  152. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall21
  153. }
  154.  
  155. if { "$actual_channel" == "$::kanalid21" } {
  156. set BASE ""
  157. $BASE.sender_label configure -text "$::kanalid22"
  158. exec echo $::kanalid22 $::kanalcall22 > $::home_path/.tv-viewer/config/actualchannel.conf
  159. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall22
  160. }
  161.  
  162. if { "$actual_channel" == "$::kanalid22" } {
  163. set BASE ""
  164. $BASE.sender_label configure -text "$::kanalid23"
  165. exec echo $::kanalid23 $::kanalcall23 > $::home_path/.tv-viewer/config/actualchannel.conf
  166. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall23
  167. }
  168.  
  169. if { "$actual_channel" == "$::kanalid23" } {
  170. set BASE ""
  171. $BASE.sender_label configure -text "$::kanalid24"
  172. exec echo $::kanalid24 $::kanalcall24 > $::home_path/.tv-viewer/config/actualchannel.conf
  173. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall24
  174. }
  175.  
  176. if { "$actual_channel" == "$::kanalid24" } {
  177. set BASE ""
  178. $BASE.sender_label configure -text "$::kanalid25"
  179. exec echo $::kanalid25 $::kanalcall25 > $::home_path/.tv-viewer/config/actualchannel.conf
  180. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall25
  181. }
  182.  
  183. if { "$actual_channel" == "$::kanalid25" } {
  184. set BASE ""
  185. $BASE.sender_label configure -text "$::kanalid26"
  186. exec echo $::kanalid26 $::kanalcall26 > $::home_path/.tv-viewer/config/actualchannel.conf
  187. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall26
  188. }
  189.  
  190. if { "$actual_channel" == "$::kanalid26" } {
  191. set BASE ""
  192. $BASE.sender_label configure -text "$::kanalid27"
  193. exec echo $::kanalid27 $::kanalcall27 > $::home_path/.tv-viewer/config/actualchannel.conf
  194. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall27
  195. }
  196.  
  197. if { "$actual_channel" == "$::kanalid27" } {
  198. set BASE ""
  199. $BASE.sender_label configure -text "$::kanalid28"
  200. exec echo $::kanalid28 $::kanalcall28 > $::home_path/.tv-viewer/config/actualchannel.conf
  201. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall28
  202. }
  203.  
  204. if { "$actual_channel" == "$::kanalid28" } {
  205. set BASE ""
  206. $BASE.sender_label configure -text "$::kanalid29"
  207. exec echo $::kanalid29 $::kanalcall29 > $::home_path/.tv-viewer/config/actualchannel.conf
  208. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall29
  209. }
  210.  
  211. if { "$actual_channel" == "$::kanalid29" } {
  212. set BASE ""
  213. $BASE.sender_label configure -text "$::kanalid30"
  214. exec echo $::kanalid30 $::kanalcall30 > $::home_path/.tv-viewer/config/actualchannel.conf
  215. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall30
  216. }
  217.  
  218. if { "$actual_channel" == "$::kanalid30" } {
  219. set BASE ""
  220. $BASE.sender_label configure -text "$::kanalid1"
  221. exec echo $::kanalid1 $::kanalcall1 > $::home_path/.tv-viewer/config/actualchannel.conf
  222. exec ivtv-tune --device=$::video_device --freqtable=europe-west --channel=$::kanalcall1
  223. }
  224. }
  225.  
  226.  
  227. This is code that i have written for a gui that is helping me in watching tv.
  228. The process shown is the channel_up feature. I wanted to ask if this could be done more easily. Would it possible to create a fine loop that checks the conditions?
  229. Thx
  230.