{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.AspectFrame
(
AspectFrame(..) ,
IsAspectFrame ,
toAspectFrame ,
noAspectFrame ,
#if defined(ENABLE_OVERLOADING)
ResolveAspectFrameMethod ,
#endif
aspectFrameNew ,
#if defined(ENABLE_OVERLOADING)
AspectFrameSetMethodInfo ,
#endif
aspectFrameSet ,
#if defined(ENABLE_OVERLOADING)
AspectFrameObeyChildPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aspectFrameObeyChild ,
#endif
constructAspectFrameObeyChild ,
getAspectFrameObeyChild ,
setAspectFrameObeyChild ,
#if defined(ENABLE_OVERLOADING)
AspectFrameRatioPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aspectFrameRatio ,
#endif
constructAspectFrameRatio ,
getAspectFrameRatio ,
setAspectFrameRatio ,
#if defined(ENABLE_OVERLOADING)
AspectFrameXalignPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aspectFrameXalign ,
#endif
constructAspectFrameXalign ,
getAspectFrameXalign ,
setAspectFrameXalign ,
#if defined(ENABLE_OVERLOADING)
AspectFrameYalignPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
aspectFrameYalign ,
#endif
constructAspectFrameYalign ,
getAspectFrameYalign ,
setAspectFrameYalign ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Bin as Gtk.Bin
import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.Frame as Gtk.Frame
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype AspectFrame = AspectFrame (ManagedPtr AspectFrame)
deriving (AspectFrame -> AspectFrame -> Bool
(AspectFrame -> AspectFrame -> Bool)
-> (AspectFrame -> AspectFrame -> Bool) -> Eq AspectFrame
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AspectFrame -> AspectFrame -> Bool
$c/= :: AspectFrame -> AspectFrame -> Bool
== :: AspectFrame -> AspectFrame -> Bool
$c== :: AspectFrame -> AspectFrame -> Bool
Eq)
foreign import ccall "gtk_aspect_frame_get_type"
c_gtk_aspect_frame_get_type :: IO GType
instance GObject AspectFrame where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_aspect_frame_get_type
instance B.GValue.IsGValue AspectFrame where
toGValue :: AspectFrame -> IO GValue
toGValue o :: AspectFrame
o = do
GType
gtype <- IO GType
c_gtk_aspect_frame_get_type
AspectFrame -> (Ptr AspectFrame -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr AspectFrame
o (GType
-> (GValue -> Ptr AspectFrame -> IO ())
-> Ptr AspectFrame
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr AspectFrame -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO AspectFrame
fromGValue gv :: GValue
gv = do
Ptr AspectFrame
ptr <- GValue -> IO (Ptr AspectFrame)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr AspectFrame)
(ManagedPtr AspectFrame -> AspectFrame)
-> Ptr AspectFrame -> IO AspectFrame
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr AspectFrame -> AspectFrame
AspectFrame Ptr AspectFrame
ptr
class (GObject o, O.IsDescendantOf AspectFrame o) => IsAspectFrame o
instance (GObject o, O.IsDescendantOf AspectFrame o) => IsAspectFrame o
instance O.HasParentTypes AspectFrame
type instance O.ParentTypes AspectFrame = '[Gtk.Frame.Frame, Gtk.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
toAspectFrame :: (MonadIO m, IsAspectFrame o) => o -> m AspectFrame
toAspectFrame :: o -> m AspectFrame
toAspectFrame = IO AspectFrame -> m AspectFrame
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AspectFrame -> m AspectFrame)
-> (o -> IO AspectFrame) -> o -> m AspectFrame
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr AspectFrame -> AspectFrame) -> o -> IO AspectFrame
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr AspectFrame -> AspectFrame
AspectFrame
noAspectFrame :: Maybe AspectFrame
noAspectFrame :: Maybe AspectFrame
noAspectFrame = Maybe AspectFrame
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveAspectFrameMethod (t :: Symbol) (o :: *) :: * where
ResolveAspectFrameMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveAspectFrameMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveAspectFrameMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveAspectFrameMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveAspectFrameMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveAspectFrameMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveAspectFrameMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveAspectFrameMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveAspectFrameMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveAspectFrameMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveAspectFrameMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAspectFrameMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAspectFrameMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveAspectFrameMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveAspectFrameMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveAspectFrameMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveAspectFrameMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveAspectFrameMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveAspectFrameMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveAspectFrameMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveAspectFrameMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveAspectFrameMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveAspectFrameMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveAspectFrameMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveAspectFrameMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveAspectFrameMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveAspectFrameMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveAspectFrameMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveAspectFrameMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveAspectFrameMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveAspectFrameMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveAspectFrameMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveAspectFrameMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveAspectFrameMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveAspectFrameMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveAspectFrameMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveAspectFrameMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveAspectFrameMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveAspectFrameMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveAspectFrameMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveAspectFrameMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveAspectFrameMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveAspectFrameMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveAspectFrameMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveAspectFrameMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveAspectFrameMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveAspectFrameMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveAspectFrameMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveAspectFrameMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveAspectFrameMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveAspectFrameMethod "dragSourceSetIconPaintable" o = Gtk.Widget.WidgetDragSourceSetIconPaintableMethodInfo
ResolveAspectFrameMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveAspectFrameMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveAspectFrameMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveAspectFrameMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveAspectFrameMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveAspectFrameMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveAspectFrameMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAspectFrameMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveAspectFrameMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAspectFrameMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveAspectFrameMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveAspectFrameMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveAspectFrameMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveAspectFrameMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveAspectFrameMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveAspectFrameMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveAspectFrameMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveAspectFrameMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveAspectFrameMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveAspectFrameMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveAspectFrameMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveAspectFrameMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveAspectFrameMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveAspectFrameMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveAspectFrameMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveAspectFrameMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveAspectFrameMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveAspectFrameMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveAspectFrameMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveAspectFrameMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveAspectFrameMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveAspectFrameMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveAspectFrameMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveAspectFrameMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveAspectFrameMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveAspectFrameMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveAspectFrameMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveAspectFrameMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveAspectFrameMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveAspectFrameMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveAspectFrameMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveAspectFrameMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveAspectFrameMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveAspectFrameMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveAspectFrameMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveAspectFrameMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveAspectFrameMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveAspectFrameMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveAspectFrameMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveAspectFrameMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveAspectFrameMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveAspectFrameMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAspectFrameMethod "registerSurface" o = Gtk.Widget.WidgetRegisterSurfaceMethodInfo
ResolveAspectFrameMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveAspectFrameMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveAspectFrameMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveAspectFrameMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveAspectFrameMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveAspectFrameMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveAspectFrameMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAspectFrameMethod "set" o = AspectFrameSetMethodInfo
ResolveAspectFrameMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveAspectFrameMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveAspectFrameMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveAspectFrameMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveAspectFrameMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveAspectFrameMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveAspectFrameMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveAspectFrameMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveAspectFrameMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveAspectFrameMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveAspectFrameMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveAspectFrameMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveAspectFrameMethod "unregisterSurface" o = Gtk.Widget.WidgetUnregisterSurfaceMethodInfo
ResolveAspectFrameMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveAspectFrameMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAspectFrameMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveAspectFrameMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveAspectFrameMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveAspectFrameMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveAspectFrameMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveAspectFrameMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveAspectFrameMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveAspectFrameMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveAspectFrameMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveAspectFrameMethod "getChild" o = Gtk.Bin.BinGetChildMethodInfo
ResolveAspectFrameMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveAspectFrameMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveAspectFrameMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveAspectFrameMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveAspectFrameMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveAspectFrameMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveAspectFrameMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveAspectFrameMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveAspectFrameMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveAspectFrameMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveAspectFrameMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveAspectFrameMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolveAspectFrameMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveAspectFrameMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveAspectFrameMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveAspectFrameMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveAspectFrameMethod "getHasSurface" o = Gtk.Widget.WidgetGetHasSurfaceMethodInfo
ResolveAspectFrameMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveAspectFrameMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveAspectFrameMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveAspectFrameMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveAspectFrameMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveAspectFrameMethod "getLabel" o = Gtk.Frame.FrameGetLabelMethodInfo
ResolveAspectFrameMethod "getLabelAlign" o = Gtk.Frame.FrameGetLabelAlignMethodInfo
ResolveAspectFrameMethod "getLabelWidget" o = Gtk.Frame.FrameGetLabelWidgetMethodInfo
ResolveAspectFrameMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveAspectFrameMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveAspectFrameMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveAspectFrameMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveAspectFrameMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveAspectFrameMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveAspectFrameMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveAspectFrameMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveAspectFrameMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveAspectFrameMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveAspectFrameMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveAspectFrameMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveAspectFrameMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveAspectFrameMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveAspectFrameMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveAspectFrameMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveAspectFrameMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveAspectFrameMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveAspectFrameMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveAspectFrameMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveAspectFrameMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveAspectFrameMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveAspectFrameMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveAspectFrameMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveAspectFrameMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveAspectFrameMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveAspectFrameMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveAspectFrameMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveAspectFrameMethod "getShadowType" o = Gtk.Frame.FrameGetShadowTypeMethodInfo
ResolveAspectFrameMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveAspectFrameMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveAspectFrameMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveAspectFrameMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveAspectFrameMethod "getSurface" o = Gtk.Widget.WidgetGetSurfaceMethodInfo
ResolveAspectFrameMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveAspectFrameMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveAspectFrameMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveAspectFrameMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveAspectFrameMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveAspectFrameMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveAspectFrameMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveAspectFrameMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveAspectFrameMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveAspectFrameMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveAspectFrameMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveAspectFrameMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveAspectFrameMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveAspectFrameMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveAspectFrameMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveAspectFrameMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveAspectFrameMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveAspectFrameMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveAspectFrameMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveAspectFrameMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveAspectFrameMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveAspectFrameMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveAspectFrameMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveAspectFrameMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveAspectFrameMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveAspectFrameMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveAspectFrameMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveAspectFrameMethod "setHasSurface" o = Gtk.Widget.WidgetSetHasSurfaceMethodInfo
ResolveAspectFrameMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveAspectFrameMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveAspectFrameMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveAspectFrameMethod "setLabel" o = Gtk.Frame.FrameSetLabelMethodInfo
ResolveAspectFrameMethod "setLabelAlign" o = Gtk.Frame.FrameSetLabelAlignMethodInfo
ResolveAspectFrameMethod "setLabelWidget" o = Gtk.Frame.FrameSetLabelWidgetMethodInfo
ResolveAspectFrameMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveAspectFrameMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveAspectFrameMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveAspectFrameMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveAspectFrameMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveAspectFrameMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveAspectFrameMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveAspectFrameMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveAspectFrameMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveAspectFrameMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveAspectFrameMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveAspectFrameMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveAspectFrameMethod "setShadowType" o = Gtk.Frame.FrameSetShadowTypeMethodInfo
ResolveAspectFrameMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveAspectFrameMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveAspectFrameMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveAspectFrameMethod "setSurface" o = Gtk.Widget.WidgetSetSurfaceMethodInfo
ResolveAspectFrameMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveAspectFrameMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveAspectFrameMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveAspectFrameMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveAspectFrameMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveAspectFrameMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveAspectFrameMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveAspectFrameMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAspectFrameMethod t AspectFrame, O.MethodInfo info AspectFrame p) => OL.IsLabel t (AspectFrame -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getAspectFrameObeyChild :: (MonadIO m, IsAspectFrame o) => o -> m Bool
getAspectFrameObeyChild :: o -> m Bool
getAspectFrameObeyChild 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 "obey-child"
setAspectFrameObeyChild :: (MonadIO m, IsAspectFrame o) => o -> Bool -> m ()
setAspectFrameObeyChild :: o -> Bool -> m ()
setAspectFrameObeyChild 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 "obey-child" Bool
val
constructAspectFrameObeyChild :: (IsAspectFrame o) => Bool -> IO (GValueConstruct o)
constructAspectFrameObeyChild :: Bool -> IO (GValueConstruct o)
constructAspectFrameObeyChild val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "obey-child" Bool
val
#if defined(ENABLE_OVERLOADING)
data AspectFrameObeyChildPropertyInfo
instance AttrInfo AspectFrameObeyChildPropertyInfo where
type AttrAllowedOps AspectFrameObeyChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AspectFrameObeyChildPropertyInfo = IsAspectFrame
type AttrSetTypeConstraint AspectFrameObeyChildPropertyInfo = (~) Bool
type AttrTransferTypeConstraint AspectFrameObeyChildPropertyInfo = (~) Bool
type AttrTransferType AspectFrameObeyChildPropertyInfo = Bool
type AttrGetType AspectFrameObeyChildPropertyInfo = Bool
type AttrLabel AspectFrameObeyChildPropertyInfo = "obey-child"
type AttrOrigin AspectFrameObeyChildPropertyInfo = AspectFrame
attrGet = getAspectFrameObeyChild
attrSet = setAspectFrameObeyChild
attrTransfer _ v = do
return v
attrConstruct = constructAspectFrameObeyChild
attrClear = undefined
#endif
getAspectFrameRatio :: (MonadIO m, IsAspectFrame o) => o -> m Float
getAspectFrameRatio :: o -> m Float
getAspectFrameRatio obj :: o
obj = IO Float -> m Float
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Float
forall a. GObject a => a -> String -> IO Float
B.Properties.getObjectPropertyFloat o
obj "ratio"
setAspectFrameRatio :: (MonadIO m, IsAspectFrame o) => o -> Float -> m ()
setAspectFrameRatio :: o -> Float -> m ()
setAspectFrameRatio obj :: o
obj val :: Float
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 -> Float -> IO ()
forall a. GObject a => a -> String -> Float -> IO ()
B.Properties.setObjectPropertyFloat o
obj "ratio" Float
val
constructAspectFrameRatio :: (IsAspectFrame o) => Float -> IO (GValueConstruct o)
constructAspectFrameRatio :: Float -> IO (GValueConstruct o)
constructAspectFrameRatio val :: Float
val = String -> Float -> IO (GValueConstruct o)
forall o. String -> Float -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFloat "ratio" Float
val
#if defined(ENABLE_OVERLOADING)
data AspectFrameRatioPropertyInfo
instance AttrInfo AspectFrameRatioPropertyInfo where
type AttrAllowedOps AspectFrameRatioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AspectFrameRatioPropertyInfo = IsAspectFrame
type AttrSetTypeConstraint AspectFrameRatioPropertyInfo = (~) Float
type AttrTransferTypeConstraint AspectFrameRatioPropertyInfo = (~) Float
type AttrTransferType AspectFrameRatioPropertyInfo = Float
type AttrGetType AspectFrameRatioPropertyInfo = Float
type AttrLabel AspectFrameRatioPropertyInfo = "ratio"
type AttrOrigin AspectFrameRatioPropertyInfo = AspectFrame
attrGet = getAspectFrameRatio
attrSet = setAspectFrameRatio
attrTransfer _ v = do
return v
attrConstruct = constructAspectFrameRatio
attrClear = undefined
#endif
getAspectFrameXalign :: (MonadIO m, IsAspectFrame o) => o -> m Float
getAspectFrameXalign :: o -> m Float
getAspectFrameXalign obj :: o
obj = IO Float -> m Float
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Float
forall a. GObject a => a -> String -> IO Float
B.Properties.getObjectPropertyFloat o
obj "xalign"
setAspectFrameXalign :: (MonadIO m, IsAspectFrame o) => o -> Float -> m ()
setAspectFrameXalign :: o -> Float -> m ()
setAspectFrameXalign obj :: o
obj val :: Float
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 -> Float -> IO ()
forall a. GObject a => a -> String -> Float -> IO ()
B.Properties.setObjectPropertyFloat o
obj "xalign" Float
val
constructAspectFrameXalign :: (IsAspectFrame o) => Float -> IO (GValueConstruct o)
constructAspectFrameXalign :: Float -> IO (GValueConstruct o)
constructAspectFrameXalign val :: Float
val = String -> Float -> IO (GValueConstruct o)
forall o. String -> Float -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFloat "xalign" Float
val
#if defined(ENABLE_OVERLOADING)
data AspectFrameXalignPropertyInfo
instance AttrInfo AspectFrameXalignPropertyInfo where
type AttrAllowedOps AspectFrameXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AspectFrameXalignPropertyInfo = IsAspectFrame
type AttrSetTypeConstraint AspectFrameXalignPropertyInfo = (~) Float
type AttrTransferTypeConstraint AspectFrameXalignPropertyInfo = (~) Float
type AttrTransferType AspectFrameXalignPropertyInfo = Float
type AttrGetType AspectFrameXalignPropertyInfo = Float
type AttrLabel AspectFrameXalignPropertyInfo = "xalign"
type AttrOrigin AspectFrameXalignPropertyInfo = AspectFrame
attrGet = getAspectFrameXalign
attrSet = setAspectFrameXalign
attrTransfer _ v = do
return v
attrConstruct = constructAspectFrameXalign
attrClear = undefined
#endif
getAspectFrameYalign :: (MonadIO m, IsAspectFrame o) => o -> m Float
getAspectFrameYalign :: o -> m Float
getAspectFrameYalign obj :: o
obj = IO Float -> m Float
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Float
forall a. GObject a => a -> String -> IO Float
B.Properties.getObjectPropertyFloat o
obj "yalign"
setAspectFrameYalign :: (MonadIO m, IsAspectFrame o) => o -> Float -> m ()
setAspectFrameYalign :: o -> Float -> m ()
setAspectFrameYalign obj :: o
obj val :: Float
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 -> Float -> IO ()
forall a. GObject a => a -> String -> Float -> IO ()
B.Properties.setObjectPropertyFloat o
obj "yalign" Float
val
constructAspectFrameYalign :: (IsAspectFrame o) => Float -> IO (GValueConstruct o)
constructAspectFrameYalign :: Float -> IO (GValueConstruct o)
constructAspectFrameYalign val :: Float
val = String -> Float -> IO (GValueConstruct o)
forall o. String -> Float -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFloat "yalign" Float
val
#if defined(ENABLE_OVERLOADING)
data AspectFrameYalignPropertyInfo
instance AttrInfo AspectFrameYalignPropertyInfo where
type AttrAllowedOps AspectFrameYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AspectFrameYalignPropertyInfo = IsAspectFrame
type AttrSetTypeConstraint AspectFrameYalignPropertyInfo = (~) Float
type AttrTransferTypeConstraint AspectFrameYalignPropertyInfo = (~) Float
type AttrTransferType AspectFrameYalignPropertyInfo = Float
type AttrGetType AspectFrameYalignPropertyInfo = Float
type AttrLabel AspectFrameYalignPropertyInfo = "yalign"
type AttrOrigin AspectFrameYalignPropertyInfo = AspectFrame
attrGet = getAspectFrameYalign
attrSet = setAspectFrameYalign
attrTransfer _ v = do
return v
attrConstruct = constructAspectFrameYalign
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList AspectFrame
type instance O.AttributeList AspectFrame = AspectFrameAttributeList
type AspectFrameAttributeList = ('[ '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("label", Gtk.Frame.FrameLabelPropertyInfo), '("labelWidget", Gtk.Frame.FrameLabelWidgetPropertyInfo), '("labelXalign", Gtk.Frame.FrameLabelXalignPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("obeyChild", AspectFrameObeyChildPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("ratio", AspectFrameRatioPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("shadowType", Gtk.Frame.FrameShadowTypePropertyInfo), '("surface", Gtk.Widget.WidgetSurfacePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("xalign", AspectFrameXalignPropertyInfo), '("yalign", AspectFrameYalignPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
aspectFrameObeyChild :: AttrLabelProxy "obeyChild"
aspectFrameObeyChild = AttrLabelProxy
aspectFrameRatio :: AttrLabelProxy "ratio"
aspectFrameRatio = AttrLabelProxy
aspectFrameXalign :: AttrLabelProxy "xalign"
aspectFrameXalign = AttrLabelProxy
aspectFrameYalign :: AttrLabelProxy "yalign"
aspectFrameYalign = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList AspectFrame = AspectFrameSignalList
type AspectFrameSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_aspect_frame_new" gtk_aspect_frame_new ::
CString ->
CFloat ->
CFloat ->
CFloat ->
CInt ->
IO (Ptr AspectFrame)
aspectFrameNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Maybe (T.Text)
-> Float
-> Float
-> Float
-> Bool
-> m AspectFrame
aspectFrameNew :: Maybe Text -> Float -> Float -> Float -> Bool -> m AspectFrame
aspectFrameNew label :: Maybe Text
label xalign :: Float
xalign yalign :: Float
yalign ratio :: Float
ratio obeyChild :: Bool
obeyChild = IO AspectFrame -> m AspectFrame
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AspectFrame -> m AspectFrame)
-> IO AspectFrame -> m AspectFrame
forall a b. (a -> b) -> a -> b
$ do
Ptr CChar
maybeLabel <- case Maybe Text
label of
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just jLabel :: Text
jLabel -> do
Ptr CChar
jLabel' <- Text -> IO (Ptr CChar)
textToCString Text
jLabel
Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jLabel'
let xalign' :: CFloat
xalign' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
xalign
let yalign' :: CFloat
yalign' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
yalign
let ratio' :: CFloat
ratio' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
ratio
let obeyChild' :: CInt
obeyChild' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
obeyChild
Ptr AspectFrame
result <- Ptr CChar
-> CFloat -> CFloat -> CFloat -> CInt -> IO (Ptr AspectFrame)
gtk_aspect_frame_new Ptr CChar
maybeLabel CFloat
xalign' CFloat
yalign' CFloat
ratio' CInt
obeyChild'
Text -> Ptr AspectFrame -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "aspectFrameNew" Ptr AspectFrame
result
AspectFrame
result' <- ((ManagedPtr AspectFrame -> AspectFrame)
-> Ptr AspectFrame -> IO AspectFrame
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr AspectFrame -> AspectFrame
AspectFrame) Ptr AspectFrame
result
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeLabel
AspectFrame -> IO AspectFrame
forall (m :: * -> *) a. Monad m => a -> m a
return AspectFrame
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_aspect_frame_set" gtk_aspect_frame_set ::
Ptr AspectFrame ->
CFloat ->
CFloat ->
CFloat ->
CInt ->
IO ()
aspectFrameSet ::
(B.CallStack.HasCallStack, MonadIO m, IsAspectFrame a) =>
a
-> Float
-> Float
-> Float
-> Bool
-> m ()
aspectFrameSet :: a -> Float -> Float -> Float -> Bool -> m ()
aspectFrameSet aspectFrame :: a
aspectFrame xalign :: Float
xalign yalign :: Float
yalign ratio :: Float
ratio obeyChild :: Bool
obeyChild = 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 AspectFrame
aspectFrame' <- a -> IO (Ptr AspectFrame)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
aspectFrame
let xalign' :: CFloat
xalign' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
xalign
let yalign' :: CFloat
yalign' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
yalign
let ratio' :: CFloat
ratio' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
ratio
let obeyChild' :: CInt
obeyChild' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
obeyChild
Ptr AspectFrame -> CFloat -> CFloat -> CFloat -> CInt -> IO ()
gtk_aspect_frame_set Ptr AspectFrame
aspectFrame' CFloat
xalign' CFloat
yalign' CFloat
ratio' CInt
obeyChild'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
aspectFrame
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AspectFrameSetMethodInfo
instance (signature ~ (Float -> Float -> Float -> Bool -> m ()), MonadIO m, IsAspectFrame a) => O.MethodInfo AspectFrameSetMethodInfo a signature where
overloadedMethod = aspectFrameSet
#endif