repo.or.cz
/
tcl-tlc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Improved handling of case where child is killed by a signal
[tcl-tlc.git]
/
examples
/
spinner.tcl
blob
34720bd0db4e9da961d6d50dcf3ff24c7036bc38
1
#!/usr/bin/env tclsh8.4
2
3
source
"boilerplate.tcl"
4
5
entry
.e
6
Spinner .spinner
-choices
{
Foo Bar Baz
}
-textvariable
::
s
7
8
blt
::
table
.
\
9
.e
1
,
1
\
10
.spinner
2
,
1
11
12
start_console
13