gtkWidgetWindow :: a -- ^ Default value to return if the window is closed using the close button.
          -> Widget (React.Event a) -- ^ Composite widget to show. The result 'React.Event' closes the window.
                                    -- Its value is used as the result value of the form.
          -> GtkForm a
gtkWidgetWindow dft widget = gtkWindow dft $ do
    window <- liftIO $ do
        window <- Gtk.windowNew
        Gtk.windowSetPosition window Gtk.WinPosCenter
        Gtk.containerSetBorderWidth window 8
        return window
    evExplicitClose <- widgetAddToBin window widget
    return (window, evExplicitClose)
gtkWidgetWindow :: a -- ^ Default value to return if the window is closed using the close button.
          -> Widget (React.Event a) -- ^ Composite widget to show. The result 'React.Event' closes the window.
                                    -- Its value is used as the result value of the form.
          -> GtkForm a
gtkWidgetWindow dft widget = gtkWindow dft $ do
    window <- liftIO $ do
        window <- Gtk.windowNew
        Gtk.windowSetPosition window Gtk.WinPosCenter
        Gtk.containerSetBorderWidth window 8
        return window
    evExplicitClose <- widgetAddToBin window widget
    return (window, evExplicitClose)
gtkWidgetWindow dft widget = gtkWindow dft $ do
    window <- liftIO $ do
        window <- Gtk.windowNew
        Gtk.windowSetPosition window Gtk.WinPosCenter
        Gtk.containerSetBorderWidth window 8
        return window
    evExplicitClose <- widgetAddToBin window widget
    return (window, evExplicitClose)