{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Settings
(
Settings(..) ,
IsSettings ,
toSettings ,
noSettings ,
#if defined(ENABLE_OVERLOADING)
ResolveSettingsMethod ,
#endif
settingsGetDefault ,
settingsGetForScreen ,
settingsInstallProperty ,
settingsInstallPropertyParser ,
#if defined(ENABLE_OVERLOADING)
SettingsResetPropertyMethodInfo ,
#endif
settingsResetProperty ,
#if defined(ENABLE_OVERLOADING)
SettingsSetDoublePropertyMethodInfo ,
#endif
settingsSetDoubleProperty ,
#if defined(ENABLE_OVERLOADING)
SettingsSetLongPropertyMethodInfo ,
#endif
settingsSetLongProperty ,
#if defined(ENABLE_OVERLOADING)
SettingsSetPropertyValueMethodInfo ,
#endif
settingsSetPropertyValue ,
#if defined(ENABLE_OVERLOADING)
SettingsSetStringPropertyMethodInfo ,
#endif
settingsSetStringProperty ,
#if defined(ENABLE_OVERLOADING)
SettingsColorHashPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
settingsColorHash ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkAlternativeButtonOrderPropertyInfo,
#endif
constructSettingsGtkAlternativeButtonOrder,
getSettingsGtkAlternativeButtonOrder ,
setSettingsGtkAlternativeButtonOrder ,
#if defined(ENABLE_OVERLOADING)
settingsGtkAlternativeButtonOrder ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkAlternativeSortArrowsPropertyInfo,
#endif
constructSettingsGtkAlternativeSortArrows,
getSettingsGtkAlternativeSortArrows ,
setSettingsGtkAlternativeSortArrows ,
#if defined(ENABLE_OVERLOADING)
settingsGtkAlternativeSortArrows ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkApplicationPreferDarkThemePropertyInfo,
#endif
constructSettingsGtkApplicationPreferDarkTheme,
getSettingsGtkApplicationPreferDarkTheme,
setSettingsGtkApplicationPreferDarkTheme,
#if defined(ENABLE_OVERLOADING)
settingsGtkApplicationPreferDarkTheme ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkAutoMnemonicsPropertyInfo ,
#endif
constructSettingsGtkAutoMnemonics ,
getSettingsGtkAutoMnemonics ,
setSettingsGtkAutoMnemonics ,
#if defined(ENABLE_OVERLOADING)
settingsGtkAutoMnemonics ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkButtonImagesPropertyInfo ,
#endif
constructSettingsGtkButtonImages ,
getSettingsGtkButtonImages ,
setSettingsGtkButtonImages ,
#if defined(ENABLE_OVERLOADING)
settingsGtkButtonImages ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkCanChangeAccelsPropertyInfo ,
#endif
constructSettingsGtkCanChangeAccels ,
getSettingsGtkCanChangeAccels ,
setSettingsGtkCanChangeAccels ,
#if defined(ENABLE_OVERLOADING)
settingsGtkCanChangeAccels ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkColorPalettePropertyInfo ,
#endif
clearSettingsGtkColorPalette ,
constructSettingsGtkColorPalette ,
getSettingsGtkColorPalette ,
setSettingsGtkColorPalette ,
#if defined(ENABLE_OVERLOADING)
settingsGtkColorPalette ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkColorSchemePropertyInfo ,
#endif
clearSettingsGtkColorScheme ,
constructSettingsGtkColorScheme ,
getSettingsGtkColorScheme ,
setSettingsGtkColorScheme ,
#if defined(ENABLE_OVERLOADING)
settingsGtkColorScheme ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkCursorBlinkPropertyInfo ,
#endif
constructSettingsGtkCursorBlink ,
getSettingsGtkCursorBlink ,
setSettingsGtkCursorBlink ,
#if defined(ENABLE_OVERLOADING)
settingsGtkCursorBlink ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkCursorBlinkTimePropertyInfo ,
#endif
constructSettingsGtkCursorBlinkTime ,
getSettingsGtkCursorBlinkTime ,
setSettingsGtkCursorBlinkTime ,
#if defined(ENABLE_OVERLOADING)
settingsGtkCursorBlinkTime ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkCursorBlinkTimeoutPropertyInfo,
#endif
constructSettingsGtkCursorBlinkTimeout ,
getSettingsGtkCursorBlinkTimeout ,
setSettingsGtkCursorBlinkTimeout ,
#if defined(ENABLE_OVERLOADING)
settingsGtkCursorBlinkTimeout ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkCursorThemeNamePropertyInfo ,
#endif
clearSettingsGtkCursorThemeName ,
constructSettingsGtkCursorThemeName ,
getSettingsGtkCursorThemeName ,
setSettingsGtkCursorThemeName ,
#if defined(ENABLE_OVERLOADING)
settingsGtkCursorThemeName ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkCursorThemeSizePropertyInfo ,
#endif
constructSettingsGtkCursorThemeSize ,
getSettingsGtkCursorThemeSize ,
setSettingsGtkCursorThemeSize ,
#if defined(ENABLE_OVERLOADING)
settingsGtkCursorThemeSize ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkDecorationLayoutPropertyInfo ,
#endif
clearSettingsGtkDecorationLayout ,
constructSettingsGtkDecorationLayout ,
getSettingsGtkDecorationLayout ,
setSettingsGtkDecorationLayout ,
#if defined(ENABLE_OVERLOADING)
settingsGtkDecorationLayout ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkDialogsUseHeaderPropertyInfo ,
#endif
constructSettingsGtkDialogsUseHeader ,
getSettingsGtkDialogsUseHeader ,
setSettingsGtkDialogsUseHeader ,
#if defined(ENABLE_OVERLOADING)
settingsGtkDialogsUseHeader ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkDndDragThresholdPropertyInfo ,
#endif
constructSettingsGtkDndDragThreshold ,
getSettingsGtkDndDragThreshold ,
setSettingsGtkDndDragThreshold ,
#if defined(ENABLE_OVERLOADING)
settingsGtkDndDragThreshold ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkDoubleClickDistancePropertyInfo,
#endif
constructSettingsGtkDoubleClickDistance ,
getSettingsGtkDoubleClickDistance ,
setSettingsGtkDoubleClickDistance ,
#if defined(ENABLE_OVERLOADING)
settingsGtkDoubleClickDistance ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkDoubleClickTimePropertyInfo ,
#endif
constructSettingsGtkDoubleClickTime ,
getSettingsGtkDoubleClickTime ,
setSettingsGtkDoubleClickTime ,
#if defined(ENABLE_OVERLOADING)
settingsGtkDoubleClickTime ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkEnableAccelsPropertyInfo ,
#endif
constructSettingsGtkEnableAccels ,
getSettingsGtkEnableAccels ,
setSettingsGtkEnableAccels ,
#if defined(ENABLE_OVERLOADING)
settingsGtkEnableAccels ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkEnableAnimationsPropertyInfo ,
#endif
constructSettingsGtkEnableAnimations ,
getSettingsGtkEnableAnimations ,
setSettingsGtkEnableAnimations ,
#if defined(ENABLE_OVERLOADING)
settingsGtkEnableAnimations ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkEnableEventSoundsPropertyInfo,
#endif
constructSettingsGtkEnableEventSounds ,
getSettingsGtkEnableEventSounds ,
setSettingsGtkEnableEventSounds ,
#if defined(ENABLE_OVERLOADING)
settingsGtkEnableEventSounds ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkEnableInputFeedbackSoundsPropertyInfo,
#endif
constructSettingsGtkEnableInputFeedbackSounds,
getSettingsGtkEnableInputFeedbackSounds ,
setSettingsGtkEnableInputFeedbackSounds ,
#if defined(ENABLE_OVERLOADING)
settingsGtkEnableInputFeedbackSounds ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkEnableMnemonicsPropertyInfo ,
#endif
constructSettingsGtkEnableMnemonics ,
getSettingsGtkEnableMnemonics ,
setSettingsGtkEnableMnemonics ,
#if defined(ENABLE_OVERLOADING)
settingsGtkEnableMnemonics ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkEnablePrimaryPastePropertyInfo,
#endif
constructSettingsGtkEnablePrimaryPaste ,
getSettingsGtkEnablePrimaryPaste ,
setSettingsGtkEnablePrimaryPaste ,
#if defined(ENABLE_OVERLOADING)
settingsGtkEnablePrimaryPaste ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkEnableTooltipsPropertyInfo ,
#endif
constructSettingsGtkEnableTooltips ,
getSettingsGtkEnableTooltips ,
setSettingsGtkEnableTooltips ,
#if defined(ENABLE_OVERLOADING)
settingsGtkEnableTooltips ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkEntryPasswordHintTimeoutPropertyInfo,
#endif
constructSettingsGtkEntryPasswordHintTimeout,
getSettingsGtkEntryPasswordHintTimeout ,
setSettingsGtkEntryPasswordHintTimeout ,
#if defined(ENABLE_OVERLOADING)
settingsGtkEntryPasswordHintTimeout ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkEntrySelectOnFocusPropertyInfo,
#endif
constructSettingsGtkEntrySelectOnFocus ,
getSettingsGtkEntrySelectOnFocus ,
setSettingsGtkEntrySelectOnFocus ,
#if defined(ENABLE_OVERLOADING)
settingsGtkEntrySelectOnFocus ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkErrorBellPropertyInfo ,
#endif
constructSettingsGtkErrorBell ,
getSettingsGtkErrorBell ,
setSettingsGtkErrorBell ,
#if defined(ENABLE_OVERLOADING)
settingsGtkErrorBell ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkFallbackIconThemePropertyInfo,
#endif
clearSettingsGtkFallbackIconTheme ,
constructSettingsGtkFallbackIconTheme ,
getSettingsGtkFallbackIconTheme ,
setSettingsGtkFallbackIconTheme ,
#if defined(ENABLE_OVERLOADING)
settingsGtkFallbackIconTheme ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkFileChooserBackendPropertyInfo,
#endif
clearSettingsGtkFileChooserBackend ,
constructSettingsGtkFileChooserBackend ,
getSettingsGtkFileChooserBackend ,
setSettingsGtkFileChooserBackend ,
#if defined(ENABLE_OVERLOADING)
settingsGtkFileChooserBackend ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkFontNamePropertyInfo ,
#endif
clearSettingsGtkFontName ,
constructSettingsGtkFontName ,
getSettingsGtkFontName ,
setSettingsGtkFontName ,
#if defined(ENABLE_OVERLOADING)
settingsGtkFontName ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkFontconfigTimestampPropertyInfo,
#endif
constructSettingsGtkFontconfigTimestamp ,
getSettingsGtkFontconfigTimestamp ,
setSettingsGtkFontconfigTimestamp ,
#if defined(ENABLE_OVERLOADING)
settingsGtkFontconfigTimestamp ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkIconSizesPropertyInfo ,
#endif
clearSettingsGtkIconSizes ,
constructSettingsGtkIconSizes ,
getSettingsGtkIconSizes ,
setSettingsGtkIconSizes ,
#if defined(ENABLE_OVERLOADING)
settingsGtkIconSizes ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkIconThemeNamePropertyInfo ,
#endif
clearSettingsGtkIconThemeName ,
constructSettingsGtkIconThemeName ,
getSettingsGtkIconThemeName ,
setSettingsGtkIconThemeName ,
#if defined(ENABLE_OVERLOADING)
settingsGtkIconThemeName ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkImModulePropertyInfo ,
#endif
clearSettingsGtkImModule ,
constructSettingsGtkImModule ,
getSettingsGtkImModule ,
setSettingsGtkImModule ,
#if defined(ENABLE_OVERLOADING)
settingsGtkImModule ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkImPreeditStylePropertyInfo ,
#endif
constructSettingsGtkImPreeditStyle ,
getSettingsGtkImPreeditStyle ,
setSettingsGtkImPreeditStyle ,
#if defined(ENABLE_OVERLOADING)
settingsGtkImPreeditStyle ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkImStatusStylePropertyInfo ,
#endif
constructSettingsGtkImStatusStyle ,
getSettingsGtkImStatusStyle ,
setSettingsGtkImStatusStyle ,
#if defined(ENABLE_OVERLOADING)
settingsGtkImStatusStyle ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkKeyThemeNamePropertyInfo ,
#endif
clearSettingsGtkKeyThemeName ,
constructSettingsGtkKeyThemeName ,
getSettingsGtkKeyThemeName ,
setSettingsGtkKeyThemeName ,
#if defined(ENABLE_OVERLOADING)
settingsGtkKeyThemeName ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkKeynavCursorOnlyPropertyInfo ,
#endif
constructSettingsGtkKeynavCursorOnly ,
getSettingsGtkKeynavCursorOnly ,
setSettingsGtkKeynavCursorOnly ,
#if defined(ENABLE_OVERLOADING)
settingsGtkKeynavCursorOnly ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkKeynavUseCaretPropertyInfo ,
#endif
constructSettingsGtkKeynavUseCaret ,
getSettingsGtkKeynavUseCaret ,
setSettingsGtkKeynavUseCaret ,
#if defined(ENABLE_OVERLOADING)
settingsGtkKeynavUseCaret ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkKeynavWrapAroundPropertyInfo ,
#endif
constructSettingsGtkKeynavWrapAround ,
getSettingsGtkKeynavWrapAround ,
setSettingsGtkKeynavWrapAround ,
#if defined(ENABLE_OVERLOADING)
settingsGtkKeynavWrapAround ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkLabelSelectOnFocusPropertyInfo,
#endif
constructSettingsGtkLabelSelectOnFocus ,
getSettingsGtkLabelSelectOnFocus ,
setSettingsGtkLabelSelectOnFocus ,
#if defined(ENABLE_OVERLOADING)
settingsGtkLabelSelectOnFocus ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkLongPressTimePropertyInfo ,
#endif
constructSettingsGtkLongPressTime ,
getSettingsGtkLongPressTime ,
setSettingsGtkLongPressTime ,
#if defined(ENABLE_OVERLOADING)
settingsGtkLongPressTime ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkMenuBarAccelPropertyInfo ,
#endif
clearSettingsGtkMenuBarAccel ,
constructSettingsGtkMenuBarAccel ,
getSettingsGtkMenuBarAccel ,
setSettingsGtkMenuBarAccel ,
#if defined(ENABLE_OVERLOADING)
settingsGtkMenuBarAccel ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkMenuBarPopupDelayPropertyInfo,
#endif
constructSettingsGtkMenuBarPopupDelay ,
getSettingsGtkMenuBarPopupDelay ,
setSettingsGtkMenuBarPopupDelay ,
#if defined(ENABLE_OVERLOADING)
settingsGtkMenuBarPopupDelay ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkMenuImagesPropertyInfo ,
#endif
constructSettingsGtkMenuImages ,
getSettingsGtkMenuImages ,
setSettingsGtkMenuImages ,
#if defined(ENABLE_OVERLOADING)
settingsGtkMenuImages ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkMenuPopdownDelayPropertyInfo ,
#endif
constructSettingsGtkMenuPopdownDelay ,
getSettingsGtkMenuPopdownDelay ,
setSettingsGtkMenuPopdownDelay ,
#if defined(ENABLE_OVERLOADING)
settingsGtkMenuPopdownDelay ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkMenuPopupDelayPropertyInfo ,
#endif
constructSettingsGtkMenuPopupDelay ,
getSettingsGtkMenuPopupDelay ,
setSettingsGtkMenuPopupDelay ,
#if defined(ENABLE_OVERLOADING)
settingsGtkMenuPopupDelay ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkModulesPropertyInfo ,
#endif
clearSettingsGtkModules ,
constructSettingsGtkModules ,
getSettingsGtkModules ,
setSettingsGtkModules ,
#if defined(ENABLE_OVERLOADING)
settingsGtkModules ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkOverlayScrollingPropertyInfo ,
#endif
constructSettingsGtkOverlayScrolling ,
getSettingsGtkOverlayScrolling ,
setSettingsGtkOverlayScrolling ,
#if defined(ENABLE_OVERLOADING)
settingsGtkOverlayScrolling ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkPrimaryButtonWarpsSliderPropertyInfo,
#endif
constructSettingsGtkPrimaryButtonWarpsSlider,
getSettingsGtkPrimaryButtonWarpsSlider ,
setSettingsGtkPrimaryButtonWarpsSlider ,
#if defined(ENABLE_OVERLOADING)
settingsGtkPrimaryButtonWarpsSlider ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkPrintBackendsPropertyInfo ,
#endif
clearSettingsGtkPrintBackends ,
constructSettingsGtkPrintBackends ,
getSettingsGtkPrintBackends ,
setSettingsGtkPrintBackends ,
#if defined(ENABLE_OVERLOADING)
settingsGtkPrintBackends ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkPrintPreviewCommandPropertyInfo,
#endif
clearSettingsGtkPrintPreviewCommand ,
constructSettingsGtkPrintPreviewCommand ,
getSettingsGtkPrintPreviewCommand ,
setSettingsGtkPrintPreviewCommand ,
#if defined(ENABLE_OVERLOADING)
settingsGtkPrintPreviewCommand ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkRecentFilesEnabledPropertyInfo,
#endif
constructSettingsGtkRecentFilesEnabled ,
getSettingsGtkRecentFilesEnabled ,
setSettingsGtkRecentFilesEnabled ,
#if defined(ENABLE_OVERLOADING)
settingsGtkRecentFilesEnabled ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkRecentFilesLimitPropertyInfo ,
#endif
constructSettingsGtkRecentFilesLimit ,
getSettingsGtkRecentFilesLimit ,
setSettingsGtkRecentFilesLimit ,
#if defined(ENABLE_OVERLOADING)
settingsGtkRecentFilesLimit ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkRecentFilesMaxAgePropertyInfo,
#endif
constructSettingsGtkRecentFilesMaxAge ,
getSettingsGtkRecentFilesMaxAge ,
setSettingsGtkRecentFilesMaxAge ,
#if defined(ENABLE_OVERLOADING)
settingsGtkRecentFilesMaxAge ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkScrolledWindowPlacementPropertyInfo,
#endif
constructSettingsGtkScrolledWindowPlacement,
getSettingsGtkScrolledWindowPlacement ,
setSettingsGtkScrolledWindowPlacement ,
#if defined(ENABLE_OVERLOADING)
settingsGtkScrolledWindowPlacement ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkShellShowsAppMenuPropertyInfo,
#endif
constructSettingsGtkShellShowsAppMenu ,
getSettingsGtkShellShowsAppMenu ,
setSettingsGtkShellShowsAppMenu ,
#if defined(ENABLE_OVERLOADING)
settingsGtkShellShowsAppMenu ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkShellShowsDesktopPropertyInfo,
#endif
constructSettingsGtkShellShowsDesktop ,
getSettingsGtkShellShowsDesktop ,
setSettingsGtkShellShowsDesktop ,
#if defined(ENABLE_OVERLOADING)
settingsGtkShellShowsDesktop ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkShellShowsMenubarPropertyInfo,
#endif
constructSettingsGtkShellShowsMenubar ,
getSettingsGtkShellShowsMenubar ,
setSettingsGtkShellShowsMenubar ,
#if defined(ENABLE_OVERLOADING)
settingsGtkShellShowsMenubar ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkShowInputMethodMenuPropertyInfo,
#endif
constructSettingsGtkShowInputMethodMenu ,
getSettingsGtkShowInputMethodMenu ,
setSettingsGtkShowInputMethodMenu ,
#if defined(ENABLE_OVERLOADING)
settingsGtkShowInputMethodMenu ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkShowUnicodeMenuPropertyInfo ,
#endif
constructSettingsGtkShowUnicodeMenu ,
getSettingsGtkShowUnicodeMenu ,
setSettingsGtkShowUnicodeMenu ,
#if defined(ENABLE_OVERLOADING)
settingsGtkShowUnicodeMenu ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkSoundThemeNamePropertyInfo ,
#endif
clearSettingsGtkSoundThemeName ,
constructSettingsGtkSoundThemeName ,
getSettingsGtkSoundThemeName ,
setSettingsGtkSoundThemeName ,
#if defined(ENABLE_OVERLOADING)
settingsGtkSoundThemeName ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkSplitCursorPropertyInfo ,
#endif
constructSettingsGtkSplitCursor ,
getSettingsGtkSplitCursor ,
setSettingsGtkSplitCursor ,
#if defined(ENABLE_OVERLOADING)
settingsGtkSplitCursor ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkThemeNamePropertyInfo ,
#endif
clearSettingsGtkThemeName ,
constructSettingsGtkThemeName ,
getSettingsGtkThemeName ,
setSettingsGtkThemeName ,
#if defined(ENABLE_OVERLOADING)
settingsGtkThemeName ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkTimeoutExpandPropertyInfo ,
#endif
constructSettingsGtkTimeoutExpand ,
getSettingsGtkTimeoutExpand ,
setSettingsGtkTimeoutExpand ,
#if defined(ENABLE_OVERLOADING)
settingsGtkTimeoutExpand ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkTimeoutInitialPropertyInfo ,
#endif
constructSettingsGtkTimeoutInitial ,
getSettingsGtkTimeoutInitial ,
setSettingsGtkTimeoutInitial ,
#if defined(ENABLE_OVERLOADING)
settingsGtkTimeoutInitial ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkTimeoutRepeatPropertyInfo ,
#endif
constructSettingsGtkTimeoutRepeat ,
getSettingsGtkTimeoutRepeat ,
setSettingsGtkTimeoutRepeat ,
#if defined(ENABLE_OVERLOADING)
settingsGtkTimeoutRepeat ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkTitlebarDoubleClickPropertyInfo,
#endif
clearSettingsGtkTitlebarDoubleClick ,
constructSettingsGtkTitlebarDoubleClick ,
getSettingsGtkTitlebarDoubleClick ,
setSettingsGtkTitlebarDoubleClick ,
#if defined(ENABLE_OVERLOADING)
settingsGtkTitlebarDoubleClick ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkTitlebarMiddleClickPropertyInfo,
#endif
clearSettingsGtkTitlebarMiddleClick ,
constructSettingsGtkTitlebarMiddleClick ,
getSettingsGtkTitlebarMiddleClick ,
setSettingsGtkTitlebarMiddleClick ,
#if defined(ENABLE_OVERLOADING)
settingsGtkTitlebarMiddleClick ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkTitlebarRightClickPropertyInfo,
#endif
clearSettingsGtkTitlebarRightClick ,
constructSettingsGtkTitlebarRightClick ,
getSettingsGtkTitlebarRightClick ,
setSettingsGtkTitlebarRightClick ,
#if defined(ENABLE_OVERLOADING)
settingsGtkTitlebarRightClick ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkToolbarIconSizePropertyInfo ,
#endif
constructSettingsGtkToolbarIconSize ,
getSettingsGtkToolbarIconSize ,
setSettingsGtkToolbarIconSize ,
#if defined(ENABLE_OVERLOADING)
settingsGtkToolbarIconSize ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkToolbarStylePropertyInfo ,
#endif
constructSettingsGtkToolbarStyle ,
getSettingsGtkToolbarStyle ,
setSettingsGtkToolbarStyle ,
#if defined(ENABLE_OVERLOADING)
settingsGtkToolbarStyle ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkTooltipBrowseModeTimeoutPropertyInfo,
#endif
constructSettingsGtkTooltipBrowseModeTimeout,
getSettingsGtkTooltipBrowseModeTimeout ,
setSettingsGtkTooltipBrowseModeTimeout ,
#if defined(ENABLE_OVERLOADING)
settingsGtkTooltipBrowseModeTimeout ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkTooltipBrowseTimeoutPropertyInfo,
#endif
constructSettingsGtkTooltipBrowseTimeout,
getSettingsGtkTooltipBrowseTimeout ,
setSettingsGtkTooltipBrowseTimeout ,
#if defined(ENABLE_OVERLOADING)
settingsGtkTooltipBrowseTimeout ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkTooltipTimeoutPropertyInfo ,
#endif
constructSettingsGtkTooltipTimeout ,
getSettingsGtkTooltipTimeout ,
setSettingsGtkTooltipTimeout ,
#if defined(ENABLE_OVERLOADING)
settingsGtkTooltipTimeout ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkTouchscreenModePropertyInfo ,
#endif
constructSettingsGtkTouchscreenMode ,
getSettingsGtkTouchscreenMode ,
setSettingsGtkTouchscreenMode ,
#if defined(ENABLE_OVERLOADING)
settingsGtkTouchscreenMode ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkVisibleFocusPropertyInfo ,
#endif
constructSettingsGtkVisibleFocus ,
getSettingsGtkVisibleFocus ,
setSettingsGtkVisibleFocus ,
#if defined(ENABLE_OVERLOADING)
settingsGtkVisibleFocus ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkXftAntialiasPropertyInfo ,
#endif
constructSettingsGtkXftAntialias ,
getSettingsGtkXftAntialias ,
setSettingsGtkXftAntialias ,
#if defined(ENABLE_OVERLOADING)
settingsGtkXftAntialias ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkXftDpiPropertyInfo ,
#endif
constructSettingsGtkXftDpi ,
getSettingsGtkXftDpi ,
setSettingsGtkXftDpi ,
#if defined(ENABLE_OVERLOADING)
settingsGtkXftDpi ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkXftHintingPropertyInfo ,
#endif
constructSettingsGtkXftHinting ,
getSettingsGtkXftHinting ,
setSettingsGtkXftHinting ,
#if defined(ENABLE_OVERLOADING)
settingsGtkXftHinting ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkXftHintstylePropertyInfo ,
#endif
clearSettingsGtkXftHintstyle ,
constructSettingsGtkXftHintstyle ,
getSettingsGtkXftHintstyle ,
setSettingsGtkXftHintstyle ,
#if defined(ENABLE_OVERLOADING)
settingsGtkXftHintstyle ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsGtkXftRgbaPropertyInfo ,
#endif
clearSettingsGtkXftRgba ,
constructSettingsGtkXftRgba ,
getSettingsGtkXftRgba ,
setSettingsGtkXftRgba ,
#if defined(ENABLE_OVERLOADING)
settingsGtkXftRgba ,
#endif
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Objects.Screen as Gdk.Screen
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.StyleProvider as Gtk.StyleProvider
import {-# SOURCE #-} qualified GI.Gtk.Structs.SettingsValue as Gtk.SettingsValue
newtype Settings = Settings (ManagedPtr Settings)
deriving (Settings -> Settings -> Bool
(Settings -> Settings -> Bool)
-> (Settings -> Settings -> Bool) -> Eq Settings
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Settings -> Settings -> Bool
$c/= :: Settings -> Settings -> Bool
== :: Settings -> Settings -> Bool
$c== :: Settings -> Settings -> Bool
Eq)
foreign import ccall "gtk_settings_get_type"
c_gtk_settings_get_type :: IO GType
instance GObject Settings where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_settings_get_type
instance B.GValue.IsGValue Settings where
toGValue :: Settings -> IO GValue
toGValue o :: Settings
o = do
GType
gtype <- IO GType
c_gtk_settings_get_type
Settings -> (Ptr Settings -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Settings
o (GType
-> (GValue -> Ptr Settings -> IO ()) -> Ptr Settings -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Settings -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Settings
fromGValue gv :: GValue
gv = do
Ptr Settings
ptr <- GValue -> IO (Ptr Settings)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Settings)
(ManagedPtr Settings -> Settings) -> Ptr Settings -> IO Settings
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Settings -> Settings
Settings Ptr Settings
ptr
class (GObject o, O.IsDescendantOf Settings o) => IsSettings o
instance (GObject o, O.IsDescendantOf Settings o) => IsSettings o
instance O.HasParentTypes Settings
type instance O.ParentTypes Settings = '[GObject.Object.Object, Gtk.StyleProvider.StyleProvider]
toSettings :: (MonadIO m, IsSettings o) => o -> m Settings
toSettings :: o -> m Settings
toSettings = IO Settings -> m Settings
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Settings -> m Settings)
-> (o -> IO Settings) -> o -> m Settings
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Settings -> Settings) -> o -> IO Settings
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Settings -> Settings
Settings
noSettings :: Maybe Settings
noSettings :: Maybe Settings
noSettings = Maybe Settings
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveSettingsMethod (t :: Symbol) (o :: *) :: * where
ResolveSettingsMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSettingsMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSettingsMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSettingsMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSettingsMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSettingsMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSettingsMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSettingsMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSettingsMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSettingsMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSettingsMethod "resetProperty" o = SettingsResetPropertyMethodInfo
ResolveSettingsMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSettingsMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSettingsMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSettingsMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSettingsMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSettingsMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSettingsMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSettingsMethod "getIconFactory" o = Gtk.StyleProvider.StyleProviderGetIconFactoryMethodInfo
ResolveSettingsMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSettingsMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSettingsMethod "getStyle" o = Gtk.StyleProvider.StyleProviderGetStyleMethodInfo
ResolveSettingsMethod "getStyleProperty" o = Gtk.StyleProvider.StyleProviderGetStylePropertyMethodInfo
ResolveSettingsMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSettingsMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSettingsMethod "setDoubleProperty" o = SettingsSetDoublePropertyMethodInfo
ResolveSettingsMethod "setLongProperty" o = SettingsSetLongPropertyMethodInfo
ResolveSettingsMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSettingsMethod "setPropertyValue" o = SettingsSetPropertyValueMethodInfo
ResolveSettingsMethod "setStringProperty" o = SettingsSetStringPropertyMethodInfo
ResolveSettingsMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSettingsMethod t Settings, O.MethodInfo info Settings p) => OL.IsLabel t (Settings -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
#if defined(ENABLE_OVERLOADING)
data SettingsColorHashPropertyInfo
instance AttrInfo SettingsColorHashPropertyInfo where
type AttrAllowedOps SettingsColorHashPropertyInfo = '[]
type AttrSetTypeConstraint SettingsColorHashPropertyInfo = (~) ()
type AttrTransferTypeConstraint SettingsColorHashPropertyInfo = (~) ()
type AttrTransferType SettingsColorHashPropertyInfo = ()
type AttrBaseTypeConstraint SettingsColorHashPropertyInfo = (~) ()
type AttrGetType SettingsColorHashPropertyInfo = ()
type AttrLabel SettingsColorHashPropertyInfo = ""
type AttrOrigin SettingsColorHashPropertyInfo = Settings
attrGet = undefined
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
#endif
getSettingsGtkAlternativeButtonOrder :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkAlternativeButtonOrder :: o -> m Bool
getSettingsGtkAlternativeButtonOrder obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-alternative-button-order"
setSettingsGtkAlternativeButtonOrder :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkAlternativeButtonOrder :: o -> Bool -> m ()
setSettingsGtkAlternativeButtonOrder obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-alternative-button-order" Bool
val
constructSettingsGtkAlternativeButtonOrder :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkAlternativeButtonOrder :: Bool -> IO (GValueConstruct o)
constructSettingsGtkAlternativeButtonOrder val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-alternative-button-order" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkAlternativeButtonOrderPropertyInfo
instance AttrInfo SettingsGtkAlternativeButtonOrderPropertyInfo where
type AttrAllowedOps SettingsGtkAlternativeButtonOrderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkAlternativeButtonOrderPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkAlternativeButtonOrderPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkAlternativeButtonOrderPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkAlternativeButtonOrderPropertyInfo = Bool
type AttrGetType SettingsGtkAlternativeButtonOrderPropertyInfo = Bool
type AttrLabel SettingsGtkAlternativeButtonOrderPropertyInfo = "gtk-alternative-button-order"
type AttrOrigin SettingsGtkAlternativeButtonOrderPropertyInfo = Settings
attrGet = getSettingsGtkAlternativeButtonOrder
attrSet = setSettingsGtkAlternativeButtonOrder
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkAlternativeButtonOrder
attrClear = undefined
#endif
getSettingsGtkAlternativeSortArrows :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkAlternativeSortArrows :: o -> m Bool
getSettingsGtkAlternativeSortArrows obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-alternative-sort-arrows"
setSettingsGtkAlternativeSortArrows :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkAlternativeSortArrows :: o -> Bool -> m ()
setSettingsGtkAlternativeSortArrows obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-alternative-sort-arrows" Bool
val
constructSettingsGtkAlternativeSortArrows :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkAlternativeSortArrows :: Bool -> IO (GValueConstruct o)
constructSettingsGtkAlternativeSortArrows val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-alternative-sort-arrows" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkAlternativeSortArrowsPropertyInfo
instance AttrInfo SettingsGtkAlternativeSortArrowsPropertyInfo where
type AttrAllowedOps SettingsGtkAlternativeSortArrowsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkAlternativeSortArrowsPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkAlternativeSortArrowsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkAlternativeSortArrowsPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkAlternativeSortArrowsPropertyInfo = Bool
type AttrGetType SettingsGtkAlternativeSortArrowsPropertyInfo = Bool
type AttrLabel SettingsGtkAlternativeSortArrowsPropertyInfo = "gtk-alternative-sort-arrows"
type AttrOrigin SettingsGtkAlternativeSortArrowsPropertyInfo = Settings
attrGet = getSettingsGtkAlternativeSortArrows
attrSet = setSettingsGtkAlternativeSortArrows
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkAlternativeSortArrows
attrClear = undefined
#endif
getSettingsGtkApplicationPreferDarkTheme :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkApplicationPreferDarkTheme :: o -> m Bool
getSettingsGtkApplicationPreferDarkTheme obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-application-prefer-dark-theme"
setSettingsGtkApplicationPreferDarkTheme :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkApplicationPreferDarkTheme :: o -> Bool -> m ()
setSettingsGtkApplicationPreferDarkTheme obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-application-prefer-dark-theme" Bool
val
constructSettingsGtkApplicationPreferDarkTheme :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkApplicationPreferDarkTheme :: Bool -> IO (GValueConstruct o)
constructSettingsGtkApplicationPreferDarkTheme val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-application-prefer-dark-theme" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkApplicationPreferDarkThemePropertyInfo
instance AttrInfo SettingsGtkApplicationPreferDarkThemePropertyInfo where
type AttrAllowedOps SettingsGtkApplicationPreferDarkThemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkApplicationPreferDarkThemePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkApplicationPreferDarkThemePropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkApplicationPreferDarkThemePropertyInfo = (~) Bool
type AttrTransferType SettingsGtkApplicationPreferDarkThemePropertyInfo = Bool
type AttrGetType SettingsGtkApplicationPreferDarkThemePropertyInfo = Bool
type AttrLabel SettingsGtkApplicationPreferDarkThemePropertyInfo = "gtk-application-prefer-dark-theme"
type AttrOrigin SettingsGtkApplicationPreferDarkThemePropertyInfo = Settings
attrGet = getSettingsGtkApplicationPreferDarkTheme
attrSet = setSettingsGtkApplicationPreferDarkTheme
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkApplicationPreferDarkTheme
attrClear = undefined
#endif
getSettingsGtkAutoMnemonics :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkAutoMnemonics :: o -> m Bool
getSettingsGtkAutoMnemonics obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-auto-mnemonics"
setSettingsGtkAutoMnemonics :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkAutoMnemonics :: o -> Bool -> m ()
setSettingsGtkAutoMnemonics obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-auto-mnemonics" Bool
val
constructSettingsGtkAutoMnemonics :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkAutoMnemonics :: Bool -> IO (GValueConstruct o)
constructSettingsGtkAutoMnemonics val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-auto-mnemonics" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkAutoMnemonicsPropertyInfo
instance AttrInfo SettingsGtkAutoMnemonicsPropertyInfo where
type AttrAllowedOps SettingsGtkAutoMnemonicsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkAutoMnemonicsPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkAutoMnemonicsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkAutoMnemonicsPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkAutoMnemonicsPropertyInfo = Bool
type AttrGetType SettingsGtkAutoMnemonicsPropertyInfo = Bool
type AttrLabel SettingsGtkAutoMnemonicsPropertyInfo = "gtk-auto-mnemonics"
type AttrOrigin SettingsGtkAutoMnemonicsPropertyInfo = Settings
attrGet = getSettingsGtkAutoMnemonics
attrSet = setSettingsGtkAutoMnemonics
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkAutoMnemonics
attrClear = undefined
#endif
getSettingsGtkButtonImages :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkButtonImages :: o -> m Bool
getSettingsGtkButtonImages obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-button-images"
setSettingsGtkButtonImages :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkButtonImages :: o -> Bool -> m ()
setSettingsGtkButtonImages obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-button-images" Bool
val
constructSettingsGtkButtonImages :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkButtonImages :: Bool -> IO (GValueConstruct o)
constructSettingsGtkButtonImages val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-button-images" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkButtonImagesPropertyInfo
instance AttrInfo SettingsGtkButtonImagesPropertyInfo where
type AttrAllowedOps SettingsGtkButtonImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkButtonImagesPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkButtonImagesPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkButtonImagesPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkButtonImagesPropertyInfo = Bool
type AttrGetType SettingsGtkButtonImagesPropertyInfo = Bool
type AttrLabel SettingsGtkButtonImagesPropertyInfo = "gtk-button-images"
type AttrOrigin SettingsGtkButtonImagesPropertyInfo = Settings
attrGet = getSettingsGtkButtonImages
attrSet = setSettingsGtkButtonImages
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkButtonImages
attrClear = undefined
#endif
getSettingsGtkCanChangeAccels :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkCanChangeAccels :: o -> m Bool
getSettingsGtkCanChangeAccels obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-can-change-accels"
setSettingsGtkCanChangeAccels :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkCanChangeAccels :: o -> Bool -> m ()
setSettingsGtkCanChangeAccels obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-can-change-accels" Bool
val
constructSettingsGtkCanChangeAccels :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkCanChangeAccels :: Bool -> IO (GValueConstruct o)
constructSettingsGtkCanChangeAccels val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-can-change-accels" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkCanChangeAccelsPropertyInfo
instance AttrInfo SettingsGtkCanChangeAccelsPropertyInfo where
type AttrAllowedOps SettingsGtkCanChangeAccelsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkCanChangeAccelsPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkCanChangeAccelsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkCanChangeAccelsPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkCanChangeAccelsPropertyInfo = Bool
type AttrGetType SettingsGtkCanChangeAccelsPropertyInfo = Bool
type AttrLabel SettingsGtkCanChangeAccelsPropertyInfo = "gtk-can-change-accels"
type AttrOrigin SettingsGtkCanChangeAccelsPropertyInfo = Settings
attrGet = getSettingsGtkCanChangeAccels
attrSet = setSettingsGtkCanChangeAccels
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkCanChangeAccels
attrClear = undefined
#endif
getSettingsGtkColorPalette :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkColorPalette :: o -> m (Maybe Text)
getSettingsGtkColorPalette obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-color-palette"
setSettingsGtkColorPalette :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkColorPalette :: o -> Text -> m ()
setSettingsGtkColorPalette obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-color-palette" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkColorPalette :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkColorPalette :: Text -> IO (GValueConstruct o)
constructSettingsGtkColorPalette val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-color-palette" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkColorPalette :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkColorPalette :: o -> m ()
clearSettingsGtkColorPalette obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-color-palette" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkColorPalettePropertyInfo
instance AttrInfo SettingsGtkColorPalettePropertyInfo where
type AttrAllowedOps SettingsGtkColorPalettePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkColorPalettePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkColorPalettePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkColorPalettePropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkColorPalettePropertyInfo = T.Text
type AttrGetType SettingsGtkColorPalettePropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkColorPalettePropertyInfo = "gtk-color-palette"
type AttrOrigin SettingsGtkColorPalettePropertyInfo = Settings
attrGet = getSettingsGtkColorPalette
attrSet = setSettingsGtkColorPalette
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkColorPalette
attrClear = clearSettingsGtkColorPalette
#endif
getSettingsGtkColorScheme :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkColorScheme :: o -> m (Maybe Text)
getSettingsGtkColorScheme obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-color-scheme"
setSettingsGtkColorScheme :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkColorScheme :: o -> Text -> m ()
setSettingsGtkColorScheme obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-color-scheme" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkColorScheme :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkColorScheme :: Text -> IO (GValueConstruct o)
constructSettingsGtkColorScheme val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-color-scheme" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkColorScheme :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkColorScheme :: o -> m ()
clearSettingsGtkColorScheme obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-color-scheme" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkColorSchemePropertyInfo
instance AttrInfo SettingsGtkColorSchemePropertyInfo where
type AttrAllowedOps SettingsGtkColorSchemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkColorSchemePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkColorSchemePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkColorSchemePropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkColorSchemePropertyInfo = T.Text
type AttrGetType SettingsGtkColorSchemePropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkColorSchemePropertyInfo = "gtk-color-scheme"
type AttrOrigin SettingsGtkColorSchemePropertyInfo = Settings
attrGet = getSettingsGtkColorScheme
attrSet = setSettingsGtkColorScheme
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkColorScheme
attrClear = clearSettingsGtkColorScheme
#endif
getSettingsGtkCursorBlink :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkCursorBlink :: o -> m Bool
getSettingsGtkCursorBlink obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-cursor-blink"
setSettingsGtkCursorBlink :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkCursorBlink :: o -> Bool -> m ()
setSettingsGtkCursorBlink obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-cursor-blink" Bool
val
constructSettingsGtkCursorBlink :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkCursorBlink :: Bool -> IO (GValueConstruct o)
constructSettingsGtkCursorBlink val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-cursor-blink" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkCursorBlinkPropertyInfo
instance AttrInfo SettingsGtkCursorBlinkPropertyInfo where
type AttrAllowedOps SettingsGtkCursorBlinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkCursorBlinkPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkCursorBlinkPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkCursorBlinkPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkCursorBlinkPropertyInfo = Bool
type AttrGetType SettingsGtkCursorBlinkPropertyInfo = Bool
type AttrLabel SettingsGtkCursorBlinkPropertyInfo = "gtk-cursor-blink"
type AttrOrigin SettingsGtkCursorBlinkPropertyInfo = Settings
attrGet = getSettingsGtkCursorBlink
attrSet = setSettingsGtkCursorBlink
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkCursorBlink
attrClear = undefined
#endif
getSettingsGtkCursorBlinkTime :: (MonadIO m, IsSettings o) => o -> m Int32
getSettingsGtkCursorBlinkTime :: o -> m Int32
getSettingsGtkCursorBlinkTime obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-cursor-blink-time"
setSettingsGtkCursorBlinkTime :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
setSettingsGtkCursorBlinkTime :: o -> Int32 -> m ()
setSettingsGtkCursorBlinkTime obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-cursor-blink-time" Int32
val
constructSettingsGtkCursorBlinkTime :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
constructSettingsGtkCursorBlinkTime :: Int32 -> IO (GValueConstruct o)
constructSettingsGtkCursorBlinkTime val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-cursor-blink-time" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkCursorBlinkTimePropertyInfo
instance AttrInfo SettingsGtkCursorBlinkTimePropertyInfo where
type AttrAllowedOps SettingsGtkCursorBlinkTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkCursorBlinkTimePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkCursorBlinkTimePropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkCursorBlinkTimePropertyInfo = (~) Int32
type AttrTransferType SettingsGtkCursorBlinkTimePropertyInfo = Int32
type AttrGetType SettingsGtkCursorBlinkTimePropertyInfo = Int32
type AttrLabel SettingsGtkCursorBlinkTimePropertyInfo = "gtk-cursor-blink-time"
type AttrOrigin SettingsGtkCursorBlinkTimePropertyInfo = Settings
attrGet = getSettingsGtkCursorBlinkTime
attrSet = setSettingsGtkCursorBlinkTime
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkCursorBlinkTime
attrClear = undefined
#endif
getSettingsGtkCursorBlinkTimeout :: (MonadIO m, IsSettings o) => o -> m Int32
getSettingsGtkCursorBlinkTimeout :: o -> m Int32
getSettingsGtkCursorBlinkTimeout obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-cursor-blink-timeout"
setSettingsGtkCursorBlinkTimeout :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
setSettingsGtkCursorBlinkTimeout :: o -> Int32 -> m ()
setSettingsGtkCursorBlinkTimeout obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-cursor-blink-timeout" Int32
val
constructSettingsGtkCursorBlinkTimeout :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
constructSettingsGtkCursorBlinkTimeout :: Int32 -> IO (GValueConstruct o)
constructSettingsGtkCursorBlinkTimeout val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-cursor-blink-timeout" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkCursorBlinkTimeoutPropertyInfo
instance AttrInfo SettingsGtkCursorBlinkTimeoutPropertyInfo where
type AttrAllowedOps SettingsGtkCursorBlinkTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkCursorBlinkTimeoutPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkCursorBlinkTimeoutPropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkCursorBlinkTimeoutPropertyInfo = (~) Int32
type AttrTransferType SettingsGtkCursorBlinkTimeoutPropertyInfo = Int32
type AttrGetType SettingsGtkCursorBlinkTimeoutPropertyInfo = Int32
type AttrLabel SettingsGtkCursorBlinkTimeoutPropertyInfo = "gtk-cursor-blink-timeout"
type AttrOrigin SettingsGtkCursorBlinkTimeoutPropertyInfo = Settings
attrGet = getSettingsGtkCursorBlinkTimeout
attrSet = setSettingsGtkCursorBlinkTimeout
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkCursorBlinkTimeout
attrClear = undefined
#endif
getSettingsGtkCursorThemeName :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkCursorThemeName :: o -> m (Maybe Text)
getSettingsGtkCursorThemeName obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-cursor-theme-name"
setSettingsGtkCursorThemeName :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkCursorThemeName :: o -> Text -> m ()
setSettingsGtkCursorThemeName obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-cursor-theme-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkCursorThemeName :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkCursorThemeName :: Text -> IO (GValueConstruct o)
constructSettingsGtkCursorThemeName val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-cursor-theme-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkCursorThemeName :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkCursorThemeName :: o -> m ()
clearSettingsGtkCursorThemeName obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-cursor-theme-name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkCursorThemeNamePropertyInfo
instance AttrInfo SettingsGtkCursorThemeNamePropertyInfo where
type AttrAllowedOps SettingsGtkCursorThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkCursorThemeNamePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkCursorThemeNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkCursorThemeNamePropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkCursorThemeNamePropertyInfo = T.Text
type AttrGetType SettingsGtkCursorThemeNamePropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkCursorThemeNamePropertyInfo = "gtk-cursor-theme-name"
type AttrOrigin SettingsGtkCursorThemeNamePropertyInfo = Settings
attrGet = getSettingsGtkCursorThemeName
attrSet = setSettingsGtkCursorThemeName
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkCursorThemeName
attrClear = clearSettingsGtkCursorThemeName
#endif
getSettingsGtkCursorThemeSize :: (MonadIO m, IsSettings o) => o -> m Int32
getSettingsGtkCursorThemeSize :: o -> m Int32
getSettingsGtkCursorThemeSize obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-cursor-theme-size"
setSettingsGtkCursorThemeSize :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
setSettingsGtkCursorThemeSize :: o -> Int32 -> m ()
setSettingsGtkCursorThemeSize obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-cursor-theme-size" Int32
val
constructSettingsGtkCursorThemeSize :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
constructSettingsGtkCursorThemeSize :: Int32 -> IO (GValueConstruct o)
constructSettingsGtkCursorThemeSize val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-cursor-theme-size" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkCursorThemeSizePropertyInfo
instance AttrInfo SettingsGtkCursorThemeSizePropertyInfo where
type AttrAllowedOps SettingsGtkCursorThemeSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkCursorThemeSizePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkCursorThemeSizePropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkCursorThemeSizePropertyInfo = (~) Int32
type AttrTransferType SettingsGtkCursorThemeSizePropertyInfo = Int32
type AttrGetType SettingsGtkCursorThemeSizePropertyInfo = Int32
type AttrLabel SettingsGtkCursorThemeSizePropertyInfo = "gtk-cursor-theme-size"
type AttrOrigin SettingsGtkCursorThemeSizePropertyInfo = Settings
attrGet = getSettingsGtkCursorThemeSize
attrSet = setSettingsGtkCursorThemeSize
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkCursorThemeSize
attrClear = undefined
#endif
getSettingsGtkDecorationLayout :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkDecorationLayout :: o -> m (Maybe Text)
getSettingsGtkDecorationLayout obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-decoration-layout"
setSettingsGtkDecorationLayout :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkDecorationLayout :: o -> Text -> m ()
setSettingsGtkDecorationLayout obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-decoration-layout" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkDecorationLayout :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkDecorationLayout :: Text -> IO (GValueConstruct o)
constructSettingsGtkDecorationLayout val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-decoration-layout" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkDecorationLayout :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkDecorationLayout :: o -> m ()
clearSettingsGtkDecorationLayout obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-decoration-layout" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkDecorationLayoutPropertyInfo
instance AttrInfo SettingsGtkDecorationLayoutPropertyInfo where
type AttrAllowedOps SettingsGtkDecorationLayoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkDecorationLayoutPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkDecorationLayoutPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkDecorationLayoutPropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkDecorationLayoutPropertyInfo = T.Text
type AttrGetType SettingsGtkDecorationLayoutPropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkDecorationLayoutPropertyInfo = "gtk-decoration-layout"
type AttrOrigin SettingsGtkDecorationLayoutPropertyInfo = Settings
attrGet = getSettingsGtkDecorationLayout
attrSet = setSettingsGtkDecorationLayout
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkDecorationLayout
attrClear = clearSettingsGtkDecorationLayout
#endif
getSettingsGtkDialogsUseHeader :: (MonadIO m, IsSettings o) => o -> m Bool
obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-dialogs-use-header"
setSettingsGtkDialogsUseHeader :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-dialogs-use-header" Bool
val
constructSettingsGtkDialogsUseHeader :: (IsSettings o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-dialogs-use-header" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkDialogsUseHeaderPropertyInfo
instance AttrInfo SettingsGtkDialogsUseHeaderPropertyInfo where
type AttrAllowedOps SettingsGtkDialogsUseHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkDialogsUseHeaderPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkDialogsUseHeaderPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkDialogsUseHeaderPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkDialogsUseHeaderPropertyInfo = Bool
type AttrGetType SettingsGtkDialogsUseHeaderPropertyInfo = Bool
type AttrLabel SettingsGtkDialogsUseHeaderPropertyInfo = "gtk-dialogs-use-header"
type AttrOrigin SettingsGtkDialogsUseHeaderPropertyInfo = Settings
attrGet = getSettingsGtkDialogsUseHeader
attrSet = setSettingsGtkDialogsUseHeader
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkDialogsUseHeader
attrClear = undefined
#endif
getSettingsGtkDndDragThreshold :: (MonadIO m, IsSettings o) => o -> m Int32
getSettingsGtkDndDragThreshold :: o -> m Int32
getSettingsGtkDndDragThreshold obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-dnd-drag-threshold"
setSettingsGtkDndDragThreshold :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
setSettingsGtkDndDragThreshold :: o -> Int32 -> m ()
setSettingsGtkDndDragThreshold obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-dnd-drag-threshold" Int32
val
constructSettingsGtkDndDragThreshold :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
constructSettingsGtkDndDragThreshold :: Int32 -> IO (GValueConstruct o)
constructSettingsGtkDndDragThreshold val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-dnd-drag-threshold" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkDndDragThresholdPropertyInfo
instance AttrInfo SettingsGtkDndDragThresholdPropertyInfo where
type AttrAllowedOps SettingsGtkDndDragThresholdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkDndDragThresholdPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkDndDragThresholdPropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkDndDragThresholdPropertyInfo = (~) Int32
type AttrTransferType SettingsGtkDndDragThresholdPropertyInfo = Int32
type AttrGetType SettingsGtkDndDragThresholdPropertyInfo = Int32
type AttrLabel SettingsGtkDndDragThresholdPropertyInfo = "gtk-dnd-drag-threshold"
type AttrOrigin SettingsGtkDndDragThresholdPropertyInfo = Settings
attrGet = getSettingsGtkDndDragThreshold
attrSet = setSettingsGtkDndDragThreshold
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkDndDragThreshold
attrClear = undefined
#endif
getSettingsGtkDoubleClickDistance :: (MonadIO m, IsSettings o) => o -> m Int32
getSettingsGtkDoubleClickDistance :: o -> m Int32
getSettingsGtkDoubleClickDistance obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-double-click-distance"
setSettingsGtkDoubleClickDistance :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
setSettingsGtkDoubleClickDistance :: o -> Int32 -> m ()
setSettingsGtkDoubleClickDistance obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-double-click-distance" Int32
val
constructSettingsGtkDoubleClickDistance :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
constructSettingsGtkDoubleClickDistance :: Int32 -> IO (GValueConstruct o)
constructSettingsGtkDoubleClickDistance val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-double-click-distance" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkDoubleClickDistancePropertyInfo
instance AttrInfo SettingsGtkDoubleClickDistancePropertyInfo where
type AttrAllowedOps SettingsGtkDoubleClickDistancePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkDoubleClickDistancePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkDoubleClickDistancePropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkDoubleClickDistancePropertyInfo = (~) Int32
type AttrTransferType SettingsGtkDoubleClickDistancePropertyInfo = Int32
type AttrGetType SettingsGtkDoubleClickDistancePropertyInfo = Int32
type AttrLabel SettingsGtkDoubleClickDistancePropertyInfo = "gtk-double-click-distance"
type AttrOrigin SettingsGtkDoubleClickDistancePropertyInfo = Settings
attrGet = getSettingsGtkDoubleClickDistance
attrSet = setSettingsGtkDoubleClickDistance
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkDoubleClickDistance
attrClear = undefined
#endif
getSettingsGtkDoubleClickTime :: (MonadIO m, IsSettings o) => o -> m Int32
getSettingsGtkDoubleClickTime :: o -> m Int32
getSettingsGtkDoubleClickTime obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-double-click-time"
setSettingsGtkDoubleClickTime :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
setSettingsGtkDoubleClickTime :: o -> Int32 -> m ()
setSettingsGtkDoubleClickTime obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-double-click-time" Int32
val
constructSettingsGtkDoubleClickTime :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
constructSettingsGtkDoubleClickTime :: Int32 -> IO (GValueConstruct o)
constructSettingsGtkDoubleClickTime val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-double-click-time" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkDoubleClickTimePropertyInfo
instance AttrInfo SettingsGtkDoubleClickTimePropertyInfo where
type AttrAllowedOps SettingsGtkDoubleClickTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkDoubleClickTimePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkDoubleClickTimePropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkDoubleClickTimePropertyInfo = (~) Int32
type AttrTransferType SettingsGtkDoubleClickTimePropertyInfo = Int32
type AttrGetType SettingsGtkDoubleClickTimePropertyInfo = Int32
type AttrLabel SettingsGtkDoubleClickTimePropertyInfo = "gtk-double-click-time"
type AttrOrigin SettingsGtkDoubleClickTimePropertyInfo = Settings
attrGet = getSettingsGtkDoubleClickTime
attrSet = setSettingsGtkDoubleClickTime
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkDoubleClickTime
attrClear = undefined
#endif
getSettingsGtkEnableAccels :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkEnableAccels :: o -> m Bool
getSettingsGtkEnableAccels obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-enable-accels"
setSettingsGtkEnableAccels :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkEnableAccels :: o -> Bool -> m ()
setSettingsGtkEnableAccels obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-enable-accels" Bool
val
constructSettingsGtkEnableAccels :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkEnableAccels :: Bool -> IO (GValueConstruct o)
constructSettingsGtkEnableAccels val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-enable-accels" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkEnableAccelsPropertyInfo
instance AttrInfo SettingsGtkEnableAccelsPropertyInfo where
type AttrAllowedOps SettingsGtkEnableAccelsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkEnableAccelsPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkEnableAccelsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkEnableAccelsPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkEnableAccelsPropertyInfo = Bool
type AttrGetType SettingsGtkEnableAccelsPropertyInfo = Bool
type AttrLabel SettingsGtkEnableAccelsPropertyInfo = "gtk-enable-accels"
type AttrOrigin SettingsGtkEnableAccelsPropertyInfo = Settings
attrGet = getSettingsGtkEnableAccels
attrSet = setSettingsGtkEnableAccels
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkEnableAccels
attrClear = undefined
#endif
getSettingsGtkEnableAnimations :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkEnableAnimations :: o -> m Bool
getSettingsGtkEnableAnimations obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-enable-animations"
setSettingsGtkEnableAnimations :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkEnableAnimations :: o -> Bool -> m ()
setSettingsGtkEnableAnimations obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-enable-animations" Bool
val
constructSettingsGtkEnableAnimations :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkEnableAnimations :: Bool -> IO (GValueConstruct o)
constructSettingsGtkEnableAnimations val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-enable-animations" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkEnableAnimationsPropertyInfo
instance AttrInfo SettingsGtkEnableAnimationsPropertyInfo where
type AttrAllowedOps SettingsGtkEnableAnimationsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkEnableAnimationsPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkEnableAnimationsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkEnableAnimationsPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkEnableAnimationsPropertyInfo = Bool
type AttrGetType SettingsGtkEnableAnimationsPropertyInfo = Bool
type AttrLabel SettingsGtkEnableAnimationsPropertyInfo = "gtk-enable-animations"
type AttrOrigin SettingsGtkEnableAnimationsPropertyInfo = Settings
attrGet = getSettingsGtkEnableAnimations
attrSet = setSettingsGtkEnableAnimations
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkEnableAnimations
attrClear = undefined
#endif
getSettingsGtkEnableEventSounds :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkEnableEventSounds :: o -> m Bool
getSettingsGtkEnableEventSounds obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-enable-event-sounds"
setSettingsGtkEnableEventSounds :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkEnableEventSounds :: o -> Bool -> m ()
setSettingsGtkEnableEventSounds obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-enable-event-sounds" Bool
val
constructSettingsGtkEnableEventSounds :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkEnableEventSounds :: Bool -> IO (GValueConstruct o)
constructSettingsGtkEnableEventSounds val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-enable-event-sounds" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkEnableEventSoundsPropertyInfo
instance AttrInfo SettingsGtkEnableEventSoundsPropertyInfo where
type AttrAllowedOps SettingsGtkEnableEventSoundsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkEnableEventSoundsPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkEnableEventSoundsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkEnableEventSoundsPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkEnableEventSoundsPropertyInfo = Bool
type AttrGetType SettingsGtkEnableEventSoundsPropertyInfo = Bool
type AttrLabel SettingsGtkEnableEventSoundsPropertyInfo = "gtk-enable-event-sounds"
type AttrOrigin SettingsGtkEnableEventSoundsPropertyInfo = Settings
attrGet = getSettingsGtkEnableEventSounds
attrSet = setSettingsGtkEnableEventSounds
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkEnableEventSounds
attrClear = undefined
#endif
getSettingsGtkEnableInputFeedbackSounds :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkEnableInputFeedbackSounds :: o -> m Bool
getSettingsGtkEnableInputFeedbackSounds obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-enable-input-feedback-sounds"
setSettingsGtkEnableInputFeedbackSounds :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkEnableInputFeedbackSounds :: o -> Bool -> m ()
setSettingsGtkEnableInputFeedbackSounds obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-enable-input-feedback-sounds" Bool
val
constructSettingsGtkEnableInputFeedbackSounds :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkEnableInputFeedbackSounds :: Bool -> IO (GValueConstruct o)
constructSettingsGtkEnableInputFeedbackSounds val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-enable-input-feedback-sounds" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkEnableInputFeedbackSoundsPropertyInfo
instance AttrInfo SettingsGtkEnableInputFeedbackSoundsPropertyInfo where
type AttrAllowedOps SettingsGtkEnableInputFeedbackSoundsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkEnableInputFeedbackSoundsPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkEnableInputFeedbackSoundsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkEnableInputFeedbackSoundsPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkEnableInputFeedbackSoundsPropertyInfo = Bool
type AttrGetType SettingsGtkEnableInputFeedbackSoundsPropertyInfo = Bool
type AttrLabel SettingsGtkEnableInputFeedbackSoundsPropertyInfo = "gtk-enable-input-feedback-sounds"
type AttrOrigin SettingsGtkEnableInputFeedbackSoundsPropertyInfo = Settings
attrGet = getSettingsGtkEnableInputFeedbackSounds
attrSet = setSettingsGtkEnableInputFeedbackSounds
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkEnableInputFeedbackSounds
attrClear = undefined
#endif
getSettingsGtkEnableMnemonics :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkEnableMnemonics :: o -> m Bool
getSettingsGtkEnableMnemonics obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-enable-mnemonics"
setSettingsGtkEnableMnemonics :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkEnableMnemonics :: o -> Bool -> m ()
setSettingsGtkEnableMnemonics obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-enable-mnemonics" Bool
val
constructSettingsGtkEnableMnemonics :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkEnableMnemonics :: Bool -> IO (GValueConstruct o)
constructSettingsGtkEnableMnemonics val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-enable-mnemonics" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkEnableMnemonicsPropertyInfo
instance AttrInfo SettingsGtkEnableMnemonicsPropertyInfo where
type AttrAllowedOps SettingsGtkEnableMnemonicsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkEnableMnemonicsPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkEnableMnemonicsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkEnableMnemonicsPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkEnableMnemonicsPropertyInfo = Bool
type AttrGetType SettingsGtkEnableMnemonicsPropertyInfo = Bool
type AttrLabel SettingsGtkEnableMnemonicsPropertyInfo = "gtk-enable-mnemonics"
type AttrOrigin SettingsGtkEnableMnemonicsPropertyInfo = Settings
attrGet = getSettingsGtkEnableMnemonics
attrSet = setSettingsGtkEnableMnemonics
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkEnableMnemonics
attrClear = undefined
#endif
getSettingsGtkEnablePrimaryPaste :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkEnablePrimaryPaste :: o -> m Bool
getSettingsGtkEnablePrimaryPaste obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-enable-primary-paste"
setSettingsGtkEnablePrimaryPaste :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkEnablePrimaryPaste :: o -> Bool -> m ()
setSettingsGtkEnablePrimaryPaste obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-enable-primary-paste" Bool
val
constructSettingsGtkEnablePrimaryPaste :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkEnablePrimaryPaste :: Bool -> IO (GValueConstruct o)
constructSettingsGtkEnablePrimaryPaste val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-enable-primary-paste" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkEnablePrimaryPastePropertyInfo
instance AttrInfo SettingsGtkEnablePrimaryPastePropertyInfo where
type AttrAllowedOps SettingsGtkEnablePrimaryPastePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkEnablePrimaryPastePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkEnablePrimaryPastePropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkEnablePrimaryPastePropertyInfo = (~) Bool
type AttrTransferType SettingsGtkEnablePrimaryPastePropertyInfo = Bool
type AttrGetType SettingsGtkEnablePrimaryPastePropertyInfo = Bool
type AttrLabel SettingsGtkEnablePrimaryPastePropertyInfo = "gtk-enable-primary-paste"
type AttrOrigin SettingsGtkEnablePrimaryPastePropertyInfo = Settings
attrGet = getSettingsGtkEnablePrimaryPaste
attrSet = setSettingsGtkEnablePrimaryPaste
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkEnablePrimaryPaste
attrClear = undefined
#endif
getSettingsGtkEnableTooltips :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkEnableTooltips :: o -> m Bool
getSettingsGtkEnableTooltips obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-enable-tooltips"
setSettingsGtkEnableTooltips :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkEnableTooltips :: o -> Bool -> m ()
setSettingsGtkEnableTooltips obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-enable-tooltips" Bool
val
constructSettingsGtkEnableTooltips :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkEnableTooltips :: Bool -> IO (GValueConstruct o)
constructSettingsGtkEnableTooltips val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-enable-tooltips" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkEnableTooltipsPropertyInfo
instance AttrInfo SettingsGtkEnableTooltipsPropertyInfo where
type AttrAllowedOps SettingsGtkEnableTooltipsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkEnableTooltipsPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkEnableTooltipsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkEnableTooltipsPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkEnableTooltipsPropertyInfo = Bool
type AttrGetType SettingsGtkEnableTooltipsPropertyInfo = Bool
type AttrLabel SettingsGtkEnableTooltipsPropertyInfo = "gtk-enable-tooltips"
type AttrOrigin SettingsGtkEnableTooltipsPropertyInfo = Settings
attrGet = getSettingsGtkEnableTooltips
attrSet = setSettingsGtkEnableTooltips
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkEnableTooltips
attrClear = undefined
#endif
getSettingsGtkEntryPasswordHintTimeout :: (MonadIO m, IsSettings o) => o -> m Word32
getSettingsGtkEntryPasswordHintTimeout :: o -> m Word32
getSettingsGtkEntryPasswordHintTimeout obj :: o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "gtk-entry-password-hint-timeout"
setSettingsGtkEntryPasswordHintTimeout :: (MonadIO m, IsSettings o) => o -> Word32 -> m ()
setSettingsGtkEntryPasswordHintTimeout :: o -> Word32 -> m ()
setSettingsGtkEntryPasswordHintTimeout obj :: o
obj val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj "gtk-entry-password-hint-timeout" Word32
val
constructSettingsGtkEntryPasswordHintTimeout :: (IsSettings o) => Word32 -> IO (GValueConstruct o)
constructSettingsGtkEntryPasswordHintTimeout :: Word32 -> IO (GValueConstruct o)
constructSettingsGtkEntryPasswordHintTimeout val :: Word32
val = String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 "gtk-entry-password-hint-timeout" Word32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkEntryPasswordHintTimeoutPropertyInfo
instance AttrInfo SettingsGtkEntryPasswordHintTimeoutPropertyInfo where
type AttrAllowedOps SettingsGtkEntryPasswordHintTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkEntryPasswordHintTimeoutPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkEntryPasswordHintTimeoutPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingsGtkEntryPasswordHintTimeoutPropertyInfo = (~) Word32
type AttrTransferType SettingsGtkEntryPasswordHintTimeoutPropertyInfo = Word32
type AttrGetType SettingsGtkEntryPasswordHintTimeoutPropertyInfo = Word32
type AttrLabel SettingsGtkEntryPasswordHintTimeoutPropertyInfo = "gtk-entry-password-hint-timeout"
type AttrOrigin SettingsGtkEntryPasswordHintTimeoutPropertyInfo = Settings
attrGet = getSettingsGtkEntryPasswordHintTimeout
attrSet = setSettingsGtkEntryPasswordHintTimeout
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkEntryPasswordHintTimeout
attrClear = undefined
#endif
getSettingsGtkEntrySelectOnFocus :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkEntrySelectOnFocus :: o -> m Bool
getSettingsGtkEntrySelectOnFocus obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-entry-select-on-focus"
setSettingsGtkEntrySelectOnFocus :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkEntrySelectOnFocus :: o -> Bool -> m ()
setSettingsGtkEntrySelectOnFocus obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-entry-select-on-focus" Bool
val
constructSettingsGtkEntrySelectOnFocus :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkEntrySelectOnFocus :: Bool -> IO (GValueConstruct o)
constructSettingsGtkEntrySelectOnFocus val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-entry-select-on-focus" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkEntrySelectOnFocusPropertyInfo
instance AttrInfo SettingsGtkEntrySelectOnFocusPropertyInfo where
type AttrAllowedOps SettingsGtkEntrySelectOnFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkEntrySelectOnFocusPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkEntrySelectOnFocusPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkEntrySelectOnFocusPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkEntrySelectOnFocusPropertyInfo = Bool
type AttrGetType SettingsGtkEntrySelectOnFocusPropertyInfo = Bool
type AttrLabel SettingsGtkEntrySelectOnFocusPropertyInfo = "gtk-entry-select-on-focus"
type AttrOrigin SettingsGtkEntrySelectOnFocusPropertyInfo = Settings
attrGet = getSettingsGtkEntrySelectOnFocus
attrSet = setSettingsGtkEntrySelectOnFocus
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkEntrySelectOnFocus
attrClear = undefined
#endif
getSettingsGtkErrorBell :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkErrorBell :: o -> m Bool
getSettingsGtkErrorBell obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-error-bell"
setSettingsGtkErrorBell :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkErrorBell :: o -> Bool -> m ()
setSettingsGtkErrorBell obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-error-bell" Bool
val
constructSettingsGtkErrorBell :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkErrorBell :: Bool -> IO (GValueConstruct o)
constructSettingsGtkErrorBell val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-error-bell" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkErrorBellPropertyInfo
instance AttrInfo SettingsGtkErrorBellPropertyInfo where
type AttrAllowedOps SettingsGtkErrorBellPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkErrorBellPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkErrorBellPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkErrorBellPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkErrorBellPropertyInfo = Bool
type AttrGetType SettingsGtkErrorBellPropertyInfo = Bool
type AttrLabel SettingsGtkErrorBellPropertyInfo = "gtk-error-bell"
type AttrOrigin SettingsGtkErrorBellPropertyInfo = Settings
attrGet = getSettingsGtkErrorBell
attrSet = setSettingsGtkErrorBell
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkErrorBell
attrClear = undefined
#endif
getSettingsGtkFallbackIconTheme :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkFallbackIconTheme :: o -> m (Maybe Text)
getSettingsGtkFallbackIconTheme obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-fallback-icon-theme"
setSettingsGtkFallbackIconTheme :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkFallbackIconTheme :: o -> Text -> m ()
setSettingsGtkFallbackIconTheme obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-fallback-icon-theme" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkFallbackIconTheme :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkFallbackIconTheme :: Text -> IO (GValueConstruct o)
constructSettingsGtkFallbackIconTheme val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-fallback-icon-theme" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkFallbackIconTheme :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkFallbackIconTheme :: o -> m ()
clearSettingsGtkFallbackIconTheme obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-fallback-icon-theme" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkFallbackIconThemePropertyInfo
instance AttrInfo SettingsGtkFallbackIconThemePropertyInfo where
type AttrAllowedOps SettingsGtkFallbackIconThemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkFallbackIconThemePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkFallbackIconThemePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkFallbackIconThemePropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkFallbackIconThemePropertyInfo = T.Text
type AttrGetType SettingsGtkFallbackIconThemePropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkFallbackIconThemePropertyInfo = "gtk-fallback-icon-theme"
type AttrOrigin SettingsGtkFallbackIconThemePropertyInfo = Settings
attrGet = getSettingsGtkFallbackIconTheme
attrSet = setSettingsGtkFallbackIconTheme
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkFallbackIconTheme
attrClear = clearSettingsGtkFallbackIconTheme
#endif
getSettingsGtkFileChooserBackend :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkFileChooserBackend :: o -> m (Maybe Text)
getSettingsGtkFileChooserBackend obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-file-chooser-backend"
setSettingsGtkFileChooserBackend :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkFileChooserBackend :: o -> Text -> m ()
setSettingsGtkFileChooserBackend obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-file-chooser-backend" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkFileChooserBackend :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkFileChooserBackend :: Text -> IO (GValueConstruct o)
constructSettingsGtkFileChooserBackend val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-file-chooser-backend" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkFileChooserBackend :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkFileChooserBackend :: o -> m ()
clearSettingsGtkFileChooserBackend obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-file-chooser-backend" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkFileChooserBackendPropertyInfo
instance AttrInfo SettingsGtkFileChooserBackendPropertyInfo where
type AttrAllowedOps SettingsGtkFileChooserBackendPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkFileChooserBackendPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkFileChooserBackendPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkFileChooserBackendPropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkFileChooserBackendPropertyInfo = T.Text
type AttrGetType SettingsGtkFileChooserBackendPropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkFileChooserBackendPropertyInfo = "gtk-file-chooser-backend"
type AttrOrigin SettingsGtkFileChooserBackendPropertyInfo = Settings
attrGet = getSettingsGtkFileChooserBackend
attrSet = setSettingsGtkFileChooserBackend
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkFileChooserBackend
attrClear = clearSettingsGtkFileChooserBackend
#endif
getSettingsGtkFontName :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkFontName :: o -> m (Maybe Text)
getSettingsGtkFontName obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-font-name"
setSettingsGtkFontName :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkFontName :: o -> Text -> m ()
setSettingsGtkFontName obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-font-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkFontName :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkFontName :: Text -> IO (GValueConstruct o)
constructSettingsGtkFontName val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-font-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkFontName :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkFontName :: o -> m ()
clearSettingsGtkFontName obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-font-name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkFontNamePropertyInfo
instance AttrInfo SettingsGtkFontNamePropertyInfo where
type AttrAllowedOps SettingsGtkFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkFontNamePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkFontNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkFontNamePropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkFontNamePropertyInfo = T.Text
type AttrGetType SettingsGtkFontNamePropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkFontNamePropertyInfo = "gtk-font-name"
type AttrOrigin SettingsGtkFontNamePropertyInfo = Settings
attrGet = getSettingsGtkFontName
attrSet = setSettingsGtkFontName
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkFontName
attrClear = clearSettingsGtkFontName
#endif
getSettingsGtkFontconfigTimestamp :: (MonadIO m, IsSettings o) => o -> m Word32
getSettingsGtkFontconfigTimestamp :: o -> m Word32
getSettingsGtkFontconfigTimestamp obj :: o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "gtk-fontconfig-timestamp"
setSettingsGtkFontconfigTimestamp :: (MonadIO m, IsSettings o) => o -> Word32 -> m ()
setSettingsGtkFontconfigTimestamp :: o -> Word32 -> m ()
setSettingsGtkFontconfigTimestamp obj :: o
obj val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj "gtk-fontconfig-timestamp" Word32
val
constructSettingsGtkFontconfigTimestamp :: (IsSettings o) => Word32 -> IO (GValueConstruct o)
constructSettingsGtkFontconfigTimestamp :: Word32 -> IO (GValueConstruct o)
constructSettingsGtkFontconfigTimestamp val :: Word32
val = String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 "gtk-fontconfig-timestamp" Word32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkFontconfigTimestampPropertyInfo
instance AttrInfo SettingsGtkFontconfigTimestampPropertyInfo where
type AttrAllowedOps SettingsGtkFontconfigTimestampPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkFontconfigTimestampPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkFontconfigTimestampPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingsGtkFontconfigTimestampPropertyInfo = (~) Word32
type AttrTransferType SettingsGtkFontconfigTimestampPropertyInfo = Word32
type AttrGetType SettingsGtkFontconfigTimestampPropertyInfo = Word32
type AttrLabel SettingsGtkFontconfigTimestampPropertyInfo = "gtk-fontconfig-timestamp"
type AttrOrigin SettingsGtkFontconfigTimestampPropertyInfo = Settings
attrGet = getSettingsGtkFontconfigTimestamp
attrSet = setSettingsGtkFontconfigTimestamp
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkFontconfigTimestamp
attrClear = undefined
#endif
getSettingsGtkIconSizes :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkIconSizes :: o -> m (Maybe Text)
getSettingsGtkIconSizes obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-icon-sizes"
setSettingsGtkIconSizes :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkIconSizes :: o -> Text -> m ()
setSettingsGtkIconSizes obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-icon-sizes" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkIconSizes :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkIconSizes :: Text -> IO (GValueConstruct o)
constructSettingsGtkIconSizes val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-icon-sizes" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkIconSizes :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkIconSizes :: o -> m ()
clearSettingsGtkIconSizes obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-icon-sizes" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkIconSizesPropertyInfo
instance AttrInfo SettingsGtkIconSizesPropertyInfo where
type AttrAllowedOps SettingsGtkIconSizesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkIconSizesPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkIconSizesPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkIconSizesPropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkIconSizesPropertyInfo = T.Text
type AttrGetType SettingsGtkIconSizesPropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkIconSizesPropertyInfo = "gtk-icon-sizes"
type AttrOrigin SettingsGtkIconSizesPropertyInfo = Settings
attrGet = getSettingsGtkIconSizes
attrSet = setSettingsGtkIconSizes
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkIconSizes
attrClear = clearSettingsGtkIconSizes
#endif
getSettingsGtkIconThemeName :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkIconThemeName :: o -> m (Maybe Text)
getSettingsGtkIconThemeName obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-icon-theme-name"
setSettingsGtkIconThemeName :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkIconThemeName :: o -> Text -> m ()
setSettingsGtkIconThemeName obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-icon-theme-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkIconThemeName :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkIconThemeName :: Text -> IO (GValueConstruct o)
constructSettingsGtkIconThemeName val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-icon-theme-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkIconThemeName :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkIconThemeName :: o -> m ()
clearSettingsGtkIconThemeName obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-icon-theme-name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkIconThemeNamePropertyInfo
instance AttrInfo SettingsGtkIconThemeNamePropertyInfo where
type AttrAllowedOps SettingsGtkIconThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkIconThemeNamePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkIconThemeNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkIconThemeNamePropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkIconThemeNamePropertyInfo = T.Text
type AttrGetType SettingsGtkIconThemeNamePropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkIconThemeNamePropertyInfo = "gtk-icon-theme-name"
type AttrOrigin SettingsGtkIconThemeNamePropertyInfo = Settings
attrGet = getSettingsGtkIconThemeName
attrSet = setSettingsGtkIconThemeName
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkIconThemeName
attrClear = clearSettingsGtkIconThemeName
#endif
getSettingsGtkImModule :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkImModule :: o -> m (Maybe Text)
getSettingsGtkImModule obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-im-module"
setSettingsGtkImModule :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkImModule :: o -> Text -> m ()
setSettingsGtkImModule obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-im-module" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkImModule :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkImModule :: Text -> IO (GValueConstruct o)
constructSettingsGtkImModule val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-im-module" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkImModule :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkImModule :: o -> m ()
clearSettingsGtkImModule obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-im-module" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkImModulePropertyInfo
instance AttrInfo SettingsGtkImModulePropertyInfo where
type AttrAllowedOps SettingsGtkImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkImModulePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkImModulePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkImModulePropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkImModulePropertyInfo = T.Text
type AttrGetType SettingsGtkImModulePropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkImModulePropertyInfo = "gtk-im-module"
type AttrOrigin SettingsGtkImModulePropertyInfo = Settings
attrGet = getSettingsGtkImModule
attrSet = setSettingsGtkImModule
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkImModule
attrClear = clearSettingsGtkImModule
#endif
getSettingsGtkImPreeditStyle :: (MonadIO m, IsSettings o) => o -> m Gtk.Enums.IMPreeditStyle
getSettingsGtkImPreeditStyle :: o -> m IMPreeditStyle
getSettingsGtkImPreeditStyle obj :: o
obj = IO IMPreeditStyle -> m IMPreeditStyle
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO IMPreeditStyle -> m IMPreeditStyle)
-> IO IMPreeditStyle -> m IMPreeditStyle
forall a b. (a -> b) -> a -> b
$ o -> String -> IO IMPreeditStyle
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "gtk-im-preedit-style"
setSettingsGtkImPreeditStyle :: (MonadIO m, IsSettings o) => o -> Gtk.Enums.IMPreeditStyle -> m ()
setSettingsGtkImPreeditStyle :: o -> IMPreeditStyle -> m ()
setSettingsGtkImPreeditStyle obj :: o
obj val :: IMPreeditStyle
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> IMPreeditStyle -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "gtk-im-preedit-style" IMPreeditStyle
val
constructSettingsGtkImPreeditStyle :: (IsSettings o) => Gtk.Enums.IMPreeditStyle -> IO (GValueConstruct o)
constructSettingsGtkImPreeditStyle :: IMPreeditStyle -> IO (GValueConstruct o)
constructSettingsGtkImPreeditStyle val :: IMPreeditStyle
val = String -> IMPreeditStyle -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "gtk-im-preedit-style" IMPreeditStyle
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkImPreeditStylePropertyInfo
instance AttrInfo SettingsGtkImPreeditStylePropertyInfo where
type AttrAllowedOps SettingsGtkImPreeditStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkImPreeditStylePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkImPreeditStylePropertyInfo = (~) Gtk.Enums.IMPreeditStyle
type AttrTransferTypeConstraint SettingsGtkImPreeditStylePropertyInfo = (~) Gtk.Enums.IMPreeditStyle
type AttrTransferType SettingsGtkImPreeditStylePropertyInfo = Gtk.Enums.IMPreeditStyle
type AttrGetType SettingsGtkImPreeditStylePropertyInfo = Gtk.Enums.IMPreeditStyle
type AttrLabel SettingsGtkImPreeditStylePropertyInfo = "gtk-im-preedit-style"
type AttrOrigin SettingsGtkImPreeditStylePropertyInfo = Settings
attrGet = getSettingsGtkImPreeditStyle
attrSet = setSettingsGtkImPreeditStyle
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkImPreeditStyle
attrClear = undefined
#endif
getSettingsGtkImStatusStyle :: (MonadIO m, IsSettings o) => o -> m Gtk.Enums.IMStatusStyle
getSettingsGtkImStatusStyle :: o -> m IMStatusStyle
getSettingsGtkImStatusStyle obj :: o
obj = IO IMStatusStyle -> m IMStatusStyle
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO IMStatusStyle -> m IMStatusStyle)
-> IO IMStatusStyle -> m IMStatusStyle
forall a b. (a -> b) -> a -> b
$ o -> String -> IO IMStatusStyle
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "gtk-im-status-style"
setSettingsGtkImStatusStyle :: (MonadIO m, IsSettings o) => o -> Gtk.Enums.IMStatusStyle -> m ()
setSettingsGtkImStatusStyle :: o -> IMStatusStyle -> m ()
setSettingsGtkImStatusStyle obj :: o
obj val :: IMStatusStyle
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> IMStatusStyle -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "gtk-im-status-style" IMStatusStyle
val
constructSettingsGtkImStatusStyle :: (IsSettings o) => Gtk.Enums.IMStatusStyle -> IO (GValueConstruct o)
constructSettingsGtkImStatusStyle :: IMStatusStyle -> IO (GValueConstruct o)
constructSettingsGtkImStatusStyle val :: IMStatusStyle
val = String -> IMStatusStyle -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "gtk-im-status-style" IMStatusStyle
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkImStatusStylePropertyInfo
instance AttrInfo SettingsGtkImStatusStylePropertyInfo where
type AttrAllowedOps SettingsGtkImStatusStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkImStatusStylePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkImStatusStylePropertyInfo = (~) Gtk.Enums.IMStatusStyle
type AttrTransferTypeConstraint SettingsGtkImStatusStylePropertyInfo = (~) Gtk.Enums.IMStatusStyle
type AttrTransferType SettingsGtkImStatusStylePropertyInfo = Gtk.Enums.IMStatusStyle
type AttrGetType SettingsGtkImStatusStylePropertyInfo = Gtk.Enums.IMStatusStyle
type AttrLabel SettingsGtkImStatusStylePropertyInfo = "gtk-im-status-style"
type AttrOrigin SettingsGtkImStatusStylePropertyInfo = Settings
attrGet = getSettingsGtkImStatusStyle
attrSet = setSettingsGtkImStatusStyle
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkImStatusStyle
attrClear = undefined
#endif
getSettingsGtkKeyThemeName :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkKeyThemeName :: o -> m (Maybe Text)
getSettingsGtkKeyThemeName obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-key-theme-name"
setSettingsGtkKeyThemeName :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkKeyThemeName :: o -> Text -> m ()
setSettingsGtkKeyThemeName obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-key-theme-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkKeyThemeName :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkKeyThemeName :: Text -> IO (GValueConstruct o)
constructSettingsGtkKeyThemeName val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-key-theme-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkKeyThemeName :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkKeyThemeName :: o -> m ()
clearSettingsGtkKeyThemeName obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-key-theme-name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkKeyThemeNamePropertyInfo
instance AttrInfo SettingsGtkKeyThemeNamePropertyInfo where
type AttrAllowedOps SettingsGtkKeyThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkKeyThemeNamePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkKeyThemeNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkKeyThemeNamePropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkKeyThemeNamePropertyInfo = T.Text
type AttrGetType SettingsGtkKeyThemeNamePropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkKeyThemeNamePropertyInfo = "gtk-key-theme-name"
type AttrOrigin SettingsGtkKeyThemeNamePropertyInfo = Settings
attrGet = getSettingsGtkKeyThemeName
attrSet = setSettingsGtkKeyThemeName
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkKeyThemeName
attrClear = clearSettingsGtkKeyThemeName
#endif
getSettingsGtkKeynavCursorOnly :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkKeynavCursorOnly :: o -> m Bool
getSettingsGtkKeynavCursorOnly obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-keynav-cursor-only"
setSettingsGtkKeynavCursorOnly :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkKeynavCursorOnly :: o -> Bool -> m ()
setSettingsGtkKeynavCursorOnly obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-keynav-cursor-only" Bool
val
constructSettingsGtkKeynavCursorOnly :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkKeynavCursorOnly :: Bool -> IO (GValueConstruct o)
constructSettingsGtkKeynavCursorOnly val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-keynav-cursor-only" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkKeynavCursorOnlyPropertyInfo
instance AttrInfo SettingsGtkKeynavCursorOnlyPropertyInfo where
type AttrAllowedOps SettingsGtkKeynavCursorOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkKeynavCursorOnlyPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkKeynavCursorOnlyPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkKeynavCursorOnlyPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkKeynavCursorOnlyPropertyInfo = Bool
type AttrGetType SettingsGtkKeynavCursorOnlyPropertyInfo = Bool
type AttrLabel SettingsGtkKeynavCursorOnlyPropertyInfo = "gtk-keynav-cursor-only"
type AttrOrigin SettingsGtkKeynavCursorOnlyPropertyInfo = Settings
attrGet = getSettingsGtkKeynavCursorOnly
attrSet = setSettingsGtkKeynavCursorOnly
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkKeynavCursorOnly
attrClear = undefined
#endif
getSettingsGtkKeynavUseCaret :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkKeynavUseCaret :: o -> m Bool
getSettingsGtkKeynavUseCaret obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-keynav-use-caret"
setSettingsGtkKeynavUseCaret :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkKeynavUseCaret :: o -> Bool -> m ()
setSettingsGtkKeynavUseCaret obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-keynav-use-caret" Bool
val
constructSettingsGtkKeynavUseCaret :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkKeynavUseCaret :: Bool -> IO (GValueConstruct o)
constructSettingsGtkKeynavUseCaret val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-keynav-use-caret" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkKeynavUseCaretPropertyInfo
instance AttrInfo SettingsGtkKeynavUseCaretPropertyInfo where
type AttrAllowedOps SettingsGtkKeynavUseCaretPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkKeynavUseCaretPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkKeynavUseCaretPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkKeynavUseCaretPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkKeynavUseCaretPropertyInfo = Bool
type AttrGetType SettingsGtkKeynavUseCaretPropertyInfo = Bool
type AttrLabel SettingsGtkKeynavUseCaretPropertyInfo = "gtk-keynav-use-caret"
type AttrOrigin SettingsGtkKeynavUseCaretPropertyInfo = Settings
attrGet = getSettingsGtkKeynavUseCaret
attrSet = setSettingsGtkKeynavUseCaret
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkKeynavUseCaret
attrClear = undefined
#endif
getSettingsGtkKeynavWrapAround :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkKeynavWrapAround :: o -> m Bool
getSettingsGtkKeynavWrapAround obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-keynav-wrap-around"
setSettingsGtkKeynavWrapAround :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkKeynavWrapAround :: o -> Bool -> m ()
setSettingsGtkKeynavWrapAround obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-keynav-wrap-around" Bool
val
constructSettingsGtkKeynavWrapAround :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkKeynavWrapAround :: Bool -> IO (GValueConstruct o)
constructSettingsGtkKeynavWrapAround val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-keynav-wrap-around" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkKeynavWrapAroundPropertyInfo
instance AttrInfo SettingsGtkKeynavWrapAroundPropertyInfo where
type AttrAllowedOps SettingsGtkKeynavWrapAroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkKeynavWrapAroundPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkKeynavWrapAroundPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkKeynavWrapAroundPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkKeynavWrapAroundPropertyInfo = Bool
type AttrGetType SettingsGtkKeynavWrapAroundPropertyInfo = Bool
type AttrLabel SettingsGtkKeynavWrapAroundPropertyInfo = "gtk-keynav-wrap-around"
type AttrOrigin SettingsGtkKeynavWrapAroundPropertyInfo = Settings
attrGet = getSettingsGtkKeynavWrapAround
attrSet = setSettingsGtkKeynavWrapAround
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkKeynavWrapAround
attrClear = undefined
#endif
getSettingsGtkLabelSelectOnFocus :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkLabelSelectOnFocus :: o -> m Bool
getSettingsGtkLabelSelectOnFocus obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-label-select-on-focus"
setSettingsGtkLabelSelectOnFocus :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkLabelSelectOnFocus :: o -> Bool -> m ()
setSettingsGtkLabelSelectOnFocus obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-label-select-on-focus" Bool
val
constructSettingsGtkLabelSelectOnFocus :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkLabelSelectOnFocus :: Bool -> IO (GValueConstruct o)
constructSettingsGtkLabelSelectOnFocus val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-label-select-on-focus" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkLabelSelectOnFocusPropertyInfo
instance AttrInfo SettingsGtkLabelSelectOnFocusPropertyInfo where
type AttrAllowedOps SettingsGtkLabelSelectOnFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkLabelSelectOnFocusPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkLabelSelectOnFocusPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkLabelSelectOnFocusPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkLabelSelectOnFocusPropertyInfo = Bool
type AttrGetType SettingsGtkLabelSelectOnFocusPropertyInfo = Bool
type AttrLabel SettingsGtkLabelSelectOnFocusPropertyInfo = "gtk-label-select-on-focus"
type AttrOrigin SettingsGtkLabelSelectOnFocusPropertyInfo = Settings
attrGet = getSettingsGtkLabelSelectOnFocus
attrSet = setSettingsGtkLabelSelectOnFocus
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkLabelSelectOnFocus
attrClear = undefined
#endif
getSettingsGtkLongPressTime :: (MonadIO m, IsSettings o) => o -> m Word32
getSettingsGtkLongPressTime :: o -> m Word32
getSettingsGtkLongPressTime obj :: o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "gtk-long-press-time"
setSettingsGtkLongPressTime :: (MonadIO m, IsSettings o) => o -> Word32 -> m ()
setSettingsGtkLongPressTime :: o -> Word32 -> m ()
setSettingsGtkLongPressTime obj :: o
obj val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj "gtk-long-press-time" Word32
val
constructSettingsGtkLongPressTime :: (IsSettings o) => Word32 -> IO (GValueConstruct o)
constructSettingsGtkLongPressTime :: Word32 -> IO (GValueConstruct o)
constructSettingsGtkLongPressTime val :: Word32
val = String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 "gtk-long-press-time" Word32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkLongPressTimePropertyInfo
instance AttrInfo SettingsGtkLongPressTimePropertyInfo where
type AttrAllowedOps SettingsGtkLongPressTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkLongPressTimePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkLongPressTimePropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingsGtkLongPressTimePropertyInfo = (~) Word32
type AttrTransferType SettingsGtkLongPressTimePropertyInfo = Word32
type AttrGetType SettingsGtkLongPressTimePropertyInfo = Word32
type AttrLabel SettingsGtkLongPressTimePropertyInfo = "gtk-long-press-time"
type AttrOrigin SettingsGtkLongPressTimePropertyInfo = Settings
attrGet = getSettingsGtkLongPressTime
attrSet = setSettingsGtkLongPressTime
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkLongPressTime
attrClear = undefined
#endif
getSettingsGtkMenuBarAccel :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-menu-bar-accel"
setSettingsGtkMenuBarAccel :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-menu-bar-accel" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkMenuBarAccel :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-menu-bar-accel" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkMenuBarAccel :: (MonadIO m, IsSettings o) => o -> m ()
obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-menu-bar-accel" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkMenuBarAccelPropertyInfo
instance AttrInfo SettingsGtkMenuBarAccelPropertyInfo where
type AttrAllowedOps SettingsGtkMenuBarAccelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkMenuBarAccelPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkMenuBarAccelPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkMenuBarAccelPropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkMenuBarAccelPropertyInfo = T.Text
type AttrGetType SettingsGtkMenuBarAccelPropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkMenuBarAccelPropertyInfo = "gtk-menu-bar-accel"
type AttrOrigin SettingsGtkMenuBarAccelPropertyInfo = Settings
attrGet = getSettingsGtkMenuBarAccel
attrSet = setSettingsGtkMenuBarAccel
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkMenuBarAccel
attrClear = clearSettingsGtkMenuBarAccel
#endif
getSettingsGtkMenuBarPopupDelay :: (MonadIO m, IsSettings o) => o -> m Int32
obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-menu-bar-popup-delay"
setSettingsGtkMenuBarPopupDelay :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-menu-bar-popup-delay" Int32
val
constructSettingsGtkMenuBarPopupDelay :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-menu-bar-popup-delay" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkMenuBarPopupDelayPropertyInfo
instance AttrInfo SettingsGtkMenuBarPopupDelayPropertyInfo where
type AttrAllowedOps SettingsGtkMenuBarPopupDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkMenuBarPopupDelayPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkMenuBarPopupDelayPropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkMenuBarPopupDelayPropertyInfo = (~) Int32
type AttrTransferType SettingsGtkMenuBarPopupDelayPropertyInfo = Int32
type AttrGetType SettingsGtkMenuBarPopupDelayPropertyInfo = Int32
type AttrLabel SettingsGtkMenuBarPopupDelayPropertyInfo = "gtk-menu-bar-popup-delay"
type AttrOrigin SettingsGtkMenuBarPopupDelayPropertyInfo = Settings
attrGet = getSettingsGtkMenuBarPopupDelay
attrSet = setSettingsGtkMenuBarPopupDelay
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkMenuBarPopupDelay
attrClear = undefined
#endif
getSettingsGtkMenuImages :: (MonadIO m, IsSettings o) => o -> m Bool
obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-menu-images"
setSettingsGtkMenuImages :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-menu-images" Bool
val
constructSettingsGtkMenuImages :: (IsSettings o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-menu-images" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkMenuImagesPropertyInfo
instance AttrInfo SettingsGtkMenuImagesPropertyInfo where
type AttrAllowedOps SettingsGtkMenuImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkMenuImagesPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkMenuImagesPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkMenuImagesPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkMenuImagesPropertyInfo = Bool
type AttrGetType SettingsGtkMenuImagesPropertyInfo = Bool
type AttrLabel SettingsGtkMenuImagesPropertyInfo = "gtk-menu-images"
type AttrOrigin SettingsGtkMenuImagesPropertyInfo = Settings
attrGet = getSettingsGtkMenuImages
attrSet = setSettingsGtkMenuImages
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkMenuImages
attrClear = undefined
#endif
getSettingsGtkMenuPopdownDelay :: (MonadIO m, IsSettings o) => o -> m Int32
obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-menu-popdown-delay"
setSettingsGtkMenuPopdownDelay :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-menu-popdown-delay" Int32
val
constructSettingsGtkMenuPopdownDelay :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-menu-popdown-delay" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkMenuPopdownDelayPropertyInfo
instance AttrInfo SettingsGtkMenuPopdownDelayPropertyInfo where
type AttrAllowedOps SettingsGtkMenuPopdownDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkMenuPopdownDelayPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkMenuPopdownDelayPropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkMenuPopdownDelayPropertyInfo = (~) Int32
type AttrTransferType SettingsGtkMenuPopdownDelayPropertyInfo = Int32
type AttrGetType SettingsGtkMenuPopdownDelayPropertyInfo = Int32
type AttrLabel SettingsGtkMenuPopdownDelayPropertyInfo = "gtk-menu-popdown-delay"
type AttrOrigin SettingsGtkMenuPopdownDelayPropertyInfo = Settings
attrGet = getSettingsGtkMenuPopdownDelay
attrSet = setSettingsGtkMenuPopdownDelay
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkMenuPopdownDelay
attrClear = undefined
#endif
getSettingsGtkMenuPopupDelay :: (MonadIO m, IsSettings o) => o -> m Int32
obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-menu-popup-delay"
setSettingsGtkMenuPopupDelay :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-menu-popup-delay" Int32
val
constructSettingsGtkMenuPopupDelay :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-menu-popup-delay" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkMenuPopupDelayPropertyInfo
instance AttrInfo SettingsGtkMenuPopupDelayPropertyInfo where
type AttrAllowedOps SettingsGtkMenuPopupDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkMenuPopupDelayPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkMenuPopupDelayPropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkMenuPopupDelayPropertyInfo = (~) Int32
type AttrTransferType SettingsGtkMenuPopupDelayPropertyInfo = Int32
type AttrGetType SettingsGtkMenuPopupDelayPropertyInfo = Int32
type AttrLabel SettingsGtkMenuPopupDelayPropertyInfo = "gtk-menu-popup-delay"
type AttrOrigin SettingsGtkMenuPopupDelayPropertyInfo = Settings
attrGet = getSettingsGtkMenuPopupDelay
attrSet = setSettingsGtkMenuPopupDelay
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkMenuPopupDelay
attrClear = undefined
#endif
getSettingsGtkModules :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkModules :: o -> m (Maybe Text)
getSettingsGtkModules obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-modules"
setSettingsGtkModules :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkModules :: o -> Text -> m ()
setSettingsGtkModules obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-modules" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkModules :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkModules :: Text -> IO (GValueConstruct o)
constructSettingsGtkModules val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-modules" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkModules :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkModules :: o -> m ()
clearSettingsGtkModules obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-modules" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkModulesPropertyInfo
instance AttrInfo SettingsGtkModulesPropertyInfo where
type AttrAllowedOps SettingsGtkModulesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkModulesPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkModulesPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkModulesPropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkModulesPropertyInfo = T.Text
type AttrGetType SettingsGtkModulesPropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkModulesPropertyInfo = "gtk-modules"
type AttrOrigin SettingsGtkModulesPropertyInfo = Settings
attrGet = getSettingsGtkModules
attrSet = setSettingsGtkModules
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkModules
attrClear = clearSettingsGtkModules
#endif
getSettingsGtkOverlayScrolling :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkOverlayScrolling :: o -> m Bool
getSettingsGtkOverlayScrolling obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-overlay-scrolling"
setSettingsGtkOverlayScrolling :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkOverlayScrolling :: o -> Bool -> m ()
setSettingsGtkOverlayScrolling obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-overlay-scrolling" Bool
val
constructSettingsGtkOverlayScrolling :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkOverlayScrolling :: Bool -> IO (GValueConstruct o)
constructSettingsGtkOverlayScrolling val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-overlay-scrolling" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkOverlayScrollingPropertyInfo
instance AttrInfo SettingsGtkOverlayScrollingPropertyInfo where
type AttrAllowedOps SettingsGtkOverlayScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkOverlayScrollingPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkOverlayScrollingPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkOverlayScrollingPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkOverlayScrollingPropertyInfo = Bool
type AttrGetType SettingsGtkOverlayScrollingPropertyInfo = Bool
type AttrLabel SettingsGtkOverlayScrollingPropertyInfo = "gtk-overlay-scrolling"
type AttrOrigin SettingsGtkOverlayScrollingPropertyInfo = Settings
attrGet = getSettingsGtkOverlayScrolling
attrSet = setSettingsGtkOverlayScrolling
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkOverlayScrolling
attrClear = undefined
#endif
getSettingsGtkPrimaryButtonWarpsSlider :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkPrimaryButtonWarpsSlider :: o -> m Bool
getSettingsGtkPrimaryButtonWarpsSlider obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-primary-button-warps-slider"
setSettingsGtkPrimaryButtonWarpsSlider :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkPrimaryButtonWarpsSlider :: o -> Bool -> m ()
setSettingsGtkPrimaryButtonWarpsSlider obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-primary-button-warps-slider" Bool
val
constructSettingsGtkPrimaryButtonWarpsSlider :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkPrimaryButtonWarpsSlider :: Bool -> IO (GValueConstruct o)
constructSettingsGtkPrimaryButtonWarpsSlider val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-primary-button-warps-slider" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkPrimaryButtonWarpsSliderPropertyInfo
instance AttrInfo SettingsGtkPrimaryButtonWarpsSliderPropertyInfo where
type AttrAllowedOps SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = Bool
type AttrGetType SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = Bool
type AttrLabel SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = "gtk-primary-button-warps-slider"
type AttrOrigin SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = Settings
attrGet = getSettingsGtkPrimaryButtonWarpsSlider
attrSet = setSettingsGtkPrimaryButtonWarpsSlider
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkPrimaryButtonWarpsSlider
attrClear = undefined
#endif
getSettingsGtkPrintBackends :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkPrintBackends :: o -> m (Maybe Text)
getSettingsGtkPrintBackends obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-print-backends"
setSettingsGtkPrintBackends :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkPrintBackends :: o -> Text -> m ()
setSettingsGtkPrintBackends obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-print-backends" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkPrintBackends :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkPrintBackends :: Text -> IO (GValueConstruct o)
constructSettingsGtkPrintBackends val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-print-backends" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkPrintBackends :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkPrintBackends :: o -> m ()
clearSettingsGtkPrintBackends obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-print-backends" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkPrintBackendsPropertyInfo
instance AttrInfo SettingsGtkPrintBackendsPropertyInfo where
type AttrAllowedOps SettingsGtkPrintBackendsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkPrintBackendsPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkPrintBackendsPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkPrintBackendsPropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkPrintBackendsPropertyInfo = T.Text
type AttrGetType SettingsGtkPrintBackendsPropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkPrintBackendsPropertyInfo = "gtk-print-backends"
type AttrOrigin SettingsGtkPrintBackendsPropertyInfo = Settings
attrGet = getSettingsGtkPrintBackends
attrSet = setSettingsGtkPrintBackends
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkPrintBackends
attrClear = clearSettingsGtkPrintBackends
#endif
getSettingsGtkPrintPreviewCommand :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkPrintPreviewCommand :: o -> m (Maybe Text)
getSettingsGtkPrintPreviewCommand obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-print-preview-command"
setSettingsGtkPrintPreviewCommand :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkPrintPreviewCommand :: o -> Text -> m ()
setSettingsGtkPrintPreviewCommand obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-print-preview-command" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkPrintPreviewCommand :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkPrintPreviewCommand :: Text -> IO (GValueConstruct o)
constructSettingsGtkPrintPreviewCommand val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-print-preview-command" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkPrintPreviewCommand :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkPrintPreviewCommand :: o -> m ()
clearSettingsGtkPrintPreviewCommand obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-print-preview-command" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkPrintPreviewCommandPropertyInfo
instance AttrInfo SettingsGtkPrintPreviewCommandPropertyInfo where
type AttrAllowedOps SettingsGtkPrintPreviewCommandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkPrintPreviewCommandPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkPrintPreviewCommandPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkPrintPreviewCommandPropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkPrintPreviewCommandPropertyInfo = T.Text
type AttrGetType SettingsGtkPrintPreviewCommandPropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkPrintPreviewCommandPropertyInfo = "gtk-print-preview-command"
type AttrOrigin SettingsGtkPrintPreviewCommandPropertyInfo = Settings
attrGet = getSettingsGtkPrintPreviewCommand
attrSet = setSettingsGtkPrintPreviewCommand
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkPrintPreviewCommand
attrClear = clearSettingsGtkPrintPreviewCommand
#endif
getSettingsGtkRecentFilesEnabled :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkRecentFilesEnabled :: o -> m Bool
getSettingsGtkRecentFilesEnabled obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-recent-files-enabled"
setSettingsGtkRecentFilesEnabled :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkRecentFilesEnabled :: o -> Bool -> m ()
setSettingsGtkRecentFilesEnabled obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-recent-files-enabled" Bool
val
constructSettingsGtkRecentFilesEnabled :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkRecentFilesEnabled :: Bool -> IO (GValueConstruct o)
constructSettingsGtkRecentFilesEnabled val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-recent-files-enabled" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkRecentFilesEnabledPropertyInfo
instance AttrInfo SettingsGtkRecentFilesEnabledPropertyInfo where
type AttrAllowedOps SettingsGtkRecentFilesEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkRecentFilesEnabledPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkRecentFilesEnabledPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkRecentFilesEnabledPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkRecentFilesEnabledPropertyInfo = Bool
type AttrGetType SettingsGtkRecentFilesEnabledPropertyInfo = Bool
type AttrLabel SettingsGtkRecentFilesEnabledPropertyInfo = "gtk-recent-files-enabled"
type AttrOrigin SettingsGtkRecentFilesEnabledPropertyInfo = Settings
attrGet = getSettingsGtkRecentFilesEnabled
attrSet = setSettingsGtkRecentFilesEnabled
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkRecentFilesEnabled
attrClear = undefined
#endif
getSettingsGtkRecentFilesLimit :: (MonadIO m, IsSettings o) => o -> m Int32
getSettingsGtkRecentFilesLimit :: o -> m Int32
getSettingsGtkRecentFilesLimit obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-recent-files-limit"
setSettingsGtkRecentFilesLimit :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
setSettingsGtkRecentFilesLimit :: o -> Int32 -> m ()
setSettingsGtkRecentFilesLimit obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-recent-files-limit" Int32
val
constructSettingsGtkRecentFilesLimit :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
constructSettingsGtkRecentFilesLimit :: Int32 -> IO (GValueConstruct o)
constructSettingsGtkRecentFilesLimit val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-recent-files-limit" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkRecentFilesLimitPropertyInfo
instance AttrInfo SettingsGtkRecentFilesLimitPropertyInfo where
type AttrAllowedOps SettingsGtkRecentFilesLimitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkRecentFilesLimitPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkRecentFilesLimitPropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkRecentFilesLimitPropertyInfo = (~) Int32
type AttrTransferType SettingsGtkRecentFilesLimitPropertyInfo = Int32
type AttrGetType SettingsGtkRecentFilesLimitPropertyInfo = Int32
type AttrLabel SettingsGtkRecentFilesLimitPropertyInfo = "gtk-recent-files-limit"
type AttrOrigin SettingsGtkRecentFilesLimitPropertyInfo = Settings
attrGet = getSettingsGtkRecentFilesLimit
attrSet = setSettingsGtkRecentFilesLimit
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkRecentFilesLimit
attrClear = undefined
#endif
getSettingsGtkRecentFilesMaxAge :: (MonadIO m, IsSettings o) => o -> m Int32
getSettingsGtkRecentFilesMaxAge :: o -> m Int32
getSettingsGtkRecentFilesMaxAge obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-recent-files-max-age"
setSettingsGtkRecentFilesMaxAge :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
setSettingsGtkRecentFilesMaxAge :: o -> Int32 -> m ()
setSettingsGtkRecentFilesMaxAge obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-recent-files-max-age" Int32
val
constructSettingsGtkRecentFilesMaxAge :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
constructSettingsGtkRecentFilesMaxAge :: Int32 -> IO (GValueConstruct o)
constructSettingsGtkRecentFilesMaxAge val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-recent-files-max-age" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkRecentFilesMaxAgePropertyInfo
instance AttrInfo SettingsGtkRecentFilesMaxAgePropertyInfo where
type AttrAllowedOps SettingsGtkRecentFilesMaxAgePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkRecentFilesMaxAgePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkRecentFilesMaxAgePropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkRecentFilesMaxAgePropertyInfo = (~) Int32
type AttrTransferType SettingsGtkRecentFilesMaxAgePropertyInfo = Int32
type AttrGetType SettingsGtkRecentFilesMaxAgePropertyInfo = Int32
type AttrLabel SettingsGtkRecentFilesMaxAgePropertyInfo = "gtk-recent-files-max-age"
type AttrOrigin SettingsGtkRecentFilesMaxAgePropertyInfo = Settings
attrGet = getSettingsGtkRecentFilesMaxAge
attrSet = setSettingsGtkRecentFilesMaxAge
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkRecentFilesMaxAge
attrClear = undefined
#endif
getSettingsGtkScrolledWindowPlacement :: (MonadIO m, IsSettings o) => o -> m Gtk.Enums.CornerType
getSettingsGtkScrolledWindowPlacement :: o -> m CornerType
getSettingsGtkScrolledWindowPlacement obj :: o
obj = IO CornerType -> m CornerType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CornerType -> m CornerType) -> IO CornerType -> m CornerType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CornerType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "gtk-scrolled-window-placement"
setSettingsGtkScrolledWindowPlacement :: (MonadIO m, IsSettings o) => o -> Gtk.Enums.CornerType -> m ()
setSettingsGtkScrolledWindowPlacement :: o -> CornerType -> m ()
setSettingsGtkScrolledWindowPlacement obj :: o
obj val :: CornerType
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> CornerType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "gtk-scrolled-window-placement" CornerType
val
constructSettingsGtkScrolledWindowPlacement :: (IsSettings o) => Gtk.Enums.CornerType -> IO (GValueConstruct o)
constructSettingsGtkScrolledWindowPlacement :: CornerType -> IO (GValueConstruct o)
constructSettingsGtkScrolledWindowPlacement val :: CornerType
val = String -> CornerType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "gtk-scrolled-window-placement" CornerType
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkScrolledWindowPlacementPropertyInfo
instance AttrInfo SettingsGtkScrolledWindowPlacementPropertyInfo where
type AttrAllowedOps SettingsGtkScrolledWindowPlacementPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkScrolledWindowPlacementPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkScrolledWindowPlacementPropertyInfo = (~) Gtk.Enums.CornerType
type AttrTransferTypeConstraint SettingsGtkScrolledWindowPlacementPropertyInfo = (~) Gtk.Enums.CornerType
type AttrTransferType SettingsGtkScrolledWindowPlacementPropertyInfo = Gtk.Enums.CornerType
type AttrGetType SettingsGtkScrolledWindowPlacementPropertyInfo = Gtk.Enums.CornerType
type AttrLabel SettingsGtkScrolledWindowPlacementPropertyInfo = "gtk-scrolled-window-placement"
type AttrOrigin SettingsGtkScrolledWindowPlacementPropertyInfo = Settings
attrGet = getSettingsGtkScrolledWindowPlacement
attrSet = setSettingsGtkScrolledWindowPlacement
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkScrolledWindowPlacement
attrClear = undefined
#endif
getSettingsGtkShellShowsAppMenu :: (MonadIO m, IsSettings o) => o -> m Bool
obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-shell-shows-app-menu"
setSettingsGtkShellShowsAppMenu :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-shell-shows-app-menu" Bool
val
constructSettingsGtkShellShowsAppMenu :: (IsSettings o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-shell-shows-app-menu" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkShellShowsAppMenuPropertyInfo
instance AttrInfo SettingsGtkShellShowsAppMenuPropertyInfo where
type AttrAllowedOps SettingsGtkShellShowsAppMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkShellShowsAppMenuPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkShellShowsAppMenuPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkShellShowsAppMenuPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkShellShowsAppMenuPropertyInfo = Bool
type AttrGetType SettingsGtkShellShowsAppMenuPropertyInfo = Bool
type AttrLabel SettingsGtkShellShowsAppMenuPropertyInfo = "gtk-shell-shows-app-menu"
type AttrOrigin SettingsGtkShellShowsAppMenuPropertyInfo = Settings
attrGet = getSettingsGtkShellShowsAppMenu
attrSet = setSettingsGtkShellShowsAppMenu
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkShellShowsAppMenu
attrClear = undefined
#endif
getSettingsGtkShellShowsDesktop :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkShellShowsDesktop :: o -> m Bool
getSettingsGtkShellShowsDesktop obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-shell-shows-desktop"
setSettingsGtkShellShowsDesktop :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkShellShowsDesktop :: o -> Bool -> m ()
setSettingsGtkShellShowsDesktop obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-shell-shows-desktop" Bool
val
constructSettingsGtkShellShowsDesktop :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkShellShowsDesktop :: Bool -> IO (GValueConstruct o)
constructSettingsGtkShellShowsDesktop val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-shell-shows-desktop" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkShellShowsDesktopPropertyInfo
instance AttrInfo SettingsGtkShellShowsDesktopPropertyInfo where
type AttrAllowedOps SettingsGtkShellShowsDesktopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkShellShowsDesktopPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkShellShowsDesktopPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkShellShowsDesktopPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkShellShowsDesktopPropertyInfo = Bool
type AttrGetType SettingsGtkShellShowsDesktopPropertyInfo = Bool
type AttrLabel SettingsGtkShellShowsDesktopPropertyInfo = "gtk-shell-shows-desktop"
type AttrOrigin SettingsGtkShellShowsDesktopPropertyInfo = Settings
attrGet = getSettingsGtkShellShowsDesktop
attrSet = setSettingsGtkShellShowsDesktop
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkShellShowsDesktop
attrClear = undefined
#endif
getSettingsGtkShellShowsMenubar :: (MonadIO m, IsSettings o) => o -> m Bool
obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-shell-shows-menubar"
setSettingsGtkShellShowsMenubar :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-shell-shows-menubar" Bool
val
constructSettingsGtkShellShowsMenubar :: (IsSettings o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-shell-shows-menubar" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkShellShowsMenubarPropertyInfo
instance AttrInfo SettingsGtkShellShowsMenubarPropertyInfo where
type AttrAllowedOps SettingsGtkShellShowsMenubarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkShellShowsMenubarPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkShellShowsMenubarPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkShellShowsMenubarPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkShellShowsMenubarPropertyInfo = Bool
type AttrGetType SettingsGtkShellShowsMenubarPropertyInfo = Bool
type AttrLabel SettingsGtkShellShowsMenubarPropertyInfo = "gtk-shell-shows-menubar"
type AttrOrigin SettingsGtkShellShowsMenubarPropertyInfo = Settings
attrGet = getSettingsGtkShellShowsMenubar
attrSet = setSettingsGtkShellShowsMenubar
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkShellShowsMenubar
attrClear = undefined
#endif
getSettingsGtkShowInputMethodMenu :: (MonadIO m, IsSettings o) => o -> m Bool
obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-show-input-method-menu"
setSettingsGtkShowInputMethodMenu :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-show-input-method-menu" Bool
val
constructSettingsGtkShowInputMethodMenu :: (IsSettings o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-show-input-method-menu" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkShowInputMethodMenuPropertyInfo
instance AttrInfo SettingsGtkShowInputMethodMenuPropertyInfo where
type AttrAllowedOps SettingsGtkShowInputMethodMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkShowInputMethodMenuPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkShowInputMethodMenuPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkShowInputMethodMenuPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkShowInputMethodMenuPropertyInfo = Bool
type AttrGetType SettingsGtkShowInputMethodMenuPropertyInfo = Bool
type AttrLabel SettingsGtkShowInputMethodMenuPropertyInfo = "gtk-show-input-method-menu"
type AttrOrigin SettingsGtkShowInputMethodMenuPropertyInfo = Settings
attrGet = getSettingsGtkShowInputMethodMenu
attrSet = setSettingsGtkShowInputMethodMenu
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkShowInputMethodMenu
attrClear = undefined
#endif
getSettingsGtkShowUnicodeMenu :: (MonadIO m, IsSettings o) => o -> m Bool
obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-show-unicode-menu"
setSettingsGtkShowUnicodeMenu :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-show-unicode-menu" Bool
val
constructSettingsGtkShowUnicodeMenu :: (IsSettings o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-show-unicode-menu" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkShowUnicodeMenuPropertyInfo
instance AttrInfo SettingsGtkShowUnicodeMenuPropertyInfo where
type AttrAllowedOps SettingsGtkShowUnicodeMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkShowUnicodeMenuPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkShowUnicodeMenuPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkShowUnicodeMenuPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkShowUnicodeMenuPropertyInfo = Bool
type AttrGetType SettingsGtkShowUnicodeMenuPropertyInfo = Bool
type AttrLabel SettingsGtkShowUnicodeMenuPropertyInfo = "gtk-show-unicode-menu"
type AttrOrigin SettingsGtkShowUnicodeMenuPropertyInfo = Settings
attrGet = getSettingsGtkShowUnicodeMenu
attrSet = setSettingsGtkShowUnicodeMenu
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkShowUnicodeMenu
attrClear = undefined
#endif
getSettingsGtkSoundThemeName :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkSoundThemeName :: o -> m (Maybe Text)
getSettingsGtkSoundThemeName obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-sound-theme-name"
setSettingsGtkSoundThemeName :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkSoundThemeName :: o -> Text -> m ()
setSettingsGtkSoundThemeName obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-sound-theme-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkSoundThemeName :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkSoundThemeName :: Text -> IO (GValueConstruct o)
constructSettingsGtkSoundThemeName val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-sound-theme-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkSoundThemeName :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkSoundThemeName :: o -> m ()
clearSettingsGtkSoundThemeName obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-sound-theme-name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkSoundThemeNamePropertyInfo
instance AttrInfo SettingsGtkSoundThemeNamePropertyInfo where
type AttrAllowedOps SettingsGtkSoundThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkSoundThemeNamePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkSoundThemeNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkSoundThemeNamePropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkSoundThemeNamePropertyInfo = T.Text
type AttrGetType SettingsGtkSoundThemeNamePropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkSoundThemeNamePropertyInfo = "gtk-sound-theme-name"
type AttrOrigin SettingsGtkSoundThemeNamePropertyInfo = Settings
attrGet = getSettingsGtkSoundThemeName
attrSet = setSettingsGtkSoundThemeName
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkSoundThemeName
attrClear = clearSettingsGtkSoundThemeName
#endif
getSettingsGtkSplitCursor :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkSplitCursor :: o -> m Bool
getSettingsGtkSplitCursor obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-split-cursor"
setSettingsGtkSplitCursor :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkSplitCursor :: o -> Bool -> m ()
setSettingsGtkSplitCursor obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-split-cursor" Bool
val
constructSettingsGtkSplitCursor :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkSplitCursor :: Bool -> IO (GValueConstruct o)
constructSettingsGtkSplitCursor val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-split-cursor" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkSplitCursorPropertyInfo
instance AttrInfo SettingsGtkSplitCursorPropertyInfo where
type AttrAllowedOps SettingsGtkSplitCursorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkSplitCursorPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkSplitCursorPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkSplitCursorPropertyInfo = (~) Bool
type AttrTransferType SettingsGtkSplitCursorPropertyInfo = Bool
type AttrGetType SettingsGtkSplitCursorPropertyInfo = Bool
type AttrLabel SettingsGtkSplitCursorPropertyInfo = "gtk-split-cursor"
type AttrOrigin SettingsGtkSplitCursorPropertyInfo = Settings
attrGet = getSettingsGtkSplitCursor
attrSet = setSettingsGtkSplitCursor
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkSplitCursor
attrClear = undefined
#endif
getSettingsGtkThemeName :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkThemeName :: o -> m (Maybe Text)
getSettingsGtkThemeName obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-theme-name"
setSettingsGtkThemeName :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkThemeName :: o -> Text -> m ()
setSettingsGtkThemeName obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-theme-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkThemeName :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkThemeName :: Text -> IO (GValueConstruct o)
constructSettingsGtkThemeName val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-theme-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkThemeName :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkThemeName :: o -> m ()
clearSettingsGtkThemeName obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-theme-name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkThemeNamePropertyInfo
instance AttrInfo SettingsGtkThemeNamePropertyInfo where
type AttrAllowedOps SettingsGtkThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkThemeNamePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkThemeNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkThemeNamePropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkThemeNamePropertyInfo = T.Text
type AttrGetType SettingsGtkThemeNamePropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkThemeNamePropertyInfo = "gtk-theme-name"
type AttrOrigin SettingsGtkThemeNamePropertyInfo = Settings
attrGet = getSettingsGtkThemeName
attrSet = setSettingsGtkThemeName
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkThemeName
attrClear = clearSettingsGtkThemeName
#endif
getSettingsGtkTimeoutExpand :: (MonadIO m, IsSettings o) => o -> m Int32
getSettingsGtkTimeoutExpand :: o -> m Int32
getSettingsGtkTimeoutExpand obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-timeout-expand"
setSettingsGtkTimeoutExpand :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
setSettingsGtkTimeoutExpand :: o -> Int32 -> m ()
setSettingsGtkTimeoutExpand obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-timeout-expand" Int32
val
constructSettingsGtkTimeoutExpand :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
constructSettingsGtkTimeoutExpand :: Int32 -> IO (GValueConstruct o)
constructSettingsGtkTimeoutExpand val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-timeout-expand" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkTimeoutExpandPropertyInfo
instance AttrInfo SettingsGtkTimeoutExpandPropertyInfo where
type AttrAllowedOps SettingsGtkTimeoutExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkTimeoutExpandPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkTimeoutExpandPropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkTimeoutExpandPropertyInfo = (~) Int32
type AttrTransferType SettingsGtkTimeoutExpandPropertyInfo = Int32
type AttrGetType SettingsGtkTimeoutExpandPropertyInfo = Int32
type AttrLabel SettingsGtkTimeoutExpandPropertyInfo = "gtk-timeout-expand"
type AttrOrigin SettingsGtkTimeoutExpandPropertyInfo = Settings
attrGet = getSettingsGtkTimeoutExpand
attrSet = setSettingsGtkTimeoutExpand
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkTimeoutExpand
attrClear = undefined
#endif
getSettingsGtkTimeoutInitial :: (MonadIO m, IsSettings o) => o -> m Int32
getSettingsGtkTimeoutInitial :: o -> m Int32
getSettingsGtkTimeoutInitial obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-timeout-initial"
setSettingsGtkTimeoutInitial :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
setSettingsGtkTimeoutInitial :: o -> Int32 -> m ()
setSettingsGtkTimeoutInitial obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-timeout-initial" Int32
val
constructSettingsGtkTimeoutInitial :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
constructSettingsGtkTimeoutInitial :: Int32 -> IO (GValueConstruct o)
constructSettingsGtkTimeoutInitial val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-timeout-initial" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkTimeoutInitialPropertyInfo
instance AttrInfo SettingsGtkTimeoutInitialPropertyInfo where
type AttrAllowedOps SettingsGtkTimeoutInitialPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkTimeoutInitialPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkTimeoutInitialPropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkTimeoutInitialPropertyInfo = (~) Int32
type AttrTransferType SettingsGtkTimeoutInitialPropertyInfo = Int32
type AttrGetType SettingsGtkTimeoutInitialPropertyInfo = Int32
type AttrLabel SettingsGtkTimeoutInitialPropertyInfo = "gtk-timeout-initial"
type AttrOrigin SettingsGtkTimeoutInitialPropertyInfo = Settings
attrGet = getSettingsGtkTimeoutInitial
attrSet = setSettingsGtkTimeoutInitial
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkTimeoutInitial
attrClear = undefined
#endif
getSettingsGtkTimeoutRepeat :: (MonadIO m, IsSettings o) => o -> m Int32
getSettingsGtkTimeoutRepeat :: o -> m Int32
getSettingsGtkTimeoutRepeat obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-timeout-repeat"
setSettingsGtkTimeoutRepeat :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
setSettingsGtkTimeoutRepeat :: o -> Int32 -> m ()
setSettingsGtkTimeoutRepeat obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-timeout-repeat" Int32
val
constructSettingsGtkTimeoutRepeat :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
constructSettingsGtkTimeoutRepeat :: Int32 -> IO (GValueConstruct o)
constructSettingsGtkTimeoutRepeat val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-timeout-repeat" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkTimeoutRepeatPropertyInfo
instance AttrInfo SettingsGtkTimeoutRepeatPropertyInfo where
type AttrAllowedOps SettingsGtkTimeoutRepeatPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkTimeoutRepeatPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkTimeoutRepeatPropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkTimeoutRepeatPropertyInfo = (~) Int32
type AttrTransferType SettingsGtkTimeoutRepeatPropertyInfo = Int32
type AttrGetType SettingsGtkTimeoutRepeatPropertyInfo = Int32
type AttrLabel SettingsGtkTimeoutRepeatPropertyInfo = "gtk-timeout-repeat"
type AttrOrigin SettingsGtkTimeoutRepeatPropertyInfo = Settings
attrGet = getSettingsGtkTimeoutRepeat
attrSet = setSettingsGtkTimeoutRepeat
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkTimeoutRepeat
attrClear = undefined
#endif
getSettingsGtkTitlebarDoubleClick :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkTitlebarDoubleClick :: o -> m (Maybe Text)
getSettingsGtkTitlebarDoubleClick obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-titlebar-double-click"
setSettingsGtkTitlebarDoubleClick :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkTitlebarDoubleClick :: o -> Text -> m ()
setSettingsGtkTitlebarDoubleClick obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-titlebar-double-click" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkTitlebarDoubleClick :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkTitlebarDoubleClick :: Text -> IO (GValueConstruct o)
constructSettingsGtkTitlebarDoubleClick val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-titlebar-double-click" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkTitlebarDoubleClick :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkTitlebarDoubleClick :: o -> m ()
clearSettingsGtkTitlebarDoubleClick obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-titlebar-double-click" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkTitlebarDoubleClickPropertyInfo
instance AttrInfo SettingsGtkTitlebarDoubleClickPropertyInfo where
type AttrAllowedOps SettingsGtkTitlebarDoubleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkTitlebarDoubleClickPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkTitlebarDoubleClickPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkTitlebarDoubleClickPropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkTitlebarDoubleClickPropertyInfo = T.Text
type AttrGetType SettingsGtkTitlebarDoubleClickPropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkTitlebarDoubleClickPropertyInfo = "gtk-titlebar-double-click"
type AttrOrigin SettingsGtkTitlebarDoubleClickPropertyInfo = Settings
attrGet = getSettingsGtkTitlebarDoubleClick
attrSet = setSettingsGtkTitlebarDoubleClick
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkTitlebarDoubleClick
attrClear = clearSettingsGtkTitlebarDoubleClick
#endif
getSettingsGtkTitlebarMiddleClick :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkTitlebarMiddleClick :: o -> m (Maybe Text)
getSettingsGtkTitlebarMiddleClick obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-titlebar-middle-click"
setSettingsGtkTitlebarMiddleClick :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkTitlebarMiddleClick :: o -> Text -> m ()
setSettingsGtkTitlebarMiddleClick obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-titlebar-middle-click" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkTitlebarMiddleClick :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkTitlebarMiddleClick :: Text -> IO (GValueConstruct o)
constructSettingsGtkTitlebarMiddleClick val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-titlebar-middle-click" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkTitlebarMiddleClick :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkTitlebarMiddleClick :: o -> m ()
clearSettingsGtkTitlebarMiddleClick obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-titlebar-middle-click" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkTitlebarMiddleClickPropertyInfo
instance AttrInfo SettingsGtkTitlebarMiddleClickPropertyInfo where
type AttrAllowedOps SettingsGtkTitlebarMiddleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkTitlebarMiddleClickPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkTitlebarMiddleClickPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkTitlebarMiddleClickPropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkTitlebarMiddleClickPropertyInfo = T.Text
type AttrGetType SettingsGtkTitlebarMiddleClickPropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkTitlebarMiddleClickPropertyInfo = "gtk-titlebar-middle-click"
type AttrOrigin SettingsGtkTitlebarMiddleClickPropertyInfo = Settings
attrGet = getSettingsGtkTitlebarMiddleClick
attrSet = setSettingsGtkTitlebarMiddleClick
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkTitlebarMiddleClick
attrClear = clearSettingsGtkTitlebarMiddleClick
#endif
getSettingsGtkTitlebarRightClick :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkTitlebarRightClick :: o -> m (Maybe Text)
getSettingsGtkTitlebarRightClick obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-titlebar-right-click"
setSettingsGtkTitlebarRightClick :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkTitlebarRightClick :: o -> Text -> m ()
setSettingsGtkTitlebarRightClick obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-titlebar-right-click" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkTitlebarRightClick :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkTitlebarRightClick :: Text -> IO (GValueConstruct o)
constructSettingsGtkTitlebarRightClick val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-titlebar-right-click" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkTitlebarRightClick :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkTitlebarRightClick :: o -> m ()
clearSettingsGtkTitlebarRightClick obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-titlebar-right-click" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkTitlebarRightClickPropertyInfo
instance AttrInfo SettingsGtkTitlebarRightClickPropertyInfo where
type AttrAllowedOps SettingsGtkTitlebarRightClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkTitlebarRightClickPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkTitlebarRightClickPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkTitlebarRightClickPropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkTitlebarRightClickPropertyInfo = T.Text
type AttrGetType SettingsGtkTitlebarRightClickPropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkTitlebarRightClickPropertyInfo = "gtk-titlebar-right-click"
type AttrOrigin SettingsGtkTitlebarRightClickPropertyInfo = Settings
attrGet = getSettingsGtkTitlebarRightClick
attrSet = setSettingsGtkTitlebarRightClick
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkTitlebarRightClick
attrClear = clearSettingsGtkTitlebarRightClick
#endif
getSettingsGtkToolbarIconSize :: (MonadIO m, IsSettings o) => o -> m Gtk.Enums.IconSize
getSettingsGtkToolbarIconSize :: o -> m IconSize
getSettingsGtkToolbarIconSize obj :: o
obj = IO IconSize -> m IconSize
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO IconSize -> m IconSize) -> IO IconSize -> m IconSize
forall a b. (a -> b) -> a -> b
$ o -> String -> IO IconSize
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "gtk-toolbar-icon-size"
setSettingsGtkToolbarIconSize :: (MonadIO m, IsSettings o) => o -> Gtk.Enums.IconSize -> m ()
setSettingsGtkToolbarIconSize :: o -> IconSize -> m ()
setSettingsGtkToolbarIconSize obj :: o
obj val :: IconSize
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> IconSize -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "gtk-toolbar-icon-size" IconSize
val
constructSettingsGtkToolbarIconSize :: (IsSettings o) => Gtk.Enums.IconSize -> IO (GValueConstruct o)
constructSettingsGtkToolbarIconSize :: IconSize -> IO (GValueConstruct o)
constructSettingsGtkToolbarIconSize val :: IconSize
val = String -> IconSize -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "gtk-toolbar-icon-size" IconSize
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkToolbarIconSizePropertyInfo
instance AttrInfo SettingsGtkToolbarIconSizePropertyInfo where
type AttrAllowedOps SettingsGtkToolbarIconSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkToolbarIconSizePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkToolbarIconSizePropertyInfo = (~) Gtk.Enums.IconSize
type AttrTransferTypeConstraint SettingsGtkToolbarIconSizePropertyInfo = (~) Gtk.Enums.IconSize
type AttrTransferType SettingsGtkToolbarIconSizePropertyInfo = Gtk.Enums.IconSize
type AttrGetType SettingsGtkToolbarIconSizePropertyInfo = Gtk.Enums.IconSize
type AttrLabel SettingsGtkToolbarIconSizePropertyInfo = "gtk-toolbar-icon-size"
type AttrOrigin SettingsGtkToolbarIconSizePropertyInfo = Settings
attrGet = getSettingsGtkToolbarIconSize
attrSet = setSettingsGtkToolbarIconSize
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkToolbarIconSize
attrClear = undefined
#endif
getSettingsGtkToolbarStyle :: (MonadIO m, IsSettings o) => o -> m Gtk.Enums.ToolbarStyle
getSettingsGtkToolbarStyle :: o -> m ToolbarStyle
getSettingsGtkToolbarStyle obj :: o
obj = IO ToolbarStyle -> m ToolbarStyle
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ToolbarStyle -> m ToolbarStyle)
-> IO ToolbarStyle -> m ToolbarStyle
forall a b. (a -> b) -> a -> b
$ o -> String -> IO ToolbarStyle
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "gtk-toolbar-style"
setSettingsGtkToolbarStyle :: (MonadIO m, IsSettings o) => o -> Gtk.Enums.ToolbarStyle -> m ()
setSettingsGtkToolbarStyle :: o -> ToolbarStyle -> m ()
setSettingsGtkToolbarStyle obj :: o
obj val :: ToolbarStyle
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> ToolbarStyle -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "gtk-toolbar-style" ToolbarStyle
val
constructSettingsGtkToolbarStyle :: (IsSettings o) => Gtk.Enums.ToolbarStyle -> IO (GValueConstruct o)
constructSettingsGtkToolbarStyle :: ToolbarStyle -> IO (GValueConstruct o)
constructSettingsGtkToolbarStyle val :: ToolbarStyle
val = String -> ToolbarStyle -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "gtk-toolbar-style" ToolbarStyle
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkToolbarStylePropertyInfo
instance AttrInfo SettingsGtkToolbarStylePropertyInfo where
type AttrAllowedOps SettingsGtkToolbarStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkToolbarStylePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkToolbarStylePropertyInfo = (~) Gtk.Enums.ToolbarStyle
type AttrTransferTypeConstraint SettingsGtkToolbarStylePropertyInfo = (~) Gtk.Enums.ToolbarStyle
type AttrTransferType SettingsGtkToolbarStylePropertyInfo = Gtk.Enums.ToolbarStyle
type AttrGetType SettingsGtkToolbarStylePropertyInfo = Gtk.Enums.ToolbarStyle
type AttrLabel SettingsGtkToolbarStylePropertyInfo = "gtk-toolbar-style"
type AttrOrigin SettingsGtkToolbarStylePropertyInfo = Settings
attrGet = getSettingsGtkToolbarStyle
attrSet = setSettingsGtkToolbarStyle
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkToolbarStyle
attrClear = undefined
#endif
getSettingsGtkTooltipBrowseModeTimeout :: (MonadIO m, IsSettings o) => o -> m Int32
getSettingsGtkTooltipBrowseModeTimeout :: o -> m Int32
getSettingsGtkTooltipBrowseModeTimeout obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-tooltip-browse-mode-timeout"
setSettingsGtkTooltipBrowseModeTimeout :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
setSettingsGtkTooltipBrowseModeTimeout :: o -> Int32 -> m ()
setSettingsGtkTooltipBrowseModeTimeout obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-tooltip-browse-mode-timeout" Int32
val
constructSettingsGtkTooltipBrowseModeTimeout :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
constructSettingsGtkTooltipBrowseModeTimeout :: Int32 -> IO (GValueConstruct o)
constructSettingsGtkTooltipBrowseModeTimeout val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-tooltip-browse-mode-timeout" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkTooltipBrowseModeTimeoutPropertyInfo
instance AttrInfo SettingsGtkTooltipBrowseModeTimeoutPropertyInfo where
type AttrAllowedOps SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = (~) Int32
type AttrTransferType SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = Int32
type AttrGetType SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = Int32
type AttrLabel SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = "gtk-tooltip-browse-mode-timeout"
type AttrOrigin SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = Settings
attrGet = getSettingsGtkTooltipBrowseModeTimeout
attrSet = setSettingsGtkTooltipBrowseModeTimeout
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkTooltipBrowseModeTimeout
attrClear = undefined
#endif
getSettingsGtkTooltipBrowseTimeout :: (MonadIO m, IsSettings o) => o -> m Int32
getSettingsGtkTooltipBrowseTimeout :: o -> m Int32
getSettingsGtkTooltipBrowseTimeout obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-tooltip-browse-timeout"
setSettingsGtkTooltipBrowseTimeout :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
setSettingsGtkTooltipBrowseTimeout :: o -> Int32 -> m ()
setSettingsGtkTooltipBrowseTimeout obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-tooltip-browse-timeout" Int32
val
constructSettingsGtkTooltipBrowseTimeout :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
constructSettingsGtkTooltipBrowseTimeout :: Int32 -> IO (GValueConstruct o)
constructSettingsGtkTooltipBrowseTimeout val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-tooltip-browse-timeout" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkTooltipBrowseTimeoutPropertyInfo
instance AttrInfo SettingsGtkTooltipBrowseTimeoutPropertyInfo where
type AttrAllowedOps SettingsGtkTooltipBrowseTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkTooltipBrowseTimeoutPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkTooltipBrowseTimeoutPropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkTooltipBrowseTimeoutPropertyInfo = (~) Int32
type AttrTransferType SettingsGtkTooltipBrowseTimeoutPropertyInfo = Int32
type AttrGetType SettingsGtkTooltipBrowseTimeoutPropertyInfo = Int32
type AttrLabel SettingsGtkTooltipBrowseTimeoutPropertyInfo = "gtk-tooltip-browse-timeout"
type AttrOrigin SettingsGtkTooltipBrowseTimeoutPropertyInfo = Settings
attrGet = getSettingsGtkTooltipBrowseTimeout
attrSet = setSettingsGtkTooltipBrowseTimeout
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkTooltipBrowseTimeout
attrClear = undefined
#endif
getSettingsGtkTooltipTimeout :: (MonadIO m, IsSettings o) => o -> m Int32
getSettingsGtkTooltipTimeout :: o -> m Int32
getSettingsGtkTooltipTimeout obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-tooltip-timeout"
setSettingsGtkTooltipTimeout :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
setSettingsGtkTooltipTimeout :: o -> Int32 -> m ()
setSettingsGtkTooltipTimeout obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-tooltip-timeout" Int32
val
constructSettingsGtkTooltipTimeout :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
constructSettingsGtkTooltipTimeout :: Int32 -> IO (GValueConstruct o)
constructSettingsGtkTooltipTimeout val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-tooltip-timeout" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkTooltipTimeoutPropertyInfo
instance AttrInfo SettingsGtkTooltipTimeoutPropertyInfo where
type AttrAllowedOps SettingsGtkTooltipTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkTooltipTimeoutPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkTooltipTimeoutPropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkTooltipTimeoutPropertyInfo = (~) Int32
type AttrTransferType SettingsGtkTooltipTimeoutPropertyInfo = Int32
type AttrGetType SettingsGtkTooltipTimeoutPropertyInfo = Int32
type AttrLabel SettingsGtkTooltipTimeoutPropertyInfo = "gtk-tooltip-timeout"
type AttrOrigin SettingsGtkTooltipTimeoutPropertyInfo = Settings
attrGet = getSettingsGtkTooltipTimeout
attrSet = setSettingsGtkTooltipTimeout
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkTooltipTimeout
attrClear = undefined
#endif
getSettingsGtkTouchscreenMode :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsGtkTouchscreenMode :: o -> m Bool
getSettingsGtkTouchscreenMode obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "gtk-touchscreen-mode"
setSettingsGtkTouchscreenMode :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsGtkTouchscreenMode :: o -> Bool -> m ()
setSettingsGtkTouchscreenMode obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "gtk-touchscreen-mode" Bool
val
constructSettingsGtkTouchscreenMode :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsGtkTouchscreenMode :: Bool -> IO (GValueConstruct o)
constructSettingsGtkTouchscreenMode val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "gtk-touchscreen-mode" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkTouchscreenModePropertyInfo
instance AttrInfo SettingsGtkTouchscreenModePropertyInfo where
type AttrAllowedOps SettingsGtkTouchscreenModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkTouchscreenModePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkTouchscreenModePropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsGtkTouchscreenModePropertyInfo = (~) Bool
type AttrTransferType SettingsGtkTouchscreenModePropertyInfo = Bool
type AttrGetType SettingsGtkTouchscreenModePropertyInfo = Bool
type AttrLabel SettingsGtkTouchscreenModePropertyInfo = "gtk-touchscreen-mode"
type AttrOrigin SettingsGtkTouchscreenModePropertyInfo = Settings
attrGet = getSettingsGtkTouchscreenMode
attrSet = setSettingsGtkTouchscreenMode
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkTouchscreenMode
attrClear = undefined
#endif
getSettingsGtkVisibleFocus :: (MonadIO m, IsSettings o) => o -> m Gtk.Enums.PolicyType
getSettingsGtkVisibleFocus :: o -> m PolicyType
getSettingsGtkVisibleFocus obj :: o
obj = IO PolicyType -> m PolicyType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PolicyType -> m PolicyType) -> IO PolicyType -> m PolicyType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO PolicyType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "gtk-visible-focus"
setSettingsGtkVisibleFocus :: (MonadIO m, IsSettings o) => o -> Gtk.Enums.PolicyType -> m ()
setSettingsGtkVisibleFocus :: o -> PolicyType -> m ()
setSettingsGtkVisibleFocus obj :: o
obj val :: PolicyType
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> PolicyType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "gtk-visible-focus" PolicyType
val
constructSettingsGtkVisibleFocus :: (IsSettings o) => Gtk.Enums.PolicyType -> IO (GValueConstruct o)
constructSettingsGtkVisibleFocus :: PolicyType -> IO (GValueConstruct o)
constructSettingsGtkVisibleFocus val :: PolicyType
val = String -> PolicyType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "gtk-visible-focus" PolicyType
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkVisibleFocusPropertyInfo
instance AttrInfo SettingsGtkVisibleFocusPropertyInfo where
type AttrAllowedOps SettingsGtkVisibleFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkVisibleFocusPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkVisibleFocusPropertyInfo = (~) Gtk.Enums.PolicyType
type AttrTransferTypeConstraint SettingsGtkVisibleFocusPropertyInfo = (~) Gtk.Enums.PolicyType
type AttrTransferType SettingsGtkVisibleFocusPropertyInfo = Gtk.Enums.PolicyType
type AttrGetType SettingsGtkVisibleFocusPropertyInfo = Gtk.Enums.PolicyType
type AttrLabel SettingsGtkVisibleFocusPropertyInfo = "gtk-visible-focus"
type AttrOrigin SettingsGtkVisibleFocusPropertyInfo = Settings
attrGet = getSettingsGtkVisibleFocus
attrSet = setSettingsGtkVisibleFocus
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkVisibleFocus
attrClear = undefined
#endif
getSettingsGtkXftAntialias :: (MonadIO m, IsSettings o) => o -> m Int32
getSettingsGtkXftAntialias :: o -> m Int32
getSettingsGtkXftAntialias obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-xft-antialias"
setSettingsGtkXftAntialias :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
setSettingsGtkXftAntialias :: o -> Int32 -> m ()
setSettingsGtkXftAntialias obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-xft-antialias" Int32
val
constructSettingsGtkXftAntialias :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
constructSettingsGtkXftAntialias :: Int32 -> IO (GValueConstruct o)
constructSettingsGtkXftAntialias val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-xft-antialias" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkXftAntialiasPropertyInfo
instance AttrInfo SettingsGtkXftAntialiasPropertyInfo where
type AttrAllowedOps SettingsGtkXftAntialiasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkXftAntialiasPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkXftAntialiasPropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkXftAntialiasPropertyInfo = (~) Int32
type AttrTransferType SettingsGtkXftAntialiasPropertyInfo = Int32
type AttrGetType SettingsGtkXftAntialiasPropertyInfo = Int32
type AttrLabel SettingsGtkXftAntialiasPropertyInfo = "gtk-xft-antialias"
type AttrOrigin SettingsGtkXftAntialiasPropertyInfo = Settings
attrGet = getSettingsGtkXftAntialias
attrSet = setSettingsGtkXftAntialias
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkXftAntialias
attrClear = undefined
#endif
getSettingsGtkXftDpi :: (MonadIO m, IsSettings o) => o -> m Int32
getSettingsGtkXftDpi :: o -> m Int32
getSettingsGtkXftDpi obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-xft-dpi"
setSettingsGtkXftDpi :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
setSettingsGtkXftDpi :: o -> Int32 -> m ()
setSettingsGtkXftDpi obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-xft-dpi" Int32
val
constructSettingsGtkXftDpi :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
constructSettingsGtkXftDpi :: Int32 -> IO (GValueConstruct o)
constructSettingsGtkXftDpi val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-xft-dpi" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkXftDpiPropertyInfo
instance AttrInfo SettingsGtkXftDpiPropertyInfo where
type AttrAllowedOps SettingsGtkXftDpiPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkXftDpiPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkXftDpiPropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkXftDpiPropertyInfo = (~) Int32
type AttrTransferType SettingsGtkXftDpiPropertyInfo = Int32
type AttrGetType SettingsGtkXftDpiPropertyInfo = Int32
type AttrLabel SettingsGtkXftDpiPropertyInfo = "gtk-xft-dpi"
type AttrOrigin SettingsGtkXftDpiPropertyInfo = Settings
attrGet = getSettingsGtkXftDpi
attrSet = setSettingsGtkXftDpi
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkXftDpi
attrClear = undefined
#endif
getSettingsGtkXftHinting :: (MonadIO m, IsSettings o) => o -> m Int32
getSettingsGtkXftHinting :: o -> m Int32
getSettingsGtkXftHinting obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "gtk-xft-hinting"
setSettingsGtkXftHinting :: (MonadIO m, IsSettings o) => o -> Int32 -> m ()
setSettingsGtkXftHinting :: o -> Int32 -> m ()
setSettingsGtkXftHinting obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "gtk-xft-hinting" Int32
val
constructSettingsGtkXftHinting :: (IsSettings o) => Int32 -> IO (GValueConstruct o)
constructSettingsGtkXftHinting :: Int32 -> IO (GValueConstruct o)
constructSettingsGtkXftHinting val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "gtk-xft-hinting" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingsGtkXftHintingPropertyInfo
instance AttrInfo SettingsGtkXftHintingPropertyInfo where
type AttrAllowedOps SettingsGtkXftHintingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsGtkXftHintingPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkXftHintingPropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingsGtkXftHintingPropertyInfo = (~) Int32
type AttrTransferType SettingsGtkXftHintingPropertyInfo = Int32
type AttrGetType SettingsGtkXftHintingPropertyInfo = Int32
type AttrLabel SettingsGtkXftHintingPropertyInfo = "gtk-xft-hinting"
type AttrOrigin SettingsGtkXftHintingPropertyInfo = Settings
attrGet = getSettingsGtkXftHinting
attrSet = setSettingsGtkXftHinting
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkXftHinting
attrClear = undefined
#endif
getSettingsGtkXftHintstyle :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkXftHintstyle :: o -> m (Maybe Text)
getSettingsGtkXftHintstyle obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-xft-hintstyle"
setSettingsGtkXftHintstyle :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkXftHintstyle :: o -> Text -> m ()
setSettingsGtkXftHintstyle obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-xft-hintstyle" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkXftHintstyle :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkXftHintstyle :: Text -> IO (GValueConstruct o)
constructSettingsGtkXftHintstyle val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-xft-hintstyle" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkXftHintstyle :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkXftHintstyle :: o -> m ()
clearSettingsGtkXftHintstyle obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-xft-hintstyle" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkXftHintstylePropertyInfo
instance AttrInfo SettingsGtkXftHintstylePropertyInfo where
type AttrAllowedOps SettingsGtkXftHintstylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkXftHintstylePropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkXftHintstylePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkXftHintstylePropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkXftHintstylePropertyInfo = T.Text
type AttrGetType SettingsGtkXftHintstylePropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkXftHintstylePropertyInfo = "gtk-xft-hintstyle"
type AttrOrigin SettingsGtkXftHintstylePropertyInfo = Settings
attrGet = getSettingsGtkXftHintstyle
attrSet = setSettingsGtkXftHintstyle
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkXftHintstyle
attrClear = clearSettingsGtkXftHintstyle
#endif
getSettingsGtkXftRgba :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)
getSettingsGtkXftRgba :: o -> m (Maybe Text)
getSettingsGtkXftRgba obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "gtk-xft-rgba"
setSettingsGtkXftRgba :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsGtkXftRgba :: o -> Text -> m ()
setSettingsGtkXftRgba obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-xft-rgba" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsGtkXftRgba :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsGtkXftRgba :: Text -> IO (GValueConstruct o)
constructSettingsGtkXftRgba val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "gtk-xft-rgba" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSettingsGtkXftRgba :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsGtkXftRgba :: o -> m ()
clearSettingsGtkXftRgba obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "gtk-xft-rgba" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsGtkXftRgbaPropertyInfo
instance AttrInfo SettingsGtkXftRgbaPropertyInfo where
type AttrAllowedOps SettingsGtkXftRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsGtkXftRgbaPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsGtkXftRgbaPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsGtkXftRgbaPropertyInfo = (~) T.Text
type AttrTransferType SettingsGtkXftRgbaPropertyInfo = T.Text
type AttrGetType SettingsGtkXftRgbaPropertyInfo = (Maybe T.Text)
type AttrLabel SettingsGtkXftRgbaPropertyInfo = "gtk-xft-rgba"
type AttrOrigin SettingsGtkXftRgbaPropertyInfo = Settings
attrGet = getSettingsGtkXftRgba
attrSet = setSettingsGtkXftRgba
attrTransfer _ v = do
return v
attrConstruct = constructSettingsGtkXftRgba
attrClear = clearSettingsGtkXftRgba
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Settings
type instance O.AttributeList Settings = SettingsAttributeList
type SettingsAttributeList = ('[ '("colorHash", SettingsColorHashPropertyInfo), '("gtkAlternativeButtonOrder", SettingsGtkAlternativeButtonOrderPropertyInfo), '("gtkAlternativeSortArrows", SettingsGtkAlternativeSortArrowsPropertyInfo), '("gtkApplicationPreferDarkTheme", SettingsGtkApplicationPreferDarkThemePropertyInfo), '("gtkAutoMnemonics", SettingsGtkAutoMnemonicsPropertyInfo), '("gtkButtonImages", SettingsGtkButtonImagesPropertyInfo), '("gtkCanChangeAccels", SettingsGtkCanChangeAccelsPropertyInfo), '("gtkColorPalette", SettingsGtkColorPalettePropertyInfo), '("gtkColorScheme", SettingsGtkColorSchemePropertyInfo), '("gtkCursorBlink", SettingsGtkCursorBlinkPropertyInfo), '("gtkCursorBlinkTime", SettingsGtkCursorBlinkTimePropertyInfo), '("gtkCursorBlinkTimeout", SettingsGtkCursorBlinkTimeoutPropertyInfo), '("gtkCursorThemeName", SettingsGtkCursorThemeNamePropertyInfo), '("gtkCursorThemeSize", SettingsGtkCursorThemeSizePropertyInfo), '("gtkDecorationLayout", SettingsGtkDecorationLayoutPropertyInfo), '("gtkDialogsUseHeader", SettingsGtkDialogsUseHeaderPropertyInfo), '("gtkDndDragThreshold", SettingsGtkDndDragThresholdPropertyInfo), '("gtkDoubleClickDistance", SettingsGtkDoubleClickDistancePropertyInfo), '("gtkDoubleClickTime", SettingsGtkDoubleClickTimePropertyInfo), '("gtkEnableAccels", SettingsGtkEnableAccelsPropertyInfo), '("gtkEnableAnimations", SettingsGtkEnableAnimationsPropertyInfo), '("gtkEnableEventSounds", SettingsGtkEnableEventSoundsPropertyInfo), '("gtkEnableInputFeedbackSounds", SettingsGtkEnableInputFeedbackSoundsPropertyInfo), '("gtkEnableMnemonics", SettingsGtkEnableMnemonicsPropertyInfo), '("gtkEnablePrimaryPaste", SettingsGtkEnablePrimaryPastePropertyInfo), '("gtkEnableTooltips", SettingsGtkEnableTooltipsPropertyInfo), '("gtkEntryPasswordHintTimeout", SettingsGtkEntryPasswordHintTimeoutPropertyInfo), '("gtkEntrySelectOnFocus", SettingsGtkEntrySelectOnFocusPropertyInfo), '("gtkErrorBell", SettingsGtkErrorBellPropertyInfo), '("gtkFallbackIconTheme", SettingsGtkFallbackIconThemePropertyInfo), '("gtkFileChooserBackend", SettingsGtkFileChooserBackendPropertyInfo), '("gtkFontName", SettingsGtkFontNamePropertyInfo), '("gtkFontconfigTimestamp", SettingsGtkFontconfigTimestampPropertyInfo), '("gtkIconSizes", SettingsGtkIconSizesPropertyInfo), '("gtkIconThemeName", SettingsGtkIconThemeNamePropertyInfo), '("gtkImModule", SettingsGtkImModulePropertyInfo), '("gtkImPreeditStyle", SettingsGtkImPreeditStylePropertyInfo), '("gtkImStatusStyle", SettingsGtkImStatusStylePropertyInfo), '("gtkKeyThemeName", SettingsGtkKeyThemeNamePropertyInfo), '("gtkKeynavCursorOnly", SettingsGtkKeynavCursorOnlyPropertyInfo), '("gtkKeynavUseCaret", SettingsGtkKeynavUseCaretPropertyInfo), '("gtkKeynavWrapAround", SettingsGtkKeynavWrapAroundPropertyInfo), '("gtkLabelSelectOnFocus", SettingsGtkLabelSelectOnFocusPropertyInfo), '("gtkLongPressTime", SettingsGtkLongPressTimePropertyInfo), '("gtkMenuBarAccel", SettingsGtkMenuBarAccelPropertyInfo), '("gtkMenuBarPopupDelay", SettingsGtkMenuBarPopupDelayPropertyInfo), '("gtkMenuImages", SettingsGtkMenuImagesPropertyInfo), '("gtkMenuPopdownDelay", SettingsGtkMenuPopdownDelayPropertyInfo), '("gtkMenuPopupDelay", SettingsGtkMenuPopupDelayPropertyInfo), '("gtkModules", SettingsGtkModulesPropertyInfo), '("gtkOverlayScrolling", SettingsGtkOverlayScrollingPropertyInfo), '("gtkPrimaryButtonWarpsSlider", SettingsGtkPrimaryButtonWarpsSliderPropertyInfo), '("gtkPrintBackends", SettingsGtkPrintBackendsPropertyInfo), '("gtkPrintPreviewCommand", SettingsGtkPrintPreviewCommandPropertyInfo), '("gtkRecentFilesEnabled", SettingsGtkRecentFilesEnabledPropertyInfo), '("gtkRecentFilesLimit", SettingsGtkRecentFilesLimitPropertyInfo), '("gtkRecentFilesMaxAge", SettingsGtkRecentFilesMaxAgePropertyInfo), '("gtkScrolledWindowPlacement", SettingsGtkScrolledWindowPlacementPropertyInfo), '("gtkShellShowsAppMenu", SettingsGtkShellShowsAppMenuPropertyInfo), '("gtkShellShowsDesktop", SettingsGtkShellShowsDesktopPropertyInfo), '("gtkShellShowsMenubar", SettingsGtkShellShowsMenubarPropertyInfo), '("gtkShowInputMethodMenu", SettingsGtkShowInputMethodMenuPropertyInfo), '("gtkShowUnicodeMenu", SettingsGtkShowUnicodeMenuPropertyInfo), '("gtkSoundThemeName", SettingsGtkSoundThemeNamePropertyInfo), '("gtkSplitCursor", SettingsGtkSplitCursorPropertyInfo), '("gtkThemeName", SettingsGtkThemeNamePropertyInfo), '("gtkTimeoutExpand", SettingsGtkTimeoutExpandPropertyInfo), '("gtkTimeoutInitial", SettingsGtkTimeoutInitialPropertyInfo), '("gtkTimeoutRepeat", SettingsGtkTimeoutRepeatPropertyInfo), '("gtkTitlebarDoubleClick", SettingsGtkTitlebarDoubleClickPropertyInfo), '("gtkTitlebarMiddleClick", SettingsGtkTitlebarMiddleClickPropertyInfo), '("gtkTitlebarRightClick", SettingsGtkTitlebarRightClickPropertyInfo), '("gtkToolbarIconSize", SettingsGtkToolbarIconSizePropertyInfo), '("gtkToolbarStyle", SettingsGtkToolbarStylePropertyInfo), '("gtkTooltipBrowseModeTimeout", SettingsGtkTooltipBrowseModeTimeoutPropertyInfo), '("gtkTooltipBrowseTimeout", SettingsGtkTooltipBrowseTimeoutPropertyInfo), '("gtkTooltipTimeout", SettingsGtkTooltipTimeoutPropertyInfo), '("gtkTouchscreenMode", SettingsGtkTouchscreenModePropertyInfo), '("gtkVisibleFocus", SettingsGtkVisibleFocusPropertyInfo), '("gtkXftAntialias", SettingsGtkXftAntialiasPropertyInfo), '("gtkXftDpi", SettingsGtkXftDpiPropertyInfo), '("gtkXftHinting", SettingsGtkXftHintingPropertyInfo), '("gtkXftHintstyle", SettingsGtkXftHintstylePropertyInfo), '("gtkXftRgba", SettingsGtkXftRgbaPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
settingsColorHash :: AttrLabelProxy "colorHash"
settingsColorHash = AttrLabelProxy
settingsGtkAlternativeButtonOrder :: AttrLabelProxy "gtkAlternativeButtonOrder"
settingsGtkAlternativeButtonOrder = AttrLabelProxy
settingsGtkAlternativeSortArrows :: AttrLabelProxy "gtkAlternativeSortArrows"
settingsGtkAlternativeSortArrows = AttrLabelProxy
settingsGtkApplicationPreferDarkTheme :: AttrLabelProxy "gtkApplicationPreferDarkTheme"
settingsGtkApplicationPreferDarkTheme = AttrLabelProxy
settingsGtkAutoMnemonics :: AttrLabelProxy "gtkAutoMnemonics"
settingsGtkAutoMnemonics = AttrLabelProxy
settingsGtkButtonImages :: AttrLabelProxy "gtkButtonImages"
settingsGtkButtonImages = AttrLabelProxy
settingsGtkCanChangeAccels :: AttrLabelProxy "gtkCanChangeAccels"
settingsGtkCanChangeAccels = AttrLabelProxy
settingsGtkColorPalette :: AttrLabelProxy "gtkColorPalette"
settingsGtkColorPalette = AttrLabelProxy
settingsGtkColorScheme :: AttrLabelProxy "gtkColorScheme"
settingsGtkColorScheme = AttrLabelProxy
settingsGtkCursorBlink :: AttrLabelProxy "gtkCursorBlink"
settingsGtkCursorBlink = AttrLabelProxy
settingsGtkCursorBlinkTime :: AttrLabelProxy "gtkCursorBlinkTime"
settingsGtkCursorBlinkTime = AttrLabelProxy
settingsGtkCursorBlinkTimeout :: AttrLabelProxy "gtkCursorBlinkTimeout"
settingsGtkCursorBlinkTimeout = AttrLabelProxy
settingsGtkCursorThemeName :: AttrLabelProxy "gtkCursorThemeName"
settingsGtkCursorThemeName = AttrLabelProxy
settingsGtkCursorThemeSize :: AttrLabelProxy "gtkCursorThemeSize"
settingsGtkCursorThemeSize = AttrLabelProxy
settingsGtkDecorationLayout :: AttrLabelProxy "gtkDecorationLayout"
settingsGtkDecorationLayout = AttrLabelProxy
settingsGtkDialogsUseHeader :: AttrLabelProxy "gtkDialogsUseHeader"
settingsGtkDialogsUseHeader = AttrLabelProxy
settingsGtkDndDragThreshold :: AttrLabelProxy "gtkDndDragThreshold"
settingsGtkDndDragThreshold = AttrLabelProxy
settingsGtkDoubleClickDistance :: AttrLabelProxy "gtkDoubleClickDistance"
settingsGtkDoubleClickDistance = AttrLabelProxy
settingsGtkDoubleClickTime :: AttrLabelProxy "gtkDoubleClickTime"
settingsGtkDoubleClickTime = AttrLabelProxy
settingsGtkEnableAccels :: AttrLabelProxy "gtkEnableAccels"
settingsGtkEnableAccels = AttrLabelProxy
settingsGtkEnableAnimations :: AttrLabelProxy "gtkEnableAnimations"
settingsGtkEnableAnimations = AttrLabelProxy
settingsGtkEnableEventSounds :: AttrLabelProxy "gtkEnableEventSounds"
settingsGtkEnableEventSounds = AttrLabelProxy
settingsGtkEnableInputFeedbackSounds :: AttrLabelProxy "gtkEnableInputFeedbackSounds"
settingsGtkEnableInputFeedbackSounds = AttrLabelProxy
settingsGtkEnableMnemonics :: AttrLabelProxy "gtkEnableMnemonics"
settingsGtkEnableMnemonics = AttrLabelProxy
settingsGtkEnablePrimaryPaste :: AttrLabelProxy "gtkEnablePrimaryPaste"
settingsGtkEnablePrimaryPaste = AttrLabelProxy
settingsGtkEnableTooltips :: AttrLabelProxy "gtkEnableTooltips"
settingsGtkEnableTooltips = AttrLabelProxy
settingsGtkEntryPasswordHintTimeout :: AttrLabelProxy "gtkEntryPasswordHintTimeout"
settingsGtkEntryPasswordHintTimeout = AttrLabelProxy
settingsGtkEntrySelectOnFocus :: AttrLabelProxy "gtkEntrySelectOnFocus"
settingsGtkEntrySelectOnFocus = AttrLabelProxy
settingsGtkErrorBell :: AttrLabelProxy "gtkErrorBell"
settingsGtkErrorBell = AttrLabelProxy
settingsGtkFallbackIconTheme :: AttrLabelProxy "gtkFallbackIconTheme"
settingsGtkFallbackIconTheme = AttrLabelProxy
settingsGtkFileChooserBackend :: AttrLabelProxy "gtkFileChooserBackend"
settingsGtkFileChooserBackend = AttrLabelProxy
settingsGtkFontName :: AttrLabelProxy "gtkFontName"
settingsGtkFontName = AttrLabelProxy
settingsGtkFontconfigTimestamp :: AttrLabelProxy "gtkFontconfigTimestamp"
settingsGtkFontconfigTimestamp = AttrLabelProxy
settingsGtkIconSizes :: AttrLabelProxy "gtkIconSizes"
settingsGtkIconSizes = AttrLabelProxy
settingsGtkIconThemeName :: AttrLabelProxy "gtkIconThemeName"
settingsGtkIconThemeName = AttrLabelProxy
settingsGtkImModule :: AttrLabelProxy "gtkImModule"
settingsGtkImModule = AttrLabelProxy
settingsGtkImPreeditStyle :: AttrLabelProxy "gtkImPreeditStyle"
settingsGtkImPreeditStyle = AttrLabelProxy
settingsGtkImStatusStyle :: AttrLabelProxy "gtkImStatusStyle"
settingsGtkImStatusStyle = AttrLabelProxy
settingsGtkKeyThemeName :: AttrLabelProxy "gtkKeyThemeName"
settingsGtkKeyThemeName = AttrLabelProxy
settingsGtkKeynavCursorOnly :: AttrLabelProxy "gtkKeynavCursorOnly"
settingsGtkKeynavCursorOnly = AttrLabelProxy
settingsGtkKeynavUseCaret :: AttrLabelProxy "gtkKeynavUseCaret"
settingsGtkKeynavUseCaret = AttrLabelProxy
settingsGtkKeynavWrapAround :: AttrLabelProxy "gtkKeynavWrapAround"
settingsGtkKeynavWrapAround = AttrLabelProxy
settingsGtkLabelSelectOnFocus :: AttrLabelProxy "gtkLabelSelectOnFocus"
settingsGtkLabelSelectOnFocus = AttrLabelProxy
settingsGtkLongPressTime :: AttrLabelProxy "gtkLongPressTime"
settingsGtkLongPressTime = AttrLabelProxy
settingsGtkMenuBarAccel :: AttrLabelProxy "gtkMenuBarAccel"
settingsGtkMenuBarAccel = AttrLabelProxy
settingsGtkMenuBarPopupDelay :: AttrLabelProxy "gtkMenuBarPopupDelay"
settingsGtkMenuBarPopupDelay = AttrLabelProxy
settingsGtkMenuImages :: AttrLabelProxy "gtkMenuImages"
settingsGtkMenuImages = AttrLabelProxy
settingsGtkMenuPopdownDelay :: AttrLabelProxy "gtkMenuPopdownDelay"
settingsGtkMenuPopdownDelay = AttrLabelProxy
settingsGtkMenuPopupDelay :: AttrLabelProxy "gtkMenuPopupDelay"
settingsGtkMenuPopupDelay = AttrLabelProxy
settingsGtkModules :: AttrLabelProxy "gtkModules"
settingsGtkModules = AttrLabelProxy
settingsGtkOverlayScrolling :: AttrLabelProxy "gtkOverlayScrolling"
settingsGtkOverlayScrolling = AttrLabelProxy
settingsGtkPrimaryButtonWarpsSlider :: AttrLabelProxy "gtkPrimaryButtonWarpsSlider"
settingsGtkPrimaryButtonWarpsSlider = AttrLabelProxy
settingsGtkPrintBackends :: AttrLabelProxy "gtkPrintBackends"
settingsGtkPrintBackends = AttrLabelProxy
settingsGtkPrintPreviewCommand :: AttrLabelProxy "gtkPrintPreviewCommand"
settingsGtkPrintPreviewCommand = AttrLabelProxy
settingsGtkRecentFilesEnabled :: AttrLabelProxy "gtkRecentFilesEnabled"
settingsGtkRecentFilesEnabled = AttrLabelProxy
settingsGtkRecentFilesLimit :: AttrLabelProxy "gtkRecentFilesLimit"
settingsGtkRecentFilesLimit = AttrLabelProxy
settingsGtkRecentFilesMaxAge :: AttrLabelProxy "gtkRecentFilesMaxAge"
settingsGtkRecentFilesMaxAge = AttrLabelProxy
settingsGtkScrolledWindowPlacement :: AttrLabelProxy "gtkScrolledWindowPlacement"
settingsGtkScrolledWindowPlacement = AttrLabelProxy
settingsGtkShellShowsAppMenu :: AttrLabelProxy "gtkShellShowsAppMenu"
settingsGtkShellShowsAppMenu = AttrLabelProxy
settingsGtkShellShowsDesktop :: AttrLabelProxy "gtkShellShowsDesktop"
settingsGtkShellShowsDesktop = AttrLabelProxy
settingsGtkShellShowsMenubar :: AttrLabelProxy "gtkShellShowsMenubar"
settingsGtkShellShowsMenubar = AttrLabelProxy
settingsGtkShowInputMethodMenu :: AttrLabelProxy "gtkShowInputMethodMenu"
settingsGtkShowInputMethodMenu = AttrLabelProxy
settingsGtkShowUnicodeMenu :: AttrLabelProxy "gtkShowUnicodeMenu"
settingsGtkShowUnicodeMenu = AttrLabelProxy
settingsGtkSoundThemeName :: AttrLabelProxy "gtkSoundThemeName"
settingsGtkSoundThemeName = AttrLabelProxy
settingsGtkSplitCursor :: AttrLabelProxy "gtkSplitCursor"
settingsGtkSplitCursor = AttrLabelProxy
settingsGtkThemeName :: AttrLabelProxy "gtkThemeName"
settingsGtkThemeName = AttrLabelProxy
settingsGtkTimeoutExpand :: AttrLabelProxy "gtkTimeoutExpand"
settingsGtkTimeoutExpand = AttrLabelProxy
settingsGtkTimeoutInitial :: AttrLabelProxy "gtkTimeoutInitial"
settingsGtkTimeoutInitial = AttrLabelProxy
settingsGtkTimeoutRepeat :: AttrLabelProxy "gtkTimeoutRepeat"
settingsGtkTimeoutRepeat = AttrLabelProxy
settingsGtkTitlebarDoubleClick :: AttrLabelProxy "gtkTitlebarDoubleClick"
settingsGtkTitlebarDoubleClick = AttrLabelProxy
settingsGtkTitlebarMiddleClick :: AttrLabelProxy "gtkTitlebarMiddleClick"
settingsGtkTitlebarMiddleClick = AttrLabelProxy
settingsGtkTitlebarRightClick :: AttrLabelProxy "gtkTitlebarRightClick"
settingsGtkTitlebarRightClick = AttrLabelProxy
settingsGtkToolbarIconSize :: AttrLabelProxy "gtkToolbarIconSize"
settingsGtkToolbarIconSize = AttrLabelProxy
settingsGtkToolbarStyle :: AttrLabelProxy "gtkToolbarStyle"
settingsGtkToolbarStyle = AttrLabelProxy
settingsGtkTooltipBrowseModeTimeout :: AttrLabelProxy "gtkTooltipBrowseModeTimeout"
settingsGtkTooltipBrowseModeTimeout = AttrLabelProxy
settingsGtkTooltipBrowseTimeout :: AttrLabelProxy "gtkTooltipBrowseTimeout"
settingsGtkTooltipBrowseTimeout = AttrLabelProxy
settingsGtkTooltipTimeout :: AttrLabelProxy "gtkTooltipTimeout"
settingsGtkTooltipTimeout = AttrLabelProxy
settingsGtkTouchscreenMode :: AttrLabelProxy "gtkTouchscreenMode"
settingsGtkTouchscreenMode = AttrLabelProxy
settingsGtkVisibleFocus :: AttrLabelProxy "gtkVisibleFocus"
settingsGtkVisibleFocus = AttrLabelProxy
settingsGtkXftAntialias :: AttrLabelProxy "gtkXftAntialias"
settingsGtkXftAntialias = AttrLabelProxy
settingsGtkXftDpi :: AttrLabelProxy "gtkXftDpi"
settingsGtkXftDpi = AttrLabelProxy
settingsGtkXftHinting :: AttrLabelProxy "gtkXftHinting"
settingsGtkXftHinting = AttrLabelProxy
settingsGtkXftHintstyle :: AttrLabelProxy "gtkXftHintstyle"
settingsGtkXftHintstyle = AttrLabelProxy
settingsGtkXftRgba :: AttrLabelProxy "gtkXftRgba"
settingsGtkXftRgba = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Settings = SettingsSignalList
type SettingsSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_settings_reset_property" gtk_settings_reset_property ::
Ptr Settings ->
CString ->
IO ()
settingsResetProperty ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> T.Text
-> m ()
settingsResetProperty :: a -> Text -> m ()
settingsResetProperty settings :: a
settings name :: Text
name = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr Settings -> CString -> IO ()
gtk_settings_reset_property Ptr Settings
settings' CString
name'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsResetPropertyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsResetPropertyMethodInfo a signature where
overloadedMethod = settingsResetProperty
#endif
foreign import ccall "gtk_settings_set_double_property" gtk_settings_set_double_property ::
Ptr Settings ->
CString ->
CDouble ->
CString ->
IO ()
{-# DEPRECATED settingsSetDoubleProperty ["(Since version 3.16)","Use @/g_object_set()/@ instead."] #-}
settingsSetDoubleProperty ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> T.Text
-> Double
-> T.Text
-> m ()
settingsSetDoubleProperty :: a -> Text -> Double -> Text -> m ()
settingsSetDoubleProperty settings :: a
settings name :: Text
name vDouble :: Double
vDouble origin :: Text
origin = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
CString
name' <- Text -> IO CString
textToCString Text
name
let vDouble' :: CDouble
vDouble' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
vDouble
CString
origin' <- Text -> IO CString
textToCString Text
origin
Ptr Settings -> CString -> CDouble -> CString -> IO ()
gtk_settings_set_double_property Ptr Settings
settings' CString
name' CDouble
vDouble' CString
origin'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
origin'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetDoublePropertyMethodInfo
instance (signature ~ (T.Text -> Double -> T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetDoublePropertyMethodInfo a signature where
overloadedMethod = settingsSetDoubleProperty
#endif
foreign import ccall "gtk_settings_set_long_property" gtk_settings_set_long_property ::
Ptr Settings ->
CString ->
CLong ->
CString ->
IO ()
{-# DEPRECATED settingsSetLongProperty ["(Since version 3.16)","Use @/g_object_set()/@ instead."] #-}
settingsSetLongProperty ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> T.Text
-> CLong
-> T.Text
-> m ()
settingsSetLongProperty :: a -> Text -> CLong -> Text -> m ()
settingsSetLongProperty settings :: a
settings name :: Text
name vLong :: CLong
vLong origin :: Text
origin = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
CString
name' <- Text -> IO CString
textToCString Text
name
CString
origin' <- Text -> IO CString
textToCString Text
origin
Ptr Settings -> CString -> CLong -> CString -> IO ()
gtk_settings_set_long_property Ptr Settings
settings' CString
name' CLong
vLong CString
origin'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
origin'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetLongPropertyMethodInfo
instance (signature ~ (T.Text -> CLong -> T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetLongPropertyMethodInfo a signature where
overloadedMethod = settingsSetLongProperty
#endif
foreign import ccall "gtk_settings_set_property_value" gtk_settings_set_property_value ::
Ptr Settings ->
CString ->
Ptr Gtk.SettingsValue.SettingsValue ->
IO ()
{-# DEPRECATED settingsSetPropertyValue ["(Since version 3.16)","Use @/g_object_set()/@ instead."] #-}
settingsSetPropertyValue ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> T.Text
-> Gtk.SettingsValue.SettingsValue
-> m ()
settingsSetPropertyValue :: a -> Text -> SettingsValue -> m ()
settingsSetPropertyValue settings :: a
settings name :: Text
name svalue :: SettingsValue
svalue = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr SettingsValue
svalue' <- SettingsValue -> IO (Ptr SettingsValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsValue
svalue
Ptr Settings -> CString -> Ptr SettingsValue -> IO ()
gtk_settings_set_property_value Ptr Settings
settings' CString
name' Ptr SettingsValue
svalue'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
SettingsValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SettingsValue
svalue
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetPropertyValueMethodInfo
instance (signature ~ (T.Text -> Gtk.SettingsValue.SettingsValue -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetPropertyValueMethodInfo a signature where
overloadedMethod = settingsSetPropertyValue
#endif
foreign import ccall "gtk_settings_set_string_property" gtk_settings_set_string_property ::
Ptr Settings ->
CString ->
CString ->
CString ->
IO ()
{-# DEPRECATED settingsSetStringProperty ["(Since version 3.16)","Use @/g_object_set()/@ instead."] #-}
settingsSetStringProperty ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> T.Text
-> T.Text
-> T.Text
-> m ()
settingsSetStringProperty :: a -> Text -> Text -> Text -> m ()
settingsSetStringProperty settings :: a
settings name :: Text
name vString :: Text
vString origin :: Text
origin = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
CString
name' <- Text -> IO CString
textToCString Text
name
CString
vString' <- Text -> IO CString
textToCString Text
vString
CString
origin' <- Text -> IO CString
textToCString Text
origin
Ptr Settings -> CString -> CString -> CString -> IO ()
gtk_settings_set_string_property Ptr Settings
settings' CString
name' CString
vString' CString
origin'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
vString'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
origin'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetStringPropertyMethodInfo
instance (signature ~ (T.Text -> T.Text -> T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetStringPropertyMethodInfo a signature where
overloadedMethod = settingsSetStringProperty
#endif
foreign import ccall "gtk_settings_get_default" gtk_settings_get_default ::
IO (Ptr Settings)
settingsGetDefault ::
(B.CallStack.HasCallStack, MonadIO m) =>
m (Maybe Settings)
settingsGetDefault :: m (Maybe Settings)
settingsGetDefault = IO (Maybe Settings) -> m (Maybe Settings)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Settings) -> m (Maybe Settings))
-> IO (Maybe Settings) -> m (Maybe Settings)
forall a b. (a -> b) -> a -> b
$ do
Ptr Settings
result <- IO (Ptr Settings)
gtk_settings_get_default
Maybe Settings
maybeResult <- Ptr Settings
-> (Ptr Settings -> IO Settings) -> IO (Maybe Settings)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Settings
result ((Ptr Settings -> IO Settings) -> IO (Maybe Settings))
-> (Ptr Settings -> IO Settings) -> IO (Maybe Settings)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr Settings
result' -> do
Settings
result'' <- ((ManagedPtr Settings -> Settings) -> Ptr Settings -> IO Settings
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Settings -> Settings
Settings) Ptr Settings
result'
Settings -> IO Settings
forall (m :: * -> *) a. Monad m => a -> m a
return Settings
result''
Maybe Settings -> IO (Maybe Settings)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Settings
maybeResult
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_settings_get_for_screen" gtk_settings_get_for_screen ::
Ptr Gdk.Screen.Screen ->
IO (Ptr Settings)
settingsGetForScreen ::
(B.CallStack.HasCallStack, MonadIO m, Gdk.Screen.IsScreen a) =>
a
-> m Settings
settingsGetForScreen :: a -> m Settings
settingsGetForScreen screen :: a
screen = IO Settings -> m Settings
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Settings -> m Settings) -> IO Settings -> m Settings
forall a b. (a -> b) -> a -> b
$ do
Ptr Screen
screen' <- a -> IO (Ptr Screen)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
screen
Ptr Settings
result <- Ptr Screen -> IO (Ptr Settings)
gtk_settings_get_for_screen Ptr Screen
screen'
Text -> Ptr Settings -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "settingsGetForScreen" Ptr Settings
result
Settings
result' <- ((ManagedPtr Settings -> Settings) -> Ptr Settings -> IO Settings
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Settings -> Settings
Settings) Ptr Settings
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
screen
Settings -> IO Settings
forall (m :: * -> *) a. Monad m => a -> m a
return Settings
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_settings_install_property" gtk_settings_install_property ::
Ptr GParamSpec ->
IO ()
{-# DEPRECATED settingsInstallProperty ["(Since version 3.16)","This function is not useful outside GTK+."] #-}
settingsInstallProperty ::
(B.CallStack.HasCallStack, MonadIO m) =>
GParamSpec
-> m ()
settingsInstallProperty :: GParamSpec -> m ()
settingsInstallProperty pspec :: GParamSpec
pspec = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GParamSpec
pspec' <- GParamSpec -> IO (Ptr GParamSpec)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GParamSpec
pspec
Ptr GParamSpec -> IO ()
gtk_settings_install_property Ptr GParamSpec
pspec'
GParamSpec -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GParamSpec
pspec
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_settings_install_property_parser" gtk_settings_install_property_parser ::
Ptr GParamSpec ->
FunPtr Gtk.Callbacks.C_RcPropertyParser ->
IO ()
{-# DEPRECATED settingsInstallPropertyParser ["(Since version 3.16)","This function is not useful outside GTK+."] #-}
settingsInstallPropertyParser ::
(B.CallStack.HasCallStack, MonadIO m) =>
GParamSpec
-> Gtk.Callbacks.RcPropertyParser
-> m ()
settingsInstallPropertyParser :: GParamSpec -> RcPropertyParser -> m ()
settingsInstallPropertyParser pspec :: GParamSpec
pspec parser :: RcPropertyParser
parser = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GParamSpec
pspec' <- GParamSpec -> IO (Ptr GParamSpec)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GParamSpec
pspec
FunPtr C_RcPropertyParser
parser' <- C_RcPropertyParser -> IO (FunPtr C_RcPropertyParser)
Gtk.Callbacks.mk_RcPropertyParser (Maybe (Ptr (FunPtr C_RcPropertyParser))
-> RcPropertyParser -> C_RcPropertyParser
Gtk.Callbacks.wrap_RcPropertyParser Maybe (Ptr (FunPtr C_RcPropertyParser))
forall a. Maybe a
Nothing RcPropertyParser
parser)
Ptr GParamSpec -> FunPtr C_RcPropertyParser -> IO ()
gtk_settings_install_property_parser Ptr GParamSpec
pspec' FunPtr C_RcPropertyParser
parser'
Ptr Any -> IO ()
forall a. Ptr a -> IO ()
safeFreeFunPtr (Ptr Any -> IO ()) -> Ptr Any -> IO ()
forall a b. (a -> b) -> a -> b
$ FunPtr C_RcPropertyParser -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_RcPropertyParser
parser'
GParamSpec -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GParamSpec
pspec
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif