{-# 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 ,
noPlacesSidebar ,
#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.ManagedPtr as B.ManagedPtr
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 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 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 = (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)
foreign import ccall "gtk_places_sidebar_get_type"
:: IO GType
instance GObject PlacesSidebar where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_places_sidebar_get_type
instance B.GValue.IsGValue PlacesSidebar where
toGValue :: PlacesSidebar -> IO GValue
toGValue o :: PlacesSidebar
o = do
GType
gtype <- IO GType
c_gtk_places_sidebar_get_type
PlacesSidebar -> (Ptr PlacesSidebar -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr PlacesSidebar
o (GType
-> (GValue -> Ptr PlacesSidebar -> IO ())
-> Ptr PlacesSidebar
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr PlacesSidebar -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO PlacesSidebar
fromGValue gv :: GValue
gv = do
Ptr PlacesSidebar
ptr <- GValue -> IO (Ptr PlacesSidebar)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr PlacesSidebar)
(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
class (GObject o, O.IsDescendantOf PlacesSidebar o) => o
instance (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 :: (MonadIO m, IsPlacesSidebar o) => o -> m PlacesSidebar
= IO PlacesSidebar -> m PlacesSidebar
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr PlacesSidebar -> PlacesSidebar
PlacesSidebar
noPlacesSidebar :: Maybe PlacesSidebar
= Maybe PlacesSidebar
forall a. Maybe a
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.MethodInfo 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
#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)
cb :: 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
_cb :: PlacesSidebarDragActionAskCallback
_cb _ actions :: Int32
actions _ = 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
obj :: a
obj cb :: 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 "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
obj :: a
obj cb :: 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 "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)
cb :: 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
_cb :: PlacesSidebarDragActionRequestedCallback
_cb _ context :: Ptr DragContext
context destFile :: Ptr File
destFile sourceFileList :: Ptr (GList (Ptr File))
sourceFileList _ = 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
obj :: a
obj cb :: 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 "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
obj :: a
obj cb :: 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 "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)
cb :: 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
_cb :: PlacesSidebarDragPerformDropCallback
_cb _ destFile :: Ptr File
destFile sourceFileList :: Ptr (GList (Ptr File))
sourceFileList action :: Int32
action _ = 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
obj :: a
obj cb :: 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 "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
obj :: a
obj cb :: 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 "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)
cb :: 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
_cb :: PlacesSidebarMountCallback
_cb _ mountOperation :: Ptr MountOperation
mountOperation _ = 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
obj :: a
obj cb :: 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 "mount" FunPtr C_PlacesSidebarMountCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPlacesSidebarMount :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarMountCallback -> m SignalHandlerId
obj :: a
obj cb :: 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 "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)
cb :: 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
_cb :: PlacesSidebarOpenLocationCallback
_cb _ location :: Ptr File
location openFlags :: CUInt
openFlags _ = 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
obj :: a
obj cb :: 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 "open-location" FunPtr C_PlacesSidebarOpenLocationCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPlacesSidebarOpenLocation :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarOpenLocationCallback -> m SignalHandlerId
obj :: a
obj cb :: 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 "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)
cb :: 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
_cb :: PlacesSidebarPopulatePopupCallback
_cb _ container :: Ptr Widget
container selectedItem :: Ptr File
selectedItem selectedVolume :: Ptr Volume
selectedVolume _ = 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
obj :: a
obj cb :: 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 "populate-popup" FunPtr C_PlacesSidebarPopulatePopupCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPlacesSidebarPopulatePopup :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarPopulatePopupCallback -> m SignalHandlerId
obj :: a
obj cb :: 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 "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#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)
cb :: 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
_cb :: IO ()
_cb _ _ = do
IO ()
_cb
onPlacesSidebarShowConnectToServer :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarShowConnectToServerCallback -> m SignalHandlerId
obj :: a
obj cb :: 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 "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
obj :: a
obj cb :: 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 "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)
cb :: 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
_cb :: IO ()
_cb _ _ = do
IO ()
_cb
onPlacesSidebarShowEnterLocation :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarShowEnterLocationCallback -> m SignalHandlerId
obj :: a
obj cb :: 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 "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
obj :: a
obj cb :: 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 "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)
cb :: 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
_cb :: PlacesSidebarShowErrorMessageCallback
_cb _ primary :: CString
primary secondary :: CString
secondary _ = 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
obj :: a
obj cb :: 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 "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
obj :: a
obj cb :: 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 "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#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#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)
cb :: 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
_cb :: IO ()
_cb _ _ = do
IO ()
_cb
onPlacesSidebarShowOtherLocations :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarShowOtherLocationsCallback -> m SignalHandlerId
obj :: a
obj cb :: 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 "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
obj :: a
obj cb :: 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 "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)
cb :: 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
_cb :: PlacesSidebarShowOtherLocationsWithFlagsCallback
_cb _ openFlags :: CUInt
openFlags _ = 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
obj :: a
obj cb :: 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 "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
obj :: a
obj cb :: 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 "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)
cb :: 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
_cb :: PlacesSidebarShowOtherLocationsWithFlagsCallback
_cb _ openFlags :: CUInt
openFlags _ = 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
obj :: a
obj cb :: 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 "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
obj :: a
obj cb :: 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 "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)
cb :: 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
_cb :: PlacesSidebarMountCallback
_cb _ mountOperation :: Ptr MountOperation
mountOperation _ = 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
obj :: a
obj cb :: 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 "unmount" FunPtr C_PlacesSidebarMountCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPlacesSidebarUnmount :: (IsPlacesSidebar a, MonadIO m) => a -> PlacesSidebarUnmountCallback -> m SignalHandlerId
obj :: a
obj cb :: 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 "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
obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "local-only"
setPlacesSidebarLocalOnly :: (MonadIO m, IsPlacesSidebar o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = 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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "local-only" Bool
val
constructPlacesSidebarLocalOnly :: (IsPlacesSidebar o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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)
obj :: o
obj = 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
$ 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 "location" ManagedPtr File -> File
Gio.File.File
setPlacesSidebarLocation :: (MonadIO m, IsPlacesSidebar o, Gio.File.IsFile a) => o -> a -> m ()
obj :: o
obj val :: a
val = 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 a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "location" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructPlacesSidebarLocation :: (IsPlacesSidebar o, Gio.File.IsFile a) => a -> IO (GValueConstruct o)
val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "location" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearPlacesSidebarLocation :: (MonadIO m, IsPlacesSidebar o) => o -> m ()
obj :: 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 "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]
obj :: o
obj = 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
$ o -> String -> IO [PlacesOpenFlags]
forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj "open-flags"
setPlacesSidebarOpenFlags :: (MonadIO m, IsPlacesSidebar o) => o -> [Gtk.Flags.PlacesOpenFlags] -> m ()
obj :: o
obj val :: [PlacesOpenFlags]
val = 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 -> PlacesSidebarShowOtherLocationsWithFlagsCallback
forall a b.
(IsGFlag b, BoxedFlags b, GObject a) =>
a -> String -> [b] -> IO ()
B.Properties.setObjectPropertyFlags o
obj "open-flags" [PlacesOpenFlags]
val
constructPlacesSidebarOpenFlags :: (IsPlacesSidebar o) => [Gtk.Flags.PlacesOpenFlags] -> IO (GValueConstruct o)
val :: [PlacesOpenFlags]
val = String -> [PlacesOpenFlags] -> IO (GValueConstruct o)
forall a o.
(IsGFlag a, BoxedFlags a) =>
String -> [a] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFlags "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
obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "populate-all"
setPlacesSidebarPopulateAll :: (MonadIO m, IsPlacesSidebar o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = 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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "populate-all" Bool
val
constructPlacesSidebarPopulateAll :: (IsPlacesSidebar o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "show-connect-to-server"
setPlacesSidebarShowConnectToServer :: (MonadIO m, IsPlacesSidebar o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = 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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "show-connect-to-server" Bool
val
constructPlacesSidebarShowConnectToServer :: (IsPlacesSidebar o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "show-desktop"
setPlacesSidebarShowDesktop :: (MonadIO m, IsPlacesSidebar o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = 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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "show-desktop" Bool
val
constructPlacesSidebarShowDesktop :: (IsPlacesSidebar o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "show-enter-location"
setPlacesSidebarShowEnterLocation :: (MonadIO m, IsPlacesSidebar o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = 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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "show-enter-location" Bool
val
constructPlacesSidebarShowEnterLocation :: (IsPlacesSidebar o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "show-other-locations"
setPlacesSidebarShowOtherLocations :: (MonadIO m, IsPlacesSidebar o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = 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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "show-other-locations" Bool
val
constructPlacesSidebarShowOtherLocations :: (IsPlacesSidebar o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "show-recent"
setPlacesSidebarShowRecent :: (MonadIO m, IsPlacesSidebar o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = 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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "show-recent" Bool
val
constructPlacesSidebarShowRecent :: (IsPlacesSidebar o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "show-starred-location"
setPlacesSidebarShowStarredLocation :: (MonadIO m, IsPlacesSidebar o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = 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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "show-starred-location" Bool
val
constructPlacesSidebarShowStarredLocation :: (IsPlacesSidebar o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "show-trash"
setPlacesSidebarShowTrash :: (MonadIO m, IsPlacesSidebar o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = 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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "show-trash" Bool
val
constructPlacesSidebarShowTrash :: (IsPlacesSidebar o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 "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 ()
sidebar :: a
sidebar location :: 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.MethodInfo PlacesSidebarAddShortcutMethodInfo a signature where
overloadedMethod = 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
sidebar :: 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
/= 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.MethodInfo PlacesSidebarGetLocalOnlyMethodInfo a signature where
overloadedMethod = 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)
sidebar :: 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
$ \result' :: 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.MethodInfo PlacesSidebarGetLocationMethodInfo a signature where
overloadedMethod = 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)
sidebar :: a
sidebar n :: 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
$ \result' :: 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.MethodInfo PlacesSidebarGetNthBookmarkMethodInfo a signature where
overloadedMethod = 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]
sidebar :: 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.MethodInfo PlacesSidebarGetOpenFlagsMethodInfo a signature where
overloadedMethod = 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
sidebar :: 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
/= 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.MethodInfo PlacesSidebarGetShowConnectToServerMethodInfo a signature where
overloadedMethod = 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
sidebar :: 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
/= 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.MethodInfo PlacesSidebarGetShowDesktopMethodInfo a signature where
overloadedMethod = 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
sidebar :: 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
/= 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.MethodInfo PlacesSidebarGetShowEnterLocationMethodInfo a signature where
overloadedMethod = 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
sidebar :: 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
/= 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.MethodInfo PlacesSidebarGetShowOtherLocationsMethodInfo a signature where
overloadedMethod = 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
sidebar :: 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
/= 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.MethodInfo PlacesSidebarGetShowRecentMethodInfo a signature where
overloadedMethod = 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
sidebar :: 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
/= 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.MethodInfo PlacesSidebarGetShowStarredLocationMethodInfo a signature where
overloadedMethod = 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
sidebar :: 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
/= 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.MethodInfo PlacesSidebarGetShowTrashMethodInfo a signature where
overloadedMethod = 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]
sidebar :: 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.MethodInfo PlacesSidebarListShortcutsMethodInfo a signature where
overloadedMethod = 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 ()
sidebar :: a
sidebar location :: 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.MethodInfo PlacesSidebarRemoveShortcutMethodInfo a signature where
overloadedMethod = 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 ()
sidebar :: a
sidebar visible :: Bool
visible context :: 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.MethodInfo PlacesSidebarSetDropTargetsVisibleMethodInfo a signature where
overloadedMethod = 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 ()
sidebar :: a
sidebar localOnly :: 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.MethodInfo PlacesSidebarSetLocalOnlyMethodInfo a signature where
overloadedMethod = 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 ()
sidebar :: a
sidebar location :: 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
Nothing -> Ptr File -> IO (Ptr File)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr File
forall a. Ptr a
nullPtr
Just jLocation :: 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.MethodInfo PlacesSidebarSetLocationMethodInfo a signature where
overloadedMethod = 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 ()
sidebar :: a
sidebar flags :: [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.MethodInfo PlacesSidebarSetOpenFlagsMethodInfo a signature where
overloadedMethod = 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 ()
sidebar :: a
sidebar showConnectToServer :: 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.MethodInfo PlacesSidebarSetShowConnectToServerMethodInfo a signature where
overloadedMethod = 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 ()
sidebar :: a
sidebar showDesktop :: 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.MethodInfo PlacesSidebarSetShowDesktopMethodInfo a signature where
overloadedMethod = 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 ()
sidebar :: a
sidebar showEnterLocation :: 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.MethodInfo PlacesSidebarSetShowEnterLocationMethodInfo a signature where
overloadedMethod = 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 ()
sidebar :: a
sidebar showOtherLocations :: 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.MethodInfo PlacesSidebarSetShowOtherLocationsMethodInfo a signature where
overloadedMethod = 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 ()
sidebar :: a
sidebar showRecent :: 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.MethodInfo PlacesSidebarSetShowRecentMethodInfo a signature where
overloadedMethod = 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 ()
sidebar :: a
sidebar showStarredLocation :: 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.MethodInfo PlacesSidebarSetShowStarredLocationMethodInfo a signature where
overloadedMethod = 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 ()
sidebar :: a
sidebar showTrash :: 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.MethodInfo PlacesSidebarSetShowTrashMethodInfo a signature where
overloadedMethod = placesSidebarSetShowTrash
#endif