File: channel.tcl

package info (click to toggle)
circus 0.43-1
  • links: PTS
  • area: non-free
  • in suites: hamm, potato, slink
  • size: 1,868 kB
  • ctags: 236
  • sloc: tcl: 6,574; sh: 157; ansic: 66; makefile: 36
file content (13 lines) | stat: -rw-r--r-- 277 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
proc joinfav {chan} {
	raw "JOIN $chan"
}

toplevel .fav
listbox .fav.list
pack .fav.list 
.fav.list insert end {#cIRCus}
.fav.list insert end {#Linux} 
.fav.list insert end {#digistad}
.fav.list insert end {#zuurtje} 
bind  .fav.list <1> { joinfav [ .fav.list get active ] }