module Graphics.UI.Gtk.Poppler.Enums (
Error(..),
Orientation(..),
SelectionStyle(..),
PageTransitionType(..),
PageTransitionAlignment(..),
PageTransitionDirection(..),
Backend(..),
PageLayout(..),
PageMode(..),
FontType(..),
ViewerPreferences(..),
Permissions(..),
ActionType(..),
DestType(..),
FormButtonType(..),
FormChoiceType(..),
FormFieldType(..),
FormTextType(..),
) 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.UTFString
data Error = ErrorInvalid
| ErrorEncrypted
| ErrorOpenFile
| ErrorBadCatalog
| ErrorDamaged
deriving (Enum,Eq,Ord,Bounded,Show,Typeable)
data Orientation = OrientationPortrait
| OrientationLandscape
| OrientationUpsidedown
| OrientationSeascape
deriving (Enum,Eq,Ord,Bounded,Show,Typeable)
data SelectionStyle = SelectionGlyph
| SelectionWord
| SelectionLine
deriving (Enum,Eq,Ord,Bounded,Show,Typeable)
data PageTransitionType = PageTransitionReplace
| PageTransitionSplit
| PageTransitionBlinds
| PageTransitionBox
| PageTransitionWipe
| PageTransitionDissolve
| PageTransitionGlitter
| PageTransitionFly
| PageTransitionPush
| PageTransitionCover
| PageTransitionUncover
| PageTransitionFade
deriving (Enum,Eq,Ord,Bounded,Show,Typeable)
data PageTransitionAlignment = PageTransitionHorizontal
| PageTransitionVertical
deriving (Enum,Eq,Ord,Bounded,Show,Typeable)
data PageTransitionDirection = PageTransitionInward
| PageTransitionOutward
deriving (Enum,Eq,Ord,Bounded,Show,Typeable)
data Backend = BackendUnknown
| BackendSplash
| BackendCairo
deriving (Enum,Eq,Ord,Bounded,Show,Typeable)
data PageLayout = PageLayoutUnset
| PageLayoutSinglePage
| PageLayoutOneColumn
| PageLayoutTwoColumnLeft
| PageLayoutTwoColumnRight
| PageLayoutTwoPageLeft
| PageLayoutTwoPageRight
deriving (Enum,Eq,Ord,Bounded,Show,Typeable)
data PageMode = PageModeUnset
| PageModeNone
| PageModeUseOutlines
| PageModeUseThumbs
| PageModeFullScreen
| PageModeUseOc
| PageModeUseAttachments
deriving (Enum,Eq,Ord,Bounded,Show,Typeable)
data FontType = FontTypeUnknown
| FontTypeType1
| FontTypeType1c
| FontTypeType1cot
| FontTypeType3
| FontTypeTruetype
| FontTypeTruetypeot
| FontTypeCidType0
| FontTypeCidType0c
| FontTypeCidType0cot
| FontTypeCidType2
| FontTypeCidType2ot
deriving (Enum,Eq,Ord,Bounded,Show,Typeable)
data ViewerPreferences = ViewerPreferencesUnset
| ViewerPreferencesHideToolbar
| ViewerPreferencesHideMenubar
| ViewerPreferencesHideWindowui
| ViewerPreferencesFitWindow
| ViewerPreferencesCenterWindow
| ViewerPreferencesDisplayDocTitle
| ViewerPreferencesDirectionRtl
deriving (Eq,Ord,Bounded,Show,Typeable)
instance Enum ViewerPreferences where
fromEnum ViewerPreferencesUnset = 0
fromEnum ViewerPreferencesHideToolbar = 1
fromEnum ViewerPreferencesHideMenubar = 2
fromEnum ViewerPreferencesHideWindowui = 4
fromEnum ViewerPreferencesFitWindow = 8
fromEnum ViewerPreferencesCenterWindow = 16
fromEnum ViewerPreferencesDisplayDocTitle = 32
fromEnum ViewerPreferencesDirectionRtl = 64
toEnum 0 = ViewerPreferencesUnset
toEnum 1 = ViewerPreferencesHideToolbar
toEnum 2 = ViewerPreferencesHideMenubar
toEnum 4 = ViewerPreferencesHideWindowui
toEnum 8 = ViewerPreferencesFitWindow
toEnum 16 = ViewerPreferencesCenterWindow
toEnum 32 = ViewerPreferencesDisplayDocTitle
toEnum 64 = ViewerPreferencesDirectionRtl
toEnum unmatched = error ("ViewerPreferences.toEnum: Cannot match " ++ show unmatched)
succ ViewerPreferencesUnset = ViewerPreferencesHideToolbar
succ ViewerPreferencesHideToolbar = ViewerPreferencesHideMenubar
succ ViewerPreferencesHideMenubar = ViewerPreferencesHideWindowui
succ ViewerPreferencesHideWindowui = ViewerPreferencesFitWindow
succ ViewerPreferencesFitWindow = ViewerPreferencesCenterWindow
succ ViewerPreferencesCenterWindow = ViewerPreferencesDisplayDocTitle
succ ViewerPreferencesDisplayDocTitle = ViewerPreferencesDirectionRtl
succ _ = undefined
pred ViewerPreferencesHideToolbar = ViewerPreferencesUnset
pred ViewerPreferencesHideMenubar = ViewerPreferencesHideToolbar
pred ViewerPreferencesHideWindowui = ViewerPreferencesHideMenubar
pred ViewerPreferencesFitWindow = ViewerPreferencesHideWindowui
pred ViewerPreferencesCenterWindow = ViewerPreferencesFitWindow
pred ViewerPreferencesDisplayDocTitle = ViewerPreferencesCenterWindow
pred ViewerPreferencesDirectionRtl = ViewerPreferencesDisplayDocTitle
pred _ = undefined
enumFromTo x y | fromEnum x == fromEnum y = [ y ]
| otherwise = x : enumFromTo (succ x) y
enumFrom x = enumFromTo x ViewerPreferencesDirectionRtl
enumFromThen _ _ = error "Enum ViewerPreferences: enumFromThen not implemented"
enumFromThenTo _ _ _ = error "Enum ViewerPreferences: enumFromThenTo not implemented"
data Permissions = PermissionsOkToPrint
| PermissionsOkToModify
| PermissionsOkToCopy
| PermissionsOkToAddNotes
| PermissionsOkToFillForm
| PermissionsFull
deriving (Eq,Ord,Bounded,Show,Typeable)
instance Enum Permissions where
fromEnum PermissionsOkToPrint = 1
fromEnum PermissionsOkToModify = 2
fromEnum PermissionsOkToCopy = 4
fromEnum PermissionsOkToAddNotes = 8
fromEnum PermissionsOkToFillForm = 16
fromEnum PermissionsFull = 31
toEnum 1 = PermissionsOkToPrint
toEnum 2 = PermissionsOkToModify
toEnum 4 = PermissionsOkToCopy
toEnum 8 = PermissionsOkToAddNotes
toEnum 16 = PermissionsOkToFillForm
toEnum 31 = PermissionsFull
toEnum unmatched = error ("Permissions.toEnum: Cannot match " ++ show unmatched)
succ PermissionsOkToPrint = PermissionsOkToModify
succ PermissionsOkToModify = PermissionsOkToCopy
succ PermissionsOkToCopy = PermissionsOkToAddNotes
succ PermissionsOkToAddNotes = PermissionsOkToFillForm
succ PermissionsOkToFillForm = PermissionsFull
succ _ = undefined
pred PermissionsOkToModify = PermissionsOkToPrint
pred PermissionsOkToCopy = PermissionsOkToModify
pred PermissionsOkToAddNotes = PermissionsOkToCopy
pred PermissionsOkToFillForm = PermissionsOkToAddNotes
pred PermissionsFull = PermissionsOkToFillForm
pred _ = undefined
enumFromTo x y | fromEnum x == fromEnum y = [ y ]
| otherwise = x : enumFromTo (succ x) y
enumFrom x = enumFromTo x PermissionsFull
enumFromThen _ _ = error "Enum Permissions: enumFromThen not implemented"
enumFromThenTo _ _ _ = error "Enum Permissions: enumFromThenTo not implemented"
data ActionType = ActionUnknown
| ActionNone
| ActionGotoDest
| ActionGotoRemote
| ActionLaunch
| ActionUri
| ActionNamed
| ActionMovie
deriving (Enum,Eq,Ord,Bounded,Show,Typeable)
data DestType = DestUnknown
| DestXyz
| DestFit
| DestFith
| DestFitv
| DestFitr
| DestFitb
| DestFitbh
| DestFitbv
| DestNamed
deriving (Enum,Eq,Ord,Bounded,Show,Typeable)
data FormButtonType = FormButtonPush
| FormButtonCheck
| FormButtonRadio
deriving (Enum,Eq,Ord,Bounded,Show,Typeable)
data FormChoiceType = FormChoiceCombo
| FormChoiceList
deriving (Enum,Eq,Ord,Bounded,Show,Typeable)
data FormFieldType = FormFieldUnknown
| FormFieldButton
| FormFieldText
| FormFieldChoice
| FormFieldSignature
deriving (Enum,Eq,Ord,Bounded,Show,Typeable)
data FormTextType = FormTextNormal
| FormTextMultiline
| FormTextFileSelect
deriving (Enum,Eq,Ord,Bounded,Show,Typeable)