{-# LINE 2 "./Graphics/UI/Gtk/WebKit/WebPolicyDecision.chs" #-}-- -*-haskell-*-------------------------------------------------------------------------------- Module : Graphics.UI.Gtk.WebKit.WebPolicyDecision-- 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)---- Access to the WebKit PolicyDecision-----------------------------------------------------------------------------moduleGraphics.UI.Gtk.WebKit.WebPolicyDecision(-- * Desciption-- | 'WebPolicyDecision' objects are given to the application on signal emissions that deal with-- policy decisions, such as if a new window should be opened, or if a given navigation should be-- allowed. The application uses it to tell the engine what to do.-- * TypesWebPolicyDecision,WebPolicyDecisionClass,-- * MethodswebPolicyDecisionDownload,webPolicyDecisionIgnore,webPolicyDecisionUse,)whereimportControl.Monad(liftM)importSystem.Glib.FFIimportSystem.Glib.UTFStringimportSystem.Glib.GListimportSystem.Glib.GErrorimportGraphics.UI.Gtk.Gdk.EventsimportGraphics.UI.Gtk.Abstract.Object(makeNewObject)importGraphics.UI.Gtk.WebKit.Types{-# LINE 52 "./Graphics/UI/Gtk/WebKit/WebPolicyDecision.chs" #-}importSystem.Glib.GObject{-# LINE 53 "./Graphics/UI/Gtk/WebKit/WebPolicyDecision.chs" #-}{-# LINE 55 "./Graphics/UI/Gtk/WebKit/WebPolicyDecision.chs" #-}-- * Methods-- | Will send the DOWNLOAD decision to the policy implementer.webPolicyDecisionDownload::WebPolicyDecisionClassself=>self->IO()webPolicyDecisionDownloadpd=(\(WebPolicyDecisionarg1)->withForeignPtrarg1$\argPtr1->webkit_web_policy_decision_downloadargPtr1)(toWebPolicyDecisionpd)-- | Will send the IGNORE decision to the policy implementer.webPolicyDecisionIgnore::WebPolicyDecisionClassself=>self->IO()webPolicyDecisionIgnorepd=(\(WebPolicyDecisionarg1)->withForeignPtrarg1$\argPtr1->webkit_web_policy_decision_ignoreargPtr1)(toWebPolicyDecisionpd)-- | Will send the USE decision to the policy implementer.webPolicyDecisionUse::WebPolicyDecisionClassself=>self->IO()webPolicyDecisionUsepd=(\(WebPolicyDecisionarg1)->withForeignPtrarg1$\argPtr1->webkit_web_policy_decision_useargPtr1)(toWebPolicyDecisionpd)foreignimportccallsafe"webkit_web_policy_decision_download"webkit_web_policy_decision_download::((PtrWebPolicyDecision)->(IO()))foreignimportccallsafe"webkit_web_policy_decision_ignore"webkit_web_policy_decision_ignore::((PtrWebPolicyDecision)->(IO()))foreignimportccallsafe"webkit_web_policy_decision_use"webkit_web_policy_decision_use::((PtrWebPolicyDecision)->(IO()))