blob: 08d3f04776dc2cb3f74d2c2532be7eeb1bd440c9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/usr/bin/tclsh
# See COPYING file for copyright and license details.
package require Tk
set bin [list getgbook getabook]
proc go {} {
set cmd "[.bin get [.bin curselection]] [.id get]"
set out [open "|$cmd" "r"]
while {![eof $out]} {
.txt insert end [gets $out]
.txt insert end "\n"
update
}
}
label .lab -text "book id"
entry .id
listbox .bin -listvariable bin -exportselection 0
.bin selection set 0
button .dl -text "download" -command go
text .txt
pack .lab .id .bin .dl .txt
|
