#!/usr/bin/env wish

text .t -width 40 -height 10 -wrap word -yscrollcommand ".s set"
scrollbar .s -orient vertical -command ".t yview"

pack .t -side left -fill both -expand 1
pack .s -side left -fill y

bind . <Key-q> exit