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)