module System.Gnome.VFS.Types (
module Graphics.UI.GtkInternals,
Volume(Volume), VolumeClass,
toVolume,
mkVolume, unVolume,
castToVolume, gTypeVolume,
Drive(Drive), DriveClass,
toDrive,
mkDrive, unDrive,
castToDrive, gTypeDrive,
VolumeMonitor(VolumeMonitor), VolumeMonitorClass,
toVolumeMonitor,
mkVolumeMonitor, unVolumeMonitor,
castToVolumeMonitor, gTypeVolumeMonitor
) 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 Volume = Volume (ForeignPtr (Volume)) deriving (Eq,Ord)
mkVolume = (Volume, objectUnrefFromMainloop)
unVolume (Volume o) = o
class GObjectClass o => VolumeClass o
toVolume :: VolumeClass o => o -> Volume
toVolume = unsafeCastGObject . toGObject
instance VolumeClass Volume
instance GObjectClass Volume where
toGObject = GObject . castForeignPtr . unVolume
unsafeCastGObject = Volume . castForeignPtr . unGObject
castToVolume :: GObjectClass obj => obj -> Volume
castToVolume = castTo gTypeVolume "Volume"
gTypeVolume :: GType
gTypeVolume =
gnome_vfs_volume_get_type
newtype Drive = Drive (ForeignPtr (Drive)) deriving (Eq,Ord)
mkDrive = (Drive, objectUnrefFromMainloop)
unDrive (Drive o) = o
class GObjectClass o => DriveClass o
toDrive :: DriveClass o => o -> Drive
toDrive = unsafeCastGObject . toGObject
instance DriveClass Drive
instance GObjectClass Drive where
toGObject = GObject . castForeignPtr . unDrive
unsafeCastGObject = Drive . castForeignPtr . unGObject
castToDrive :: GObjectClass obj => obj -> Drive
castToDrive = castTo gTypeDrive "Drive"
gTypeDrive :: GType
gTypeDrive =
gnome_vfs_drive_get_type
newtype VolumeMonitor = VolumeMonitor (ForeignPtr (VolumeMonitor)) deriving (Eq,Ord)
mkVolumeMonitor = (VolumeMonitor, objectUnrefFromMainloop)
unVolumeMonitor (VolumeMonitor o) = o
class GObjectClass o => VolumeMonitorClass o
toVolumeMonitor :: VolumeMonitorClass o => o -> VolumeMonitor
toVolumeMonitor = unsafeCastGObject . toGObject
instance VolumeMonitorClass VolumeMonitor
instance GObjectClass VolumeMonitor where
toGObject = GObject . castForeignPtr . unVolumeMonitor
unsafeCastGObject = VolumeMonitor . castForeignPtr . unGObject
castToVolumeMonitor :: GObjectClass obj => obj -> VolumeMonitor
castToVolumeMonitor = castTo gTypeVolumeMonitor "VolumeMonitor"
gTypeVolumeMonitor :: GType
gTypeVolumeMonitor =
gnome_vfs_volume_monitor_get_type
foreign import ccall unsafe "gnome_vfs_volume_get_type"
gnome_vfs_volume_get_type :: CUInt
foreign import ccall unsafe "gnome_vfs_drive_get_type"
gnome_vfs_drive_get_type :: CUInt
foreign import ccall unsafe "gnome_vfs_volume_monitor_get_type"
gnome_vfs_volume_monitor_get_type :: CUInt