examples/test_tagentry.tcl

   1 #!/usr/bin/itkwish
   2
   3 source "boilerplate.tcl"
   4
   5 set strict      0
   6 set policy      ""
   7
   8 proc new_policy {text} {
   9         puts "text: ($text)"
  10         set ::policy    $text
  11
  12         reassess
  13 }
  14
  15 proc reassess {} {
  16         if {$::strict} {
  17                 set ::policy    [string toupper $::policy]
  18         } else {
  19                 set ::policy    [string tolower $::policy]
  20         }
  21
  22         .te configure -policy $::policy
  23 }
  24
  25 Tagentry .te -tagtext "%"
  26
  27 checkbutton .strict -variable ::strict -command {reassess} -text "strict"
  28
  29 Mycombobox .c -choices {
  30         alnum alpha ascii boolean control digit double false graph integer lower
  31         print punct space true upper wordchar xdigit "" invalidoption
  32 } -cb new_policy
  33
  34 table . \
  35                 .te             1,1 -anchor w \
  36                 .strict 2,1 -anchor w \
  37                 .c              3,1 -anchor w
  38
  39 wm deiconify .