let story = (Listbox.create ~width:15 ~height:15 ~background:defcol ~selectmode:`Single storyFrame : Widget.listbox Widget.widget)