method private move (x,y) = w#set_style_property "left" (string_of_int (x + 2) ^ "px") ; w#set_style_property "top" (string_of_int (y + 2) ^ "px") ;