let intruder_knowledge_lst = (Listbox.create ~width:15 ~height:10 ~background:clicol  ~selectmode:`Single intruderFrame : Widget.listbox Widget.widget)