module GI.Gtk.Objects.RecentManager
(
RecentManager(..) ,
RecentManagerK ,
toRecentManager ,
noRecentManager ,
recentManagerAddFull ,
recentManagerAddItem ,
recentManagerGetDefault ,
recentManagerGetItems ,
recentManagerHasItem ,
recentManagerLookupItem ,
recentManagerMoveItem ,
recentManagerNew ,
recentManagerPurgeItems ,
recentManagerRemoveItem ,
RecentManagerFilenamePropertyInfo ,
constructRecentManagerFilename ,
getRecentManagerFilename ,
RecentManagerSizePropertyInfo ,
getRecentManagerSize ,
RecentManagerChangedCallback ,
RecentManagerChangedCallbackC ,
RecentManagerChangedSignalInfo ,
afterRecentManagerChanged ,
mkRecentManagerChangedCallback ,
noRecentManagerChangedCallback ,
onRecentManagerChanged ,
recentManagerChangedCallbackWrapper ,
recentManagerChangedClosure ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.GObject as GObject
newtype RecentManager = RecentManager (ForeignPtr RecentManager)
foreign import ccall "gtk_recent_manager_get_type"
c_gtk_recent_manager_get_type :: IO GType
type instance ParentTypes RecentManager = RecentManagerParentTypes
type RecentManagerParentTypes = '[GObject.Object]
instance GObject RecentManager where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_recent_manager_get_type
class GObject o => RecentManagerK o
instance (GObject o, IsDescendantOf RecentManager o) => RecentManagerK o
toRecentManager :: RecentManagerK o => o -> IO RecentManager
toRecentManager = unsafeCastTo RecentManager
noRecentManager :: Maybe RecentManager
noRecentManager = Nothing
type RecentManagerChangedCallback =
IO ()
noRecentManagerChangedCallback :: Maybe RecentManagerChangedCallback
noRecentManagerChangedCallback = Nothing
type RecentManagerChangedCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkRecentManagerChangedCallback :: RecentManagerChangedCallbackC -> IO (FunPtr RecentManagerChangedCallbackC)
recentManagerChangedClosure :: RecentManagerChangedCallback -> IO Closure
recentManagerChangedClosure cb = newCClosure =<< mkRecentManagerChangedCallback wrapped
where wrapped = recentManagerChangedCallbackWrapper cb
recentManagerChangedCallbackWrapper ::
RecentManagerChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
recentManagerChangedCallbackWrapper _cb _ _ = do
_cb
onRecentManagerChanged :: (GObject a, MonadIO m) => a -> RecentManagerChangedCallback -> m SignalHandlerId
onRecentManagerChanged obj cb = liftIO $ connectRecentManagerChanged obj cb SignalConnectBefore
afterRecentManagerChanged :: (GObject a, MonadIO m) => a -> RecentManagerChangedCallback -> m SignalHandlerId
afterRecentManagerChanged obj cb = connectRecentManagerChanged obj cb SignalConnectAfter
connectRecentManagerChanged :: (GObject a, MonadIO m) =>
a -> RecentManagerChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectRecentManagerChanged obj cb after = liftIO $ do
cb' <- mkRecentManagerChangedCallback (recentManagerChangedCallbackWrapper cb)
connectSignalFunPtr obj "changed" cb' after
getRecentManagerFilename :: (MonadIO m, RecentManagerK o) => o -> m T.Text
getRecentManagerFilename obj = liftIO $ getObjectPropertyString obj "filename"
constructRecentManagerFilename :: T.Text -> IO ([Char], GValue)
constructRecentManagerFilename val = constructObjectPropertyString "filename" val
data RecentManagerFilenamePropertyInfo
instance AttrInfo RecentManagerFilenamePropertyInfo where
type AttrAllowedOps RecentManagerFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint RecentManagerFilenamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint RecentManagerFilenamePropertyInfo = RecentManagerK
type AttrGetType RecentManagerFilenamePropertyInfo = T.Text
type AttrLabel RecentManagerFilenamePropertyInfo = "RecentManager::filename"
attrGet _ = getRecentManagerFilename
attrSet _ = undefined
attrConstruct _ = constructRecentManagerFilename
getRecentManagerSize :: (MonadIO m, RecentManagerK o) => o -> m Int32
getRecentManagerSize obj = liftIO $ getObjectPropertyCInt obj "size"
data RecentManagerSizePropertyInfo
instance AttrInfo RecentManagerSizePropertyInfo where
type AttrAllowedOps RecentManagerSizePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint RecentManagerSizePropertyInfo = (~) ()
type AttrBaseTypeConstraint RecentManagerSizePropertyInfo = RecentManagerK
type AttrGetType RecentManagerSizePropertyInfo = Int32
type AttrLabel RecentManagerSizePropertyInfo = "RecentManager::size"
attrGet _ = getRecentManagerSize
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList RecentManager = RecentManagerAttributeList
type RecentManagerAttributeList = ('[ '("filename", RecentManagerFilenamePropertyInfo), '("size", RecentManagerSizePropertyInfo)] :: [(Symbol, *)])
data RecentManagerChangedSignalInfo
instance SignalInfo RecentManagerChangedSignalInfo where
type HaskellCallbackType RecentManagerChangedSignalInfo = RecentManagerChangedCallback
connectSignal _ = connectRecentManagerChanged
type instance SignalList RecentManager = RecentManagerSignalList
type RecentManagerSignalList = ('[ '("changed", RecentManagerChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_recent_manager_new" gtk_recent_manager_new ::
IO (Ptr RecentManager)
recentManagerNew ::
(MonadIO m) =>
m RecentManager
recentManagerNew = liftIO $ do
result <- gtk_recent_manager_new
checkUnexpectedReturnNULL "gtk_recent_manager_new" result
result' <- (wrapObject RecentManager) result
return result'
foreign import ccall "gtk_recent_manager_add_full" gtk_recent_manager_add_full ::
Ptr RecentManager ->
CString ->
Ptr RecentData ->
IO CInt
recentManagerAddFull ::
(MonadIO m, RecentManagerK a) =>
a ->
T.Text ->
RecentData ->
m Bool
recentManagerAddFull _obj uri recent_data = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
let recent_data' = unsafeManagedPtrGetPtr recent_data
result <- gtk_recent_manager_add_full _obj' uri' recent_data'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr recent_data
freeMem uri'
return result'
foreign import ccall "gtk_recent_manager_add_item" gtk_recent_manager_add_item ::
Ptr RecentManager ->
CString ->
IO CInt
recentManagerAddItem ::
(MonadIO m, RecentManagerK a) =>
a ->
T.Text ->
m Bool
recentManagerAddItem _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
result <- gtk_recent_manager_add_item _obj' uri'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem uri'
return result'
foreign import ccall "gtk_recent_manager_get_items" gtk_recent_manager_get_items ::
Ptr RecentManager ->
IO (Ptr (GList (Ptr RecentInfo)))
recentManagerGetItems ::
(MonadIO m, RecentManagerK a) =>
a ->
m [RecentInfo]
recentManagerGetItems _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_recent_manager_get_items _obj'
checkUnexpectedReturnNULL "gtk_recent_manager_get_items" result
result' <- unpackGList result
result'' <- mapM (wrapBoxed RecentInfo) result'
g_list_free result
touchManagedPtr _obj
return result''
foreign import ccall "gtk_recent_manager_has_item" gtk_recent_manager_has_item ::
Ptr RecentManager ->
CString ->
IO CInt
recentManagerHasItem ::
(MonadIO m, RecentManagerK a) =>
a ->
T.Text ->
m Bool
recentManagerHasItem _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
result <- gtk_recent_manager_has_item _obj' uri'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem uri'
return result'
foreign import ccall "gtk_recent_manager_lookup_item" gtk_recent_manager_lookup_item ::
Ptr RecentManager ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr RecentInfo)
recentManagerLookupItem ::
(MonadIO m, RecentManagerK a) =>
a ->
T.Text ->
m RecentInfo
recentManagerLookupItem _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
onException (do
result <- propagateGError $ gtk_recent_manager_lookup_item _obj' uri'
checkUnexpectedReturnNULL "gtk_recent_manager_lookup_item" result
result' <- (wrapBoxed RecentInfo) result
touchManagedPtr _obj
freeMem uri'
return result'
) (do
freeMem uri'
)
foreign import ccall "gtk_recent_manager_move_item" gtk_recent_manager_move_item ::
Ptr RecentManager ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO CInt
recentManagerMoveItem ::
(MonadIO m, RecentManagerK a) =>
a ->
T.Text ->
Maybe (T.Text) ->
m ()
recentManagerMoveItem _obj uri new_uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
maybeNew_uri <- case new_uri of
Nothing -> return nullPtr
Just jNew_uri -> do
jNew_uri' <- textToCString jNew_uri
return jNew_uri'
onException (do
_ <- propagateGError $ gtk_recent_manager_move_item _obj' uri' maybeNew_uri
touchManagedPtr _obj
freeMem uri'
freeMem maybeNew_uri
return ()
) (do
freeMem uri'
freeMem maybeNew_uri
)
foreign import ccall "gtk_recent_manager_purge_items" gtk_recent_manager_purge_items ::
Ptr RecentManager ->
Ptr (Ptr GError) ->
IO Int32
recentManagerPurgeItems ::
(MonadIO m, RecentManagerK a) =>
a ->
m Int32
recentManagerPurgeItems _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ gtk_recent_manager_purge_items _obj'
touchManagedPtr _obj
return result
) (do
return ()
)
foreign import ccall "gtk_recent_manager_remove_item" gtk_recent_manager_remove_item ::
Ptr RecentManager ->
CString ->
Ptr (Ptr GError) ->
IO CInt
recentManagerRemoveItem ::
(MonadIO m, RecentManagerK a) =>
a ->
T.Text ->
m ()
recentManagerRemoveItem _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
onException (do
_ <- propagateGError $ gtk_recent_manager_remove_item _obj' uri'
touchManagedPtr _obj
freeMem uri'
return ()
) (do
freeMem uri'
)
foreign import ccall "gtk_recent_manager_get_default" gtk_recent_manager_get_default ::
IO (Ptr RecentManager)
recentManagerGetDefault ::
(MonadIO m) =>
m RecentManager
recentManagerGetDefault = liftIO $ do
result <- gtk_recent_manager_get_default
checkUnexpectedReturnNULL "gtk_recent_manager_get_default" result
result' <- (newObject RecentManager) result
return result'