Tk Source Code

Artifact 809f29297dc62a0285ff454fba9fc86e1621f9df4878021cf83a8584b78bd838:

#!/usr/bin/tclsh

package require Tk

proc main {  } {
  bind . <Map> [list ::map %W]
  set ::x 0
  for {set i 0} {$i < 500} {incr i} {
    ttk::label .l$i -text "Label $i"
    ttk::entry .e$i -textvariable ::x
  }

  for {set i 0} {$i < 20} {incr i} {
    grid .l$i .e$i -sticky w
  }
}

proc map { w } {
  if { $w ne "." } {
    return
  }
  set ::endtime [clock milliseconds]
  set etime [expr {$::endtime - $::starttime}]

  puts "elapsed $etime"
  set ::x $etime
}

set ::starttime [clock milliseconds]
main