let canvas = (Canvas.create ~height:(int_of_float !height) ~width:(int_of_float !width) ~background:selcol ~relief:`Sunken
~xscrollincrement:1 ~yscrollincrement:(int_of_float(round(1. *. !xscale))) canvasFrame : Widget.canvas Widget.widget)