Tcl/Tk Benchmark Suite And Tools
Artifact Content
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2018 Conference, Houston/TX, US, Oct 15-19
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Aug 20.

Artifact 74e5f5b4a32ed47fc6ab8f4b7b602560eea6818e:


proc entry-create {w} {
    entry $w
    destroy $w
}

eval destroy [winfo children .]

bench -iters 100 -desc "ENTRY create" \
	-body {entry-create .e}

entry .one

bench -iters 500 -desc "ENTRY create (one exists)" \
	-body {entry-create .e}

eval destroy [winfo children .]