% listbox .list
.list
% scrollbar .scroll -command ".list yview" -relief raised 
.scroll
% pack .list -side left -expand yes 
% pack .scroll -side right -expand yes -fill both
% for {set i 0} {$i<20} {incr i} {.list insert end $i}