let canvas_sb_v = (Scrollbar.create ~orient:`Vertical  canvasFrame : Widget.scrollbar Widget.widget)