Posted to tcl by kostix at Sat Nov 10 15:17:39 GMT 2007view raw

  1. package require Tk
  2. pack [entry .a] -fill x
  3. pack [entry .b] -fill x
  4. .a config -textvar ::foo(bar)
  5. .b config -textvar ::foo(bar)