let create_view_window ?width ?height ~title view =
  new view_window ?width ?height ~title view