let scroll_link (sb : Widget.scrollbar Widget.widget)  (lst : Widget.listbox Widget.widget) (orientation : string) : unit =
    if(orientation="horizontal"then(
            Listbox.configure ~xscrollcommand:(Scrollbar.set sb) lst; 
        Scrollbar.configure ~command:(Listbox.xview lst) sb )
    else (Listbox.configure ~yscrollcommand:(Scrollbar.set sb) lst;
              Scrollbar.configure ~command:(Listbox.yview lst) sb)