{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.PlacesSidebar
(
PlacesSidebar(..) ,
IsPlacesSidebar ,
toPlacesSidebar ,
#if defined(ENABLE_OVERLOADING)
ResolvePlacesSidebarMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
PlacesSidebarAddShortcutMethodInfo ,
#endif
placesSidebarAddShortcut ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarGetLocalOnlyMethodInfo ,
#endif
placesSidebarGetLocalOnly ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarGetLocationMethodInfo ,
#endif
placesSidebarGetLocation ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarGetNthBookmarkMethodInfo ,
#endif
placesSidebarGetNthBookmark ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarGetOpenFlagsMethodInfo ,
#endif
placesSidebarGetOpenFlags ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarGetShowConnectToServerMethodInfo,
#endif
placesSidebarGetShowConnectToServer ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarGetShowDesktopMethodInfo ,
#endif
placesSidebarGetShowDesktop ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarGetShowEnterLocationMethodInfo,
#endif
placesSidebarGetShowEnterLocation ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarGetShowOtherLocationsMethodInfo,
#endif
placesSidebarGetShowOtherLocations ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarGetShowRecentMethodInfo ,
#endif
placesSidebarGetShowRecent ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarGetShowStarredLocationMethodInfo,
#endif
placesSidebarGetShowStarredLocation ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarGetShowTrashMethodInfo ,
#endif
placesSidebarGetShowTrash ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarListShortcutsMethodInfo ,
#endif
placesSidebarListShortcuts ,
placesSidebarNew ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarRemoveShortcutMethodInfo ,
#endif
placesSidebarRemoveShortcut ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarSetDropTargetsVisibleMethodInfo,
#endif
placesSidebarSetDropTargetsVisible ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarSetLocalOnlyMethodInfo ,
#endif
placesSidebarSetLocalOnly ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarSetLocationMethodInfo ,
#endif
placesSidebarSetLocation ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarSetOpenFlagsMethodInfo ,
#endif
placesSidebarSetOpenFlags ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarSetShowConnectToServerMethodInfo,
#endif
placesSidebarSetShowConnectToServer ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarSetShowDesktopMethodInfo ,
#endif
placesSidebarSetShowDesktop ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarSetShowEnterLocationMethodInfo,
#endif
placesSidebarSetShowEnterLocation ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarSetShowOtherLocationsMethodInfo,
#endif
placesSidebarSetShowOtherLocations ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarSetShowRecentMethodInfo ,
#endif
placesSidebarSetShowRecent ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarSetShowStarredLocationMethodInfo,
#endif
placesSidebarSetShowStarredLocation ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarSetShowTrashMethodInfo ,
#endif
placesSidebarSetShowTrash ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarLocalOnlyPropertyInfo ,
#endif
constructPlacesSidebarLocalOnly ,
getPlacesSidebarLocalOnly ,
#if defined(ENABLE_OVERLOADING)
placesSidebarLocalOnly ,
#endif
setPlacesSidebarLocalOnly ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarLocationPropertyInfo ,
#endif
clearPlacesSidebarLocation ,
constructPlacesSidebarLocation ,
getPlacesSidebarLocation ,
#if defined(ENABLE_OVERLOADING)
placesSidebarLocation ,
#endif
setPlacesSidebarLocation ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarOpenFlagsPropertyInfo ,
#endif
constructPlacesSidebarOpenFlags ,
getPlacesSidebarOpenFlags ,
#if defined(ENABLE_OVERLOADING)
placesSidebarOpenFlags ,
#endif
setPlacesSidebarOpenFlags ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarPopulateAllPropertyInfo ,
#endif
constructPlacesSidebarPopulateAll ,
getPlacesSidebarPopulateAll ,
#if defined(ENABLE_OVERLOADING)
placesSidebarPopulateAll ,
#endif
setPlacesSidebarPopulateAll ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarShowConnectToServerPropertyInfo,
#endif
constructPlacesSidebarShowConnectToServer,
getPlacesSidebarShowConnectToServer ,
#if defined(ENABLE_OVERLOADING)
placesSidebarShowConnectToServer ,
#endif
setPlacesSidebarShowConnectToServer ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarShowDesktopPropertyInfo ,
#endif
constructPlacesSidebarShowDesktop ,
getPlacesSidebarShowDesktop ,
#if defined(ENABLE_OVERLOADING)
placesSidebarShowDesktop ,
#endif
setPlacesSidebarShowDesktop ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarShowEnterLocationPropertyInfo,
#endif
constructPlacesSidebarShowEnterLocation ,
getPlacesSidebarShowEnterLocation ,
#if defined(ENABLE_OVERLOADING)
placesSidebarShowEnterLocation ,
#endif
setPlacesSidebarShowEnterLocation ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarShowOtherLocationsPropertyInfo,
#endif
constructPlacesSidebarShowOtherLocations,
getPlacesSidebarShowOtherLocations ,
#if defined(ENABLE_OVERLOADING)
placesSidebarShowOtherLocations ,
#endif
setPlacesSidebarShowOtherLocations ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarShowRecentPropertyInfo ,
#endif
constructPlacesSidebarShowRecent ,
getPlacesSidebarShowRecent ,
#if defined(ENABLE_OVERLOADING)
placesSidebarShowRecent ,
#endif
setPlacesSidebarShowRecent ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarShowStarredLocationPropertyInfo,
#endif
constructPlacesSidebarShowStarredLocation,
getPlacesSidebarShowStarredLocation ,
#if defined(ENABLE_OVERLOADING)
placesSidebarShowStarredLocation ,
#endif
setPlacesSidebarShowStarredLocation ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarShowTrashPropertyInfo ,
#endif
constructPlacesSidebarShowTrash ,
getPlacesSidebarShowTrash ,
#if defined(ENABLE_OVERLOADING)
placesSidebarShowTrash ,
#endif
setPlacesSidebarShowTrash ,
C_PlacesSidebarDragActionAskCallback ,
PlacesSidebarDragActionAskCallback ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarDragActionAskSignalInfo ,
#endif
afterPlacesSidebarDragActionAsk ,
genClosure_PlacesSidebarDragActionAsk ,
mk_PlacesSidebarDragActionAskCallback ,
noPlacesSidebarDragActionAskCallback ,
onPlacesSidebarDragActionAsk ,
wrap_PlacesSidebarDragActionAskCallback ,
C_PlacesSidebarDragActionRequestedCallback,
PlacesSidebarDragActionRequestedCallback,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarDragActionRequestedSignalInfo,
#endif
afterPlacesSidebarDragActionRequested ,
genClosure_PlacesSidebarDragActionRequested,
mk_PlacesSidebarDragActionRequestedCallback,
noPlacesSidebarDragActionRequestedCallback,
onPlacesSidebarDragActionRequested ,
wrap_PlacesSidebarDragActionRequestedCallback,
C_PlacesSidebarDragPerformDropCallback ,
PlacesSidebarDragPerformDropCallback ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarDragPerformDropSignalInfo ,
#endif
afterPlacesSidebarDragPerformDrop ,
genClosure_PlacesSidebarDragPerformDrop ,
mk_PlacesSidebarDragPerformDropCallback ,
noPlacesSidebarDragPerformDropCallback ,
onPlacesSidebarDragPerformDrop ,
wrap_PlacesSidebarDragPerformDropCallback,
C_PlacesSidebarMountCallback ,
PlacesSidebarMountCallback ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarMountSignalInfo ,
#endif
afterPlacesSidebarMount ,
genClosure_PlacesSidebarMount ,
mk_PlacesSidebarMountCallback ,
noPlacesSidebarMountCallback ,
onPlacesSidebarMount ,
wrap_PlacesSidebarMountCallback ,
C_PlacesSidebarOpenLocationCallback ,
PlacesSidebarOpenLocationCallback ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarOpenLocationSignalInfo ,
#endif
afterPlacesSidebarOpenLocation ,
genClosure_PlacesSidebarOpenLocation ,
mk_PlacesSidebarOpenLocationCallback ,
noPlacesSidebarOpenLocationCallback ,
onPlacesSidebarOpenLocation ,
wrap_PlacesSidebarOpenLocationCallback ,
C_PlacesSidebarPopulatePopupCallback ,
PlacesSidebarPopulatePopupCallback ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarPopulatePopupSignalInfo ,
#endif
afterPlacesSidebarPopulatePopup ,
genClosure_PlacesSidebarPopulatePopup ,
mk_PlacesSidebarPopulatePopupCallback ,
noPlacesSidebarPopulatePopupCallback ,
onPlacesSidebarPopulatePopup ,
wrap_PlacesSidebarPopulatePopupCallback ,
C_PlacesSidebarShowConnectToServerCallback,
PlacesSidebarShowConnectToServerCallback,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarShowConnectToServerSignalInfo,
#endif
afterPlacesSidebarShowConnectToServer ,
genClosure_PlacesSidebarShowConnectToServer,
mk_PlacesSidebarShowConnectToServerCallback,
noPlacesSidebarShowConnectToServerCallback,
onPlacesSidebarShowConnectToServer ,
wrap_PlacesSidebarShowConnectToServerCallback,
C_PlacesSidebarShowEnterLocationCallback,
PlacesSidebarShowEnterLocationCallback ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarShowEnterLocationSignalInfo,
#endif
afterPlacesSidebarShowEnterLocation ,
genClosure_PlacesSidebarShowEnterLocation,
mk_PlacesSidebarShowEnterLocationCallback,
noPlacesSidebarShowEnterLocationCallback,
onPlacesSidebarShowEnterLocation ,
wrap_PlacesSidebarShowEnterLocationCallback,
C_PlacesSidebarShowErrorMessageCallback ,
PlacesSidebarShowErrorMessageCallback ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarShowErrorMessageSignalInfo ,
#endif
afterPlacesSidebarShowErrorMessage ,
genClosure_PlacesSidebarShowErrorMessage,
mk_PlacesSidebarShowErrorMessageCallback,
noPlacesSidebarShowErrorMessageCallback ,
onPlacesSidebarShowErrorMessage ,
wrap_PlacesSidebarShowErrorMessageCallback,
C_PlacesSidebarShowOtherLocationsCallback,
PlacesSidebarShowOtherLocationsCallback ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarShowOtherLocationsSignalInfo,
#endif
afterPlacesSidebarShowOtherLocations ,
genClosure_PlacesSidebarShowOtherLocations,
mk_PlacesSidebarShowOtherLocationsCallback,
noPlacesSidebarShowOtherLocationsCallback,
onPlacesSidebarShowOtherLocations ,
wrap_PlacesSidebarShowOtherLocationsCallback,
C_PlacesSidebarShowOtherLocationsWithFlagsCallback,
PlacesSidebarShowOtherLocationsWithFlagsCallback,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarShowOtherLocationsWithFlagsSignalInfo,
#endif
afterPlacesSidebarShowOtherLocationsWithFlags,
genClosure_PlacesSidebarShowOtherLocationsWithFlags,
mk_PlacesSidebarShowOtherLocationsWithFlagsCallback,
noPlacesSidebarShowOtherLocationsWithFlagsCallback,
onPlacesSidebarShowOtherLocationsWithFlags,
wrap_PlacesSidebarShowOtherLocationsWithFlagsCallback,
C_PlacesSidebarShowStarredLocationCallback,
PlacesSidebarShowStarredLocationCallback,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarShowStarredLocationSignalInfo,
#endif
afterPlacesSidebarShowStarredLocation ,
genClosure_PlacesSidebarShowStarredLocation,
mk_PlacesSidebarShowStarredLocationCallback,
noPlacesSidebarShowStarredLocationCallback,
onPlacesSidebarShowStarredLocation ,
wrap_PlacesSidebarShowStarredLocationCallback,
C_PlacesSidebarUnmountCallback ,
PlacesSidebarUnmountCallback ,
#if defined(ENABLE_OVERLOADING)
PlacesSidebarUnmountSignalInfo ,
#endif
afterPlacesSidebarUnmount ,
genClosure_PlacesSidebarUnmount ,
mk_PlacesSidebarUnmountCallback ,
noPlacesSidebarUnmountCallback ,
onPlacesSidebarUnmount ,
wrap_PlacesSidebarUnmountCallback ,
) 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.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.Text as T
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 GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Objects.DragContext as Gdk.DragContext
import qualified GI.Gio.Interfaces.File as Gio.File
import qualified GI.Gio.Interfaces.Volume as Gio.Volume
import qualified GI.Gio.Objects.MountOperation as Gio.MountOperation
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Bin as Gtk.Bin
import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.ScrolledWindow as Gtk.ScrolledWindow
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype = (SP.ManagedPtr PlacesSidebar)
deriving (PlacesSidebar -> PlacesSidebar -> Bool
(PlacesSidebar -> PlacesSidebar -> Bool)
-> (PlacesSidebar -> PlacesSidebar -> Bool) -> Eq PlacesSidebar
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PlacesSidebar -> PlacesSidebar -> Bool
$c/= :: PlacesSidebar -> PlacesSidebar -> Bool
== :: PlacesSidebar -> PlacesSidebar -> Bool
$c== :: PlacesSidebar -> PlacesSidebar -> Bool
Eq)
instance SP.ManagedPtrNewtype PlacesSidebar where
toManagedPtr :: PlacesSidebar -> ManagedPtr PlacesSidebar
toManagedPtr (PlacesSidebar ManagedPtr PlacesSidebar
p) = ManagedPtr PlacesSidebar
p
foreign import ccall "gtk_places_sidebar_get_type"
:: IO B.Types.GType
instance B.Types.TypedObject PlacesSidebar where
glibType :: IO GType
glibType = IO GType
c_gtk_places_sidebar_get_type
instance B.Types.GObject PlacesSidebar
class (SP.GObject o, O.IsDescendantOf PlacesSidebar o) => o
instance (SP.GObject o, O.IsDescendantOf PlacesSidebar o) => IsPlacesSidebar o
instance O.HasParentTypes PlacesSidebar
type instance O.ParentTypes PlacesSidebar = '[Gtk.ScrolledWindow.ScrolledWindow, Gtk.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
toPlacesSidebar :: (MIO.MonadIO m, IsPlacesSidebar o) => o -> m PlacesSidebar
= IO PlacesSidebar -> m PlacesSidebar
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO PlacesSidebar -> m PlacesSidebar)
-> (o -> IO PlacesSidebar) -> o -> m PlacesSidebar
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr PlacesSidebar -> PlacesSidebar)
-> o -> IO PlacesSidebar
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr PlacesSidebar -> PlacesSidebar
PlacesSidebar
instance B.GValue.IsGValue (Maybe PlacesSidebar) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_places_sidebar_get_type
gvalueSet_ :: Ptr GValue -> Maybe PlacesSidebar -> IO ()
gvalueSet_ Ptr GValue
gv Maybe PlacesSidebar
P.Nothing = Ptr GValue -> Ptr PlacesSidebar -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr PlacesSidebar
forall a. Ptr a
FP.nullPtr :: FP.Ptr PlacesSidebar)
gvalueSet_ Ptr GValue
gv (P.Just PlacesSidebar
obj) = PlacesSidebar -> (Ptr PlacesSidebar -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr PlacesSidebar
obj (Ptr GValue -> Ptr PlacesSidebar -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe PlacesSidebar)
gvalueGet_ Ptr GValue
gv = do
Ptr PlacesSidebar
ptr <- Ptr GValue -> IO (Ptr PlacesSidebar)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr PlacesSidebar)
if Ptr PlacesSidebar
ptr Ptr PlacesSidebar -> Ptr PlacesSidebar -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr PlacesSidebar
forall a. Ptr a
FP.nullPtr
then PlacesSidebar -> Maybe PlacesSidebar
forall a. a -> Maybe a
P.Just (PlacesSidebar -> Maybe PlacesSidebar)
-> IO PlacesSidebar -> IO (Maybe PlacesSidebar)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr PlacesSidebar -> PlacesSidebar)
-> Ptr PlacesSidebar -> IO PlacesSidebar
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr PlacesSidebar -> PlacesSidebar
PlacesSidebar Ptr PlacesSidebar
ptr
else Maybe PlacesSidebar -> IO (Maybe PlacesSidebar)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe PlacesSidebar
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolvePlacesSidebarMethod (t :: Symbol) (o :: *) :: * where
ResolvePlacesSidebarMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolvePlacesSidebarMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolvePlacesSidebarMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolvePlacesSidebarMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolvePlacesSidebarMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolvePlacesSidebarMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolvePlacesSidebarMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolvePlacesSidebarMethod "addShortcut" o = PlacesSidebarAddShortcutMethodInfo
ResolvePlacesSidebarMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolvePlacesSidebarMethod "addWithViewport" o = Gtk.ScrolledWindow.ScrolledWindowAddWithViewportMethodInfo
ResolvePlacesSidebarMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolvePlacesSidebarMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolvePlacesSidebarMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolvePlacesSidebarMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo
ResolvePlacesSidebarMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolvePlacesSidebarMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo
ResolvePlacesSidebarMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo
ResolvePlacesSidebarMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo
ResolvePlacesSidebarMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo
ResolvePlacesSidebarMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolvePlacesSidebarMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolvePlacesSidebarMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolvePlacesSidebarMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolvePlacesSidebarMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolvePlacesSidebarMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolvePlacesSidebarMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolvePlacesSidebarMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolvePlacesSidebarMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolvePlacesSidebarMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolvePlacesSidebarMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolvePlacesSidebarMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolvePlacesSidebarMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolvePlacesSidebarMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolvePlacesSidebarMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolvePlacesSidebarMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolvePlacesSidebarMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolvePlacesSidebarMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolvePlacesSidebarMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolvePlacesSidebarMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolvePlacesSidebarMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolvePlacesSidebarMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolvePlacesSidebarMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolvePlacesSidebarMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolvePlacesSidebarMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolvePlacesSidebarMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolvePlacesSidebarMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolvePlacesSidebarMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolvePlacesSidebarMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolvePlacesSidebarMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolvePlacesSidebarMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolvePlacesSidebarMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolvePlacesSidebarMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolvePlacesSidebarMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolvePlacesSidebarMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolvePlacesSidebarMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolvePlacesSidebarMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolvePlacesSidebarMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolvePlacesSidebarMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolvePlacesSidebarMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolvePlacesSidebarMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolvePlacesSidebarMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolvePlacesSidebarMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolvePlacesSidebarMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolvePlacesSidebarMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolvePlacesSidebarMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolvePlacesSidebarMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolvePlacesSidebarMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolvePlacesSidebarMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolvePlacesSidebarMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolvePlacesSidebarMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolvePlacesSidebarMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolvePlacesSidebarMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolvePlacesSidebarMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolvePlacesSidebarMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolvePlacesSidebarMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolvePlacesSidebarMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolvePlacesSidebarMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolvePlacesSidebarMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolvePlacesSidebarMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolvePlacesSidebarMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolvePlacesSidebarMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolvePlacesSidebarMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolvePlacesSidebarMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolvePlacesSidebarMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolvePlacesSidebarMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolvePlacesSidebarMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolvePlacesSidebarMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolvePlacesSidebarMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolvePlacesSidebarMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolvePlacesSidebarMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolvePlacesSidebarMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolvePlacesSidebarMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolvePlacesSidebarMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolvePlacesSidebarMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolvePlacesSidebarMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolvePlacesSidebarMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolvePlacesSidebarMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolvePlacesSidebarMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolvePlacesSidebarMethod "listShortcuts" o = PlacesSidebarListShortcutsMethodInfo
ResolvePlacesSidebarMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolvePlacesSidebarMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolvePlacesSidebarMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolvePlacesSidebarMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolvePlacesSidebarMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolvePlacesSidebarMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolvePlacesSidebarMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolvePlacesSidebarMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolvePlacesSidebarMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolvePlacesSidebarMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolvePlacesSidebarMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolvePlacesSidebarMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolvePlacesSidebarMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolvePlacesSidebarMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolvePlacesSidebarMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolvePlacesSidebarMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolvePlacesSidebarMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolvePlacesSidebarMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolvePlacesSidebarMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo
ResolvePlacesSidebarMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolvePlacesSidebarMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolvePlacesSidebarMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolvePlacesSidebarMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolvePlacesSidebarMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolvePlacesSidebarMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolvePlacesSidebarMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolvePlacesSidebarMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolvePlacesSidebarMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolvePlacesSidebarMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolvePlacesSidebarMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolvePlacesSidebarMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolvePlacesSidebarMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolvePlacesSidebarMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolvePlacesSidebarMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolvePlacesSidebarMethod "removeShortcut" o = PlacesSidebarRemoveShortcutMethodInfo
ResolvePlacesSidebarMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolvePlacesSidebarMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolvePlacesSidebarMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolvePlacesSidebarMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolvePlacesSidebarMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolvePlacesSidebarMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolvePlacesSidebarMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo
ResolvePlacesSidebarMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolvePlacesSidebarMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolvePlacesSidebarMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolvePlacesSidebarMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolvePlacesSidebarMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolvePlacesSidebarMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolvePlacesSidebarMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolvePlacesSidebarMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolvePlacesSidebarMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolvePlacesSidebarMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolvePlacesSidebarMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolvePlacesSidebarMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolvePlacesSidebarMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolvePlacesSidebarMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolvePlacesSidebarMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolvePlacesSidebarMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolvePlacesSidebarMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolvePlacesSidebarMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolvePlacesSidebarMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolvePlacesSidebarMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolvePlacesSidebarMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolvePlacesSidebarMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolvePlacesSidebarMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolvePlacesSidebarMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo
ResolvePlacesSidebarMethod "unsetPlacement" o = Gtk.ScrolledWindow.ScrolledWindowUnsetPlacementMethodInfo
ResolvePlacesSidebarMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolvePlacesSidebarMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolvePlacesSidebarMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolvePlacesSidebarMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolvePlacesSidebarMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolvePlacesSidebarMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolvePlacesSidebarMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolvePlacesSidebarMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolvePlacesSidebarMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolvePlacesSidebarMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolvePlacesSidebarMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolvePlacesSidebarMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo
ResolvePlacesSidebarMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolvePlacesSidebarMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolvePlacesSidebarMethod "getCaptureButtonPress" o = Gtk.ScrolledWindow.ScrolledWindowGetCaptureButtonPressMethodInfo
ResolvePlacesSidebarMethod "getChild" o = Gtk.Bin.BinGetChildMethodInfo
ResolvePlacesSidebarMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolvePlacesSidebarMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolvePlacesSidebarMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolvePlacesSidebarMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolvePlacesSidebarMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolvePlacesSidebarMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolvePlacesSidebarMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolvePlacesSidebarMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolvePlacesSidebarMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolvePlacesSidebarMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolvePlacesSidebarMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolvePlacesSidebarMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolvePlacesSidebarMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolvePlacesSidebarMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo
ResolvePlacesSidebarMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo
ResolvePlacesSidebarMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolvePlacesSidebarMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolvePlacesSidebarMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolvePlacesSidebarMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolvePlacesSidebarMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolvePlacesSidebarMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolvePlacesSidebarMethod "getHadjustment" o = Gtk.ScrolledWindow.ScrolledWindowGetHadjustmentMethodInfo
ResolvePlacesSidebarMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolvePlacesSidebarMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolvePlacesSidebarMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolvePlacesSidebarMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolvePlacesSidebarMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolvePlacesSidebarMethod "getHscrollbar" o = Gtk.ScrolledWindow.ScrolledWindowGetHscrollbarMethodInfo
ResolvePlacesSidebarMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolvePlacesSidebarMethod "getKineticScrolling" o = Gtk.ScrolledWindow.ScrolledWindowGetKineticScrollingMethodInfo
ResolvePlacesSidebarMethod "getLocalOnly" o = PlacesSidebarGetLocalOnlyMethodInfo
ResolvePlacesSidebarMethod "getLocation" o = PlacesSidebarGetLocationMethodInfo
ResolvePlacesSidebarMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolvePlacesSidebarMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolvePlacesSidebarMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolvePlacesSidebarMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolvePlacesSidebarMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolvePlacesSidebarMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolvePlacesSidebarMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolvePlacesSidebarMethod "getMaxContentHeight" o = Gtk.ScrolledWindow.ScrolledWindowGetMaxContentHeightMethodInfo
ResolvePlacesSidebarMethod "getMaxContentWidth" o = Gtk.ScrolledWindow.ScrolledWindowGetMaxContentWidthMethodInfo
ResolvePlacesSidebarMethod "getMinContentHeight" o = Gtk.ScrolledWindow.ScrolledWindowGetMinContentHeightMethodInfo
ResolvePlacesSidebarMethod "getMinContentWidth" o = Gtk.ScrolledWindow.ScrolledWindowGetMinContentWidthMethodInfo
ResolvePlacesSidebarMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolvePlacesSidebarMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolvePlacesSidebarMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolvePlacesSidebarMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolvePlacesSidebarMethod "getNthBookmark" o = PlacesSidebarGetNthBookmarkMethodInfo
ResolvePlacesSidebarMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolvePlacesSidebarMethod "getOpenFlags" o = PlacesSidebarGetOpenFlagsMethodInfo
ResolvePlacesSidebarMethod "getOverlayScrolling" o = Gtk.ScrolledWindow.ScrolledWindowGetOverlayScrollingMethodInfo
ResolvePlacesSidebarMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolvePlacesSidebarMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolvePlacesSidebarMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolvePlacesSidebarMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolvePlacesSidebarMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolvePlacesSidebarMethod "getPlacement" o = Gtk.ScrolledWindow.ScrolledWindowGetPlacementMethodInfo
ResolvePlacesSidebarMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolvePlacesSidebarMethod "getPolicy" o = Gtk.ScrolledWindow.ScrolledWindowGetPolicyMethodInfo
ResolvePlacesSidebarMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolvePlacesSidebarMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolvePlacesSidebarMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolvePlacesSidebarMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolvePlacesSidebarMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolvePlacesSidebarMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolvePlacesSidebarMethod "getPropagateNaturalHeight" o = Gtk.ScrolledWindow.ScrolledWindowGetPropagateNaturalHeightMethodInfo
ResolvePlacesSidebarMethod "getPropagateNaturalWidth" o = Gtk.ScrolledWindow.ScrolledWindowGetPropagateNaturalWidthMethodInfo
ResolvePlacesSidebarMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolvePlacesSidebarMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolvePlacesSidebarMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolvePlacesSidebarMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolvePlacesSidebarMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolvePlacesSidebarMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolvePlacesSidebarMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo
ResolvePlacesSidebarMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolvePlacesSidebarMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolvePlacesSidebarMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolvePlacesSidebarMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolvePlacesSidebarMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolvePlacesSidebarMethod "getShadowType" o = Gtk.ScrolledWindow.ScrolledWindowGetShadowTypeMethodInfo
ResolvePlacesSidebarMethod "getShowConnectToServer" o = PlacesSidebarGetShowConnectToServerMethodInfo
ResolvePlacesSidebarMethod "getShowDesktop" o = PlacesSidebarGetShowDesktopMethodInfo
ResolvePlacesSidebarMethod "getShowEnterLocation" o = PlacesSidebarGetShowEnterLocationMethodInfo
ResolvePlacesSidebarMethod "getShowOtherLocations" o = PlacesSidebarGetShowOtherLocationsMethodInfo
ResolvePlacesSidebarMethod "getShowRecent" o = PlacesSidebarGetShowRecentMethodInfo
ResolvePlacesSidebarMethod "getShowStarredLocation" o = PlacesSidebarGetShowStarredLocationMethodInfo
ResolvePlacesSidebarMethod "getShowTrash" o = PlacesSidebarGetShowTrashMethodInfo
ResolvePlacesSidebarMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolvePlacesSidebarMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolvePlacesSidebarMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolvePlacesSidebarMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolvePlacesSidebarMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolvePlacesSidebarMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolvePlacesSidebarMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolvePlacesSidebarMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolvePlacesSidebarMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolvePlacesSidebarMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolvePlacesSidebarMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolvePlacesSidebarMethod "getVadjustment" o = Gtk.ScrolledWindow.ScrolledWindowGetVadjustmentMethodInfo
ResolvePlacesSidebarMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolvePlacesSidebarMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolvePlacesSidebarMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolvePlacesSidebarMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolvePlacesSidebarMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolvePlacesSidebarMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolvePlacesSidebarMethod "getVscrollbar" o = Gtk.ScrolledWindow.ScrolledWindowGetVscrollbarMethodInfo
ResolvePlacesSidebarMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolvePlacesSidebarMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolvePlacesSidebarMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolvePlacesSidebarMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolvePlacesSidebarMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo
ResolvePlacesSidebarMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolvePlacesSidebarMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolvePlacesSidebarMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolvePlacesSidebarMethod "setCaptureButtonPress" o = Gtk.ScrolledWindow.ScrolledWindowSetCaptureButtonPressMethodInfo
ResolvePlacesSidebarMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolvePlacesSidebarMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolvePlacesSidebarMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolvePlacesSidebarMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolvePlacesSidebarMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolvePlacesSidebarMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolvePlacesSidebarMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolvePlacesSidebarMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolvePlacesSidebarMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolvePlacesSidebarMethod "setDropTargetsVisible" o = PlacesSidebarSetDropTargetsVisibleMethodInfo
ResolvePlacesSidebarMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolvePlacesSidebarMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo
ResolvePlacesSidebarMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo
ResolvePlacesSidebarMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolvePlacesSidebarMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolvePlacesSidebarMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolvePlacesSidebarMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolvePlacesSidebarMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolvePlacesSidebarMethod "setHadjustment" o = Gtk.ScrolledWindow.ScrolledWindowSetHadjustmentMethodInfo
ResolvePlacesSidebarMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolvePlacesSidebarMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolvePlacesSidebarMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolvePlacesSidebarMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolvePlacesSidebarMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolvePlacesSidebarMethod "setKineticScrolling" o = Gtk.ScrolledWindow.ScrolledWindowSetKineticScrollingMethodInfo
ResolvePlacesSidebarMethod "setLocalOnly" o = PlacesSidebarSetLocalOnlyMethodInfo
ResolvePlacesSidebarMethod "setLocation" o = PlacesSidebarSetLocationMethodInfo
ResolvePlacesSidebarMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolvePlacesSidebarMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolvePlacesSidebarMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolvePlacesSidebarMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolvePlacesSidebarMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolvePlacesSidebarMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolvePlacesSidebarMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolvePlacesSidebarMethod "setMaxContentHeight" o = Gtk.ScrolledWindow.ScrolledWindowSetMaxContentHeightMethodInfo
ResolvePlacesSidebarMethod "setMaxContentWidth" o = Gtk.ScrolledWindow.ScrolledWindowSetMaxContentWidthMethodInfo
ResolvePlacesSidebarMethod "setMinContentHeight" o = Gtk.ScrolledWindow.ScrolledWindowSetMinContentHeightMethodInfo
ResolvePlacesSidebarMethod "setMinContentWidth" o = Gtk.ScrolledWindow.ScrolledWindowSetMinContentWidthMethodInfo
ResolvePlacesSidebarMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolvePlacesSidebarMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolvePlacesSidebarMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolvePlacesSidebarMethod "setOpenFlags" o = PlacesSidebarSetOpenFlagsMethodInfo
ResolvePlacesSidebarMethod "setOverlayScrolling" o = Gtk.ScrolledWindow.ScrolledWindowSetOverlayScrollingMethodInfo
ResolvePlacesSidebarMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolvePlacesSidebarMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolvePlacesSidebarMethod "setPlacement" o = Gtk.ScrolledWindow.ScrolledWindowSetPlacementMethodInfo
ResolvePlacesSidebarMethod "setPolicy" o = Gtk.ScrolledWindow.ScrolledWindowSetPolicyMethodInfo
ResolvePlacesSidebarMethod "setPropagateNaturalHeight" o = Gtk.ScrolledWindow.ScrolledWindowSetPropagateNaturalHeightMethodInfo
ResolvePlacesSidebarMethod "setPropagateNaturalWidth" o = Gtk.ScrolledWindow.ScrolledWindowSetPropagateNaturalWidthMethodInfo
ResolvePlacesSidebarMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolvePlacesSidebarMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolvePlacesSidebarMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo
ResolvePlacesSidebarMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolvePlacesSidebarMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolvePlacesSidebarMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo
ResolvePlacesSidebarMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolvePlacesSidebarMethod "setShadowType" o = Gtk.ScrolledWindow.ScrolledWindowSetShadowTypeMethodInfo
ResolvePlacesSidebarMethod "setShowConnectToServer" o = PlacesSidebarSetShowConnectToServerMethodInfo
ResolvePlacesSidebarMethod "setShowDesktop" o = PlacesSidebarSetShowDesktopMethodInfo
ResolvePlacesSidebarMethod "setShowEnterLocation" o = PlacesSidebarSetShowEnterLocationMethodInfo
ResolvePlacesSidebarMethod "setShowOtherLocations" o = PlacesSidebarSetShowOtherLocationsMethodInfo
ResolvePlacesSidebarMethod "setShowRecent" o = PlacesSidebarSetShowRecentMethodInfo
ResolvePlacesSidebarMethod "setShowStarredLocation" o = PlacesSidebarSetShowStarredLocationMethodInfo
ResolvePlacesSidebarMethod "setShowTrash" o = PlacesSidebarSetShowTrashMethodInfo
ResolvePlacesSidebarMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolvePlacesSidebarMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolvePlacesSidebarMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolvePlacesSidebarMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolvePlacesSidebarMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolvePlacesSidebarMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolvePlacesSidebarMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolvePlacesSidebarMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolvePlacesSidebarMethod "setVadjustment" o = Gtk.ScrolledWindow.ScrolledWindowSetVadjustmentMethodInfo
ResolvePlacesSidebarMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolvePlacesSidebarMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolvePlacesSidebarMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolvePlacesSidebarMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolvePlacesSidebarMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolvePlacesSidebarMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolvePlacesSidebarMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePlacesSidebarMethod t PlacesSidebar, O.OverloadedMethod info PlacesSidebar p) => OL.IsLabel t (PlacesSidebar -> 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 ~ ResolvePlacesSidebarMethod t PlacesSidebar, O.OverloadedMethod info PlacesSidebar p, R.HasField t PlacesSidebar p) => R.HasField t PlacesSidebar p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolvePlacesSidebarMethod t PlacesSidebar, O.OverloadedMethodInfo info PlacesSidebar) => OL.IsLabel t (O.MethodProxy info PlacesSidebar) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type =
Int32
-> IO Int32
noPlacesSidebarDragActionAskCallback :: Maybe PlacesSidebarDragActionAskCallback
= Maybe PlacesSidebarDragActionAskCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
Int32 ->
Ptr () ->
IO Int32
foreign import ccall "wrapper"
:: C_PlacesSidebarDragActionAskCallback -> IO (FunPtr C_PlacesSidebarDragActionAskCallback)
genClosure_PlacesSidebarDragActionAsk :: MonadIO m => PlacesSidebarDragActionAskCallback -> m (GClosure C_PlacesSidebarDragActionAskCallback)
PlacesSidebarDragActionAskCallback
cb = IO (GClosure C_PlacesSidebarDragActionAskCallback)
-> m (GClosure C_PlacesSidebarDragActionAskCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PlacesSidebarDragActionAskCallback)
-> m (GClosure C_PlacesSidebarDragActionAskCallback))
-> IO (GClosure C_PlacesSidebarDragActionAskCallback)
-> m (GClosure C_PlacesSidebarDragActionAskCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarDragActionAskCallback
cb' = PlacesSidebarDragActionAskCallback
-> C_PlacesSidebarDragActionAskCallback
wrap_PlacesSidebarDragActionAskCallback PlacesSidebarDragActionAskCallback
cb
C_PlacesSidebarDragActionAskCallback
-> IO (FunPtr C_PlacesSidebarDragActionAskCallback)
mk_PlacesSidebarDragActionAskCallback C_PlacesSidebarDragActionAskCallback
cb' IO (FunPtr C_PlacesSidebarDragActionAskCallback)
-> (FunPtr C_PlacesSidebarDragActionAskCallback
-> IO (GClosure C_PlacesSidebarDragActionAskCallback))
-> IO (GClosure C_PlacesSidebarDragActionAskCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PlacesSidebarDragActionAskCallback
-> IO (GClosure C_PlacesSidebarDragActionAskCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PlacesSidebarDragActionAskCallback ::
PlacesSidebarDragActionAskCallback ->
C_PlacesSidebarDragActionAskCallback
PlacesSidebarDragActionAskCallback
_cb Ptr ()
_ Int32
actions Ptr ()
_ = do
Int32
result <- PlacesSidebarDragActionAskCallback
_cb Int32
actions
PlacesSidebarDragActionAskCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
onPlacesSidebarDragActionAsk :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarDragActionAskCallback -> m SignalHandlerId
a
obj PlacesSidebarDragActionAskCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarDragActionAskCallback
cb' = PlacesSidebarDragActionAskCallback
-> C_PlacesSidebarDragActionAskCallback
wrap_PlacesSidebarDragActionAskCallback PlacesSidebarDragActionAskCallback
cb
FunPtr C_PlacesSidebarDragActionAskCallback
cb'' <- C_PlacesSidebarDragActionAskCallback
-> IO (FunPtr C_PlacesSidebarDragActionAskCallback)
mk_PlacesSidebarDragActionAskCallback C_PlacesSidebarDragActionAskCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarDragActionAskCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"drag-action-ask" FunPtr C_PlacesSidebarDragActionAskCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPlacesSidebarDragActionAsk :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarDragActionAskCallback -> m SignalHandlerId
a
obj PlacesSidebarDragActionAskCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarDragActionAskCallback
cb' = PlacesSidebarDragActionAskCallback
-> C_PlacesSidebarDragActionAskCallback
wrap_PlacesSidebarDragActionAskCallback PlacesSidebarDragActionAskCallback
cb
FunPtr C_PlacesSidebarDragActionAskCallback
cb'' <- C_PlacesSidebarDragActionAskCallback
-> IO (FunPtr C_PlacesSidebarDragActionAskCallback)
mk_PlacesSidebarDragActionAskCallback C_PlacesSidebarDragActionAskCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarDragActionAskCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"drag-action-ask" FunPtr C_PlacesSidebarDragActionAskCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarDragActionAskSignalInfo
instance SignalInfo PlacesSidebarDragActionAskSignalInfo where
type HaskellCallbackType PlacesSidebarDragActionAskSignalInfo = PlacesSidebarDragActionAskCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PlacesSidebarDragActionAskCallback cb
cb'' <- mk_PlacesSidebarDragActionAskCallback cb'
connectSignalFunPtr obj "drag-action-ask" cb'' connectMode detail
#endif
type =
Gdk.DragContext.DragContext
-> Gio.File.File
-> [Gio.File.File]
-> IO Int32
noPlacesSidebarDragActionRequestedCallback :: Maybe PlacesSidebarDragActionRequestedCallback
= Maybe PlacesSidebarDragActionRequestedCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr Gdk.DragContext.DragContext ->
Ptr Gio.File.File ->
Ptr (GList (Ptr Gio.File.File)) ->
Ptr () ->
IO Int32
foreign import ccall "wrapper"
:: C_PlacesSidebarDragActionRequestedCallback -> IO (FunPtr C_PlacesSidebarDragActionRequestedCallback)
genClosure_PlacesSidebarDragActionRequested :: MonadIO m => PlacesSidebarDragActionRequestedCallback -> m (GClosure C_PlacesSidebarDragActionRequestedCallback)
PlacesSidebarDragActionRequestedCallback
cb = IO (GClosure C_PlacesSidebarDragActionRequestedCallback)
-> m (GClosure C_PlacesSidebarDragActionRequestedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PlacesSidebarDragActionRequestedCallback)
-> m (GClosure C_PlacesSidebarDragActionRequestedCallback))
-> IO (GClosure C_PlacesSidebarDragActionRequestedCallback)
-> m (GClosure C_PlacesSidebarDragActionRequestedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarDragActionRequestedCallback
cb' = PlacesSidebarDragActionRequestedCallback
-> C_PlacesSidebarDragActionRequestedCallback
wrap_PlacesSidebarDragActionRequestedCallback PlacesSidebarDragActionRequestedCallback
cb
C_PlacesSidebarDragActionRequestedCallback
-> IO (FunPtr C_PlacesSidebarDragActionRequestedCallback)
mk_PlacesSidebarDragActionRequestedCallback C_PlacesSidebarDragActionRequestedCallback
cb' IO (FunPtr C_PlacesSidebarDragActionRequestedCallback)
-> (FunPtr C_PlacesSidebarDragActionRequestedCallback
-> IO (GClosure C_PlacesSidebarDragActionRequestedCallback))
-> IO (GClosure C_PlacesSidebarDragActionRequestedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PlacesSidebarDragActionRequestedCallback
-> IO (GClosure C_PlacesSidebarDragActionRequestedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PlacesSidebarDragActionRequestedCallback ::
PlacesSidebarDragActionRequestedCallback ->
C_PlacesSidebarDragActionRequestedCallback
PlacesSidebarDragActionRequestedCallback
_cb Ptr ()
_ Ptr DragContext
context Ptr File
destFile Ptr (GList (Ptr File))
sourceFileList Ptr ()
_ = do
DragContext
context' <- ((ManagedPtr DragContext -> DragContext)
-> Ptr DragContext -> IO DragContext
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DragContext -> DragContext
Gdk.DragContext.DragContext) Ptr DragContext
context
File
destFile' <- ((ManagedPtr File -> File) -> Ptr File -> IO File
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr File -> File
Gio.File.File) Ptr File
destFile
[Ptr File]
sourceFileList' <- Ptr (GList (Ptr File)) -> IO [Ptr File]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr File))
sourceFileList
[File]
sourceFileList'' <- (Ptr File -> IO File) -> [Ptr File] -> IO [File]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr File -> File) -> Ptr File -> IO File
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr File -> File
Gio.File.File) [Ptr File]
sourceFileList'
Int32
result <- PlacesSidebarDragActionRequestedCallback
_cb DragContext
context' File
destFile' [File]
sourceFileList''
PlacesSidebarDragActionAskCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
onPlacesSidebarDragActionRequested :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarDragActionRequestedCallback -> m SignalHandlerId
a
obj PlacesSidebarDragActionRequestedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarDragActionRequestedCallback
cb' = PlacesSidebarDragActionRequestedCallback
-> C_PlacesSidebarDragActionRequestedCallback
wrap_PlacesSidebarDragActionRequestedCallback PlacesSidebarDragActionRequestedCallback
cb
FunPtr C_PlacesSidebarDragActionRequestedCallback
cb'' <- C_PlacesSidebarDragActionRequestedCallback
-> IO (FunPtr C_PlacesSidebarDragActionRequestedCallback)
mk_PlacesSidebarDragActionRequestedCallback C_PlacesSidebarDragActionRequestedCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarDragActionRequestedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"drag-action-requested" FunPtr C_PlacesSidebarDragActionRequestedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPlacesSidebarDragActionRequested :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarDragActionRequestedCallback -> m SignalHandlerId
a
obj PlacesSidebarDragActionRequestedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarDragActionRequestedCallback
cb' = PlacesSidebarDragActionRequestedCallback
-> C_PlacesSidebarDragActionRequestedCallback
wrap_PlacesSidebarDragActionRequestedCallback PlacesSidebarDragActionRequestedCallback
cb
FunPtr C_PlacesSidebarDragActionRequestedCallback
cb'' <- C_PlacesSidebarDragActionRequestedCallback
-> IO (FunPtr C_PlacesSidebarDragActionRequestedCallback)
mk_PlacesSidebarDragActionRequestedCallback C_PlacesSidebarDragActionRequestedCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarDragActionRequestedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"drag-action-requested" FunPtr C_PlacesSidebarDragActionRequestedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarDragActionRequestedSignalInfo
instance SignalInfo PlacesSidebarDragActionRequestedSignalInfo where
type HaskellCallbackType PlacesSidebarDragActionRequestedSignalInfo = PlacesSidebarDragActionRequestedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PlacesSidebarDragActionRequestedCallback cb
cb'' <- mk_PlacesSidebarDragActionRequestedCallback cb'
connectSignalFunPtr obj "drag-action-requested" cb'' connectMode detail
#endif
type =
Gio.File.File
-> [Gio.File.File]
-> Int32
-> IO ()
noPlacesSidebarDragPerformDropCallback :: Maybe PlacesSidebarDragPerformDropCallback
= Maybe PlacesSidebarDragPerformDropCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr Gio.File.File ->
Ptr (GList (Ptr Gio.File.File)) ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_PlacesSidebarDragPerformDropCallback -> IO (FunPtr C_PlacesSidebarDragPerformDropCallback)
genClosure_PlacesSidebarDragPerformDrop :: MonadIO m => PlacesSidebarDragPerformDropCallback -> m (GClosure C_PlacesSidebarDragPerformDropCallback)
PlacesSidebarDragPerformDropCallback
cb = IO (GClosure C_PlacesSidebarDragPerformDropCallback)
-> m (GClosure C_PlacesSidebarDragPerformDropCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PlacesSidebarDragPerformDropCallback)
-> m (GClosure C_PlacesSidebarDragPerformDropCallback))
-> IO (GClosure C_PlacesSidebarDragPerformDropCallback)
-> m (GClosure C_PlacesSidebarDragPerformDropCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarDragPerformDropCallback
cb' = PlacesSidebarDragPerformDropCallback
-> C_PlacesSidebarDragPerformDropCallback
wrap_PlacesSidebarDragPerformDropCallback PlacesSidebarDragPerformDropCallback
cb
C_PlacesSidebarDragPerformDropCallback
-> IO (FunPtr C_PlacesSidebarDragPerformDropCallback)
mk_PlacesSidebarDragPerformDropCallback C_PlacesSidebarDragPerformDropCallback
cb' IO (FunPtr C_PlacesSidebarDragPerformDropCallback)
-> (FunPtr C_PlacesSidebarDragPerformDropCallback
-> IO (GClosure C_PlacesSidebarDragPerformDropCallback))
-> IO (GClosure C_PlacesSidebarDragPerformDropCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PlacesSidebarDragPerformDropCallback
-> IO (GClosure C_PlacesSidebarDragPerformDropCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PlacesSidebarDragPerformDropCallback ::
PlacesSidebarDragPerformDropCallback ->
C_PlacesSidebarDragPerformDropCallback
PlacesSidebarDragPerformDropCallback
_cb Ptr ()
_ Ptr File
destFile Ptr (GList (Ptr File))
sourceFileList Int32
action Ptr ()
_ = do
File
destFile' <- ((ManagedPtr File -> File) -> Ptr File -> IO File
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr File -> File
Gio.File.File) Ptr File
destFile
[Ptr File]
sourceFileList' <- Ptr (GList (Ptr File)) -> IO [Ptr File]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr File))
sourceFileList
[File]
sourceFileList'' <- (Ptr File -> IO File) -> [Ptr File] -> IO [File]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr File -> File) -> Ptr File -> IO File
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr File -> File
Gio.File.File) [Ptr File]
sourceFileList'
PlacesSidebarDragPerformDropCallback
_cb File
destFile' [File]
sourceFileList'' Int32
action
onPlacesSidebarDragPerformDrop :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarDragPerformDropCallback -> m SignalHandlerId
a
obj PlacesSidebarDragPerformDropCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarDragPerformDropCallback
cb' = PlacesSidebarDragPerformDropCallback
-> C_PlacesSidebarDragPerformDropCallback
wrap_PlacesSidebarDragPerformDropCallback PlacesSidebarDragPerformDropCallback
cb
FunPtr C_PlacesSidebarDragPerformDropCallback
cb'' <- C_PlacesSidebarDragPerformDropCallback
-> IO (FunPtr C_PlacesSidebarDragPerformDropCallback)
mk_PlacesSidebarDragPerformDropCallback C_PlacesSidebarDragPerformDropCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarDragPerformDropCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"drag-perform-drop" FunPtr C_PlacesSidebarDragPerformDropCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPlacesSidebarDragPerformDrop :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarDragPerformDropCallback -> m SignalHandlerId
a
obj PlacesSidebarDragPerformDropCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarDragPerformDropCallback
cb' = PlacesSidebarDragPerformDropCallback
-> C_PlacesSidebarDragPerformDropCallback
wrap_PlacesSidebarDragPerformDropCallback PlacesSidebarDragPerformDropCallback
cb
FunPtr C_PlacesSidebarDragPerformDropCallback
cb'' <- C_PlacesSidebarDragPerformDropCallback
-> IO (FunPtr C_PlacesSidebarDragPerformDropCallback)
mk_PlacesSidebarDragPerformDropCallback C_PlacesSidebarDragPerformDropCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarDragPerformDropCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"drag-perform-drop" FunPtr C_PlacesSidebarDragPerformDropCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarDragPerformDropSignalInfo
instance SignalInfo PlacesSidebarDragPerformDropSignalInfo where
type HaskellCallbackType PlacesSidebarDragPerformDropSignalInfo = PlacesSidebarDragPerformDropCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PlacesSidebarDragPerformDropCallback cb
cb'' <- mk_PlacesSidebarDragPerformDropCallback cb'
connectSignalFunPtr obj "drag-perform-drop" cb'' connectMode detail
#endif
type =
Gio.MountOperation.MountOperation
-> IO ()
noPlacesSidebarMountCallback :: Maybe PlacesSidebarMountCallback
= Maybe PlacesSidebarMountCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr Gio.MountOperation.MountOperation ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_PlacesSidebarMountCallback -> IO (FunPtr C_PlacesSidebarMountCallback)
genClosure_PlacesSidebarMount :: MonadIO m => PlacesSidebarMountCallback -> m (GClosure C_PlacesSidebarMountCallback)
PlacesSidebarMountCallback
cb = IO (GClosure C_PlacesSidebarMountCallback)
-> m (GClosure C_PlacesSidebarMountCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PlacesSidebarMountCallback)
-> m (GClosure C_PlacesSidebarMountCallback))
-> IO (GClosure C_PlacesSidebarMountCallback)
-> m (GClosure C_PlacesSidebarMountCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarMountCallback
cb' = PlacesSidebarMountCallback -> C_PlacesSidebarMountCallback
wrap_PlacesSidebarMountCallback PlacesSidebarMountCallback
cb
C_PlacesSidebarMountCallback
-> IO (FunPtr C_PlacesSidebarMountCallback)
mk_PlacesSidebarMountCallback C_PlacesSidebarMountCallback
cb' IO (FunPtr C_PlacesSidebarMountCallback)
-> (FunPtr C_PlacesSidebarMountCallback
-> IO (GClosure C_PlacesSidebarMountCallback))
-> IO (GClosure C_PlacesSidebarMountCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PlacesSidebarMountCallback
-> IO (GClosure C_PlacesSidebarMountCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PlacesSidebarMountCallback ::
PlacesSidebarMountCallback ->
C_PlacesSidebarMountCallback
PlacesSidebarMountCallback
_cb Ptr ()
_ Ptr MountOperation
mountOperation Ptr ()
_ = do
MountOperation
mountOperation' <- ((ManagedPtr MountOperation -> MountOperation)
-> Ptr MountOperation -> IO MountOperation
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr MountOperation -> MountOperation
Gio.MountOperation.MountOperation) Ptr MountOperation
mountOperation
PlacesSidebarMountCallback
_cb MountOperation
mountOperation'
onPlacesSidebarMount :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarMountCallback -> m SignalHandlerId
a
obj PlacesSidebarMountCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarMountCallback
cb' = PlacesSidebarMountCallback -> C_PlacesSidebarMountCallback
wrap_PlacesSidebarMountCallback PlacesSidebarMountCallback
cb
FunPtr C_PlacesSidebarMountCallback
cb'' <- C_PlacesSidebarMountCallback
-> IO (FunPtr C_PlacesSidebarMountCallback)
mk_PlacesSidebarMountCallback C_PlacesSidebarMountCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarMountCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"mount" FunPtr C_PlacesSidebarMountCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPlacesSidebarMount :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarMountCallback -> m SignalHandlerId
a
obj PlacesSidebarMountCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarMountCallback
cb' = PlacesSidebarMountCallback -> C_PlacesSidebarMountCallback
wrap_PlacesSidebarMountCallback PlacesSidebarMountCallback
cb
FunPtr C_PlacesSidebarMountCallback
cb'' <- C_PlacesSidebarMountCallback
-> IO (FunPtr C_PlacesSidebarMountCallback)
mk_PlacesSidebarMountCallback C_PlacesSidebarMountCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarMountCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"mount" FunPtr C_PlacesSidebarMountCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarMountSignalInfo
instance SignalInfo PlacesSidebarMountSignalInfo where
type HaskellCallbackType PlacesSidebarMountSignalInfo = PlacesSidebarMountCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PlacesSidebarMountCallback cb
cb'' <- mk_PlacesSidebarMountCallback cb'
connectSignalFunPtr obj "mount" cb'' connectMode detail
#endif
type =
Gio.File.File
-> [Gtk.Flags.PlacesOpenFlags]
-> IO ()
noPlacesSidebarOpenLocationCallback :: Maybe PlacesSidebarOpenLocationCallback
= Maybe PlacesSidebarOpenLocationCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr Gio.File.File ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_PlacesSidebarOpenLocationCallback -> IO (FunPtr C_PlacesSidebarOpenLocationCallback)
genClosure_PlacesSidebarOpenLocation :: MonadIO m => PlacesSidebarOpenLocationCallback -> m (GClosure C_PlacesSidebarOpenLocationCallback)
PlacesSidebarOpenLocationCallback
cb = IO (GClosure C_PlacesSidebarOpenLocationCallback)
-> m (GClosure C_PlacesSidebarOpenLocationCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PlacesSidebarOpenLocationCallback)
-> m (GClosure C_PlacesSidebarOpenLocationCallback))
-> IO (GClosure C_PlacesSidebarOpenLocationCallback)
-> m (GClosure C_PlacesSidebarOpenLocationCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarOpenLocationCallback
cb' = PlacesSidebarOpenLocationCallback
-> C_PlacesSidebarOpenLocationCallback
wrap_PlacesSidebarOpenLocationCallback PlacesSidebarOpenLocationCallback
cb
C_PlacesSidebarOpenLocationCallback
-> IO (FunPtr C_PlacesSidebarOpenLocationCallback)
mk_PlacesSidebarOpenLocationCallback C_PlacesSidebarOpenLocationCallback
cb' IO (FunPtr C_PlacesSidebarOpenLocationCallback)
-> (FunPtr C_PlacesSidebarOpenLocationCallback
-> IO (GClosure C_PlacesSidebarOpenLocationCallback))
-> IO (GClosure C_PlacesSidebarOpenLocationCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PlacesSidebarOpenLocationCallback
-> IO (GClosure C_PlacesSidebarOpenLocationCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PlacesSidebarOpenLocationCallback ::
PlacesSidebarOpenLocationCallback ->
C_PlacesSidebarOpenLocationCallback
PlacesSidebarOpenLocationCallback
_cb Ptr ()
_ Ptr File
location CUInt
openFlags Ptr ()
_ = do
File
location' <- ((ManagedPtr File -> File) -> Ptr File -> IO File
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr File -> File
Gio.File.File) Ptr File
location
let openFlags' :: [PlacesOpenFlags]
openFlags' = CUInt -> [PlacesOpenFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
openFlags
PlacesSidebarOpenLocationCallback
_cb File
location' [PlacesOpenFlags]
openFlags'
onPlacesSidebarOpenLocation :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarOpenLocationCallback -> m SignalHandlerId
a
obj PlacesSidebarOpenLocationCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarOpenLocationCallback
cb' = PlacesSidebarOpenLocationCallback
-> C_PlacesSidebarOpenLocationCallback
wrap_PlacesSidebarOpenLocationCallback PlacesSidebarOpenLocationCallback
cb
FunPtr C_PlacesSidebarOpenLocationCallback
cb'' <- C_PlacesSidebarOpenLocationCallback
-> IO (FunPtr C_PlacesSidebarOpenLocationCallback)
mk_PlacesSidebarOpenLocationCallback C_PlacesSidebarOpenLocationCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarOpenLocationCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"open-location" FunPtr C_PlacesSidebarOpenLocationCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPlacesSidebarOpenLocation :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarOpenLocationCallback -> m SignalHandlerId
a
obj PlacesSidebarOpenLocationCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarOpenLocationCallback
cb' = PlacesSidebarOpenLocationCallback
-> C_PlacesSidebarOpenLocationCallback
wrap_PlacesSidebarOpenLocationCallback PlacesSidebarOpenLocationCallback
cb
FunPtr C_PlacesSidebarOpenLocationCallback
cb'' <- C_PlacesSidebarOpenLocationCallback
-> IO (FunPtr C_PlacesSidebarOpenLocationCallback)
mk_PlacesSidebarOpenLocationCallback C_PlacesSidebarOpenLocationCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarOpenLocationCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"open-location" FunPtr C_PlacesSidebarOpenLocationCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarOpenLocationSignalInfo
instance SignalInfo PlacesSidebarOpenLocationSignalInfo where
type HaskellCallbackType PlacesSidebarOpenLocationSignalInfo = PlacesSidebarOpenLocationCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PlacesSidebarOpenLocationCallback cb
cb'' <- mk_PlacesSidebarOpenLocationCallback cb'
connectSignalFunPtr obj "open-location" cb'' connectMode detail
#endif
type =
Gtk.Widget.Widget
-> Maybe Gio.File.File
-> Maybe Gio.Volume.Volume
-> IO ()
noPlacesSidebarPopulatePopupCallback :: Maybe PlacesSidebarPopulatePopupCallback
= Maybe PlacesSidebarPopulatePopupCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr Gtk.Widget.Widget ->
Ptr Gio.File.File ->
Ptr Gio.Volume.Volume ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_PlacesSidebarPopulatePopupCallback -> IO (FunPtr C_PlacesSidebarPopulatePopupCallback)
genClosure_PlacesSidebarPopulatePopup :: MonadIO m => PlacesSidebarPopulatePopupCallback -> m (GClosure C_PlacesSidebarPopulatePopupCallback)
PlacesSidebarPopulatePopupCallback
cb = IO (GClosure C_PlacesSidebarPopulatePopupCallback)
-> m (GClosure C_PlacesSidebarPopulatePopupCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PlacesSidebarPopulatePopupCallback)
-> m (GClosure C_PlacesSidebarPopulatePopupCallback))
-> IO (GClosure C_PlacesSidebarPopulatePopupCallback)
-> m (GClosure C_PlacesSidebarPopulatePopupCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarPopulatePopupCallback
cb' = PlacesSidebarPopulatePopupCallback
-> C_PlacesSidebarPopulatePopupCallback
wrap_PlacesSidebarPopulatePopupCallback PlacesSidebarPopulatePopupCallback
cb
C_PlacesSidebarPopulatePopupCallback
-> IO (FunPtr C_PlacesSidebarPopulatePopupCallback)
mk_PlacesSidebarPopulatePopupCallback C_PlacesSidebarPopulatePopupCallback
cb' IO (FunPtr C_PlacesSidebarPopulatePopupCallback)
-> (FunPtr C_PlacesSidebarPopulatePopupCallback
-> IO (GClosure C_PlacesSidebarPopulatePopupCallback))
-> IO (GClosure C_PlacesSidebarPopulatePopupCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PlacesSidebarPopulatePopupCallback
-> IO (GClosure C_PlacesSidebarPopulatePopupCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PlacesSidebarPopulatePopupCallback ::
PlacesSidebarPopulatePopupCallback ->
C_PlacesSidebarPopulatePopupCallback
PlacesSidebarPopulatePopupCallback
_cb Ptr ()
_ Ptr Widget
container Ptr File
selectedItem Ptr Volume
selectedVolume Ptr ()
_ = do
Widget
container' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
container
Maybe File
maybeSelectedItem <-
if Ptr File
selectedItem Ptr File -> Ptr File -> Bool
forall a. Eq a => a -> a -> Bool
== Ptr File
forall a. Ptr a
nullPtr
then Maybe File -> IO (Maybe File)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe File
forall a. Maybe a
Nothing
else do
File
selectedItem' <- ((ManagedPtr File -> File) -> Ptr File -> IO File
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr File -> File
Gio.File.File) Ptr File
selectedItem
Maybe File -> IO (Maybe File)
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe File -> IO (Maybe File)) -> Maybe File -> IO (Maybe File)
forall a b. (a -> b) -> a -> b
$ File -> Maybe File
forall a. a -> Maybe a
Just File
selectedItem'
Maybe Volume
maybeSelectedVolume <-
if Ptr Volume
selectedVolume Ptr Volume -> Ptr Volume -> Bool
forall a. Eq a => a -> a -> Bool
== Ptr Volume
forall a. Ptr a
nullPtr
then Maybe Volume -> IO (Maybe Volume)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Volume
forall a. Maybe a
Nothing
else do
Volume
selectedVolume' <- ((ManagedPtr Volume -> Volume) -> Ptr Volume -> IO Volume
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Volume -> Volume
Gio.Volume.Volume) Ptr Volume
selectedVolume
Maybe Volume -> IO (Maybe Volume)
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe Volume -> IO (Maybe Volume))
-> Maybe Volume -> IO (Maybe Volume)
forall a b. (a -> b) -> a -> b
$ Volume -> Maybe Volume
forall a. a -> Maybe a
Just Volume
selectedVolume'
PlacesSidebarPopulatePopupCallback
_cb Widget
container' Maybe File
maybeSelectedItem Maybe Volume
maybeSelectedVolume
onPlacesSidebarPopulatePopup :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarPopulatePopupCallback -> m SignalHandlerId
a
obj PlacesSidebarPopulatePopupCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarPopulatePopupCallback
cb' = PlacesSidebarPopulatePopupCallback
-> C_PlacesSidebarPopulatePopupCallback
wrap_PlacesSidebarPopulatePopupCallback PlacesSidebarPopulatePopupCallback
cb
FunPtr C_PlacesSidebarPopulatePopupCallback
cb'' <- C_PlacesSidebarPopulatePopupCallback
-> IO (FunPtr C_PlacesSidebarPopulatePopupCallback)
mk_PlacesSidebarPopulatePopupCallback C_PlacesSidebarPopulatePopupCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarPopulatePopupCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"populate-popup" FunPtr C_PlacesSidebarPopulatePopupCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPlacesSidebarPopulatePopup :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarPopulatePopupCallback -> m SignalHandlerId
a
obj PlacesSidebarPopulatePopupCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarPopulatePopupCallback
cb' = PlacesSidebarPopulatePopupCallback
-> C_PlacesSidebarPopulatePopupCallback
wrap_PlacesSidebarPopulatePopupCallback PlacesSidebarPopulatePopupCallback
cb
FunPtr C_PlacesSidebarPopulatePopupCallback
cb'' <- C_PlacesSidebarPopulatePopupCallback
-> IO (FunPtr C_PlacesSidebarPopulatePopupCallback)
mk_PlacesSidebarPopulatePopupCallback C_PlacesSidebarPopulatePopupCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarPopulatePopupCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"populate-popup" FunPtr C_PlacesSidebarPopulatePopupCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarPopulatePopupSignalInfo
instance SignalInfo PlacesSidebarPopulatePopupSignalInfo where
type HaskellCallbackType PlacesSidebarPopulatePopupSignalInfo = PlacesSidebarPopulatePopupCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PlacesSidebarPopulatePopupCallback cb
cb'' <- mk_PlacesSidebarPopulatePopupCallback cb'
connectSignalFunPtr obj "populate-popup" cb'' connectMode detail
#endif
{-# DEPRECATED PlacesSidebarShowConnectToServerCallback ["(Since version 3.18)","use the [showOtherLocations](\"GI.Gtk.Objects.PlacesSidebar#g:signal:showOtherLocations\") signal"," to connect to network servers."] #-}
type =
IO ()
noPlacesSidebarShowConnectToServerCallback :: Maybe PlacesSidebarShowConnectToServerCallback
= Maybe (IO ())
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_PlacesSidebarShowConnectToServerCallback -> IO (FunPtr C_PlacesSidebarShowConnectToServerCallback)
genClosure_PlacesSidebarShowConnectToServer :: MonadIO m => PlacesSidebarShowConnectToServerCallback -> m (GClosure C_PlacesSidebarShowConnectToServerCallback)
IO ()
cb = IO (GClosure C_PlacesSidebarShowConnectToServerCallback)
-> m (GClosure C_PlacesSidebarShowConnectToServerCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PlacesSidebarShowConnectToServerCallback)
-> m (GClosure C_PlacesSidebarShowConnectToServerCallback))
-> IO (GClosure C_PlacesSidebarShowConnectToServerCallback)
-> m (GClosure C_PlacesSidebarShowConnectToServerCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarShowConnectToServerCallback
cb' = IO () -> C_PlacesSidebarShowConnectToServerCallback
wrap_PlacesSidebarShowConnectToServerCallback IO ()
cb
C_PlacesSidebarShowConnectToServerCallback
-> IO (FunPtr C_PlacesSidebarShowConnectToServerCallback)
mk_PlacesSidebarShowConnectToServerCallback C_PlacesSidebarShowConnectToServerCallback
cb' IO (FunPtr C_PlacesSidebarShowConnectToServerCallback)
-> (FunPtr C_PlacesSidebarShowConnectToServerCallback
-> IO (GClosure C_PlacesSidebarShowConnectToServerCallback))
-> IO (GClosure C_PlacesSidebarShowConnectToServerCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PlacesSidebarShowConnectToServerCallback
-> IO (GClosure C_PlacesSidebarShowConnectToServerCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PlacesSidebarShowConnectToServerCallback ::
PlacesSidebarShowConnectToServerCallback ->
C_PlacesSidebarShowConnectToServerCallback
IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onPlacesSidebarShowConnectToServer :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarShowConnectToServerCallback -> m SignalHandlerId
a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarShowConnectToServerCallback
cb' = IO () -> C_PlacesSidebarShowConnectToServerCallback
wrap_PlacesSidebarShowConnectToServerCallback IO ()
cb
FunPtr C_PlacesSidebarShowConnectToServerCallback
cb'' <- C_PlacesSidebarShowConnectToServerCallback
-> IO (FunPtr C_PlacesSidebarShowConnectToServerCallback)
mk_PlacesSidebarShowConnectToServerCallback C_PlacesSidebarShowConnectToServerCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarShowConnectToServerCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"show-connect-to-server" FunPtr C_PlacesSidebarShowConnectToServerCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPlacesSidebarShowConnectToServer :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarShowConnectToServerCallback -> m SignalHandlerId
a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarShowConnectToServerCallback
cb' = IO () -> C_PlacesSidebarShowConnectToServerCallback
wrap_PlacesSidebarShowConnectToServerCallback IO ()
cb
FunPtr C_PlacesSidebarShowConnectToServerCallback
cb'' <- C_PlacesSidebarShowConnectToServerCallback
-> IO (FunPtr C_PlacesSidebarShowConnectToServerCallback)
mk_PlacesSidebarShowConnectToServerCallback C_PlacesSidebarShowConnectToServerCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarShowConnectToServerCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"show-connect-to-server" FunPtr C_PlacesSidebarShowConnectToServerCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarShowConnectToServerSignalInfo
instance SignalInfo PlacesSidebarShowConnectToServerSignalInfo where
type HaskellCallbackType PlacesSidebarShowConnectToServerSignalInfo = PlacesSidebarShowConnectToServerCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PlacesSidebarShowConnectToServerCallback cb
cb'' <- mk_PlacesSidebarShowConnectToServerCallback cb'
connectSignalFunPtr obj "show-connect-to-server" cb'' connectMode detail
#endif
type =
IO ()
noPlacesSidebarShowEnterLocationCallback :: Maybe PlacesSidebarShowEnterLocationCallback
= Maybe (IO ())
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_PlacesSidebarShowEnterLocationCallback -> IO (FunPtr C_PlacesSidebarShowEnterLocationCallback)
genClosure_PlacesSidebarShowEnterLocation :: MonadIO m => PlacesSidebarShowEnterLocationCallback -> m (GClosure C_PlacesSidebarShowEnterLocationCallback)
IO ()
cb = IO (GClosure C_PlacesSidebarShowConnectToServerCallback)
-> m (GClosure C_PlacesSidebarShowConnectToServerCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PlacesSidebarShowConnectToServerCallback)
-> m (GClosure C_PlacesSidebarShowConnectToServerCallback))
-> IO (GClosure C_PlacesSidebarShowConnectToServerCallback)
-> m (GClosure C_PlacesSidebarShowConnectToServerCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarShowConnectToServerCallback
cb' = IO () -> C_PlacesSidebarShowConnectToServerCallback
wrap_PlacesSidebarShowEnterLocationCallback IO ()
cb
C_PlacesSidebarShowConnectToServerCallback
-> IO (FunPtr C_PlacesSidebarShowConnectToServerCallback)
mk_PlacesSidebarShowEnterLocationCallback C_PlacesSidebarShowConnectToServerCallback
cb' IO (FunPtr C_PlacesSidebarShowConnectToServerCallback)
-> (FunPtr C_PlacesSidebarShowConnectToServerCallback
-> IO (GClosure C_PlacesSidebarShowConnectToServerCallback))
-> IO (GClosure C_PlacesSidebarShowConnectToServerCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PlacesSidebarShowConnectToServerCallback
-> IO (GClosure C_PlacesSidebarShowConnectToServerCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PlacesSidebarShowEnterLocationCallback ::
PlacesSidebarShowEnterLocationCallback ->
C_PlacesSidebarShowEnterLocationCallback
IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onPlacesSidebarShowEnterLocation :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarShowEnterLocationCallback -> m SignalHandlerId
a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarShowConnectToServerCallback
cb' = IO () -> C_PlacesSidebarShowConnectToServerCallback
wrap_PlacesSidebarShowEnterLocationCallback IO ()
cb
FunPtr C_PlacesSidebarShowConnectToServerCallback
cb'' <- C_PlacesSidebarShowConnectToServerCallback
-> IO (FunPtr C_PlacesSidebarShowConnectToServerCallback)
mk_PlacesSidebarShowEnterLocationCallback C_PlacesSidebarShowConnectToServerCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarShowConnectToServerCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"show-enter-location" FunPtr C_PlacesSidebarShowConnectToServerCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPlacesSidebarShowEnterLocation :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarShowEnterLocationCallback -> m SignalHandlerId
a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarShowConnectToServerCallback
cb' = IO () -> C_PlacesSidebarShowConnectToServerCallback
wrap_PlacesSidebarShowEnterLocationCallback IO ()
cb
FunPtr C_PlacesSidebarShowConnectToServerCallback
cb'' <- C_PlacesSidebarShowConnectToServerCallback
-> IO (FunPtr C_PlacesSidebarShowConnectToServerCallback)
mk_PlacesSidebarShowEnterLocationCallback C_PlacesSidebarShowConnectToServerCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarShowConnectToServerCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"show-enter-location" FunPtr C_PlacesSidebarShowConnectToServerCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarShowEnterLocationSignalInfo
instance SignalInfo PlacesSidebarShowEnterLocationSignalInfo where
type HaskellCallbackType PlacesSidebarShowEnterLocationSignalInfo = PlacesSidebarShowEnterLocationCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PlacesSidebarShowEnterLocationCallback cb
cb'' <- mk_PlacesSidebarShowEnterLocationCallback cb'
connectSignalFunPtr obj "show-enter-location" cb'' connectMode detail
#endif
type =
T.Text
-> T.Text
-> IO ()
noPlacesSidebarShowErrorMessageCallback :: Maybe PlacesSidebarShowErrorMessageCallback
= Maybe PlacesSidebarShowErrorMessageCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
CString ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_PlacesSidebarShowErrorMessageCallback -> IO (FunPtr C_PlacesSidebarShowErrorMessageCallback)
genClosure_PlacesSidebarShowErrorMessage :: MonadIO m => PlacesSidebarShowErrorMessageCallback -> m (GClosure C_PlacesSidebarShowErrorMessageCallback)
PlacesSidebarShowErrorMessageCallback
cb = IO (GClosure C_PlacesSidebarShowErrorMessageCallback)
-> m (GClosure C_PlacesSidebarShowErrorMessageCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PlacesSidebarShowErrorMessageCallback)
-> m (GClosure C_PlacesSidebarShowErrorMessageCallback))
-> IO (GClosure C_PlacesSidebarShowErrorMessageCallback)
-> m (GClosure C_PlacesSidebarShowErrorMessageCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarShowErrorMessageCallback
cb' = PlacesSidebarShowErrorMessageCallback
-> C_PlacesSidebarShowErrorMessageCallback
wrap_PlacesSidebarShowErrorMessageCallback PlacesSidebarShowErrorMessageCallback
cb
C_PlacesSidebarShowErrorMessageCallback
-> IO (FunPtr C_PlacesSidebarShowErrorMessageCallback)
mk_PlacesSidebarShowErrorMessageCallback C_PlacesSidebarShowErrorMessageCallback
cb' IO (FunPtr C_PlacesSidebarShowErrorMessageCallback)
-> (FunPtr C_PlacesSidebarShowErrorMessageCallback
-> IO (GClosure C_PlacesSidebarShowErrorMessageCallback))
-> IO (GClosure C_PlacesSidebarShowErrorMessageCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PlacesSidebarShowErrorMessageCallback
-> IO (GClosure C_PlacesSidebarShowErrorMessageCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PlacesSidebarShowErrorMessageCallback ::
PlacesSidebarShowErrorMessageCallback ->
C_PlacesSidebarShowErrorMessageCallback
PlacesSidebarShowErrorMessageCallback
_cb Ptr ()
_ CString
primary CString
secondary Ptr ()
_ = do
Text
primary' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
primary
Text
secondary' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
secondary
PlacesSidebarShowErrorMessageCallback
_cb Text
primary' Text
secondary'
onPlacesSidebarShowErrorMessage :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarShowErrorMessageCallback -> m SignalHandlerId
a
obj PlacesSidebarShowErrorMessageCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarShowErrorMessageCallback
cb' = PlacesSidebarShowErrorMessageCallback
-> C_PlacesSidebarShowErrorMessageCallback
wrap_PlacesSidebarShowErrorMessageCallback PlacesSidebarShowErrorMessageCallback
cb
FunPtr C_PlacesSidebarShowErrorMessageCallback
cb'' <- C_PlacesSidebarShowErrorMessageCallback
-> IO (FunPtr C_PlacesSidebarShowErrorMessageCallback)
mk_PlacesSidebarShowErrorMessageCallback C_PlacesSidebarShowErrorMessageCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarShowErrorMessageCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"show-error-message" FunPtr C_PlacesSidebarShowErrorMessageCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPlacesSidebarShowErrorMessage :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarShowErrorMessageCallback -> m SignalHandlerId
a
obj PlacesSidebarShowErrorMessageCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarShowErrorMessageCallback
cb' = PlacesSidebarShowErrorMessageCallback
-> C_PlacesSidebarShowErrorMessageCallback
wrap_PlacesSidebarShowErrorMessageCallback PlacesSidebarShowErrorMessageCallback
cb
FunPtr C_PlacesSidebarShowErrorMessageCallback
cb'' <- C_PlacesSidebarShowErrorMessageCallback
-> IO (FunPtr C_PlacesSidebarShowErrorMessageCallback)
mk_PlacesSidebarShowErrorMessageCallback C_PlacesSidebarShowErrorMessageCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarShowErrorMessageCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"show-error-message" FunPtr C_PlacesSidebarShowErrorMessageCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarShowErrorMessageSignalInfo
instance SignalInfo PlacesSidebarShowErrorMessageSignalInfo where
type HaskellCallbackType PlacesSidebarShowErrorMessageSignalInfo = PlacesSidebarShowErrorMessageCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PlacesSidebarShowErrorMessageCallback cb
cb'' <- mk_PlacesSidebarShowErrorMessageCallback cb'
connectSignalFunPtr obj "show-error-message" cb'' connectMode detail
#endif
{-# DEPRECATED PlacesSidebarShowOtherLocationsCallback ["(Since version 3.20)","use the [showOtherLocationsWithFlags](\"GI.Gtk.Objects.PlacesSidebar#g:signal:showOtherLocationsWithFlags\")","which includes the open flags in order to allow the user to specify to open","in a new tab or window, in a similar way than [openLocation](\"GI.Gtk.Objects.PlacesSidebar#g:signal:openLocation\")"] #-}
type =
IO ()
noPlacesSidebarShowOtherLocationsCallback :: Maybe PlacesSidebarShowOtherLocationsCallback
= Maybe (IO ())
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_PlacesSidebarShowOtherLocationsCallback -> IO (FunPtr C_PlacesSidebarShowOtherLocationsCallback)
genClosure_PlacesSidebarShowOtherLocations :: MonadIO m => PlacesSidebarShowOtherLocationsCallback -> m (GClosure C_PlacesSidebarShowOtherLocationsCallback)
IO ()
cb = IO (GClosure C_PlacesSidebarShowConnectToServerCallback)
-> m (GClosure C_PlacesSidebarShowConnectToServerCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PlacesSidebarShowConnectToServerCallback)
-> m (GClosure C_PlacesSidebarShowConnectToServerCallback))
-> IO (GClosure C_PlacesSidebarShowConnectToServerCallback)
-> m (GClosure C_PlacesSidebarShowConnectToServerCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarShowConnectToServerCallback
cb' = IO () -> C_PlacesSidebarShowConnectToServerCallback
wrap_PlacesSidebarShowOtherLocationsCallback IO ()
cb
C_PlacesSidebarShowConnectToServerCallback
-> IO (FunPtr C_PlacesSidebarShowConnectToServerCallback)
mk_PlacesSidebarShowOtherLocationsCallback C_PlacesSidebarShowConnectToServerCallback
cb' IO (FunPtr C_PlacesSidebarShowConnectToServerCallback)
-> (FunPtr C_PlacesSidebarShowConnectToServerCallback
-> IO (GClosure C_PlacesSidebarShowConnectToServerCallback))
-> IO (GClosure C_PlacesSidebarShowConnectToServerCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PlacesSidebarShowConnectToServerCallback
-> IO (GClosure C_PlacesSidebarShowConnectToServerCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PlacesSidebarShowOtherLocationsCallback ::
PlacesSidebarShowOtherLocationsCallback ->
C_PlacesSidebarShowOtherLocationsCallback
IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onPlacesSidebarShowOtherLocations :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarShowOtherLocationsCallback -> m SignalHandlerId
a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarShowConnectToServerCallback
cb' = IO () -> C_PlacesSidebarShowConnectToServerCallback
wrap_PlacesSidebarShowOtherLocationsCallback IO ()
cb
FunPtr C_PlacesSidebarShowConnectToServerCallback
cb'' <- C_PlacesSidebarShowConnectToServerCallback
-> IO (FunPtr C_PlacesSidebarShowConnectToServerCallback)
mk_PlacesSidebarShowOtherLocationsCallback C_PlacesSidebarShowConnectToServerCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarShowConnectToServerCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"show-other-locations" FunPtr C_PlacesSidebarShowConnectToServerCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPlacesSidebarShowOtherLocations :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarShowOtherLocationsCallback -> m SignalHandlerId
a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarShowConnectToServerCallback
cb' = IO () -> C_PlacesSidebarShowConnectToServerCallback
wrap_PlacesSidebarShowOtherLocationsCallback IO ()
cb
FunPtr C_PlacesSidebarShowConnectToServerCallback
cb'' <- C_PlacesSidebarShowConnectToServerCallback
-> IO (FunPtr C_PlacesSidebarShowConnectToServerCallback)
mk_PlacesSidebarShowOtherLocationsCallback C_PlacesSidebarShowConnectToServerCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarShowConnectToServerCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"show-other-locations" FunPtr C_PlacesSidebarShowConnectToServerCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarShowOtherLocationsSignalInfo
instance SignalInfo PlacesSidebarShowOtherLocationsSignalInfo where
type HaskellCallbackType PlacesSidebarShowOtherLocationsSignalInfo = PlacesSidebarShowOtherLocationsCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PlacesSidebarShowOtherLocationsCallback cb
cb'' <- mk_PlacesSidebarShowOtherLocationsCallback cb'
connectSignalFunPtr obj "show-other-locations" cb'' connectMode detail
#endif
type =
[Gtk.Flags.PlacesOpenFlags]
-> IO ()
noPlacesSidebarShowOtherLocationsWithFlagsCallback :: Maybe PlacesSidebarShowOtherLocationsWithFlagsCallback
= Maybe PlacesSidebarShowOtherLocationsWithFlagsCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_PlacesSidebarShowOtherLocationsWithFlagsCallback -> IO (FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
genClosure_PlacesSidebarShowOtherLocationsWithFlags :: MonadIO m => PlacesSidebarShowOtherLocationsWithFlagsCallback -> m (GClosure C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
PlacesSidebarShowOtherLocationsWithFlagsCallback
cb = IO (GClosure C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
-> m (GClosure C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
-> m (GClosure C_PlacesSidebarShowOtherLocationsWithFlagsCallback))
-> IO (GClosure C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
-> m (GClosure C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb' = PlacesSidebarShowOtherLocationsWithFlagsCallback
-> C_PlacesSidebarShowOtherLocationsWithFlagsCallback
wrap_PlacesSidebarShowOtherLocationsWithFlagsCallback PlacesSidebarShowOtherLocationsWithFlagsCallback
cb
C_PlacesSidebarShowOtherLocationsWithFlagsCallback
-> IO (FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
mk_PlacesSidebarShowOtherLocationsWithFlagsCallback C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb' IO (FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
-> (FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback
-> IO
(GClosure C_PlacesSidebarShowOtherLocationsWithFlagsCallback))
-> IO (GClosure C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback
-> IO (GClosure C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PlacesSidebarShowOtherLocationsWithFlagsCallback ::
PlacesSidebarShowOtherLocationsWithFlagsCallback ->
C_PlacesSidebarShowOtherLocationsWithFlagsCallback
PlacesSidebarShowOtherLocationsWithFlagsCallback
_cb Ptr ()
_ CUInt
openFlags Ptr ()
_ = do
let openFlags' :: [PlacesOpenFlags]
openFlags' = CUInt -> [PlacesOpenFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
openFlags
PlacesSidebarShowOtherLocationsWithFlagsCallback
_cb [PlacesOpenFlags]
openFlags'
onPlacesSidebarShowOtherLocationsWithFlags :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarShowOtherLocationsWithFlagsCallback -> m SignalHandlerId
a
obj PlacesSidebarShowOtherLocationsWithFlagsCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb' = PlacesSidebarShowOtherLocationsWithFlagsCallback
-> C_PlacesSidebarShowOtherLocationsWithFlagsCallback
wrap_PlacesSidebarShowOtherLocationsWithFlagsCallback PlacesSidebarShowOtherLocationsWithFlagsCallback
cb
FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb'' <- C_PlacesSidebarShowOtherLocationsWithFlagsCallback
-> IO (FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
mk_PlacesSidebarShowOtherLocationsWithFlagsCallback C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"show-other-locations-with-flags" FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPlacesSidebarShowOtherLocationsWithFlags :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarShowOtherLocationsWithFlagsCallback -> m SignalHandlerId
a
obj PlacesSidebarShowOtherLocationsWithFlagsCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb' = PlacesSidebarShowOtherLocationsWithFlagsCallback
-> C_PlacesSidebarShowOtherLocationsWithFlagsCallback
wrap_PlacesSidebarShowOtherLocationsWithFlagsCallback PlacesSidebarShowOtherLocationsWithFlagsCallback
cb
FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb'' <- C_PlacesSidebarShowOtherLocationsWithFlagsCallback
-> IO (FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
mk_PlacesSidebarShowOtherLocationsWithFlagsCallback C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"show-other-locations-with-flags" FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarShowOtherLocationsWithFlagsSignalInfo
instance SignalInfo PlacesSidebarShowOtherLocationsWithFlagsSignalInfo where
type HaskellCallbackType PlacesSidebarShowOtherLocationsWithFlagsSignalInfo = PlacesSidebarShowOtherLocationsWithFlagsCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PlacesSidebarShowOtherLocationsWithFlagsCallback cb
cb'' <- mk_PlacesSidebarShowOtherLocationsWithFlagsCallback cb'
connectSignalFunPtr obj "show-other-locations-with-flags" cb'' connectMode detail
#endif
type =
[Gtk.Flags.PlacesOpenFlags]
-> IO ()
noPlacesSidebarShowStarredLocationCallback :: Maybe PlacesSidebarShowStarredLocationCallback
= Maybe PlacesSidebarShowOtherLocationsWithFlagsCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_PlacesSidebarShowStarredLocationCallback -> IO (FunPtr C_PlacesSidebarShowStarredLocationCallback)
genClosure_PlacesSidebarShowStarredLocation :: MonadIO m => PlacesSidebarShowStarredLocationCallback -> m (GClosure C_PlacesSidebarShowStarredLocationCallback)
PlacesSidebarShowOtherLocationsWithFlagsCallback
cb = IO (GClosure C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
-> m (GClosure C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
-> m (GClosure C_PlacesSidebarShowOtherLocationsWithFlagsCallback))
-> IO (GClosure C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
-> m (GClosure C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb' = PlacesSidebarShowOtherLocationsWithFlagsCallback
-> C_PlacesSidebarShowOtherLocationsWithFlagsCallback
wrap_PlacesSidebarShowStarredLocationCallback PlacesSidebarShowOtherLocationsWithFlagsCallback
cb
C_PlacesSidebarShowOtherLocationsWithFlagsCallback
-> IO (FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
mk_PlacesSidebarShowStarredLocationCallback C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb' IO (FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
-> (FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback
-> IO
(GClosure C_PlacesSidebarShowOtherLocationsWithFlagsCallback))
-> IO (GClosure C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback
-> IO (GClosure C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PlacesSidebarShowStarredLocationCallback ::
PlacesSidebarShowStarredLocationCallback ->
C_PlacesSidebarShowStarredLocationCallback
PlacesSidebarShowOtherLocationsWithFlagsCallback
_cb Ptr ()
_ CUInt
openFlags Ptr ()
_ = do
let openFlags' :: [PlacesOpenFlags]
openFlags' = CUInt -> [PlacesOpenFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
openFlags
PlacesSidebarShowOtherLocationsWithFlagsCallback
_cb [PlacesOpenFlags]
openFlags'
onPlacesSidebarShowStarredLocation :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarShowStarredLocationCallback -> m SignalHandlerId
a
obj PlacesSidebarShowOtherLocationsWithFlagsCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb' = PlacesSidebarShowOtherLocationsWithFlagsCallback
-> C_PlacesSidebarShowOtherLocationsWithFlagsCallback
wrap_PlacesSidebarShowStarredLocationCallback PlacesSidebarShowOtherLocationsWithFlagsCallback
cb
FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb'' <- C_PlacesSidebarShowOtherLocationsWithFlagsCallback
-> IO (FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
mk_PlacesSidebarShowStarredLocationCallback C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"show-starred-location" FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPlacesSidebarShowStarredLocation :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarShowStarredLocationCallback -> m SignalHandlerId
a
obj PlacesSidebarShowOtherLocationsWithFlagsCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb' = PlacesSidebarShowOtherLocationsWithFlagsCallback
-> C_PlacesSidebarShowOtherLocationsWithFlagsCallback
wrap_PlacesSidebarShowStarredLocationCallback PlacesSidebarShowOtherLocationsWithFlagsCallback
cb
FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb'' <- C_PlacesSidebarShowOtherLocationsWithFlagsCallback
-> IO (FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback)
mk_PlacesSidebarShowStarredLocationCallback C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"show-starred-location" FunPtr C_PlacesSidebarShowOtherLocationsWithFlagsCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarShowStarredLocationSignalInfo
instance SignalInfo PlacesSidebarShowStarredLocationSignalInfo where
type HaskellCallbackType PlacesSidebarShowStarredLocationSignalInfo = PlacesSidebarShowStarredLocationCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PlacesSidebarShowStarredLocationCallback cb
cb'' <- mk_PlacesSidebarShowStarredLocationCallback cb'
connectSignalFunPtr obj "show-starred-location" cb'' connectMode detail
#endif
type =
Gio.MountOperation.MountOperation
-> IO ()
noPlacesSidebarUnmountCallback :: Maybe PlacesSidebarUnmountCallback
= Maybe PlacesSidebarMountCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr Gio.MountOperation.MountOperation ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_PlacesSidebarUnmountCallback -> IO (FunPtr C_PlacesSidebarUnmountCallback)
genClosure_PlacesSidebarUnmount :: MonadIO m => PlacesSidebarUnmountCallback -> m (GClosure C_PlacesSidebarUnmountCallback)
PlacesSidebarMountCallback
cb = IO (GClosure C_PlacesSidebarMountCallback)
-> m (GClosure C_PlacesSidebarMountCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PlacesSidebarMountCallback)
-> m (GClosure C_PlacesSidebarMountCallback))
-> IO (GClosure C_PlacesSidebarMountCallback)
-> m (GClosure C_PlacesSidebarMountCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarMountCallback
cb' = PlacesSidebarMountCallback -> C_PlacesSidebarMountCallback
wrap_PlacesSidebarUnmountCallback PlacesSidebarMountCallback
cb
C_PlacesSidebarMountCallback
-> IO (FunPtr C_PlacesSidebarMountCallback)
mk_PlacesSidebarUnmountCallback C_PlacesSidebarMountCallback
cb' IO (FunPtr C_PlacesSidebarMountCallback)
-> (FunPtr C_PlacesSidebarMountCallback
-> IO (GClosure C_PlacesSidebarMountCallback))
-> IO (GClosure C_PlacesSidebarMountCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PlacesSidebarMountCallback
-> IO (GClosure C_PlacesSidebarMountCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PlacesSidebarUnmountCallback ::
PlacesSidebarUnmountCallback ->
C_PlacesSidebarUnmountCallback
PlacesSidebarMountCallback
_cb Ptr ()
_ Ptr MountOperation
mountOperation Ptr ()
_ = do
MountOperation
mountOperation' <- ((ManagedPtr MountOperation -> MountOperation)
-> Ptr MountOperation -> IO MountOperation
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr MountOperation -> MountOperation
Gio.MountOperation.MountOperation) Ptr MountOperation
mountOperation
PlacesSidebarMountCallback
_cb MountOperation
mountOperation'
onPlacesSidebarUnmount :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarUnmountCallback -> m SignalHandlerId
a
obj PlacesSidebarMountCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarMountCallback
cb' = PlacesSidebarMountCallback -> C_PlacesSidebarMountCallback
wrap_PlacesSidebarUnmountCallback PlacesSidebarMountCallback
cb
FunPtr C_PlacesSidebarMountCallback
cb'' <- C_PlacesSidebarMountCallback
-> IO (FunPtr C_PlacesSidebarMountCallback)
mk_PlacesSidebarUnmountCallback C_PlacesSidebarMountCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarMountCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"unmount" FunPtr C_PlacesSidebarMountCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPlacesSidebarUnmount :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarUnmountCallback -> m SignalHandlerId
a
obj PlacesSidebarMountCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PlacesSidebarMountCallback
cb' = PlacesSidebarMountCallback -> C_PlacesSidebarMountCallback
wrap_PlacesSidebarUnmountCallback PlacesSidebarMountCallback
cb
FunPtr C_PlacesSidebarMountCallback
cb'' <- C_PlacesSidebarMountCallback
-> IO (FunPtr C_PlacesSidebarMountCallback)
mk_PlacesSidebarUnmountCallback C_PlacesSidebarMountCallback
cb'
a
-> Text
-> FunPtr C_PlacesSidebarMountCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"unmount" FunPtr C_PlacesSidebarMountCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarUnmountSignalInfo
instance SignalInfo PlacesSidebarUnmountSignalInfo where
type HaskellCallbackType PlacesSidebarUnmountSignalInfo = PlacesSidebarUnmountCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PlacesSidebarUnmountCallback cb
cb'' <- mk_PlacesSidebarUnmountCallback cb'
connectSignalFunPtr obj "unmount" cb'' connectMode detail
#endif
getPlacesSidebarLocalOnly :: (MonadIO m, IsPlacesSidebar o) => o -> m Bool
o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"local-only"
setPlacesSidebarLocalOnly :: (MonadIO m, IsPlacesSidebar o) => o -> Bool -> m ()
o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"local-only" Bool
val
constructPlacesSidebarLocalOnly :: (IsPlacesSidebar o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"local-only" Bool
val
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarLocalOnlyPropertyInfo
instance AttrInfo PlacesSidebarLocalOnlyPropertyInfo where
type AttrAllowedOps PlacesSidebarLocalOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PlacesSidebarLocalOnlyPropertyInfo = IsPlacesSidebar
type AttrSetTypeConstraint PlacesSidebarLocalOnlyPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PlacesSidebarLocalOnlyPropertyInfo = (~) Bool
type AttrTransferType PlacesSidebarLocalOnlyPropertyInfo = Bool
type AttrGetType PlacesSidebarLocalOnlyPropertyInfo = Bool
type AttrLabel PlacesSidebarLocalOnlyPropertyInfo = "local-only"
type AttrOrigin PlacesSidebarLocalOnlyPropertyInfo = PlacesSidebar
attrGet = getPlacesSidebarLocalOnly
attrSet = setPlacesSidebarLocalOnly
attrTransfer _ v = do
return v
attrConstruct = constructPlacesSidebarLocalOnly
attrClear = undefined
#endif
getPlacesSidebarLocation :: (MonadIO m, IsPlacesSidebar o) => o -> m (Maybe Gio.File.File)
o
obj = IO (Maybe File) -> m (Maybe File)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe File) -> m (Maybe File))
-> IO (Maybe File) -> m (Maybe 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
"location" ManagedPtr File -> File
Gio.File.File
setPlacesSidebarLocation :: (MonadIO m, IsPlacesSidebar o, Gio.File.IsFile a) => o -> a -> m ()
o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"location" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructPlacesSidebarLocation :: (IsPlacesSidebar o, MIO.MonadIO m, Gio.File.IsFile a) => a -> m (GValueConstruct o)
a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"location" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearPlacesSidebarLocation :: (MonadIO m, IsPlacesSidebar o) => o -> m ()
o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe File -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"location" (Maybe File
forall a. Maybe a
Nothing :: Maybe Gio.File.File)
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarLocationPropertyInfo
instance AttrInfo PlacesSidebarLocationPropertyInfo where
type AttrAllowedOps PlacesSidebarLocationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint PlacesSidebarLocationPropertyInfo = IsPlacesSidebar
type AttrSetTypeConstraint PlacesSidebarLocationPropertyInfo = Gio.File.IsFile
type AttrTransferTypeConstraint PlacesSidebarLocationPropertyInfo = Gio.File.IsFile
type AttrTransferType PlacesSidebarLocationPropertyInfo = Gio.File.File
type AttrGetType PlacesSidebarLocationPropertyInfo = (Maybe Gio.File.File)
type AttrLabel PlacesSidebarLocationPropertyInfo = "location"
type AttrOrigin PlacesSidebarLocationPropertyInfo = PlacesSidebar
attrGet = getPlacesSidebarLocation
attrSet = setPlacesSidebarLocation
attrTransfer _ v = do
unsafeCastTo Gio.File.File v
attrConstruct = constructPlacesSidebarLocation
attrClear = clearPlacesSidebarLocation
#endif
getPlacesSidebarOpenFlags :: (MonadIO m, IsPlacesSidebar o) => o -> m [Gtk.Flags.PlacesOpenFlags]
o
obj = IO [PlacesOpenFlags] -> m [PlacesOpenFlags]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO [PlacesOpenFlags] -> m [PlacesOpenFlags])
-> IO [PlacesOpenFlags] -> m [PlacesOpenFlags]
forall a b. (a -> b) -> a -> b
$ o -> String -> IO [PlacesOpenFlags]
forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"open-flags"
setPlacesSidebarOpenFlags :: (MonadIO m, IsPlacesSidebar o) => o -> [Gtk.Flags.PlacesOpenFlags] -> m ()
o
obj [PlacesOpenFlags]
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> PlacesSidebarShowOtherLocationsWithFlagsCallback
forall a b.
(IsGFlag b, BoxedFlags b, GObject a) =>
a -> String -> [b] -> IO ()
B.Properties.setObjectPropertyFlags o
obj String
"open-flags" [PlacesOpenFlags]
val
constructPlacesSidebarOpenFlags :: (IsPlacesSidebar o, MIO.MonadIO m) => [Gtk.Flags.PlacesOpenFlags] -> m (GValueConstruct o)
[PlacesOpenFlags]
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> [PlacesOpenFlags] -> IO (GValueConstruct o)
forall a o.
(IsGFlag a, BoxedFlags a) =>
String -> [a] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFlags String
"open-flags" [PlacesOpenFlags]
val
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarOpenFlagsPropertyInfo
instance AttrInfo PlacesSidebarOpenFlagsPropertyInfo where
type AttrAllowedOps PlacesSidebarOpenFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PlacesSidebarOpenFlagsPropertyInfo = IsPlacesSidebar
type AttrSetTypeConstraint PlacesSidebarOpenFlagsPropertyInfo = (~) [Gtk.Flags.PlacesOpenFlags]
type AttrTransferTypeConstraint PlacesSidebarOpenFlagsPropertyInfo = (~) [Gtk.Flags.PlacesOpenFlags]
type AttrTransferType PlacesSidebarOpenFlagsPropertyInfo = [Gtk.Flags.PlacesOpenFlags]
type AttrGetType PlacesSidebarOpenFlagsPropertyInfo = [Gtk.Flags.PlacesOpenFlags]
type AttrLabel PlacesSidebarOpenFlagsPropertyInfo = "open-flags"
type AttrOrigin PlacesSidebarOpenFlagsPropertyInfo = PlacesSidebar
attrGet = getPlacesSidebarOpenFlags
attrSet = setPlacesSidebarOpenFlags
attrTransfer _ v = do
return v
attrConstruct = constructPlacesSidebarOpenFlags
attrClear = undefined
#endif
getPlacesSidebarPopulateAll :: (MonadIO m, IsPlacesSidebar o) => o -> m Bool
o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"populate-all"
setPlacesSidebarPopulateAll :: (MonadIO m, IsPlacesSidebar o) => o -> Bool -> m ()
o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"populate-all" Bool
val
constructPlacesSidebarPopulateAll :: (IsPlacesSidebar o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"populate-all" Bool
val
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarPopulateAllPropertyInfo
instance AttrInfo PlacesSidebarPopulateAllPropertyInfo where
type AttrAllowedOps PlacesSidebarPopulateAllPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PlacesSidebarPopulateAllPropertyInfo = IsPlacesSidebar
type AttrSetTypeConstraint PlacesSidebarPopulateAllPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PlacesSidebarPopulateAllPropertyInfo = (~) Bool
type AttrTransferType PlacesSidebarPopulateAllPropertyInfo = Bool
type AttrGetType PlacesSidebarPopulateAllPropertyInfo = Bool
type AttrLabel PlacesSidebarPopulateAllPropertyInfo = "populate-all"
type AttrOrigin PlacesSidebarPopulateAllPropertyInfo = PlacesSidebar
attrGet = getPlacesSidebarPopulateAll
attrSet = setPlacesSidebarPopulateAll
attrTransfer _ v = do
return v
attrConstruct = constructPlacesSidebarPopulateAll
attrClear = undefined
#endif
getPlacesSidebarShowConnectToServer :: (MonadIO m, IsPlacesSidebar o) => o -> m Bool
o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-connect-to-server"
setPlacesSidebarShowConnectToServer :: (MonadIO m, IsPlacesSidebar o) => o -> Bool -> m ()
o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-connect-to-server" Bool
val
constructPlacesSidebarShowConnectToServer :: (IsPlacesSidebar o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-connect-to-server" Bool
val
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarShowConnectToServerPropertyInfo
instance AttrInfo PlacesSidebarShowConnectToServerPropertyInfo where
type AttrAllowedOps PlacesSidebarShowConnectToServerPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PlacesSidebarShowConnectToServerPropertyInfo = IsPlacesSidebar
type AttrSetTypeConstraint PlacesSidebarShowConnectToServerPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PlacesSidebarShowConnectToServerPropertyInfo = (~) Bool
type AttrTransferType PlacesSidebarShowConnectToServerPropertyInfo = Bool
type AttrGetType PlacesSidebarShowConnectToServerPropertyInfo = Bool
type AttrLabel PlacesSidebarShowConnectToServerPropertyInfo = "show-connect-to-server"
type AttrOrigin PlacesSidebarShowConnectToServerPropertyInfo = PlacesSidebar
attrGet = getPlacesSidebarShowConnectToServer
attrSet = setPlacesSidebarShowConnectToServer
attrTransfer _ v = do
return v
attrConstruct = constructPlacesSidebarShowConnectToServer
attrClear = undefined
#endif
getPlacesSidebarShowDesktop :: (MonadIO m, IsPlacesSidebar o) => o -> m Bool
o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-desktop"
setPlacesSidebarShowDesktop :: (MonadIO m, IsPlacesSidebar o) => o -> Bool -> m ()
o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-desktop" Bool
val
constructPlacesSidebarShowDesktop :: (IsPlacesSidebar o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-desktop" Bool
val
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarShowDesktopPropertyInfo
instance AttrInfo PlacesSidebarShowDesktopPropertyInfo where
type AttrAllowedOps PlacesSidebarShowDesktopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PlacesSidebarShowDesktopPropertyInfo = IsPlacesSidebar
type AttrSetTypeConstraint PlacesSidebarShowDesktopPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PlacesSidebarShowDesktopPropertyInfo = (~) Bool
type AttrTransferType PlacesSidebarShowDesktopPropertyInfo = Bool
type AttrGetType PlacesSidebarShowDesktopPropertyInfo = Bool
type AttrLabel PlacesSidebarShowDesktopPropertyInfo = "show-desktop"
type AttrOrigin PlacesSidebarShowDesktopPropertyInfo = PlacesSidebar
attrGet = getPlacesSidebarShowDesktop
attrSet = setPlacesSidebarShowDesktop
attrTransfer _ v = do
return v
attrConstruct = constructPlacesSidebarShowDesktop
attrClear = undefined
#endif
getPlacesSidebarShowEnterLocation :: (MonadIO m, IsPlacesSidebar o) => o -> m Bool
o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-enter-location"
setPlacesSidebarShowEnterLocation :: (MonadIO m, IsPlacesSidebar o) => o -> Bool -> m ()
o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-enter-location" Bool
val
constructPlacesSidebarShowEnterLocation :: (IsPlacesSidebar o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-enter-location" Bool
val
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarShowEnterLocationPropertyInfo
instance AttrInfo PlacesSidebarShowEnterLocationPropertyInfo where
type AttrAllowedOps PlacesSidebarShowEnterLocationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PlacesSidebarShowEnterLocationPropertyInfo = IsPlacesSidebar
type AttrSetTypeConstraint PlacesSidebarShowEnterLocationPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PlacesSidebarShowEnterLocationPropertyInfo = (~) Bool
type AttrTransferType PlacesSidebarShowEnterLocationPropertyInfo = Bool
type AttrGetType PlacesSidebarShowEnterLocationPropertyInfo = Bool
type AttrLabel PlacesSidebarShowEnterLocationPropertyInfo = "show-enter-location"
type AttrOrigin PlacesSidebarShowEnterLocationPropertyInfo = PlacesSidebar
attrGet = getPlacesSidebarShowEnterLocation
attrSet = setPlacesSidebarShowEnterLocation
attrTransfer _ v = do
return v
attrConstruct = constructPlacesSidebarShowEnterLocation
attrClear = undefined
#endif
getPlacesSidebarShowOtherLocations :: (MonadIO m, IsPlacesSidebar o) => o -> m Bool
o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-other-locations"
setPlacesSidebarShowOtherLocations :: (MonadIO m, IsPlacesSidebar o) => o -> Bool -> m ()
o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-other-locations" Bool
val
constructPlacesSidebarShowOtherLocations :: (IsPlacesSidebar o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-other-locations" Bool
val
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarShowOtherLocationsPropertyInfo
instance AttrInfo PlacesSidebarShowOtherLocationsPropertyInfo where
type AttrAllowedOps PlacesSidebarShowOtherLocationsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PlacesSidebarShowOtherLocationsPropertyInfo = IsPlacesSidebar
type AttrSetTypeConstraint PlacesSidebarShowOtherLocationsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PlacesSidebarShowOtherLocationsPropertyInfo = (~) Bool
type AttrTransferType PlacesSidebarShowOtherLocationsPropertyInfo = Bool
type AttrGetType PlacesSidebarShowOtherLocationsPropertyInfo = Bool
type AttrLabel PlacesSidebarShowOtherLocationsPropertyInfo = "show-other-locations"
type AttrOrigin PlacesSidebarShowOtherLocationsPropertyInfo = PlacesSidebar
attrGet = getPlacesSidebarShowOtherLocations
attrSet = setPlacesSidebarShowOtherLocations
attrTransfer _ v = do
return v
attrConstruct = constructPlacesSidebarShowOtherLocations
attrClear = undefined
#endif
getPlacesSidebarShowRecent :: (MonadIO m, IsPlacesSidebar o) => o -> m Bool
o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-recent"
setPlacesSidebarShowRecent :: (MonadIO m, IsPlacesSidebar o) => o -> Bool -> m ()
o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-recent" Bool
val
constructPlacesSidebarShowRecent :: (IsPlacesSidebar o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-recent" Bool
val
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarShowRecentPropertyInfo
instance AttrInfo PlacesSidebarShowRecentPropertyInfo where
type AttrAllowedOps PlacesSidebarShowRecentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PlacesSidebarShowRecentPropertyInfo = IsPlacesSidebar
type AttrSetTypeConstraint PlacesSidebarShowRecentPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PlacesSidebarShowRecentPropertyInfo = (~) Bool
type AttrTransferType PlacesSidebarShowRecentPropertyInfo = Bool
type AttrGetType PlacesSidebarShowRecentPropertyInfo = Bool
type AttrLabel PlacesSidebarShowRecentPropertyInfo = "show-recent"
type AttrOrigin PlacesSidebarShowRecentPropertyInfo = PlacesSidebar
attrGet = getPlacesSidebarShowRecent
attrSet = setPlacesSidebarShowRecent
attrTransfer _ v = do
return v
attrConstruct = constructPlacesSidebarShowRecent
attrClear = undefined
#endif
getPlacesSidebarShowStarredLocation :: (MonadIO m, IsPlacesSidebar o) => o -> m Bool
o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-starred-location"
setPlacesSidebarShowStarredLocation :: (MonadIO m, IsPlacesSidebar o) => o -> Bool -> m ()
o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-starred-location" Bool
val
constructPlacesSidebarShowStarredLocation :: (IsPlacesSidebar o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-starred-location" Bool
val
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarShowStarredLocationPropertyInfo
instance AttrInfo PlacesSidebarShowStarredLocationPropertyInfo where
type AttrAllowedOps PlacesSidebarShowStarredLocationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PlacesSidebarShowStarredLocationPropertyInfo = IsPlacesSidebar
type AttrSetTypeConstraint PlacesSidebarShowStarredLocationPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PlacesSidebarShowStarredLocationPropertyInfo = (~) Bool
type AttrTransferType PlacesSidebarShowStarredLocationPropertyInfo = Bool
type AttrGetType PlacesSidebarShowStarredLocationPropertyInfo = Bool
type AttrLabel PlacesSidebarShowStarredLocationPropertyInfo = "show-starred-location"
type AttrOrigin PlacesSidebarShowStarredLocationPropertyInfo = PlacesSidebar
attrGet = getPlacesSidebarShowStarredLocation
attrSet = setPlacesSidebarShowStarredLocation
attrTransfer _ v = do
return v
attrConstruct = constructPlacesSidebarShowStarredLocation
attrClear = undefined
#endif
getPlacesSidebarShowTrash :: (MonadIO m, IsPlacesSidebar o) => o -> m Bool
o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-trash"
setPlacesSidebarShowTrash :: (MonadIO m, IsPlacesSidebar o) => o -> Bool -> m ()
o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-trash" Bool
val
constructPlacesSidebarShowTrash :: (IsPlacesSidebar o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-trash" Bool
val
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarShowTrashPropertyInfo
instance AttrInfo PlacesSidebarShowTrashPropertyInfo where
type AttrAllowedOps PlacesSidebarShowTrashPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PlacesSidebarShowTrashPropertyInfo = IsPlacesSidebar
type AttrSetTypeConstraint PlacesSidebarShowTrashPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PlacesSidebarShowTrashPropertyInfo = (~) Bool
type AttrTransferType PlacesSidebarShowTrashPropertyInfo = Bool
type AttrGetType PlacesSidebarShowTrashPropertyInfo = Bool
type AttrLabel PlacesSidebarShowTrashPropertyInfo = "show-trash"
type AttrOrigin PlacesSidebarShowTrashPropertyInfo = PlacesSidebar
attrGet = getPlacesSidebarShowTrash
attrSet = setPlacesSidebarShowTrash
attrTransfer _ v = do
return v
attrConstruct = constructPlacesSidebarShowTrash
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList PlacesSidebar
type instance O.AttributeList PlacesSidebar = PlacesSidebarAttributeList
type PlacesSidebarAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("hadjustment", Gtk.ScrolledWindow.ScrolledWindowHadjustmentPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("hscrollbarPolicy", Gtk.ScrolledWindow.ScrolledWindowHscrollbarPolicyPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("kineticScrolling", Gtk.ScrolledWindow.ScrolledWindowKineticScrollingPropertyInfo), '("localOnly", PlacesSidebarLocalOnlyPropertyInfo), '("location", PlacesSidebarLocationPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("maxContentHeight", Gtk.ScrolledWindow.ScrolledWindowMaxContentHeightPropertyInfo), '("maxContentWidth", Gtk.ScrolledWindow.ScrolledWindowMaxContentWidthPropertyInfo), '("minContentHeight", Gtk.ScrolledWindow.ScrolledWindowMinContentHeightPropertyInfo), '("minContentWidth", Gtk.ScrolledWindow.ScrolledWindowMinContentWidthPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("openFlags", PlacesSidebarOpenFlagsPropertyInfo), '("overlayScrolling", Gtk.ScrolledWindow.ScrolledWindowOverlayScrollingPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("populateAll", PlacesSidebarPopulateAllPropertyInfo), '("propagateNaturalHeight", Gtk.ScrolledWindow.ScrolledWindowPropagateNaturalHeightPropertyInfo), '("propagateNaturalWidth", Gtk.ScrolledWindow.ScrolledWindowPropagateNaturalWidthPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("shadowType", Gtk.ScrolledWindow.ScrolledWindowShadowTypePropertyInfo), '("showConnectToServer", PlacesSidebarShowConnectToServerPropertyInfo), '("showDesktop", PlacesSidebarShowDesktopPropertyInfo), '("showEnterLocation", PlacesSidebarShowEnterLocationPropertyInfo), '("showOtherLocations", PlacesSidebarShowOtherLocationsPropertyInfo), '("showRecent", PlacesSidebarShowRecentPropertyInfo), '("showStarredLocation", PlacesSidebarShowStarredLocationPropertyInfo), '("showTrash", PlacesSidebarShowTrashPropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("vadjustment", Gtk.ScrolledWindow.ScrolledWindowVadjustmentPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("vscrollbarPolicy", Gtk.ScrolledWindow.ScrolledWindowVscrollbarPolicyPropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo), '("windowPlacement", Gtk.ScrolledWindow.ScrolledWindowWindowPlacementPropertyInfo), '("windowPlacementSet", Gtk.ScrolledWindow.ScrolledWindowWindowPlacementSetPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
placesSidebarLocalOnly :: AttrLabelProxy "localOnly"
placesSidebarLocalOnly = AttrLabelProxy
placesSidebarLocation :: AttrLabelProxy "location"
placesSidebarLocation = AttrLabelProxy
placesSidebarOpenFlags :: AttrLabelProxy "openFlags"
placesSidebarOpenFlags = AttrLabelProxy
placesSidebarPopulateAll :: AttrLabelProxy "populateAll"
placesSidebarPopulateAll = AttrLabelProxy
placesSidebarShowConnectToServer :: AttrLabelProxy "showConnectToServer"
placesSidebarShowConnectToServer = AttrLabelProxy
placesSidebarShowDesktop :: AttrLabelProxy "showDesktop"
placesSidebarShowDesktop = AttrLabelProxy
placesSidebarShowEnterLocation :: AttrLabelProxy "showEnterLocation"
placesSidebarShowEnterLocation = AttrLabelProxy
placesSidebarShowOtherLocations :: AttrLabelProxy "showOtherLocations"
placesSidebarShowOtherLocations = AttrLabelProxy
placesSidebarShowRecent :: AttrLabelProxy "showRecent"
placesSidebarShowRecent = AttrLabelProxy
placesSidebarShowStarredLocation :: AttrLabelProxy "showStarredLocation"
placesSidebarShowStarredLocation = AttrLabelProxy
placesSidebarShowTrash :: AttrLabelProxy "showTrash"
placesSidebarShowTrash = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList PlacesSidebar = PlacesSidebarSignalList
type PlacesSidebarSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragActionAsk", PlacesSidebarDragActionAskSignalInfo), '("dragActionRequested", PlacesSidebarDragActionRequestedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("dragPerformDrop", PlacesSidebarDragPerformDropSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("edgeOvershot", Gtk.ScrolledWindow.ScrolledWindowEdgeOvershotSignalInfo), '("edgeReached", Gtk.ScrolledWindow.ScrolledWindowEdgeReachedSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("mount", PlacesSidebarMountSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("moveFocusOut", Gtk.ScrolledWindow.ScrolledWindowMoveFocusOutSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("openLocation", PlacesSidebarOpenLocationSignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("populatePopup", PlacesSidebarPopulatePopupSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollChild", Gtk.ScrolledWindow.ScrolledWindowScrollChildSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showConnectToServer", PlacesSidebarShowConnectToServerSignalInfo), '("showEnterLocation", PlacesSidebarShowEnterLocationSignalInfo), '("showErrorMessage", PlacesSidebarShowErrorMessageSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("showOtherLocations", PlacesSidebarShowOtherLocationsSignalInfo), '("showOtherLocationsWithFlags", PlacesSidebarShowOtherLocationsWithFlagsSignalInfo), '("showStarredLocation", PlacesSidebarShowStarredLocationSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unmount", PlacesSidebarUnmountSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_places_sidebar_new" ::
IO (Ptr PlacesSidebar)
placesSidebarNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m PlacesSidebar
= IO PlacesSidebar -> m PlacesSidebar
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PlacesSidebar -> m PlacesSidebar)
-> IO PlacesSidebar -> m PlacesSidebar
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
result <- IO (Ptr PlacesSidebar)
gtk_places_sidebar_new
Text -> Ptr PlacesSidebar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"placesSidebarNew" Ptr PlacesSidebar
result
PlacesSidebar
result' <- ((ManagedPtr PlacesSidebar -> PlacesSidebar)
-> Ptr PlacesSidebar -> IO PlacesSidebar
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PlacesSidebar -> PlacesSidebar
PlacesSidebar) Ptr PlacesSidebar
result
PlacesSidebar -> IO PlacesSidebar
forall (m :: * -> *) a. Monad m => a -> m a
return PlacesSidebar
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_places_sidebar_add_shortcut" ::
Ptr PlacesSidebar ->
Ptr Gio.File.File ->
IO ()
placesSidebarAddShortcut ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a, Gio.File.IsFile b) =>
a
-> b
-> m ()
a
sidebar b
location = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
Ptr File
location' <- b -> IO (Ptr File)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
location
Ptr PlacesSidebar -> Ptr File -> IO ()
gtk_places_sidebar_add_shortcut Ptr PlacesSidebar
sidebar' Ptr File
location'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
location
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarAddShortcutMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsPlacesSidebar a, Gio.File.IsFile b) => O.OverloadedMethod PlacesSidebarAddShortcutMethodInfo a signature where
overloadedMethod = placesSidebarAddShortcut
instance O.OverloadedMethodInfo PlacesSidebarAddShortcutMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarAddShortcut",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarAddShortcut"
}
#endif
foreign import ccall "gtk_places_sidebar_get_local_only" ::
Ptr PlacesSidebar ->
IO CInt
placesSidebarGetLocalOnly ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> m Bool
a
sidebar = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
CInt
result <- Ptr PlacesSidebar -> IO CInt
gtk_places_sidebar_get_local_only Ptr PlacesSidebar
sidebar'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarGetLocalOnlyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarGetLocalOnlyMethodInfo a signature where
overloadedMethod = placesSidebarGetLocalOnly
instance O.OverloadedMethodInfo PlacesSidebarGetLocalOnlyMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarGetLocalOnly",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarGetLocalOnly"
}
#endif
foreign import ccall "gtk_places_sidebar_get_location" ::
Ptr PlacesSidebar ->
IO (Ptr Gio.File.File)
placesSidebarGetLocation ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> m (Maybe Gio.File.File)
a
sidebar = IO (Maybe File) -> m (Maybe File)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe File) -> m (Maybe File))
-> IO (Maybe File) -> m (Maybe File)
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
Ptr File
result <- Ptr PlacesSidebar -> IO (Ptr File)
gtk_places_sidebar_get_location Ptr PlacesSidebar
sidebar'
Maybe File
maybeResult <- Ptr File -> (Ptr File -> IO File) -> IO (Maybe File)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr File
result ((Ptr File -> IO File) -> IO (Maybe File))
-> (Ptr File -> IO File) -> IO (Maybe File)
forall a b. (a -> b) -> a -> b
$ \Ptr File
result' -> do
File
result'' <- ((ManagedPtr File -> File) -> Ptr File -> IO File
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr File -> File
Gio.File.File) Ptr File
result'
File -> IO File
forall (m :: * -> *) a. Monad m => a -> m a
return File
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
Maybe File -> IO (Maybe File)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe File
maybeResult
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarGetLocationMethodInfo
instance (signature ~ (m (Maybe Gio.File.File)), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarGetLocationMethodInfo a signature where
overloadedMethod = placesSidebarGetLocation
instance O.OverloadedMethodInfo PlacesSidebarGetLocationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarGetLocation",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarGetLocation"
}
#endif
foreign import ccall "gtk_places_sidebar_get_nth_bookmark" ::
Ptr PlacesSidebar ->
Int32 ->
IO (Ptr Gio.File.File)
placesSidebarGetNthBookmark ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> Int32
-> m (Maybe Gio.File.File)
a
sidebar Int32
n = IO (Maybe File) -> m (Maybe File)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe File) -> m (Maybe File))
-> IO (Maybe File) -> m (Maybe File)
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
Ptr File
result <- Ptr PlacesSidebar -> Int32 -> IO (Ptr File)
gtk_places_sidebar_get_nth_bookmark Ptr PlacesSidebar
sidebar' Int32
n
Maybe File
maybeResult <- Ptr File -> (Ptr File -> IO File) -> IO (Maybe File)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr File
result ((Ptr File -> IO File) -> IO (Maybe File))
-> (Ptr File -> IO File) -> IO (Maybe File)
forall a b. (a -> b) -> a -> b
$ \Ptr File
result' -> do
File
result'' <- ((ManagedPtr File -> File) -> Ptr File -> IO File
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr File -> File
Gio.File.File) Ptr File
result'
File -> IO File
forall (m :: * -> *) a. Monad m => a -> m a
return File
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
Maybe File -> IO (Maybe File)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe File
maybeResult
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarGetNthBookmarkMethodInfo
instance (signature ~ (Int32 -> m (Maybe Gio.File.File)), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarGetNthBookmarkMethodInfo a signature where
overloadedMethod = placesSidebarGetNthBookmark
instance O.OverloadedMethodInfo PlacesSidebarGetNthBookmarkMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarGetNthBookmark",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarGetNthBookmark"
}
#endif
foreign import ccall "gtk_places_sidebar_get_open_flags" ::
Ptr PlacesSidebar ->
IO CUInt
placesSidebarGetOpenFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> m [Gtk.Flags.PlacesOpenFlags]
a
sidebar = IO [PlacesOpenFlags] -> m [PlacesOpenFlags]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [PlacesOpenFlags] -> m [PlacesOpenFlags])
-> IO [PlacesOpenFlags] -> m [PlacesOpenFlags]
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
CUInt
result <- Ptr PlacesSidebar -> IO CUInt
gtk_places_sidebar_get_open_flags Ptr PlacesSidebar
sidebar'
let result' :: [PlacesOpenFlags]
result' = CUInt -> [PlacesOpenFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
[PlacesOpenFlags] -> IO [PlacesOpenFlags]
forall (m :: * -> *) a. Monad m => a -> m a
return [PlacesOpenFlags]
result'
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarGetOpenFlagsMethodInfo
instance (signature ~ (m [Gtk.Flags.PlacesOpenFlags]), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarGetOpenFlagsMethodInfo a signature where
overloadedMethod = placesSidebarGetOpenFlags
instance O.OverloadedMethodInfo PlacesSidebarGetOpenFlagsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarGetOpenFlags",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarGetOpenFlags"
}
#endif
foreign import ccall "gtk_places_sidebar_get_show_connect_to_server" ::
Ptr PlacesSidebar ->
IO CInt
{-# DEPRECATED placesSidebarGetShowConnectToServer ["(Since version 3.18)","It is recommended to group this functionality with the drives"," and network location under the new \\'Other Location\\' item"] #-}
placesSidebarGetShowConnectToServer ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> m Bool
a
sidebar = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
CInt
result <- Ptr PlacesSidebar -> IO CInt
gtk_places_sidebar_get_show_connect_to_server Ptr PlacesSidebar
sidebar'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarGetShowConnectToServerMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarGetShowConnectToServerMethodInfo a signature where
overloadedMethod = placesSidebarGetShowConnectToServer
instance O.OverloadedMethodInfo PlacesSidebarGetShowConnectToServerMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarGetShowConnectToServer",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarGetShowConnectToServer"
}
#endif
foreign import ccall "gtk_places_sidebar_get_show_desktop" ::
Ptr PlacesSidebar ->
IO CInt
placesSidebarGetShowDesktop ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> m Bool
a
sidebar = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
CInt
result <- Ptr PlacesSidebar -> IO CInt
gtk_places_sidebar_get_show_desktop Ptr PlacesSidebar
sidebar'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarGetShowDesktopMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarGetShowDesktopMethodInfo a signature where
overloadedMethod = placesSidebarGetShowDesktop
instance O.OverloadedMethodInfo PlacesSidebarGetShowDesktopMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarGetShowDesktop",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarGetShowDesktop"
}
#endif
foreign import ccall "gtk_places_sidebar_get_show_enter_location" ::
Ptr PlacesSidebar ->
IO CInt
placesSidebarGetShowEnterLocation ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> m Bool
a
sidebar = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
CInt
result <- Ptr PlacesSidebar -> IO CInt
gtk_places_sidebar_get_show_enter_location Ptr PlacesSidebar
sidebar'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarGetShowEnterLocationMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarGetShowEnterLocationMethodInfo a signature where
overloadedMethod = placesSidebarGetShowEnterLocation
instance O.OverloadedMethodInfo PlacesSidebarGetShowEnterLocationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarGetShowEnterLocation",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarGetShowEnterLocation"
}
#endif
foreign import ccall "gtk_places_sidebar_get_show_other_locations" ::
Ptr PlacesSidebar ->
IO CInt
placesSidebarGetShowOtherLocations ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> m Bool
a
sidebar = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
CInt
result <- Ptr PlacesSidebar -> IO CInt
gtk_places_sidebar_get_show_other_locations Ptr PlacesSidebar
sidebar'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarGetShowOtherLocationsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarGetShowOtherLocationsMethodInfo a signature where
overloadedMethod = placesSidebarGetShowOtherLocations
instance O.OverloadedMethodInfo PlacesSidebarGetShowOtherLocationsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarGetShowOtherLocations",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarGetShowOtherLocations"
}
#endif
foreign import ccall "gtk_places_sidebar_get_show_recent" ::
Ptr PlacesSidebar ->
IO CInt
placesSidebarGetShowRecent ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> m Bool
a
sidebar = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
CInt
result <- Ptr PlacesSidebar -> IO CInt
gtk_places_sidebar_get_show_recent Ptr PlacesSidebar
sidebar'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarGetShowRecentMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarGetShowRecentMethodInfo a signature where
overloadedMethod = placesSidebarGetShowRecent
instance O.OverloadedMethodInfo PlacesSidebarGetShowRecentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarGetShowRecent",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarGetShowRecent"
}
#endif
foreign import ccall "gtk_places_sidebar_get_show_starred_location" ::
Ptr PlacesSidebar ->
IO CInt
placesSidebarGetShowStarredLocation ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> m Bool
a
sidebar = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
CInt
result <- Ptr PlacesSidebar -> IO CInt
gtk_places_sidebar_get_show_starred_location Ptr PlacesSidebar
sidebar'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarGetShowStarredLocationMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarGetShowStarredLocationMethodInfo a signature where
overloadedMethod = placesSidebarGetShowStarredLocation
instance O.OverloadedMethodInfo PlacesSidebarGetShowStarredLocationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarGetShowStarredLocation",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarGetShowStarredLocation"
}
#endif
foreign import ccall "gtk_places_sidebar_get_show_trash" ::
Ptr PlacesSidebar ->
IO CInt
placesSidebarGetShowTrash ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> m Bool
a
sidebar = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
CInt
result <- Ptr PlacesSidebar -> IO CInt
gtk_places_sidebar_get_show_trash Ptr PlacesSidebar
sidebar'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarGetShowTrashMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarGetShowTrashMethodInfo a signature where
overloadedMethod = placesSidebarGetShowTrash
instance O.OverloadedMethodInfo PlacesSidebarGetShowTrashMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarGetShowTrash",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarGetShowTrash"
}
#endif
foreign import ccall "gtk_places_sidebar_list_shortcuts" ::
Ptr PlacesSidebar ->
IO (Ptr (GSList (Ptr Gio.File.File)))
placesSidebarListShortcuts ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> m [Gio.File.File]
a
sidebar = IO [File] -> m [File]
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
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
Ptr (GSList (Ptr File))
result <- Ptr PlacesSidebar -> IO (Ptr (GSList (Ptr File)))
gtk_places_sidebar_list_shortcuts Ptr PlacesSidebar
sidebar'
[Ptr File]
result' <- Ptr (GSList (Ptr File)) -> IO [Ptr File]
forall a. Ptr (GSList (Ptr a)) -> IO [Ptr a]
unpackGSList Ptr (GSList (Ptr File))
result
[File]
result'' <- (Ptr File -> IO File) -> [Ptr File] -> IO [File]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr File -> File) -> Ptr File -> IO File
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr File -> File
Gio.File.File) [Ptr File]
result'
Ptr (GSList (Ptr File)) -> IO ()
forall a. Ptr (GSList a) -> IO ()
g_slist_free Ptr (GSList (Ptr File))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
[File] -> IO [File]
forall (m :: * -> *) a. Monad m => a -> m a
return [File]
result''
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarListShortcutsMethodInfo
instance (signature ~ (m [Gio.File.File]), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarListShortcutsMethodInfo a signature where
overloadedMethod = placesSidebarListShortcuts
instance O.OverloadedMethodInfo PlacesSidebarListShortcutsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarListShortcuts",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarListShortcuts"
}
#endif
foreign import ccall "gtk_places_sidebar_remove_shortcut" ::
Ptr PlacesSidebar ->
Ptr Gio.File.File ->
IO ()
placesSidebarRemoveShortcut ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a, Gio.File.IsFile b) =>
a
-> b
-> m ()
a
sidebar b
location = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
Ptr File
location' <- b -> IO (Ptr File)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
location
Ptr PlacesSidebar -> Ptr File -> IO ()
gtk_places_sidebar_remove_shortcut Ptr PlacesSidebar
sidebar' Ptr File
location'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
location
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarRemoveShortcutMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsPlacesSidebar a, Gio.File.IsFile b) => O.OverloadedMethod PlacesSidebarRemoveShortcutMethodInfo a signature where
overloadedMethod = placesSidebarRemoveShortcut
instance O.OverloadedMethodInfo PlacesSidebarRemoveShortcutMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarRemoveShortcut",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarRemoveShortcut"
}
#endif
foreign import ccall "gtk_places_sidebar_set_drop_targets_visible" ::
Ptr PlacesSidebar ->
CInt ->
Ptr Gdk.DragContext.DragContext ->
IO ()
placesSidebarSetDropTargetsVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a, Gdk.DragContext.IsDragContext b) =>
a
-> Bool
-> b
-> m ()
a
sidebar Bool
visible b
context = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
let visible' :: CInt
visible' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
visible
Ptr DragContext
context' <- b -> IO (Ptr DragContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr PlacesSidebar -> CInt -> Ptr DragContext -> IO ()
gtk_places_sidebar_set_drop_targets_visible Ptr PlacesSidebar
sidebar' CInt
visible' Ptr DragContext
context'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarSetDropTargetsVisibleMethodInfo
instance (signature ~ (Bool -> b -> m ()), MonadIO m, IsPlacesSidebar a, Gdk.DragContext.IsDragContext b) => O.OverloadedMethod PlacesSidebarSetDropTargetsVisibleMethodInfo a signature where
overloadedMethod = placesSidebarSetDropTargetsVisible
instance O.OverloadedMethodInfo PlacesSidebarSetDropTargetsVisibleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarSetDropTargetsVisible",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarSetDropTargetsVisible"
}
#endif
foreign import ccall "gtk_places_sidebar_set_local_only" ::
Ptr PlacesSidebar ->
CInt ->
IO ()
placesSidebarSetLocalOnly ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> Bool
-> m ()
a
sidebar Bool
localOnly = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
let localOnly' :: CInt
localOnly' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
localOnly
Ptr PlacesSidebar -> CInt -> IO ()
gtk_places_sidebar_set_local_only Ptr PlacesSidebar
sidebar' CInt
localOnly'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarSetLocalOnlyMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarSetLocalOnlyMethodInfo a signature where
overloadedMethod = placesSidebarSetLocalOnly
instance O.OverloadedMethodInfo PlacesSidebarSetLocalOnlyMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarSetLocalOnly",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarSetLocalOnly"
}
#endif
foreign import ccall "gtk_places_sidebar_set_location" ::
Ptr PlacesSidebar ->
Ptr Gio.File.File ->
IO ()
placesSidebarSetLocation ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a, Gio.File.IsFile b) =>
a
-> Maybe (b)
-> m ()
a
sidebar Maybe b
location = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
Ptr File
maybeLocation <- case Maybe b
location of
Maybe b
Nothing -> Ptr File -> IO (Ptr File)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr File
forall a. Ptr a
nullPtr
Just b
jLocation -> do
Ptr File
jLocation' <- b -> IO (Ptr File)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jLocation
Ptr File -> IO (Ptr File)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr File
jLocation'
Ptr PlacesSidebar -> Ptr File -> IO ()
gtk_places_sidebar_set_location Ptr PlacesSidebar
sidebar' Ptr File
maybeLocation
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
location b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarSetLocationMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsPlacesSidebar a, Gio.File.IsFile b) => O.OverloadedMethod PlacesSidebarSetLocationMethodInfo a signature where
overloadedMethod = placesSidebarSetLocation
instance O.OverloadedMethodInfo PlacesSidebarSetLocationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarSetLocation",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarSetLocation"
}
#endif
foreign import ccall "gtk_places_sidebar_set_open_flags" ::
Ptr PlacesSidebar ->
CUInt ->
IO ()
placesSidebarSetOpenFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> [Gtk.Flags.PlacesOpenFlags]
-> m ()
a
sidebar [PlacesOpenFlags]
flags = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
let flags' :: CUInt
flags' = [PlacesOpenFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [PlacesOpenFlags]
flags
Ptr PlacesSidebar -> CUInt -> IO ()
gtk_places_sidebar_set_open_flags Ptr PlacesSidebar
sidebar' CUInt
flags'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarSetOpenFlagsMethodInfo
instance (signature ~ ([Gtk.Flags.PlacesOpenFlags] -> m ()), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarSetOpenFlagsMethodInfo a signature where
overloadedMethod = placesSidebarSetOpenFlags
instance O.OverloadedMethodInfo PlacesSidebarSetOpenFlagsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarSetOpenFlags",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarSetOpenFlags"
}
#endif
foreign import ccall "gtk_places_sidebar_set_show_connect_to_server" ::
Ptr PlacesSidebar ->
CInt ->
IO ()
{-# DEPRECATED placesSidebarSetShowConnectToServer ["(Since version 3.18)","It is recommended to group this functionality with the drives"," and network location under the new \\'Other Location\\' item"] #-}
placesSidebarSetShowConnectToServer ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> Bool
-> m ()
a
sidebar Bool
showConnectToServer = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
let showConnectToServer' :: CInt
showConnectToServer' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
showConnectToServer
Ptr PlacesSidebar -> CInt -> IO ()
gtk_places_sidebar_set_show_connect_to_server Ptr PlacesSidebar
sidebar' CInt
showConnectToServer'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarSetShowConnectToServerMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarSetShowConnectToServerMethodInfo a signature where
overloadedMethod = placesSidebarSetShowConnectToServer
instance O.OverloadedMethodInfo PlacesSidebarSetShowConnectToServerMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarSetShowConnectToServer",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarSetShowConnectToServer"
}
#endif
foreign import ccall "gtk_places_sidebar_set_show_desktop" ::
Ptr PlacesSidebar ->
CInt ->
IO ()
placesSidebarSetShowDesktop ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> Bool
-> m ()
a
sidebar Bool
showDesktop = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
let showDesktop' :: CInt
showDesktop' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
showDesktop
Ptr PlacesSidebar -> CInt -> IO ()
gtk_places_sidebar_set_show_desktop Ptr PlacesSidebar
sidebar' CInt
showDesktop'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarSetShowDesktopMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarSetShowDesktopMethodInfo a signature where
overloadedMethod = placesSidebarSetShowDesktop
instance O.OverloadedMethodInfo PlacesSidebarSetShowDesktopMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarSetShowDesktop",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarSetShowDesktop"
}
#endif
foreign import ccall "gtk_places_sidebar_set_show_enter_location" ::
Ptr PlacesSidebar ->
CInt ->
IO ()
placesSidebarSetShowEnterLocation ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> Bool
-> m ()
a
sidebar Bool
showEnterLocation = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
let showEnterLocation' :: CInt
showEnterLocation' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
showEnterLocation
Ptr PlacesSidebar -> CInt -> IO ()
gtk_places_sidebar_set_show_enter_location Ptr PlacesSidebar
sidebar' CInt
showEnterLocation'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarSetShowEnterLocationMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarSetShowEnterLocationMethodInfo a signature where
overloadedMethod = placesSidebarSetShowEnterLocation
instance O.OverloadedMethodInfo PlacesSidebarSetShowEnterLocationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarSetShowEnterLocation",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarSetShowEnterLocation"
}
#endif
foreign import ccall "gtk_places_sidebar_set_show_other_locations" ::
Ptr PlacesSidebar ->
CInt ->
IO ()
placesSidebarSetShowOtherLocations ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> Bool
-> m ()
a
sidebar Bool
showOtherLocations = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
let showOtherLocations' :: CInt
showOtherLocations' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
showOtherLocations
Ptr PlacesSidebar -> CInt -> IO ()
gtk_places_sidebar_set_show_other_locations Ptr PlacesSidebar
sidebar' CInt
showOtherLocations'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarSetShowOtherLocationsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarSetShowOtherLocationsMethodInfo a signature where
overloadedMethod = placesSidebarSetShowOtherLocations
instance O.OverloadedMethodInfo PlacesSidebarSetShowOtherLocationsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarSetShowOtherLocations",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarSetShowOtherLocations"
}
#endif
foreign import ccall "gtk_places_sidebar_set_show_recent" ::
Ptr PlacesSidebar ->
CInt ->
IO ()
placesSidebarSetShowRecent ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> Bool
-> m ()
a
sidebar Bool
showRecent = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
let showRecent' :: CInt
showRecent' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
showRecent
Ptr PlacesSidebar -> CInt -> IO ()
gtk_places_sidebar_set_show_recent Ptr PlacesSidebar
sidebar' CInt
showRecent'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarSetShowRecentMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarSetShowRecentMethodInfo a signature where
overloadedMethod = placesSidebarSetShowRecent
instance O.OverloadedMethodInfo PlacesSidebarSetShowRecentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarSetShowRecent",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarSetShowRecent"
}
#endif
foreign import ccall "gtk_places_sidebar_set_show_starred_location" ::
Ptr PlacesSidebar ->
CInt ->
IO ()
placesSidebarSetShowStarredLocation ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> Bool
-> m ()
a
sidebar Bool
showStarredLocation = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
let showStarredLocation' :: CInt
showStarredLocation' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
showStarredLocation
Ptr PlacesSidebar -> CInt -> IO ()
gtk_places_sidebar_set_show_starred_location Ptr PlacesSidebar
sidebar' CInt
showStarredLocation'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarSetShowStarredLocationMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarSetShowStarredLocationMethodInfo a signature where
overloadedMethod = placesSidebarSetShowStarredLocation
instance O.OverloadedMethodInfo PlacesSidebarSetShowStarredLocationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarSetShowStarredLocation",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarSetShowStarredLocation"
}
#endif
foreign import ccall "gtk_places_sidebar_set_show_trash" ::
Ptr PlacesSidebar ->
CInt ->
IO ()
placesSidebarSetShowTrash ::
(B.CallStack.HasCallStack, MonadIO m, IsPlacesSidebar a) =>
a
-> Bool
-> m ()
a
sidebar Bool
showTrash = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PlacesSidebar
sidebar' <- a -> IO (Ptr PlacesSidebar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sidebar
let showTrash' :: CInt
showTrash' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
showTrash
Ptr PlacesSidebar -> CInt -> IO ()
gtk_places_sidebar_set_show_trash Ptr PlacesSidebar
sidebar' CInt
showTrash'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sidebar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PlacesSidebarSetShowTrashMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPlacesSidebar a) => O.OverloadedMethod PlacesSidebarSetShowTrashMethodInfo a signature where
overloadedMethod = placesSidebarSetShowTrash
instance O.OverloadedMethodInfo PlacesSidebarSetShowTrashMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.PlacesSidebar.placesSidebarSetShowTrash",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-PlacesSidebar.html#v:placesSidebarSetShowTrash"
}
#endif