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)