{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Adw.Objects.AboutDialog
(
AboutDialog(..) ,
IsAboutDialog ,
toAboutDialog ,
#if defined(ENABLE_OVERLOADING)
ResolveAboutDialogMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
AboutDialogAddAcknowledgementSectionMethodInfo,
#endif
aboutDialogAddAcknowledgementSection ,
#if defined(ENABLE_OVERLOADING)
AboutDialogAddCreditSectionMethodInfo ,
#endif
aboutDialogAddCreditSection ,
#if defined(ENABLE_OVERLOADING)
AboutDialogAddLegalSectionMethodInfo ,
#endif
aboutDialogAddLegalSection ,
#if defined(ENABLE_OVERLOADING)
AboutDialogAddLinkMethodInfo ,
#endif
aboutDialogAddLink ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetApplicationIconMethodInfo ,
#endif
aboutDialogGetApplicationIcon ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetApplicationNameMethodInfo ,
#endif
aboutDialogGetApplicationName ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetArtistsMethodInfo ,
#endif
aboutDialogGetArtists ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetCommentsMethodInfo ,
#endif
aboutDialogGetComments ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetCopyrightMethodInfo ,
#endif
aboutDialogGetCopyright ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetDebugInfoMethodInfo ,
#endif
aboutDialogGetDebugInfo ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetDebugInfoFilenameMethodInfo,
#endif
aboutDialogGetDebugInfoFilename ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetDesignersMethodInfo ,
#endif
aboutDialogGetDesigners ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetDeveloperNameMethodInfo ,
#endif
aboutDialogGetDeveloperName ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetDevelopersMethodInfo ,
#endif
aboutDialogGetDevelopers ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetDocumentersMethodInfo ,
#endif
aboutDialogGetDocumenters ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetIssueUrlMethodInfo ,
#endif
aboutDialogGetIssueUrl ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetLicenseMethodInfo ,
#endif
aboutDialogGetLicense ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetLicenseTypeMethodInfo ,
#endif
aboutDialogGetLicenseType ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetReleaseNotesMethodInfo ,
#endif
aboutDialogGetReleaseNotes ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetReleaseNotesVersionMethodInfo,
#endif
aboutDialogGetReleaseNotesVersion ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetSupportUrlMethodInfo ,
#endif
aboutDialogGetSupportUrl ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetTranslatorCreditsMethodInfo,
#endif
aboutDialogGetTranslatorCredits ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetVersionMethodInfo ,
#endif
aboutDialogGetVersion ,
#if defined(ENABLE_OVERLOADING)
AboutDialogGetWebsiteMethodInfo ,
#endif
aboutDialogGetWebsite ,
aboutDialogNew ,
aboutDialogNewFromAppdata ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetApplicationIconMethodInfo ,
#endif
aboutDialogSetApplicationIcon ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetApplicationNameMethodInfo ,
#endif
aboutDialogSetApplicationName ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetArtistsMethodInfo ,
#endif
aboutDialogSetArtists ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetCommentsMethodInfo ,
#endif
aboutDialogSetComments ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetCopyrightMethodInfo ,
#endif
aboutDialogSetCopyright ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetDebugInfoMethodInfo ,
#endif
aboutDialogSetDebugInfo ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetDebugInfoFilenameMethodInfo,
#endif
aboutDialogSetDebugInfoFilename ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetDesignersMethodInfo ,
#endif
aboutDialogSetDesigners ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetDeveloperNameMethodInfo ,
#endif
aboutDialogSetDeveloperName ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetDevelopersMethodInfo ,
#endif
aboutDialogSetDevelopers ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetDocumentersMethodInfo ,
#endif
aboutDialogSetDocumenters ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetIssueUrlMethodInfo ,
#endif
aboutDialogSetIssueUrl ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetLicenseMethodInfo ,
#endif
aboutDialogSetLicense ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetLicenseTypeMethodInfo ,
#endif
aboutDialogSetLicenseType ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetReleaseNotesMethodInfo ,
#endif
aboutDialogSetReleaseNotes ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetReleaseNotesVersionMethodInfo,
#endif
aboutDialogSetReleaseNotesVersion ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetSupportUrlMethodInfo ,
#endif
aboutDialogSetSupportUrl ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetTranslatorCreditsMethodInfo,
#endif
aboutDialogSetTranslatorCredits ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetVersionMethodInfo ,
#endif
aboutDialogSetVersion ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSetWebsiteMethodInfo ,
#endif
aboutDialogSetWebsite ,
#if defined(ENABLE_OVERLOADING)
AboutDialogApplicationIconPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogApplicationIcon ,
#endif
constructAboutDialogApplicationIcon ,
getAboutDialogApplicationIcon ,
setAboutDialogApplicationIcon ,
#if defined(ENABLE_OVERLOADING)
AboutDialogApplicationNamePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogApplicationName ,
#endif
constructAboutDialogApplicationName ,
getAboutDialogApplicationName ,
setAboutDialogApplicationName ,
#if defined(ENABLE_OVERLOADING)
AboutDialogArtistsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogArtists ,
#endif
clearAboutDialogArtists ,
constructAboutDialogArtists ,
getAboutDialogArtists ,
setAboutDialogArtists ,
#if defined(ENABLE_OVERLOADING)
AboutDialogCommentsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogComments ,
#endif
constructAboutDialogComments ,
getAboutDialogComments ,
setAboutDialogComments ,
#if defined(ENABLE_OVERLOADING)
AboutDialogCopyrightPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogCopyright ,
#endif
constructAboutDialogCopyright ,
getAboutDialogCopyright ,
setAboutDialogCopyright ,
#if defined(ENABLE_OVERLOADING)
AboutDialogDebugInfoPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogDebugInfo ,
#endif
constructAboutDialogDebugInfo ,
getAboutDialogDebugInfo ,
setAboutDialogDebugInfo ,
#if defined(ENABLE_OVERLOADING)
AboutDialogDebugInfoFilenamePropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogDebugInfoFilename ,
#endif
constructAboutDialogDebugInfoFilename ,
getAboutDialogDebugInfoFilename ,
setAboutDialogDebugInfoFilename ,
#if defined(ENABLE_OVERLOADING)
AboutDialogDesignersPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogDesigners ,
#endif
clearAboutDialogDesigners ,
constructAboutDialogDesigners ,
getAboutDialogDesigners ,
setAboutDialogDesigners ,
#if defined(ENABLE_OVERLOADING)
AboutDialogDeveloperNamePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogDeveloperName ,
#endif
constructAboutDialogDeveloperName ,
getAboutDialogDeveloperName ,
setAboutDialogDeveloperName ,
#if defined(ENABLE_OVERLOADING)
AboutDialogDevelopersPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogDevelopers ,
#endif
clearAboutDialogDevelopers ,
constructAboutDialogDevelopers ,
getAboutDialogDevelopers ,
setAboutDialogDevelopers ,
#if defined(ENABLE_OVERLOADING)
AboutDialogDocumentersPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogDocumenters ,
#endif
clearAboutDialogDocumenters ,
constructAboutDialogDocumenters ,
getAboutDialogDocumenters ,
setAboutDialogDocumenters ,
#if defined(ENABLE_OVERLOADING)
AboutDialogIssueUrlPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogIssueUrl ,
#endif
constructAboutDialogIssueUrl ,
getAboutDialogIssueUrl ,
setAboutDialogIssueUrl ,
#if defined(ENABLE_OVERLOADING)
AboutDialogLicensePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogLicense ,
#endif
constructAboutDialogLicense ,
getAboutDialogLicense ,
setAboutDialogLicense ,
#if defined(ENABLE_OVERLOADING)
AboutDialogLicenseTypePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogLicenseType ,
#endif
constructAboutDialogLicenseType ,
getAboutDialogLicenseType ,
setAboutDialogLicenseType ,
#if defined(ENABLE_OVERLOADING)
AboutDialogReleaseNotesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogReleaseNotes ,
#endif
constructAboutDialogReleaseNotes ,
getAboutDialogReleaseNotes ,
setAboutDialogReleaseNotes ,
#if defined(ENABLE_OVERLOADING)
AboutDialogReleaseNotesVersionPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogReleaseNotesVersion ,
#endif
constructAboutDialogReleaseNotesVersion ,
getAboutDialogReleaseNotesVersion ,
setAboutDialogReleaseNotesVersion ,
#if defined(ENABLE_OVERLOADING)
AboutDialogSupportUrlPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogSupportUrl ,
#endif
constructAboutDialogSupportUrl ,
getAboutDialogSupportUrl ,
setAboutDialogSupportUrl ,
#if defined(ENABLE_OVERLOADING)
AboutDialogTranslatorCreditsPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogTranslatorCredits ,
#endif
constructAboutDialogTranslatorCredits ,
getAboutDialogTranslatorCredits ,
setAboutDialogTranslatorCredits ,
#if defined(ENABLE_OVERLOADING)
AboutDialogVersionPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogVersion ,
#endif
constructAboutDialogVersion ,
getAboutDialogVersion ,
setAboutDialogVersion ,
#if defined(ENABLE_OVERLOADING)
AboutDialogWebsitePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogWebsite ,
#endif
constructAboutDialogWebsite ,
getAboutDialogWebsite ,
setAboutDialogWebsite ,
AboutDialogActivateLinkCallback ,
#if defined(ENABLE_OVERLOADING)
AboutDialogActivateLinkSignalInfo ,
#endif
afterAboutDialogActivateLink ,
onAboutDialogActivateLink ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import {-# SOURCE #-} qualified GI.Adw.Enums as Adw.Enums
import {-# SOURCE #-} qualified GI.Adw.Objects.Breakpoint as Adw.Breakpoint
import {-# SOURCE #-} qualified GI.Adw.Objects.Dialog as Adw.Dialog
import {-# SOURCE #-} qualified GI.Adw.Structs.BreakpointCondition as Adw.BreakpointCondition
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Enums as Gtk.Enums
import qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
#else
import {-# SOURCE #-} qualified GI.Adw.Objects.Dialog as Adw.Dialog
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Enums as Gtk.Enums
import qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
#endif
newtype AboutDialog = AboutDialog (SP.ManagedPtr AboutDialog)
deriving (AboutDialog -> AboutDialog -> Bool
(AboutDialog -> AboutDialog -> Bool)
-> (AboutDialog -> AboutDialog -> Bool) -> Eq AboutDialog
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AboutDialog -> AboutDialog -> Bool
== :: AboutDialog -> AboutDialog -> Bool
$c/= :: AboutDialog -> AboutDialog -> Bool
/= :: AboutDialog -> AboutDialog -> Bool
Eq)
instance SP.ManagedPtrNewtype AboutDialog where
toManagedPtr :: AboutDialog -> ManagedPtr AboutDialog
toManagedPtr (AboutDialog ManagedPtr AboutDialog
p) = ManagedPtr AboutDialog
p
foreign import ccall "adw_about_dialog_get_type"
c_adw_about_dialog_get_type :: IO B.Types.GType
instance B.Types.TypedObject AboutDialog where
glibType :: IO GType
glibType = IO GType
c_adw_about_dialog_get_type
instance B.Types.GObject AboutDialog
class (SP.GObject o, O.IsDescendantOf AboutDialog o) => IsAboutDialog o
instance (SP.GObject o, O.IsDescendantOf AboutDialog o) => IsAboutDialog o
instance O.HasParentTypes AboutDialog
type instance O.ParentTypes AboutDialog = '[Adw.Dialog.Dialog, Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toAboutDialog :: (MIO.MonadIO m, IsAboutDialog o) => o -> m AboutDialog
toAboutDialog :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> m AboutDialog
toAboutDialog = IO AboutDialog -> m AboutDialog
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO AboutDialog -> m AboutDialog)
-> (o -> IO AboutDialog) -> o -> m AboutDialog
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr AboutDialog -> AboutDialog) -> o -> IO AboutDialog
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr AboutDialog -> AboutDialog
AboutDialog
instance B.GValue.IsGValue (Maybe AboutDialog) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_adw_about_dialog_get_type
gvalueSet_ :: Ptr GValue -> Maybe AboutDialog -> IO ()
gvalueSet_ Ptr GValue
gv Maybe AboutDialog
P.Nothing = Ptr GValue -> Ptr AboutDialog -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr AboutDialog
forall a. Ptr a
FP.nullPtr :: FP.Ptr AboutDialog)
gvalueSet_ Ptr GValue
gv (P.Just AboutDialog
obj) = AboutDialog -> (Ptr AboutDialog -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr AboutDialog
obj (Ptr GValue -> Ptr AboutDialog -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe AboutDialog)
gvalueGet_ Ptr GValue
gv = do
Ptr AboutDialog
ptr <- Ptr GValue -> IO (Ptr AboutDialog)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr AboutDialog)
if Ptr AboutDialog
ptr Ptr AboutDialog -> Ptr AboutDialog -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr AboutDialog
forall a. Ptr a
FP.nullPtr
then AboutDialog -> Maybe AboutDialog
forall a. a -> Maybe a
P.Just (AboutDialog -> Maybe AboutDialog)
-> IO AboutDialog -> IO (Maybe AboutDialog)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr AboutDialog -> AboutDialog)
-> Ptr AboutDialog -> IO AboutDialog
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr AboutDialog -> AboutDialog
AboutDialog Ptr AboutDialog
ptr
else Maybe AboutDialog -> IO (Maybe AboutDialog)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe AboutDialog
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveAboutDialogMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveAboutDialogMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveAboutDialogMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveAboutDialogMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveAboutDialogMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveAboutDialogMethod "addAcknowledgementSection" o = AboutDialogAddAcknowledgementSectionMethodInfo
ResolveAboutDialogMethod "addBreakpoint" o = Adw.Dialog.DialogAddBreakpointMethodInfo
ResolveAboutDialogMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveAboutDialogMethod "addCreditSection" o = AboutDialogAddCreditSectionMethodInfo
ResolveAboutDialogMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveAboutDialogMethod "addLegalSection" o = AboutDialogAddLegalSectionMethodInfo
ResolveAboutDialogMethod "addLink" o = AboutDialogAddLinkMethodInfo
ResolveAboutDialogMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveAboutDialogMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveAboutDialogMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveAboutDialogMethod "announce" o = Gtk.Accessible.AccessibleAnnounceMethodInfo
ResolveAboutDialogMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAboutDialogMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAboutDialogMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveAboutDialogMethod "close" o = Adw.Dialog.DialogCloseMethodInfo
ResolveAboutDialogMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveAboutDialogMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveAboutDialogMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveAboutDialogMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveAboutDialogMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveAboutDialogMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveAboutDialogMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveAboutDialogMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveAboutDialogMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveAboutDialogMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveAboutDialogMethod "forceClose" o = Adw.Dialog.DialogForceCloseMethodInfo
ResolveAboutDialogMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAboutDialogMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAboutDialogMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveAboutDialogMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveAboutDialogMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveAboutDialogMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveAboutDialogMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveAboutDialogMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveAboutDialogMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveAboutDialogMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveAboutDialogMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveAboutDialogMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveAboutDialogMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveAboutDialogMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveAboutDialogMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveAboutDialogMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveAboutDialogMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveAboutDialogMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveAboutDialogMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveAboutDialogMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveAboutDialogMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveAboutDialogMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveAboutDialogMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveAboutDialogMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveAboutDialogMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveAboutDialogMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveAboutDialogMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveAboutDialogMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveAboutDialogMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveAboutDialogMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveAboutDialogMethod "present" o = Adw.Dialog.DialogPresentMethodInfo
ResolveAboutDialogMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveAboutDialogMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveAboutDialogMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveAboutDialogMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveAboutDialogMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveAboutDialogMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAboutDialogMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveAboutDialogMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveAboutDialogMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveAboutDialogMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveAboutDialogMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveAboutDialogMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveAboutDialogMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveAboutDialogMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAboutDialogMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveAboutDialogMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveAboutDialogMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveAboutDialogMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveAboutDialogMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveAboutDialogMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveAboutDialogMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveAboutDialogMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveAboutDialogMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveAboutDialogMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveAboutDialogMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveAboutDialogMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveAboutDialogMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveAboutDialogMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveAboutDialogMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveAboutDialogMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveAboutDialogMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveAboutDialogMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveAboutDialogMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAboutDialogMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveAboutDialogMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveAboutDialogMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveAboutDialogMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveAboutDialogMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveAboutDialogMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveAboutDialogMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveAboutDialogMethod "getApplicationIcon" o = AboutDialogGetApplicationIconMethodInfo
ResolveAboutDialogMethod "getApplicationName" o = AboutDialogGetApplicationNameMethodInfo
ResolveAboutDialogMethod "getArtists" o = AboutDialogGetArtistsMethodInfo
ResolveAboutDialogMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveAboutDialogMethod "getBaseline" o = Gtk.Widget.WidgetGetBaselineMethodInfo
ResolveAboutDialogMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveAboutDialogMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveAboutDialogMethod "getCanClose" o = Adw.Dialog.DialogGetCanCloseMethodInfo
ResolveAboutDialogMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveAboutDialogMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveAboutDialogMethod "getChild" o = Adw.Dialog.DialogGetChildMethodInfo
ResolveAboutDialogMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveAboutDialogMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveAboutDialogMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveAboutDialogMethod "getComments" o = AboutDialogGetCommentsMethodInfo
ResolveAboutDialogMethod "getContentHeight" o = Adw.Dialog.DialogGetContentHeightMethodInfo
ResolveAboutDialogMethod "getContentWidth" o = Adw.Dialog.DialogGetContentWidthMethodInfo
ResolveAboutDialogMethod "getCopyright" o = AboutDialogGetCopyrightMethodInfo
ResolveAboutDialogMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveAboutDialogMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveAboutDialogMethod "getCurrentBreakpoint" o = Adw.Dialog.DialogGetCurrentBreakpointMethodInfo
ResolveAboutDialogMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveAboutDialogMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveAboutDialogMethod "getDebugInfo" o = AboutDialogGetDebugInfoMethodInfo
ResolveAboutDialogMethod "getDebugInfoFilename" o = AboutDialogGetDebugInfoFilenameMethodInfo
ResolveAboutDialogMethod "getDefaultWidget" o = Adw.Dialog.DialogGetDefaultWidgetMethodInfo
ResolveAboutDialogMethod "getDesigners" o = AboutDialogGetDesignersMethodInfo
ResolveAboutDialogMethod "getDeveloperName" o = AboutDialogGetDeveloperNameMethodInfo
ResolveAboutDialogMethod "getDevelopers" o = AboutDialogGetDevelopersMethodInfo
ResolveAboutDialogMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveAboutDialogMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveAboutDialogMethod "getDocumenters" o = AboutDialogGetDocumentersMethodInfo
ResolveAboutDialogMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveAboutDialogMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveAboutDialogMethod "getFocus" o = Adw.Dialog.DialogGetFocusMethodInfo
ResolveAboutDialogMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveAboutDialogMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveAboutDialogMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveAboutDialogMethod "getFollowsContentSize" o = Adw.Dialog.DialogGetFollowsContentSizeMethodInfo
ResolveAboutDialogMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveAboutDialogMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveAboutDialogMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveAboutDialogMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveAboutDialogMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveAboutDialogMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveAboutDialogMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveAboutDialogMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveAboutDialogMethod "getIssueUrl" o = AboutDialogGetIssueUrlMethodInfo
ResolveAboutDialogMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveAboutDialogMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveAboutDialogMethod "getLicense" o = AboutDialogGetLicenseMethodInfo
ResolveAboutDialogMethod "getLicenseType" o = AboutDialogGetLicenseTypeMethodInfo
ResolveAboutDialogMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveAboutDialogMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveAboutDialogMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveAboutDialogMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveAboutDialogMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveAboutDialogMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveAboutDialogMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveAboutDialogMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveAboutDialogMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveAboutDialogMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveAboutDialogMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveAboutDialogMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveAboutDialogMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveAboutDialogMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveAboutDialogMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveAboutDialogMethod "getPresentationMode" o = Adw.Dialog.DialogGetPresentationModeMethodInfo
ResolveAboutDialogMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveAboutDialogMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveAboutDialogMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveAboutDialogMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveAboutDialogMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveAboutDialogMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveAboutDialogMethod "getReleaseNotes" o = AboutDialogGetReleaseNotesMethodInfo
ResolveAboutDialogMethod "getReleaseNotesVersion" o = AboutDialogGetReleaseNotesVersionMethodInfo
ResolveAboutDialogMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveAboutDialogMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveAboutDialogMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveAboutDialogMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveAboutDialogMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveAboutDialogMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveAboutDialogMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveAboutDialogMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveAboutDialogMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveAboutDialogMethod "getSupportUrl" o = AboutDialogGetSupportUrlMethodInfo
ResolveAboutDialogMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveAboutDialogMethod "getTitle" o = Adw.Dialog.DialogGetTitleMethodInfo
ResolveAboutDialogMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveAboutDialogMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveAboutDialogMethod "getTranslatorCredits" o = AboutDialogGetTranslatorCreditsMethodInfo
ResolveAboutDialogMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveAboutDialogMethod "getVersion" o = AboutDialogGetVersionMethodInfo
ResolveAboutDialogMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveAboutDialogMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveAboutDialogMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveAboutDialogMethod "getWebsite" o = AboutDialogGetWebsiteMethodInfo
ResolveAboutDialogMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveAboutDialogMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveAboutDialogMethod "setApplicationIcon" o = AboutDialogSetApplicationIconMethodInfo
ResolveAboutDialogMethod "setApplicationName" o = AboutDialogSetApplicationNameMethodInfo
ResolveAboutDialogMethod "setArtists" o = AboutDialogSetArtistsMethodInfo
ResolveAboutDialogMethod "setCanClose" o = Adw.Dialog.DialogSetCanCloseMethodInfo
ResolveAboutDialogMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveAboutDialogMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveAboutDialogMethod "setChild" o = Adw.Dialog.DialogSetChildMethodInfo
ResolveAboutDialogMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveAboutDialogMethod "setComments" o = AboutDialogSetCommentsMethodInfo
ResolveAboutDialogMethod "setContentHeight" o = Adw.Dialog.DialogSetContentHeightMethodInfo
ResolveAboutDialogMethod "setContentWidth" o = Adw.Dialog.DialogSetContentWidthMethodInfo
ResolveAboutDialogMethod "setCopyright" o = AboutDialogSetCopyrightMethodInfo
ResolveAboutDialogMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveAboutDialogMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveAboutDialogMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveAboutDialogMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveAboutDialogMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveAboutDialogMethod "setDebugInfo" o = AboutDialogSetDebugInfoMethodInfo
ResolveAboutDialogMethod "setDebugInfoFilename" o = AboutDialogSetDebugInfoFilenameMethodInfo
ResolveAboutDialogMethod "setDefaultWidget" o = Adw.Dialog.DialogSetDefaultWidgetMethodInfo
ResolveAboutDialogMethod "setDesigners" o = AboutDialogSetDesignersMethodInfo
ResolveAboutDialogMethod "setDeveloperName" o = AboutDialogSetDeveloperNameMethodInfo
ResolveAboutDialogMethod "setDevelopers" o = AboutDialogSetDevelopersMethodInfo
ResolveAboutDialogMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveAboutDialogMethod "setDocumenters" o = AboutDialogSetDocumentersMethodInfo
ResolveAboutDialogMethod "setFocus" o = Adw.Dialog.DialogSetFocusMethodInfo
ResolveAboutDialogMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveAboutDialogMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveAboutDialogMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveAboutDialogMethod "setFollowsContentSize" o = Adw.Dialog.DialogSetFollowsContentSizeMethodInfo
ResolveAboutDialogMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveAboutDialogMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveAboutDialogMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveAboutDialogMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveAboutDialogMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveAboutDialogMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveAboutDialogMethod "setIssueUrl" o = AboutDialogSetIssueUrlMethodInfo
ResolveAboutDialogMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveAboutDialogMethod "setLicense" o = AboutDialogSetLicenseMethodInfo
ResolveAboutDialogMethod "setLicenseType" o = AboutDialogSetLicenseTypeMethodInfo
ResolveAboutDialogMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveAboutDialogMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveAboutDialogMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveAboutDialogMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveAboutDialogMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveAboutDialogMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveAboutDialogMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveAboutDialogMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveAboutDialogMethod "setPresentationMode" o = Adw.Dialog.DialogSetPresentationModeMethodInfo
ResolveAboutDialogMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveAboutDialogMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveAboutDialogMethod "setReleaseNotes" o = AboutDialogSetReleaseNotesMethodInfo
ResolveAboutDialogMethod "setReleaseNotesVersion" o = AboutDialogSetReleaseNotesVersionMethodInfo
ResolveAboutDialogMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveAboutDialogMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveAboutDialogMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveAboutDialogMethod "setSupportUrl" o = AboutDialogSetSupportUrlMethodInfo
ResolveAboutDialogMethod "setTitle" o = Adw.Dialog.DialogSetTitleMethodInfo
ResolveAboutDialogMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveAboutDialogMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveAboutDialogMethod "setTranslatorCredits" o = AboutDialogSetTranslatorCreditsMethodInfo
ResolveAboutDialogMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveAboutDialogMethod "setVersion" o = AboutDialogSetVersionMethodInfo
ResolveAboutDialogMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveAboutDialogMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveAboutDialogMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveAboutDialogMethod "setWebsite" o = AboutDialogSetWebsiteMethodInfo
ResolveAboutDialogMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAboutDialogMethod t AboutDialog, O.OverloadedMethod info AboutDialog p) => OL.IsLabel t (AboutDialog -> 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 ~ ResolveAboutDialogMethod t AboutDialog, O.OverloadedMethod info AboutDialog p, R.HasField t AboutDialog p) => R.HasField t AboutDialog p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveAboutDialogMethod t AboutDialog, O.OverloadedMethodInfo info AboutDialog) => OL.IsLabel t (O.MethodProxy info AboutDialog) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type AboutDialogActivateLinkCallback =
T.Text
-> IO Bool
type C_AboutDialogActivateLinkCallback =
Ptr AboutDialog ->
CString ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_AboutDialogActivateLinkCallback :: C_AboutDialogActivateLinkCallback -> IO (FunPtr C_AboutDialogActivateLinkCallback)
wrap_AboutDialogActivateLinkCallback ::
GObject a => (a -> AboutDialogActivateLinkCallback) ->
C_AboutDialogActivateLinkCallback
wrap_AboutDialogActivateLinkCallback :: forall a.
GObject a =>
(a -> AboutDialogActivateLinkCallback)
-> C_AboutDialogActivateLinkCallback
wrap_AboutDialogActivateLinkCallback a -> AboutDialogActivateLinkCallback
gi'cb Ptr AboutDialog
gi'selfPtr CString
uri Ptr ()
_ = do
Text
uri' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
uri
Bool
result <- Ptr AboutDialog -> (AboutDialog -> IO Bool) -> IO Bool
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr AboutDialog
gi'selfPtr ((AboutDialog -> IO Bool) -> IO Bool)
-> (AboutDialog -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \AboutDialog
gi'self -> a -> AboutDialogActivateLinkCallback
gi'cb (AboutDialog -> a
forall a b. Coercible a b => a -> b
Coerce.coerce AboutDialog
gi'self) Text
uri'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onAboutDialogActivateLink :: (IsAboutDialog a, MonadIO m) => a -> ((?self :: a) => AboutDialogActivateLinkCallback) -> m SignalHandlerId
onAboutDialogActivateLink :: forall a (m :: * -> *).
(IsAboutDialog a, MonadIO m) =>
a
-> ((?self::a) => AboutDialogActivateLinkCallback)
-> m SignalHandlerId
onAboutDialogActivateLink a
obj (?self::a) => AboutDialogActivateLinkCallback
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 -> AboutDialogActivateLinkCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AboutDialogActivateLinkCallback
AboutDialogActivateLinkCallback
cb
let wrapped' :: C_AboutDialogActivateLinkCallback
wrapped' = (a -> AboutDialogActivateLinkCallback)
-> C_AboutDialogActivateLinkCallback
forall a.
GObject a =>
(a -> AboutDialogActivateLinkCallback)
-> C_AboutDialogActivateLinkCallback
wrap_AboutDialogActivateLinkCallback a -> AboutDialogActivateLinkCallback
wrapped
FunPtr C_AboutDialogActivateLinkCallback
wrapped'' <- C_AboutDialogActivateLinkCallback
-> IO (FunPtr C_AboutDialogActivateLinkCallback)
mk_AboutDialogActivateLinkCallback C_AboutDialogActivateLinkCallback
wrapped'
a
-> Text
-> FunPtr C_AboutDialogActivateLinkCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate-link" FunPtr C_AboutDialogActivateLinkCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAboutDialogActivateLink :: (IsAboutDialog a, MonadIO m) => a -> ((?self :: a) => AboutDialogActivateLinkCallback) -> m SignalHandlerId
afterAboutDialogActivateLink :: forall a (m :: * -> *).
(IsAboutDialog a, MonadIO m) =>
a
-> ((?self::a) => AboutDialogActivateLinkCallback)
-> m SignalHandlerId
afterAboutDialogActivateLink a
obj (?self::a) => AboutDialogActivateLinkCallback
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 -> AboutDialogActivateLinkCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AboutDialogActivateLinkCallback
AboutDialogActivateLinkCallback
cb
let wrapped' :: C_AboutDialogActivateLinkCallback
wrapped' = (a -> AboutDialogActivateLinkCallback)
-> C_AboutDialogActivateLinkCallback
forall a.
GObject a =>
(a -> AboutDialogActivateLinkCallback)
-> C_AboutDialogActivateLinkCallback
wrap_AboutDialogActivateLinkCallback a -> AboutDialogActivateLinkCallback
wrapped
FunPtr C_AboutDialogActivateLinkCallback
wrapped'' <- C_AboutDialogActivateLinkCallback
-> IO (FunPtr C_AboutDialogActivateLinkCallback)
mk_AboutDialogActivateLinkCallback C_AboutDialogActivateLinkCallback
wrapped'
a
-> Text
-> FunPtr C_AboutDialogActivateLinkCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate-link" FunPtr C_AboutDialogActivateLinkCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AboutDialogActivateLinkSignalInfo
instance SignalInfo AboutDialogActivateLinkSignalInfo where
type HaskellCallbackType AboutDialogActivateLinkSignalInfo = AboutDialogActivateLinkCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AboutDialogActivateLinkCallback cb
cb'' <- mk_AboutDialogActivateLinkCallback cb'
connectSignalFunPtr obj "activate-link" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog::activate-link"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:signal:activateLink"})
#endif
getAboutDialogApplicationIcon :: (MonadIO m, IsAboutDialog o) => o -> m T.Text
getAboutDialogApplicationIcon :: forall (m :: * -> *) o. (MonadIO m, IsAboutDialog o) => o -> m Text
getAboutDialogApplicationIcon o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getAboutDialogApplicationIcon" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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
"application-icon"
setAboutDialogApplicationIcon :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m ()
setAboutDialogApplicationIcon :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> Text -> m ()
setAboutDialogApplicationIcon 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
"application-icon" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructAboutDialogApplicationIcon :: (IsAboutDialog o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructAboutDialogApplicationIcon :: forall o (m :: * -> *).
(IsAboutDialog o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructAboutDialogApplicationIcon 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
"application-icon" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data AboutDialogApplicationIconPropertyInfo
instance AttrInfo AboutDialogApplicationIconPropertyInfo where
type AttrAllowedOps AboutDialogApplicationIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AboutDialogApplicationIconPropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogApplicationIconPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint AboutDialogApplicationIconPropertyInfo = (~) T.Text
type AttrTransferType AboutDialogApplicationIconPropertyInfo = T.Text
type AttrGetType AboutDialogApplicationIconPropertyInfo = T.Text
type AttrLabel AboutDialogApplicationIconPropertyInfo = "application-icon"
type AttrOrigin AboutDialogApplicationIconPropertyInfo = AboutDialog
attrGet = getAboutDialogApplicationIcon
attrSet = setAboutDialogApplicationIcon
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogApplicationIcon
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.applicationIcon"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:applicationIcon"
})
#endif
getAboutDialogApplicationName :: (MonadIO m, IsAboutDialog o) => o -> m T.Text
getAboutDialogApplicationName :: forall (m :: * -> *) o. (MonadIO m, IsAboutDialog o) => o -> m Text
getAboutDialogApplicationName o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getAboutDialogApplicationName" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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
"application-name"
setAboutDialogApplicationName :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m ()
setAboutDialogApplicationName :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> Text -> m ()
setAboutDialogApplicationName 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
"application-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructAboutDialogApplicationName :: (IsAboutDialog o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructAboutDialogApplicationName :: forall o (m :: * -> *).
(IsAboutDialog o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructAboutDialogApplicationName 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
"application-name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data AboutDialogApplicationNamePropertyInfo
instance AttrInfo AboutDialogApplicationNamePropertyInfo where
type AttrAllowedOps AboutDialogApplicationNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AboutDialogApplicationNamePropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogApplicationNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint AboutDialogApplicationNamePropertyInfo = (~) T.Text
type AttrTransferType AboutDialogApplicationNamePropertyInfo = T.Text
type AttrGetType AboutDialogApplicationNamePropertyInfo = T.Text
type AttrLabel AboutDialogApplicationNamePropertyInfo = "application-name"
type AttrOrigin AboutDialogApplicationNamePropertyInfo = AboutDialog
attrGet = getAboutDialogApplicationName
attrSet = setAboutDialogApplicationName
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogApplicationName
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.applicationName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:applicationName"
})
#endif
getAboutDialogArtists :: (MonadIO m, IsAboutDialog o) => o -> m (Maybe [T.Text])
getAboutDialogArtists :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> m (Maybe [Text])
getAboutDialogArtists 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.getObjectPropertyStringArray o
obj String
"artists"
setAboutDialogArtists :: (MonadIO m, IsAboutDialog o) => o -> [T.Text] -> m ()
setAboutDialogArtists :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> [Text] -> m ()
setAboutDialogArtists 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.setObjectPropertyStringArray o
obj String
"artists" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
Just [Text]
val)
constructAboutDialogArtists :: (IsAboutDialog o, MIO.MonadIO m) => [T.Text] -> m (GValueConstruct o)
constructAboutDialogArtists :: forall o (m :: * -> *).
(IsAboutDialog o, MonadIO m) =>
[Text] -> m (GValueConstruct o)
constructAboutDialogArtists [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.constructObjectPropertyStringArray String
"artists" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
P.Just [Text]
val)
clearAboutDialogArtists :: (MonadIO m, IsAboutDialog o) => o -> m ()
clearAboutDialogArtists :: forall (m :: * -> *) o. (MonadIO m, IsAboutDialog o) => o -> m ()
clearAboutDialogArtists o
obj = 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
$ o -> String -> Maybe [Text] -> IO ()
forall a. GObject a => a -> String -> Maybe [Text] -> IO ()
B.Properties.setObjectPropertyStringArray o
obj String
"artists" (Maybe [Text]
forall a. Maybe a
Nothing :: Maybe [T.Text])
#if defined(ENABLE_OVERLOADING)
data AboutDialogArtistsPropertyInfo
instance AttrInfo AboutDialogArtistsPropertyInfo where
type AttrAllowedOps AboutDialogArtistsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint AboutDialogArtistsPropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogArtistsPropertyInfo = (~) [T.Text]
type AttrTransferTypeConstraint AboutDialogArtistsPropertyInfo = (~) [T.Text]
type AttrTransferType AboutDialogArtistsPropertyInfo = [T.Text]
type AttrGetType AboutDialogArtistsPropertyInfo = (Maybe [T.Text])
type AttrLabel AboutDialogArtistsPropertyInfo = "artists"
type AttrOrigin AboutDialogArtistsPropertyInfo = AboutDialog
attrGet = getAboutDialogArtists
attrSet = setAboutDialogArtists
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogArtists
attrClear = clearAboutDialogArtists
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.artists"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:artists"
})
#endif
getAboutDialogComments :: (MonadIO m, IsAboutDialog o) => o -> m T.Text
o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getAboutDialogComments" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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
"comments"
setAboutDialogComments :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m ()
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
"comments" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructAboutDialogComments :: (IsAboutDialog o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
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
"comments" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data AboutDialogCommentsPropertyInfo
instance AttrInfo AboutDialogCommentsPropertyInfo where
type AttrAllowedOps AboutDialogCommentsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AboutDialogCommentsPropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogCommentsPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint AboutDialogCommentsPropertyInfo = (~) T.Text
type AttrTransferType AboutDialogCommentsPropertyInfo = T.Text
type AttrGetType AboutDialogCommentsPropertyInfo = T.Text
type AttrLabel AboutDialogCommentsPropertyInfo = "comments"
type AttrOrigin AboutDialogCommentsPropertyInfo = AboutDialog
attrGet = getAboutDialogComments
attrSet = setAboutDialogComments
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogComments
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.comments"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:comments"
})
#endif
getAboutDialogCopyright :: (MonadIO m, IsAboutDialog o) => o -> m T.Text
getAboutDialogCopyright :: forall (m :: * -> *) o. (MonadIO m, IsAboutDialog o) => o -> m Text
getAboutDialogCopyright o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getAboutDialogCopyright" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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
"copyright"
setAboutDialogCopyright :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m ()
setAboutDialogCopyright :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> Text -> m ()
setAboutDialogCopyright 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
"copyright" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructAboutDialogCopyright :: (IsAboutDialog o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructAboutDialogCopyright :: forall o (m :: * -> *).
(IsAboutDialog o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructAboutDialogCopyright 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
"copyright" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data AboutDialogCopyrightPropertyInfo
instance AttrInfo AboutDialogCopyrightPropertyInfo where
type AttrAllowedOps AboutDialogCopyrightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AboutDialogCopyrightPropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogCopyrightPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint AboutDialogCopyrightPropertyInfo = (~) T.Text
type AttrTransferType AboutDialogCopyrightPropertyInfo = T.Text
type AttrGetType AboutDialogCopyrightPropertyInfo = T.Text
type AttrLabel AboutDialogCopyrightPropertyInfo = "copyright"
type AttrOrigin AboutDialogCopyrightPropertyInfo = AboutDialog
attrGet = getAboutDialogCopyright
attrSet = setAboutDialogCopyright
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogCopyright
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.copyright"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:copyright"
})
#endif
getAboutDialogDebugInfo :: (MonadIO m, IsAboutDialog o) => o -> m T.Text
getAboutDialogDebugInfo :: forall (m :: * -> *) o. (MonadIO m, IsAboutDialog o) => o -> m Text
getAboutDialogDebugInfo o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getAboutDialogDebugInfo" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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
"debug-info"
setAboutDialogDebugInfo :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m ()
setAboutDialogDebugInfo :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> Text -> m ()
setAboutDialogDebugInfo 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
"debug-info" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructAboutDialogDebugInfo :: (IsAboutDialog o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructAboutDialogDebugInfo :: forall o (m :: * -> *).
(IsAboutDialog o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructAboutDialogDebugInfo 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
"debug-info" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data AboutDialogDebugInfoPropertyInfo
instance AttrInfo AboutDialogDebugInfoPropertyInfo where
type AttrAllowedOps AboutDialogDebugInfoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AboutDialogDebugInfoPropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogDebugInfoPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint AboutDialogDebugInfoPropertyInfo = (~) T.Text
type AttrTransferType AboutDialogDebugInfoPropertyInfo = T.Text
type AttrGetType AboutDialogDebugInfoPropertyInfo = T.Text
type AttrLabel AboutDialogDebugInfoPropertyInfo = "debug-info"
type AttrOrigin AboutDialogDebugInfoPropertyInfo = AboutDialog
attrGet = getAboutDialogDebugInfo
attrSet = setAboutDialogDebugInfo
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogDebugInfo
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.debugInfo"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:debugInfo"
})
#endif
getAboutDialogDebugInfoFilename :: (MonadIO m, IsAboutDialog o) => o -> m T.Text
getAboutDialogDebugInfoFilename :: forall (m :: * -> *) o. (MonadIO m, IsAboutDialog o) => o -> m Text
getAboutDialogDebugInfoFilename o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getAboutDialogDebugInfoFilename" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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
"debug-info-filename"
setAboutDialogDebugInfoFilename :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m ()
setAboutDialogDebugInfoFilename :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> Text -> m ()
setAboutDialogDebugInfoFilename 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
"debug-info-filename" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructAboutDialogDebugInfoFilename :: (IsAboutDialog o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructAboutDialogDebugInfoFilename :: forall o (m :: * -> *).
(IsAboutDialog o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructAboutDialogDebugInfoFilename 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
"debug-info-filename" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data AboutDialogDebugInfoFilenamePropertyInfo
instance AttrInfo AboutDialogDebugInfoFilenamePropertyInfo where
type AttrAllowedOps AboutDialogDebugInfoFilenamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AboutDialogDebugInfoFilenamePropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogDebugInfoFilenamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint AboutDialogDebugInfoFilenamePropertyInfo = (~) T.Text
type AttrTransferType AboutDialogDebugInfoFilenamePropertyInfo = T.Text
type AttrGetType AboutDialogDebugInfoFilenamePropertyInfo = T.Text
type AttrLabel AboutDialogDebugInfoFilenamePropertyInfo = "debug-info-filename"
type AttrOrigin AboutDialogDebugInfoFilenamePropertyInfo = AboutDialog
attrGet = getAboutDialogDebugInfoFilename
attrSet = setAboutDialogDebugInfoFilename
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogDebugInfoFilename
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.debugInfoFilename"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:debugInfoFilename"
})
#endif
getAboutDialogDesigners :: (MonadIO m, IsAboutDialog o) => o -> m (Maybe [T.Text])
getAboutDialogDesigners :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> m (Maybe [Text])
getAboutDialogDesigners 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.getObjectPropertyStringArray o
obj String
"designers"
setAboutDialogDesigners :: (MonadIO m, IsAboutDialog o) => o -> [T.Text] -> m ()
setAboutDialogDesigners :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> [Text] -> m ()
setAboutDialogDesigners 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.setObjectPropertyStringArray o
obj String
"designers" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
Just [Text]
val)
constructAboutDialogDesigners :: (IsAboutDialog o, MIO.MonadIO m) => [T.Text] -> m (GValueConstruct o)
constructAboutDialogDesigners :: forall o (m :: * -> *).
(IsAboutDialog o, MonadIO m) =>
[Text] -> m (GValueConstruct o)
constructAboutDialogDesigners [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.constructObjectPropertyStringArray String
"designers" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
P.Just [Text]
val)
clearAboutDialogDesigners :: (MonadIO m, IsAboutDialog o) => o -> m ()
clearAboutDialogDesigners :: forall (m :: * -> *) o. (MonadIO m, IsAboutDialog o) => o -> m ()
clearAboutDialogDesigners o
obj = 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
$ o -> String -> Maybe [Text] -> IO ()
forall a. GObject a => a -> String -> Maybe [Text] -> IO ()
B.Properties.setObjectPropertyStringArray o
obj String
"designers" (Maybe [Text]
forall a. Maybe a
Nothing :: Maybe [T.Text])
#if defined(ENABLE_OVERLOADING)
data AboutDialogDesignersPropertyInfo
instance AttrInfo AboutDialogDesignersPropertyInfo where
type AttrAllowedOps AboutDialogDesignersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint AboutDialogDesignersPropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogDesignersPropertyInfo = (~) [T.Text]
type AttrTransferTypeConstraint AboutDialogDesignersPropertyInfo = (~) [T.Text]
type AttrTransferType AboutDialogDesignersPropertyInfo = [T.Text]
type AttrGetType AboutDialogDesignersPropertyInfo = (Maybe [T.Text])
type AttrLabel AboutDialogDesignersPropertyInfo = "designers"
type AttrOrigin AboutDialogDesignersPropertyInfo = AboutDialog
attrGet = getAboutDialogDesigners
attrSet = setAboutDialogDesigners
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogDesigners
attrClear = clearAboutDialogDesigners
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.designers"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:designers"
})
#endif
getAboutDialogDeveloperName :: (MonadIO m, IsAboutDialog o) => o -> m T.Text
getAboutDialogDeveloperName :: forall (m :: * -> *) o. (MonadIO m, IsAboutDialog o) => o -> m Text
getAboutDialogDeveloperName o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getAboutDialogDeveloperName" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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
"developer-name"
setAboutDialogDeveloperName :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m ()
setAboutDialogDeveloperName :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> Text -> m ()
setAboutDialogDeveloperName 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
"developer-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructAboutDialogDeveloperName :: (IsAboutDialog o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructAboutDialogDeveloperName :: forall o (m :: * -> *).
(IsAboutDialog o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructAboutDialogDeveloperName 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
"developer-name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data AboutDialogDeveloperNamePropertyInfo
instance AttrInfo AboutDialogDeveloperNamePropertyInfo where
type AttrAllowedOps AboutDialogDeveloperNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AboutDialogDeveloperNamePropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogDeveloperNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint AboutDialogDeveloperNamePropertyInfo = (~) T.Text
type AttrTransferType AboutDialogDeveloperNamePropertyInfo = T.Text
type AttrGetType AboutDialogDeveloperNamePropertyInfo = T.Text
type AttrLabel AboutDialogDeveloperNamePropertyInfo = "developer-name"
type AttrOrigin AboutDialogDeveloperNamePropertyInfo = AboutDialog
attrGet = getAboutDialogDeveloperName
attrSet = setAboutDialogDeveloperName
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogDeveloperName
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.developerName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:developerName"
})
#endif
getAboutDialogDevelopers :: (MonadIO m, IsAboutDialog o) => o -> m (Maybe [T.Text])
getAboutDialogDevelopers :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> m (Maybe [Text])
getAboutDialogDevelopers 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.getObjectPropertyStringArray o
obj String
"developers"
setAboutDialogDevelopers :: (MonadIO m, IsAboutDialog o) => o -> [T.Text] -> m ()
setAboutDialogDevelopers :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> [Text] -> m ()
setAboutDialogDevelopers 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.setObjectPropertyStringArray o
obj String
"developers" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
Just [Text]
val)
constructAboutDialogDevelopers :: (IsAboutDialog o, MIO.MonadIO m) => [T.Text] -> m (GValueConstruct o)
constructAboutDialogDevelopers :: forall o (m :: * -> *).
(IsAboutDialog o, MonadIO m) =>
[Text] -> m (GValueConstruct o)
constructAboutDialogDevelopers [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.constructObjectPropertyStringArray String
"developers" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
P.Just [Text]
val)
clearAboutDialogDevelopers :: (MonadIO m, IsAboutDialog o) => o -> m ()
clearAboutDialogDevelopers :: forall (m :: * -> *) o. (MonadIO m, IsAboutDialog o) => o -> m ()
clearAboutDialogDevelopers o
obj = 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
$ o -> String -> Maybe [Text] -> IO ()
forall a. GObject a => a -> String -> Maybe [Text] -> IO ()
B.Properties.setObjectPropertyStringArray o
obj String
"developers" (Maybe [Text]
forall a. Maybe a
Nothing :: Maybe [T.Text])
#if defined(ENABLE_OVERLOADING)
data AboutDialogDevelopersPropertyInfo
instance AttrInfo AboutDialogDevelopersPropertyInfo where
type AttrAllowedOps AboutDialogDevelopersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint AboutDialogDevelopersPropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogDevelopersPropertyInfo = (~) [T.Text]
type AttrTransferTypeConstraint AboutDialogDevelopersPropertyInfo = (~) [T.Text]
type AttrTransferType AboutDialogDevelopersPropertyInfo = [T.Text]
type AttrGetType AboutDialogDevelopersPropertyInfo = (Maybe [T.Text])
type AttrLabel AboutDialogDevelopersPropertyInfo = "developers"
type AttrOrigin AboutDialogDevelopersPropertyInfo = AboutDialog
attrGet = getAboutDialogDevelopers
attrSet = setAboutDialogDevelopers
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogDevelopers
attrClear = clearAboutDialogDevelopers
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.developers"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:developers"
})
#endif
getAboutDialogDocumenters :: (MonadIO m, IsAboutDialog o) => o -> m (Maybe [T.Text])
getAboutDialogDocumenters :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> m (Maybe [Text])
getAboutDialogDocumenters 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.getObjectPropertyStringArray o
obj String
"documenters"
setAboutDialogDocumenters :: (MonadIO m, IsAboutDialog o) => o -> [T.Text] -> m ()
setAboutDialogDocumenters :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> [Text] -> m ()
setAboutDialogDocumenters 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.setObjectPropertyStringArray o
obj String
"documenters" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
Just [Text]
val)
constructAboutDialogDocumenters :: (IsAboutDialog o, MIO.MonadIO m) => [T.Text] -> m (GValueConstruct o)
constructAboutDialogDocumenters :: forall o (m :: * -> *).
(IsAboutDialog o, MonadIO m) =>
[Text] -> m (GValueConstruct o)
constructAboutDialogDocumenters [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.constructObjectPropertyStringArray String
"documenters" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
P.Just [Text]
val)
clearAboutDialogDocumenters :: (MonadIO m, IsAboutDialog o) => o -> m ()
clearAboutDialogDocumenters :: forall (m :: * -> *) o. (MonadIO m, IsAboutDialog o) => o -> m ()
clearAboutDialogDocumenters o
obj = 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
$ o -> String -> Maybe [Text] -> IO ()
forall a. GObject a => a -> String -> Maybe [Text] -> IO ()
B.Properties.setObjectPropertyStringArray o
obj String
"documenters" (Maybe [Text]
forall a. Maybe a
Nothing :: Maybe [T.Text])
#if defined(ENABLE_OVERLOADING)
data AboutDialogDocumentersPropertyInfo
instance AttrInfo AboutDialogDocumentersPropertyInfo where
type AttrAllowedOps AboutDialogDocumentersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint AboutDialogDocumentersPropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogDocumentersPropertyInfo = (~) [T.Text]
type AttrTransferTypeConstraint AboutDialogDocumentersPropertyInfo = (~) [T.Text]
type AttrTransferType AboutDialogDocumentersPropertyInfo = [T.Text]
type AttrGetType AboutDialogDocumentersPropertyInfo = (Maybe [T.Text])
type AttrLabel AboutDialogDocumentersPropertyInfo = "documenters"
type AttrOrigin AboutDialogDocumentersPropertyInfo = AboutDialog
attrGet = getAboutDialogDocumenters
attrSet = setAboutDialogDocumenters
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogDocumenters
attrClear = clearAboutDialogDocumenters
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.documenters"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:documenters"
})
#endif
getAboutDialogIssueUrl :: (MonadIO m, IsAboutDialog o) => o -> m T.Text
getAboutDialogIssueUrl :: forall (m :: * -> *) o. (MonadIO m, IsAboutDialog o) => o -> m Text
getAboutDialogIssueUrl o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getAboutDialogIssueUrl" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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
"issue-url"
setAboutDialogIssueUrl :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m ()
setAboutDialogIssueUrl :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> Text -> m ()
setAboutDialogIssueUrl 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
"issue-url" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructAboutDialogIssueUrl :: (IsAboutDialog o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructAboutDialogIssueUrl :: forall o (m :: * -> *).
(IsAboutDialog o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructAboutDialogIssueUrl 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
"issue-url" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data AboutDialogIssueUrlPropertyInfo
instance AttrInfo AboutDialogIssueUrlPropertyInfo where
type AttrAllowedOps AboutDialogIssueUrlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AboutDialogIssueUrlPropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogIssueUrlPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint AboutDialogIssueUrlPropertyInfo = (~) T.Text
type AttrTransferType AboutDialogIssueUrlPropertyInfo = T.Text
type AttrGetType AboutDialogIssueUrlPropertyInfo = T.Text
type AttrLabel AboutDialogIssueUrlPropertyInfo = "issue-url"
type AttrOrigin AboutDialogIssueUrlPropertyInfo = AboutDialog
attrGet = getAboutDialogIssueUrl
attrSet = setAboutDialogIssueUrl
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogIssueUrl
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.issueUrl"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:issueUrl"
})
#endif
getAboutDialogLicense :: (MonadIO m, IsAboutDialog o) => o -> m T.Text
getAboutDialogLicense :: forall (m :: * -> *) o. (MonadIO m, IsAboutDialog o) => o -> m Text
getAboutDialogLicense o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getAboutDialogLicense" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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
"license"
setAboutDialogLicense :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m ()
setAboutDialogLicense :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> Text -> m ()
setAboutDialogLicense 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
"license" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructAboutDialogLicense :: (IsAboutDialog o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructAboutDialogLicense :: forall o (m :: * -> *).
(IsAboutDialog o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructAboutDialogLicense 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
"license" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data AboutDialogLicensePropertyInfo
instance AttrInfo AboutDialogLicensePropertyInfo where
type AttrAllowedOps AboutDialogLicensePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AboutDialogLicensePropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogLicensePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint AboutDialogLicensePropertyInfo = (~) T.Text
type AttrTransferType AboutDialogLicensePropertyInfo = T.Text
type AttrGetType AboutDialogLicensePropertyInfo = T.Text
type AttrLabel AboutDialogLicensePropertyInfo = "license"
type AttrOrigin AboutDialogLicensePropertyInfo = AboutDialog
attrGet = getAboutDialogLicense
attrSet = setAboutDialogLicense
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogLicense
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.license"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:license"
})
#endif
getAboutDialogLicenseType :: (MonadIO m, IsAboutDialog o) => o -> m Gtk.Enums.License
getAboutDialogLicenseType :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> m License
getAboutDialogLicenseType o
obj = IO License -> m License
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO License -> m License) -> IO License -> m License
forall a b. (a -> b) -> a -> b
$ o -> String -> IO License
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"license-type"
setAboutDialogLicenseType :: (MonadIO m, IsAboutDialog o) => o -> Gtk.Enums.License -> m ()
setAboutDialogLicenseType :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> License -> m ()
setAboutDialogLicenseType o
obj License
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 -> License -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"license-type" License
val
constructAboutDialogLicenseType :: (IsAboutDialog o, MIO.MonadIO m) => Gtk.Enums.License -> m (GValueConstruct o)
constructAboutDialogLicenseType :: forall o (m :: * -> *).
(IsAboutDialog o, MonadIO m) =>
License -> m (GValueConstruct o)
constructAboutDialogLicenseType License
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 -> License -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"license-type" License
val
#if defined(ENABLE_OVERLOADING)
data AboutDialogLicenseTypePropertyInfo
instance AttrInfo AboutDialogLicenseTypePropertyInfo where
type AttrAllowedOps AboutDialogLicenseTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AboutDialogLicenseTypePropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogLicenseTypePropertyInfo = (~) Gtk.Enums.License
type AttrTransferTypeConstraint AboutDialogLicenseTypePropertyInfo = (~) Gtk.Enums.License
type AttrTransferType AboutDialogLicenseTypePropertyInfo = Gtk.Enums.License
type AttrGetType AboutDialogLicenseTypePropertyInfo = Gtk.Enums.License
type AttrLabel AboutDialogLicenseTypePropertyInfo = "license-type"
type AttrOrigin AboutDialogLicenseTypePropertyInfo = AboutDialog
attrGet = getAboutDialogLicenseType
attrSet = setAboutDialogLicenseType
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogLicenseType
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.licenseType"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:licenseType"
})
#endif
getAboutDialogReleaseNotes :: (MonadIO m, IsAboutDialog o) => o -> m T.Text
getAboutDialogReleaseNotes :: forall (m :: * -> *) o. (MonadIO m, IsAboutDialog o) => o -> m Text
getAboutDialogReleaseNotes o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getAboutDialogReleaseNotes" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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
"release-notes"
setAboutDialogReleaseNotes :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m ()
setAboutDialogReleaseNotes :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> Text -> m ()
setAboutDialogReleaseNotes 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
"release-notes" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructAboutDialogReleaseNotes :: (IsAboutDialog o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructAboutDialogReleaseNotes :: forall o (m :: * -> *).
(IsAboutDialog o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructAboutDialogReleaseNotes 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
"release-notes" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data AboutDialogReleaseNotesPropertyInfo
instance AttrInfo AboutDialogReleaseNotesPropertyInfo where
type AttrAllowedOps AboutDialogReleaseNotesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AboutDialogReleaseNotesPropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogReleaseNotesPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint AboutDialogReleaseNotesPropertyInfo = (~) T.Text
type AttrTransferType AboutDialogReleaseNotesPropertyInfo = T.Text
type AttrGetType AboutDialogReleaseNotesPropertyInfo = T.Text
type AttrLabel AboutDialogReleaseNotesPropertyInfo = "release-notes"
type AttrOrigin AboutDialogReleaseNotesPropertyInfo = AboutDialog
attrGet = getAboutDialogReleaseNotes
attrSet = setAboutDialogReleaseNotes
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogReleaseNotes
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.releaseNotes"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:releaseNotes"
})
#endif
getAboutDialogReleaseNotesVersion :: (MonadIO m, IsAboutDialog o) => o -> m T.Text
getAboutDialogReleaseNotesVersion :: forall (m :: * -> *) o. (MonadIO m, IsAboutDialog o) => o -> m Text
getAboutDialogReleaseNotesVersion o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getAboutDialogReleaseNotesVersion" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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
"release-notes-version"
setAboutDialogReleaseNotesVersion :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m ()
setAboutDialogReleaseNotesVersion :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> Text -> m ()
setAboutDialogReleaseNotesVersion 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
"release-notes-version" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructAboutDialogReleaseNotesVersion :: (IsAboutDialog o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructAboutDialogReleaseNotesVersion :: forall o (m :: * -> *).
(IsAboutDialog o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructAboutDialogReleaseNotesVersion 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
"release-notes-version" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data AboutDialogReleaseNotesVersionPropertyInfo
instance AttrInfo AboutDialogReleaseNotesVersionPropertyInfo where
type AttrAllowedOps AboutDialogReleaseNotesVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AboutDialogReleaseNotesVersionPropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogReleaseNotesVersionPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint AboutDialogReleaseNotesVersionPropertyInfo = (~) T.Text
type AttrTransferType AboutDialogReleaseNotesVersionPropertyInfo = T.Text
type AttrGetType AboutDialogReleaseNotesVersionPropertyInfo = T.Text
type AttrLabel AboutDialogReleaseNotesVersionPropertyInfo = "release-notes-version"
type AttrOrigin AboutDialogReleaseNotesVersionPropertyInfo = AboutDialog
attrGet = getAboutDialogReleaseNotesVersion
attrSet = setAboutDialogReleaseNotesVersion
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogReleaseNotesVersion
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.releaseNotesVersion"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:releaseNotesVersion"
})
#endif
getAboutDialogSupportUrl :: (MonadIO m, IsAboutDialog o) => o -> m T.Text
getAboutDialogSupportUrl :: forall (m :: * -> *) o. (MonadIO m, IsAboutDialog o) => o -> m Text
getAboutDialogSupportUrl o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getAboutDialogSupportUrl" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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
"support-url"
setAboutDialogSupportUrl :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m ()
setAboutDialogSupportUrl :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> Text -> m ()
setAboutDialogSupportUrl 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
"support-url" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructAboutDialogSupportUrl :: (IsAboutDialog o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructAboutDialogSupportUrl :: forall o (m :: * -> *).
(IsAboutDialog o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructAboutDialogSupportUrl 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
"support-url" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data AboutDialogSupportUrlPropertyInfo
instance AttrInfo AboutDialogSupportUrlPropertyInfo where
type AttrAllowedOps AboutDialogSupportUrlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AboutDialogSupportUrlPropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogSupportUrlPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint AboutDialogSupportUrlPropertyInfo = (~) T.Text
type AttrTransferType AboutDialogSupportUrlPropertyInfo = T.Text
type AttrGetType AboutDialogSupportUrlPropertyInfo = T.Text
type AttrLabel AboutDialogSupportUrlPropertyInfo = "support-url"
type AttrOrigin AboutDialogSupportUrlPropertyInfo = AboutDialog
attrGet = getAboutDialogSupportUrl
attrSet = setAboutDialogSupportUrl
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogSupportUrl
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.supportUrl"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:supportUrl"
})
#endif
getAboutDialogTranslatorCredits :: (MonadIO m, IsAboutDialog o) => o -> m T.Text
getAboutDialogTranslatorCredits :: forall (m :: * -> *) o. (MonadIO m, IsAboutDialog o) => o -> m Text
getAboutDialogTranslatorCredits o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getAboutDialogTranslatorCredits" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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
"translator-credits"
setAboutDialogTranslatorCredits :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m ()
setAboutDialogTranslatorCredits :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> Text -> m ()
setAboutDialogTranslatorCredits 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
"translator-credits" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructAboutDialogTranslatorCredits :: (IsAboutDialog o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructAboutDialogTranslatorCredits :: forall o (m :: * -> *).
(IsAboutDialog o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructAboutDialogTranslatorCredits 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
"translator-credits" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data AboutDialogTranslatorCreditsPropertyInfo
instance AttrInfo AboutDialogTranslatorCreditsPropertyInfo where
type AttrAllowedOps AboutDialogTranslatorCreditsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AboutDialogTranslatorCreditsPropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogTranslatorCreditsPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint AboutDialogTranslatorCreditsPropertyInfo = (~) T.Text
type AttrTransferType AboutDialogTranslatorCreditsPropertyInfo = T.Text
type AttrGetType AboutDialogTranslatorCreditsPropertyInfo = T.Text
type AttrLabel AboutDialogTranslatorCreditsPropertyInfo = "translator-credits"
type AttrOrigin AboutDialogTranslatorCreditsPropertyInfo = AboutDialog
attrGet = getAboutDialogTranslatorCredits
attrSet = setAboutDialogTranslatorCredits
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogTranslatorCredits
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.translatorCredits"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:translatorCredits"
})
#endif
getAboutDialogVersion :: (MonadIO m, IsAboutDialog o) => o -> m T.Text
getAboutDialogVersion :: forall (m :: * -> *) o. (MonadIO m, IsAboutDialog o) => o -> m Text
getAboutDialogVersion o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getAboutDialogVersion" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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
"version"
setAboutDialogVersion :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m ()
setAboutDialogVersion :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> Text -> m ()
setAboutDialogVersion 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
"version" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructAboutDialogVersion :: (IsAboutDialog o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructAboutDialogVersion :: forall o (m :: * -> *).
(IsAboutDialog o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructAboutDialogVersion 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
"version" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data AboutDialogVersionPropertyInfo
instance AttrInfo AboutDialogVersionPropertyInfo where
type AttrAllowedOps AboutDialogVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AboutDialogVersionPropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogVersionPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint AboutDialogVersionPropertyInfo = (~) T.Text
type AttrTransferType AboutDialogVersionPropertyInfo = T.Text
type AttrGetType AboutDialogVersionPropertyInfo = T.Text
type AttrLabel AboutDialogVersionPropertyInfo = "version"
type AttrOrigin AboutDialogVersionPropertyInfo = AboutDialog
attrGet = getAboutDialogVersion
attrSet = setAboutDialogVersion
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogVersion
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.version"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:version"
})
#endif
getAboutDialogWebsite :: (MonadIO m, IsAboutDialog o) => o -> m T.Text
getAboutDialogWebsite :: forall (m :: * -> *) o. (MonadIO m, IsAboutDialog o) => o -> m Text
getAboutDialogWebsite o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getAboutDialogWebsite" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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
"website"
setAboutDialogWebsite :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m ()
setAboutDialogWebsite :: forall (m :: * -> *) o.
(MonadIO m, IsAboutDialog o) =>
o -> Text -> m ()
setAboutDialogWebsite 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
"website" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructAboutDialogWebsite :: (IsAboutDialog o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructAboutDialogWebsite :: forall o (m :: * -> *).
(IsAboutDialog o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructAboutDialogWebsite 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
"website" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data AboutDialogWebsitePropertyInfo
instance AttrInfo AboutDialogWebsitePropertyInfo where
type AttrAllowedOps AboutDialogWebsitePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AboutDialogWebsitePropertyInfo = IsAboutDialog
type AttrSetTypeConstraint AboutDialogWebsitePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint AboutDialogWebsitePropertyInfo = (~) T.Text
type AttrTransferType AboutDialogWebsitePropertyInfo = T.Text
type AttrGetType AboutDialogWebsitePropertyInfo = T.Text
type AttrLabel AboutDialogWebsitePropertyInfo = "website"
type AttrOrigin AboutDialogWebsitePropertyInfo = AboutDialog
attrGet = getAboutDialogWebsite
attrSet = setAboutDialogWebsite
attrTransfer _ v = do
return v
attrConstruct = constructAboutDialogWebsite
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.website"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#g:attr:website"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList AboutDialog
type instance O.AttributeList AboutDialog = AboutDialogAttributeList
type AboutDialogAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("applicationIcon", AboutDialogApplicationIconPropertyInfo), '("applicationName", AboutDialogApplicationNamePropertyInfo), '("artists", AboutDialogArtistsPropertyInfo), '("canClose", Adw.Dialog.DialogCanClosePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("child", Adw.Dialog.DialogChildPropertyInfo), '("comments", AboutDialogCommentsPropertyInfo), '("contentHeight", Adw.Dialog.DialogContentHeightPropertyInfo), '("contentWidth", Adw.Dialog.DialogContentWidthPropertyInfo), '("copyright", AboutDialogCopyrightPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("currentBreakpoint", Adw.Dialog.DialogCurrentBreakpointPropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("debugInfo", AboutDialogDebugInfoPropertyInfo), '("debugInfoFilename", AboutDialogDebugInfoFilenamePropertyInfo), '("defaultWidget", Adw.Dialog.DialogDefaultWidgetPropertyInfo), '("designers", AboutDialogDesignersPropertyInfo), '("developerName", AboutDialogDeveloperNamePropertyInfo), '("developers", AboutDialogDevelopersPropertyInfo), '("documenters", AboutDialogDocumentersPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusWidget", Adw.Dialog.DialogFocusWidgetPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("followsContentSize", Adw.Dialog.DialogFollowsContentSizePropertyInfo), '("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), '("issueUrl", AboutDialogIssueUrlPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("license", AboutDialogLicensePropertyInfo), '("licenseType", AboutDialogLicenseTypePropertyInfo), '("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), '("presentationMode", Adw.Dialog.DialogPresentationModePropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("releaseNotes", AboutDialogReleaseNotesPropertyInfo), '("releaseNotesVersion", AboutDialogReleaseNotesVersionPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("supportUrl", AboutDialogSupportUrlPropertyInfo), '("title", Adw.Dialog.DialogTitlePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("translatorCredits", AboutDialogTranslatorCreditsPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("version", AboutDialogVersionPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("website", AboutDialogWebsitePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
aboutDialogApplicationIcon :: AttrLabelProxy "applicationIcon"
aboutDialogApplicationIcon = AttrLabelProxy
aboutDialogApplicationName :: AttrLabelProxy "applicationName"
aboutDialogApplicationName = AttrLabelProxy
aboutDialogArtists :: AttrLabelProxy "artists"
aboutDialogArtists = AttrLabelProxy
aboutDialogComments :: AttrLabelProxy "comments"
aboutDialogComments = AttrLabelProxy
aboutDialogCopyright :: AttrLabelProxy "copyright"
aboutDialogCopyright = AttrLabelProxy
aboutDialogDebugInfo :: AttrLabelProxy "debugInfo"
aboutDialogDebugInfo = AttrLabelProxy
aboutDialogDebugInfoFilename :: AttrLabelProxy "debugInfoFilename"
aboutDialogDebugInfoFilename = AttrLabelProxy
aboutDialogDesigners :: AttrLabelProxy "designers"
aboutDialogDesigners = AttrLabelProxy
aboutDialogDeveloperName :: AttrLabelProxy "developerName"
aboutDialogDeveloperName = AttrLabelProxy
aboutDialogDevelopers :: AttrLabelProxy "developers"
aboutDialogDevelopers = AttrLabelProxy
aboutDialogDocumenters :: AttrLabelProxy "documenters"
aboutDialogDocumenters = AttrLabelProxy
aboutDialogIssueUrl :: AttrLabelProxy "issueUrl"
aboutDialogIssueUrl = AttrLabelProxy
aboutDialogLicense :: AttrLabelProxy "license"
aboutDialogLicense = AttrLabelProxy
aboutDialogLicenseType :: AttrLabelProxy "licenseType"
aboutDialogLicenseType = AttrLabelProxy
aboutDialogReleaseNotes :: AttrLabelProxy "releaseNotes"
aboutDialogReleaseNotes = AttrLabelProxy
aboutDialogReleaseNotesVersion :: AttrLabelProxy "releaseNotesVersion"
aboutDialogReleaseNotesVersion = AttrLabelProxy
aboutDialogSupportUrl :: AttrLabelProxy "supportUrl"
aboutDialogSupportUrl = AttrLabelProxy
aboutDialogTranslatorCredits :: AttrLabelProxy "translatorCredits"
aboutDialogTranslatorCredits = AttrLabelProxy
aboutDialogVersion :: AttrLabelProxy "version"
aboutDialogVersion = AttrLabelProxy
aboutDialogWebsite :: AttrLabelProxy "website"
aboutDialogWebsite = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList AboutDialog = AboutDialogSignalList
type AboutDialogSignalList = ('[ '("activateLink", AboutDialogActivateLinkSignalInfo), '("closeAttempt", Adw.Dialog.DialogCloseAttemptSignalInfo), '("closed", Adw.Dialog.DialogClosedSignalInfo), '("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, DK.Type)])
#endif
foreign import ccall "adw_about_dialog_new" adw_about_dialog_new ::
IO (Ptr AboutDialog)
aboutDialogNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m AboutDialog
aboutDialogNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m AboutDialog
aboutDialogNew = IO AboutDialog -> m AboutDialog
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AboutDialog -> m AboutDialog)
-> IO AboutDialog -> m AboutDialog
forall a b. (a -> b) -> a -> b
$ do
Ptr AboutDialog
result <- IO (Ptr AboutDialog)
adw_about_dialog_new
Text -> Ptr AboutDialog -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"aboutDialogNew" Ptr AboutDialog
result
AboutDialog
result' <- ((ManagedPtr AboutDialog -> AboutDialog)
-> Ptr AboutDialog -> IO AboutDialog
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr AboutDialog -> AboutDialog
AboutDialog) Ptr AboutDialog
result
AboutDialog -> IO AboutDialog
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return AboutDialog
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "adw_about_dialog_new_from_appdata" adw_about_dialog_new_from_appdata ::
CString ->
CString ->
IO (Ptr AboutDialog)
aboutDialogNewFromAppdata ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> Maybe (T.Text)
-> m AboutDialog
aboutDialogNewFromAppdata :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> Maybe Text -> m AboutDialog
aboutDialogNewFromAppdata Text
resourcePath Maybe Text
releaseNotesVersion = IO AboutDialog -> m AboutDialog
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AboutDialog -> m AboutDialog)
-> IO AboutDialog -> m AboutDialog
forall a b. (a -> b) -> a -> b
$ do
CString
resourcePath' <- Text -> IO CString
textToCString Text
resourcePath
CString
maybeReleaseNotesVersion <- case Maybe Text
releaseNotesVersion of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jReleaseNotesVersion -> do
CString
jReleaseNotesVersion' <- Text -> IO CString
textToCString Text
jReleaseNotesVersion
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jReleaseNotesVersion'
Ptr AboutDialog
result <- CString -> CString -> IO (Ptr AboutDialog)
adw_about_dialog_new_from_appdata CString
resourcePath' CString
maybeReleaseNotesVersion
Text -> Ptr AboutDialog -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"aboutDialogNewFromAppdata" Ptr AboutDialog
result
AboutDialog
result' <- ((ManagedPtr AboutDialog -> AboutDialog)
-> Ptr AboutDialog -> IO AboutDialog
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr AboutDialog -> AboutDialog
AboutDialog) Ptr AboutDialog
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
resourcePath'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeReleaseNotesVersion
AboutDialog -> IO AboutDialog
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return AboutDialog
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "adw_about_dialog_add_acknowledgement_section" adw_about_dialog_add_acknowledgement_section ::
Ptr AboutDialog ->
CString ->
Ptr CString ->
IO ()
aboutDialogAddAcknowledgementSection ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> Maybe (T.Text)
-> [T.Text]
-> m ()
aboutDialogAddAcknowledgementSection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Maybe Text -> [Text] -> m ()
aboutDialogAddAcknowledgementSection a
self Maybe Text
name [Text]
people = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeName <- case Maybe Text
name of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jName -> do
CString
jName' <- Text -> IO CString
textToCString Text
jName
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jName'
Ptr CString
people' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
people
Ptr AboutDialog -> CString -> Ptr CString -> IO ()
adw_about_dialog_add_acknowledgement_section Ptr AboutDialog
self' CString
maybeName Ptr CString
people'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeName
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
people'
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
people'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogAddAcknowledgementSectionMethodInfo
instance (signature ~ (Maybe (T.Text) -> [T.Text] -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogAddAcknowledgementSectionMethodInfo a signature where
overloadedMethod = aboutDialogAddAcknowledgementSection
instance O.OverloadedMethodInfo AboutDialogAddAcknowledgementSectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogAddAcknowledgementSection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogAddAcknowledgementSection"
})
#endif
foreign import ccall "adw_about_dialog_add_credit_section" adw_about_dialog_add_credit_section ::
Ptr AboutDialog ->
CString ->
Ptr CString ->
IO ()
aboutDialogAddCreditSection ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> Maybe (T.Text)
-> [T.Text]
-> m ()
aboutDialogAddCreditSection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Maybe Text -> [Text] -> m ()
aboutDialogAddCreditSection a
self Maybe Text
name [Text]
people = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeName <- case Maybe Text
name of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jName -> do
CString
jName' <- Text -> IO CString
textToCString Text
jName
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jName'
Ptr CString
people' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
people
Ptr AboutDialog -> CString -> Ptr CString -> IO ()
adw_about_dialog_add_credit_section Ptr AboutDialog
self' CString
maybeName Ptr CString
people'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeName
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
people'
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
people'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogAddCreditSectionMethodInfo
instance (signature ~ (Maybe (T.Text) -> [T.Text] -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogAddCreditSectionMethodInfo a signature where
overloadedMethod = aboutDialogAddCreditSection
instance O.OverloadedMethodInfo AboutDialogAddCreditSectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogAddCreditSection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogAddCreditSection"
})
#endif
foreign import ccall "adw_about_dialog_add_legal_section" adw_about_dialog_add_legal_section ::
Ptr AboutDialog ->
CString ->
CString ->
CUInt ->
CString ->
IO ()
aboutDialogAddLegalSection ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> T.Text
-> Maybe (T.Text)
-> Gtk.Enums.License
-> Maybe (T.Text)
-> m ()
aboutDialogAddLegalSection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Text -> Maybe Text -> License -> Maybe Text -> m ()
aboutDialogAddLegalSection a
self Text
title Maybe Text
copyright License
licenseType Maybe Text
license = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
title' <- Text -> IO CString
textToCString Text
title
CString
maybeCopyright <- case Maybe Text
copyright of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jCopyright -> do
CString
jCopyright' <- Text -> IO CString
textToCString Text
jCopyright
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jCopyright'
let licenseType' :: CUInt
licenseType' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (License -> Int) -> License -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. License -> Int
forall a. Enum a => a -> Int
fromEnum) License
licenseType
CString
maybeLicense <- case Maybe Text
license of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jLicense -> do
CString
jLicense' <- Text -> IO CString
textToCString Text
jLicense
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jLicense'
Ptr AboutDialog -> CString -> CString -> CUInt -> CString -> IO ()
adw_about_dialog_add_legal_section Ptr AboutDialog
self' CString
title' CString
maybeCopyright CUInt
licenseType' CString
maybeLicense
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
title'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeCopyright
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeLicense
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogAddLegalSectionMethodInfo
instance (signature ~ (T.Text -> Maybe (T.Text) -> Gtk.Enums.License -> Maybe (T.Text) -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogAddLegalSectionMethodInfo a signature where
overloadedMethod = aboutDialogAddLegalSection
instance O.OverloadedMethodInfo AboutDialogAddLegalSectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogAddLegalSection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogAddLegalSection"
})
#endif
foreign import ccall "adw_about_dialog_add_link" adw_about_dialog_add_link ::
Ptr AboutDialog ->
CString ->
CString ->
IO ()
aboutDialogAddLink ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> T.Text
-> T.Text
-> m ()
aboutDialogAddLink :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Text -> Text -> m ()
aboutDialogAddLink a
self Text
title Text
url = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
title' <- Text -> IO CString
textToCString Text
title
CString
url' <- Text -> IO CString
textToCString Text
url
Ptr AboutDialog -> CString -> CString -> IO ()
adw_about_dialog_add_link Ptr AboutDialog
self' CString
title' CString
url'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
title'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
url'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogAddLinkMethodInfo
instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogAddLinkMethodInfo a signature where
overloadedMethod = aboutDialogAddLink
instance O.OverloadedMethodInfo AboutDialogAddLinkMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogAddLink",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogAddLink"
})
#endif
foreign import ccall "adw_about_dialog_get_application_icon" adw_about_dialog_get_application_icon ::
Ptr AboutDialog ->
IO CString
aboutDialogGetApplicationIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m T.Text
aboutDialogGetApplicationIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> m Text
aboutDialogGetApplicationIcon a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr AboutDialog -> IO CString
adw_about_dialog_get_application_icon Ptr AboutDialog
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"aboutDialogGetApplicationIcon" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AboutDialogGetApplicationIconMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetApplicationIconMethodInfo a signature where
overloadedMethod = aboutDialogGetApplicationIcon
instance O.OverloadedMethodInfo AboutDialogGetApplicationIconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetApplicationIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetApplicationIcon"
})
#endif
foreign import ccall "adw_about_dialog_get_application_name" adw_about_dialog_get_application_name ::
Ptr AboutDialog ->
IO CString
aboutDialogGetApplicationName ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m T.Text
aboutDialogGetApplicationName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> m Text
aboutDialogGetApplicationName a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr AboutDialog -> IO CString
adw_about_dialog_get_application_name Ptr AboutDialog
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"aboutDialogGetApplicationName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AboutDialogGetApplicationNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetApplicationNameMethodInfo a signature where
overloadedMethod = aboutDialogGetApplicationName
instance O.OverloadedMethodInfo AboutDialogGetApplicationNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetApplicationName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetApplicationName"
})
#endif
foreign import ccall "adw_about_dialog_get_artists" adw_about_dialog_get_artists ::
Ptr AboutDialog ->
IO (Ptr CString)
aboutDialogGetArtists ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m (Maybe [T.Text])
aboutDialogGetArtists :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> m (Maybe [Text])
aboutDialogGetArtists 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr CString
result <- Ptr AboutDialog -> IO (Ptr CString)
adw_about_dialog_get_artists Ptr AboutDialog
self'
Maybe [Text]
maybeResult <- Ptr CString -> (Ptr CString -> IO [Text]) -> IO (Maybe [Text])
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CString
result ((Ptr CString -> IO [Text]) -> IO (Maybe [Text]))
-> (Ptr CString -> IO [Text]) -> IO (Maybe [Text])
forall a b. (a -> b) -> a -> b
$ \Ptr CString
result' -> do
[Text]
result'' <- HasCallStack => Ptr CString -> IO [Text]
Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr 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 AboutDialogGetArtistsMethodInfo
instance (signature ~ (m (Maybe [T.Text])), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetArtistsMethodInfo a signature where
overloadedMethod = aboutDialogGetArtists
instance O.OverloadedMethodInfo AboutDialogGetArtistsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetArtists",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetArtists"
})
#endif
foreign import ccall "adw_about_dialog_get_comments" ::
Ptr AboutDialog ->
IO CString
aboutDialogGetComments ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m T.Text
a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr AboutDialog -> IO CString
adw_about_dialog_get_comments Ptr AboutDialog
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"aboutDialogGetComments" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AboutDialogGetCommentsMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetCommentsMethodInfo a signature where
overloadedMethod = aboutDialogGetComments
instance O.OverloadedMethodInfo AboutDialogGetCommentsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetComments",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetComments"
})
#endif
foreign import ccall "adw_about_dialog_get_copyright" adw_about_dialog_get_copyright ::
Ptr AboutDialog ->
IO CString
aboutDialogGetCopyright ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m T.Text
aboutDialogGetCopyright :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> m Text
aboutDialogGetCopyright a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr AboutDialog -> IO CString
adw_about_dialog_get_copyright Ptr AboutDialog
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"aboutDialogGetCopyright" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AboutDialogGetCopyrightMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetCopyrightMethodInfo a signature where
overloadedMethod = aboutDialogGetCopyright
instance O.OverloadedMethodInfo AboutDialogGetCopyrightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetCopyright",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetCopyright"
})
#endif
foreign import ccall "adw_about_dialog_get_debug_info" adw_about_dialog_get_debug_info ::
Ptr AboutDialog ->
IO CString
aboutDialogGetDebugInfo ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m T.Text
aboutDialogGetDebugInfo :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> m Text
aboutDialogGetDebugInfo a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr AboutDialog -> IO CString
adw_about_dialog_get_debug_info Ptr AboutDialog
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"aboutDialogGetDebugInfo" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AboutDialogGetDebugInfoMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetDebugInfoMethodInfo a signature where
overloadedMethod = aboutDialogGetDebugInfo
instance O.OverloadedMethodInfo AboutDialogGetDebugInfoMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetDebugInfo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetDebugInfo"
})
#endif
foreign import ccall "adw_about_dialog_get_debug_info_filename" adw_about_dialog_get_debug_info_filename ::
Ptr AboutDialog ->
IO CString
aboutDialogGetDebugInfoFilename ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m T.Text
aboutDialogGetDebugInfoFilename :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> m Text
aboutDialogGetDebugInfoFilename a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr AboutDialog -> IO CString
adw_about_dialog_get_debug_info_filename Ptr AboutDialog
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"aboutDialogGetDebugInfoFilename" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AboutDialogGetDebugInfoFilenameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetDebugInfoFilenameMethodInfo a signature where
overloadedMethod = aboutDialogGetDebugInfoFilename
instance O.OverloadedMethodInfo AboutDialogGetDebugInfoFilenameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetDebugInfoFilename",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetDebugInfoFilename"
})
#endif
foreign import ccall "adw_about_dialog_get_designers" adw_about_dialog_get_designers ::
Ptr AboutDialog ->
IO (Ptr CString)
aboutDialogGetDesigners ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m (Maybe [T.Text])
aboutDialogGetDesigners :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> m (Maybe [Text])
aboutDialogGetDesigners 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr CString
result <- Ptr AboutDialog -> IO (Ptr CString)
adw_about_dialog_get_designers Ptr AboutDialog
self'
Maybe [Text]
maybeResult <- Ptr CString -> (Ptr CString -> IO [Text]) -> IO (Maybe [Text])
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CString
result ((Ptr CString -> IO [Text]) -> IO (Maybe [Text]))
-> (Ptr CString -> IO [Text]) -> IO (Maybe [Text])
forall a b. (a -> b) -> a -> b
$ \Ptr CString
result' -> do
[Text]
result'' <- HasCallStack => Ptr CString -> IO [Text]
Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr 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 AboutDialogGetDesignersMethodInfo
instance (signature ~ (m (Maybe [T.Text])), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetDesignersMethodInfo a signature where
overloadedMethod = aboutDialogGetDesigners
instance O.OverloadedMethodInfo AboutDialogGetDesignersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetDesigners",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetDesigners"
})
#endif
foreign import ccall "adw_about_dialog_get_developer_name" adw_about_dialog_get_developer_name ::
Ptr AboutDialog ->
IO CString
aboutDialogGetDeveloperName ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m T.Text
aboutDialogGetDeveloperName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> m Text
aboutDialogGetDeveloperName a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr AboutDialog -> IO CString
adw_about_dialog_get_developer_name Ptr AboutDialog
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"aboutDialogGetDeveloperName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AboutDialogGetDeveloperNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetDeveloperNameMethodInfo a signature where
overloadedMethod = aboutDialogGetDeveloperName
instance O.OverloadedMethodInfo AboutDialogGetDeveloperNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetDeveloperName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetDeveloperName"
})
#endif
foreign import ccall "adw_about_dialog_get_developers" adw_about_dialog_get_developers ::
Ptr AboutDialog ->
IO (Ptr CString)
aboutDialogGetDevelopers ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m (Maybe [T.Text])
aboutDialogGetDevelopers :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> m (Maybe [Text])
aboutDialogGetDevelopers 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr CString
result <- Ptr AboutDialog -> IO (Ptr CString)
adw_about_dialog_get_developers Ptr AboutDialog
self'
Maybe [Text]
maybeResult <- Ptr CString -> (Ptr CString -> IO [Text]) -> IO (Maybe [Text])
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CString
result ((Ptr CString -> IO [Text]) -> IO (Maybe [Text]))
-> (Ptr CString -> IO [Text]) -> IO (Maybe [Text])
forall a b. (a -> b) -> a -> b
$ \Ptr CString
result' -> do
[Text]
result'' <- HasCallStack => Ptr CString -> IO [Text]
Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr 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 AboutDialogGetDevelopersMethodInfo
instance (signature ~ (m (Maybe [T.Text])), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetDevelopersMethodInfo a signature where
overloadedMethod = aboutDialogGetDevelopers
instance O.OverloadedMethodInfo AboutDialogGetDevelopersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetDevelopers",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetDevelopers"
})
#endif
foreign import ccall "adw_about_dialog_get_documenters" adw_about_dialog_get_documenters ::
Ptr AboutDialog ->
IO (Ptr CString)
aboutDialogGetDocumenters ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m (Maybe [T.Text])
aboutDialogGetDocumenters :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> m (Maybe [Text])
aboutDialogGetDocumenters 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr CString
result <- Ptr AboutDialog -> IO (Ptr CString)
adw_about_dialog_get_documenters Ptr AboutDialog
self'
Maybe [Text]
maybeResult <- Ptr CString -> (Ptr CString -> IO [Text]) -> IO (Maybe [Text])
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CString
result ((Ptr CString -> IO [Text]) -> IO (Maybe [Text]))
-> (Ptr CString -> IO [Text]) -> IO (Maybe [Text])
forall a b. (a -> b) -> a -> b
$ \Ptr CString
result' -> do
[Text]
result'' <- HasCallStack => Ptr CString -> IO [Text]
Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr 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 AboutDialogGetDocumentersMethodInfo
instance (signature ~ (m (Maybe [T.Text])), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetDocumentersMethodInfo a signature where
overloadedMethod = aboutDialogGetDocumenters
instance O.OverloadedMethodInfo AboutDialogGetDocumentersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetDocumenters",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetDocumenters"
})
#endif
foreign import ccall "adw_about_dialog_get_issue_url" adw_about_dialog_get_issue_url ::
Ptr AboutDialog ->
IO CString
aboutDialogGetIssueUrl ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m T.Text
aboutDialogGetIssueUrl :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> m Text
aboutDialogGetIssueUrl a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr AboutDialog -> IO CString
adw_about_dialog_get_issue_url Ptr AboutDialog
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"aboutDialogGetIssueUrl" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AboutDialogGetIssueUrlMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetIssueUrlMethodInfo a signature where
overloadedMethod = aboutDialogGetIssueUrl
instance O.OverloadedMethodInfo AboutDialogGetIssueUrlMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetIssueUrl",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetIssueUrl"
})
#endif
foreign import ccall "adw_about_dialog_get_license" adw_about_dialog_get_license ::
Ptr AboutDialog ->
IO CString
aboutDialogGetLicense ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m T.Text
aboutDialogGetLicense :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> m Text
aboutDialogGetLicense a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr AboutDialog -> IO CString
adw_about_dialog_get_license Ptr AboutDialog
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"aboutDialogGetLicense" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AboutDialogGetLicenseMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetLicenseMethodInfo a signature where
overloadedMethod = aboutDialogGetLicense
instance O.OverloadedMethodInfo AboutDialogGetLicenseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetLicense",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetLicense"
})
#endif
foreign import ccall "adw_about_dialog_get_license_type" adw_about_dialog_get_license_type ::
Ptr AboutDialog ->
IO CUInt
aboutDialogGetLicenseType ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m Gtk.Enums.License
aboutDialogGetLicenseType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> m License
aboutDialogGetLicenseType a
self = IO License -> m License
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO License -> m License) -> IO License -> m License
forall a b. (a -> b) -> a -> b
$ do
Ptr AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr AboutDialog -> IO CUInt
adw_about_dialog_get_license_type Ptr AboutDialog
self'
let result' :: License
result' = (Int -> License
forall a. Enum a => Int -> a
toEnum (Int -> License) -> (CUInt -> Int) -> CUInt -> License
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
License -> IO License
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return License
result'
#if defined(ENABLE_OVERLOADING)
data AboutDialogGetLicenseTypeMethodInfo
instance (signature ~ (m Gtk.Enums.License), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetLicenseTypeMethodInfo a signature where
overloadedMethod = aboutDialogGetLicenseType
instance O.OverloadedMethodInfo AboutDialogGetLicenseTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetLicenseType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetLicenseType"
})
#endif
foreign import ccall "adw_about_dialog_get_release_notes" adw_about_dialog_get_release_notes ::
Ptr AboutDialog ->
IO CString
aboutDialogGetReleaseNotes ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m T.Text
aboutDialogGetReleaseNotes :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> m Text
aboutDialogGetReleaseNotes a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr AboutDialog -> IO CString
adw_about_dialog_get_release_notes Ptr AboutDialog
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"aboutDialogGetReleaseNotes" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AboutDialogGetReleaseNotesMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetReleaseNotesMethodInfo a signature where
overloadedMethod = aboutDialogGetReleaseNotes
instance O.OverloadedMethodInfo AboutDialogGetReleaseNotesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetReleaseNotes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetReleaseNotes"
})
#endif
foreign import ccall "adw_about_dialog_get_release_notes_version" adw_about_dialog_get_release_notes_version ::
Ptr AboutDialog ->
IO CString
aboutDialogGetReleaseNotesVersion ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m T.Text
aboutDialogGetReleaseNotesVersion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> m Text
aboutDialogGetReleaseNotesVersion a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr AboutDialog -> IO CString
adw_about_dialog_get_release_notes_version Ptr AboutDialog
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"aboutDialogGetReleaseNotesVersion" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AboutDialogGetReleaseNotesVersionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetReleaseNotesVersionMethodInfo a signature where
overloadedMethod = aboutDialogGetReleaseNotesVersion
instance O.OverloadedMethodInfo AboutDialogGetReleaseNotesVersionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetReleaseNotesVersion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetReleaseNotesVersion"
})
#endif
foreign import ccall "adw_about_dialog_get_support_url" adw_about_dialog_get_support_url ::
Ptr AboutDialog ->
IO CString
aboutDialogGetSupportUrl ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m T.Text
aboutDialogGetSupportUrl :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> m Text
aboutDialogGetSupportUrl a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr AboutDialog -> IO CString
adw_about_dialog_get_support_url Ptr AboutDialog
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"aboutDialogGetSupportUrl" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AboutDialogGetSupportUrlMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetSupportUrlMethodInfo a signature where
overloadedMethod = aboutDialogGetSupportUrl
instance O.OverloadedMethodInfo AboutDialogGetSupportUrlMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetSupportUrl",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetSupportUrl"
})
#endif
foreign import ccall "adw_about_dialog_get_translator_credits" adw_about_dialog_get_translator_credits ::
Ptr AboutDialog ->
IO CString
aboutDialogGetTranslatorCredits ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m T.Text
aboutDialogGetTranslatorCredits :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> m Text
aboutDialogGetTranslatorCredits a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr AboutDialog -> IO CString
adw_about_dialog_get_translator_credits Ptr AboutDialog
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"aboutDialogGetTranslatorCredits" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AboutDialogGetTranslatorCreditsMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetTranslatorCreditsMethodInfo a signature where
overloadedMethod = aboutDialogGetTranslatorCredits
instance O.OverloadedMethodInfo AboutDialogGetTranslatorCreditsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetTranslatorCredits",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetTranslatorCredits"
})
#endif
foreign import ccall "adw_about_dialog_get_version" adw_about_dialog_get_version ::
Ptr AboutDialog ->
IO CString
aboutDialogGetVersion ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m T.Text
aboutDialogGetVersion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> m Text
aboutDialogGetVersion a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr AboutDialog -> IO CString
adw_about_dialog_get_version Ptr AboutDialog
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"aboutDialogGetVersion" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AboutDialogGetVersionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetVersionMethodInfo a signature where
overloadedMethod = aboutDialogGetVersion
instance O.OverloadedMethodInfo AboutDialogGetVersionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetVersion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetVersion"
})
#endif
foreign import ccall "adw_about_dialog_get_website" adw_about_dialog_get_website ::
Ptr AboutDialog ->
IO CString
aboutDialogGetWebsite ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> m T.Text
aboutDialogGetWebsite :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> m Text
aboutDialogGetWebsite a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr AboutDialog -> IO CString
adw_about_dialog_get_website Ptr AboutDialog
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"aboutDialogGetWebsite" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AboutDialogGetWebsiteMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogGetWebsiteMethodInfo a signature where
overloadedMethod = aboutDialogGetWebsite
instance O.OverloadedMethodInfo AboutDialogGetWebsiteMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogGetWebsite",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogGetWebsite"
})
#endif
foreign import ccall "adw_about_dialog_set_application_icon" adw_about_dialog_set_application_icon ::
Ptr AboutDialog ->
CString ->
IO ()
aboutDialogSetApplicationIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> T.Text
-> m ()
aboutDialogSetApplicationIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Text -> m ()
aboutDialogSetApplicationIcon a
self Text
applicationIcon = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
applicationIcon' <- Text -> IO CString
textToCString Text
applicationIcon
Ptr AboutDialog -> CString -> IO ()
adw_about_dialog_set_application_icon Ptr AboutDialog
self' CString
applicationIcon'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
applicationIcon'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogSetApplicationIconMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetApplicationIconMethodInfo a signature where
overloadedMethod = aboutDialogSetApplicationIcon
instance O.OverloadedMethodInfo AboutDialogSetApplicationIconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetApplicationIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetApplicationIcon"
})
#endif
foreign import ccall "adw_about_dialog_set_application_name" adw_about_dialog_set_application_name ::
Ptr AboutDialog ->
CString ->
IO ()
aboutDialogSetApplicationName ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> T.Text
-> m ()
aboutDialogSetApplicationName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Text -> m ()
aboutDialogSetApplicationName a
self Text
applicationName = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
applicationName' <- Text -> IO CString
textToCString Text
applicationName
Ptr AboutDialog -> CString -> IO ()
adw_about_dialog_set_application_name Ptr AboutDialog
self' CString
applicationName'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
applicationName'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogSetApplicationNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetApplicationNameMethodInfo a signature where
overloadedMethod = aboutDialogSetApplicationName
instance O.OverloadedMethodInfo AboutDialogSetApplicationNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetApplicationName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetApplicationName"
})
#endif
foreign import ccall "adw_about_dialog_set_artists" adw_about_dialog_set_artists ::
Ptr AboutDialog ->
Ptr CString ->
IO ()
aboutDialogSetArtists ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> Maybe ([T.Text])
-> m ()
aboutDialogSetArtists :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Maybe [Text] -> m ()
aboutDialogSetArtists a
self Maybe [Text]
artists = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr CString
maybeArtists <- case Maybe [Text]
artists of
Maybe [Text]
Nothing -> Ptr CString -> IO (Ptr CString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
forall a. Ptr a
nullPtr
Just [Text]
jArtists -> do
Ptr CString
jArtists' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
jArtists
Ptr CString -> IO (Ptr CString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
jArtists'
Ptr AboutDialog -> Ptr CString -> IO ()
adw_about_dialog_set_artists Ptr AboutDialog
self' Ptr CString
maybeArtists
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeArtists
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeArtists
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogSetArtistsMethodInfo
instance (signature ~ (Maybe ([T.Text]) -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetArtistsMethodInfo a signature where
overloadedMethod = aboutDialogSetArtists
instance O.OverloadedMethodInfo AboutDialogSetArtistsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetArtists",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetArtists"
})
#endif
foreign import ccall "adw_about_dialog_set_comments" ::
Ptr AboutDialog ->
CString ->
IO ()
aboutDialogSetComments ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> T.Text
-> m ()
a
self Text
comments = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
comments' <- Text -> IO CString
textToCString Text
comments
Ptr AboutDialog -> CString -> IO ()
adw_about_dialog_set_comments Ptr AboutDialog
self' CString
comments'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
comments'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogSetCommentsMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetCommentsMethodInfo a signature where
overloadedMethod = aboutDialogSetComments
instance O.OverloadedMethodInfo AboutDialogSetCommentsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetComments",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetComments"
})
#endif
foreign import ccall "adw_about_dialog_set_copyright" adw_about_dialog_set_copyright ::
Ptr AboutDialog ->
CString ->
IO ()
aboutDialogSetCopyright ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> T.Text
-> m ()
aboutDialogSetCopyright :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Text -> m ()
aboutDialogSetCopyright a
self Text
copyright = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
copyright' <- Text -> IO CString
textToCString Text
copyright
Ptr AboutDialog -> CString -> IO ()
adw_about_dialog_set_copyright Ptr AboutDialog
self' CString
copyright'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
copyright'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogSetCopyrightMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetCopyrightMethodInfo a signature where
overloadedMethod = aboutDialogSetCopyright
instance O.OverloadedMethodInfo AboutDialogSetCopyrightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetCopyright",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetCopyright"
})
#endif
foreign import ccall "adw_about_dialog_set_debug_info" adw_about_dialog_set_debug_info ::
Ptr AboutDialog ->
CString ->
IO ()
aboutDialogSetDebugInfo ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> T.Text
-> m ()
aboutDialogSetDebugInfo :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Text -> m ()
aboutDialogSetDebugInfo a
self Text
debugInfo = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
debugInfo' <- Text -> IO CString
textToCString Text
debugInfo
Ptr AboutDialog -> CString -> IO ()
adw_about_dialog_set_debug_info Ptr AboutDialog
self' CString
debugInfo'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
debugInfo'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogSetDebugInfoMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetDebugInfoMethodInfo a signature where
overloadedMethod = aboutDialogSetDebugInfo
instance O.OverloadedMethodInfo AboutDialogSetDebugInfoMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetDebugInfo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetDebugInfo"
})
#endif
foreign import ccall "adw_about_dialog_set_debug_info_filename" adw_about_dialog_set_debug_info_filename ::
Ptr AboutDialog ->
CString ->
IO ()
aboutDialogSetDebugInfoFilename ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> T.Text
-> m ()
aboutDialogSetDebugInfoFilename :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Text -> m ()
aboutDialogSetDebugInfoFilename a
self Text
filename = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
filename' <- Text -> IO CString
textToCString Text
filename
Ptr AboutDialog -> CString -> IO ()
adw_about_dialog_set_debug_info_filename Ptr AboutDialog
self' CString
filename'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
filename'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogSetDebugInfoFilenameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetDebugInfoFilenameMethodInfo a signature where
overloadedMethod = aboutDialogSetDebugInfoFilename
instance O.OverloadedMethodInfo AboutDialogSetDebugInfoFilenameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetDebugInfoFilename",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetDebugInfoFilename"
})
#endif
foreign import ccall "adw_about_dialog_set_designers" adw_about_dialog_set_designers ::
Ptr AboutDialog ->
Ptr CString ->
IO ()
aboutDialogSetDesigners ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> Maybe ([T.Text])
-> m ()
aboutDialogSetDesigners :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Maybe [Text] -> m ()
aboutDialogSetDesigners a
self Maybe [Text]
designers = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr CString
maybeDesigners <- case Maybe [Text]
designers of
Maybe [Text]
Nothing -> Ptr CString -> IO (Ptr CString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
forall a. Ptr a
nullPtr
Just [Text]
jDesigners -> do
Ptr CString
jDesigners' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
jDesigners
Ptr CString -> IO (Ptr CString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
jDesigners'
Ptr AboutDialog -> Ptr CString -> IO ()
adw_about_dialog_set_designers Ptr AboutDialog
self' Ptr CString
maybeDesigners
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeDesigners
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeDesigners
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogSetDesignersMethodInfo
instance (signature ~ (Maybe ([T.Text]) -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetDesignersMethodInfo a signature where
overloadedMethod = aboutDialogSetDesigners
instance O.OverloadedMethodInfo AboutDialogSetDesignersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetDesigners",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetDesigners"
})
#endif
foreign import ccall "adw_about_dialog_set_developer_name" adw_about_dialog_set_developer_name ::
Ptr AboutDialog ->
CString ->
IO ()
aboutDialogSetDeveloperName ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> T.Text
-> m ()
aboutDialogSetDeveloperName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Text -> m ()
aboutDialogSetDeveloperName a
self Text
developerName = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
developerName' <- Text -> IO CString
textToCString Text
developerName
Ptr AboutDialog -> CString -> IO ()
adw_about_dialog_set_developer_name Ptr AboutDialog
self' CString
developerName'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
developerName'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogSetDeveloperNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetDeveloperNameMethodInfo a signature where
overloadedMethod = aboutDialogSetDeveloperName
instance O.OverloadedMethodInfo AboutDialogSetDeveloperNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetDeveloperName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetDeveloperName"
})
#endif
foreign import ccall "adw_about_dialog_set_developers" adw_about_dialog_set_developers ::
Ptr AboutDialog ->
Ptr CString ->
IO ()
aboutDialogSetDevelopers ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> Maybe ([T.Text])
-> m ()
aboutDialogSetDevelopers :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Maybe [Text] -> m ()
aboutDialogSetDevelopers a
self Maybe [Text]
developers = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr CString
maybeDevelopers <- case Maybe [Text]
developers of
Maybe [Text]
Nothing -> Ptr CString -> IO (Ptr CString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
forall a. Ptr a
nullPtr
Just [Text]
jDevelopers -> do
Ptr CString
jDevelopers' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
jDevelopers
Ptr CString -> IO (Ptr CString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
jDevelopers'
Ptr AboutDialog -> Ptr CString -> IO ()
adw_about_dialog_set_developers Ptr AboutDialog
self' Ptr CString
maybeDevelopers
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeDevelopers
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeDevelopers
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogSetDevelopersMethodInfo
instance (signature ~ (Maybe ([T.Text]) -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetDevelopersMethodInfo a signature where
overloadedMethod = aboutDialogSetDevelopers
instance O.OverloadedMethodInfo AboutDialogSetDevelopersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetDevelopers",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetDevelopers"
})
#endif
foreign import ccall "adw_about_dialog_set_documenters" adw_about_dialog_set_documenters ::
Ptr AboutDialog ->
Ptr CString ->
IO ()
aboutDialogSetDocumenters ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> Maybe ([T.Text])
-> m ()
aboutDialogSetDocumenters :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Maybe [Text] -> m ()
aboutDialogSetDocumenters a
self Maybe [Text]
documenters = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr CString
maybeDocumenters <- case Maybe [Text]
documenters of
Maybe [Text]
Nothing -> Ptr CString -> IO (Ptr CString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
forall a. Ptr a
nullPtr
Just [Text]
jDocumenters -> do
Ptr CString
jDocumenters' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
jDocumenters
Ptr CString -> IO (Ptr CString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
jDocumenters'
Ptr AboutDialog -> Ptr CString -> IO ()
adw_about_dialog_set_documenters Ptr AboutDialog
self' Ptr CString
maybeDocumenters
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeDocumenters
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeDocumenters
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogSetDocumentersMethodInfo
instance (signature ~ (Maybe ([T.Text]) -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetDocumentersMethodInfo a signature where
overloadedMethod = aboutDialogSetDocumenters
instance O.OverloadedMethodInfo AboutDialogSetDocumentersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetDocumenters",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetDocumenters"
})
#endif
foreign import ccall "adw_about_dialog_set_issue_url" adw_about_dialog_set_issue_url ::
Ptr AboutDialog ->
CString ->
IO ()
aboutDialogSetIssueUrl ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> T.Text
-> m ()
aboutDialogSetIssueUrl :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Text -> m ()
aboutDialogSetIssueUrl a
self Text
issueUrl = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
issueUrl' <- Text -> IO CString
textToCString Text
issueUrl
Ptr AboutDialog -> CString -> IO ()
adw_about_dialog_set_issue_url Ptr AboutDialog
self' CString
issueUrl'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
issueUrl'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogSetIssueUrlMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetIssueUrlMethodInfo a signature where
overloadedMethod = aboutDialogSetIssueUrl
instance O.OverloadedMethodInfo AboutDialogSetIssueUrlMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetIssueUrl",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetIssueUrl"
})
#endif
foreign import ccall "adw_about_dialog_set_license" adw_about_dialog_set_license ::
Ptr AboutDialog ->
CString ->
IO ()
aboutDialogSetLicense ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> T.Text
-> m ()
aboutDialogSetLicense :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Text -> m ()
aboutDialogSetLicense a
self Text
license = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
license' <- Text -> IO CString
textToCString Text
license
Ptr AboutDialog -> CString -> IO ()
adw_about_dialog_set_license Ptr AboutDialog
self' CString
license'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
license'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogSetLicenseMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetLicenseMethodInfo a signature where
overloadedMethod = aboutDialogSetLicense
instance O.OverloadedMethodInfo AboutDialogSetLicenseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetLicense",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetLicense"
})
#endif
foreign import ccall "adw_about_dialog_set_license_type" adw_about_dialog_set_license_type ::
Ptr AboutDialog ->
CUInt ->
IO ()
aboutDialogSetLicenseType ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> Gtk.Enums.License
-> m ()
aboutDialogSetLicenseType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> License -> m ()
aboutDialogSetLicenseType a
self License
licenseType = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let licenseType' :: CUInt
licenseType' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (License -> Int) -> License -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. License -> Int
forall a. Enum a => a -> Int
fromEnum) License
licenseType
Ptr AboutDialog -> CUInt -> IO ()
adw_about_dialog_set_license_type Ptr AboutDialog
self' CUInt
licenseType'
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 AboutDialogSetLicenseTypeMethodInfo
instance (signature ~ (Gtk.Enums.License -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetLicenseTypeMethodInfo a signature where
overloadedMethod = aboutDialogSetLicenseType
instance O.OverloadedMethodInfo AboutDialogSetLicenseTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetLicenseType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetLicenseType"
})
#endif
foreign import ccall "adw_about_dialog_set_release_notes" adw_about_dialog_set_release_notes ::
Ptr AboutDialog ->
CString ->
IO ()
aboutDialogSetReleaseNotes ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> T.Text
-> m ()
aboutDialogSetReleaseNotes :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Text -> m ()
aboutDialogSetReleaseNotes a
self Text
releaseNotes = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
releaseNotes' <- Text -> IO CString
textToCString Text
releaseNotes
Ptr AboutDialog -> CString -> IO ()
adw_about_dialog_set_release_notes Ptr AboutDialog
self' CString
releaseNotes'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
releaseNotes'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogSetReleaseNotesMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetReleaseNotesMethodInfo a signature where
overloadedMethod = aboutDialogSetReleaseNotes
instance O.OverloadedMethodInfo AboutDialogSetReleaseNotesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetReleaseNotes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetReleaseNotes"
})
#endif
foreign import ccall "adw_about_dialog_set_release_notes_version" adw_about_dialog_set_release_notes_version ::
Ptr AboutDialog ->
CString ->
IO ()
aboutDialogSetReleaseNotesVersion ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> T.Text
-> m ()
aboutDialogSetReleaseNotesVersion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Text -> m ()
aboutDialogSetReleaseNotesVersion a
self Text
version = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
version' <- Text -> IO CString
textToCString Text
version
Ptr AboutDialog -> CString -> IO ()
adw_about_dialog_set_release_notes_version Ptr AboutDialog
self' CString
version'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
version'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogSetReleaseNotesVersionMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetReleaseNotesVersionMethodInfo a signature where
overloadedMethod = aboutDialogSetReleaseNotesVersion
instance O.OverloadedMethodInfo AboutDialogSetReleaseNotesVersionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetReleaseNotesVersion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetReleaseNotesVersion"
})
#endif
foreign import ccall "adw_about_dialog_set_support_url" adw_about_dialog_set_support_url ::
Ptr AboutDialog ->
CString ->
IO ()
aboutDialogSetSupportUrl ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> T.Text
-> m ()
aboutDialogSetSupportUrl :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Text -> m ()
aboutDialogSetSupportUrl a
self Text
supportUrl = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
supportUrl' <- Text -> IO CString
textToCString Text
supportUrl
Ptr AboutDialog -> CString -> IO ()
adw_about_dialog_set_support_url Ptr AboutDialog
self' CString
supportUrl'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
supportUrl'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogSetSupportUrlMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetSupportUrlMethodInfo a signature where
overloadedMethod = aboutDialogSetSupportUrl
instance O.OverloadedMethodInfo AboutDialogSetSupportUrlMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetSupportUrl",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetSupportUrl"
})
#endif
foreign import ccall "adw_about_dialog_set_translator_credits" adw_about_dialog_set_translator_credits ::
Ptr AboutDialog ->
CString ->
IO ()
aboutDialogSetTranslatorCredits ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> T.Text
-> m ()
aboutDialogSetTranslatorCredits :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Text -> m ()
aboutDialogSetTranslatorCredits a
self Text
translatorCredits = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
translatorCredits' <- Text -> IO CString
textToCString Text
translatorCredits
Ptr AboutDialog -> CString -> IO ()
adw_about_dialog_set_translator_credits Ptr AboutDialog
self' CString
translatorCredits'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
translatorCredits'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogSetTranslatorCreditsMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetTranslatorCreditsMethodInfo a signature where
overloadedMethod = aboutDialogSetTranslatorCredits
instance O.OverloadedMethodInfo AboutDialogSetTranslatorCreditsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetTranslatorCredits",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetTranslatorCredits"
})
#endif
foreign import ccall "adw_about_dialog_set_version" adw_about_dialog_set_version ::
Ptr AboutDialog ->
CString ->
IO ()
aboutDialogSetVersion ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> T.Text
-> m ()
aboutDialogSetVersion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Text -> m ()
aboutDialogSetVersion a
self Text
version = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
version' <- Text -> IO CString
textToCString Text
version
Ptr AboutDialog -> CString -> IO ()
adw_about_dialog_set_version Ptr AboutDialog
self' CString
version'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
version'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogSetVersionMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetVersionMethodInfo a signature where
overloadedMethod = aboutDialogSetVersion
instance O.OverloadedMethodInfo AboutDialogSetVersionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetVersion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetVersion"
})
#endif
foreign import ccall "adw_about_dialog_set_website" adw_about_dialog_set_website ::
Ptr AboutDialog ->
CString ->
IO ()
aboutDialogSetWebsite ::
(B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) =>
a
-> T.Text
-> m ()
aboutDialogSetWebsite :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAboutDialog a) =>
a -> Text -> m ()
aboutDialogSetWebsite a
self Text
website = 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 AboutDialog
self' <- a -> IO (Ptr AboutDialog)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
website' <- Text -> IO CString
textToCString Text
website
Ptr AboutDialog -> CString -> IO ()
adw_about_dialog_set_website Ptr AboutDialog
self' CString
website'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
website'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AboutDialogSetWebsiteMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAboutDialog a) => O.OverloadedMethod AboutDialogSetWebsiteMethodInfo a signature where
overloadedMethod = aboutDialogSetWebsite
instance O.OverloadedMethodInfo AboutDialogSetWebsiteMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.AboutDialog.aboutDialogSetWebsite",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-AboutDialog.html#v:aboutDialogSetWebsite"
})
#endif