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