{- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) The 'GI.Gtk.Objects.Image.Image' widget displays an image. Various kinds of object can be displayed as an image; most typically, you would load a 'GI.GdkPixbuf.Objects.Pixbuf.Pixbuf' (\"pixel buffer\") from a file, and then display that. There’s a convenience function to do this, 'GI.Gtk.Objects.Image.imageNewFromFile', used as follows: === /C code/ > > GtkWidget *image; > image = gtk_image_new_from_file ("myfile.png"); If the file isn’t loaded successfully, the image will contain a “broken image” icon similar to that used in many web browsers. If you want to handle errors in loading the file yourself, for example by displaying an error message, then load the image with 'GI.GdkPixbuf.Objects.Pixbuf.pixbufNewFromFile', then create the 'GI.Gtk.Objects.Image.Image' with 'GI.Gtk.Objects.Image.imageNewFromPixbuf'. The image file may contain an animation, if so the 'GI.Gtk.Objects.Image.Image' will display an animation ('GI.GdkPixbuf.Objects.PixbufAnimation.PixbufAnimation') instead of a static image. 'GI.Gtk.Objects.Image.Image' is a subclass of 'GI.Gtk.Objects.Misc.Misc', which implies that you can align it (center, left, right) and add padding to it, using 'GI.Gtk.Objects.Misc.Misc' methods. 'GI.Gtk.Objects.Image.Image' is a “no window” widget (has no 'GI.Gdk.Objects.Window.Window' of its own), so by default does not receive events. If you want to receive events on the image, such as button clicks, place the image inside a 'GI.Gtk.Objects.EventBox.EventBox', then connect to the event signals on the event box. ## Handling button press events on a 'GI.Gtk.Objects.Image.Image'. === /C code/ > > static gboolean > button_press_callback (GtkWidget *event_box, > GdkEventButton *event, > gpointer data) > { > g_print ("Event box clicked at coordinates %f,%f\n", > event->x, event->y); > > // Returning TRUE means we handled the event, so the signal > // emission should be stopped (don’t call any further callbacks > // that may be connected). Return FALSE to continue invoking callbacks. > return TRUE; > } > > static GtkWidget* > create_image (void) > { > GtkWidget *image; > GtkWidget *event_box; > > image = gtk_image_new_from_file ("myfile.png"); > > event_box = gtk_event_box_new (); > > gtk_container_add (GTK_CONTAINER (event_box), image); > > g_signal_connect (G_OBJECT (event_box), > "button_press_event", > G_CALLBACK (button_press_callback), > image); > > return image; > } When handling events on the event box, keep in mind that coordinates in the image may be different from event box coordinates due to the alignment and padding settings on the image (see 'GI.Gtk.Objects.Misc.Misc'). The simplest way to solve this is to set the alignment to 0.0 (left\/top), and set the padding to zero. Then the origin of the image will be the same as the origin of the event box. Sometimes an application will want to avoid depending on external data files, such as image files. GTK+ comes with a program to avoid this, called “gdk-pixbuf-csource”. This library allows you to convert an image into a C variable declaration, which can then be loaded into a 'GI.GdkPixbuf.Objects.Pixbuf.Pixbuf' using 'GI.GdkPixbuf.Objects.Pixbuf.pixbufNewFromInline'. = CSS nodes GtkImage has a single CSS node with the name image. The style classes may appear on image CSS nodes: .icon-dropshadow, .lowres-icon. -} #define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ && !defined(__HADDOCK_VERSION__)) module GI.Gtk.Objects.Image ( -- * Exported types Image(..) , IsImage , toImage , noImage , -- * Methods -- ** clear #method:clear# #if ENABLE_OVERLOADING ImageClearMethodInfo , #endif imageClear , -- ** getAnimation #method:getAnimation# #if ENABLE_OVERLOADING ImageGetAnimationMethodInfo , #endif imageGetAnimation , -- ** getGicon #method:getGicon# #if ENABLE_OVERLOADING ImageGetGiconMethodInfo , #endif imageGetGicon , -- ** getIconName #method:getIconName# #if ENABLE_OVERLOADING ImageGetIconNameMethodInfo , #endif imageGetIconName , -- ** getIconSet #method:getIconSet# #if ENABLE_OVERLOADING ImageGetIconSetMethodInfo , #endif imageGetIconSet , -- ** getPixbuf #method:getPixbuf# #if ENABLE_OVERLOADING ImageGetPixbufMethodInfo , #endif imageGetPixbuf , -- ** getPixelSize #method:getPixelSize# #if ENABLE_OVERLOADING ImageGetPixelSizeMethodInfo , #endif imageGetPixelSize , -- ** getStock #method:getStock# #if ENABLE_OVERLOADING ImageGetStockMethodInfo , #endif imageGetStock , -- ** getStorageType #method:getStorageType# #if ENABLE_OVERLOADING ImageGetStorageTypeMethodInfo , #endif imageGetStorageType , -- ** new #method:new# imageNew , -- ** newFromAnimation #method:newFromAnimation# imageNewFromAnimation , -- ** newFromFile #method:newFromFile# imageNewFromFile , -- ** newFromGicon #method:newFromGicon# imageNewFromGicon , -- ** newFromIconName #method:newFromIconName# imageNewFromIconName , -- ** newFromIconSet #method:newFromIconSet# imageNewFromIconSet , -- ** newFromPixbuf #method:newFromPixbuf# imageNewFromPixbuf , -- ** newFromResource #method:newFromResource# imageNewFromResource , -- ** newFromStock #method:newFromStock# imageNewFromStock , -- ** newFromSurface #method:newFromSurface# imageNewFromSurface , -- ** setFromAnimation #method:setFromAnimation# #if ENABLE_OVERLOADING ImageSetFromAnimationMethodInfo , #endif imageSetFromAnimation , -- ** setFromFile #method:setFromFile# #if ENABLE_OVERLOADING ImageSetFromFileMethodInfo , #endif imageSetFromFile , -- ** setFromGicon #method:setFromGicon# #if ENABLE_OVERLOADING ImageSetFromGiconMethodInfo , #endif imageSetFromGicon , -- ** setFromIconName #method:setFromIconName# #if ENABLE_OVERLOADING ImageSetFromIconNameMethodInfo , #endif imageSetFromIconName , -- ** setFromIconSet #method:setFromIconSet# #if ENABLE_OVERLOADING ImageSetFromIconSetMethodInfo , #endif imageSetFromIconSet , -- ** setFromPixbuf #method:setFromPixbuf# #if ENABLE_OVERLOADING ImageSetFromPixbufMethodInfo , #endif imageSetFromPixbuf , -- ** setFromResource #method:setFromResource# #if ENABLE_OVERLOADING ImageSetFromResourceMethodInfo , #endif imageSetFromResource , -- ** setFromStock #method:setFromStock# #if ENABLE_OVERLOADING ImageSetFromStockMethodInfo , #endif imageSetFromStock , -- ** setFromSurface #method:setFromSurface# #if ENABLE_OVERLOADING ImageSetFromSurfaceMethodInfo , #endif imageSetFromSurface , -- ** setPixelSize #method:setPixelSize# #if ENABLE_OVERLOADING ImageSetPixelSizeMethodInfo , #endif imageSetPixelSize , -- * Properties -- ** file #attr:file# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING ImageFilePropertyInfo , #endif clearImageFile , constructImageFile , getImageFile , #if ENABLE_OVERLOADING imageFile , #endif setImageFile , -- ** gicon #attr:gicon# {- | The GIcon displayed in the GtkImage. For themed icons, If the icon theme is changed, the image will be updated automatically. /Since: 2.14/ -} #if ENABLE_OVERLOADING ImageGiconPropertyInfo , #endif clearImageGicon , constructImageGicon , getImageGicon , #if ENABLE_OVERLOADING imageGicon , #endif setImageGicon , -- ** iconName #attr:iconName# {- | The name of the icon in the icon theme. If the icon theme is changed, the image will be updated automatically. /Since: 2.6/ -} #if ENABLE_OVERLOADING ImageIconNamePropertyInfo , #endif clearImageIconName , constructImageIconName , getImageIconName , #if ENABLE_OVERLOADING imageIconName , #endif setImageIconName , -- ** iconSet #attr:iconSet# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING ImageIconSetPropertyInfo , #endif clearImageIconSet , constructImageIconSet , getImageIconSet , #if ENABLE_OVERLOADING imageIconSet , #endif setImageIconSet , -- ** iconSize #attr:iconSize# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING ImageIconSizePropertyInfo , #endif constructImageIconSize , getImageIconSize , #if ENABLE_OVERLOADING imageIconSize , #endif setImageIconSize , -- ** pixbuf #attr:pixbuf# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING ImagePixbufPropertyInfo , #endif clearImagePixbuf , constructImagePixbuf , getImagePixbuf , #if ENABLE_OVERLOADING imagePixbuf , #endif setImagePixbuf , -- ** pixbufAnimation #attr:pixbufAnimation# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING ImagePixbufAnimationPropertyInfo , #endif clearImagePixbufAnimation , constructImagePixbufAnimation , getImagePixbufAnimation , #if ENABLE_OVERLOADING imagePixbufAnimation , #endif setImagePixbufAnimation , -- ** pixelSize #attr:pixelSize# {- | The \"pixel-size\" property can be used to specify a fixed size overriding the 'GI.Gtk.Objects.Image.Image':@/icon-size/@ property for images of type 'GI.Gtk.Enums.ImageTypeIconName'. /Since: 2.6/ -} #if ENABLE_OVERLOADING ImagePixelSizePropertyInfo , #endif constructImagePixelSize , getImagePixelSize , #if ENABLE_OVERLOADING imagePixelSize , #endif setImagePixelSize , -- ** resource #attr:resource# {- | A path to a resource file to display. /Since: 3.8/ -} #if ENABLE_OVERLOADING ImageResourcePropertyInfo , #endif clearImageResource , constructImageResource , getImageResource , #if ENABLE_OVERLOADING imageResource , #endif setImageResource , -- ** stock #attr:stock# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING ImageStockPropertyInfo , #endif clearImageStock , constructImageStock , getImageStock , #if ENABLE_OVERLOADING imageStock , #endif setImageStock , -- ** storageType #attr:storageType# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING ImageStorageTypePropertyInfo , #endif getImageStorageType , #if ENABLE_OVERLOADING imageStorageType , #endif -- ** surface #attr:surface# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING ImageSurfacePropertyInfo , #endif clearImageSurface , constructImageSurface , getImageSurface , #if ENABLE_OVERLOADING imageSurface , #endif setImageSurface , -- ** useFallback #attr:useFallback# {- | Whether the icon displayed in the GtkImage will use standard icon names fallback. The value of this property is only relevant for images of type 'GI.Gtk.Enums.ImageTypeIconName' and 'GI.Gtk.Enums.ImageTypeGicon'. /Since: 3.0/ -} #if ENABLE_OVERLOADING ImageUseFallbackPropertyInfo , #endif constructImageUseFallback , getImageUseFallback , #if ENABLE_OVERLOADING imageUseFallback , #endif setImageUseFallback , ) 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.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.Cairo.Structs.Surface as Cairo.Surface import qualified GI.GObject.Objects.Object as GObject.Object import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf import qualified GI.GdkPixbuf.Objects.PixbufAnimation as GdkPixbuf.PixbufAnimation import qualified GI.Gio.Interfaces.Icon as Gio.Icon import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable import {-# SOURCE #-} qualified GI.Gtk.Objects.Misc as Gtk.Misc import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget import {-# SOURCE #-} qualified GI.Gtk.Structs.IconSet as Gtk.IconSet -- | Memory-managed wrapper type. newtype Image = Image (ManagedPtr Image) foreign import ccall "gtk_image_get_type" c_gtk_image_get_type :: IO GType instance GObject Image where gobjectType = c_gtk_image_get_type -- | Type class for types which can be safely cast to `Image`, for instance with `toImage`. class (GObject o, O.IsDescendantOf Image o) => IsImage o instance (GObject o, O.IsDescendantOf Image o) => IsImage o instance O.HasParentTypes Image type instance O.ParentTypes Image = '[Gtk.Misc.Misc, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable] -- | Cast to `Image`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. toImage :: (MonadIO m, IsImage o) => o -> m Image toImage = liftIO . unsafeCastTo Image -- | A convenience alias for `Nothing` :: `Maybe` `Image`. noImage :: Maybe Image noImage = Nothing #if ENABLE_OVERLOADING type family ResolveImageMethod (t :: Symbol) (o :: *) :: * where ResolveImageMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo ResolveImageMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo ResolveImageMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo ResolveImageMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo ResolveImageMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo ResolveImageMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo ResolveImageMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo ResolveImageMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo ResolveImageMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo ResolveImageMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo ResolveImageMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo ResolveImageMethod "childNotify" o = Gtk.Widget.WidgetChildNotifyMethodInfo ResolveImageMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo ResolveImageMethod "clear" o = ImageClearMethodInfo ResolveImageMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo ResolveImageMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo ResolveImageMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo ResolveImageMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo ResolveImageMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo ResolveImageMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo ResolveImageMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo ResolveImageMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo ResolveImageMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo ResolveImageMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo ResolveImageMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo ResolveImageMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo ResolveImageMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo ResolveImageMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo ResolveImageMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo ResolveImageMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo ResolveImageMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo ResolveImageMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo ResolveImageMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo ResolveImageMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo ResolveImageMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo ResolveImageMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo ResolveImageMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo ResolveImageMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo ResolveImageMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo ResolveImageMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo ResolveImageMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo ResolveImageMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo ResolveImageMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo ResolveImageMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo ResolveImageMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo ResolveImageMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo ResolveImageMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo ResolveImageMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo ResolveImageMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo ResolveImageMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo ResolveImageMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo ResolveImageMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo ResolveImageMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo ResolveImageMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo ResolveImageMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo ResolveImageMethod "event" o = Gtk.Widget.WidgetEventMethodInfo ResolveImageMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo ResolveImageMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo ResolveImageMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo ResolveImageMethod "getv" o = GObject.Object.ObjectGetvMethodInfo ResolveImageMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo ResolveImageMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo ResolveImageMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo ResolveImageMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo ResolveImageMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo ResolveImageMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo ResolveImageMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo ResolveImageMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo ResolveImageMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo ResolveImageMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo ResolveImageMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo ResolveImageMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo ResolveImageMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo ResolveImageMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo ResolveImageMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo ResolveImageMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo ResolveImageMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo ResolveImageMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo ResolveImageMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo ResolveImageMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo ResolveImageMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo ResolveImageMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo ResolveImageMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo ResolveImageMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo ResolveImageMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo ResolveImageMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo ResolveImageMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo ResolveImageMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo ResolveImageMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo ResolveImageMethod "map" o = Gtk.Widget.WidgetMapMethodInfo ResolveImageMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo ResolveImageMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo ResolveImageMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo ResolveImageMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo ResolveImageMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo ResolveImageMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo ResolveImageMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo ResolveImageMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo ResolveImageMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo ResolveImageMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo ResolveImageMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo ResolveImageMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo ResolveImageMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo ResolveImageMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo ResolveImageMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo ResolveImageMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo ResolveImageMethod "path" o = Gtk.Widget.WidgetPathMethodInfo ResolveImageMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo ResolveImageMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo ResolveImageMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo ResolveImageMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo ResolveImageMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo ResolveImageMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo ResolveImageMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo ResolveImageMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo ResolveImageMethod "ref" o = GObject.Object.ObjectRefMethodInfo ResolveImageMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo ResolveImageMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo ResolveImageMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo ResolveImageMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo ResolveImageMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo ResolveImageMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo ResolveImageMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo ResolveImageMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo ResolveImageMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo ResolveImageMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo ResolveImageMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo ResolveImageMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo ResolveImageMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo ResolveImageMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo ResolveImageMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo ResolveImageMethod "show" o = Gtk.Widget.WidgetShowMethodInfo ResolveImageMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo ResolveImageMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo ResolveImageMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo ResolveImageMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo ResolveImageMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo ResolveImageMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo ResolveImageMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo ResolveImageMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo ResolveImageMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo ResolveImageMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo ResolveImageMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo ResolveImageMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo ResolveImageMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo ResolveImageMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo ResolveImageMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo ResolveImageMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo ResolveImageMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo ResolveImageMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo ResolveImageMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo ResolveImageMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo ResolveImageMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo ResolveImageMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo ResolveImageMethod "getAlignment" o = Gtk.Misc.MiscGetAlignmentMethodInfo ResolveImageMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo ResolveImageMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo ResolveImageMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo ResolveImageMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo ResolveImageMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo ResolveImageMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo ResolveImageMethod "getAnimation" o = ImageGetAnimationMethodInfo ResolveImageMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo ResolveImageMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo ResolveImageMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo ResolveImageMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo ResolveImageMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo ResolveImageMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo ResolveImageMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo ResolveImageMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo ResolveImageMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo ResolveImageMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo ResolveImageMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo ResolveImageMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo ResolveImageMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo ResolveImageMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo ResolveImageMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo ResolveImageMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo ResolveImageMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo ResolveImageMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo ResolveImageMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo ResolveImageMethod "getGicon" o = ImageGetGiconMethodInfo ResolveImageMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo ResolveImageMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo ResolveImageMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo ResolveImageMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo ResolveImageMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo ResolveImageMethod "getIconName" o = ImageGetIconNameMethodInfo ResolveImageMethod "getIconSet" o = ImageGetIconSetMethodInfo ResolveImageMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo ResolveImageMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo ResolveImageMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo ResolveImageMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo ResolveImageMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo ResolveImageMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo ResolveImageMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo ResolveImageMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo ResolveImageMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo ResolveImageMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo ResolveImageMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo ResolveImageMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo ResolveImageMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo ResolveImageMethod "getPadding" o = Gtk.Misc.MiscGetPaddingMethodInfo ResolveImageMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo ResolveImageMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo ResolveImageMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo ResolveImageMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo ResolveImageMethod "getPixbuf" o = ImageGetPixbufMethodInfo ResolveImageMethod "getPixelSize" o = ImageGetPixelSizeMethodInfo ResolveImageMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo ResolveImageMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo ResolveImageMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo ResolveImageMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo ResolveImageMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo ResolveImageMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo ResolveImageMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo ResolveImageMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo ResolveImageMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo ResolveImageMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo ResolveImageMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo ResolveImageMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo ResolveImageMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo ResolveImageMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo ResolveImageMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo ResolveImageMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo ResolveImageMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo ResolveImageMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo ResolveImageMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo ResolveImageMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo ResolveImageMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo ResolveImageMethod "getStock" o = ImageGetStockMethodInfo ResolveImageMethod "getStorageType" o = ImageGetStorageTypeMethodInfo ResolveImageMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo ResolveImageMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo ResolveImageMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo ResolveImageMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo ResolveImageMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo ResolveImageMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo ResolveImageMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo ResolveImageMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo ResolveImageMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo ResolveImageMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo ResolveImageMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo ResolveImageMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo ResolveImageMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo ResolveImageMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo ResolveImageMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo ResolveImageMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo ResolveImageMethod "setAlignment" o = Gtk.Misc.MiscSetAlignmentMethodInfo ResolveImageMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo ResolveImageMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo ResolveImageMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo ResolveImageMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo ResolveImageMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo ResolveImageMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo ResolveImageMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo ResolveImageMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo ResolveImageMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo ResolveImageMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo ResolveImageMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo ResolveImageMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo ResolveImageMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo ResolveImageMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo ResolveImageMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo ResolveImageMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo ResolveImageMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo ResolveImageMethod "setFromAnimation" o = ImageSetFromAnimationMethodInfo ResolveImageMethod "setFromFile" o = ImageSetFromFileMethodInfo ResolveImageMethod "setFromGicon" o = ImageSetFromGiconMethodInfo ResolveImageMethod "setFromIconName" o = ImageSetFromIconNameMethodInfo ResolveImageMethod "setFromIconSet" o = ImageSetFromIconSetMethodInfo ResolveImageMethod "setFromPixbuf" o = ImageSetFromPixbufMethodInfo ResolveImageMethod "setFromResource" o = ImageSetFromResourceMethodInfo ResolveImageMethod "setFromStock" o = ImageSetFromStockMethodInfo ResolveImageMethod "setFromSurface" o = ImageSetFromSurfaceMethodInfo ResolveImageMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo ResolveImageMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo ResolveImageMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo ResolveImageMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo ResolveImageMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo ResolveImageMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo ResolveImageMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo ResolveImageMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo ResolveImageMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo ResolveImageMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo ResolveImageMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo ResolveImageMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo ResolveImageMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo ResolveImageMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo ResolveImageMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo ResolveImageMethod "setPadding" o = Gtk.Misc.MiscSetPaddingMethodInfo ResolveImageMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo ResolveImageMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo ResolveImageMethod "setPixelSize" o = ImageSetPixelSizeMethodInfo ResolveImageMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo ResolveImageMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo ResolveImageMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo ResolveImageMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo ResolveImageMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo ResolveImageMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo ResolveImageMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo ResolveImageMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo ResolveImageMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo ResolveImageMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo ResolveImageMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo ResolveImageMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo ResolveImageMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo ResolveImageMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo ResolveImageMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo ResolveImageMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo ResolveImageMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo ResolveImageMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo ResolveImageMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo ResolveImageMethod l o = O.MethodResolutionFailed l o instance (info ~ ResolveImageMethod t Image, O.MethodInfo info Image p) => OL.IsLabel t (Image -> p) where #if MIN_VERSION_base(4,10,0) fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) #else fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) #endif #endif -- VVV Prop "file" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@file@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' image #file @ -} getImageFile :: (MonadIO m, IsImage o) => o -> m (Maybe T.Text) getImageFile obj = liftIO $ B.Properties.getObjectPropertyString obj "file" {- | Set the value of the “@file@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' image [ #file 'Data.GI.Base.Attributes.:=' value ] @ -} setImageFile :: (MonadIO m, IsImage o) => o -> T.Text -> m () setImageFile obj val = liftIO $ B.Properties.setObjectPropertyString obj "file" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@file@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructImageFile :: (IsImage o) => T.Text -> IO (GValueConstruct o) constructImageFile val = B.Properties.constructObjectPropertyString "file" (Just val) {- | Set the value of the “@file@” property to `Nothing`. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.clear' #file @ -} clearImageFile :: (MonadIO m, IsImage o) => o -> m () clearImageFile obj = liftIO $ B.Properties.setObjectPropertyString obj "file" (Nothing :: Maybe T.Text) #if ENABLE_OVERLOADING data ImageFilePropertyInfo instance AttrInfo ImageFilePropertyInfo where type AttrAllowedOps ImageFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageFilePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ImageFilePropertyInfo = IsImage type AttrGetType ImageFilePropertyInfo = (Maybe T.Text) type AttrLabel ImageFilePropertyInfo = "file" type AttrOrigin ImageFilePropertyInfo = Image attrGet _ = getImageFile attrSet _ = setImageFile attrConstruct _ = constructImageFile attrClear _ = clearImageFile #endif -- VVV Prop "gicon" -- Type: TInterface (Name {namespace = "Gio", name = "Icon"}) -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@gicon@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' image #gicon @ -} getImageGicon :: (MonadIO m, IsImage o) => o -> m (Maybe Gio.Icon.Icon) getImageGicon obj = liftIO $ B.Properties.getObjectPropertyObject obj "gicon" Gio.Icon.Icon {- | Set the value of the “@gicon@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' image [ #gicon 'Data.GI.Base.Attributes.:=' value ] @ -} setImageGicon :: (MonadIO m, IsImage o, Gio.Icon.IsIcon a) => o -> a -> m () setImageGicon obj val = liftIO $ B.Properties.setObjectPropertyObject obj "gicon" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@gicon@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructImageGicon :: (IsImage o, Gio.Icon.IsIcon a) => a -> IO (GValueConstruct o) constructImageGicon val = B.Properties.constructObjectPropertyObject "gicon" (Just val) {- | Set the value of the “@gicon@” property to `Nothing`. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.clear' #gicon @ -} clearImageGicon :: (MonadIO m, IsImage o) => o -> m () clearImageGicon obj = liftIO $ B.Properties.setObjectPropertyObject obj "gicon" (Nothing :: Maybe Gio.Icon.Icon) #if ENABLE_OVERLOADING data ImageGiconPropertyInfo instance AttrInfo ImageGiconPropertyInfo where type AttrAllowedOps ImageGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageGiconPropertyInfo = Gio.Icon.IsIcon type AttrBaseTypeConstraint ImageGiconPropertyInfo = IsImage type AttrGetType ImageGiconPropertyInfo = (Maybe Gio.Icon.Icon) type AttrLabel ImageGiconPropertyInfo = "gicon" type AttrOrigin ImageGiconPropertyInfo = Image attrGet _ = getImageGicon attrSet _ = setImageGicon attrConstruct _ = constructImageGicon attrClear _ = clearImageGicon #endif -- VVV Prop "icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@icon-name@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' image #iconName @ -} getImageIconName :: (MonadIO m, IsImage o) => o -> m (Maybe T.Text) getImageIconName obj = liftIO $ B.Properties.getObjectPropertyString obj "icon-name" {- | Set the value of the “@icon-name@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' image [ #iconName 'Data.GI.Base.Attributes.:=' value ] @ -} setImageIconName :: (MonadIO m, IsImage o) => o -> T.Text -> m () setImageIconName obj val = liftIO $ B.Properties.setObjectPropertyString obj "icon-name" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@icon-name@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructImageIconName :: (IsImage o) => T.Text -> IO (GValueConstruct o) constructImageIconName val = B.Properties.constructObjectPropertyString "icon-name" (Just val) {- | Set the value of the “@icon-name@” property to `Nothing`. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.clear' #iconName @ -} clearImageIconName :: (MonadIO m, IsImage o) => o -> m () clearImageIconName obj = liftIO $ B.Properties.setObjectPropertyString obj "icon-name" (Nothing :: Maybe T.Text) #if ENABLE_OVERLOADING data ImageIconNamePropertyInfo instance AttrInfo ImageIconNamePropertyInfo where type AttrAllowedOps ImageIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ImageIconNamePropertyInfo = IsImage type AttrGetType ImageIconNamePropertyInfo = (Maybe T.Text) type AttrLabel ImageIconNamePropertyInfo = "icon-name" type AttrOrigin ImageIconNamePropertyInfo = Image attrGet _ = getImageIconName attrSet _ = setImageIconName attrConstruct _ = constructImageIconName attrClear _ = clearImageIconName #endif -- VVV Prop "icon-set" -- Type: TInterface (Name {namespace = "Gtk", name = "IconSet"}) -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@icon-set@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' image #iconSet @ -} getImageIconSet :: (MonadIO m, IsImage o) => o -> m (Maybe Gtk.IconSet.IconSet) getImageIconSet obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "icon-set" Gtk.IconSet.IconSet {- | Set the value of the “@icon-set@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' image [ #iconSet 'Data.GI.Base.Attributes.:=' value ] @ -} setImageIconSet :: (MonadIO m, IsImage o) => o -> Gtk.IconSet.IconSet -> m () setImageIconSet obj val = liftIO $ B.Properties.setObjectPropertyBoxed obj "icon-set" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@icon-set@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructImageIconSet :: (IsImage o) => Gtk.IconSet.IconSet -> IO (GValueConstruct o) constructImageIconSet val = B.Properties.constructObjectPropertyBoxed "icon-set" (Just val) {- | Set the value of the “@icon-set@” property to `Nothing`. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.clear' #iconSet @ -} clearImageIconSet :: (MonadIO m, IsImage o) => o -> m () clearImageIconSet obj = liftIO $ B.Properties.setObjectPropertyBoxed obj "icon-set" (Nothing :: Maybe Gtk.IconSet.IconSet) #if ENABLE_OVERLOADING data ImageIconSetPropertyInfo instance AttrInfo ImageIconSetPropertyInfo where type AttrAllowedOps ImageIconSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageIconSetPropertyInfo = (~) Gtk.IconSet.IconSet type AttrBaseTypeConstraint ImageIconSetPropertyInfo = IsImage type AttrGetType ImageIconSetPropertyInfo = (Maybe Gtk.IconSet.IconSet) type AttrLabel ImageIconSetPropertyInfo = "icon-set" type AttrOrigin ImageIconSetPropertyInfo = Image attrGet _ = getImageIconSet attrSet _ = setImageIconSet attrConstruct _ = constructImageIconSet attrClear _ = clearImageIconSet #endif -- VVV Prop "icon-size" -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@icon-size@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' image #iconSize @ -} getImageIconSize :: (MonadIO m, IsImage o) => o -> m Int32 getImageIconSize obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "icon-size" {- | Set the value of the “@icon-size@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' image [ #iconSize 'Data.GI.Base.Attributes.:=' value ] @ -} setImageIconSize :: (MonadIO m, IsImage o) => o -> Int32 -> m () setImageIconSize obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "icon-size" val {- | Construct a `GValueConstruct` with valid value for the “@icon-size@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructImageIconSize :: (IsImage o) => Int32 -> IO (GValueConstruct o) constructImageIconSize val = B.Properties.constructObjectPropertyInt32 "icon-size" val #if ENABLE_OVERLOADING data ImageIconSizePropertyInfo instance AttrInfo ImageIconSizePropertyInfo where type AttrAllowedOps ImageIconSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint ImageIconSizePropertyInfo = (~) Int32 type AttrBaseTypeConstraint ImageIconSizePropertyInfo = IsImage type AttrGetType ImageIconSizePropertyInfo = Int32 type AttrLabel ImageIconSizePropertyInfo = "icon-size" type AttrOrigin ImageIconSizePropertyInfo = Image attrGet _ = getImageIconSize attrSet _ = setImageIconSize attrConstruct _ = constructImageIconSize attrClear _ = undefined #endif -- VVV Prop "pixbuf" -- Type: TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}) -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just True,Nothing) {- | Get the value of the “@pixbuf@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' image #pixbuf @ -} getImagePixbuf :: (MonadIO m, IsImage o) => o -> m (Maybe GdkPixbuf.Pixbuf.Pixbuf) getImagePixbuf obj = liftIO $ B.Properties.getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf.Pixbuf {- | Set the value of the “@pixbuf@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' image [ #pixbuf 'Data.GI.Base.Attributes.:=' value ] @ -} setImagePixbuf :: (MonadIO m, IsImage o, GdkPixbuf.Pixbuf.IsPixbuf a) => o -> a -> m () setImagePixbuf obj val = liftIO $ B.Properties.setObjectPropertyObject obj "pixbuf" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@pixbuf@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructImagePixbuf :: (IsImage o, GdkPixbuf.Pixbuf.IsPixbuf a) => a -> IO (GValueConstruct o) constructImagePixbuf val = B.Properties.constructObjectPropertyObject "pixbuf" (Just val) {- | Set the value of the “@pixbuf@” property to `Nothing`. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.clear' #pixbuf @ -} clearImagePixbuf :: (MonadIO m, IsImage o) => o -> m () clearImagePixbuf obj = liftIO $ B.Properties.setObjectPropertyObject obj "pixbuf" (Nothing :: Maybe GdkPixbuf.Pixbuf.Pixbuf) #if ENABLE_OVERLOADING data ImagePixbufPropertyInfo instance AttrInfo ImagePixbufPropertyInfo where type AttrAllowedOps ImagePixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImagePixbufPropertyInfo = GdkPixbuf.Pixbuf.IsPixbuf type AttrBaseTypeConstraint ImagePixbufPropertyInfo = IsImage type AttrGetType ImagePixbufPropertyInfo = (Maybe GdkPixbuf.Pixbuf.Pixbuf) type AttrLabel ImagePixbufPropertyInfo = "pixbuf" type AttrOrigin ImagePixbufPropertyInfo = Image attrGet _ = getImagePixbuf attrSet _ = setImagePixbuf attrConstruct _ = constructImagePixbuf attrClear _ = clearImagePixbuf #endif -- VVV Prop "pixbuf-animation" -- Type: TInterface (Name {namespace = "GdkPixbuf", name = "PixbufAnimation"}) -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@pixbuf-animation@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' image #pixbufAnimation @ -} getImagePixbufAnimation :: (MonadIO m, IsImage o) => o -> m (Maybe GdkPixbuf.PixbufAnimation.PixbufAnimation) getImagePixbufAnimation obj = liftIO $ B.Properties.getObjectPropertyObject obj "pixbuf-animation" GdkPixbuf.PixbufAnimation.PixbufAnimation {- | Set the value of the “@pixbuf-animation@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' image [ #pixbufAnimation 'Data.GI.Base.Attributes.:=' value ] @ -} setImagePixbufAnimation :: (MonadIO m, IsImage o, GdkPixbuf.PixbufAnimation.IsPixbufAnimation a) => o -> a -> m () setImagePixbufAnimation obj val = liftIO $ B.Properties.setObjectPropertyObject obj "pixbuf-animation" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@pixbuf-animation@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructImagePixbufAnimation :: (IsImage o, GdkPixbuf.PixbufAnimation.IsPixbufAnimation a) => a -> IO (GValueConstruct o) constructImagePixbufAnimation val = B.Properties.constructObjectPropertyObject "pixbuf-animation" (Just val) {- | Set the value of the “@pixbuf-animation@” property to `Nothing`. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.clear' #pixbufAnimation @ -} clearImagePixbufAnimation :: (MonadIO m, IsImage o) => o -> m () clearImagePixbufAnimation obj = liftIO $ B.Properties.setObjectPropertyObject obj "pixbuf-animation" (Nothing :: Maybe GdkPixbuf.PixbufAnimation.PixbufAnimation) #if ENABLE_OVERLOADING data ImagePixbufAnimationPropertyInfo instance AttrInfo ImagePixbufAnimationPropertyInfo where type AttrAllowedOps ImagePixbufAnimationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImagePixbufAnimationPropertyInfo = GdkPixbuf.PixbufAnimation.IsPixbufAnimation type AttrBaseTypeConstraint ImagePixbufAnimationPropertyInfo = IsImage type AttrGetType ImagePixbufAnimationPropertyInfo = (Maybe GdkPixbuf.PixbufAnimation.PixbufAnimation) type AttrLabel ImagePixbufAnimationPropertyInfo = "pixbuf-animation" type AttrOrigin ImagePixbufAnimationPropertyInfo = Image attrGet _ = getImagePixbufAnimation attrSet _ = setImagePixbufAnimation attrConstruct _ = constructImagePixbufAnimation attrClear _ = clearImagePixbufAnimation #endif -- VVV Prop "pixel-size" -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) {- | Get the value of the “@pixel-size@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' image #pixelSize @ -} getImagePixelSize :: (MonadIO m, IsImage o) => o -> m Int32 getImagePixelSize obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "pixel-size" {- | Set the value of the “@pixel-size@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' image [ #pixelSize 'Data.GI.Base.Attributes.:=' value ] @ -} setImagePixelSize :: (MonadIO m, IsImage o) => o -> Int32 -> m () setImagePixelSize obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "pixel-size" val {- | Construct a `GValueConstruct` with valid value for the “@pixel-size@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructImagePixelSize :: (IsImage o) => Int32 -> IO (GValueConstruct o) constructImagePixelSize val = B.Properties.constructObjectPropertyInt32 "pixel-size" val #if ENABLE_OVERLOADING data ImagePixelSizePropertyInfo instance AttrInfo ImagePixelSizePropertyInfo where type AttrAllowedOps ImagePixelSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint ImagePixelSizePropertyInfo = (~) Int32 type AttrBaseTypeConstraint ImagePixelSizePropertyInfo = IsImage type AttrGetType ImagePixelSizePropertyInfo = Int32 type AttrLabel ImagePixelSizePropertyInfo = "pixel-size" type AttrOrigin ImagePixelSizePropertyInfo = Image attrGet _ = getImagePixelSize attrSet _ = setImagePixelSize attrConstruct _ = constructImagePixelSize attrClear _ = undefined #endif -- VVV Prop "resource" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@resource@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' image #resource @ -} getImageResource :: (MonadIO m, IsImage o) => o -> m (Maybe T.Text) getImageResource obj = liftIO $ B.Properties.getObjectPropertyString obj "resource" {- | Set the value of the “@resource@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' image [ #resource 'Data.GI.Base.Attributes.:=' value ] @ -} setImageResource :: (MonadIO m, IsImage o) => o -> T.Text -> m () setImageResource obj val = liftIO $ B.Properties.setObjectPropertyString obj "resource" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@resource@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructImageResource :: (IsImage o) => T.Text -> IO (GValueConstruct o) constructImageResource val = B.Properties.constructObjectPropertyString "resource" (Just val) {- | Set the value of the “@resource@” property to `Nothing`. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.clear' #resource @ -} clearImageResource :: (MonadIO m, IsImage o) => o -> m () clearImageResource obj = liftIO $ B.Properties.setObjectPropertyString obj "resource" (Nothing :: Maybe T.Text) #if ENABLE_OVERLOADING data ImageResourcePropertyInfo instance AttrInfo ImageResourcePropertyInfo where type AttrAllowedOps ImageResourcePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageResourcePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ImageResourcePropertyInfo = IsImage type AttrGetType ImageResourcePropertyInfo = (Maybe T.Text) type AttrLabel ImageResourcePropertyInfo = "resource" type AttrOrigin ImageResourcePropertyInfo = Image attrGet _ = getImageResource attrSet _ = setImageResource attrConstruct _ = constructImageResource attrClear _ = clearImageResource #endif -- VVV Prop "stock" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@stock@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' image #stock @ -} getImageStock :: (MonadIO m, IsImage o) => o -> m (Maybe T.Text) getImageStock obj = liftIO $ B.Properties.getObjectPropertyString obj "stock" {- | Set the value of the “@stock@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' image [ #stock 'Data.GI.Base.Attributes.:=' value ] @ -} setImageStock :: (MonadIO m, IsImage o) => o -> T.Text -> m () setImageStock obj val = liftIO $ B.Properties.setObjectPropertyString obj "stock" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@stock@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructImageStock :: (IsImage o) => T.Text -> IO (GValueConstruct o) constructImageStock val = B.Properties.constructObjectPropertyString "stock" (Just val) {- | Set the value of the “@stock@” property to `Nothing`. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.clear' #stock @ -} clearImageStock :: (MonadIO m, IsImage o) => o -> m () clearImageStock obj = liftIO $ B.Properties.setObjectPropertyString obj "stock" (Nothing :: Maybe T.Text) #if ENABLE_OVERLOADING data ImageStockPropertyInfo instance AttrInfo ImageStockPropertyInfo where type AttrAllowedOps ImageStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageStockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ImageStockPropertyInfo = IsImage type AttrGetType ImageStockPropertyInfo = (Maybe T.Text) type AttrLabel ImageStockPropertyInfo = "stock" type AttrOrigin ImageStockPropertyInfo = Image attrGet _ = getImageStock attrSet _ = setImageStock attrConstruct _ = constructImageStock attrClear _ = clearImageStock #endif -- VVV Prop "storage-type" -- Type: TInterface (Name {namespace = "Gtk", name = "ImageType"}) -- Flags: [PropertyReadable] -- Nullable: (Just False,Nothing) {- | Get the value of the “@storage-type@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' image #storageType @ -} getImageStorageType :: (MonadIO m, IsImage o) => o -> m Gtk.Enums.ImageType getImageStorageType obj = liftIO $ B.Properties.getObjectPropertyEnum obj "storage-type" #if ENABLE_OVERLOADING data ImageStorageTypePropertyInfo instance AttrInfo ImageStorageTypePropertyInfo where type AttrAllowedOps ImageStorageTypePropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint ImageStorageTypePropertyInfo = (~) () type AttrBaseTypeConstraint ImageStorageTypePropertyInfo = IsImage type AttrGetType ImageStorageTypePropertyInfo = Gtk.Enums.ImageType type AttrLabel ImageStorageTypePropertyInfo = "storage-type" type AttrOrigin ImageStorageTypePropertyInfo = Image attrGet _ = getImageStorageType attrSet _ = undefined attrConstruct _ = undefined attrClear _ = undefined #endif -- VVV Prop "surface" -- Type: TInterface (Name {namespace = "cairo", name = "Surface"}) -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@surface@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' image #surface @ -} getImageSurface :: (MonadIO m, IsImage o) => o -> m (Maybe Cairo.Surface.Surface) getImageSurface obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "surface" Cairo.Surface.Surface {- | Set the value of the “@surface@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' image [ #surface 'Data.GI.Base.Attributes.:=' value ] @ -} setImageSurface :: (MonadIO m, IsImage o) => o -> Cairo.Surface.Surface -> m () setImageSurface obj val = liftIO $ B.Properties.setObjectPropertyBoxed obj "surface" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@surface@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructImageSurface :: (IsImage o) => Cairo.Surface.Surface -> IO (GValueConstruct o) constructImageSurface val = B.Properties.constructObjectPropertyBoxed "surface" (Just val) {- | Set the value of the “@surface@” property to `Nothing`. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.clear' #surface @ -} clearImageSurface :: (MonadIO m, IsImage o) => o -> m () clearImageSurface obj = liftIO $ B.Properties.setObjectPropertyBoxed obj "surface" (Nothing :: Maybe Cairo.Surface.Surface) #if ENABLE_OVERLOADING data ImageSurfacePropertyInfo instance AttrInfo ImageSurfacePropertyInfo where type AttrAllowedOps ImageSurfacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageSurfacePropertyInfo = (~) Cairo.Surface.Surface type AttrBaseTypeConstraint ImageSurfacePropertyInfo = IsImage type AttrGetType ImageSurfacePropertyInfo = (Maybe Cairo.Surface.Surface) type AttrLabel ImageSurfacePropertyInfo = "surface" type AttrOrigin ImageSurfacePropertyInfo = Image attrGet _ = getImageSurface attrSet _ = setImageSurface attrConstruct _ = constructImageSurface attrClear _ = clearImageSurface #endif -- VVV Prop "use-fallback" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@use-fallback@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' image #useFallback @ -} getImageUseFallback :: (MonadIO m, IsImage o) => o -> m Bool getImageUseFallback obj = liftIO $ B.Properties.getObjectPropertyBool obj "use-fallback" {- | Set the value of the “@use-fallback@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' image [ #useFallback 'Data.GI.Base.Attributes.:=' value ] @ -} setImageUseFallback :: (MonadIO m, IsImage o) => o -> Bool -> m () setImageUseFallback obj val = liftIO $ B.Properties.setObjectPropertyBool obj "use-fallback" val {- | Construct a `GValueConstruct` with valid value for the “@use-fallback@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructImageUseFallback :: (IsImage o) => Bool -> IO (GValueConstruct o) constructImageUseFallback val = B.Properties.constructObjectPropertyBool "use-fallback" val #if ENABLE_OVERLOADING data ImageUseFallbackPropertyInfo instance AttrInfo ImageUseFallbackPropertyInfo where type AttrAllowedOps ImageUseFallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint ImageUseFallbackPropertyInfo = (~) Bool type AttrBaseTypeConstraint ImageUseFallbackPropertyInfo = IsImage type AttrGetType ImageUseFallbackPropertyInfo = Bool type AttrLabel ImageUseFallbackPropertyInfo = "use-fallback" type AttrOrigin ImageUseFallbackPropertyInfo = Image attrGet _ = getImageUseFallback attrSet _ = setImageUseFallback attrConstruct _ = constructImageUseFallback attrClear _ = undefined #endif #if ENABLE_OVERLOADING instance O.HasAttributeList Image type instance O.AttributeList Image = ImageAttributeList type ImageAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("file", ImageFilePropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("gicon", ImageGiconPropertyInfo), '("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), '("iconName", ImageIconNamePropertyInfo), '("iconSet", ImageIconSetPropertyInfo), '("iconSize", ImageIconSizePropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("pixbuf", ImagePixbufPropertyInfo), '("pixbufAnimation", ImagePixbufAnimationPropertyInfo), '("pixelSize", ImagePixelSizePropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resource", ImageResourcePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("stock", ImageStockPropertyInfo), '("storageType", ImageStorageTypePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("surface", ImageSurfacePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("useFallback", ImageUseFallbackPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo), '("xalign", Gtk.Misc.MiscXalignPropertyInfo), '("xpad", Gtk.Misc.MiscXpadPropertyInfo), '("yalign", Gtk.Misc.MiscYalignPropertyInfo), '("ypad", Gtk.Misc.MiscYpadPropertyInfo)] :: [(Symbol, *)]) #endif #if ENABLE_OVERLOADING imageFile :: AttrLabelProxy "file" imageFile = AttrLabelProxy imageGicon :: AttrLabelProxy "gicon" imageGicon = AttrLabelProxy imageIconName :: AttrLabelProxy "iconName" imageIconName = AttrLabelProxy imageIconSet :: AttrLabelProxy "iconSet" imageIconSet = AttrLabelProxy imageIconSize :: AttrLabelProxy "iconSize" imageIconSize = AttrLabelProxy imagePixbuf :: AttrLabelProxy "pixbuf" imagePixbuf = AttrLabelProxy imagePixbufAnimation :: AttrLabelProxy "pixbufAnimation" imagePixbufAnimation = AttrLabelProxy imagePixelSize :: AttrLabelProxy "pixelSize" imagePixelSize = AttrLabelProxy imageResource :: AttrLabelProxy "resource" imageResource = AttrLabelProxy imageStock :: AttrLabelProxy "stock" imageStock = AttrLabelProxy imageStorageType :: AttrLabelProxy "storageType" imageStorageType = AttrLabelProxy imageSurface :: AttrLabelProxy "surface" imageSurface = AttrLabelProxy imageUseFallback :: AttrLabelProxy "useFallback" imageUseFallback = AttrLabelProxy #endif #if ENABLE_OVERLOADING type instance O.SignalList Image = ImageSignalList type ImageSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("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), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) #endif -- method Image::new -- method type : Constructor -- Args : [] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Image"})) -- throws : False -- Skip return : False foreign import ccall "gtk_image_new" gtk_image_new :: IO (Ptr Image) {- | Creates a new empty 'GI.Gtk.Objects.Image.Image' widget. -} imageNew :: (B.CallStack.HasCallStack, MonadIO m) => m Image {- ^ __Returns:__ a newly created 'GI.Gtk.Objects.Image.Image' widget. -} imageNew = liftIO $ do result <- gtk_image_new checkUnexpectedReturnNULL "imageNew" result result' <- (newObject Image) result return result' #if ENABLE_OVERLOADING #endif -- method Image::new_from_animation -- method type : Constructor -- Args : [Arg {argCName = "animation", argType = TInterface (Name {namespace = "GdkPixbuf", name = "PixbufAnimation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an animation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Image"})) -- throws : False -- Skip return : False foreign import ccall "gtk_image_new_from_animation" gtk_image_new_from_animation :: Ptr GdkPixbuf.PixbufAnimation.PixbufAnimation -> -- animation : TInterface (Name {namespace = "GdkPixbuf", name = "PixbufAnimation"}) IO (Ptr Image) {- | Creates a 'GI.Gtk.Objects.Image.Image' displaying the given animation. The 'GI.Gtk.Objects.Image.Image' does not assume a reference to the animation; you still need to unref it if you own references. 'GI.Gtk.Objects.Image.Image' will add its own reference rather than adopting yours. Note that the animation frames are shown using a timeout with 'GI.GLib.Constants.PRIORITY_DEFAULT'. When using animations to indicate busyness, keep in mind that the animation will only be shown if the main loop is not busy with something that has a higher priority. -} imageNewFromAnimation :: (B.CallStack.HasCallStack, MonadIO m, GdkPixbuf.PixbufAnimation.IsPixbufAnimation a) => a {- ^ /@animation@/: an animation -} -> m Image {- ^ __Returns:__ a new 'GI.Gtk.Objects.Image.Image' widget -} imageNewFromAnimation animation = liftIO $ do animation' <- unsafeManagedPtrCastPtr animation result <- gtk_image_new_from_animation animation' checkUnexpectedReturnNULL "imageNewFromAnimation" result result' <- (newObject Image) result touchManagedPtr animation return result' #if ENABLE_OVERLOADING #endif -- method Image::new_from_file -- method type : Constructor -- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a filename", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Image"})) -- throws : False -- Skip return : False foreign import ccall "gtk_image_new_from_file" gtk_image_new_from_file :: CString -> -- filename : TBasicType TFileName IO (Ptr Image) {- | Creates a new 'GI.Gtk.Objects.Image.Image' displaying the file /@filename@/. If the file isn’t found or can’t be loaded, the resulting 'GI.Gtk.Objects.Image.Image' will display a “broken image” icon. This function never returns 'Nothing', it always returns a valid 'GI.Gtk.Objects.Image.Image' widget. If the file contains an animation, the image will contain an animation. If you need to detect failures to load the file, use 'GI.GdkPixbuf.Objects.Pixbuf.pixbufNewFromFile' to load the file yourself, then create the 'GI.Gtk.Objects.Image.Image' from the pixbuf. (Or for animations, use 'GI.GdkPixbuf.Objects.PixbufAnimation.pixbufAnimationNewFromFile'). The storage type ('GI.Gtk.Objects.Image.imageGetStorageType') of the returned image is not defined, it will be whatever is appropriate for displaying the file. -} imageNewFromFile :: (B.CallStack.HasCallStack, MonadIO m) => [Char] {- ^ /@filename@/: a filename -} -> m Image {- ^ __Returns:__ a new 'GI.Gtk.Objects.Image.Image' -} imageNewFromFile filename = liftIO $ do filename' <- stringToCString filename result <- gtk_image_new_from_file filename' checkUnexpectedReturnNULL "imageNewFromFile" result result' <- (newObject Image) result freeMem filename' return result' #if ENABLE_OVERLOADING #endif -- method Image::new_from_gicon -- method type : Constructor -- Args : [Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "Icon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an icon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a stock icon size (#GtkIconSize)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Image"})) -- throws : False -- Skip return : False foreign import ccall "gtk_image_new_from_gicon" gtk_image_new_from_gicon :: Ptr Gio.Icon.Icon -> -- icon : TInterface (Name {namespace = "Gio", name = "Icon"}) Int32 -> -- size : TBasicType TInt IO (Ptr Image) {- | Creates a 'GI.Gtk.Objects.Image.Image' displaying an icon from the current icon theme. If the icon name isn’t known, a “broken image” icon will be displayed instead. If the current icon theme is changed, the icon will be updated appropriately. /Since: 2.14/ -} imageNewFromGicon :: (B.CallStack.HasCallStack, MonadIO m, Gio.Icon.IsIcon a) => a {- ^ /@icon@/: an icon -} -> Int32 {- ^ /@size@/: a stock icon size ('GI.Gtk.Enums.IconSize') -} -> m Image {- ^ __Returns:__ a new 'GI.Gtk.Objects.Image.Image' displaying the themed icon -} imageNewFromGicon icon size = liftIO $ do icon' <- unsafeManagedPtrCastPtr icon result <- gtk_image_new_from_gicon icon' size checkUnexpectedReturnNULL "imageNewFromGicon" result result' <- (newObject Image) result touchManagedPtr icon return result' #if ENABLE_OVERLOADING #endif -- method Image::new_from_icon_name -- method type : Constructor -- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an icon name or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a stock icon size (#GtkIconSize)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Image"})) -- throws : False -- Skip return : False foreign import ccall "gtk_image_new_from_icon_name" gtk_image_new_from_icon_name :: CString -> -- icon_name : TBasicType TUTF8 Int32 -> -- size : TBasicType TInt IO (Ptr Image) {- | Creates a 'GI.Gtk.Objects.Image.Image' displaying an icon from the current icon theme. If the icon name isn’t known, a “broken image” icon will be displayed instead. If the current icon theme is changed, the icon will be updated appropriately. /Since: 2.6/ -} imageNewFromIconName :: (B.CallStack.HasCallStack, MonadIO m) => Maybe (T.Text) {- ^ /@iconName@/: an icon name or 'Nothing' -} -> Int32 {- ^ /@size@/: a stock icon size ('GI.Gtk.Enums.IconSize') -} -> m Image {- ^ __Returns:__ a new 'GI.Gtk.Objects.Image.Image' displaying the themed icon -} imageNewFromIconName iconName size = liftIO $ do maybeIconName <- case iconName of Nothing -> return nullPtr Just jIconName -> do jIconName' <- textToCString jIconName return jIconName' result <- gtk_image_new_from_icon_name maybeIconName size checkUnexpectedReturnNULL "imageNewFromIconName" result result' <- (newObject Image) result freeMem maybeIconName return result' #if ENABLE_OVERLOADING #endif -- method Image::new_from_icon_set -- method type : Constructor -- Args : [Arg {argCName = "icon_set", argType = TInterface (Name {namespace = "Gtk", name = "IconSet"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkIconSet", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a stock icon size (#GtkIconSize)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Image"})) -- throws : False -- Skip return : False foreign import ccall "gtk_image_new_from_icon_set" gtk_image_new_from_icon_set :: Ptr Gtk.IconSet.IconSet -> -- icon_set : TInterface (Name {namespace = "Gtk", name = "IconSet"}) Int32 -> -- size : TBasicType TInt IO (Ptr Image) {-# DEPRECATED imageNewFromIconSet ["(Since version 3.10)","Use 'GI.Gtk.Objects.Image.imageNewFromIconName' instead."] #-} {- | Creates a 'GI.Gtk.Objects.Image.Image' displaying an icon set. Sample stock sizes are @/GTK_ICON_SIZE_MENU/@, @/GTK_ICON_SIZE_SMALL_TOOLBAR/@. Instead of using this function, usually it’s better to create a 'GI.Gtk.Objects.IconFactory.IconFactory', put your icon sets in the icon factory, add the icon factory to the list of default factories with 'GI.Gtk.Objects.IconFactory.iconFactoryAddDefault', and then use 'GI.Gtk.Objects.Image.imageNewFromStock'. This will allow themes to override the icon you ship with your application. The 'GI.Gtk.Objects.Image.Image' does not assume a reference to the icon set; you still need to unref it if you own references. 'GI.Gtk.Objects.Image.Image' will add its own reference rather than adopting yours. -} imageNewFromIconSet :: (B.CallStack.HasCallStack, MonadIO m) => Gtk.IconSet.IconSet {- ^ /@iconSet@/: a 'GI.Gtk.Structs.IconSet.IconSet' -} -> Int32 {- ^ /@size@/: a stock icon size ('GI.Gtk.Enums.IconSize') -} -> m Image {- ^ __Returns:__ a new 'GI.Gtk.Objects.Image.Image' -} imageNewFromIconSet iconSet size = liftIO $ do iconSet' <- unsafeManagedPtrGetPtr iconSet result <- gtk_image_new_from_icon_set iconSet' size checkUnexpectedReturnNULL "imageNewFromIconSet" result result' <- (newObject Image) result touchManagedPtr iconSet return result' #if ENABLE_OVERLOADING #endif -- method Image::new_from_pixbuf -- method type : Constructor -- Args : [Arg {argCName = "pixbuf", argType = TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GdkPixbuf, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Image"})) -- throws : False -- Skip return : False foreign import ccall "gtk_image_new_from_pixbuf" gtk_image_new_from_pixbuf :: Ptr GdkPixbuf.Pixbuf.Pixbuf -> -- pixbuf : TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}) IO (Ptr Image) {- | Creates a new 'GI.Gtk.Objects.Image.Image' displaying /@pixbuf@/. The 'GI.Gtk.Objects.Image.Image' does not assume a reference to the pixbuf; you still need to unref it if you own references. 'GI.Gtk.Objects.Image.Image' will add its own reference rather than adopting yours. Note that this function just creates an 'GI.Gtk.Objects.Image.Image' from the pixbuf. The 'GI.Gtk.Objects.Image.Image' created will not react to state changes. Should you want that, you should use 'GI.Gtk.Objects.Image.imageNewFromIconName'. -} imageNewFromPixbuf :: (B.CallStack.HasCallStack, MonadIO m, GdkPixbuf.Pixbuf.IsPixbuf a) => Maybe (a) {- ^ /@pixbuf@/: a 'GI.GdkPixbuf.Objects.Pixbuf.Pixbuf', or 'Nothing' -} -> m Image {- ^ __Returns:__ a new 'GI.Gtk.Objects.Image.Image' -} imageNewFromPixbuf pixbuf = liftIO $ do maybePixbuf <- case pixbuf of Nothing -> return nullPtr Just jPixbuf -> do jPixbuf' <- unsafeManagedPtrCastPtr jPixbuf return jPixbuf' result <- gtk_image_new_from_pixbuf maybePixbuf checkUnexpectedReturnNULL "imageNewFromPixbuf" result result' <- (newObject Image) result whenJust pixbuf touchManagedPtr return result' #if ENABLE_OVERLOADING #endif -- method Image::new_from_resource -- method type : Constructor -- Args : [Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a resource path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Image"})) -- throws : False -- Skip return : False foreign import ccall "gtk_image_new_from_resource" gtk_image_new_from_resource :: CString -> -- resource_path : TBasicType TUTF8 IO (Ptr Image) {- | Creates a new 'GI.Gtk.Objects.Image.Image' displaying the resource file /@resourcePath@/. If the file isn’t found or can’t be loaded, the resulting 'GI.Gtk.Objects.Image.Image' will display a “broken image” icon. This function never returns 'Nothing', it always returns a valid 'GI.Gtk.Objects.Image.Image' widget. If the file contains an animation, the image will contain an animation. If you need to detect failures to load the file, use 'GI.GdkPixbuf.Objects.Pixbuf.pixbufNewFromFile' to load the file yourself, then create the 'GI.Gtk.Objects.Image.Image' from the pixbuf. (Or for animations, use 'GI.GdkPixbuf.Objects.PixbufAnimation.pixbufAnimationNewFromFile'). The storage type ('GI.Gtk.Objects.Image.imageGetStorageType') of the returned image is not defined, it will be whatever is appropriate for displaying the file. /Since: 3.4/ -} imageNewFromResource :: (B.CallStack.HasCallStack, MonadIO m) => T.Text {- ^ /@resourcePath@/: a resource path -} -> m Image {- ^ __Returns:__ a new 'GI.Gtk.Objects.Image.Image' -} imageNewFromResource resourcePath = liftIO $ do resourcePath' <- textToCString resourcePath result <- gtk_image_new_from_resource resourcePath' checkUnexpectedReturnNULL "imageNewFromResource" result result' <- (newObject Image) result freeMem resourcePath' return result' #if ENABLE_OVERLOADING #endif -- method Image::new_from_stock -- method type : Constructor -- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a stock icon name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a stock icon size (#GtkIconSize)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Image"})) -- throws : False -- Skip return : False foreign import ccall "gtk_image_new_from_stock" gtk_image_new_from_stock :: CString -> -- stock_id : TBasicType TUTF8 Int32 -> -- size : TBasicType TInt IO (Ptr Image) {-# DEPRECATED imageNewFromStock ["(Since version 3.10)","Use 'GI.Gtk.Objects.Image.imageNewFromIconName' instead."] #-} {- | Creates a 'GI.Gtk.Objects.Image.Image' displaying a stock icon. Sample stock icon names are 'GI.Gtk.Constants.STOCK_OPEN', 'GI.Gtk.Constants.STOCK_QUIT'. Sample stock sizes are @/GTK_ICON_SIZE_MENU/@, @/GTK_ICON_SIZE_SMALL_TOOLBAR/@. If the stock icon name isn’t known, the image will be empty. You can register your own stock icon names, see 'GI.Gtk.Objects.IconFactory.iconFactoryAddDefault' and 'GI.Gtk.Objects.IconFactory.iconFactoryAdd'. -} imageNewFromStock :: (B.CallStack.HasCallStack, MonadIO m) => T.Text {- ^ /@stockId@/: a stock icon name -} -> Int32 {- ^ /@size@/: a stock icon size ('GI.Gtk.Enums.IconSize') -} -> m Image {- ^ __Returns:__ a new 'GI.Gtk.Objects.Image.Image' displaying the stock icon -} imageNewFromStock stockId size = liftIO $ do stockId' <- textToCString stockId result <- gtk_image_new_from_stock stockId' size checkUnexpectedReturnNULL "imageNewFromStock" result result' <- (newObject Image) result freeMem stockId' return result' #if ENABLE_OVERLOADING #endif -- method Image::new_from_surface -- method type : Constructor -- Args : [Arg {argCName = "surface", argType = TInterface (Name {namespace = "cairo", name = "Surface"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #cairo_surface_t, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Image"})) -- throws : False -- Skip return : False foreign import ccall "gtk_image_new_from_surface" gtk_image_new_from_surface :: Ptr Cairo.Surface.Surface -> -- surface : TInterface (Name {namespace = "cairo", name = "Surface"}) IO (Ptr Image) {- | Creates a new 'GI.Gtk.Objects.Image.Image' displaying /@surface@/. The 'GI.Gtk.Objects.Image.Image' does not assume a reference to the surface; you still need to unref it if you own references. 'GI.Gtk.Objects.Image.Image' will add its own reference rather than adopting yours. /Since: 3.10/ -} imageNewFromSurface :: (B.CallStack.HasCallStack, MonadIO m) => Maybe (Cairo.Surface.Surface) {- ^ /@surface@/: a 'GI.Cairo.Structs.Surface.Surface', or 'Nothing' -} -> m Image {- ^ __Returns:__ a new 'GI.Gtk.Objects.Image.Image' -} imageNewFromSurface surface = liftIO $ do maybeSurface <- case surface of Nothing -> return nullPtr Just jSurface -> do jSurface' <- unsafeManagedPtrGetPtr jSurface return jSurface' result <- gtk_image_new_from_surface maybeSurface checkUnexpectedReturnNULL "imageNewFromSurface" result result' <- (newObject Image) result whenJust surface touchManagedPtr return result' #if ENABLE_OVERLOADING #endif -- method Image::clear -- method type : OrdinaryMethod -- Args : [Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Image"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkImage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_clear" gtk_image_clear :: Ptr Image -> -- image : TInterface (Name {namespace = "Gtk", name = "Image"}) IO () {- | Resets the image to be empty. /Since: 2.8/ -} imageClear :: (B.CallStack.HasCallStack, MonadIO m, IsImage a) => a {- ^ /@image@/: a 'GI.Gtk.Objects.Image.Image' -} -> m () imageClear image = liftIO $ do image' <- unsafeManagedPtrCastPtr image gtk_image_clear image' touchManagedPtr image return () #if ENABLE_OVERLOADING data ImageClearMethodInfo instance (signature ~ (m ()), MonadIO m, IsImage a) => O.MethodInfo ImageClearMethodInfo a signature where overloadedMethod _ = imageClear #endif -- method Image::get_animation -- method type : OrdinaryMethod -- Args : [Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Image"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkImage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "GdkPixbuf", name = "PixbufAnimation"})) -- throws : False -- Skip return : False foreign import ccall "gtk_image_get_animation" gtk_image_get_animation :: Ptr Image -> -- image : TInterface (Name {namespace = "Gtk", name = "Image"}) IO (Ptr GdkPixbuf.PixbufAnimation.PixbufAnimation) {- | Gets the 'GI.GdkPixbuf.Objects.PixbufAnimation.PixbufAnimation' being displayed by the 'GI.Gtk.Objects.Image.Image'. The storage type of the image must be 'GI.Gtk.Enums.ImageTypeEmpty' or 'GI.Gtk.Enums.ImageTypeAnimation' (see 'GI.Gtk.Objects.Image.imageGetStorageType'). The caller of this function does not own a reference to the returned animation. -} imageGetAnimation :: (B.CallStack.HasCallStack, MonadIO m, IsImage a) => a {- ^ /@image@/: a 'GI.Gtk.Objects.Image.Image' -} -> m (Maybe GdkPixbuf.PixbufAnimation.PixbufAnimation) {- ^ __Returns:__ the displayed animation, or 'Nothing' if the image is empty -} imageGetAnimation image = liftIO $ do image' <- unsafeManagedPtrCastPtr image result <- gtk_image_get_animation image' maybeResult <- convertIfNonNull result $ \result' -> do result'' <- (newObject GdkPixbuf.PixbufAnimation.PixbufAnimation) result' return result'' touchManagedPtr image return maybeResult #if ENABLE_OVERLOADING data ImageGetAnimationMethodInfo instance (signature ~ (m (Maybe GdkPixbuf.PixbufAnimation.PixbufAnimation)), MonadIO m, IsImage a) => O.MethodInfo ImageGetAnimationMethodInfo a signature where overloadedMethod _ = imageGetAnimation #endif -- method Image::get_gicon -- method type : OrdinaryMethod -- Args : [Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Image"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkImage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gicon", argType = TInterface (Name {namespace = "Gio", name = "Icon"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "place to store a\n #GIcon, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "place to store an icon size\n (#GtkIconSize), or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_get_gicon" gtk_image_get_gicon :: Ptr Image -> -- image : TInterface (Name {namespace = "Gtk", name = "Image"}) Ptr (Ptr Gio.Icon.Icon) -> -- gicon : TInterface (Name {namespace = "Gio", name = "Icon"}) Ptr Int32 -> -- size : TBasicType TInt IO () {- | Gets the 'GI.Gio.Interfaces.Icon.Icon' and size being displayed by the 'GI.Gtk.Objects.Image.Image'. The storage type of the image must be 'GI.Gtk.Enums.ImageTypeEmpty' or 'GI.Gtk.Enums.ImageTypeGicon' (see 'GI.Gtk.Objects.Image.imageGetStorageType'). The caller of this function does not own a reference to the returned 'GI.Gio.Interfaces.Icon.Icon'. /Since: 2.14/ -} imageGetGicon :: (B.CallStack.HasCallStack, MonadIO m, IsImage a) => a {- ^ /@image@/: a 'GI.Gtk.Objects.Image.Image' -} -> m ((Gio.Icon.Icon, Int32)) imageGetGicon image = liftIO $ do image' <- unsafeManagedPtrCastPtr image gicon <- allocMem :: IO (Ptr (Ptr Gio.Icon.Icon)) size <- allocMem :: IO (Ptr Int32) gtk_image_get_gicon image' gicon size gicon' <- peek gicon gicon'' <- (newObject Gio.Icon.Icon) gicon' size' <- peek size touchManagedPtr image freeMem gicon freeMem size return (gicon'', size') #if ENABLE_OVERLOADING data ImageGetGiconMethodInfo instance (signature ~ (m ((Gio.Icon.Icon, Int32))), MonadIO m, IsImage a) => O.MethodInfo ImageGetGiconMethodInfo a signature where overloadedMethod _ = imageGetGicon #endif -- method Image::get_icon_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Image"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkImage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "place to store an\n icon name, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "place to store an icon size\n (#GtkIconSize), or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_get_icon_name" gtk_image_get_icon_name :: Ptr Image -> -- image : TInterface (Name {namespace = "Gtk", name = "Image"}) Ptr CString -> -- icon_name : TBasicType TUTF8 Ptr Int32 -> -- size : TBasicType TInt IO () {- | Gets the icon name and size being displayed by the 'GI.Gtk.Objects.Image.Image'. The storage type of the image must be 'GI.Gtk.Enums.ImageTypeEmpty' or 'GI.Gtk.Enums.ImageTypeIconName' (see 'GI.Gtk.Objects.Image.imageGetStorageType'). The returned string is owned by the 'GI.Gtk.Objects.Image.Image' and should not be freed. /Since: 2.6/ -} imageGetIconName :: (B.CallStack.HasCallStack, MonadIO m, IsImage a) => a {- ^ /@image@/: a 'GI.Gtk.Objects.Image.Image' -} -> m ((T.Text, Int32)) imageGetIconName image = liftIO $ do image' <- unsafeManagedPtrCastPtr image iconName <- allocMem :: IO (Ptr CString) size <- allocMem :: IO (Ptr Int32) gtk_image_get_icon_name image' iconName size iconName' <- peek iconName iconName'' <- cstringToText iconName' size' <- peek size touchManagedPtr image freeMem iconName freeMem size return (iconName'', size') #if ENABLE_OVERLOADING data ImageGetIconNameMethodInfo instance (signature ~ (m ((T.Text, Int32))), MonadIO m, IsImage a) => O.MethodInfo ImageGetIconNameMethodInfo a signature where overloadedMethod _ = imageGetIconName #endif -- method Image::get_icon_set -- method type : OrdinaryMethod -- Args : [Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Image"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkImage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_set", argType = TInterface (Name {namespace = "Gtk", name = "IconSet"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store a\n #GtkIconSet, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store a stock\n icon size (#GtkIconSize), or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_get_icon_set" gtk_image_get_icon_set :: Ptr Image -> -- image : TInterface (Name {namespace = "Gtk", name = "Image"}) Ptr (Ptr Gtk.IconSet.IconSet) -> -- icon_set : TInterface (Name {namespace = "Gtk", name = "IconSet"}) Ptr Int32 -> -- size : TBasicType TInt IO () {-# DEPRECATED imageGetIconSet ["(Since version 3.10)","Use 'GI.Gtk.Objects.Image.imageGetIconName' instead."] #-} {- | Gets the icon set and size being displayed by the 'GI.Gtk.Objects.Image.Image'. The storage type of the image must be 'GI.Gtk.Enums.ImageTypeEmpty' or 'GI.Gtk.Enums.ImageTypeIconSet' (see 'GI.Gtk.Objects.Image.imageGetStorageType'). -} imageGetIconSet :: (B.CallStack.HasCallStack, MonadIO m, IsImage a) => a {- ^ /@image@/: a 'GI.Gtk.Objects.Image.Image' -} -> m ((Gtk.IconSet.IconSet, Int32)) imageGetIconSet image = liftIO $ do image' <- unsafeManagedPtrCastPtr image iconSet <- allocMem :: IO (Ptr (Ptr Gtk.IconSet.IconSet)) size <- allocMem :: IO (Ptr Int32) gtk_image_get_icon_set image' iconSet size iconSet' <- peek iconSet iconSet'' <- (newBoxed Gtk.IconSet.IconSet) iconSet' size' <- peek size touchManagedPtr image freeMem iconSet freeMem size return (iconSet'', size') #if ENABLE_OVERLOADING data ImageGetIconSetMethodInfo instance (signature ~ (m ((Gtk.IconSet.IconSet, Int32))), MonadIO m, IsImage a) => O.MethodInfo ImageGetIconSetMethodInfo a signature where overloadedMethod _ = imageGetIconSet #endif -- method Image::get_pixbuf -- method type : OrdinaryMethod -- Args : [Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Image"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkImage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"})) -- throws : False -- Skip return : False foreign import ccall "gtk_image_get_pixbuf" gtk_image_get_pixbuf :: Ptr Image -> -- image : TInterface (Name {namespace = "Gtk", name = "Image"}) IO (Ptr GdkPixbuf.Pixbuf.Pixbuf) {- | Gets the 'GI.GdkPixbuf.Objects.Pixbuf.Pixbuf' being displayed by the 'GI.Gtk.Objects.Image.Image'. The storage type of the image must be 'GI.Gtk.Enums.ImageTypeEmpty' or 'GI.Gtk.Enums.ImageTypePixbuf' (see 'GI.Gtk.Objects.Image.imageGetStorageType'). The caller of this function does not own a reference to the returned pixbuf. -} imageGetPixbuf :: (B.CallStack.HasCallStack, MonadIO m, IsImage a) => a {- ^ /@image@/: a 'GI.Gtk.Objects.Image.Image' -} -> m (Maybe GdkPixbuf.Pixbuf.Pixbuf) {- ^ __Returns:__ the displayed pixbuf, or 'Nothing' if the image is empty -} imageGetPixbuf image = liftIO $ do image' <- unsafeManagedPtrCastPtr image result <- gtk_image_get_pixbuf image' maybeResult <- convertIfNonNull result $ \result' -> do result'' <- (newObject GdkPixbuf.Pixbuf.Pixbuf) result' return result'' touchManagedPtr image return maybeResult #if ENABLE_OVERLOADING data ImageGetPixbufMethodInfo instance (signature ~ (m (Maybe GdkPixbuf.Pixbuf.Pixbuf)), MonadIO m, IsImage a) => O.MethodInfo ImageGetPixbufMethodInfo a signature where overloadedMethod _ = imageGetPixbuf #endif -- method Image::get_pixel_size -- method type : OrdinaryMethod -- Args : [Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Image"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkImage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_image_get_pixel_size" gtk_image_get_pixel_size :: Ptr Image -> -- image : TInterface (Name {namespace = "Gtk", name = "Image"}) IO Int32 {- | Gets the pixel size used for named icons. /Since: 2.6/ -} imageGetPixelSize :: (B.CallStack.HasCallStack, MonadIO m, IsImage a) => a {- ^ /@image@/: a 'GI.Gtk.Objects.Image.Image' -} -> m Int32 {- ^ __Returns:__ the pixel size used for named icons. -} imageGetPixelSize image = liftIO $ do image' <- unsafeManagedPtrCastPtr image result <- gtk_image_get_pixel_size image' touchManagedPtr image return result #if ENABLE_OVERLOADING data ImageGetPixelSizeMethodInfo instance (signature ~ (m Int32), MonadIO m, IsImage a) => O.MethodInfo ImageGetPixelSizeMethodInfo a signature where overloadedMethod _ = imageGetPixelSize #endif -- method Image::get_stock -- method type : OrdinaryMethod -- Args : [Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Image"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkImage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "place to store a\n stock icon name, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "place to store a stock icon\n size (#GtkIconSize), or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_get_stock" gtk_image_get_stock :: Ptr Image -> -- image : TInterface (Name {namespace = "Gtk", name = "Image"}) Ptr CString -> -- stock_id : TBasicType TUTF8 Ptr Int32 -> -- size : TBasicType TInt IO () {-# DEPRECATED imageGetStock ["(Since version 3.10)","Use 'GI.Gtk.Objects.Image.imageGetIconName' instead."] #-} {- | Gets the stock icon name and size being displayed by the 'GI.Gtk.Objects.Image.Image'. The storage type of the image must be 'GI.Gtk.Enums.ImageTypeEmpty' or 'GI.Gtk.Enums.ImageTypeStock' (see 'GI.Gtk.Objects.Image.imageGetStorageType'). The returned string is owned by the 'GI.Gtk.Objects.Image.Image' and should not be freed. -} imageGetStock :: (B.CallStack.HasCallStack, MonadIO m, IsImage a) => a {- ^ /@image@/: a 'GI.Gtk.Objects.Image.Image' -} -> m ((T.Text, Int32)) imageGetStock image = liftIO $ do image' <- unsafeManagedPtrCastPtr image stockId <- allocMem :: IO (Ptr CString) size <- allocMem :: IO (Ptr Int32) gtk_image_get_stock image' stockId size stockId' <- peek stockId stockId'' <- cstringToText stockId' size' <- peek size touchManagedPtr image freeMem stockId freeMem size return (stockId'', size') #if ENABLE_OVERLOADING data ImageGetStockMethodInfo instance (signature ~ (m ((T.Text, Int32))), MonadIO m, IsImage a) => O.MethodInfo ImageGetStockMethodInfo a signature where overloadedMethod _ = imageGetStock #endif -- method Image::get_storage_type -- method type : OrdinaryMethod -- Args : [Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Image"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkImage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "ImageType"})) -- throws : False -- Skip return : False foreign import ccall "gtk_image_get_storage_type" gtk_image_get_storage_type :: Ptr Image -> -- image : TInterface (Name {namespace = "Gtk", name = "Image"}) IO CUInt {- | Gets the type of representation being used by the 'GI.Gtk.Objects.Image.Image' to store image data. If the 'GI.Gtk.Objects.Image.Image' has no image data, the return value will be 'GI.Gtk.Enums.ImageTypeEmpty'. -} imageGetStorageType :: (B.CallStack.HasCallStack, MonadIO m, IsImage a) => a {- ^ /@image@/: a 'GI.Gtk.Objects.Image.Image' -} -> m Gtk.Enums.ImageType {- ^ __Returns:__ image representation being used -} imageGetStorageType image = liftIO $ do image' <- unsafeManagedPtrCastPtr image result <- gtk_image_get_storage_type image' let result' = (toEnum . fromIntegral) result touchManagedPtr image return result' #if ENABLE_OVERLOADING data ImageGetStorageTypeMethodInfo instance (signature ~ (m Gtk.Enums.ImageType), MonadIO m, IsImage a) => O.MethodInfo ImageGetStorageTypeMethodInfo a signature where overloadedMethod _ = imageGetStorageType #endif -- method Image::set_from_animation -- method type : OrdinaryMethod -- Args : [Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Image"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkImage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "animation", argType = TInterface (Name {namespace = "GdkPixbuf", name = "PixbufAnimation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GdkPixbufAnimation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_from_animation" gtk_image_set_from_animation :: Ptr Image -> -- image : TInterface (Name {namespace = "Gtk", name = "Image"}) Ptr GdkPixbuf.PixbufAnimation.PixbufAnimation -> -- animation : TInterface (Name {namespace = "GdkPixbuf", name = "PixbufAnimation"}) IO () {- | Causes the 'GI.Gtk.Objects.Image.Image' to display the given animation (or display nothing, if you set the animation to 'Nothing'). -} imageSetFromAnimation :: (B.CallStack.HasCallStack, MonadIO m, IsImage a, GdkPixbuf.PixbufAnimation.IsPixbufAnimation b) => a {- ^ /@image@/: a 'GI.Gtk.Objects.Image.Image' -} -> b {- ^ /@animation@/: the 'GI.GdkPixbuf.Objects.PixbufAnimation.PixbufAnimation' -} -> m () imageSetFromAnimation image animation = liftIO $ do image' <- unsafeManagedPtrCastPtr image animation' <- unsafeManagedPtrCastPtr animation gtk_image_set_from_animation image' animation' touchManagedPtr image touchManagedPtr animation return () #if ENABLE_OVERLOADING data ImageSetFromAnimationMethodInfo instance (signature ~ (b -> m ()), MonadIO m, IsImage a, GdkPixbuf.PixbufAnimation.IsPixbufAnimation b) => O.MethodInfo ImageSetFromAnimationMethodInfo a signature where overloadedMethod _ = imageSetFromAnimation #endif -- method Image::set_from_file -- method type : OrdinaryMethod -- Args : [Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Image"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkImage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a filename or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_from_file" gtk_image_set_from_file :: Ptr Image -> -- image : TInterface (Name {namespace = "Gtk", name = "Image"}) CString -> -- filename : TBasicType TFileName IO () {- | See 'GI.Gtk.Objects.Image.imageNewFromFile' for details. -} imageSetFromFile :: (B.CallStack.HasCallStack, MonadIO m, IsImage a) => a {- ^ /@image@/: a 'GI.Gtk.Objects.Image.Image' -} -> Maybe ([Char]) {- ^ /@filename@/: a filename or 'Nothing' -} -> m () imageSetFromFile image filename = liftIO $ do image' <- unsafeManagedPtrCastPtr image maybeFilename <- case filename of Nothing -> return nullPtr Just jFilename -> do jFilename' <- stringToCString jFilename return jFilename' gtk_image_set_from_file image' maybeFilename touchManagedPtr image freeMem maybeFilename return () #if ENABLE_OVERLOADING data ImageSetFromFileMethodInfo instance (signature ~ (Maybe ([Char]) -> m ()), MonadIO m, IsImage a) => O.MethodInfo ImageSetFromFileMethodInfo a signature where overloadedMethod _ = imageSetFromFile #endif -- method Image::set_from_gicon -- method type : OrdinaryMethod -- Args : [Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Image"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkImage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "Icon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an icon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an icon size (#GtkIconSize)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_from_gicon" gtk_image_set_from_gicon :: Ptr Image -> -- image : TInterface (Name {namespace = "Gtk", name = "Image"}) Ptr Gio.Icon.Icon -> -- icon : TInterface (Name {namespace = "Gio", name = "Icon"}) Int32 -> -- size : TBasicType TInt IO () {- | See 'GI.Gtk.Objects.Image.imageNewFromGicon' for details. /Since: 2.14/ -} imageSetFromGicon :: (B.CallStack.HasCallStack, MonadIO m, IsImage a, Gio.Icon.IsIcon b) => a {- ^ /@image@/: a 'GI.Gtk.Objects.Image.Image' -} -> b {- ^ /@icon@/: an icon -} -> Int32 {- ^ /@size@/: an icon size ('GI.Gtk.Enums.IconSize') -} -> m () imageSetFromGicon image icon size = liftIO $ do image' <- unsafeManagedPtrCastPtr image icon' <- unsafeManagedPtrCastPtr icon gtk_image_set_from_gicon image' icon' size touchManagedPtr image touchManagedPtr icon return () #if ENABLE_OVERLOADING data ImageSetFromGiconMethodInfo instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsImage a, Gio.Icon.IsIcon b) => O.MethodInfo ImageSetFromGiconMethodInfo a signature where overloadedMethod _ = imageSetFromGicon #endif -- method Image::set_from_icon_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Image"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkImage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an icon name or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an icon size (#GtkIconSize)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_from_icon_name" gtk_image_set_from_icon_name :: Ptr Image -> -- image : TInterface (Name {namespace = "Gtk", name = "Image"}) CString -> -- icon_name : TBasicType TUTF8 Int32 -> -- size : TBasicType TInt IO () {- | See 'GI.Gtk.Objects.Image.imageNewFromIconName' for details. /Since: 2.6/ -} imageSetFromIconName :: (B.CallStack.HasCallStack, MonadIO m, IsImage a) => a {- ^ /@image@/: a 'GI.Gtk.Objects.Image.Image' -} -> Maybe (T.Text) {- ^ /@iconName@/: an icon name or 'Nothing' -} -> Int32 {- ^ /@size@/: an icon size ('GI.Gtk.Enums.IconSize') -} -> m () imageSetFromIconName image iconName size = liftIO $ do image' <- unsafeManagedPtrCastPtr image maybeIconName <- case iconName of Nothing -> return nullPtr Just jIconName -> do jIconName' <- textToCString jIconName return jIconName' gtk_image_set_from_icon_name image' maybeIconName size touchManagedPtr image freeMem maybeIconName return () #if ENABLE_OVERLOADING data ImageSetFromIconNameMethodInfo instance (signature ~ (Maybe (T.Text) -> Int32 -> m ()), MonadIO m, IsImage a) => O.MethodInfo ImageSetFromIconNameMethodInfo a signature where overloadedMethod _ = imageSetFromIconName #endif -- method Image::set_from_icon_set -- method type : OrdinaryMethod -- Args : [Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Image"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkImage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_set", argType = TInterface (Name {namespace = "Gtk", name = "IconSet"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkIconSet", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a stock icon size (#GtkIconSize)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_from_icon_set" gtk_image_set_from_icon_set :: Ptr Image -> -- image : TInterface (Name {namespace = "Gtk", name = "Image"}) Ptr Gtk.IconSet.IconSet -> -- icon_set : TInterface (Name {namespace = "Gtk", name = "IconSet"}) Int32 -> -- size : TBasicType TInt IO () {-# DEPRECATED imageSetFromIconSet ["(Since version 3.10)","Use 'GI.Gtk.Objects.Image.imageSetFromIconName' instead."] #-} {- | See 'GI.Gtk.Objects.Image.imageNewFromIconSet' for details. -} imageSetFromIconSet :: (B.CallStack.HasCallStack, MonadIO m, IsImage a) => a {- ^ /@image@/: a 'GI.Gtk.Objects.Image.Image' -} -> Gtk.IconSet.IconSet {- ^ /@iconSet@/: a 'GI.Gtk.Structs.IconSet.IconSet' -} -> Int32 {- ^ /@size@/: a stock icon size ('GI.Gtk.Enums.IconSize') -} -> m () imageSetFromIconSet image iconSet size = liftIO $ do image' <- unsafeManagedPtrCastPtr image iconSet' <- unsafeManagedPtrGetPtr iconSet gtk_image_set_from_icon_set image' iconSet' size touchManagedPtr image touchManagedPtr iconSet return () #if ENABLE_OVERLOADING data ImageSetFromIconSetMethodInfo instance (signature ~ (Gtk.IconSet.IconSet -> Int32 -> m ()), MonadIO m, IsImage a) => O.MethodInfo ImageSetFromIconSetMethodInfo a signature where overloadedMethod _ = imageSetFromIconSet #endif -- method Image::set_from_pixbuf -- method type : OrdinaryMethod -- Args : [Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Image"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkImage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GdkPixbuf or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_from_pixbuf" gtk_image_set_from_pixbuf :: Ptr Image -> -- image : TInterface (Name {namespace = "Gtk", name = "Image"}) Ptr GdkPixbuf.Pixbuf.Pixbuf -> -- pixbuf : TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}) IO () {- | See 'GI.Gtk.Objects.Image.imageNewFromPixbuf' for details. -} imageSetFromPixbuf :: (B.CallStack.HasCallStack, MonadIO m, IsImage a, GdkPixbuf.Pixbuf.IsPixbuf b) => a {- ^ /@image@/: a 'GI.Gtk.Objects.Image.Image' -} -> Maybe (b) {- ^ /@pixbuf@/: a 'GI.GdkPixbuf.Objects.Pixbuf.Pixbuf' or 'Nothing' -} -> m () imageSetFromPixbuf image pixbuf = liftIO $ do image' <- unsafeManagedPtrCastPtr image maybePixbuf <- case pixbuf of Nothing -> return nullPtr Just jPixbuf -> do jPixbuf' <- unsafeManagedPtrCastPtr jPixbuf return jPixbuf' gtk_image_set_from_pixbuf image' maybePixbuf touchManagedPtr image whenJust pixbuf touchManagedPtr return () #if ENABLE_OVERLOADING data ImageSetFromPixbufMethodInfo instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsImage a, GdkPixbuf.Pixbuf.IsPixbuf b) => O.MethodInfo ImageSetFromPixbufMethodInfo a signature where overloadedMethod _ = imageSetFromPixbuf #endif -- method Image::set_from_resource -- method type : OrdinaryMethod -- Args : [Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Image"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkImage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a resource path or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_from_resource" gtk_image_set_from_resource :: Ptr Image -> -- image : TInterface (Name {namespace = "Gtk", name = "Image"}) CString -> -- resource_path : TBasicType TUTF8 IO () {- | See 'GI.Gtk.Objects.Image.imageNewFromResource' for details. -} imageSetFromResource :: (B.CallStack.HasCallStack, MonadIO m, IsImage a) => a {- ^ /@image@/: a 'GI.Gtk.Objects.Image.Image' -} -> Maybe (T.Text) {- ^ /@resourcePath@/: a resource path or 'Nothing' -} -> m () imageSetFromResource image resourcePath = liftIO $ do image' <- unsafeManagedPtrCastPtr image maybeResourcePath <- case resourcePath of Nothing -> return nullPtr Just jResourcePath -> do jResourcePath' <- textToCString jResourcePath return jResourcePath' gtk_image_set_from_resource image' maybeResourcePath touchManagedPtr image freeMem maybeResourcePath return () #if ENABLE_OVERLOADING data ImageSetFromResourceMethodInfo instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsImage a) => O.MethodInfo ImageSetFromResourceMethodInfo a signature where overloadedMethod _ = imageSetFromResource #endif -- method Image::set_from_stock -- method type : OrdinaryMethod -- Args : [Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Image"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkImage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a stock icon name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a stock icon size (#GtkIconSize)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_from_stock" gtk_image_set_from_stock :: Ptr Image -> -- image : TInterface (Name {namespace = "Gtk", name = "Image"}) CString -> -- stock_id : TBasicType TUTF8 Int32 -> -- size : TBasicType TInt IO () {-# DEPRECATED imageSetFromStock ["(Since version 3.10)","Use 'GI.Gtk.Objects.Image.imageSetFromIconName' instead."] #-} {- | See 'GI.Gtk.Objects.Image.imageNewFromStock' for details. -} imageSetFromStock :: (B.CallStack.HasCallStack, MonadIO m, IsImage a) => a {- ^ /@image@/: a 'GI.Gtk.Objects.Image.Image' -} -> T.Text {- ^ /@stockId@/: a stock icon name -} -> Int32 {- ^ /@size@/: a stock icon size ('GI.Gtk.Enums.IconSize') -} -> m () imageSetFromStock image stockId size = liftIO $ do image' <- unsafeManagedPtrCastPtr image stockId' <- textToCString stockId gtk_image_set_from_stock image' stockId' size touchManagedPtr image freeMem stockId' return () #if ENABLE_OVERLOADING data ImageSetFromStockMethodInfo instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, IsImage a) => O.MethodInfo ImageSetFromStockMethodInfo a signature where overloadedMethod _ = imageSetFromStock #endif -- method Image::set_from_surface -- method type : OrdinaryMethod -- Args : [Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Image"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkImage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "surface", argType = TInterface (Name {namespace = "cairo", name = "Surface"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a cairo_surface_t or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_from_surface" gtk_image_set_from_surface :: Ptr Image -> -- image : TInterface (Name {namespace = "Gtk", name = "Image"}) Ptr Cairo.Surface.Surface -> -- surface : TInterface (Name {namespace = "cairo", name = "Surface"}) IO () {- | See 'GI.Gtk.Objects.Image.imageNewFromSurface' for details. /Since: 3.10/ -} imageSetFromSurface :: (B.CallStack.HasCallStack, MonadIO m, IsImage a) => a {- ^ /@image@/: a 'GI.Gtk.Objects.Image.Image' -} -> Maybe (Cairo.Surface.Surface) {- ^ /@surface@/: a cairo_surface_t or 'Nothing' -} -> m () imageSetFromSurface image surface = liftIO $ do image' <- unsafeManagedPtrCastPtr image maybeSurface <- case surface of Nothing -> return nullPtr Just jSurface -> do jSurface' <- unsafeManagedPtrGetPtr jSurface return jSurface' gtk_image_set_from_surface image' maybeSurface touchManagedPtr image whenJust surface touchManagedPtr return () #if ENABLE_OVERLOADING data ImageSetFromSurfaceMethodInfo instance (signature ~ (Maybe (Cairo.Surface.Surface) -> m ()), MonadIO m, IsImage a) => O.MethodInfo ImageSetFromSurfaceMethodInfo a signature where overloadedMethod _ = imageSetFromSurface #endif -- method Image::set_pixel_size -- method type : OrdinaryMethod -- Args : [Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Image"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkImage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixel_size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new pixel size", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_pixel_size" gtk_image_set_pixel_size :: Ptr Image -> -- image : TInterface (Name {namespace = "Gtk", name = "Image"}) Int32 -> -- pixel_size : TBasicType TInt IO () {- | Sets the pixel size to use for named icons. If the pixel size is set to a value != -1, it is used instead of the icon size set by 'GI.Gtk.Objects.Image.imageSetFromIconName'. /Since: 2.6/ -} imageSetPixelSize :: (B.CallStack.HasCallStack, MonadIO m, IsImage a) => a {- ^ /@image@/: a 'GI.Gtk.Objects.Image.Image' -} -> Int32 {- ^ /@pixelSize@/: the new pixel size -} -> m () imageSetPixelSize image pixelSize = liftIO $ do image' <- unsafeManagedPtrCastPtr image gtk_image_set_pixel_size image' pixelSize touchManagedPtr image return () #if ENABLE_OVERLOADING data ImageSetPixelSizeMethodInfo instance (signature ~ (Int32 -> m ()), MonadIO m, IsImage a) => O.MethodInfo ImageSetPixelSizeMethodInfo a signature where overloadedMethod _ = imageSetPixelSize #endif