1frame .spacer -width 10c -height 5c 2 3listbox .spacer.l -yscrollcommand {.spacer.scroll set} -xscrollcommand {.scrollh set} 4scrollbar .spacer.scroll -command {.spacer.l yview} 5scrollbar .scrollh -orient horizontal -command {.spacer.l xview} -width [.spacer.l cget width] 6.spacer.l insert end This is some text for the 7.spacer.l insert end listboxandthisentryisverymuchlongerthattherest 8.spacer.l insert end and here is some more stuff to box 9.spacer.l insert end and here is some more stuff to box 10.spacer.l insert end and here is some more stuff to box 11.spacer.l insert end and here is some more stuff to box 12.spacer.l insert end and here is some more stuff to box 13 14canvas .c -width 5c -height 3c 15.c create rectangle 1c 1c 2c 2c -fill red 16.c create line 1c 1c 2c 2c -arrow both 17 18pack .spacer.l .spacer.scroll .c -side left -fill y 19.spacer.l selection set 3 20 21frame .mbar -relief raised -bd 2 22pack .mbar -fill x 23pack .mbar .spacer .scrollh -anchor w 24 25menubutton .mbar.file -text File -menu .mbar.file.m -underline 0 26menubutton .mbar.edit -text Edit -menu .mbar.edit.m -underline 0 27pack .mbar.file .mbar.edit -side left 28 29menu .mbar.file.m 30.mbar.file.m add checkbutton -label Italic 31.mbar.file.m add checkbutton -label Bold 32.mbar.file.m add checkbutton -label Underline 33.mbar.file.m add separator 34.mbar.file.m add command -label Quit 35.mbar.file.m add command -label Dictionary 36.mbar.file.m add cascade -label Search -menu .mbar.file.m.global 37 38menu .mbar.edit.m 39.mbar.edit.m add checkbutton -label Italic 40.mbar.edit.m add checkbutton -label Bold 41.mbar.edit.m add checkbutton -label Underline 42 43menu .mbar.file.m.global 44.mbar.file.m.global add checkbutton -label "\{Case Sensitive\}" 45.mbar.file.m.global add checkbutton -label Forward 46.mbar.file.m.global add checkbutton -label Backward 47.mbar.file.m.global add radiobutton -label "\{Upper case\}" -variable case -value u 48.mbar.file.m.global add radiobutton -label "\{Lower case\}" -variable case -value l 49.mbar.file.m.global add radiobutton -label "\{Case Insensitive\}" -variable case -value i 50