toplevel .find grid [text .find.info -yscrollcommand {.find.scr set} -width 40] -row 0 -column 0 -sticky ns grid rowconfigure .find 0 -weight 1 grid [scrollbar .find.scr -command {.find.info yview}] -row 0 -column 1 -sticky ns grid [button .find.find -text "find"] -row 1 -column 0 -columnspan 2 bind .find.find