examples/mycombobox.tcl

   1 #!/usr/bin/itkwish3.1
   2
   3 source "boilerplate.tcl"
   4
   5 mycombobox .foo -choices {
   6         "USD"
   7         "ZAR"
   8         "EUR"
   9         "GBP"
  10         "JPY"
  11 }
  12
  13 Tools .tools
  14 .tools add "Use USD" {puts "use USD"}
  15 .tools add "Use ZAR" {puts "use ZAR"}
  16 .tools add "Use EUR" {puts "use EUR"}
  17 .tools add "Use GBP" {puts "use GBP"}
  18 .tools add "Use JPY" {puts "use JPY"}
  19 .tools add "Has a U" {puts "has a U"}
  20 .tools add "Close" {exit} right
  21
  22 .tools attach_signal "Use USD" [.foo if_val "USD"]
  23 .tools attach_signal "Use ZAR" [.foo if_val "ZAR"]
  24 .tools attach_signal "Use EUR" [.foo if_val "EUR"]
  25 .tools attach_signal "Use GBP" [.foo if_val "GBP"]
  26 .tools attach_signal "Use JPY" [.foo if_val "JPY"]
  27
  28 .tools attach_signal "Has a U" [.foo if_expr {[string first "U" "%v"] != -1}]
  29
  30
  31 table . -padx 5 -pady 5 \
  32                 .foo            1,1 \
  33                 .tools          2,1 -fill x
  34