{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gio.Objects.FileIcon
(
FileIcon(..) ,
IsFileIcon ,
toFileIcon ,
#if defined(ENABLE_OVERLOADING)
ResolveFileIconMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
FileIconGetFileMethodInfo ,
#endif
fileIconGetFile ,
fileIconNew ,
#if defined(ENABLE_OVERLOADING)
FileIconFilePropertyInfo ,
#endif
constructFileIconFile ,
#if defined(ENABLE_OVERLOADING)
fileIconFile ,
#endif
getFileIconFile ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Enums as GLib.Enums
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GLib.Structs.DateTime as GLib.DateTime
import qualified GI.GLib.Structs.PollFD as GLib.PollFD
import qualified GI.GLib.Structs.Source as GLib.Source
import qualified GI.GLib.Structs.TimeVal as GLib.TimeVal
import qualified GI.GObject.Callbacks as GObject.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Callbacks as Gio.Callbacks
import {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums
import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags
import {-# SOURCE #-} qualified GI.Gio.Interfaces.AppInfo as Gio.AppInfo
import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Drive as Gio.Drive
import {-# SOURCE #-} qualified GI.Gio.Interfaces.File as Gio.File
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Icon as Gio.Icon
import {-# SOURCE #-} qualified GI.Gio.Interfaces.LoadableIcon as Gio.LoadableIcon
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Mount as Gio.Mount
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Seekable as Gio.Seekable
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Volume as Gio.Volume
import {-# SOURCE #-} qualified GI.Gio.Objects.AppLaunchContext as Gio.AppLaunchContext
import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import {-# SOURCE #-} qualified GI.Gio.Objects.FileEnumerator as Gio.FileEnumerator
import {-# SOURCE #-} qualified GI.Gio.Objects.FileIOStream as Gio.FileIOStream
import {-# SOURCE #-} qualified GI.Gio.Objects.FileInfo as Gio.FileInfo
import {-# SOURCE #-} qualified GI.Gio.Objects.FileInputStream as Gio.FileInputStream
import {-# SOURCE #-} qualified GI.Gio.Objects.FileMonitor as Gio.FileMonitor
import {-# SOURCE #-} qualified GI.Gio.Objects.FileOutputStream as Gio.FileOutputStream
import {-# SOURCE #-} qualified GI.Gio.Objects.IOStream as Gio.IOStream
import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream
import {-# SOURCE #-} qualified GI.Gio.Objects.MountOperation as Gio.MountOperation
import {-# SOURCE #-} qualified GI.Gio.Objects.OutputStream as Gio.OutputStream
import {-# SOURCE #-} qualified GI.Gio.Structs.FileAttributeInfo as Gio.FileAttributeInfo
import {-# SOURCE #-} qualified GI.Gio.Structs.FileAttributeInfoList as Gio.FileAttributeInfoList
import {-# SOURCE #-} qualified GI.Gio.Structs.FileAttributeMatcher as Gio.FileAttributeMatcher
import {-# SOURCE #-} qualified GI.Gio.Structs.OutputVector as Gio.OutputVector
#else
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gio.Interfaces.File as Gio.File
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Icon as Gio.Icon
import {-# SOURCE #-} qualified GI.Gio.Interfaces.LoadableIcon as Gio.LoadableIcon
#endif
newtype FileIcon = FileIcon (SP.ManagedPtr FileIcon)
deriving (FileIcon -> FileIcon -> Bool
(FileIcon -> FileIcon -> Bool)
-> (FileIcon -> FileIcon -> Bool) -> Eq FileIcon
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: FileIcon -> FileIcon -> Bool
== :: FileIcon -> FileIcon -> Bool
$c/= :: FileIcon -> FileIcon -> Bool
/= :: FileIcon -> FileIcon -> Bool
Eq)
instance SP.ManagedPtrNewtype FileIcon where
toManagedPtr :: FileIcon -> ManagedPtr FileIcon
toManagedPtr (FileIcon ManagedPtr FileIcon
p) = ManagedPtr FileIcon
p
foreign import ccall "g_file_icon_get_type"
c_g_file_icon_get_type :: IO B.Types.GType
instance B.Types.TypedObject FileIcon where
glibType :: IO GType
glibType = IO GType
c_g_file_icon_get_type
instance B.Types.GObject FileIcon
class (SP.GObject o, O.IsDescendantOf FileIcon o) => IsFileIcon o
instance (SP.GObject o, O.IsDescendantOf FileIcon o) => IsFileIcon o
instance O.HasParentTypes FileIcon
type instance O.ParentTypes FileIcon = '[GObject.Object.Object, Gio.Icon.Icon, Gio.LoadableIcon.LoadableIcon]
toFileIcon :: (MIO.MonadIO m, IsFileIcon o) => o -> m FileIcon
toFileIcon :: forall (m :: * -> *) o.
(MonadIO m, IsFileIcon o) =>
o -> m FileIcon
toFileIcon = IO FileIcon -> m FileIcon
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO FileIcon -> m FileIcon)
-> (o -> IO FileIcon) -> o -> m FileIcon
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr FileIcon -> FileIcon) -> o -> IO FileIcon
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr FileIcon -> FileIcon
FileIcon
instance B.GValue.IsGValue (Maybe FileIcon) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_g_file_icon_get_type
gvalueSet_ :: Ptr GValue -> Maybe FileIcon -> IO ()
gvalueSet_ Ptr GValue
gv Maybe FileIcon
P.Nothing = Ptr GValue -> Ptr FileIcon -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr FileIcon
forall a. Ptr a
FP.nullPtr :: FP.Ptr FileIcon)
gvalueSet_ Ptr GValue
gv (P.Just FileIcon
obj) = FileIcon -> (Ptr FileIcon -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr FileIcon
obj (Ptr GValue -> Ptr FileIcon -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe FileIcon)
gvalueGet_ Ptr GValue
gv = do
ptr <- Ptr GValue -> IO (Ptr FileIcon)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr FileIcon)
if ptr /= FP.nullPtr
then P.Just <$> B.ManagedPtr.newObject FileIcon ptr
else return P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveFileIconMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveFileIconMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveFileIconMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveFileIconMethod "equal" o = Gio.Icon.IconEqualMethodInfo
ResolveFileIconMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveFileIconMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveFileIconMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveFileIconMethod "hash" o = Gio.Icon.IconHashMethodInfo
ResolveFileIconMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveFileIconMethod "load" o = Gio.LoadableIcon.LoadableIconLoadMethodInfo
ResolveFileIconMethod "loadAsync" o = Gio.LoadableIcon.LoadableIconLoadAsyncMethodInfo
ResolveFileIconMethod "loadFinish" o = Gio.LoadableIcon.LoadableIconLoadFinishMethodInfo
ResolveFileIconMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveFileIconMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveFileIconMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveFileIconMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveFileIconMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveFileIconMethod "serialize" o = Gio.Icon.IconSerializeMethodInfo
ResolveFileIconMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveFileIconMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveFileIconMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveFileIconMethod "toString" o = Gio.Icon.IconToStringMethodInfo
ResolveFileIconMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveFileIconMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveFileIconMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveFileIconMethod "getFile" o = FileIconGetFileMethodInfo
ResolveFileIconMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveFileIconMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveFileIconMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveFileIconMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveFileIconMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveFileIconMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFileIconMethod t FileIcon, O.OverloadedMethod info FileIcon p) => OL.IsLabel t (FileIcon -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveFileIconMethod t FileIcon, O.OverloadedMethod info FileIcon p, R.HasField t FileIcon p) => R.HasField t FileIcon p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveFileIconMethod t FileIcon, O.OverloadedMethodInfo info FileIcon) => OL.IsLabel t (O.MethodProxy info FileIcon) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getFileIconFile :: (MonadIO m, IsFileIcon o) => o -> m Gio.File.File
getFileIconFile :: forall (m :: * -> *) o. (MonadIO m, IsFileIcon o) => o -> m File
getFileIconFile o
obj = IO File -> m File
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO File -> m File) -> IO File -> m File
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe File) -> IO File
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getFileIconFile" (IO (Maybe File) -> IO File) -> IO (Maybe File) -> IO File
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr File -> File) -> IO (Maybe File)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"file" ManagedPtr File -> File
Gio.File.File
constructFileIconFile :: (IsFileIcon o, MIO.MonadIO m, Gio.File.IsFile a) => a -> m (GValueConstruct o)
constructFileIconFile :: forall o (m :: * -> *) a.
(IsFileIcon o, MonadIO m, IsFile a) =>
a -> m (GValueConstruct o)
constructFileIconFile a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"file" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data FileIconFilePropertyInfo
instance AttrInfo FileIconFilePropertyInfo where
type AttrAllowedOps FileIconFilePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint FileIconFilePropertyInfo = IsFileIcon
type AttrSetTypeConstraint FileIconFilePropertyInfo = Gio.File.IsFile
type AttrTransferTypeConstraint FileIconFilePropertyInfo = Gio.File.IsFile
type AttrTransferType FileIconFilePropertyInfo = Gio.File.File
type AttrGetType FileIconFilePropertyInfo = Gio.File.File
type AttrLabel FileIconFilePropertyInfo = "file"
type AttrOrigin FileIconFilePropertyInfo = FileIcon
attrGet = getFileIconFile
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo Gio.File.File v
attrConstruct = constructFileIconFile
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.FileIcon.file"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-FileIcon.html#g:attr:file"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList FileIcon
type instance O.AttributeList FileIcon = FileIconAttributeList
type FileIconAttributeList = ('[ '("file", FileIconFilePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
fileIconFile :: AttrLabelProxy "file"
fileIconFile = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList FileIcon = FileIconSignalList
type FileIconSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "g_file_icon_new" g_file_icon_new ::
Ptr Gio.File.File ->
IO (Ptr FileIcon)
fileIconNew ::
(B.CallStack.HasCallStack, MonadIO m, Gio.File.IsFile a) =>
a
-> m FileIcon
fileIconNew :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFile a) =>
a -> m FileIcon
fileIconNew a
file = IO FileIcon -> m FileIcon
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FileIcon -> m FileIcon) -> IO FileIcon -> m FileIcon
forall a b. (a -> b) -> a -> b
$ do
file' <- a -> IO (Ptr File)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
file
result <- g_file_icon_new file'
checkUnexpectedReturnNULL "fileIconNew" result
result' <- (wrapObject FileIcon) result
touchManagedPtr file
return result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "g_file_icon_get_file" g_file_icon_get_file ::
Ptr FileIcon ->
IO (Ptr Gio.File.File)
fileIconGetFile ::
(B.CallStack.HasCallStack, MonadIO m, IsFileIcon a) =>
a
-> m Gio.File.File
fileIconGetFile :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileIcon a) =>
a -> m File
fileIconGetFile a
icon = IO File -> m File
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO File -> m File) -> IO File -> m File
forall a b. (a -> b) -> a -> b
$ do
icon' <- a -> IO (Ptr FileIcon)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
icon
result <- g_file_icon_get_file icon'
checkUnexpectedReturnNULL "fileIconGetFile" result
result' <- (newObject Gio.File.File) result
touchManagedPtr icon
return result'
#if defined(ENABLE_OVERLOADING)
data FileIconGetFileMethodInfo
instance (signature ~ (m Gio.File.File), MonadIO m, IsFileIcon a) => O.OverloadedMethod FileIconGetFileMethodInfo a signature where
overloadedMethod = fileIconGetFile
instance O.OverloadedMethodInfo FileIconGetFileMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.FileIcon.fileIconGetFile",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-FileIcon.html#v:fileIconGetFile"
})
#endif