add functionality to resize window in move mode

fcore/move-mode.sml

@@ -5,7 +5,13 @@ struct
   open DrawMessage
   open UpdateMessage
 
-  (* todo: resize message *)
+  fun resizeWindow (model, width, height) =
+    let
+      val model = AppWith.windowResize (model, width, height)
+      val dots = Vector.fromList []
+    in
+      CommonUpdate.resizeWindow (model, width, height, dots)
+    end
 
   fun getDrawMsg (model: app_type) =
     let
@@ -123,5 +129,6 @@ struct
     | ARROW_LEFT => moveImageLeft model
     | ARROW_RIGHT => moveImageRight model
     | KEY_ESC => enterNormalMode model
+    | RESIZE_WINDOW {width, height} => resizeWindow (model, width, height)
     | _ => (model, [])
 end