ttk::entry .filename
grid [ttk::button .prev -text "Previous" -command {prevframe}] -column 0 -row 0 -sticky news
grid [ttk::button .next -text "Next" -command {nextframe}] -column 1 -row 0 -sticky nwes

grid [ttk::entry .path -textvariable path] -column 0 -row 1 -sticky nwes
grid [ttk::button .addpaths -text "Add frames" -command {loadframes}] -column 1 -row 1

grid [ttk::entry .calibrate -textvariable calpath] -column 0 -row 2 -sticky nwes
grid [ttk::spinbox .distance -from 0 -to 900 -textvariable distance] -column 1 -row 2 -sticky news
grid [ttk::spinbox .width -from 0 -to 900 -textvariable width] -column 0 -row 3 -sticky news
grid [ttk::button .docalibrate -text "Calibrate" -command {calibrate}] -column 1 -row 3

grid [ttk::button .findcircle -text "Find circle" -command {findcircle}] -column 0 -row 4
grid [ttk::button .findall -text "Find all circles" -command {findall}] -column 1 -row 4

grid [canvas .canvas] -columnspan 2 -column 0 -row 5 -sticky news
.canvas create image 0 0 -anchor nw -image screen

grid [ttk::label .framecounter -textvariable framecounter] -columnspan 2 -column 0 -row 6 -sticky news

bind . <Left> { prevframe }
bind . <Right> { nextframe }