let lst = (Listbox.create ~width:15 ~height:15 ~background:selcol ~selectmode:`Single lstFrame : Widget.listbox Widget.widget)