module Graphics.UI.Gtk.Poppler.FormField (
FormField,
FormFieldClass,
FormFieldType (..),
FormButtonType (..),
FormChoiceType (..),
FormTextType (..),
formFieldGetId,
formFieldGetFieldType,
formFieldIsReadOnly,
formFieldGetFontSize,
formFieldButtonGetButtonType,
formFieldButtonGetState,
formFieldButtonSetState,
formFieldChoiceCanSelectMultiple,
formFieldChoiceCommitOnChange,
formFieldChoiceDoSpellCheck,
formFieldChoiceGetChoiceType,
formFieldChoiceGetItem,
formFieldChoiceGetNItems,
formFieldChoiceGetText,
formFieldIsEditable,
formFieldChoiceIsItemSelected,
formFieldChoiceSelectItem,
formFieldChoiceSetText,
formFieldChoiceToggleItem,
formFieldChoiceUnselectAll,
formFieldTextDoScroll,
formFieldTextDoSpellCheck,
formFieldTextGetMaxLen,
formFieldTextGetText,
formFieldTextGetTextType,
formFieldTextIsPassword,
formFieldTextIsRichText,
formFieldTextSetText,
) where
import Control.Monad
import Data.Typeable
import System.Glib.FFI
import System.Glib.Flags
import System.Glib.GError
import System.Glib.GObject
import System.Glib.GList
import System.Glib.UTFString
import Graphics.UI.Gtk.Poppler.Enums
import Graphics.UI.Gtk.Abstract.Widget (Rectangle (..), Color (..))
import Graphics.UI.GtkInternals
import Graphics.Rendering.Cairo.Types
import Graphics.UI.Gtk.Poppler.Types
import Graphics.UI.Gtk.Poppler.Structs
formFieldGetId :: FormFieldClass field => field
-> IO Int
formFieldGetId field =
liftM fromIntegral $
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_get_id argPtr1) (toFormField field)
formFieldGetFieldType :: FormFieldClass field => field
-> IO FormFieldType
formFieldGetFieldType field =
liftM (toEnum . fromIntegral) $
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_get_field_type argPtr1) (toFormField field)
formFieldIsReadOnly :: FormFieldClass field => field
-> IO Bool
formFieldIsReadOnly field =
liftM toBool $
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_is_read_only argPtr1) (toFormField field)
formFieldGetFontSize :: FormFieldClass field => field
-> IO Double
formFieldGetFontSize field =
liftM realToFrac $
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_get_font_size argPtr1) (toFormField field)
formFieldButtonGetButtonType :: FormFieldClass field => field
-> IO FormButtonType
formFieldButtonGetButtonType field =
liftM (toEnum . fromIntegral) $
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_button_get_button_type argPtr1) (toFormField field)
formFieldButtonGetState :: FormFieldClass field => field
-> IO Bool
formFieldButtonGetState field =
liftM toBool $
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_button_get_state argPtr1) (toFormField field)
formFieldButtonSetState :: FormFieldClass field => field
-> Bool
-> IO ()
formFieldButtonSetState field state =
(\(FormField arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_button_set_state argPtr1 arg2) (toFormField field) (fromBool state)
formFieldChoiceCanSelectMultiple :: FormFieldClass field => field
-> IO Bool
formFieldChoiceCanSelectMultiple field =
liftM toBool $
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_choice_can_select_multiple argPtr1) (toFormField field)
formFieldChoiceCommitOnChange :: FormFieldClass field => field
-> IO Bool
formFieldChoiceCommitOnChange field =
liftM toBool $
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_choice_commit_on_change argPtr1) (toFormField field)
formFieldChoiceDoSpellCheck :: FormFieldClass field => field
-> IO Bool
formFieldChoiceDoSpellCheck field =
liftM toBool $
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_choice_do_spell_check argPtr1) (toFormField field)
formFieldChoiceGetChoiceType :: FormFieldClass field => field
-> IO FormChoiceType
formFieldChoiceGetChoiceType field =
liftM (toEnum . fromIntegral) $
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_choice_get_choice_type argPtr1) (toFormField field)
formFieldChoiceGetItem :: FormFieldClass field => field
-> Int
-> IO String
formFieldChoiceGetItem field index =
(\(FormField arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_choice_get_item argPtr1 arg2) (toFormField field) (fromIntegral index)
>>= readUTFString
formFieldChoiceGetNItems :: FormFieldClass field => field
-> IO Int
formFieldChoiceGetNItems field =
liftM fromIntegral $
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_choice_get_n_items argPtr1) (toFormField field)
formFieldChoiceGetText :: FormFieldClass field => field
-> IO String
formFieldChoiceGetText field =
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_choice_get_text argPtr1) (toFormField field)
>>= readUTFString
formFieldIsEditable :: FormFieldClass field => field
-> IO Bool
formFieldIsEditable field =
liftM toBool $
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_choice_is_editable argPtr1) (toFormField field)
formFieldChoiceIsItemSelected :: FormFieldClass field => field
-> Int
-> IO Bool
formFieldChoiceIsItemSelected field index =
liftM toBool $
(\(FormField arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_choice_is_item_selected argPtr1 arg2) (toFormField field) (fromIntegral index)
formFieldChoiceSelectItem :: FormFieldClass field => field
-> Int
-> IO ()
formFieldChoiceSelectItem field index =
(\(FormField arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_choice_select_item argPtr1 arg2) (toFormField field) (fromIntegral index)
formFieldChoiceSetText :: FormFieldClass field => field -> String -> IO ()
formFieldChoiceSetText field text =
withUTFString text $ \ textPtr ->
(\(FormField arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_choice_set_text argPtr1 arg2) (toFormField field) textPtr
formFieldChoiceToggleItem :: FormFieldClass field => field
-> Int
-> IO ()
formFieldChoiceToggleItem field index =
(\(FormField arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_choice_toggle_item argPtr1 arg2) (toFormField field) (fromIntegral index)
formFieldChoiceUnselectAll :: FormFieldClass field => field -> IO ()
formFieldChoiceUnselectAll field =
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_choice_unselect_all argPtr1) (toFormField field)
formFieldTextDoScroll :: FormFieldClass field => field -> IO Bool
formFieldTextDoScroll field =
liftM toBool $
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_text_do_scroll argPtr1) (toFormField field)
formFieldTextDoSpellCheck :: FormFieldClass field => field
-> IO Bool
formFieldTextDoSpellCheck field =
liftM toBool $
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_text_do_spell_check argPtr1) (toFormField field)
formFieldTextGetMaxLen :: FormFieldClass field => field
-> IO Int
formFieldTextGetMaxLen field =
liftM fromIntegral $
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_text_get_max_len argPtr1) (toFormField field)
formFieldTextGetText :: FormFieldClass field => field
-> IO String
formFieldTextGetText field =
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_text_get_text argPtr1) (toFormField field)
>>= readUTFString
formFieldTextGetTextType :: FormFieldClass field => field
-> IO FormTextType
formFieldTextGetTextType field =
liftM (toEnum . fromIntegral) $
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_text_get_text_type argPtr1) (toFormField field)
formFieldTextIsPassword :: FormFieldClass field => field
-> IO Bool
formFieldTextIsPassword field =
liftM toBool $
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_text_is_password argPtr1) (toFormField field)
formFieldTextIsRichText :: FormFieldClass field => field
-> IO Bool
formFieldTextIsRichText field =
liftM toBool $
(\(FormField arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_text_is_rich_text argPtr1) (toFormField field)
formFieldTextSetText :: FormFieldClass field => field
-> String
-> IO ()
formFieldTextSetText field text =
withUTFString text $ \ textPtr ->
(\(FormField arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->poppler_form_field_text_set_text argPtr1 arg2) (toFormField field) textPtr
foreign import ccall safe "poppler_form_field_get_id"
poppler_form_field_get_id :: ((Ptr FormField) -> (IO CInt))
foreign import ccall safe "poppler_form_field_get_field_type"
poppler_form_field_get_field_type :: ((Ptr FormField) -> (IO CInt))
foreign import ccall safe "poppler_form_field_is_read_only"
poppler_form_field_is_read_only :: ((Ptr FormField) -> (IO CInt))
foreign import ccall safe "poppler_form_field_get_font_size"
poppler_form_field_get_font_size :: ((Ptr FormField) -> (IO CDouble))
foreign import ccall safe "poppler_form_field_button_get_button_type"
poppler_form_field_button_get_button_type :: ((Ptr FormField) -> (IO CInt))
foreign import ccall safe "poppler_form_field_button_get_state"
poppler_form_field_button_get_state :: ((Ptr FormField) -> (IO CInt))
foreign import ccall safe "poppler_form_field_button_set_state"
poppler_form_field_button_set_state :: ((Ptr FormField) -> (CInt -> (IO ())))
foreign import ccall safe "poppler_form_field_choice_can_select_multiple"
poppler_form_field_choice_can_select_multiple :: ((Ptr FormField) -> (IO CInt))
foreign import ccall safe "poppler_form_field_choice_commit_on_change"
poppler_form_field_choice_commit_on_change :: ((Ptr FormField) -> (IO CInt))
foreign import ccall safe "poppler_form_field_choice_do_spell_check"
poppler_form_field_choice_do_spell_check :: ((Ptr FormField) -> (IO CInt))
foreign import ccall safe "poppler_form_field_choice_get_choice_type"
poppler_form_field_choice_get_choice_type :: ((Ptr FormField) -> (IO CInt))
foreign import ccall safe "poppler_form_field_choice_get_item"
poppler_form_field_choice_get_item :: ((Ptr FormField) -> (CInt -> (IO (Ptr CChar))))
foreign import ccall safe "poppler_form_field_choice_get_n_items"
poppler_form_field_choice_get_n_items :: ((Ptr FormField) -> (IO CInt))
foreign import ccall safe "poppler_form_field_choice_get_text"
poppler_form_field_choice_get_text :: ((Ptr FormField) -> (IO (Ptr CChar)))
foreign import ccall safe "poppler_form_field_choice_is_editable"
poppler_form_field_choice_is_editable :: ((Ptr FormField) -> (IO CInt))
foreign import ccall safe "poppler_form_field_choice_is_item_selected"
poppler_form_field_choice_is_item_selected :: ((Ptr FormField) -> (CInt -> (IO CInt)))
foreign import ccall safe "poppler_form_field_choice_select_item"
poppler_form_field_choice_select_item :: ((Ptr FormField) -> (CInt -> (IO ())))
foreign import ccall safe "poppler_form_field_choice_set_text"
poppler_form_field_choice_set_text :: ((Ptr FormField) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "poppler_form_field_choice_toggle_item"
poppler_form_field_choice_toggle_item :: ((Ptr FormField) -> (CInt -> (IO ())))
foreign import ccall safe "poppler_form_field_choice_unselect_all"
poppler_form_field_choice_unselect_all :: ((Ptr FormField) -> (IO ()))
foreign import ccall safe "poppler_form_field_text_do_scroll"
poppler_form_field_text_do_scroll :: ((Ptr FormField) -> (IO CInt))
foreign import ccall safe "poppler_form_field_text_do_spell_check"
poppler_form_field_text_do_spell_check :: ((Ptr FormField) -> (IO CInt))
foreign import ccall safe "poppler_form_field_text_get_max_len"
poppler_form_field_text_get_max_len :: ((Ptr FormField) -> (IO CInt))
foreign import ccall safe "poppler_form_field_text_get_text"
poppler_form_field_text_get_text :: ((Ptr FormField) -> (IO (Ptr CChar)))
foreign import ccall safe "poppler_form_field_text_get_text_type"
poppler_form_field_text_get_text_type :: ((Ptr FormField) -> (IO CInt))
foreign import ccall safe "poppler_form_field_text_is_password"
poppler_form_field_text_is_password :: ((Ptr FormField) -> (IO CInt))
foreign import ccall safe "poppler_form_field_text_is_rich_text"
poppler_form_field_text_is_rich_text :: ((Ptr FormField) -> (IO CInt))
foreign import ccall safe "poppler_form_field_text_set_text"
poppler_form_field_text_set_text :: ((Ptr FormField) -> ((Ptr CChar) -> (IO ())))