examples/spinner.tcl

   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