module GI.Poppler.Objects.FormField
(
FormField(..) ,
IsFormField ,
toFormField ,
noFormField ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldButtonGetButtonTypeMethodInfo ,
#endif
formFieldButtonGetButtonType ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldButtonGetStateMethodInfo ,
#endif
formFieldButtonGetState ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldButtonSetStateMethodInfo ,
#endif
formFieldButtonSetState ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldChoiceCanSelectMultipleMethodInfo,
#endif
formFieldChoiceCanSelectMultiple ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldChoiceCommitOnChangeMethodInfo ,
#endif
formFieldChoiceCommitOnChange ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldChoiceDoSpellCheckMethodInfo ,
#endif
formFieldChoiceDoSpellCheck ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldChoiceGetChoiceTypeMethodInfo ,
#endif
formFieldChoiceGetChoiceType ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldChoiceGetItemMethodInfo ,
#endif
formFieldChoiceGetItem ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldChoiceGetNItemsMethodInfo ,
#endif
formFieldChoiceGetNItems ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldChoiceGetTextMethodInfo ,
#endif
formFieldChoiceGetText ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldChoiceIsEditableMethodInfo ,
#endif
formFieldChoiceIsEditable ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldChoiceIsItemSelectedMethodInfo ,
#endif
formFieldChoiceIsItemSelected ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldChoiceSelectItemMethodInfo ,
#endif
formFieldChoiceSelectItem ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldChoiceSetTextMethodInfo ,
#endif
formFieldChoiceSetText ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldChoiceToggleItemMethodInfo ,
#endif
formFieldChoiceToggleItem ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldChoiceUnselectAllMethodInfo ,
#endif
formFieldChoiceUnselectAll ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldGetActionMethodInfo ,
#endif
formFieldGetAction ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldGetFieldTypeMethodInfo ,
#endif
formFieldGetFieldType ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldGetFontSizeMethodInfo ,
#endif
formFieldGetFontSize ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldGetIdMethodInfo ,
#endif
formFieldGetId ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldGetMappingNameMethodInfo ,
#endif
formFieldGetMappingName ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldGetNameMethodInfo ,
#endif
formFieldGetName ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldGetPartialNameMethodInfo ,
#endif
formFieldGetPartialName ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldIsReadOnlyMethodInfo ,
#endif
formFieldIsReadOnly ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldTextDoScrollMethodInfo ,
#endif
formFieldTextDoScroll ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldTextDoSpellCheckMethodInfo ,
#endif
formFieldTextDoSpellCheck ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldTextGetMaxLenMethodInfo ,
#endif
formFieldTextGetMaxLen ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldTextGetTextMethodInfo ,
#endif
formFieldTextGetText ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldTextGetTextTypeMethodInfo ,
#endif
formFieldTextGetTextType ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldTextIsPasswordMethodInfo ,
#endif
formFieldTextIsPassword ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldTextIsRichTextMethodInfo ,
#endif
formFieldTextIsRichText ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FormFieldTextSetTextMethodInfo ,
#endif
formFieldTextSetText ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Poppler.Enums as Poppler.Enums
import qualified GI.Poppler.Unions.Action as Poppler.Action
newtype FormField = FormField (ManagedPtr FormField)
foreign import ccall "poppler_form_field_get_type"
c_poppler_form_field_get_type :: IO GType
instance GObject FormField where
gobjectType _ = c_poppler_form_field_get_type
class GObject o => IsFormField o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError FormField a) =>
IsFormField a
#endif
instance IsFormField FormField
instance GObject.Object.IsObject FormField
toFormField :: (MonadIO m, IsFormField o) => o -> m FormField
toFormField = liftIO . unsafeCastTo FormField
noFormField :: Maybe FormField
noFormField = Nothing
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
type family ResolveFormFieldMethod (t :: Symbol) (o :: *) :: * where
ResolveFormFieldMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveFormFieldMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveFormFieldMethod "buttonGetButtonType" o = FormFieldButtonGetButtonTypeMethodInfo
ResolveFormFieldMethod "buttonGetState" o = FormFieldButtonGetStateMethodInfo
ResolveFormFieldMethod "buttonSetState" o = FormFieldButtonSetStateMethodInfo
ResolveFormFieldMethod "choiceCanSelectMultiple" o = FormFieldChoiceCanSelectMultipleMethodInfo
ResolveFormFieldMethod "choiceCommitOnChange" o = FormFieldChoiceCommitOnChangeMethodInfo
ResolveFormFieldMethod "choiceDoSpellCheck" o = FormFieldChoiceDoSpellCheckMethodInfo
ResolveFormFieldMethod "choiceGetChoiceType" o = FormFieldChoiceGetChoiceTypeMethodInfo
ResolveFormFieldMethod "choiceGetItem" o = FormFieldChoiceGetItemMethodInfo
ResolveFormFieldMethod "choiceGetNItems" o = FormFieldChoiceGetNItemsMethodInfo
ResolveFormFieldMethod "choiceGetText" o = FormFieldChoiceGetTextMethodInfo
ResolveFormFieldMethod "choiceIsEditable" o = FormFieldChoiceIsEditableMethodInfo
ResolveFormFieldMethod "choiceIsItemSelected" o = FormFieldChoiceIsItemSelectedMethodInfo
ResolveFormFieldMethod "choiceSelectItem" o = FormFieldChoiceSelectItemMethodInfo
ResolveFormFieldMethod "choiceSetText" o = FormFieldChoiceSetTextMethodInfo
ResolveFormFieldMethod "choiceToggleItem" o = FormFieldChoiceToggleItemMethodInfo
ResolveFormFieldMethod "choiceUnselectAll" o = FormFieldChoiceUnselectAllMethodInfo
ResolveFormFieldMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveFormFieldMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveFormFieldMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveFormFieldMethod "isReadOnly" o = FormFieldIsReadOnlyMethodInfo
ResolveFormFieldMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveFormFieldMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveFormFieldMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveFormFieldMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveFormFieldMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveFormFieldMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveFormFieldMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveFormFieldMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveFormFieldMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveFormFieldMethod "textDoScroll" o = FormFieldTextDoScrollMethodInfo
ResolveFormFieldMethod "textDoSpellCheck" o = FormFieldTextDoSpellCheckMethodInfo
ResolveFormFieldMethod "textGetMaxLen" o = FormFieldTextGetMaxLenMethodInfo
ResolveFormFieldMethod "textGetText" o = FormFieldTextGetTextMethodInfo
ResolveFormFieldMethod "textGetTextType" o = FormFieldTextGetTextTypeMethodInfo
ResolveFormFieldMethod "textIsPassword" o = FormFieldTextIsPasswordMethodInfo
ResolveFormFieldMethod "textIsRichText" o = FormFieldTextIsRichTextMethodInfo
ResolveFormFieldMethod "textSetText" o = FormFieldTextSetTextMethodInfo
ResolveFormFieldMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveFormFieldMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveFormFieldMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveFormFieldMethod "getAction" o = FormFieldGetActionMethodInfo
ResolveFormFieldMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveFormFieldMethod "getFieldType" o = FormFieldGetFieldTypeMethodInfo
ResolveFormFieldMethod "getFontSize" o = FormFieldGetFontSizeMethodInfo
ResolveFormFieldMethod "getId" o = FormFieldGetIdMethodInfo
ResolveFormFieldMethod "getMappingName" o = FormFieldGetMappingNameMethodInfo
ResolveFormFieldMethod "getName" o = FormFieldGetNameMethodInfo
ResolveFormFieldMethod "getPartialName" o = FormFieldGetPartialNameMethodInfo
ResolveFormFieldMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveFormFieldMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveFormFieldMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveFormFieldMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveFormFieldMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFormFieldMethod t FormField, O.MethodInfo info FormField p) => O.IsLabelProxy t (FormField -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveFormFieldMethod t FormField, O.MethodInfo info FormField p) => O.IsLabel t (FormField -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
instance O.HasAttributeList FormField
type instance O.AttributeList FormField = FormFieldAttributeList
type FormFieldAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
type instance O.SignalList FormField = FormFieldSignalList
type FormFieldSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "poppler_form_field_button_get_button_type" poppler_form_field_button_get_button_type ::
Ptr FormField ->
IO CUInt
formFieldButtonGetButtonType ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m Poppler.Enums.FormButtonType
formFieldButtonGetButtonType field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_button_get_button_type field'
let result' = (toEnum . fromIntegral) result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldButtonGetButtonTypeMethodInfo
instance (signature ~ (m Poppler.Enums.FormButtonType), MonadIO m, IsFormField a) => O.MethodInfo FormFieldButtonGetButtonTypeMethodInfo a signature where
overloadedMethod _ = formFieldButtonGetButtonType
#endif
foreign import ccall "poppler_form_field_button_get_state" poppler_form_field_button_get_state ::
Ptr FormField ->
IO CInt
formFieldButtonGetState ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m Bool
formFieldButtonGetState field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_button_get_state field'
let result' = (/= 0) result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldButtonGetStateMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFormField a) => O.MethodInfo FormFieldButtonGetStateMethodInfo a signature where
overloadedMethod _ = formFieldButtonGetState
#endif
foreign import ccall "poppler_form_field_button_set_state" poppler_form_field_button_set_state ::
Ptr FormField ->
CInt ->
IO ()
formFieldButtonSetState ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> Bool
-> m ()
formFieldButtonSetState field state = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
let state' = (fromIntegral . fromEnum) state
poppler_form_field_button_set_state field' state'
touchManagedPtr field
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldButtonSetStateMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFormField a) => O.MethodInfo FormFieldButtonSetStateMethodInfo a signature where
overloadedMethod _ = formFieldButtonSetState
#endif
foreign import ccall "poppler_form_field_choice_can_select_multiple" poppler_form_field_choice_can_select_multiple ::
Ptr FormField ->
IO CInt
formFieldChoiceCanSelectMultiple ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m Bool
formFieldChoiceCanSelectMultiple field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_choice_can_select_multiple field'
let result' = (/= 0) result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldChoiceCanSelectMultipleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFormField a) => O.MethodInfo FormFieldChoiceCanSelectMultipleMethodInfo a signature where
overloadedMethod _ = formFieldChoiceCanSelectMultiple
#endif
foreign import ccall "poppler_form_field_choice_commit_on_change" poppler_form_field_choice_commit_on_change ::
Ptr FormField ->
IO CInt
formFieldChoiceCommitOnChange ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m Bool
formFieldChoiceCommitOnChange field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_choice_commit_on_change field'
let result' = (/= 0) result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldChoiceCommitOnChangeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFormField a) => O.MethodInfo FormFieldChoiceCommitOnChangeMethodInfo a signature where
overloadedMethod _ = formFieldChoiceCommitOnChange
#endif
foreign import ccall "poppler_form_field_choice_do_spell_check" poppler_form_field_choice_do_spell_check ::
Ptr FormField ->
IO CInt
formFieldChoiceDoSpellCheck ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m Bool
formFieldChoiceDoSpellCheck field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_choice_do_spell_check field'
let result' = (/= 0) result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldChoiceDoSpellCheckMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFormField a) => O.MethodInfo FormFieldChoiceDoSpellCheckMethodInfo a signature where
overloadedMethod _ = formFieldChoiceDoSpellCheck
#endif
foreign import ccall "poppler_form_field_choice_get_choice_type" poppler_form_field_choice_get_choice_type ::
Ptr FormField ->
IO CUInt
formFieldChoiceGetChoiceType ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m Poppler.Enums.FormChoiceType
formFieldChoiceGetChoiceType field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_choice_get_choice_type field'
let result' = (toEnum . fromIntegral) result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldChoiceGetChoiceTypeMethodInfo
instance (signature ~ (m Poppler.Enums.FormChoiceType), MonadIO m, IsFormField a) => O.MethodInfo FormFieldChoiceGetChoiceTypeMethodInfo a signature where
overloadedMethod _ = formFieldChoiceGetChoiceType
#endif
foreign import ccall "poppler_form_field_choice_get_item" poppler_form_field_choice_get_item ::
Ptr FormField ->
Int32 ->
IO CString
formFieldChoiceGetItem ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> Int32
-> m T.Text
formFieldChoiceGetItem field index = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_choice_get_item field' index
checkUnexpectedReturnNULL "formFieldChoiceGetItem" result
result' <- cstringToText result
freeMem result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldChoiceGetItemMethodInfo
instance (signature ~ (Int32 -> m T.Text), MonadIO m, IsFormField a) => O.MethodInfo FormFieldChoiceGetItemMethodInfo a signature where
overloadedMethod _ = formFieldChoiceGetItem
#endif
foreign import ccall "poppler_form_field_choice_get_n_items" poppler_form_field_choice_get_n_items ::
Ptr FormField ->
IO Int32
formFieldChoiceGetNItems ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m Int32
formFieldChoiceGetNItems field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_choice_get_n_items field'
touchManagedPtr field
return result
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldChoiceGetNItemsMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsFormField a) => O.MethodInfo FormFieldChoiceGetNItemsMethodInfo a signature where
overloadedMethod _ = formFieldChoiceGetNItems
#endif
foreign import ccall "poppler_form_field_choice_get_text" poppler_form_field_choice_get_text ::
Ptr FormField ->
IO CString
formFieldChoiceGetText ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m T.Text
formFieldChoiceGetText field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_choice_get_text field'
checkUnexpectedReturnNULL "formFieldChoiceGetText" result
result' <- cstringToText result
freeMem result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldChoiceGetTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsFormField a) => O.MethodInfo FormFieldChoiceGetTextMethodInfo a signature where
overloadedMethod _ = formFieldChoiceGetText
#endif
foreign import ccall "poppler_form_field_choice_is_editable" poppler_form_field_choice_is_editable ::
Ptr FormField ->
IO CInt
formFieldChoiceIsEditable ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m Bool
formFieldChoiceIsEditable field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_choice_is_editable field'
let result' = (/= 0) result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldChoiceIsEditableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFormField a) => O.MethodInfo FormFieldChoiceIsEditableMethodInfo a signature where
overloadedMethod _ = formFieldChoiceIsEditable
#endif
foreign import ccall "poppler_form_field_choice_is_item_selected" poppler_form_field_choice_is_item_selected ::
Ptr FormField ->
Int32 ->
IO CInt
formFieldChoiceIsItemSelected ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> Int32
-> m Bool
formFieldChoiceIsItemSelected field index = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_choice_is_item_selected field' index
let result' = (/= 0) result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldChoiceIsItemSelectedMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m, IsFormField a) => O.MethodInfo FormFieldChoiceIsItemSelectedMethodInfo a signature where
overloadedMethod _ = formFieldChoiceIsItemSelected
#endif
foreign import ccall "poppler_form_field_choice_select_item" poppler_form_field_choice_select_item ::
Ptr FormField ->
Int32 ->
IO ()
formFieldChoiceSelectItem ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> Int32
-> m ()
formFieldChoiceSelectItem field index = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
poppler_form_field_choice_select_item field' index
touchManagedPtr field
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldChoiceSelectItemMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsFormField a) => O.MethodInfo FormFieldChoiceSelectItemMethodInfo a signature where
overloadedMethod _ = formFieldChoiceSelectItem
#endif
foreign import ccall "poppler_form_field_choice_set_text" poppler_form_field_choice_set_text ::
Ptr FormField ->
CString ->
IO ()
formFieldChoiceSetText ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> T.Text
-> m ()
formFieldChoiceSetText field text = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
text' <- textToCString text
poppler_form_field_choice_set_text field' text'
touchManagedPtr field
freeMem text'
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldChoiceSetTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsFormField a) => O.MethodInfo FormFieldChoiceSetTextMethodInfo a signature where
overloadedMethod _ = formFieldChoiceSetText
#endif
foreign import ccall "poppler_form_field_choice_toggle_item" poppler_form_field_choice_toggle_item ::
Ptr FormField ->
Int32 ->
IO ()
formFieldChoiceToggleItem ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> Int32
-> m ()
formFieldChoiceToggleItem field index = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
poppler_form_field_choice_toggle_item field' index
touchManagedPtr field
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldChoiceToggleItemMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsFormField a) => O.MethodInfo FormFieldChoiceToggleItemMethodInfo a signature where
overloadedMethod _ = formFieldChoiceToggleItem
#endif
foreign import ccall "poppler_form_field_choice_unselect_all" poppler_form_field_choice_unselect_all ::
Ptr FormField ->
IO ()
formFieldChoiceUnselectAll ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m ()
formFieldChoiceUnselectAll field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
poppler_form_field_choice_unselect_all field'
touchManagedPtr field
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldChoiceUnselectAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsFormField a) => O.MethodInfo FormFieldChoiceUnselectAllMethodInfo a signature where
overloadedMethod _ = formFieldChoiceUnselectAll
#endif
foreign import ccall "poppler_form_field_get_action" poppler_form_field_get_action ::
Ptr FormField ->
IO (Ptr Poppler.Action.Action)
formFieldGetAction ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m Poppler.Action.Action
formFieldGetAction field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_get_action field'
checkUnexpectedReturnNULL "formFieldGetAction" result
result' <- (newBoxed Poppler.Action.Action) result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldGetActionMethodInfo
instance (signature ~ (m Poppler.Action.Action), MonadIO m, IsFormField a) => O.MethodInfo FormFieldGetActionMethodInfo a signature where
overloadedMethod _ = formFieldGetAction
#endif
foreign import ccall "poppler_form_field_get_field_type" poppler_form_field_get_field_type ::
Ptr FormField ->
IO CUInt
formFieldGetFieldType ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m Poppler.Enums.FormFieldType
formFieldGetFieldType field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_get_field_type field'
let result' = (toEnum . fromIntegral) result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldGetFieldTypeMethodInfo
instance (signature ~ (m Poppler.Enums.FormFieldType), MonadIO m, IsFormField a) => O.MethodInfo FormFieldGetFieldTypeMethodInfo a signature where
overloadedMethod _ = formFieldGetFieldType
#endif
foreign import ccall "poppler_form_field_get_font_size" poppler_form_field_get_font_size ::
Ptr FormField ->
IO CDouble
formFieldGetFontSize ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m Double
formFieldGetFontSize field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_get_font_size field'
let result' = realToFrac result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldGetFontSizeMethodInfo
instance (signature ~ (m Double), MonadIO m, IsFormField a) => O.MethodInfo FormFieldGetFontSizeMethodInfo a signature where
overloadedMethod _ = formFieldGetFontSize
#endif
foreign import ccall "poppler_form_field_get_id" poppler_form_field_get_id ::
Ptr FormField ->
IO Int32
formFieldGetId ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m Int32
formFieldGetId field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_get_id field'
touchManagedPtr field
return result
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldGetIdMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsFormField a) => O.MethodInfo FormFieldGetIdMethodInfo a signature where
overloadedMethod _ = formFieldGetId
#endif
foreign import ccall "poppler_form_field_get_mapping_name" poppler_form_field_get_mapping_name ::
Ptr FormField ->
IO CString
formFieldGetMappingName ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m T.Text
formFieldGetMappingName field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_get_mapping_name field'
checkUnexpectedReturnNULL "formFieldGetMappingName" result
result' <- cstringToText result
freeMem result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldGetMappingNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsFormField a) => O.MethodInfo FormFieldGetMappingNameMethodInfo a signature where
overloadedMethod _ = formFieldGetMappingName
#endif
foreign import ccall "poppler_form_field_get_name" poppler_form_field_get_name ::
Ptr FormField ->
IO CString
formFieldGetName ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m T.Text
formFieldGetName field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_get_name field'
checkUnexpectedReturnNULL "formFieldGetName" result
result' <- cstringToText result
freeMem result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsFormField a) => O.MethodInfo FormFieldGetNameMethodInfo a signature where
overloadedMethod _ = formFieldGetName
#endif
foreign import ccall "poppler_form_field_get_partial_name" poppler_form_field_get_partial_name ::
Ptr FormField ->
IO CString
formFieldGetPartialName ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m T.Text
formFieldGetPartialName field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_get_partial_name field'
checkUnexpectedReturnNULL "formFieldGetPartialName" result
result' <- cstringToText result
freeMem result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldGetPartialNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsFormField a) => O.MethodInfo FormFieldGetPartialNameMethodInfo a signature where
overloadedMethod _ = formFieldGetPartialName
#endif
foreign import ccall "poppler_form_field_is_read_only" poppler_form_field_is_read_only ::
Ptr FormField ->
IO CInt
formFieldIsReadOnly ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m Bool
formFieldIsReadOnly field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_is_read_only field'
let result' = (/= 0) result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldIsReadOnlyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFormField a) => O.MethodInfo FormFieldIsReadOnlyMethodInfo a signature where
overloadedMethod _ = formFieldIsReadOnly
#endif
foreign import ccall "poppler_form_field_text_do_scroll" poppler_form_field_text_do_scroll ::
Ptr FormField ->
IO CInt
formFieldTextDoScroll ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m Bool
formFieldTextDoScroll field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_text_do_scroll field'
let result' = (/= 0) result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldTextDoScrollMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFormField a) => O.MethodInfo FormFieldTextDoScrollMethodInfo a signature where
overloadedMethod _ = formFieldTextDoScroll
#endif
foreign import ccall "poppler_form_field_text_do_spell_check" poppler_form_field_text_do_spell_check ::
Ptr FormField ->
IO CInt
formFieldTextDoSpellCheck ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m Bool
formFieldTextDoSpellCheck field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_text_do_spell_check field'
let result' = (/= 0) result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldTextDoSpellCheckMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFormField a) => O.MethodInfo FormFieldTextDoSpellCheckMethodInfo a signature where
overloadedMethod _ = formFieldTextDoSpellCheck
#endif
foreign import ccall "poppler_form_field_text_get_max_len" poppler_form_field_text_get_max_len ::
Ptr FormField ->
IO Int32
formFieldTextGetMaxLen ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m Int32
formFieldTextGetMaxLen field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_text_get_max_len field'
touchManagedPtr field
return result
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldTextGetMaxLenMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsFormField a) => O.MethodInfo FormFieldTextGetMaxLenMethodInfo a signature where
overloadedMethod _ = formFieldTextGetMaxLen
#endif
foreign import ccall "poppler_form_field_text_get_text" poppler_form_field_text_get_text ::
Ptr FormField ->
IO CString
formFieldTextGetText ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m T.Text
formFieldTextGetText field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_text_get_text field'
checkUnexpectedReturnNULL "formFieldTextGetText" result
result' <- cstringToText result
freeMem result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldTextGetTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsFormField a) => O.MethodInfo FormFieldTextGetTextMethodInfo a signature where
overloadedMethod _ = formFieldTextGetText
#endif
foreign import ccall "poppler_form_field_text_get_text_type" poppler_form_field_text_get_text_type ::
Ptr FormField ->
IO CUInt
formFieldTextGetTextType ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m Poppler.Enums.FormTextType
formFieldTextGetTextType field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_text_get_text_type field'
let result' = (toEnum . fromIntegral) result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldTextGetTextTypeMethodInfo
instance (signature ~ (m Poppler.Enums.FormTextType), MonadIO m, IsFormField a) => O.MethodInfo FormFieldTextGetTextTypeMethodInfo a signature where
overloadedMethod _ = formFieldTextGetTextType
#endif
foreign import ccall "poppler_form_field_text_is_password" poppler_form_field_text_is_password ::
Ptr FormField ->
IO CInt
formFieldTextIsPassword ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m Bool
formFieldTextIsPassword field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_text_is_password field'
let result' = (/= 0) result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldTextIsPasswordMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFormField a) => O.MethodInfo FormFieldTextIsPasswordMethodInfo a signature where
overloadedMethod _ = formFieldTextIsPassword
#endif
foreign import ccall "poppler_form_field_text_is_rich_text" poppler_form_field_text_is_rich_text ::
Ptr FormField ->
IO CInt
formFieldTextIsRichText ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> m Bool
formFieldTextIsRichText field = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
result <- poppler_form_field_text_is_rich_text field'
let result' = (/= 0) result
touchManagedPtr field
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldTextIsRichTextMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFormField a) => O.MethodInfo FormFieldTextIsRichTextMethodInfo a signature where
overloadedMethod _ = formFieldTextIsRichText
#endif
foreign import ccall "poppler_form_field_text_set_text" poppler_form_field_text_set_text ::
Ptr FormField ->
CString ->
IO ()
formFieldTextSetText ::
(B.CallStack.HasCallStack, MonadIO m, IsFormField a) =>
a
-> T.Text
-> m ()
formFieldTextSetText field text = liftIO $ do
field' <- unsafeManagedPtrCastPtr field
text' <- textToCString text
poppler_form_field_text_set_text field' text'
touchManagedPtr field
freeMem text'
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FormFieldTextSetTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsFormField a) => O.MethodInfo FormFieldTextSetTextMethodInfo a signature where
overloadedMethod _ = formFieldTextSetText
#endif