{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.AppChooserWidget
(
AppChooserWidget(..) ,
IsAppChooserWidget ,
toAppChooserWidget ,
#if defined(ENABLE_OVERLOADING)
ResolveAppChooserWidgetMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetGetDefaultTextMethodInfo,
#endif
appChooserWidgetGetDefaultText ,
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetGetShowAllMethodInfo ,
#endif
appChooserWidgetGetShowAll ,
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetGetShowDefaultMethodInfo,
#endif
appChooserWidgetGetShowDefault ,
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetGetShowFallbackMethodInfo,
#endif
appChooserWidgetGetShowFallback ,
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetGetShowOtherMethodInfo ,
#endif
appChooserWidgetGetShowOther ,
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetGetShowRecommendedMethodInfo,
#endif
appChooserWidgetGetShowRecommended ,
appChooserWidgetNew ,
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetSetDefaultTextMethodInfo,
#endif
appChooserWidgetSetDefaultText ,
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetSetShowAllMethodInfo ,
#endif
appChooserWidgetSetShowAll ,
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetSetShowDefaultMethodInfo,
#endif
appChooserWidgetSetShowDefault ,
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetSetShowFallbackMethodInfo,
#endif
appChooserWidgetSetShowFallback ,
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetSetShowOtherMethodInfo ,
#endif
appChooserWidgetSetShowOther ,
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetSetShowRecommendedMethodInfo,
#endif
appChooserWidgetSetShowRecommended ,
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetDefaultTextPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appChooserWidgetDefaultText ,
#endif
constructAppChooserWidgetDefaultText ,
getAppChooserWidgetDefaultText ,
setAppChooserWidgetDefaultText ,
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetShowAllPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appChooserWidgetShowAll ,
#endif
constructAppChooserWidgetShowAll ,
getAppChooserWidgetShowAll ,
setAppChooserWidgetShowAll ,
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetShowDefaultPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appChooserWidgetShowDefault ,
#endif
constructAppChooserWidgetShowDefault ,
getAppChooserWidgetShowDefault ,
setAppChooserWidgetShowDefault ,
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetShowFallbackPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
appChooserWidgetShowFallback ,
#endif
constructAppChooserWidgetShowFallback ,
getAppChooserWidgetShowFallback ,
setAppChooserWidgetShowFallback ,
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetShowOtherPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appChooserWidgetShowOther ,
#endif
constructAppChooserWidgetShowOther ,
getAppChooserWidgetShowOther ,
setAppChooserWidgetShowOther ,
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetShowRecommendedPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
appChooserWidgetShowRecommended ,
#endif
constructAppChooserWidgetShowRecommended,
getAppChooserWidgetShowRecommended ,
setAppChooserWidgetShowRecommended ,
AppChooserWidgetApplicationActivatedCallback,
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetApplicationActivatedSignalInfo,
#endif
afterAppChooserWidgetApplicationActivated,
onAppChooserWidgetApplicationActivated ,
AppChooserWidgetApplicationSelectedCallback,
#if defined(ENABLE_OVERLOADING)
AppChooserWidgetApplicationSelectedSignalInfo,
#endif
afterAppChooserWidgetApplicationSelected,
onAppChooserWidgetApplicationSelected ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.AppInfo as Gio.AppInfo
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.AppChooser as Gtk.AppChooser
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype AppChooserWidget = AppChooserWidget (SP.ManagedPtr AppChooserWidget)
deriving (AppChooserWidget -> AppChooserWidget -> Bool
(AppChooserWidget -> AppChooserWidget -> Bool)
-> (AppChooserWidget -> AppChooserWidget -> Bool)
-> Eq AppChooserWidget
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AppChooserWidget -> AppChooserWidget -> Bool
== :: AppChooserWidget -> AppChooserWidget -> Bool
$c/= :: AppChooserWidget -> AppChooserWidget -> Bool
/= :: AppChooserWidget -> AppChooserWidget -> Bool
Eq)
instance SP.ManagedPtrNewtype AppChooserWidget where
toManagedPtr :: AppChooserWidget -> ManagedPtr AppChooserWidget
toManagedPtr (AppChooserWidget ManagedPtr AppChooserWidget
p) = ManagedPtr AppChooserWidget
p
foreign import ccall "gtk_app_chooser_widget_get_type"
c_gtk_app_chooser_widget_get_type :: IO B.Types.GType
instance B.Types.TypedObject AppChooserWidget where
glibType :: IO GType
glibType = IO GType
c_gtk_app_chooser_widget_get_type
instance B.Types.GObject AppChooserWidget
class (SP.GObject o, O.IsDescendantOf AppChooserWidget o) => IsAppChooserWidget o
instance (SP.GObject o, O.IsDescendantOf AppChooserWidget o) => IsAppChooserWidget o
instance O.HasParentTypes AppChooserWidget
type instance O.ParentTypes AppChooserWidget = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.AppChooser.AppChooser, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toAppChooserWidget :: (MIO.MonadIO m, IsAppChooserWidget o) => o -> m AppChooserWidget
toAppChooserWidget :: forall (m :: * -> *) o.
(MonadIO m, IsAppChooserWidget o) =>
o -> m AppChooserWidget
toAppChooserWidget = IO AppChooserWidget -> m AppChooserWidget
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO AppChooserWidget -> m AppChooserWidget)
-> (o -> IO AppChooserWidget) -> o -> m AppChooserWidget
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr AppChooserWidget -> AppChooserWidget)
-> o -> IO AppChooserWidget
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr AppChooserWidget -> AppChooserWidget
AppChooserWidget
instance B.GValue.IsGValue (Maybe AppChooserWidget) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_app_chooser_widget_get_type
gvalueSet_ :: Ptr GValue -> Maybe AppChooserWidget -> IO ()
gvalueSet_ Ptr GValue
gv Maybe AppChooserWidget
P.Nothing = Ptr GValue -> Ptr AppChooserWidget -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr AppChooserWidget
forall a. Ptr a
FP.nullPtr :: FP.Ptr AppChooserWidget)
gvalueSet_ Ptr GValue
gv (P.Just AppChooserWidget
obj) = AppChooserWidget -> (Ptr AppChooserWidget -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr AppChooserWidget
obj (Ptr GValue -> Ptr AppChooserWidget -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe AppChooserWidget)
gvalueGet_ Ptr GValue
gv = do
Ptr AppChooserWidget
ptr <- Ptr GValue -> IO (Ptr AppChooserWidget)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr AppChooserWidget)
if Ptr AppChooserWidget
ptr Ptr AppChooserWidget -> Ptr AppChooserWidget -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr AppChooserWidget
forall a. Ptr a
FP.nullPtr
then AppChooserWidget -> Maybe AppChooserWidget
forall a. a -> Maybe a
P.Just (AppChooserWidget -> Maybe AppChooserWidget)
-> IO AppChooserWidget -> IO (Maybe AppChooserWidget)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr AppChooserWidget -> AppChooserWidget)
-> Ptr AppChooserWidget -> IO AppChooserWidget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr AppChooserWidget -> AppChooserWidget
AppChooserWidget Ptr AppChooserWidget
ptr
else Maybe AppChooserWidget -> IO (Maybe AppChooserWidget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe AppChooserWidget
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveAppChooserWidgetMethod (t :: Symbol) (o :: *) :: * where
ResolveAppChooserWidgetMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveAppChooserWidgetMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveAppChooserWidgetMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveAppChooserWidgetMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveAppChooserWidgetMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveAppChooserWidgetMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveAppChooserWidgetMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveAppChooserWidgetMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveAppChooserWidgetMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveAppChooserWidgetMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAppChooserWidgetMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAppChooserWidgetMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveAppChooserWidgetMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveAppChooserWidgetMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveAppChooserWidgetMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveAppChooserWidgetMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveAppChooserWidgetMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveAppChooserWidgetMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveAppChooserWidgetMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveAppChooserWidgetMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveAppChooserWidgetMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveAppChooserWidgetMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveAppChooserWidgetMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAppChooserWidgetMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAppChooserWidgetMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveAppChooserWidgetMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveAppChooserWidgetMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveAppChooserWidgetMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveAppChooserWidgetMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveAppChooserWidgetMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveAppChooserWidgetMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveAppChooserWidgetMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveAppChooserWidgetMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveAppChooserWidgetMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveAppChooserWidgetMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveAppChooserWidgetMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveAppChooserWidgetMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveAppChooserWidgetMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveAppChooserWidgetMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveAppChooserWidgetMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveAppChooserWidgetMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveAppChooserWidgetMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveAppChooserWidgetMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveAppChooserWidgetMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveAppChooserWidgetMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveAppChooserWidgetMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveAppChooserWidgetMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveAppChooserWidgetMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveAppChooserWidgetMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveAppChooserWidgetMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveAppChooserWidgetMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveAppChooserWidgetMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveAppChooserWidgetMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveAppChooserWidgetMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveAppChooserWidgetMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveAppChooserWidgetMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveAppChooserWidgetMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveAppChooserWidgetMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAppChooserWidgetMethod "refresh" o = Gtk.AppChooser.AppChooserRefreshMethodInfo
ResolveAppChooserWidgetMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveAppChooserWidgetMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveAppChooserWidgetMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveAppChooserWidgetMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveAppChooserWidgetMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveAppChooserWidgetMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveAppChooserWidgetMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveAppChooserWidgetMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAppChooserWidgetMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveAppChooserWidgetMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveAppChooserWidgetMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveAppChooserWidgetMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveAppChooserWidgetMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveAppChooserWidgetMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveAppChooserWidgetMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveAppChooserWidgetMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveAppChooserWidgetMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveAppChooserWidgetMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveAppChooserWidgetMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveAppChooserWidgetMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveAppChooserWidgetMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveAppChooserWidgetMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveAppChooserWidgetMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveAppChooserWidgetMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveAppChooserWidgetMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveAppChooserWidgetMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAppChooserWidgetMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveAppChooserWidgetMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveAppChooserWidgetMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveAppChooserWidgetMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveAppChooserWidgetMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveAppChooserWidgetMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveAppChooserWidgetMethod "getAppInfo" o = Gtk.AppChooser.AppChooserGetAppInfoMethodInfo
ResolveAppChooserWidgetMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveAppChooserWidgetMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveAppChooserWidgetMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveAppChooserWidgetMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveAppChooserWidgetMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveAppChooserWidgetMethod "getContentType" o = Gtk.AppChooser.AppChooserGetContentTypeMethodInfo
ResolveAppChooserWidgetMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveAppChooserWidgetMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveAppChooserWidgetMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveAppChooserWidgetMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveAppChooserWidgetMethod "getDefaultText" o = AppChooserWidgetGetDefaultTextMethodInfo
ResolveAppChooserWidgetMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveAppChooserWidgetMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveAppChooserWidgetMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveAppChooserWidgetMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveAppChooserWidgetMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveAppChooserWidgetMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveAppChooserWidgetMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveAppChooserWidgetMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveAppChooserWidgetMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveAppChooserWidgetMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveAppChooserWidgetMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveAppChooserWidgetMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveAppChooserWidgetMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveAppChooserWidgetMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveAppChooserWidgetMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveAppChooserWidgetMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveAppChooserWidgetMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveAppChooserWidgetMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveAppChooserWidgetMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveAppChooserWidgetMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveAppChooserWidgetMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveAppChooserWidgetMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveAppChooserWidgetMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveAppChooserWidgetMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveAppChooserWidgetMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveAppChooserWidgetMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveAppChooserWidgetMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveAppChooserWidgetMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveAppChooserWidgetMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveAppChooserWidgetMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveAppChooserWidgetMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveAppChooserWidgetMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveAppChooserWidgetMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveAppChooserWidgetMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveAppChooserWidgetMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveAppChooserWidgetMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveAppChooserWidgetMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveAppChooserWidgetMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveAppChooserWidgetMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveAppChooserWidgetMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveAppChooserWidgetMethod "getShowAll" o = AppChooserWidgetGetShowAllMethodInfo
ResolveAppChooserWidgetMethod "getShowDefault" o = AppChooserWidgetGetShowDefaultMethodInfo
ResolveAppChooserWidgetMethod "getShowFallback" o = AppChooserWidgetGetShowFallbackMethodInfo
ResolveAppChooserWidgetMethod "getShowOther" o = AppChooserWidgetGetShowOtherMethodInfo
ResolveAppChooserWidgetMethod "getShowRecommended" o = AppChooserWidgetGetShowRecommendedMethodInfo
ResolveAppChooserWidgetMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveAppChooserWidgetMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveAppChooserWidgetMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveAppChooserWidgetMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveAppChooserWidgetMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveAppChooserWidgetMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveAppChooserWidgetMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveAppChooserWidgetMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveAppChooserWidgetMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveAppChooserWidgetMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveAppChooserWidgetMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveAppChooserWidgetMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveAppChooserWidgetMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveAppChooserWidgetMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveAppChooserWidgetMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveAppChooserWidgetMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveAppChooserWidgetMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveAppChooserWidgetMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveAppChooserWidgetMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveAppChooserWidgetMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveAppChooserWidgetMethod "setDefaultText" o = AppChooserWidgetSetDefaultTextMethodInfo
ResolveAppChooserWidgetMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveAppChooserWidgetMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveAppChooserWidgetMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveAppChooserWidgetMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveAppChooserWidgetMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveAppChooserWidgetMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveAppChooserWidgetMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveAppChooserWidgetMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveAppChooserWidgetMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveAppChooserWidgetMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveAppChooserWidgetMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveAppChooserWidgetMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveAppChooserWidgetMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveAppChooserWidgetMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveAppChooserWidgetMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveAppChooserWidgetMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveAppChooserWidgetMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveAppChooserWidgetMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveAppChooserWidgetMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveAppChooserWidgetMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveAppChooserWidgetMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveAppChooserWidgetMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveAppChooserWidgetMethod "setShowAll" o = AppChooserWidgetSetShowAllMethodInfo
ResolveAppChooserWidgetMethod "setShowDefault" o = AppChooserWidgetSetShowDefaultMethodInfo
ResolveAppChooserWidgetMethod "setShowFallback" o = AppChooserWidgetSetShowFallbackMethodInfo
ResolveAppChooserWidgetMethod "setShowOther" o = AppChooserWidgetSetShowOtherMethodInfo
ResolveAppChooserWidgetMethod "setShowRecommended" o = AppChooserWidgetSetShowRecommendedMethodInfo
ResolveAppChooserWidgetMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveAppChooserWidgetMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveAppChooserWidgetMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveAppChooserWidgetMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveAppChooserWidgetMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveAppChooserWidgetMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveAppChooserWidgetMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveAppChooserWidgetMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveAppChooserWidgetMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAppChooserWidgetMethod t AppChooserWidget, O.OverloadedMethod info AppChooserWidget p) => OL.IsLabel t (AppChooserWidget -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveAppChooserWidgetMethod t AppChooserWidget, O.OverloadedMethod info AppChooserWidget p, R.HasField t AppChooserWidget p) => R.HasField t AppChooserWidget p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveAppChooserWidgetMethod t AppChooserWidget, O.OverloadedMethodInfo info AppChooserWidget) => OL.IsLabel t (O.MethodProxy info AppChooserWidget) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type AppChooserWidgetApplicationActivatedCallback =
Gio.AppInfo.AppInfo
-> IO ()
type C_AppChooserWidgetApplicationActivatedCallback =
Ptr AppChooserWidget ->
Ptr Gio.AppInfo.AppInfo ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AppChooserWidgetApplicationActivatedCallback :: C_AppChooserWidgetApplicationActivatedCallback -> IO (FunPtr C_AppChooserWidgetApplicationActivatedCallback)
wrap_AppChooserWidgetApplicationActivatedCallback ::
GObject a => (a -> AppChooserWidgetApplicationActivatedCallback) ->
C_AppChooserWidgetApplicationActivatedCallback
wrap_AppChooserWidgetApplicationActivatedCallback :: forall a.
GObject a =>
(a -> AppChooserWidgetApplicationActivatedCallback)
-> C_AppChooserWidgetApplicationActivatedCallback
wrap_AppChooserWidgetApplicationActivatedCallback a -> AppChooserWidgetApplicationActivatedCallback
gi'cb Ptr AppChooserWidget
gi'selfPtr Ptr AppInfo
application Ptr ()
_ = do
AppInfo
application' <- ((ManagedPtr AppInfo -> AppInfo) -> Ptr AppInfo -> IO AppInfo
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr AppInfo -> AppInfo
Gio.AppInfo.AppInfo) Ptr AppInfo
application
Ptr AppChooserWidget -> (AppChooserWidget -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr AppChooserWidget
gi'selfPtr ((AppChooserWidget -> IO ()) -> IO ())
-> (AppChooserWidget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \AppChooserWidget
gi'self -> a -> AppChooserWidgetApplicationActivatedCallback
gi'cb (AppChooserWidget -> a
forall a b. Coercible a b => a -> b
Coerce.coerce AppChooserWidget
gi'self) AppInfo
application'
onAppChooserWidgetApplicationActivated :: (IsAppChooserWidget a, MonadIO m) => a -> ((?self :: a) => AppChooserWidgetApplicationActivatedCallback) -> m SignalHandlerId
onAppChooserWidgetApplicationActivated :: forall a (m :: * -> *).
(IsAppChooserWidget a, MonadIO m) =>
a
-> ((?self::a) => AppChooserWidgetApplicationActivatedCallback)
-> m SignalHandlerId
onAppChooserWidgetApplicationActivated a
obj (?self::a) => AppChooserWidgetApplicationActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> AppChooserWidgetApplicationActivatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppChooserWidgetApplicationActivatedCallback
AppChooserWidgetApplicationActivatedCallback
cb
let wrapped' :: C_AppChooserWidgetApplicationActivatedCallback
wrapped' = (a -> AppChooserWidgetApplicationActivatedCallback)
-> C_AppChooserWidgetApplicationActivatedCallback
forall a.
GObject a =>
(a -> AppChooserWidgetApplicationActivatedCallback)
-> C_AppChooserWidgetApplicationActivatedCallback
wrap_AppChooserWidgetApplicationActivatedCallback a -> AppChooserWidgetApplicationActivatedCallback
wrapped
FunPtr C_AppChooserWidgetApplicationActivatedCallback
wrapped'' <- C_AppChooserWidgetApplicationActivatedCallback
-> IO (FunPtr C_AppChooserWidgetApplicationActivatedCallback)
mk_AppChooserWidgetApplicationActivatedCallback C_AppChooserWidgetApplicationActivatedCallback
wrapped'
a
-> Text
-> FunPtr C_AppChooserWidgetApplicationActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"application-activated" FunPtr C_AppChooserWidgetApplicationActivatedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAppChooserWidgetApplicationActivated :: (IsAppChooserWidget a, MonadIO m) => a -> ((?self :: a) => AppChooserWidgetApplicationActivatedCallback) -> m SignalHandlerId
afterAppChooserWidgetApplicationActivated :: forall a (m :: * -> *).
(IsAppChooserWidget a, MonadIO m) =>
a
-> ((?self::a) => AppChooserWidgetApplicationActivatedCallback)
-> m SignalHandlerId
afterAppChooserWidgetApplicationActivated a
obj (?self::a) => AppChooserWidgetApplicationActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> AppChooserWidgetApplicationActivatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppChooserWidgetApplicationActivatedCallback
AppChooserWidgetApplicationActivatedCallback
cb
let wrapped' :: C_AppChooserWidgetApplicationActivatedCallback
wrapped' = (a -> AppChooserWidgetApplicationActivatedCallback)
-> C_AppChooserWidgetApplicationActivatedCallback
forall a.
GObject a =>
(a -> AppChooserWidgetApplicationActivatedCallback)
-> C_AppChooserWidgetApplicationActivatedCallback
wrap_AppChooserWidgetApplicationActivatedCallback a -> AppChooserWidgetApplicationActivatedCallback
wrapped
FunPtr C_AppChooserWidgetApplicationActivatedCallback
wrapped'' <- C_AppChooserWidgetApplicationActivatedCallback
-> IO (FunPtr C_AppChooserWidgetApplicationActivatedCallback)
mk_AppChooserWidgetApplicationActivatedCallback C_AppChooserWidgetApplicationActivatedCallback
wrapped'
a
-> Text
-> FunPtr C_AppChooserWidgetApplicationActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"application-activated" FunPtr C_AppChooserWidgetApplicationActivatedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetApplicationActivatedSignalInfo
instance SignalInfo AppChooserWidgetApplicationActivatedSignalInfo where
type HaskellCallbackType AppChooserWidgetApplicationActivatedSignalInfo = AppChooserWidgetApplicationActivatedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AppChooserWidgetApplicationActivatedCallback cb
cb'' <- mk_AppChooserWidgetApplicationActivatedCallback cb'
connectSignalFunPtr obj "application-activated" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget::application-activated"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#g:signal:applicationActivated"})
#endif
type AppChooserWidgetApplicationSelectedCallback =
Gio.AppInfo.AppInfo
-> IO ()
type C_AppChooserWidgetApplicationSelectedCallback =
Ptr AppChooserWidget ->
Ptr Gio.AppInfo.AppInfo ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AppChooserWidgetApplicationSelectedCallback :: C_AppChooserWidgetApplicationSelectedCallback -> IO (FunPtr C_AppChooserWidgetApplicationSelectedCallback)
wrap_AppChooserWidgetApplicationSelectedCallback ::
GObject a => (a -> AppChooserWidgetApplicationSelectedCallback) ->
C_AppChooserWidgetApplicationSelectedCallback
wrap_AppChooserWidgetApplicationSelectedCallback :: forall a.
GObject a =>
(a -> AppChooserWidgetApplicationActivatedCallback)
-> C_AppChooserWidgetApplicationActivatedCallback
wrap_AppChooserWidgetApplicationSelectedCallback a -> AppChooserWidgetApplicationActivatedCallback
gi'cb Ptr AppChooserWidget
gi'selfPtr Ptr AppInfo
application Ptr ()
_ = do
AppInfo
application' <- ((ManagedPtr AppInfo -> AppInfo) -> Ptr AppInfo -> IO AppInfo
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr AppInfo -> AppInfo
Gio.AppInfo.AppInfo) Ptr AppInfo
application
Ptr AppChooserWidget -> (AppChooserWidget -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr AppChooserWidget
gi'selfPtr ((AppChooserWidget -> IO ()) -> IO ())
-> (AppChooserWidget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \AppChooserWidget
gi'self -> a -> AppChooserWidgetApplicationActivatedCallback
gi'cb (AppChooserWidget -> a
forall a b. Coercible a b => a -> b
Coerce.coerce AppChooserWidget
gi'self) AppInfo
application'
onAppChooserWidgetApplicationSelected :: (IsAppChooserWidget a, MonadIO m) => a -> ((?self :: a) => AppChooserWidgetApplicationSelectedCallback) -> m SignalHandlerId
onAppChooserWidgetApplicationSelected :: forall a (m :: * -> *).
(IsAppChooserWidget a, MonadIO m) =>
a
-> ((?self::a) => AppChooserWidgetApplicationActivatedCallback)
-> m SignalHandlerId
onAppChooserWidgetApplicationSelected a
obj (?self::a) => AppChooserWidgetApplicationActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> AppChooserWidgetApplicationActivatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppChooserWidgetApplicationActivatedCallback
AppChooserWidgetApplicationActivatedCallback
cb
let wrapped' :: C_AppChooserWidgetApplicationActivatedCallback
wrapped' = (a -> AppChooserWidgetApplicationActivatedCallback)
-> C_AppChooserWidgetApplicationActivatedCallback
forall a.
GObject a =>
(a -> AppChooserWidgetApplicationActivatedCallback)
-> C_AppChooserWidgetApplicationActivatedCallback
wrap_AppChooserWidgetApplicationSelectedCallback a -> AppChooserWidgetApplicationActivatedCallback
wrapped
FunPtr C_AppChooserWidgetApplicationActivatedCallback
wrapped'' <- C_AppChooserWidgetApplicationActivatedCallback
-> IO (FunPtr C_AppChooserWidgetApplicationActivatedCallback)
mk_AppChooserWidgetApplicationSelectedCallback C_AppChooserWidgetApplicationActivatedCallback
wrapped'
a
-> Text
-> FunPtr C_AppChooserWidgetApplicationActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"application-selected" FunPtr C_AppChooserWidgetApplicationActivatedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAppChooserWidgetApplicationSelected :: (IsAppChooserWidget a, MonadIO m) => a -> ((?self :: a) => AppChooserWidgetApplicationSelectedCallback) -> m SignalHandlerId
afterAppChooserWidgetApplicationSelected :: forall a (m :: * -> *).
(IsAppChooserWidget a, MonadIO m) =>
a
-> ((?self::a) => AppChooserWidgetApplicationActivatedCallback)
-> m SignalHandlerId
afterAppChooserWidgetApplicationSelected a
obj (?self::a) => AppChooserWidgetApplicationActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> AppChooserWidgetApplicationActivatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppChooserWidgetApplicationActivatedCallback
AppChooserWidgetApplicationActivatedCallback
cb
let wrapped' :: C_AppChooserWidgetApplicationActivatedCallback
wrapped' = (a -> AppChooserWidgetApplicationActivatedCallback)
-> C_AppChooserWidgetApplicationActivatedCallback
forall a.
GObject a =>
(a -> AppChooserWidgetApplicationActivatedCallback)
-> C_AppChooserWidgetApplicationActivatedCallback
wrap_AppChooserWidgetApplicationSelectedCallback a -> AppChooserWidgetApplicationActivatedCallback
wrapped
FunPtr C_AppChooserWidgetApplicationActivatedCallback
wrapped'' <- C_AppChooserWidgetApplicationActivatedCallback
-> IO (FunPtr C_AppChooserWidgetApplicationActivatedCallback)
mk_AppChooserWidgetApplicationSelectedCallback C_AppChooserWidgetApplicationActivatedCallback
wrapped'
a
-> Text
-> FunPtr C_AppChooserWidgetApplicationActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"application-selected" FunPtr C_AppChooserWidgetApplicationActivatedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetApplicationSelectedSignalInfo
instance SignalInfo AppChooserWidgetApplicationSelectedSignalInfo where
type HaskellCallbackType AppChooserWidgetApplicationSelectedSignalInfo = AppChooserWidgetApplicationSelectedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AppChooserWidgetApplicationSelectedCallback cb
cb'' <- mk_AppChooserWidgetApplicationSelectedCallback cb'
connectSignalFunPtr obj "application-selected" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget::application-selected"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#g:signal:applicationSelected"})
#endif
getAppChooserWidgetDefaultText :: (MonadIO m, IsAppChooserWidget o) => o -> m (Maybe T.Text)
getAppChooserWidgetDefaultText :: forall (m :: * -> *) o.
(MonadIO m, IsAppChooserWidget o) =>
o -> m (Maybe Text)
getAppChooserWidgetDefaultText o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"default-text"
setAppChooserWidgetDefaultText :: (MonadIO m, IsAppChooserWidget o) => o -> T.Text -> m ()
setAppChooserWidgetDefaultText :: forall (m :: * -> *) o.
(MonadIO m, IsAppChooserWidget o) =>
o -> Text -> m ()
setAppChooserWidgetDefaultText o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"default-text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructAppChooserWidgetDefaultText :: (IsAppChooserWidget o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructAppChooserWidgetDefaultText :: forall o (m :: * -> *).
(IsAppChooserWidget o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructAppChooserWidgetDefaultText Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"default-text" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetDefaultTextPropertyInfo
instance AttrInfo AppChooserWidgetDefaultTextPropertyInfo where
type AttrAllowedOps AppChooserWidgetDefaultTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppChooserWidgetDefaultTextPropertyInfo = IsAppChooserWidget
type AttrSetTypeConstraint AppChooserWidgetDefaultTextPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint AppChooserWidgetDefaultTextPropertyInfo = (~) T.Text
type AttrTransferType AppChooserWidgetDefaultTextPropertyInfo = T.Text
type AttrGetType AppChooserWidgetDefaultTextPropertyInfo = (Maybe T.Text)
type AttrLabel AppChooserWidgetDefaultTextPropertyInfo = "default-text"
type AttrOrigin AppChooserWidgetDefaultTextPropertyInfo = AppChooserWidget
attrGet = getAppChooserWidgetDefaultText
attrSet = setAppChooserWidgetDefaultText
attrTransfer _ v = do
return v
attrConstruct = constructAppChooserWidgetDefaultText
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget.defaultText"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#g:attr:defaultText"
})
#endif
getAppChooserWidgetShowAll :: (MonadIO m, IsAppChooserWidget o) => o -> m Bool
getAppChooserWidgetShowAll :: forall (m :: * -> *) o.
(MonadIO m, IsAppChooserWidget o) =>
o -> m Bool
getAppChooserWidgetShowAll o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-all"
setAppChooserWidgetShowAll :: (MonadIO m, IsAppChooserWidget o) => o -> Bool -> m ()
setAppChooserWidgetShowAll :: forall (m :: * -> *) o.
(MonadIO m, IsAppChooserWidget o) =>
o -> Bool -> m ()
setAppChooserWidgetShowAll o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-all" Bool
val
constructAppChooserWidgetShowAll :: (IsAppChooserWidget o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructAppChooserWidgetShowAll :: forall o (m :: * -> *).
(IsAppChooserWidget o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructAppChooserWidgetShowAll Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-all" Bool
val
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetShowAllPropertyInfo
instance AttrInfo AppChooserWidgetShowAllPropertyInfo where
type AttrAllowedOps AppChooserWidgetShowAllPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppChooserWidgetShowAllPropertyInfo = IsAppChooserWidget
type AttrSetTypeConstraint AppChooserWidgetShowAllPropertyInfo = (~) Bool
type AttrTransferTypeConstraint AppChooserWidgetShowAllPropertyInfo = (~) Bool
type AttrTransferType AppChooserWidgetShowAllPropertyInfo = Bool
type AttrGetType AppChooserWidgetShowAllPropertyInfo = Bool
type AttrLabel AppChooserWidgetShowAllPropertyInfo = "show-all"
type AttrOrigin AppChooserWidgetShowAllPropertyInfo = AppChooserWidget
attrGet = getAppChooserWidgetShowAll
attrSet = setAppChooserWidgetShowAll
attrTransfer _ v = do
return v
attrConstruct = constructAppChooserWidgetShowAll
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget.showAll"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#g:attr:showAll"
})
#endif
getAppChooserWidgetShowDefault :: (MonadIO m, IsAppChooserWidget o) => o -> m Bool
getAppChooserWidgetShowDefault :: forall (m :: * -> *) o.
(MonadIO m, IsAppChooserWidget o) =>
o -> m Bool
getAppChooserWidgetShowDefault o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-default"
setAppChooserWidgetShowDefault :: (MonadIO m, IsAppChooserWidget o) => o -> Bool -> m ()
setAppChooserWidgetShowDefault :: forall (m :: * -> *) o.
(MonadIO m, IsAppChooserWidget o) =>
o -> Bool -> m ()
setAppChooserWidgetShowDefault o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-default" Bool
val
constructAppChooserWidgetShowDefault :: (IsAppChooserWidget o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructAppChooserWidgetShowDefault :: forall o (m :: * -> *).
(IsAppChooserWidget o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructAppChooserWidgetShowDefault Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-default" Bool
val
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetShowDefaultPropertyInfo
instance AttrInfo AppChooserWidgetShowDefaultPropertyInfo where
type AttrAllowedOps AppChooserWidgetShowDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppChooserWidgetShowDefaultPropertyInfo = IsAppChooserWidget
type AttrSetTypeConstraint AppChooserWidgetShowDefaultPropertyInfo = (~) Bool
type AttrTransferTypeConstraint AppChooserWidgetShowDefaultPropertyInfo = (~) Bool
type AttrTransferType AppChooserWidgetShowDefaultPropertyInfo = Bool
type AttrGetType AppChooserWidgetShowDefaultPropertyInfo = Bool
type AttrLabel AppChooserWidgetShowDefaultPropertyInfo = "show-default"
type AttrOrigin AppChooserWidgetShowDefaultPropertyInfo = AppChooserWidget
attrGet = getAppChooserWidgetShowDefault
attrSet = setAppChooserWidgetShowDefault
attrTransfer _ v = do
return v
attrConstruct = constructAppChooserWidgetShowDefault
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget.showDefault"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#g:attr:showDefault"
})
#endif
getAppChooserWidgetShowFallback :: (MonadIO m, IsAppChooserWidget o) => o -> m Bool
getAppChooserWidgetShowFallback :: forall (m :: * -> *) o.
(MonadIO m, IsAppChooserWidget o) =>
o -> m Bool
getAppChooserWidgetShowFallback o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-fallback"
setAppChooserWidgetShowFallback :: (MonadIO m, IsAppChooserWidget o) => o -> Bool -> m ()
setAppChooserWidgetShowFallback :: forall (m :: * -> *) o.
(MonadIO m, IsAppChooserWidget o) =>
o -> Bool -> m ()
setAppChooserWidgetShowFallback o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-fallback" Bool
val
constructAppChooserWidgetShowFallback :: (IsAppChooserWidget o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructAppChooserWidgetShowFallback :: forall o (m :: * -> *).
(IsAppChooserWidget o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructAppChooserWidgetShowFallback Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-fallback" Bool
val
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetShowFallbackPropertyInfo
instance AttrInfo AppChooserWidgetShowFallbackPropertyInfo where
type AttrAllowedOps AppChooserWidgetShowFallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppChooserWidgetShowFallbackPropertyInfo = IsAppChooserWidget
type AttrSetTypeConstraint AppChooserWidgetShowFallbackPropertyInfo = (~) Bool
type AttrTransferTypeConstraint AppChooserWidgetShowFallbackPropertyInfo = (~) Bool
type AttrTransferType AppChooserWidgetShowFallbackPropertyInfo = Bool
type AttrGetType AppChooserWidgetShowFallbackPropertyInfo = Bool
type AttrLabel AppChooserWidgetShowFallbackPropertyInfo = "show-fallback"
type AttrOrigin AppChooserWidgetShowFallbackPropertyInfo = AppChooserWidget
attrGet = getAppChooserWidgetShowFallback
attrSet = setAppChooserWidgetShowFallback
attrTransfer _ v = do
return v
attrConstruct = constructAppChooserWidgetShowFallback
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget.showFallback"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#g:attr:showFallback"
})
#endif
getAppChooserWidgetShowOther :: (MonadIO m, IsAppChooserWidget o) => o -> m Bool
getAppChooserWidgetShowOther :: forall (m :: * -> *) o.
(MonadIO m, IsAppChooserWidget o) =>
o -> m Bool
getAppChooserWidgetShowOther o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-other"
setAppChooserWidgetShowOther :: (MonadIO m, IsAppChooserWidget o) => o -> Bool -> m ()
setAppChooserWidgetShowOther :: forall (m :: * -> *) o.
(MonadIO m, IsAppChooserWidget o) =>
o -> Bool -> m ()
setAppChooserWidgetShowOther o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-other" Bool
val
constructAppChooserWidgetShowOther :: (IsAppChooserWidget o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructAppChooserWidgetShowOther :: forall o (m :: * -> *).
(IsAppChooserWidget o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructAppChooserWidgetShowOther Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-other" Bool
val
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetShowOtherPropertyInfo
instance AttrInfo AppChooserWidgetShowOtherPropertyInfo where
type AttrAllowedOps AppChooserWidgetShowOtherPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppChooserWidgetShowOtherPropertyInfo = IsAppChooserWidget
type AttrSetTypeConstraint AppChooserWidgetShowOtherPropertyInfo = (~) Bool
type AttrTransferTypeConstraint AppChooserWidgetShowOtherPropertyInfo = (~) Bool
type AttrTransferType AppChooserWidgetShowOtherPropertyInfo = Bool
type AttrGetType AppChooserWidgetShowOtherPropertyInfo = Bool
type AttrLabel AppChooserWidgetShowOtherPropertyInfo = "show-other"
type AttrOrigin AppChooserWidgetShowOtherPropertyInfo = AppChooserWidget
attrGet = getAppChooserWidgetShowOther
attrSet = setAppChooserWidgetShowOther
attrTransfer _ v = do
return v
attrConstruct = constructAppChooserWidgetShowOther
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget.showOther"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#g:attr:showOther"
})
#endif
getAppChooserWidgetShowRecommended :: (MonadIO m, IsAppChooserWidget o) => o -> m Bool
getAppChooserWidgetShowRecommended :: forall (m :: * -> *) o.
(MonadIO m, IsAppChooserWidget o) =>
o -> m Bool
getAppChooserWidgetShowRecommended o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-recommended"
setAppChooserWidgetShowRecommended :: (MonadIO m, IsAppChooserWidget o) => o -> Bool -> m ()
setAppChooserWidgetShowRecommended :: forall (m :: * -> *) o.
(MonadIO m, IsAppChooserWidget o) =>
o -> Bool -> m ()
setAppChooserWidgetShowRecommended o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-recommended" Bool
val
constructAppChooserWidgetShowRecommended :: (IsAppChooserWidget o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructAppChooserWidgetShowRecommended :: forall o (m :: * -> *).
(IsAppChooserWidget o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructAppChooserWidgetShowRecommended Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-recommended" Bool
val
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetShowRecommendedPropertyInfo
instance AttrInfo AppChooserWidgetShowRecommendedPropertyInfo where
type AttrAllowedOps AppChooserWidgetShowRecommendedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppChooserWidgetShowRecommendedPropertyInfo = IsAppChooserWidget
type AttrSetTypeConstraint AppChooserWidgetShowRecommendedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint AppChooserWidgetShowRecommendedPropertyInfo = (~) Bool
type AttrTransferType AppChooserWidgetShowRecommendedPropertyInfo = Bool
type AttrGetType AppChooserWidgetShowRecommendedPropertyInfo = Bool
type AttrLabel AppChooserWidgetShowRecommendedPropertyInfo = "show-recommended"
type AttrOrigin AppChooserWidgetShowRecommendedPropertyInfo = AppChooserWidget
attrGet = getAppChooserWidgetShowRecommended
attrSet = setAppChooserWidgetShowRecommended
attrTransfer _ v = do
return v
attrConstruct = constructAppChooserWidgetShowRecommended
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget.showRecommended"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#g:attr:showRecommended"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList AppChooserWidget
type instance O.AttributeList AppChooserWidget = AppChooserWidgetAttributeList
type AppChooserWidgetAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("contentType", Gtk.AppChooser.AppChooserContentTypePropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("defaultText", AppChooserWidgetDefaultTextPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("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), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showAll", AppChooserWidgetShowAllPropertyInfo), '("showDefault", AppChooserWidgetShowDefaultPropertyInfo), '("showFallback", AppChooserWidgetShowFallbackPropertyInfo), '("showOther", AppChooserWidgetShowOtherPropertyInfo), '("showRecommended", AppChooserWidgetShowRecommendedPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
appChooserWidgetDefaultText :: AttrLabelProxy "defaultText"
appChooserWidgetDefaultText = AttrLabelProxy
appChooserWidgetShowAll :: AttrLabelProxy "showAll"
appChooserWidgetShowAll = AttrLabelProxy
appChooserWidgetShowDefault :: AttrLabelProxy "showDefault"
appChooserWidgetShowDefault = AttrLabelProxy
appChooserWidgetShowFallback :: AttrLabelProxy "showFallback"
appChooserWidgetShowFallback = AttrLabelProxy
appChooserWidgetShowOther :: AttrLabelProxy "showOther"
appChooserWidgetShowOther = AttrLabelProxy
appChooserWidgetShowRecommended :: AttrLabelProxy "showRecommended"
appChooserWidgetShowRecommended = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList AppChooserWidget = AppChooserWidgetSignalList
type AppChooserWidgetSignalList = ('[ '("applicationActivated", AppChooserWidgetApplicationActivatedSignalInfo), '("applicationSelected", AppChooserWidgetApplicationSelectedSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_app_chooser_widget_new" gtk_app_chooser_widget_new ::
CString ->
IO (Ptr AppChooserWidget)
appChooserWidgetNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m AppChooserWidget
appChooserWidgetNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> m AppChooserWidget
appChooserWidgetNew Text
contentType = IO AppChooserWidget -> m AppChooserWidget
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AppChooserWidget -> m AppChooserWidget)
-> IO AppChooserWidget -> m AppChooserWidget
forall a b. (a -> b) -> a -> b
$ do
CString
contentType' <- Text -> IO CString
textToCString Text
contentType
Ptr AppChooserWidget
result <- CString -> IO (Ptr AppChooserWidget)
gtk_app_chooser_widget_new CString
contentType'
Text -> Ptr AppChooserWidget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"appChooserWidgetNew" Ptr AppChooserWidget
result
AppChooserWidget
result' <- ((ManagedPtr AppChooserWidget -> AppChooserWidget)
-> Ptr AppChooserWidget -> IO AppChooserWidget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr AppChooserWidget -> AppChooserWidget
AppChooserWidget) Ptr AppChooserWidget
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
contentType'
AppChooserWidget -> IO AppChooserWidget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return AppChooserWidget
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_app_chooser_widget_get_default_text" gtk_app_chooser_widget_get_default_text ::
Ptr AppChooserWidget ->
IO CString
appChooserWidgetGetDefaultText ::
(B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a
-> m (Maybe T.Text)
appChooserWidgetGetDefaultText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a -> m (Maybe Text)
appChooserWidgetGetDefaultText a
self = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr AppChooserWidget
self' <- a -> IO (Ptr AppChooserWidget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr AppChooserWidget -> IO CString
gtk_app_chooser_widget_get_default_text Ptr AppChooserWidget
self'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetGetDefaultTextMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsAppChooserWidget a) => O.OverloadedMethod AppChooserWidgetGetDefaultTextMethodInfo a signature where
overloadedMethod = appChooserWidgetGetDefaultText
instance O.OverloadedMethodInfo AppChooserWidgetGetDefaultTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget.appChooserWidgetGetDefaultText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#v:appChooserWidgetGetDefaultText"
})
#endif
foreign import ccall "gtk_app_chooser_widget_get_show_all" gtk_app_chooser_widget_get_show_all ::
Ptr AppChooserWidget ->
IO CInt
appChooserWidgetGetShowAll ::
(B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a
-> m Bool
appChooserWidgetGetShowAll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a -> m Bool
appChooserWidgetGetShowAll a
self = IO Bool -> m Bool
forall a. IO a -> m a
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 AppChooserWidget
self' <- a -> IO (Ptr AppChooserWidget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr AppChooserWidget -> IO CInt
gtk_app_chooser_widget_get_show_all Ptr AppChooserWidget
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetGetShowAllMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAppChooserWidget a) => O.OverloadedMethod AppChooserWidgetGetShowAllMethodInfo a signature where
overloadedMethod = appChooserWidgetGetShowAll
instance O.OverloadedMethodInfo AppChooserWidgetGetShowAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget.appChooserWidgetGetShowAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#v:appChooserWidgetGetShowAll"
})
#endif
foreign import ccall "gtk_app_chooser_widget_get_show_default" gtk_app_chooser_widget_get_show_default ::
Ptr AppChooserWidget ->
IO CInt
appChooserWidgetGetShowDefault ::
(B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a
-> m Bool
appChooserWidgetGetShowDefault :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a -> m Bool
appChooserWidgetGetShowDefault a
self = IO Bool -> m Bool
forall a. IO a -> m a
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 AppChooserWidget
self' <- a -> IO (Ptr AppChooserWidget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr AppChooserWidget -> IO CInt
gtk_app_chooser_widget_get_show_default Ptr AppChooserWidget
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetGetShowDefaultMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAppChooserWidget a) => O.OverloadedMethod AppChooserWidgetGetShowDefaultMethodInfo a signature where
overloadedMethod = appChooserWidgetGetShowDefault
instance O.OverloadedMethodInfo AppChooserWidgetGetShowDefaultMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget.appChooserWidgetGetShowDefault",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#v:appChooserWidgetGetShowDefault"
})
#endif
foreign import ccall "gtk_app_chooser_widget_get_show_fallback" gtk_app_chooser_widget_get_show_fallback ::
Ptr AppChooserWidget ->
IO CInt
appChooserWidgetGetShowFallback ::
(B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a
-> m Bool
appChooserWidgetGetShowFallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a -> m Bool
appChooserWidgetGetShowFallback a
self = IO Bool -> m Bool
forall a. IO a -> m a
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 AppChooserWidget
self' <- a -> IO (Ptr AppChooserWidget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr AppChooserWidget -> IO CInt
gtk_app_chooser_widget_get_show_fallback Ptr AppChooserWidget
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetGetShowFallbackMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAppChooserWidget a) => O.OverloadedMethod AppChooserWidgetGetShowFallbackMethodInfo a signature where
overloadedMethod = appChooserWidgetGetShowFallback
instance O.OverloadedMethodInfo AppChooserWidgetGetShowFallbackMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget.appChooserWidgetGetShowFallback",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#v:appChooserWidgetGetShowFallback"
})
#endif
foreign import ccall "gtk_app_chooser_widget_get_show_other" gtk_app_chooser_widget_get_show_other ::
Ptr AppChooserWidget ->
IO CInt
appChooserWidgetGetShowOther ::
(B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a
-> m Bool
appChooserWidgetGetShowOther :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a -> m Bool
appChooserWidgetGetShowOther a
self = IO Bool -> m Bool
forall a. IO a -> m a
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 AppChooserWidget
self' <- a -> IO (Ptr AppChooserWidget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr AppChooserWidget -> IO CInt
gtk_app_chooser_widget_get_show_other Ptr AppChooserWidget
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetGetShowOtherMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAppChooserWidget a) => O.OverloadedMethod AppChooserWidgetGetShowOtherMethodInfo a signature where
overloadedMethod = appChooserWidgetGetShowOther
instance O.OverloadedMethodInfo AppChooserWidgetGetShowOtherMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget.appChooserWidgetGetShowOther",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#v:appChooserWidgetGetShowOther"
})
#endif
foreign import ccall "gtk_app_chooser_widget_get_show_recommended" gtk_app_chooser_widget_get_show_recommended ::
Ptr AppChooserWidget ->
IO CInt
appChooserWidgetGetShowRecommended ::
(B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a
-> m Bool
appChooserWidgetGetShowRecommended :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a -> m Bool
appChooserWidgetGetShowRecommended a
self = IO Bool -> m Bool
forall a. IO a -> m a
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 AppChooserWidget
self' <- a -> IO (Ptr AppChooserWidget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr AppChooserWidget -> IO CInt
gtk_app_chooser_widget_get_show_recommended Ptr AppChooserWidget
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetGetShowRecommendedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAppChooserWidget a) => O.OverloadedMethod AppChooserWidgetGetShowRecommendedMethodInfo a signature where
overloadedMethod = appChooserWidgetGetShowRecommended
instance O.OverloadedMethodInfo AppChooserWidgetGetShowRecommendedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget.appChooserWidgetGetShowRecommended",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#v:appChooserWidgetGetShowRecommended"
})
#endif
foreign import ccall "gtk_app_chooser_widget_set_default_text" gtk_app_chooser_widget_set_default_text ::
Ptr AppChooserWidget ->
CString ->
IO ()
appChooserWidgetSetDefaultText ::
(B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a
-> T.Text
-> m ()
appChooserWidgetSetDefaultText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a -> Text -> m ()
appChooserWidgetSetDefaultText a
self Text
text = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr AppChooserWidget
self' <- a -> IO (Ptr AppChooserWidget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
text' <- Text -> IO CString
textToCString Text
text
Ptr AppChooserWidget -> CString -> IO ()
gtk_app_chooser_widget_set_default_text Ptr AppChooserWidget
self' CString
text'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
text'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetSetDefaultTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAppChooserWidget a) => O.OverloadedMethod AppChooserWidgetSetDefaultTextMethodInfo a signature where
overloadedMethod = appChooserWidgetSetDefaultText
instance O.OverloadedMethodInfo AppChooserWidgetSetDefaultTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget.appChooserWidgetSetDefaultText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#v:appChooserWidgetSetDefaultText"
})
#endif
foreign import ccall "gtk_app_chooser_widget_set_show_all" gtk_app_chooser_widget_set_show_all ::
Ptr AppChooserWidget ->
CInt ->
IO ()
appChooserWidgetSetShowAll ::
(B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a
-> Bool
-> m ()
appChooserWidgetSetShowAll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a -> Bool -> m ()
appChooserWidgetSetShowAll a
self Bool
setting = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr AppChooserWidget
self' <- a -> IO (Ptr AppChooserWidget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let setting' :: CInt
setting' = (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
setting
Ptr AppChooserWidget -> CInt -> IO ()
gtk_app_chooser_widget_set_show_all Ptr AppChooserWidget
self' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetSetShowAllMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAppChooserWidget a) => O.OverloadedMethod AppChooserWidgetSetShowAllMethodInfo a signature where
overloadedMethod = appChooserWidgetSetShowAll
instance O.OverloadedMethodInfo AppChooserWidgetSetShowAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget.appChooserWidgetSetShowAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#v:appChooserWidgetSetShowAll"
})
#endif
foreign import ccall "gtk_app_chooser_widget_set_show_default" gtk_app_chooser_widget_set_show_default ::
Ptr AppChooserWidget ->
CInt ->
IO ()
appChooserWidgetSetShowDefault ::
(B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a
-> Bool
-> m ()
appChooserWidgetSetShowDefault :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a -> Bool -> m ()
appChooserWidgetSetShowDefault a
self Bool
setting = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr AppChooserWidget
self' <- a -> IO (Ptr AppChooserWidget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let setting' :: CInt
setting' = (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
setting
Ptr AppChooserWidget -> CInt -> IO ()
gtk_app_chooser_widget_set_show_default Ptr AppChooserWidget
self' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetSetShowDefaultMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAppChooserWidget a) => O.OverloadedMethod AppChooserWidgetSetShowDefaultMethodInfo a signature where
overloadedMethod = appChooserWidgetSetShowDefault
instance O.OverloadedMethodInfo AppChooserWidgetSetShowDefaultMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget.appChooserWidgetSetShowDefault",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#v:appChooserWidgetSetShowDefault"
})
#endif
foreign import ccall "gtk_app_chooser_widget_set_show_fallback" gtk_app_chooser_widget_set_show_fallback ::
Ptr AppChooserWidget ->
CInt ->
IO ()
appChooserWidgetSetShowFallback ::
(B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a
-> Bool
-> m ()
appChooserWidgetSetShowFallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a -> Bool -> m ()
appChooserWidgetSetShowFallback a
self Bool
setting = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr AppChooserWidget
self' <- a -> IO (Ptr AppChooserWidget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let setting' :: CInt
setting' = (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
setting
Ptr AppChooserWidget -> CInt -> IO ()
gtk_app_chooser_widget_set_show_fallback Ptr AppChooserWidget
self' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetSetShowFallbackMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAppChooserWidget a) => O.OverloadedMethod AppChooserWidgetSetShowFallbackMethodInfo a signature where
overloadedMethod = appChooserWidgetSetShowFallback
instance O.OverloadedMethodInfo AppChooserWidgetSetShowFallbackMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget.appChooserWidgetSetShowFallback",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#v:appChooserWidgetSetShowFallback"
})
#endif
foreign import ccall "gtk_app_chooser_widget_set_show_other" gtk_app_chooser_widget_set_show_other ::
Ptr AppChooserWidget ->
CInt ->
IO ()
appChooserWidgetSetShowOther ::
(B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a
-> Bool
-> m ()
appChooserWidgetSetShowOther :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a -> Bool -> m ()
appChooserWidgetSetShowOther a
self Bool
setting = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr AppChooserWidget
self' <- a -> IO (Ptr AppChooserWidget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let setting' :: CInt
setting' = (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
setting
Ptr AppChooserWidget -> CInt -> IO ()
gtk_app_chooser_widget_set_show_other Ptr AppChooserWidget
self' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetSetShowOtherMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAppChooserWidget a) => O.OverloadedMethod AppChooserWidgetSetShowOtherMethodInfo a signature where
overloadedMethod = appChooserWidgetSetShowOther
instance O.OverloadedMethodInfo AppChooserWidgetSetShowOtherMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget.appChooserWidgetSetShowOther",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#v:appChooserWidgetSetShowOther"
})
#endif
foreign import ccall "gtk_app_chooser_widget_set_show_recommended" gtk_app_chooser_widget_set_show_recommended ::
Ptr AppChooserWidget ->
CInt ->
IO ()
appChooserWidgetSetShowRecommended ::
(B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a
-> Bool
-> m ()
appChooserWidgetSetShowRecommended :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppChooserWidget a) =>
a -> Bool -> m ()
appChooserWidgetSetShowRecommended a
self Bool
setting = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr AppChooserWidget
self' <- a -> IO (Ptr AppChooserWidget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let setting' :: CInt
setting' = (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
setting
Ptr AppChooserWidget -> CInt -> IO ()
gtk_app_chooser_widget_set_show_recommended Ptr AppChooserWidget
self' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppChooserWidgetSetShowRecommendedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAppChooserWidget a) => O.OverloadedMethod AppChooserWidgetSetShowRecommendedMethodInfo a signature where
overloadedMethod = appChooserWidgetSetShowRecommended
instance O.OverloadedMethodInfo AppChooserWidgetSetShowRecommendedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.AppChooserWidget.appChooserWidgetSetShowRecommended",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-AppChooserWidget.html#v:appChooserWidgetSetShowRecommended"
})
#endif