1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
{-# LANGUAGE CPP #-}
-- -*-haskell-*-
-----------------------------------------------------------------------------
-- Module : Graphics.UI.Gtk.WebKit.WebDataSource
-- Author : Andy Stewart
-- 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
--
-- Function `webkit_web_data_source_get_data` haven't binding,
-- no idea how to handle `GString`
--
-- Access to the WebKit Web DataSource
-----------------------------------------------------------------------------
module Graphics.UI.Gtk.WebKit.WebDataSource (
-- * Types
WebDataSource,
-- * Constructors
webDataSourceNew,
-- * Methods
webDataSourceGetEncoding,
webDataSourceGetInitialRequest,
webDataSourceGetMainResource,
webDataSourceGetRequest,
webDataSourceGetSubresources,
webDataSourceGetUnreachableUri,
webDataSourceGetWebFrame,
webDataSourceIsLoading,
) where
import Control.Monad (liftM)
import System.Glib.FFI
import System.Glib.UTFString
import System.Glib.GList
import System.Glib.GError
import Graphics.UI.Gtk.Gdk.Events
{#import Graphics.UI.Gtk.Abstract.Object#} (makeNewObject)
{#import Graphics.UI.Gtk.WebKit.Types#}
{#import System.Glib.GObject#}
{#context lib="webkit" prefix ="webkit"#}
-- | Creates a new 'WebDataSource' instance.
-- The URL of the 'WebDataSource' will be set to "about:blank".
webDataSourceNew :: IO WebDataSource
webDataSourceNew =
constructNewGObject mkWebDataSource $ {#call web_data_source_new#}
-- | Returns the text encoding name as set in the 'WebView', or if not, the text encoding of the response.
webDataSourceGetEncoding ::
WebDataSourceClass self => self
-> IO String
webDataSourceGetEncoding ds =
{#call web_data_source_get_encoding#} (toWebDataSource ds) >>= peekCString
-- | Returns a reference to the original request that was used to load the web content.
-- The NetworkRequest returned by this method is the
-- request prior to the "committed" load state.
-- See 'webDataSourceGetRequest' for getting the "committed" request.
webDataSourceGetInitialRequest ::
WebDataSourceClass self => self
-> IO NetworkRequest
webDataSourceGetInitialRequest ds =
makeNewGObject mkNetworkRequest $ {# call web_data_source_get_initial_request#} (toWebDataSource ds)
-- | Returns the main resource of the data_source
webDataSourceGetMainResource ::
WebDataSourceClass self => self
-> IO WebResource
webDataSourceGetMainResource ds =
makeNewGObject mkWebResource $ {#call web_data_source_get_main_resource#} (toWebDataSource ds)
-- | Returns a NetworkRequest that was used to create this 'WebDataSource'.
-- The NetworkRequest returned by this method is the request that was "committed",
-- and hence, different from the request you get from the 'webDataSourceGetInitialRequest' method.
webDataSourceGetRequest ::
WebDataSourceClass self => self
-> IO NetworkRequest
webDataSourceGetRequest ds =
makeNewGObject mkNetworkRequest $ {# call web_data_source_get_request#} (toWebDataSource ds)
-- | Gives you a List of 'WebResource' objects that compose the 'WebView' to which this 'WebDataSource' is attached.
webDataSourceGetSubresources ::
WebDataSourceClass self => self
-> IO [WebResource]
webDataSourceGetSubresources ds = do
glist <- {#call web_data_source_get_subresources#} (toWebDataSource ds)
resourcePtr <- fromGList glist
mapM (makeNewGObject mkWebResource . return) resourcePtr
-- | Return the unreachable URI of data_source.
-- The 'dataSource' will have an unreachable URL
-- if it was created using 'WebFrame''s
-- 'webFrameLoadAlternateHtmlString' method.
webDataSourceGetUnreachableUri ::
WebDataSourceClass self => self
-> IO String
webDataSourceGetUnreachableUri ds =
{#call web_data_source_get_unreachable_uri#} (toWebDataSource ds) >>= peekCString
-- | Returns the 'WebFrame' that represents this data source
webDataSourceGetWebFrame ::
WebDataSourceClass self => self
-> IO WebFrame
webDataSourceGetWebFrame ds =
makeNewGObject mkWebFrame $ {#call web_data_source_get_web_frame#} (toWebDataSource ds)
-- | Determines whether the data source is in the process of loading its content.
webDataSourceIsLoading ::
WebDataSourceClass self => self
-> IO Bool
webDataSourceIsLoading ds =
liftM toBool $ {#call web_data_source_is_loading#} (toWebDataSource ds)
|
