diff --git a/ghcjs-dom.cabal b/ghcjs-dom.cabal
--- a/ghcjs-dom.cabal
+++ b/ghcjs-dom.cabal
@@ -1,5 +1,5 @@
 name: ghcjs-dom
-version: 0.1.0.0
+version: 0.1.1.0
 cabal-version: >=1.10
 build-type: Simple
 license: MIT
@@ -39,7 +39,7 @@
 library
     build-depends: base <5,
                    mtl -any,
-                   text >= 1.1.1.3 && < 1.2
+                   text >= 0.11.0.6 && < 1.2
 
     default-language: Haskell2010
     exposed-modules:
diff --git a/src/GHCJS/DOM.hs b/src/GHCJS/DOM.hs
--- a/src/GHCJS/DOM.hs
+++ b/src/GHCJS/DOM.hs
@@ -8,6 +8,7 @@
 , WebView(..)
 , webViewGetDomDocument
 , runWebGUI
+, enableInspector
 , postGUISync
 , postGUIAsync
 ) where
@@ -20,7 +21,10 @@
 #else
 import Graphics.UI.Gtk.WebKit.WebView
        (webViewSetWebSettings, webViewGetWebSettings, loadStarted,
-        webViewLoadUri, loadFinished, webViewNew, webViewGetDomDocument)
+        webViewLoadUri, loadFinished, webViewNew, webViewGetDomDocument,
+        webViewGetInspector)
+import Graphics.UI.Gtk.WebKit.WebInspector
+       (showWindow, inspectWebView)
 import Graphics.UI.Gtk
        (timeoutAddFull, widgetShowAll, mainQuit, objectDestroy,
         WindowPosition(..), containerAdd, scrolledWindowNew,
@@ -30,7 +34,9 @@
 import System.Glib.Attributes (get, AttrOp(..), set)
 import System.Glib.FFI (maybeNull)
 import System.Glib.MainLoop (priorityHigh)
-import Graphics.UI.Gtk.WebKit.WebSettings (webSettingsUserAgent)
+import Graphics.UI.Gtk.WebKit.WebSettings
+       (webSettingsMonospaceFontFamily, webSettingsUserAgent,
+        webSettingsEnableDeveloperExtras)
 import Control.Monad.IO.Class (liftIO)
 #endif
 
@@ -131,4 +137,31 @@
     []    -> do
       main webView
   mainGUI
+#endif
+
+enableInspector :: WebView -> IO ()
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+enableInspector _ = return ()
+#else
+enableInspector webView = do
+  settings <- webViewGetWebSettings webView
+  settings `set` [webSettingsEnableDeveloperExtras := True]
+  webViewSetWebSettings webView settings
+  inspector <- webViewGetInspector webView
+  window <- windowNew
+  windowSetDefaultSize window 900 300
+  scrollWin <- scrolledWindowNew Nothing Nothing
+  inspector `on` inspectWebView $ \view -> do
+    inspectorView <- webViewNew
+    settings <- webViewGetWebSettings inspectorView
+    settings `set` [webSettingsMonospaceFontFamily := ("Consolas" :: String)]
+    webViewSetWebSettings inspectorView settings
+    scrollWin `containerAdd` inspectorView
+    window `containerAdd` scrollWin
+    widgetShowAll window
+    return inspectorView
+  inspector `on` showWindow $ do
+    widgetShowAll window
+    return True
+  return ()
 #endif