{-# LINE 2 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}
-- -*-haskell-*-
-----------------------------------------------------------------------------
-- Module : Graphics.UI.Gtk.WebKit.WebView
-- Author : Cjacker Huang
-- Copyright : (c) 2009 Cjacker Huang <jzhuang@redflag-1 .com>
-- Copyright : (c) 2010 Andy Stewart <lazycat.manatee@gmail.com>
--
-- This library is free software; you can redistribute it and/or
-- modify it under the terms of the GNU Lesser General Public
-- License as published by the Free Software Foundation; either
-- version 2.1 of the License, or (at your option) any later version.
--
-- This library is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-- Lesser General Public License for more details.
--
-- |
-- Maintainer : gtk2hs-users@lists.sourceforge.net
-- Stability : provisional
-- Portability : portable (depends on GHC)
--
-- Note:
--
-- Signal `window-object-cleared` can't bidning now, 
-- because it need JavaScriptCore that haven't binding.
--
-- Signal `create-plugin-widget` can't binding now, 
-- no idea how to binding `GHaskellTable`
--
--
-- TODO:
--
-- `webViewGetHitTestResult`
--
-- The central class of the WebKit
-----------------------------------------------------------------------------

module Graphics.UI.Gtk.WebKit.WebView (
-- * Types
  WebView,
  WebViewClass,

-- * Enums
  NavigationResponse(..),
  TargetInfo(..),
  LoadStatus(..),

-- * Constructors
  webViewNew,

-- * Methods
-- ** Load
  webViewLoadUri,
  webViewLoadHtmlString,
  webViewLoadRequest,
  webViewLoadString,
-- ** Reload
  webViewStopLoading,
  webViewReload,
  webViewReloadBypassCache,
-- ** History
  webViewCanGoBack,
  webViewCanGoForward,
  webViewGoBack,
  webViewGoForward,
  webViewGetBackForwardList,
  webViewSetMaintainsBackForwardList,
  webViewGoToBackForwardItem,
  webViewCanGoBackOrForward,
  webViewGoBackOrForward,
-- ** Zoom
  webViewGetZoomLevel,
  webViewSetZoomLevel,
  webViewZoomIn,
  webViewZoomOut,
  webViewGetFullContentZoom,
  webViewSetFullContentZoom,
-- ** Clipboard
  webViewCanCutClipboard,
  webViewCanCopyClipboard,
  webViewCanPasteClipboard,
  webViewCutClipboard,
  webViewCopyClipboard,
  webViewPasteClipboard,
-- ** Undo/Redo
  webViewCanRedo,
  webViewCanUndo,
  webViewRedo,
  webViewUndo,
-- ** Selection
  webViewDeleteSelection,
  webViewHasSelection,
  webViewSelectAll,
-- ** Encoding
  webViewGetEncoding,
  webViewSetCustomEncoding,
  webViewGetCustomEncoding,
-- ** Source Mode
  webViewGetViewSourceMode,
  webViewSetViewSourceMode,
-- ** Transparent
  webViewGetTransparent,
  webViewSetTransparent,
-- ** Target List
  webViewGetCopyTargetList,
  webViewGetPasteTargetList,
-- ** Text Match
  webViewMarkTextMatches,
  webViewUnMarkTextMatches,
  webViewSetHighlightTextMatches,
-- ** Other
  webViewExecuteScript,

  webViewCanShowMimeType,
  webViewGetEditable,
  webViewSetEditable,
  webViewGetInspector,

  webViewGetProgress,

  webViewSearchText,

  webViewMoveCursor,

  webViewGetMainFrame,
  webViewGetFocusedFrame,

  webViewSetWebSettings,
  webViewGetWebSettings,

  webViewGetWindowFeatures,


  webViewGetIconUri,


  webViewGetTitle,
  webViewGetUri,

-- * Attributes
  webViewZoomLevel,
  webViewFullContentZoom,
  webViewEncoding,
  webViewCustomEncoding,
  webViewLoadStatus,
  webViewProgress,
  webViewTitle,
  webViewInspector,
  webViewWebSettings,
  webViewViewSourceMode,
  webViewTransparent,
  webViewEditable,
  webViewUri,
  webViewCopyTargetList,
  webViewPasteTargetList,
  webViewWindowFeatures,

  webViewIconUri,



  webViewImContext,


-- * Signals
  loadStarted,
  loadCommitted,
  progressChanged,
  loadFinished,
  loadError,
  titleChanged,
  hoveringOverLink,
  createWebView,
  webViewReady,
  closeWebView,
  consoleMessage,
  copyClipboard,
  cutClipboard,
  pasteClipboard,
  populatePopup,
  printRequested,
  scriptAlert,
  scriptConfirm,
  scriptPrompt,
  statusBarTextChanged,
  selectAll,
  selectionChanged,
  setScrollAdjustments,
  databaseQuotaExceeded,
  documentLoadFinished,
  downloadRequested,

  iconLoaded,

  redo,
  undo,
  mimeTypePolicyDecisionRequested,
  moveCursor,
  navigationPolicyDecisionRequested,
  newWindowPolicyDecisionRequested,
  resourceRequestStarting,

  geolocationPolicyDecisionCancelled,
  geolocationPolicyDecisionRequested,

) where

import Control.Monad (liftM)

import System.Glib.FFI
import System.Glib.UTFString
import System.Glib.GList
import System.Glib.Attributes
import System.Glib.Properties
import System.Glib.GError
import Graphics.UI.Gtk.Gdk.Events

import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 222 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}
import Graphics.UI.Gtk.WebKit.Signals
{-# LINE 223 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}
import Graphics.UI.Gtk.WebKit.Internal
{-# LINE 224 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}
import System.Glib.GObject
{-# LINE 225 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}
import Graphics.UI.Gtk.General.Selection ( TargetList )
import Graphics.UI.Gtk.MenuComboToolbar.Menu
{-# LINE 227 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}
import Graphics.UI.Gtk.General.Enums
{-# LINE 228 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}


{-# LINE 230 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}

------------------
-- Enums

data NavigationResponse = NavigationResponseAccept
                        | NavigationResponseIgnore
                        | NavigationResponseDownload
                        deriving (Enum)

{-# LINE 235 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}

data TargetInfo = WebViewTargetInfoHtml
                | WebViewTargetInfoText
                | WebViewTargetInfoImage
                | WebViewTargetInfoUriList
                | WebViewTargetInfoNetscapeUrl
                deriving (Enum)

{-# LINE 237 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}

data LoadStatus = LoadProvisional
                | LoadCommitted
                | LoadFinished
                | LoadFirstVisuallyNonEmptyLayout
                | LoadFailed
                deriving (Enum)

{-# LINE 239 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}

------------------
-- Constructors


-- | Create a new 'WebView' widget.
--
-- It is a 'Widget' you can embed in a 'ScrolledWindow'.
--
-- You can load any URI into the 'WebView' or any kind of data string.
webViewNew :: IO WebView
webViewNew = do
  isGthreadInited <- liftM toBool g_thread_get_initialized
{-# LINE 252 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}
  if not isGthreadInited then g_thread_init nullPtr
    else return ()
  makeNewObject mkWebView $ liftM castPtr webkit_web_view_new
{-# LINE 255 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}


-- | Apply 'WebSettings' to a given 'WebView'
--
-- !!NOTE!!, currently lack of useful APIs of 'WebSettings' in webkitgtk.
-- If you want to set the encoding, font family or font size of the 'WebView',
-- please use related functions.

webViewSetWebSettings ::
    (WebViewClass self, WebSettingsClass settings) => self
 -> settings
 -> IO ()
webViewSetWebSettings webview websettings =
    (\(WebView arg1) (WebSettings arg2) -> withForeignPtr arg1 $ \argPtr1 ->withForeignPtr arg2 $ \argPtr2 ->webkit_web_view_set_settings argPtr1 argPtr2) (toWebView webview) (toWebSettings websettings)

-- | Return the 'WebSettings' currently used by 'WebView'.
webViewGetWebSettings ::
    WebViewClass self => self
 -> IO WebSettings
webViewGetWebSettings webview =
    makeNewGObject mkWebSettings $ (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_settings argPtr1) (toWebView webview)

-- | Returns the instance of WebKitWebWindowFeatures held by the given WebKitWebView.
webViewGetWindowFeatures ::
   WebViewClass self => self
 -> IO WebWindowFeatures
webViewGetWindowFeatures webview =
  makeNewGObject mkWebWindowFeatures $ (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_window_features argPtr1) (toWebView webview)


-- | Obtains the URI for the favicon for the given WebKitWebView, or 'Nothing' if there is none.
--
-- * Since 1.1.18
webViewGetIconUri :: WebViewClass self => self -> IO (Maybe String)
webViewGetIconUri webview =
  (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_icon_uri argPtr1) (toWebView webview)
  >>= maybePeek peekUTFString



-- | Return the main 'WebFrame' of the given 'WebView'.
webViewGetMainFrame ::
    WebViewClass self => self
 -> IO WebFrame
webViewGetMainFrame webview =
    makeNewGObject mkWebFrame $ (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_main_frame argPtr1) (toWebView webview)

-- | Return the focused 'WebFrame' of the given 'WebView'.
webViewGetFocusedFrame ::
    WebViewClass self => self
 -> IO WebFrame
webViewGetFocusedFrame webview =
    makeNewGObject mkWebFrame $ (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_focused_frame argPtr1) (toWebView webview)


-- |Requests loading of the specified URI string in a 'WebView'
webViewLoadUri ::
    WebViewClass self => self
 -> String -- ^ @uri@ - an URI string.
 -> IO()
webViewLoadUri webview url =
    withCString url $ \urlPtr -> (\(WebView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_load_uri argPtr1 arg2)
{-# LINE 317 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}
    (toWebView webview)
    urlPtr

-- |Determine whether 'WebView' has a previous history item.
webViewCanGoBack ::
    WebViewClass self => self
 -> IO Bool -- ^ True if able to move back, False otherwise.
webViewCanGoBack webview =
    liftM toBool $ (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_can_go_back argPtr1) (toWebView webview)

-- |Determine whether 'WebView' has a next history item.
webViewCanGoForward ::
    WebViewClass self => self
 -> IO Bool -- ^ True if able to move forward, False otherwise.
webViewCanGoForward webview =
    liftM toBool $ (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_can_go_forward argPtr1) (toWebView webview)

-- |Loads the previous history item.
webViewGoBack ::
    WebViewClass self => self
 -> IO ()
webViewGoBack webview =
    (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_go_back argPtr1) (toWebView webview)

-- |Loads the next history item.
webViewGoForward ::
    WebViewClass self => self
 -> IO ()
webViewGoForward webview =
    (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_go_forward argPtr1) (toWebView webview)

-- |Set the 'WebView' to maintian a back or forward list of history items.
webViewSetMaintainsBackForwardList ::
    WebViewClass self => self
 -> Bool -- ^ @flag@ - to tell the view to maintain a back or forward list.
 -> IO()
webViewSetMaintainsBackForwardList webview flag =
    (\(WebView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_set_maintains_back_forward_list argPtr1 arg2)
{-# LINE 355 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}
      (toWebView webview)
      (fromBool flag)

-- |Return the 'WebBackForwardList'
webViewGetBackForwardList ::
    WebViewClass self => self
 -> IO WebBackForwardList
webViewGetBackForwardList webview =
    makeNewGObject mkWebBackForwardList $
      (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_back_forward_list argPtr1)
{-# LINE 365 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}
        (toWebView webview)

-- |Go to the specified 'WebHistoryItem'

webViewGoToBackForwardItem ::
    (WebViewClass self, WebHistoryItemClass item) => self
 -> item
 -> IO Bool -- ^ True if loading of item is successful, False if not.
webViewGoToBackForwardItem webview item =
    liftM toBool $ (\(WebView arg1) (WebHistoryItem arg2) -> withForeignPtr arg1 $ \argPtr1 ->withForeignPtr arg2 $ \argPtr2 ->webkit_web_view_go_to_back_forward_item argPtr1 argPtr2) (toWebView webview) (toWebHistoryItem item)

-- |Determines whether 'WebView' has a history item of @steps@.
--
-- Negative values represent steps backward while positive values
-- represent steps forward

webViewCanGoBackOrForward ::
    WebViewClass self => self
 -> Int -- ^ @steps@ - the number of steps
 -> IO Bool -- ^ True if able to move back or forward the given number of steps,
            -- False otherwise
webViewCanGoBackOrForward webview steps =
    liftM toBool $
      (\(WebView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_can_go_back_or_forward argPtr1 arg2)
{-# LINE 389 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}
        (toWebView webview)
        (fromIntegral steps)

-- |Loads the history item that is the number of @steps@ away from the current item.
--
-- Negative values represent steps backward while positive values represent steps forward.

webViewGoBackOrForward ::
    WebViewClass self => self
 -> Int
 -> IO ()
webViewGoBackOrForward webview steps =
    (\(WebView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_go_back_or_forward argPtr1 arg2)
{-# LINE 402 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}
      (toWebView webview)
      (fromIntegral steps)

-- |Determines whether or not it is currently possible to redo the last editing command in the view
webViewCanRedo ::
    WebViewClass self => self
 -> IO Bool
webViewCanRedo webview =
    liftM toBool $
      (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_can_redo argPtr1) (toWebView webview)
-- |Determines whether or not it is currently possible to undo the last editing command in the view
webViewCanUndo ::
    WebViewClass self => self
 -> IO Bool
webViewCanUndo webview =
    liftM toBool $
      (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_can_undo argPtr1) (toWebView webview)

-- |Redoes the last editing command in the view, if possible.
webViewRedo ::
    WebViewClass self => self
 -> IO()
webViewRedo webview =
    (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_redo argPtr1) (toWebView webview)

-- |Undoes the last editing command in the view, if possible.
webViewUndo ::
    WebViewClass self => self
 -> IO()
webViewUndo webview =
    (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_undo argPtr1) (toWebView webview)

-- | Returns whether or not a @mimetype@ can be displayed using this view.
webViewCanShowMimeType ::
    WebViewClass self => self
 -> String -- ^ @mimetype@ - a MIME type
 -> IO Bool -- ^ True if the @mimetype@ can be displayed, otherwise False
webViewCanShowMimeType webview mime =
    withCString mime $ \mimePtr ->
    liftM toBool $
      (\(WebView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_can_show_mime_type argPtr1 arg2)
{-# LINE 443 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}
      (toWebView webview)
      mimePtr

-- | Returns whether the user is allowed to edit the document.
webViewGetEditable ::
    WebViewClass self => self
 -> IO Bool
webViewGetEditable webview =
    liftM toBool $
      (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_editable argPtr1) (toWebView webview)

-- | Sets whether allows the user to edit its HTML document.
webViewSetEditable ::
    WebViewClass self => self
 -> Bool
 -> IO ()
webViewSetEditable webview editable =
    (\(WebView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_set_editable argPtr1 arg2) (toWebView webview) (fromBool editable)

-- | Returns whether 'WebView' is in view source mode
webViewGetViewSourceMode ::
    WebViewClass self => self
 -> IO Bool
webViewGetViewSourceMode webview =
    liftM toBool $
      (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_view_source_mode argPtr1) (toWebView webview)

-- | Set whether the view should be in view source mode.
--
-- Setting this mode to (!(0)) before loading a URI will display
-- the source of the web page in a nice and readable format.
webViewSetViewSourceMode ::
    WebViewClass self => self
 -> Bool
 -> IO ()
webViewSetViewSourceMode webview mode =
    (\(WebView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_set_view_source_mode argPtr1 arg2) (toWebView webview) (fromBool mode)

-- | Returns whether the 'WebView' has a transparent background
webViewGetTransparent ::
    WebViewClass self => self
 -> IO Bool
webViewGetTransparent webview =
    liftM toBool $
      (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_transparent argPtr1) (toWebView webview)
-- |Sets whether the WebKitWebView has a transparent background.
--
-- Pass False to have the 'WebView' draw a solid background (the default),
-- otherwise pass True.
webViewSetTransparent ::
    WebViewClass self => self
 -> Bool
 -> IO ()
webViewSetTransparent webview trans =
    (\(WebView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_set_transparent argPtr1 arg2) (toWebView webview) (fromBool trans)

-- |Obtains the 'WebInspector' associated with the 'WebView'
webViewGetInspector ::
    WebViewClass self => self
 -> IO WebInspector
webViewGetInspector webview =
    makeNewGObject mkWebInspector $ (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_inspector argPtr1) (toWebView webview)

-- |Requests loading of the specified asynchronous client request.
--
-- Creates a provisional data source that will transition to a committed data source once
-- any data has been received.
-- use 'webViewStopLoading' to stop the load.

webViewLoadRequest ::
    (WebViewClass self, NetworkRequestClass request) => self
 -> request
 -> IO()
webViewLoadRequest webview request =
    (\(WebView arg1) (NetworkRequest arg2) -> withForeignPtr arg1 $ \argPtr1 ->withForeignPtr arg2 $ \argPtr2 ->webkit_web_view_load_request argPtr1 argPtr2) (toWebView webview) (toNetworkRequest request)




-- |Returns the zoom level of 'WebView'
--
-- i.e. the factor by which elements in the page are scaled with respect to their original size.

webViewGetZoomLevel ::
    WebViewClass self => self
 -> IO Float -- ^ the zoom level of 'WebView'
webViewGetZoomLevel webview =
    liftM realToFrac $
 (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_zoom_level argPtr1) (toWebView webview)

-- |Sets the zoom level of 'WebView'.
webViewSetZoomLevel ::
    WebViewClass self => self
 -> Float -- ^ @zoom_level@ - the new zoom level
 -> IO ()
webViewSetZoomLevel webview zlevel =
    (\(WebView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_set_zoom_level argPtr1 arg2) (toWebView webview) (realToFrac zlevel)

-- |Loading the @content@ string as html. The URI passed in base_uri has to be an absolute URI.

webViewLoadHtmlString ::
    WebViewClass self => self
 -> String -- ^ @content@ - the html string
 -> String -- ^ @base_uri@ - the base URI
 -> IO()
webViewLoadHtmlString webview htmlstr url =
    withCString htmlstr $ \htmlPtr ->
    withCString url $ \urlPtr ->
        (\(WebView arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_load_html_string argPtr1 arg2 arg3) (toWebView webview) htmlPtr urlPtr

-- | Requests loading of the given @content@ with the specified @mime_type@, @encoding@ and @base_uri@.
--
-- If @mime_type@ is @Nothing@, "text/html" is assumed.
--
-- If @encoding@ is @Nothing@, "UTF-8" is assumed.
--
webViewLoadString ::
    WebViewClass self => self
 -> String -- ^ @content@ - the content string to be loaded.
 -> (Maybe String) -- ^ @mime_type@ - the MIME type or @Nothing@.
 -> (Maybe String) -- ^ @encoding@ - the encoding or @Nothing@.
 -> String -- ^ @base_uri@ - the base URI for relative locations.
 -> IO()
webViewLoadString webview content mimetype encoding baseuri =
    withCString content $ \contentPtr ->
    maybeWith withCString mimetype $ \mimetypePtr ->
    maybeWith withCString encoding $ \encodingPtr ->
    withCString baseuri $ \baseuriPtr ->
        (\(WebView arg1) arg2 arg3 arg4 arg5 -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_load_string argPtr1 arg2 arg3 arg4 arg5)
{-# LINE 572 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}
          (toWebView webview)
          contentPtr
          mimetypePtr
          encodingPtr
          baseuriPtr

-- |Returns the 'WebView' document title
webViewGetTitle ::
    WebViewClass self => self
 -> IO (Maybe String) -- ^ the title of 'WebView' or Nothing in case of failed.
webViewGetTitle webview =
    (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_title argPtr1) (toWebView webview) >>= maybePeek peekUTFString

-- |Returns the current URI of the contents displayed by the 'WebView'
webViewGetUri ::
    WebViewClass self => self
 -> IO (Maybe String) -- ^ the URI of 'WebView' or Nothing in case of failed.
webViewGetUri webview =
    (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_uri argPtr1) (toWebView webview) >>= maybePeek peekUTFString


-- | Stops and pending loads on the given data source.
webViewStopLoading ::
    WebViewClass self => self
 -> IO ()
webViewStopLoading webview =
    (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_stop_loading argPtr1) (toWebView webview)

-- | Reloads the 'WebView'
webViewReload ::
    WebViewClass self => self
 -> IO ()
webViewReload webview =
    (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_reload argPtr1) (toWebView webview)

-- | Reloads the 'WebView' without using any cached data.
webViewReloadBypassCache ::
    WebViewClass self => self
 -> IO()
webViewReloadBypassCache webview =
    (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_reload_bypass_cache argPtr1) (toWebView webview)

-- | Increases the zoom level of 'WebView'.
webViewZoomIn ::
    WebViewClass self => self
 -> IO()
webViewZoomIn webview =
    (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_zoom_in argPtr1) (toWebView webview)

-- | Decreases the zoom level of 'WebView'.
webViewZoomOut ::
    WebViewClass self => self
 -> IO()
webViewZoomOut webview =
    (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_zoom_out argPtr1) (toWebView webview)

-- | Looks for a specified string inside 'WebView'
webViewSearchText ::
    WebViewClass self => self
 -> String -- ^ @text@ - a string to look for
 -> Bool -- ^ @case_sensitive@ - whether to respect the case of text
 -> Bool -- ^ @forward@ - whether to find forward or not
 -> Bool -- ^ @wrap@ - whether to continue looking at beginning
         -- after reaching the end
 -> IO Bool -- ^ True on success or False on failure
webViewSearchText webview text case_sensitive forward wrap =
    withCString text $ \textPtr ->
 liftM toBool $
          (\(WebView arg1) arg2 arg3 arg4 arg5 -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_search_text argPtr1 arg2 arg3 arg4 arg5)
{-# LINE 641 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}
            (toWebView webview)
            textPtr
            (fromBool case_sensitive)
            (fromBool forward)
            (fromBool wrap)

-- |Attempts to highlight all occurances of string inside 'WebView'
webViewMarkTextMatches ::
    WebViewClass self => self
 -> String -- ^ @string@ - a string to look for
 -> Bool -- ^ @case_sensitive@ - whether to respect the case of text
 -> Int -- ^ @limit@ - the maximum number of strings to look for or 0 for all
 -> IO Int -- ^ the number of strings highlighted
webViewMarkTextMatches webview text case_sensitive limit =
    withCString text $ \textPtr ->
 liftM fromIntegral $
          (\(WebView arg1) arg2 arg3 arg4 -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_mark_text_matches argPtr1 arg2 arg3 arg4)
{-# LINE 658 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}
            (toWebView webview)
            textPtr
            (fromBool case_sensitive)
            (fromIntegral limit)

-- | Move the cursor in view as described by step and count.
webViewMoveCursor ::
   WebViewClass self => self
 -> MovementStep
 -> Int
 -> IO ()
webViewMoveCursor webview step count =
  (\(WebView arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_move_cursor argPtr1 arg2 arg3) (toWebView webview) (fromIntegral $ fromEnum step) (fromIntegral count)

-- | Removes highlighting previously set by 'webViewMarkTextMarches'
webViewUnMarkTextMatches ::
    WebViewClass self => self
 -> IO ()
webViewUnMarkTextMatches webview =
    (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_unmark_text_matches argPtr1) (toWebView webview)

-- | Highlights text matches previously marked by 'webViewMarkTextMatches'
webViewSetHighlightTextMatches ::
    WebViewClass self => self
 -> Bool -- ^ @highlight@ - whether to highlight text matches
 -> IO ()
webViewSetHighlightTextMatches webview highlight =
    (\(WebView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_set_highlight_text_matches argPtr1 arg2)
{-# LINE 686 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}
      (toWebView webview)
      (fromBool highlight)

-- | Execute the script specified by @script@
webViewExecuteScript ::
    WebViewClass self => self
 -> String -- ^ @script@ - script to be executed
 -> IO()
webViewExecuteScript webview script =
    withCString script $ \scriptPtr ->
 (\(WebView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_execute_script argPtr1 arg2) (toWebView webview) scriptPtr

-- | Determines whether can cuts the current selection
-- inside 'WebView' to the clipboard
webViewCanCutClipboard ::
    WebViewClass self => self
 -> IO Bool
webViewCanCutClipboard webview =
    liftM toBool $ (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_can_cut_clipboard argPtr1) (toWebView webview)

-- | Determines whether can copies the current selection
-- inside 'WebView' to the clipboard
webViewCanCopyClipboard :: WebViewClass self => self -> IO Bool
webViewCanCopyClipboard webview =
    liftM toBool $ (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_can_copy_clipboard argPtr1) (toWebView webview)

-- | Determines whether can pastes the current contents of the clipboard
-- to the 'WebView'
webViewCanPasteClipboard :: WebViewClass self => self -> IO Bool
webViewCanPasteClipboard webview =
    liftM toBool $ (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_can_paste_clipboard argPtr1) (toWebView webview)

-- | Cuts the current selection inside 'WebView' to the clipboard.
webViewCutClipboard :: WebViewClass self => self -> IO()
webViewCutClipboard webview =
    (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_cut_clipboard argPtr1) (toWebView webview)

-- | Copies the current selection inside 'WebView' to the clipboard.
webViewCopyClipboard :: WebViewClass self => self -> IO()
webViewCopyClipboard webview =
    (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_copy_clipboard argPtr1) (toWebView webview)

-- | Pastes the current contents of the clipboard to the 'WebView'
webViewPasteClipboard :: WebViewClass self => self -> IO()
webViewPasteClipboard webview =
    (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_paste_clipboard argPtr1) (toWebView webview)

-- | Deletes the current selection inside the 'WebView'
webViewDeleteSelection :: WebViewClass self => self -> IO ()
webViewDeleteSelection webview =
    (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_delete_selection argPtr1) (toWebView webview)

-- | Determines whether text was selected
webViewHasSelection :: WebViewClass self => self -> IO Bool
webViewHasSelection webview =
    liftM toBool $ (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_has_selection argPtr1) (toWebView webview)

-- | Attempts to select everything inside the 'WebView'
webViewSelectAll :: WebViewClass self => self -> IO ()
webViewSelectAll webview =
    (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_select_all argPtr1) (toWebView webview)

-- | Returns whether the zoom level affects only text or all elements.
webViewGetFullContentZoom ::
    WebViewClass self => self
 -> IO Bool -- ^ False if only text should be scaled(the default)
            -- True if the full content of the view should be scaled.
webViewGetFullContentZoom webview =
    liftM toBool $ (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_full_content_zoom argPtr1) (toWebView webview)

-- | Sets whether the zoom level affects only text or all elements.
webViewSetFullContentZoom ::
    WebViewClass self => self
 -> Bool -- ^ @full_content_zoom@ - False if only text should be scaled (the default)
         -- True if the full content of the view should be scaled.
 -> IO ()
webViewSetFullContentZoom webview full =
    (\(WebView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_set_full_content_zoom argPtr1 arg2) (toWebView webview) (fromBool full)

-- | Returns the default encoding of the 'WebView'
webViewGetEncoding ::
    WebViewClass self => self
 -> IO (Maybe String) -- ^ the default encoding or @Nothing@ in case of failed
webViewGetEncoding webview =
    (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_encoding argPtr1) (toWebView webview) >>= maybePeek peekUTFString

-- | Sets the current 'WebView' encoding,
-- without modifying the default one, and reloads the page
webViewSetCustomEncoding ::
    WebViewClass self => self
 -> (Maybe String) -- ^ @encoding@ - the new encoding,
                   -- or @Nothing@ to restore the default encoding.
 -> IO ()
webViewSetCustomEncoding webview encoding =
    maybeWith withCString encoding $ \encodingPtr ->
 (\(WebView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_set_custom_encoding argPtr1 arg2) (toWebView webview) encodingPtr

-- | Returns the current encoding of 'WebView',not the default encoding.
webViewGetCustomEncoding ::
    WebViewClass self => self
 -> IO (Maybe String) -- ^ the current encoding string
                      -- or @Nothing@ if there is none set.
webViewGetCustomEncoding webview =
    (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_custom_encoding argPtr1) (toWebView webview) >>= maybePeek peekUTFString

-- | Determines the current status of the load.
webViewGetLoadStatus ::
    WebViewClass self => self
 -> IO LoadStatus -- ^ the current load status:'LoadStatus'
webViewGetLoadStatus webview =
    liftM (toEnum . fromIntegral) $ (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_load_status argPtr1) (toWebView webview)

-- | Determines the current progress of the load
webViewGetProgress ::
    WebViewClass self => self
 -> IO Double -- ^ the load progress
webViewGetProgress webview =
    liftM realToFrac $ (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_progress argPtr1) (toWebView webview)

-- | This function returns the list of targets this 'WebView' can provide for clipboard copying and as DND source.
-- The targets in the list are added with values from the 'WebViewTargetInfo' enum,
-- using 'targetListAdd' and 'targetListAddTextTargets'.
webViewGetCopyTargetList ::
   WebViewClass self => self
 -> IO (Maybe TargetList)
webViewGetCopyTargetList webview = do
  tlPtr <- (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_copy_target_list argPtr1) (toWebView webview)
  if tlPtr==nullPtr then return Nothing else liftM Just (mkTargetList tlPtr)

-- | This function returns the list of targets this 'WebView' can provide for clipboard pasteing and as DND source.
-- The targets in the list are added with values from the 'WebViewTargetInfo' enum,
-- using 'targetListAdd' and 'targetListAddTextTargets'.
webViewGetPasteTargetList ::
   WebViewClass self => self
 -> IO (Maybe TargetList)
webViewGetPasteTargetList webview = do
  tlPtr <- (\(WebView arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_web_view_get_paste_target_list argPtr1) (toWebView webview)
  if tlPtr==nullPtr then return Nothing else liftM Just (mkTargetList tlPtr)

-- * Attibutes

-- | Zoom level of the 'WebView' instance
webViewZoomLevel :: WebViewClass self => Attr self Float
webViewZoomLevel = newAttr
   webViewGetZoomLevel
   webViewSetZoomLevel

-- | Whether the full content is scaled when zooming
--
-- Default value: False
webViewFullContentZoom :: WebViewClass self => Attr self Bool
webViewFullContentZoom = newAttr
   webViewGetFullContentZoom
   webViewSetFullContentZoom

-- | The default encoding of the 'WebView' instance
--
-- Default value: @Nothing@
webViewEncoding :: WebViewClass self => ReadAttr self (Maybe String)
webViewEncoding = readAttr webViewGetEncoding

-- | Determines the current status of the load.
--
-- Default value: @LoadFinished@
webViewLoadStatus :: WebViewClass self => ReadAttr self LoadStatus
webViewLoadStatus = readAttr webViewGetLoadStatus

-- |Determines the current progress of the load
--
-- Default Value: 1
webViewProgress :: WebViewClass self => ReadAttr self Double
webViewProgress = readAttr webViewGetProgress


-- | The associated webSettings of the 'WebView' instance
webViewWebSettings :: WebViewClass self => Attr self WebSettings
webViewWebSettings = newAttr
   webViewGetWebSettings
   webViewSetWebSettings


-- | Title of the 'WebView' instance
webViewTitle :: WebViewClass self => ReadAttr self (Maybe String)
webViewTitle = readAttr webViewGetTitle

-- | The associated webInspector instance of the 'WebView'
webViewInspector :: WebViewClass self => ReadAttr self WebInspector
webViewInspector = readAttr webViewGetInspector


-- | The custom encoding of the 'WebView' instance
--
-- Default value: @Nothing@
webViewCustomEncoding :: WebViewClass self => Attr self (Maybe String)
webViewCustomEncoding = newAttr
   webViewGetCustomEncoding
   webViewSetCustomEncoding

-- | view source mode of the 'WebView' instance
webViewViewSourceMode :: WebViewClass self => Attr self Bool
webViewViewSourceMode = newAttr
  webViewGetViewSourceMode
  webViewSetViewSourceMode

-- | transparent background of the 'WebView' instance
webViewTransparent :: WebViewClass self => Attr self Bool
webViewTransparent = newAttr
  webViewGetTransparent
  webViewSetTransparent

-- | Whether content of the 'WebView' can be modified by the user
--
-- Default value: @False@
webViewEditable :: WebViewClass self => Attr self Bool
webViewEditable = newAttr
  webViewGetEditable
  webViewSetEditable

-- | Returns the current URI of the contents displayed by the @web_view@.
--
-- Default value: Nothing
webViewUri :: WebViewClass self => ReadAttr self (Maybe String)
webViewUri = readAttr webViewGetUri

-- | The list of targets this web view supports for clipboard copying.
webViewCopyTargetList :: WebViewClass self => ReadAttr self (Maybe TargetList)
webViewCopyTargetList = readAttr webViewGetCopyTargetList

-- | The list of targets this web view supports for clipboard pasteing.
webViewPasteTargetList :: WebViewClass self => ReadAttr self (Maybe TargetList)
webViewPasteTargetList = readAttr webViewGetPasteTargetList

-- | An associated 'WebWindowFeatures' instance.
webViewWindowFeatures :: WebViewClass self => Attr self WebWindowFeatures
webViewWindowFeatures =
  newAttrFromObjectProperty "window-features"
  webkit_web_window_features_get_type
{-# LINE 923 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}


-- | The URI for the favicon for the WebKitWebView.
--
-- Default value: 'Nothing'
--
-- * Since 1.1.18
webViewIconUri :: WebViewClass self => ReadAttr self String
webViewIconUri = readAttrFromStringProperty "icon-uri"



-- | The 'IMMulticontext' for the WebKitWebView.
--
-- This is the input method context used for all text entry widgets inside the WebKitWebView. It can be
-- used to generate context menu items for controlling the active input method.
--
-- * Since 1.1.20
webViewImContext :: WebViewClass self => ReadAttr self IMContext
webViewImContext =
  readAttrFromObjectProperty "im-context"
  gtk_im_context_get_type
{-# LINE 945 "./Graphics/UI/Gtk/WebKit/WebView.chs" #-}


-- * Signals

-- | When Document title changed, this signal is emitted.
--
-- It can be used to set the Application 'Window' title.
--
-- the user function signature is (WebFrame->String->IO())
--
-- webframe - which 'WebFrame' changes the document title.
--
-- title - current title string.
titleChanged :: WebViewClass self => Signal self ( WebFrame -> String -> IO() )
titleChanged =
    Signal (connect_OBJECT_STRING__NONE "title-changed")


-- | When the cursor is over a link, this signal is emitted.
--
-- the user function signature is (Maybe String -> Maybe String -> IO () )
--
-- title - the link's title or @Nothing@ in case of failure.
--
-- uri - the URI the link points to or @Nothing@ in case of failure.
hoveringOverLink :: WebViewClass self => Signal self (String -> String -> IO())
hoveringOverLink =
    Signal (connect_STRING_STRING__NONE "hovering-over-link")

-- | When a 'WebFrame' begins to load, this signal is emitted
loadStarted :: WebViewClass self => Signal self (WebFrame -> IO())
loadStarted = Signal (connect_OBJECT__NONE "load-started")

-- | When a 'WebFrame' loaded the first data, this signal is emitted
loadCommitted :: WebViewClass self => Signal self (WebFrame -> IO())
loadCommitted = Signal (connect_OBJECT__NONE "load-committed")


-- | When the global progress changed, this signal is emitted
--
-- the global progress will be passed back to user function
progressChanged :: WebViewClass self => Signal self (Int-> IO())
progressChanged =
    Signal (connect_INT__NONE "load-progress-changed")

-- | When loading finished, this signal is emitted
loadFinished :: WebViewClass self => Signal self (WebFrame -> IO())
loadFinished =
    Signal (connect_OBJECT__NONE "load-finished")

-- | When An error occurred while loading.
--
-- By default, if the signal is not handled,
-- the WebView will display a stock error page.
--
-- You need to handle the signal
-- if you want to provide your own error page.
--
-- The URI that triggered the error and the 'GError' will be passed back to user function.
loadError :: WebViewClass self => Signal self (WebFrame -> String -> GError -> IO Bool)
loadError = Signal (connect_OBJECT_STRING_BOXED__BOOL "load-error" peek)

createWebView :: WebViewClass self => Signal self (WebFrame -> IO WebView)
createWebView = Signal (connect_OBJECT__OBJECTPTR "create-web-view")

-- | Emitted when closing a WebView is requested.
--
-- This occurs when a call is made from JavaScript's window.close function. 
-- The default signal handler does not do anything.
-- It is the owner's responsibility to hide or delete the 'WebView', if necessary.
--
-- User function should return True to stop the handlers from being invoked for the event
-- or False to propagate the event furter
closeWebView :: WebViewClass self => Signal self (IO Bool)
closeWebView =
    Signal (connect_NONE__BOOL "close-web-view")

-- | A JavaScript console message was created.
consoleMessage :: WebViewClass self => Signal self (String -> String -> Int -> String -> IO Bool)
consoleMessage = Signal (connect_STRING_STRING_INT_STRING__BOOL "console-message")

-- | The 'copyClipboard' signal is a keybinding signal which gets emitted to copy the selection to the clipboard.
--
-- The default bindings for this signal are Ctrl-c and Ctrl-Insert.
copyClipboard :: WebViewClass self => Signal self (IO ())
copyClipboard = Signal (connect_NONE__NONE "copy-clipboard")

-- | The 'cutClipboard' signal is a keybinding signal which gets emitted to cut the selection to the clipboard.
--
-- The default bindings for this signal are Ctrl-x and Shift-Delete.
cutClipboard :: WebViewClass self => Signal self (IO ())
cutClipboard = Signal (connect_NONE__NONE "cut-clipboard")

-- | The 'pasteClipboard' signal is a keybinding signal which gets emitted to paste the contents of the clipboard into the Web view.
--
-- The default bindings for this signal are Ctrl-v and Shift-Insert.
pasteClipboard :: WebViewClass self => Signal self (IO ())
pasteClipboard = Signal (connect_NONE__NONE "paste-clipboard")

-- | When a context menu is about to be displayed this signal is emitted.
populatePopup :: WebViewClass self => Signal self (Menu -> IO ())
populatePopup = Signal (connect_OBJECT__NONE "populate-popup")

-- | Emitted when printing is requested by the frame, usually because of a javascript call.
-- When handling this signal you should call 'webFramePrintFull' or 'webFramePrint' to do the actual printing.
--
-- The default handler will present a print dialog and carry a print operation.
-- Notice that this means that if you intend to ignore a print
-- request you must connect to this signal, and return True.
printRequested :: WebViewClass self => Signal self (WebFrame -> IO Bool)
printRequested = Signal (connect_OBJECT__BOOL "print-requested")

-- | A JavaScript alert dialog was created.
scriptAlert :: WebViewClass self => Signal self (WebFrame -> String -> IO Bool)
scriptAlert = Signal (connect_OBJECT_STRING__BOOL "scriptAlert")

-- | A JavaScript confirm dialog was created, providing Yes and No buttons.
scriptConfirm :: WebViewClass self => Signal self (WebFrame -> String -> IO Bool)
scriptConfirm = Signal (connect_OBJECT_STRING__BOOL "script-confirm")

-- | A JavaScript prompt dialog was created, providing an entry to input text.
scriptPrompt :: WebViewClass self => Signal self (WebFrame -> String -> String -> IO Bool)
scriptPrompt = Signal (connect_OBJECT_STRING_STRING__BOOL "script-prompt")

-- | When status-bar text changed, this signal will emitted.
statusBarTextChanged :: WebViewClass self => Signal self (String -> IO ())
statusBarTextChanged = Signal (connect_STRING__NONE "status-bar-text-changed")



-- | The 'selectAll' signal is a keybinding signal which gets emitted to select the complete contents of the text view.
--
-- The default bindings for this signal is Ctrl-a.
selectAll :: WebViewClass self => Signal self (IO ())
selectAll = Signal (connect_NONE__NONE "select-all")

-- | When selection changed, this signal is emitted.
selectionChanged :: WebViewClass self => Signal self (IO ())
selectionChanged = Signal (connect_NONE__NONE "selection-changed")

-- | When set scroll adjustments, this signal is emitted.
setScrollAdjustments :: WebViewClass self => Signal self (Adjustment -> Adjustment -> IO ())
setScrollAdjustments = Signal (connect_OBJECT_OBJECT__NONE "set-scroll-adjustments")

-- | The 'databaseQuotaExceeded' signal will be emitted when a Web Database exceeds the quota of its security origin.
-- This signal may be used to increase the size of the quota before the originating operation fails.
databaseQuotaExceeded :: WebViewClass self => Signal self (WebFrame -> WebDatabase -> IO ())
databaseQuotaExceeded = Signal (connect_OBJECT_OBJECT__NONE "database-quota-exceeded")

-- | When document loading finished, this signal is emitted
documentLoadFinished :: WebViewClass self => Signal self (WebFrame -> IO ())
documentLoadFinished = Signal (connect_OBJECT__NONE "document-load-finished")


-- | Emitted after new 'WebView' instance had been created in 'onCreateWebView' user function
-- when the new 'WebView' should be displayed to the user.
--
-- All the information about how the window should look,
-- including size,position,whether the location, status and scroll bars should be displayed,
-- is ready set.
webViewReady:: WebViewClass self => Signal self (IO Bool)
webViewReady =
    Signal (connect_NONE__BOOL "web-view-ready")

-- | Emitted after A new 'Download' is being requested.
--
-- By default, if the signal is not handled, the download is cancelled.
--
-- Notice that while handling this signal you must set the target URI using 'downloadSetDestinationUri'
--
-- If you intend to handle downloads yourself, return False in user function.
downloadRequested :: WebViewClass self => Signal self (Download -> IO Bool)
downloadRequested =
    Signal (connect_OBJECT__BOOL "download-requested")


-- | Emitted after Icon loaded
iconLoaded :: WebViewClass self => Signal self (IO ())
iconLoaded =
    Signal (connect_NONE__NONE "icon-loaded")


-- | The "redo" signal is a keybinding signal which gets emitted to redo the last editing command.
--
-- The default binding for this signal is Ctrl-Shift-z
redo :: WebViewClass self => Signal self (IO ())
redo =
   Signal (connect_NONE__NONE "redo")

-- | The "undo" signal is a keybinding signal which gets emitted to undo the last editing command.
--
-- The default binding for this signal is Ctrl-z
undo :: WebViewClass self => Signal self (IO ())
undo =
   Signal (connect_NONE__NONE "undo")

-- | Decide whether or not to display the given MIME type.
-- If this signal is not handled, the default behavior is to show the content of the
-- requested URI if WebKit can show this MIME type and the content disposition is not a download;
-- if WebKit is not able to show the MIME type nothing happens.
--
-- Notice that if you return True, meaning that you handled the signal,
-- you are expected to be aware of the "Content-Disposition" header.
-- A value of "attachment" usually indicates a download regardless of the MIME type,
-- see also soupMessageHeadersGetContentDisposition'
-- And you must call 'webPolicyDecisionIgnore', 'webPolicyDecisionDownload', or 'webPolicyDecisionUse'
-- on the 'webPolicyDecision' object.
mimeTypePolicyDecisionRequested :: WebViewClass self => Signal self (WebFrame -> NetworkRequest -> String -> WebPolicyDecision -> IO Bool)
mimeTypePolicyDecisionRequested = Signal (connect_OBJECT_OBJECT_STRING_OBJECT__BOOL "mime-type-policy-decision-requested")

-- | The 'moveCursor' will be emitted to apply the cursor movement described by its parameters to the view.
moveCursor :: WebViewClass self => Signal self (MovementStep -> Int -> IO Bool)
moveCursor = Signal (connect_ENUM_INT__BOOL "move-cursor")

-- | Emitted when frame requests a navigation to another page.
-- If this signal is not handled, the default behavior is to allow the navigation.
--
-- Notice that if you return True, meaning that you handled the signal,
-- you are expected to be aware of the "Content-Disposition" header.
-- A value of "attachment" usually indicates a download regardless of the MIME type,
-- see also soupMessageHeadersGetContentDisposition'
-- And you must call 'webPolicyDecisionIgnore', 'webPolicyDecisionDownload', or 'webPolicyDecisionUse'
-- on the 'webPolicyDecision' object.
navigationPolicyDecisionRequested :: WebViewClass self => Signal self (WebFrame -> NetworkRequest -> WebNavigationAction -> WebPolicyDecision -> IO Bool)
navigationPolicyDecisionRequested = Signal (connect_OBJECT_OBJECT_OBJECT_OBJECT__BOOL "navigation-policy-decision-requested")

-- | Emitted when frame requests opening a new window.
-- With this signal the browser can use the context of the request to decide about the new window.
-- If the request is not handled the default behavior is to allow opening the new window to load the URI,
-- which will cause a 'createWebView' signal emission where the browser handles the new window action
-- but without information of the context that caused the navigation.
-- The following 'navigationPolicyDecisionRequested' emissions will load the page
-- after the creation of the new window just with the information of this new navigation context,
-- without any information about the action that made this new window to be opened.
--
-- Notice that if you return True, meaning that you handled the signal,
-- you are expected to be aware of the "Content-Disposition" header.
-- A value of "attachment" usually indicates a download regardless of the MIME type,
-- see also soupMessageHeadersGetContentDisposition'
-- And you must call 'webPolicyDecisionIgnore', 'webPolicyDecisionDownload', or 'webPolicyDecisionUse'
-- on the 'webPolicyDecision' object.
newWindowPolicyDecisionRequested :: WebViewClass self => Signal self (WebFrame -> NetworkRequest -> WebNavigationAction -> WebPolicyDecision -> IO Bool)
newWindowPolicyDecisionRequested = Signal (connect_OBJECT_OBJECT_OBJECT_OBJECT__BOOL "new-window-policy-decision-requested")

-- | Emitted when a request is about to be sent.
-- You can modify the request while handling this signal.
-- You can set the URI in the 'NetworkRequest' object itself,
-- and add/remove/replace headers using the SoupMessage object it carries,
-- if it is present. See 'networkRequestGetMessage'.
-- Setting the request URI to "about:blank" will effectively cause the request to load nothing,
-- and can be used to disable the loading of specific resources.
--
-- Notice that information about an eventual redirect is available in response's SoupMessage, 
-- not in the SoupMessage carried by the request.
-- If response is ((void *)0), then this is not a redirected request.
--
-- The 'WebResource' object will be the same throughout all the lifetime of the resource,
-- but the contents may change from inbetween signal emissions.
resourceRequestStarting :: WebViewClass self => Signal self (WebFrame -> WebResource -> NetworkRequest -> NetworkResponse -> IO ())
resourceRequestStarting = Signal (connect_OBJECT_OBJECT_OBJECT_OBJECT__NONE "resource-request-starting")


-- | When a frame wants to cancel geolocation permission it had requested before.
--
-- * Since 1.1.23
geolocationPolicyDecisionCancelled :: WebViewClass self => Signal self (WebFrame -> IO ())
geolocationPolicyDecisionCancelled = Signal (connect_OBJECT__NONE "geolocation-policy-decision-cancelled")

-- | When a frame wants to get its geolocation permission. The receiver must reply with a boolean wether
-- it handled or not the request. If the request is not handled, default behaviour is to deny
-- geolocation.
--
-- * Since 1.1.23
geolocationPolicyDecisionRequested :: WebViewClass self => Signal self (WebFrame -> GeolocationPolicyDecision -> IO ())
geolocationPolicyDecisionRequested = Signal (connect_OBJECT_OBJECT__NONE "geolocation-policy-decision-requested")

foreign import ccall safe "g_thread_get_initialized"
  g_thread_get_initialized :: (IO CInt)

foreign import ccall safe "g_thread_init"
  g_thread_init :: ((Ptr ()) -> (IO ()))

foreign import ccall safe "webkit_web_view_new"
  webkit_web_view_new :: (IO (Ptr Widget))

foreign import ccall safe "webkit_web_view_set_settings"
  webkit_web_view_set_settings :: ((Ptr WebView) -> ((Ptr WebSettings) -> (IO ())))

foreign import ccall safe "webkit_web_view_get_settings"
  webkit_web_view_get_settings :: ((Ptr WebView) -> (IO (Ptr WebSettings)))

foreign import ccall safe "webkit_web_view_get_window_features"
  webkit_web_view_get_window_features :: ((Ptr WebView) -> (IO (Ptr WebWindowFeatures)))

foreign import ccall safe "webkit_web_view_get_icon_uri"
  webkit_web_view_get_icon_uri :: ((Ptr WebView) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_web_view_get_main_frame"
  webkit_web_view_get_main_frame :: ((Ptr WebView) -> (IO (Ptr WebFrame)))

foreign import ccall safe "webkit_web_view_get_focused_frame"
  webkit_web_view_get_focused_frame :: ((Ptr WebView) -> (IO (Ptr WebFrame)))

foreign import ccall safe "webkit_web_view_load_uri"
  webkit_web_view_load_uri :: ((Ptr WebView) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_web_view_can_go_back"
  webkit_web_view_can_go_back :: ((Ptr WebView) -> (IO CInt))

foreign import ccall safe "webkit_web_view_can_go_forward"
  webkit_web_view_can_go_forward :: ((Ptr WebView) -> (IO CInt))

foreign import ccall safe "webkit_web_view_go_back"
  webkit_web_view_go_back :: ((Ptr WebView) -> (IO ()))

foreign import ccall safe "webkit_web_view_go_forward"
  webkit_web_view_go_forward :: ((Ptr WebView) -> (IO ()))

foreign import ccall safe "webkit_web_view_set_maintains_back_forward_list"
  webkit_web_view_set_maintains_back_forward_list :: ((Ptr WebView) -> (CInt -> (IO ())))

foreign import ccall safe "webkit_web_view_get_back_forward_list"
  webkit_web_view_get_back_forward_list :: ((Ptr WebView) -> (IO (Ptr WebBackForwardList)))

foreign import ccall safe "webkit_web_view_go_to_back_forward_item"
  webkit_web_view_go_to_back_forward_item :: ((Ptr WebView) -> ((Ptr WebHistoryItem) -> (IO CInt)))

foreign import ccall safe "webkit_web_view_can_go_back_or_forward"
  webkit_web_view_can_go_back_or_forward :: ((Ptr WebView) -> (CInt -> (IO CInt)))

foreign import ccall safe "webkit_web_view_go_back_or_forward"
  webkit_web_view_go_back_or_forward :: ((Ptr WebView) -> (CInt -> (IO ())))

foreign import ccall safe "webkit_web_view_can_redo"
  webkit_web_view_can_redo :: ((Ptr WebView) -> (IO CInt))

foreign import ccall safe "webkit_web_view_can_undo"
  webkit_web_view_can_undo :: ((Ptr WebView) -> (IO CInt))

foreign import ccall safe "webkit_web_view_redo"
  webkit_web_view_redo :: ((Ptr WebView) -> (IO ()))

foreign import ccall safe "webkit_web_view_undo"
  webkit_web_view_undo :: ((Ptr WebView) -> (IO ()))

foreign import ccall safe "webkit_web_view_can_show_mime_type"
  webkit_web_view_can_show_mime_type :: ((Ptr WebView) -> ((Ptr CChar) -> (IO CInt)))

foreign import ccall safe "webkit_web_view_get_editable"
  webkit_web_view_get_editable :: ((Ptr WebView) -> (IO CInt))

foreign import ccall safe "webkit_web_view_set_editable"
  webkit_web_view_set_editable :: ((Ptr WebView) -> (CInt -> (IO ())))

foreign import ccall safe "webkit_web_view_get_view_source_mode"
  webkit_web_view_get_view_source_mode :: ((Ptr WebView) -> (IO CInt))

foreign import ccall safe "webkit_web_view_set_view_source_mode"
  webkit_web_view_set_view_source_mode :: ((Ptr WebView) -> (CInt -> (IO ())))

foreign import ccall safe "webkit_web_view_get_transparent"
  webkit_web_view_get_transparent :: ((Ptr WebView) -> (IO CInt))

foreign import ccall safe "webkit_web_view_set_transparent"
  webkit_web_view_set_transparent :: ((Ptr WebView) -> (CInt -> (IO ())))

foreign import ccall safe "webkit_web_view_get_inspector"
  webkit_web_view_get_inspector :: ((Ptr WebView) -> (IO (Ptr WebInspector)))

foreign import ccall safe "webkit_web_view_load_request"
  webkit_web_view_load_request :: ((Ptr WebView) -> ((Ptr NetworkRequest) -> (IO ())))

foreign import ccall safe "webkit_web_view_get_zoom_level"
  webkit_web_view_get_zoom_level :: ((Ptr WebView) -> (IO CFloat))

foreign import ccall safe "webkit_web_view_set_zoom_level"
  webkit_web_view_set_zoom_level :: ((Ptr WebView) -> (CFloat -> (IO ())))

foreign import ccall safe "webkit_web_view_load_html_string"
  webkit_web_view_load_html_string :: ((Ptr WebView) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))

foreign import ccall safe "webkit_web_view_load_string"
  webkit_web_view_load_string :: ((Ptr WebView) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))))

foreign import ccall safe "webkit_web_view_get_title"
  webkit_web_view_get_title :: ((Ptr WebView) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_web_view_get_uri"
  webkit_web_view_get_uri :: ((Ptr WebView) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_web_view_stop_loading"
  webkit_web_view_stop_loading :: ((Ptr WebView) -> (IO ()))

foreign import ccall safe "webkit_web_view_reload"
  webkit_web_view_reload :: ((Ptr WebView) -> (IO ()))

foreign import ccall safe "webkit_web_view_reload_bypass_cache"
  webkit_web_view_reload_bypass_cache :: ((Ptr WebView) -> (IO ()))

foreign import ccall safe "webkit_web_view_zoom_in"
  webkit_web_view_zoom_in :: ((Ptr WebView) -> (IO ()))

foreign import ccall safe "webkit_web_view_zoom_out"
  webkit_web_view_zoom_out :: ((Ptr WebView) -> (IO ()))

foreign import ccall safe "webkit_web_view_search_text"
  webkit_web_view_search_text :: ((Ptr WebView) -> ((Ptr CChar) -> (CInt -> (CInt -> (CInt -> (IO CInt))))))

foreign import ccall safe "webkit_web_view_mark_text_matches"
  webkit_web_view_mark_text_matches :: ((Ptr WebView) -> ((Ptr CChar) -> (CInt -> (CUInt -> (IO CUInt)))))

foreign import ccall safe "webkit_web_view_move_cursor"
  webkit_web_view_move_cursor :: ((Ptr WebView) -> (CInt -> (CInt -> (IO ()))))

foreign import ccall safe "webkit_web_view_unmark_text_matches"
  webkit_web_view_unmark_text_matches :: ((Ptr WebView) -> (IO ()))

foreign import ccall safe "webkit_web_view_set_highlight_text_matches"
  webkit_web_view_set_highlight_text_matches :: ((Ptr WebView) -> (CInt -> (IO ())))

foreign import ccall safe "webkit_web_view_execute_script"
  webkit_web_view_execute_script :: ((Ptr WebView) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_web_view_can_cut_clipboard"
  webkit_web_view_can_cut_clipboard :: ((Ptr WebView) -> (IO CInt))

foreign import ccall safe "webkit_web_view_can_copy_clipboard"
  webkit_web_view_can_copy_clipboard :: ((Ptr WebView) -> (IO CInt))

foreign import ccall safe "webkit_web_view_can_paste_clipboard"
  webkit_web_view_can_paste_clipboard :: ((Ptr WebView) -> (IO CInt))

foreign import ccall safe "webkit_web_view_cut_clipboard"
  webkit_web_view_cut_clipboard :: ((Ptr WebView) -> (IO ()))

foreign import ccall safe "webkit_web_view_copy_clipboard"
  webkit_web_view_copy_clipboard :: ((Ptr WebView) -> (IO ()))

foreign import ccall safe "webkit_web_view_paste_clipboard"
  webkit_web_view_paste_clipboard :: ((Ptr WebView) -> (IO ()))

foreign import ccall safe "webkit_web_view_delete_selection"
  webkit_web_view_delete_selection :: ((Ptr WebView) -> (IO ()))

foreign import ccall safe "webkit_web_view_has_selection"
  webkit_web_view_has_selection :: ((Ptr WebView) -> (IO CInt))

foreign import ccall safe "webkit_web_view_select_all"
  webkit_web_view_select_all :: ((Ptr WebView) -> (IO ()))

foreign import ccall safe "webkit_web_view_get_full_content_zoom"
  webkit_web_view_get_full_content_zoom :: ((Ptr WebView) -> (IO CInt))

foreign import ccall safe "webkit_web_view_set_full_content_zoom"
  webkit_web_view_set_full_content_zoom :: ((Ptr WebView) -> (CInt -> (IO ())))

foreign import ccall safe "webkit_web_view_get_encoding"
  webkit_web_view_get_encoding :: ((Ptr WebView) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_web_view_set_custom_encoding"
  webkit_web_view_set_custom_encoding :: ((Ptr WebView) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_web_view_get_custom_encoding"
  webkit_web_view_get_custom_encoding :: ((Ptr WebView) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_web_view_get_load_status"
  webkit_web_view_get_load_status :: ((Ptr WebView) -> (IO CInt))

foreign import ccall safe "webkit_web_view_get_progress"
  webkit_web_view_get_progress :: ((Ptr WebView) -> (IO CDouble))

foreign import ccall safe "webkit_web_view_get_copy_target_list"
  webkit_web_view_get_copy_target_list :: ((Ptr WebView) -> (IO (Ptr TargetList)))

foreign import ccall safe "webkit_web_view_get_paste_target_list"
  webkit_web_view_get_paste_target_list :: ((Ptr WebView) -> (IO (Ptr TargetList)))

foreign import ccall safe "webkit_web_window_features_get_type"
  webkit_web_window_features_get_type :: CUInt

foreign import ccall safe "gtk_im_context_get_type"
  gtk_im_context_get_type :: CUInt