Posted to tcl by jdc at Mon Apr 14 13:46:36 GMT 2008view raw

  1. proc submit { } {
  2. global count ecount
  3. set count $ecount
  4. }
  5.  
  6. pack [label .l -text "Number: "] [entry .e -textvariable ecount] [button .b -text "Submit" -command submit]