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