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") ;