module Graphics.UI.Gtk.ImageView.Types (
module Graphics.UI.GtkInternals,
ImageToolDragger(ImageToolDragger), ImageToolDraggerClass,
toImageToolDragger,
mkImageToolDragger, unImageToolDragger,
castToImageToolDragger, gTypeImageToolDragger,
ImageToolSelector(ImageToolSelector), ImageToolSelectorClass,
toImageToolSelector,
mkImageToolSelector, unImageToolSelector,
castToImageToolSelector, gTypeImageToolSelector,
ImageView(ImageView), ImageViewClass,
toImageView,
mkImageView, unImageView,
castToImageView, gTypeImageView,
AnimView(AnimView), AnimViewClass,
toAnimView,
mkAnimView, unAnimView,
castToAnimView, gTypeAnimView,
ImageNav(ImageNav), ImageNavClass,
toImageNav,
mkImageNav, unImageNav,
castToImageNav, gTypeImageNav,
ImageScrollWin(ImageScrollWin), ImageScrollWinClass,
toImageScrollWin,
mkImageScrollWin, unImageScrollWin,
castToImageScrollWin, gTypeImageScrollWin,
IImageTool(IImageTool), IImageToolClass,
toIImageTool,
mkIImageTool, unIImageTool,
castToIImageTool, gTypeIImageTool
) where
import Foreign.ForeignPtr (ForeignPtr, castForeignPtr, unsafeForeignPtrToPtr)
import Foreign.C.Types (CULong, CUInt)
import System.Glib.GType (GType, typeInstanceIsA)
import Graphics.UI.GtkInternals
castTo :: (GObjectClass obj, GObjectClass obj') => GType -> String
-> (obj -> obj')
castTo gtype objTypeName obj =
case toGObject obj of
gobj@(GObject objFPtr)
| typeInstanceIsA ((unsafeForeignPtrToPtr.castForeignPtr) objFPtr) gtype
-> unsafeCastGObject gobj
| otherwise -> error $ "Cannot cast object to " ++ objTypeName
newtype ImageToolDragger = ImageToolDragger (ForeignPtr (ImageToolDragger)) deriving (Eq,Ord)
mkImageToolDragger = (ImageToolDragger, objectUnrefFromMainloop)
unImageToolDragger (ImageToolDragger o) = o
class GObjectClass o => ImageToolDraggerClass o
toImageToolDragger :: ImageToolDraggerClass o => o -> ImageToolDragger
toImageToolDragger = unsafeCastGObject . toGObject
instance ImageToolDraggerClass ImageToolDragger
instance GObjectClass ImageToolDragger where
toGObject = GObject . castForeignPtr . unImageToolDragger
unsafeCastGObject = ImageToolDragger . castForeignPtr . unGObject
castToImageToolDragger :: GObjectClass obj => obj -> ImageToolDragger
castToImageToolDragger = castTo gTypeImageToolDragger "ImageToolDragger"
gTypeImageToolDragger :: GType
gTypeImageToolDragger =
gtk_image_tool_dragger_get_type
newtype ImageToolSelector = ImageToolSelector (ForeignPtr (ImageToolSelector)) deriving (Eq,Ord)
mkImageToolSelector = (ImageToolSelector, objectUnrefFromMainloop)
unImageToolSelector (ImageToolSelector o) = o
class GObjectClass o => ImageToolSelectorClass o
toImageToolSelector :: ImageToolSelectorClass o => o -> ImageToolSelector
toImageToolSelector = unsafeCastGObject . toGObject
instance ImageToolSelectorClass ImageToolSelector
instance GObjectClass ImageToolSelector where
toGObject = GObject . castForeignPtr . unImageToolSelector
unsafeCastGObject = ImageToolSelector . castForeignPtr . unGObject
castToImageToolSelector :: GObjectClass obj => obj -> ImageToolSelector
castToImageToolSelector = castTo gTypeImageToolSelector "ImageToolSelector"
gTypeImageToolSelector :: GType
gTypeImageToolSelector =
gtk_image_tool_selector_get_type
newtype ImageView = ImageView (ForeignPtr (ImageView)) deriving (Eq,Ord)
mkImageView = (ImageView, objectUnrefFromMainloop)
unImageView (ImageView o) = o
class WidgetClass o => ImageViewClass o
toImageView :: ImageViewClass o => o -> ImageView
toImageView = unsafeCastGObject . toGObject
instance ImageViewClass ImageView
instance WidgetClass ImageView
instance ObjectClass ImageView
instance GObjectClass ImageView where
toGObject = GObject . castForeignPtr . unImageView
unsafeCastGObject = ImageView . castForeignPtr . unGObject
castToImageView :: GObjectClass obj => obj -> ImageView
castToImageView = castTo gTypeImageView "ImageView"
gTypeImageView :: GType
gTypeImageView =
gtk_image_view_get_type
newtype AnimView = AnimView (ForeignPtr (AnimView)) deriving (Eq,Ord)
mkAnimView = (AnimView, objectUnrefFromMainloop)
unAnimView (AnimView o) = o
class ImageViewClass o => AnimViewClass o
toAnimView :: AnimViewClass o => o -> AnimView
toAnimView = unsafeCastGObject . toGObject
instance AnimViewClass AnimView
instance ImageViewClass AnimView
instance WidgetClass AnimView
instance ObjectClass AnimView
instance GObjectClass AnimView where
toGObject = GObject . castForeignPtr . unAnimView
unsafeCastGObject = AnimView . castForeignPtr . unGObject
castToAnimView :: GObjectClass obj => obj -> AnimView
castToAnimView = castTo gTypeAnimView "AnimView"
gTypeAnimView :: GType
gTypeAnimView =
gtk_anim_view_get_type
newtype ImageNav = ImageNav (ForeignPtr (ImageNav)) deriving (Eq,Ord)
mkImageNav = (ImageNav, objectUnrefFromMainloop)
unImageNav (ImageNav o) = o
class WindowClass o => ImageNavClass o
toImageNav :: ImageNavClass o => o -> ImageNav
toImageNav = unsafeCastGObject . toGObject
instance ImageNavClass ImageNav
instance WindowClass ImageNav
instance BinClass ImageNav
instance ContainerClass ImageNav
instance WidgetClass ImageNav
instance ObjectClass ImageNav
instance GObjectClass ImageNav where
toGObject = GObject . castForeignPtr . unImageNav
unsafeCastGObject = ImageNav . castForeignPtr . unGObject
castToImageNav :: GObjectClass obj => obj -> ImageNav
castToImageNav = castTo gTypeImageNav "ImageNav"
gTypeImageNav :: GType
gTypeImageNav =
gtk_image_nav_get_type
newtype ImageScrollWin = ImageScrollWin (ForeignPtr (ImageScrollWin)) deriving (Eq,Ord)
mkImageScrollWin = (ImageScrollWin, objectUnrefFromMainloop)
unImageScrollWin (ImageScrollWin o) = o
class TableClass o => ImageScrollWinClass o
toImageScrollWin :: ImageScrollWinClass o => o -> ImageScrollWin
toImageScrollWin = unsafeCastGObject . toGObject
instance ImageScrollWinClass ImageScrollWin
instance TableClass ImageScrollWin
instance ContainerClass ImageScrollWin
instance WidgetClass ImageScrollWin
instance ObjectClass ImageScrollWin
instance GObjectClass ImageScrollWin where
toGObject = GObject . castForeignPtr . unImageScrollWin
unsafeCastGObject = ImageScrollWin . castForeignPtr . unGObject
castToImageScrollWin :: GObjectClass obj => obj -> ImageScrollWin
castToImageScrollWin = castTo gTypeImageScrollWin "ImageScrollWin"
gTypeImageScrollWin :: GType
gTypeImageScrollWin =
gtk_image_scroll_win_get_type
newtype IImageTool = IImageTool (ForeignPtr (IImageTool)) deriving (Eq,Ord)
mkIImageTool = (IImageTool, objectUnrefFromMainloop)
unIImageTool (IImageTool o) = o
class GObjectClass o => IImageToolClass o
toIImageTool :: IImageToolClass o => o -> IImageTool
toIImageTool = unsafeCastGObject . toGObject
instance IImageToolClass IImageTool
instance GObjectClass IImageTool where
toGObject = GObject . castForeignPtr . unIImageTool
unsafeCastGObject = IImageTool . castForeignPtr . unGObject
castToIImageTool :: GObjectClass obj => obj -> IImageTool
castToIImageTool = castTo gTypeIImageTool "IImageTool"
gTypeIImageTool :: GType
gTypeIImageTool =
gtk_iimage_tool_get_type
foreign import ccall unsafe "gtk_image_tool_dragger_get_type"
gtk_image_tool_dragger_get_type :: CUInt
foreign import ccall unsafe "gtk_image_tool_selector_get_type"
gtk_image_tool_selector_get_type :: CUInt
foreign import ccall unsafe "gtk_image_view_get_type"
gtk_image_view_get_type :: CUInt
foreign import ccall unsafe "gtk_anim_view_get_type"
gtk_anim_view_get_type :: CUInt
foreign import ccall unsafe "gtk_image_nav_get_type"
gtk_image_nav_get_type :: CUInt
foreign import ccall unsafe "gtk_image_scroll_win_get_type"
gtk_image_scroll_win_get_type :: CUInt
foreign import ccall unsafe "gtk_iimage_tool_get_type"
gtk_iimage_tool_get_type :: CUInt