{-# OPTIONS_HADDOCK hide #-} -- -*-haskell-*- -- -------------------- automatically generated file - do not edit ---------- -- Object hierarchy for the GIMP Toolkit (GTK) Binding for Haskell -- -- Author : Axel Simon -- -- Copyright (C) 2001-2005 Axel Simon -- -- This library is free software; you can redistribute it and/or -- modify it under the terms of the GNU Lesser General Public -- License as published by the Free Software Foundation; either -- version 2.1 of the License, or (at your option) any later version. -- -- This library is distributed in the hope that it will be useful, -- but WITHOUT ANY WARRANTY; without even the implied warranty of -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -- Lesser General Public License for more details. -- -- #hide -- | -- Maintainer : gtk2hs-users@lists.sourceforge.net -- Stability : provisional -- Portability : portable (depends on GHC) -- -- This file reflects the Gtk+ object hierarchy in terms of Haskell classes. -- -- Note: the mk... functions were originally meant to simply be an alias -- for the constructor. However, in order to communicate the destructor -- of an object to objectNew, the mk... functions are now a tuple containing -- Haskell constructor and the destructor function pointer. This hack avoids -- changing all modules that simply pass mk... to objectNew. -- module Graphics.UI.Gtk.Types ( module System.Glib.GObject, module Graphics.UI.Gtk.General.Threading, AtkObject(AtkObject), AtkObjectClass, toAtkObject, mkAtkObject, unAtkObject, castToAtkObject, gTypeAtkObject, Accessible(Accessible), AccessibleClass, toAccessible, mkAccessible, unAccessible, castToAccessible, gTypeAccessible, Keymap(Keymap), KeymapClass, toKeymap, mkKeymap, unKeymap, castToKeymap, gTypeKeymap, DisplayManager(DisplayManager), DisplayManagerClass, toDisplayManager, mkDisplayManager, unDisplayManager, castToDisplayManager, gTypeDisplayManager, AppLaunchContext(AppLaunchContext), AppLaunchContextClass, toAppLaunchContext, mkAppLaunchContext, unAppLaunchContext, castToAppLaunchContext, gTypeAppLaunchContext, PrintSettings(PrintSettings), PrintSettingsClass, toPrintSettings, mkPrintSettings, unPrintSettings, castToPrintSettings, gTypePrintSettings, PrintOperation(PrintOperation), PrintOperationClass, toPrintOperation, mkPrintOperation, unPrintOperation, castToPrintOperation, gTypePrintOperation, PrintOperationPreview(PrintOperationPreview), PrintOperationPreviewClass, toPrintOperationPreview, mkPrintOperationPreview, unPrintOperationPreview, castToPrintOperationPreview, gTypePrintOperationPreview, PageSetup(PageSetup), PageSetupClass, toPageSetup, mkPageSetup, unPageSetup, castToPageSetup, gTypePageSetup, PrintContext(PrintContext), PrintContextClass, toPrintContext, mkPrintContext, unPrintContext, castToPrintContext, gTypePrintContext, RecentChooser(RecentChooser), RecentChooserClass, toRecentChooser, mkRecentChooser, unRecentChooser, castToRecentChooser, gTypeRecentChooser, RecentManager(RecentManager), RecentManagerClass, toRecentManager, mkRecentManager, unRecentManager, castToRecentManager, gTypeRecentManager, DrawWindow(DrawWindow), DrawWindowClass, toDrawWindow, mkDrawWindow, unDrawWindow, castToDrawWindow, gTypeDrawWindow, Screen(Screen), ScreenClass, toScreen, mkScreen, unScreen, castToScreen, gTypeScreen, Display(Display), DisplayClass, toDisplay, mkDisplay, unDisplay, castToDisplay, gTypeDisplay, Visual(Visual), VisualClass, toVisual, mkVisual, unVisual, castToVisual, gTypeVisual, Device(Device), DeviceClass, toDevice, mkDevice, unDevice, castToDevice, gTypeDevice, Settings(Settings), SettingsClass, toSettings, mkSettings, unSettings, castToSettings, gTypeSettings, TextBuffer(TextBuffer), TextBufferClass, toTextBuffer, mkTextBuffer, unTextBuffer, castToTextBuffer, gTypeTextBuffer, TextTag(TextTag), TextTagClass, toTextTag, mkTextTag, unTextTag, castToTextTag, gTypeTextTag, TextTagTable(TextTagTable), TextTagTableClass, toTextTagTable, mkTextTagTable, unTextTagTable, castToTextTagTable, gTypeTextTagTable, Style(Style), StyleClass, toStyle, mkStyle, unStyle, castToStyle, gTypeStyle, RcStyle(RcStyle), RcStyleClass, toRcStyle, mkRcStyle, unRcStyle, castToRcStyle, gTypeRcStyle, DragContext(DragContext), DragContextClass, toDragContext, mkDragContext, unDragContext, castToDragContext, gTypeDragContext, Pixbuf(Pixbuf), PixbufClass, toPixbuf, mkPixbuf, unPixbuf, castToPixbuf, gTypePixbuf, PixbufAnimation(PixbufAnimation), PixbufAnimationClass, toPixbufAnimation, mkPixbufAnimation, unPixbufAnimation, castToPixbufAnimation, gTypePixbufAnimation, PixbufSimpleAnim(PixbufSimpleAnim), PixbufSimpleAnimClass, toPixbufSimpleAnim, mkPixbufSimpleAnim, unPixbufSimpleAnim, castToPixbufSimpleAnim, gTypePixbufSimpleAnim, PixbufAnimationIter(PixbufAnimationIter), PixbufAnimationIterClass, toPixbufAnimationIter, mkPixbufAnimationIter, unPixbufAnimationIter, castToPixbufAnimationIter, gTypePixbufAnimationIter, TextChildAnchor(TextChildAnchor), TextChildAnchorClass, toTextChildAnchor, mkTextChildAnchor, unTextChildAnchor, castToTextChildAnchor, gTypeTextChildAnchor, TextMark(TextMark), TextMarkClass, toTextMark, mkTextMark, unTextMark, castToTextMark, gTypeTextMark, RecentFilter(RecentFilter), RecentFilterClass, toRecentFilter, mkRecentFilter, unRecentFilter, castToRecentFilter, gTypeRecentFilter, Widget(Widget), WidgetClass, toWidget, mkWidget, unWidget, castToWidget, gTypeWidget, HSV(HSV), HSVClass, toHSV, mkHSV, unHSV, castToHSV, gTypeHSV, Misc(Misc), MiscClass, toMisc, mkMisc, unMisc, castToMisc, gTypeMisc, Label(Label), LabelClass, toLabel, mkLabel, unLabel, castToLabel, gTypeLabel, AccelLabel(AccelLabel), AccelLabelClass, toAccelLabel, mkAccelLabel, unAccelLabel, castToAccelLabel, gTypeAccelLabel, Arrow(Arrow), ArrowClass, toArrow, mkArrow, unArrow, castToArrow, gTypeArrow, Image(Image), ImageClass, toImage, mkImage, unImage, castToImage, gTypeImage, Container(Container), ContainerClass, toContainer, mkContainer, unContainer, castToContainer, gTypeContainer, ToolPalette(ToolPalette), ToolPaletteClass, toToolPalette, mkToolPalette, unToolPalette, castToToolPalette, gTypeToolPalette, ToolItemGroup(ToolItemGroup), ToolItemGroupClass, toToolItemGroup, mkToolItemGroup, unToolItemGroup, castToToolItemGroup, gTypeToolItemGroup, Bin(Bin), BinClass, toBin, mkBin, unBin, castToBin, gTypeBin, Alignment(Alignment), AlignmentClass, toAlignment, mkAlignment, unAlignment, castToAlignment, gTypeAlignment, Frame(Frame), FrameClass, toFrame, mkFrame, unFrame, castToFrame, gTypeFrame, AspectFrame(AspectFrame), AspectFrameClass, toAspectFrame, mkAspectFrame, unAspectFrame, castToAspectFrame, gTypeAspectFrame, Button(Button), ButtonClass, toButton, mkButton, unButton, castToButton, gTypeButton, ScaleButton(ScaleButton), ScaleButtonClass, toScaleButton, mkScaleButton, unScaleButton, castToScaleButton, gTypeScaleButton, VolumeButton(VolumeButton), VolumeButtonClass, toVolumeButton, mkVolumeButton, unVolumeButton, castToVolumeButton, gTypeVolumeButton, LinkButton(LinkButton), LinkButtonClass, toLinkButton, mkLinkButton, unLinkButton, castToLinkButton, gTypeLinkButton, ToggleButton(ToggleButton), ToggleButtonClass, toToggleButton, mkToggleButton, unToggleButton, castToToggleButton, gTypeToggleButton, CheckButton(CheckButton), CheckButtonClass, toCheckButton, mkCheckButton, unCheckButton, castToCheckButton, gTypeCheckButton, RadioButton(RadioButton), RadioButtonClass, toRadioButton, mkRadioButton, unRadioButton, castToRadioButton, gTypeRadioButton, ColorButton(ColorButton), ColorButtonClass, toColorButton, mkColorButton, unColorButton, castToColorButton, gTypeColorButton, FontButton(FontButton), FontButtonClass, toFontButton, mkFontButton, unFontButton, castToFontButton, gTypeFontButton, MenuItem(MenuItem), MenuItemClass, toMenuItem, mkMenuItem, unMenuItem, castToMenuItem, gTypeMenuItem, CheckMenuItem(CheckMenuItem), CheckMenuItemClass, toCheckMenuItem, mkCheckMenuItem, unCheckMenuItem, castToCheckMenuItem, gTypeCheckMenuItem, RadioMenuItem(RadioMenuItem), RadioMenuItemClass, toRadioMenuItem, mkRadioMenuItem, unRadioMenuItem, castToRadioMenuItem, gTypeRadioMenuItem, TearoffMenuItem(TearoffMenuItem), TearoffMenuItemClass, toTearoffMenuItem, mkTearoffMenuItem, unTearoffMenuItem, castToTearoffMenuItem, gTypeTearoffMenuItem, ImageMenuItem(ImageMenuItem), ImageMenuItemClass, toImageMenuItem, mkImageMenuItem, unImageMenuItem, castToImageMenuItem, gTypeImageMenuItem, SeparatorMenuItem(SeparatorMenuItem), SeparatorMenuItemClass, toSeparatorMenuItem, mkSeparatorMenuItem, unSeparatorMenuItem, castToSeparatorMenuItem, gTypeSeparatorMenuItem, Window(Window), WindowClass, toWindow, mkWindow, unWindow, castToWindow, gTypeWindow, Assistant(Assistant), AssistantClass, toAssistant, mkAssistant, unAssistant, castToAssistant, gTypeAssistant, OffscreenWindow(OffscreenWindow), OffscreenWindowClass, toOffscreenWindow, mkOffscreenWindow, unOffscreenWindow, castToOffscreenWindow, gTypeOffscreenWindow, Dialog(Dialog), DialogClass, toDialog, mkDialog, unDialog, castToDialog, gTypeDialog, AboutDialog(AboutDialog), AboutDialogClass, toAboutDialog, mkAboutDialog, unAboutDialog, castToAboutDialog, gTypeAboutDialog, ColorSelectionDialog(ColorSelectionDialog), ColorSelectionDialogClass, toColorSelectionDialog, mkColorSelectionDialog, unColorSelectionDialog, castToColorSelectionDialog, gTypeColorSelectionDialog, FileChooserDialog(FileChooserDialog), FileChooserDialogClass, toFileChooserDialog, mkFileChooserDialog, unFileChooserDialog, castToFileChooserDialog, gTypeFileChooserDialog, FontSelectionDialog(FontSelectionDialog), FontSelectionDialogClass, toFontSelectionDialog, mkFontSelectionDialog, unFontSelectionDialog, castToFontSelectionDialog, gTypeFontSelectionDialog, MessageDialog(MessageDialog), MessageDialogClass, toMessageDialog, mkMessageDialog, unMessageDialog, castToMessageDialog, gTypeMessageDialog, EventBox(EventBox), EventBoxClass, toEventBox, mkEventBox, unEventBox, castToEventBox, gTypeEventBox, HandleBox(HandleBox), HandleBoxClass, toHandleBox, mkHandleBox, unHandleBox, castToHandleBox, gTypeHandleBox, ScrolledWindow(ScrolledWindow), ScrolledWindowClass, toScrolledWindow, mkScrolledWindow, unScrolledWindow, castToScrolledWindow, gTypeScrolledWindow, Viewport(Viewport), ViewportClass, toViewport, mkViewport, unViewport, castToViewport, gTypeViewport, Expander(Expander), ExpanderClass, toExpander, mkExpander, unExpander, castToExpander, gTypeExpander, ComboBox(ComboBox), ComboBoxClass, toComboBox, mkComboBox, unComboBox, castToComboBox, gTypeComboBox, ToolItem(ToolItem), ToolItemClass, toToolItem, mkToolItem, unToolItem, castToToolItem, gTypeToolItem, ToolButton(ToolButton), ToolButtonClass, toToolButton, mkToolButton, unToolButton, castToToolButton, gTypeToolButton, MenuToolButton(MenuToolButton), MenuToolButtonClass, toMenuToolButton, mkMenuToolButton, unMenuToolButton, castToMenuToolButton, gTypeMenuToolButton, ToggleToolButton(ToggleToolButton), ToggleToolButtonClass, toToggleToolButton, mkToggleToolButton, unToggleToolButton, castToToggleToolButton, gTypeToggleToolButton, RadioToolButton(RadioToolButton), RadioToolButtonClass, toRadioToolButton, mkRadioToolButton, unRadioToolButton, castToRadioToolButton, gTypeRadioToolButton, SeparatorToolItem(SeparatorToolItem), SeparatorToolItemClass, toSeparatorToolItem, mkSeparatorToolItem, unSeparatorToolItem, castToSeparatorToolItem, gTypeSeparatorToolItem, Box(Box), BoxClass, toBox, mkBox, unBox, castToBox, gTypeBox, ButtonBox(ButtonBox), ButtonBoxClass, toButtonBox, mkButtonBox, unButtonBox, castToButtonBox, gTypeButtonBox, HButtonBox(HButtonBox), HButtonBoxClass, toHButtonBox, mkHButtonBox, unHButtonBox, castToHButtonBox, gTypeHButtonBox, VButtonBox(VButtonBox), VButtonBoxClass, toVButtonBox, mkVButtonBox, unVButtonBox, castToVButtonBox, gTypeVButtonBox, VBox(VBox), VBoxClass, toVBox, mkVBox, unVBox, castToVBox, gTypeVBox, RecentChooserWidget(RecentChooserWidget), RecentChooserWidgetClass, toRecentChooserWidget, mkRecentChooserWidget, unRecentChooserWidget, castToRecentChooserWidget, gTypeRecentChooserWidget, ColorSelection(ColorSelection), ColorSelectionClass, toColorSelection, mkColorSelection, unColorSelection, castToColorSelection, gTypeColorSelection, FontSelection(FontSelection), FontSelectionClass, toFontSelection, mkFontSelection, unFontSelection, castToFontSelection, gTypeFontSelection, FileChooserWidget(FileChooserWidget), FileChooserWidgetClass, toFileChooserWidget, mkFileChooserWidget, unFileChooserWidget, castToFileChooserWidget, gTypeFileChooserWidget, HBox(HBox), HBoxClass, toHBox, mkHBox, unHBox, castToHBox, gTypeHBox, InfoBar(InfoBar), InfoBarClass, toInfoBar, mkInfoBar, unInfoBar, castToInfoBar, gTypeInfoBar, FileChooserButton(FileChooserButton), FileChooserButtonClass, toFileChooserButton, mkFileChooserButton, unFileChooserButton, castToFileChooserButton, gTypeFileChooserButton, Statusbar(Statusbar), StatusbarClass, toStatusbar, mkStatusbar, unStatusbar, castToStatusbar, gTypeStatusbar, Fixed(Fixed), FixedClass, toFixed, mkFixed, unFixed, castToFixed, gTypeFixed, Paned(Paned), PanedClass, toPaned, mkPaned, unPaned, castToPaned, gTypePaned, HPaned(HPaned), HPanedClass, toHPaned, mkHPaned, unHPaned, castToHPaned, gTypeHPaned, VPaned(VPaned), VPanedClass, toVPaned, mkVPaned, unVPaned, castToVPaned, gTypeVPaned, IconView(IconView), IconViewClass, toIconView, mkIconView, unIconView, castToIconView, gTypeIconView, Layout(Layout), LayoutClass, toLayout, mkLayout, unLayout, castToLayout, gTypeLayout, MenuShell(MenuShell), MenuShellClass, toMenuShell, mkMenuShell, unMenuShell, castToMenuShell, gTypeMenuShell, Menu(Menu), MenuClass, toMenu, mkMenu, unMenu, castToMenu, gTypeMenu, RecentChooserMenu(RecentChooserMenu), RecentChooserMenuClass, toRecentChooserMenu, mkRecentChooserMenu, unRecentChooserMenu, castToRecentChooserMenu, gTypeRecentChooserMenu, MenuBar(MenuBar), MenuBarClass, toMenuBar, mkMenuBar, unMenuBar, castToMenuBar, gTypeMenuBar, Notebook(Notebook), NotebookClass, toNotebook, mkNotebook, unNotebook, castToNotebook, gTypeNotebook, Table(Table), TableClass, toTable, mkTable, unTable, castToTable, gTypeTable, TextView(TextView), TextViewClass, toTextView, mkTextView, unTextView, castToTextView, gTypeTextView, Toolbar(Toolbar), ToolbarClass, toToolbar, mkToolbar, unToolbar, castToToolbar, gTypeToolbar, TreeView(TreeView), TreeViewClass, toTreeView, mkTreeView, unTreeView, castToTreeView, gTypeTreeView, Calendar(Calendar), CalendarClass, toCalendar, mkCalendar, unCalendar, castToCalendar, gTypeCalendar, CellView(CellView), CellViewClass, toCellView, mkCellView, unCellView, castToCellView, gTypeCellView, DrawingArea(DrawingArea), DrawingAreaClass, toDrawingArea, mkDrawingArea, unDrawingArea, castToDrawingArea, gTypeDrawingArea, Spinner(Spinner), SpinnerClass, toSpinner, mkSpinner, unSpinner, castToSpinner, gTypeSpinner, Entry(Entry), EntryClass, toEntry, mkEntry, unEntry, castToEntry, gTypeEntry, SpinButton(SpinButton), SpinButtonClass, toSpinButton, mkSpinButton, unSpinButton, castToSpinButton, gTypeSpinButton, Range(Range), RangeClass, toRange, mkRange, unRange, castToRange, gTypeRange, Scale(Scale), ScaleClass, toScale, mkScale, unScale, castToScale, gTypeScale, HScale(HScale), HScaleClass, toHScale, mkHScale, unHScale, castToHScale, gTypeHScale, VScale(VScale), VScaleClass, toVScale, mkVScale, unVScale, castToVScale, gTypeVScale, Scrollbar(Scrollbar), ScrollbarClass, toScrollbar, mkScrollbar, unScrollbar, castToScrollbar, gTypeScrollbar, HScrollbar(HScrollbar), HScrollbarClass, toHScrollbar, mkHScrollbar, unHScrollbar, castToHScrollbar, gTypeHScrollbar, VScrollbar(VScrollbar), VScrollbarClass, toVScrollbar, mkVScrollbar, unVScrollbar, castToVScrollbar, gTypeVScrollbar, Separator(Separator), SeparatorClass, toSeparator, mkSeparator, unSeparator, castToSeparator, gTypeSeparator, HSeparator(HSeparator), HSeparatorClass, toHSeparator, mkHSeparator, unHSeparator, castToHSeparator, gTypeHSeparator, VSeparator(VSeparator), VSeparatorClass, toVSeparator, mkVSeparator, unVSeparator, castToVSeparator, gTypeVSeparator, Invisible(Invisible), InvisibleClass, toInvisible, mkInvisible, unInvisible, castToInvisible, gTypeInvisible, ProgressBar(ProgressBar), ProgressBarClass, toProgressBar, mkProgressBar, unProgressBar, castToProgressBar, gTypeProgressBar, Adjustment(Adjustment), AdjustmentClass, toAdjustment, mkAdjustment, unAdjustment, castToAdjustment, gTypeAdjustment, IMContext(IMContext), IMContextClass, toIMContext, mkIMContext, unIMContext, castToIMContext, gTypeIMContext, IMMulticontext(IMMulticontext), IMMulticontextClass, toIMMulticontext, mkIMMulticontext, unIMMulticontext, castToIMMulticontext, gTypeIMMulticontext, IMContextSimple(IMContextSimple), IMContextSimpleClass, toIMContextSimple, mkIMContextSimple, unIMContextSimple, castToIMContextSimple, gTypeIMContextSimple, TreeViewColumn(TreeViewColumn), TreeViewColumnClass, toTreeViewColumn, mkTreeViewColumn, unTreeViewColumn, castToTreeViewColumn, gTypeTreeViewColumn, CellRenderer(CellRenderer), CellRendererClass, toCellRenderer, mkCellRenderer, unCellRenderer, castToCellRenderer, gTypeCellRenderer, CellRendererSpinner(CellRendererSpinner), CellRendererSpinnerClass, toCellRendererSpinner, mkCellRendererSpinner, unCellRendererSpinner, castToCellRendererSpinner, gTypeCellRendererSpinner, CellRendererPixbuf(CellRendererPixbuf), CellRendererPixbufClass, toCellRendererPixbuf, mkCellRendererPixbuf, unCellRendererPixbuf, castToCellRendererPixbuf, gTypeCellRendererPixbuf, CellRendererText(CellRendererText), CellRendererTextClass, toCellRendererText, mkCellRendererText, unCellRendererText, castToCellRendererText, gTypeCellRendererText, CellRendererAccel(CellRendererAccel), CellRendererAccelClass, toCellRendererAccel, mkCellRendererAccel, unCellRendererAccel, castToCellRendererAccel, gTypeCellRendererAccel, CellRendererSpin(CellRendererSpin), CellRendererSpinClass, toCellRendererSpin, mkCellRendererSpin, unCellRendererSpin, castToCellRendererSpin, gTypeCellRendererSpin, CellRendererCombo(CellRendererCombo), CellRendererComboClass, toCellRendererCombo, mkCellRendererCombo, unCellRendererCombo, castToCellRendererCombo, gTypeCellRendererCombo, CellRendererToggle(CellRendererToggle), CellRendererToggleClass, toCellRendererToggle, mkCellRendererToggle, unCellRendererToggle, castToCellRendererToggle, gTypeCellRendererToggle, CellRendererProgress(CellRendererProgress), CellRendererProgressClass, toCellRendererProgress, mkCellRendererProgress, unCellRendererProgress, castToCellRendererProgress, gTypeCellRendererProgress, FileFilter(FileFilter), FileFilterClass, toFileFilter, mkFileFilter, unFileFilter, castToFileFilter, gTypeFileFilter, Builder(Builder), BuilderClass, toBuilder, mkBuilder, unBuilder, castToBuilder, gTypeBuilder, StyleContext(StyleContext), StyleContextClass, toStyleContext, mkStyleContext, unStyleContext, castToStyleContext, gTypeStyleContext, StyleProvider(StyleProvider), StyleProviderClass, toStyleProvider, mkStyleProvider, unStyleProvider, castToStyleProvider, gTypeStyleProvider, CssProvider(CssProvider), CssProviderClass, toCssProvider, mkCssProvider, unCssProvider, castToCssProvider, gTypeCssProvider, CellLayout(CellLayout), CellLayoutClass, toCellLayout, mkCellLayout, unCellLayout, castToCellLayout, gTypeCellLayout, TreeSortable(TreeSortable), TreeSortableClass, toTreeSortable, mkTreeSortable, unTreeSortable, castToTreeSortable, gTypeTreeSortable, Tooltip(Tooltip), TooltipClass, toTooltip, mkTooltip, unTooltip, castToTooltip, gTypeTooltip, StatusIcon(StatusIcon), StatusIconClass, toStatusIcon, mkStatusIcon, unStatusIcon, castToStatusIcon, gTypeStatusIcon, TreeSelection(TreeSelection), TreeSelectionClass, toTreeSelection, mkTreeSelection, unTreeSelection, castToTreeSelection, gTypeTreeSelection, TreeModel(TreeModel), TreeModelClass, toTreeModel, mkTreeModel, unTreeModel, castToTreeModel, gTypeTreeModel, TreeStore(TreeStore), TreeStoreClass, toTreeStore, mkTreeStore, unTreeStore, castToTreeStore, gTypeTreeStore, ListStore(ListStore), ListStoreClass, toListStore, mkListStore, unListStore, castToListStore, gTypeListStore, TreeModelSort(TreeModelSort), TreeModelSortClass, toTreeModelSort, mkTreeModelSort, unTreeModelSort, castToTreeModelSort, gTypeTreeModelSort, TreeModelFilter(TreeModelFilter), TreeModelFilterClass, toTreeModelFilter, mkTreeModelFilter, unTreeModelFilter, castToTreeModelFilter, gTypeTreeModelFilter, IconFactory(IconFactory), IconFactoryClass, toIconFactory, mkIconFactory, unIconFactory, castToIconFactory, gTypeIconFactory, IconTheme(IconTheme), IconThemeClass, toIconTheme, mkIconTheme, unIconTheme, castToIconTheme, gTypeIconTheme, SizeGroup(SizeGroup), SizeGroupClass, toSizeGroup, mkSizeGroup, unSizeGroup, castToSizeGroup, gTypeSizeGroup, Clipboard(Clipboard), ClipboardClass, toClipboard, mkClipboard, unClipboard, castToClipboard, gTypeClipboard, AccelGroup(AccelGroup), AccelGroupClass, toAccelGroup, mkAccelGroup, unAccelGroup, castToAccelGroup, gTypeAccelGroup, AccelMap(AccelMap), AccelMapClass, toAccelMap, mkAccelMap, unAccelMap, castToAccelMap, gTypeAccelMap, EntryCompletion(EntryCompletion), EntryCompletionClass, toEntryCompletion, mkEntryCompletion, unEntryCompletion, castToEntryCompletion, gTypeEntryCompletion, EntryBuffer(EntryBuffer), EntryBufferClass, toEntryBuffer, mkEntryBuffer, unEntryBuffer, castToEntryBuffer, gTypeEntryBuffer, Action(Action), ActionClass, toAction, mkAction, unAction, castToAction, gTypeAction, RecentAction(RecentAction), RecentActionClass, toRecentAction, mkRecentAction, unRecentAction, castToRecentAction, gTypeRecentAction, ToggleAction(ToggleAction), ToggleActionClass, toToggleAction, mkToggleAction, unToggleAction, castToToggleAction, gTypeToggleAction, RadioAction(RadioAction), RadioActionClass, toRadioAction, mkRadioAction, unRadioAction, castToRadioAction, gTypeRadioAction, ActionGroup(ActionGroup), ActionGroupClass, toActionGroup, mkActionGroup, unActionGroup, castToActionGroup, gTypeActionGroup, UIManager(UIManager), UIManagerClass, toUIManager, mkUIManager, unUIManager, castToUIManager, gTypeUIManager, WindowGroup(WindowGroup), WindowGroupClass, toWindowGroup, mkWindowGroup, unWindowGroup, castToWindowGroup, gTypeWindowGroup, CellEditable(CellEditable), CellEditableClass, toCellEditable, mkCellEditable, unCellEditable, castToCellEditable, gTypeCellEditable, Editable(Editable), EditableClass, toEditable, mkEditable, unEditable, castToEditable, gTypeEditable, FileChooser(FileChooser), FileChooserClass, toFileChooser, mkFileChooser, unFileChooser, castToFileChooser, gTypeFileChooser ) where import Foreign.ForeignPtr (ForeignPtr, castForeignPtr) #if __GLASGOW_HASKELL__ >= 707 import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr) #else import Foreign.ForeignPtr (unsafeForeignPtrToPtr) #endif import Foreign.C.Types (CULong(..), CUInt(..)) import System.Glib.GType (GType, typeInstanceIsA) {#import System.Glib.GObject#} import Graphics.UI.Gtk.General.Threading {# context lib="gtk" prefix="gtk" #} -- The usage of foreignPtrToPtr should be safe as the evaluation will only be -- forced if the object is used afterwards -- castTo :: (GObjectClass obj, GObjectClass obj') => GType -> String -> (obj -> obj') castTo gtype objTypeName obj = case toGObject obj of gobj@(GObject objFPtr) | typeInstanceIsA ((unsafeForeignPtrToPtr.castForeignPtr) objFPtr) gtype -> unsafeCastGObject gobj | otherwise -> error $ "Cannot cast object to " ++ objTypeName -- ****************************************************************** AtkObject {#pointer *AtkObject as AtkObject foreign newtype #} deriving (Eq,Ord) mkAtkObject = (AtkObject, objectUnrefFromMainloop) unAtkObject (AtkObject o) = o class GObjectClass o => AtkObjectClass o toAtkObject :: AtkObjectClass o => o -> AtkObject toAtkObject = unsafeCastGObject . toGObject instance AtkObjectClass AtkObject instance GObjectClass AtkObject where toGObject = GObject . castForeignPtr . unAtkObject unsafeCastGObject = AtkObject . castForeignPtr . unGObject castToAtkObject :: GObjectClass obj => obj -> AtkObject castToAtkObject = castTo gTypeAtkObject "AtkObject" gTypeAtkObject :: GType gTypeAtkObject = {# call fun unsafe atk_object_get_type #} -- ***************************************************************** Accessible {#pointer *GtkAccessible as Accessible foreign newtype #} deriving (Eq,Ord) mkAccessible = (Accessible, objectUnrefFromMainloop) unAccessible (Accessible o) = o class AtkObjectClass o => AccessibleClass o toAccessible :: AccessibleClass o => o -> Accessible toAccessible = unsafeCastGObject . toGObject instance AccessibleClass Accessible instance AtkObjectClass Accessible instance GObjectClass Accessible where toGObject = GObject . castForeignPtr . unAccessible unsafeCastGObject = Accessible . castForeignPtr . unGObject castToAccessible :: GObjectClass obj => obj -> Accessible castToAccessible = castTo gTypeAccessible "Accessible" gTypeAccessible :: GType gTypeAccessible = {# call fun unsafe gtk_accessible_get_type #} -- ********************************************************************* Keymap {#pointer *GdkKeymap as Keymap foreign newtype #} deriving (Eq,Ord) mkKeymap = (Keymap, objectUnrefFromMainloop) unKeymap (Keymap o) = o class GObjectClass o => KeymapClass o toKeymap :: KeymapClass o => o -> Keymap toKeymap = unsafeCastGObject . toGObject instance KeymapClass Keymap instance GObjectClass Keymap where toGObject = GObject . castForeignPtr . unKeymap unsafeCastGObject = Keymap . castForeignPtr . unGObject castToKeymap :: GObjectClass obj => obj -> Keymap castToKeymap = castTo gTypeKeymap "Keymap" gTypeKeymap :: GType gTypeKeymap = {# call fun unsafe gdk_keymap_get_type #} -- ************************************************************* DisplayManager {#pointer *GdkDisplayManager as DisplayManager foreign newtype #} deriving (Eq,Ord) mkDisplayManager = (DisplayManager, objectUnrefFromMainloop) unDisplayManager (DisplayManager o) = o class GObjectClass o => DisplayManagerClass o toDisplayManager :: DisplayManagerClass o => o -> DisplayManager toDisplayManager = unsafeCastGObject . toGObject instance DisplayManagerClass DisplayManager instance GObjectClass DisplayManager where toGObject = GObject . castForeignPtr . unDisplayManager unsafeCastGObject = DisplayManager . castForeignPtr . unGObject castToDisplayManager :: GObjectClass obj => obj -> DisplayManager castToDisplayManager = castTo gTypeDisplayManager "DisplayManager" gTypeDisplayManager :: GType gTypeDisplayManager = {# call fun unsafe gdk_display_manager_get_type #} -- *********************************************************** AppLaunchContext {#pointer *GdkAppLaunchContext as AppLaunchContext foreign newtype #} deriving (Eq,Ord) mkAppLaunchContext = (AppLaunchContext, objectUnrefFromMainloop) unAppLaunchContext (AppLaunchContext o) = o class GObjectClass o => AppLaunchContextClass o toAppLaunchContext :: AppLaunchContextClass o => o -> AppLaunchContext toAppLaunchContext = unsafeCastGObject . toGObject instance AppLaunchContextClass AppLaunchContext instance GObjectClass AppLaunchContext where toGObject = GObject . castForeignPtr . unAppLaunchContext unsafeCastGObject = AppLaunchContext . castForeignPtr . unGObject castToAppLaunchContext :: GObjectClass obj => obj -> AppLaunchContext castToAppLaunchContext = castTo gTypeAppLaunchContext "AppLaunchContext" gTypeAppLaunchContext :: GType gTypeAppLaunchContext = {# call fun unsafe gdk_app_launch_context_get_type #} -- ************************************************************** PrintSettings {#pointer *GtkPrintSettings as PrintSettings foreign newtype #} deriving (Eq,Ord) mkPrintSettings = (PrintSettings, objectUnrefFromMainloop) unPrintSettings (PrintSettings o) = o class GObjectClass o => PrintSettingsClass o toPrintSettings :: PrintSettingsClass o => o -> PrintSettings toPrintSettings = unsafeCastGObject . toGObject instance PrintSettingsClass PrintSettings instance GObjectClass PrintSettings where toGObject = GObject . castForeignPtr . unPrintSettings unsafeCastGObject = PrintSettings . castForeignPtr . unGObject castToPrintSettings :: GObjectClass obj => obj -> PrintSettings castToPrintSettings = castTo gTypePrintSettings "PrintSettings" gTypePrintSettings :: GType gTypePrintSettings = {# call fun unsafe gtk_print_settings_get_type #} -- ************************************************************* PrintOperation {#pointer *GtkPrintOperation as PrintOperation foreign newtype #} deriving (Eq,Ord) mkPrintOperation = (PrintOperation, objectUnrefFromMainloop) unPrintOperation (PrintOperation o) = o class GObjectClass o => PrintOperationClass o toPrintOperation :: PrintOperationClass o => o -> PrintOperation toPrintOperation = unsafeCastGObject . toGObject instance PrintOperationClass PrintOperation instance GObjectClass PrintOperation where toGObject = GObject . castForeignPtr . unPrintOperation unsafeCastGObject = PrintOperation . castForeignPtr . unGObject castToPrintOperation :: GObjectClass obj => obj -> PrintOperation castToPrintOperation = castTo gTypePrintOperation "PrintOperation" gTypePrintOperation :: GType gTypePrintOperation = {# call fun unsafe gtk_print_operation_get_type #} -- ****************************************************** PrintOperationPreview {#pointer *GtkPrintOperationPreview as PrintOperationPreview foreign newtype #} deriving (Eq,Ord) mkPrintOperationPreview = (PrintOperationPreview, objectUnrefFromMainloop) unPrintOperationPreview (PrintOperationPreview o) = o class GObjectClass o => PrintOperationPreviewClass o toPrintOperationPreview :: PrintOperationPreviewClass o => o -> PrintOperationPreview toPrintOperationPreview = unsafeCastGObject . toGObject instance PrintOperationPreviewClass PrintOperationPreview instance GObjectClass PrintOperationPreview where toGObject = GObject . castForeignPtr . unPrintOperationPreview unsafeCastGObject = PrintOperationPreview . castForeignPtr . unGObject castToPrintOperationPreview :: GObjectClass obj => obj -> PrintOperationPreview castToPrintOperationPreview = castTo gTypePrintOperationPreview "PrintOperationPreview" gTypePrintOperationPreview :: GType gTypePrintOperationPreview = {# call fun unsafe gtk_print_operation_preview_get_type #} -- ****************************************************************** PageSetup {#pointer *GtkPageSetup as PageSetup foreign newtype #} deriving (Eq,Ord) mkPageSetup = (PageSetup, objectUnrefFromMainloop) unPageSetup (PageSetup o) = o class GObjectClass o => PageSetupClass o toPageSetup :: PageSetupClass o => o -> PageSetup toPageSetup = unsafeCastGObject . toGObject instance PageSetupClass PageSetup instance GObjectClass PageSetup where toGObject = GObject . castForeignPtr . unPageSetup unsafeCastGObject = PageSetup . castForeignPtr . unGObject castToPageSetup :: GObjectClass obj => obj -> PageSetup castToPageSetup = castTo gTypePageSetup "PageSetup" gTypePageSetup :: GType gTypePageSetup = {# call fun unsafe gtk_page_setup_get_type #} -- *************************************************************** PrintContext {#pointer *GtkPrintContext as PrintContext foreign newtype #} deriving (Eq,Ord) mkPrintContext = (PrintContext, objectUnrefFromMainloop) unPrintContext (PrintContext o) = o class GObjectClass o => PrintContextClass o toPrintContext :: PrintContextClass o => o -> PrintContext toPrintContext = unsafeCastGObject . toGObject instance PrintContextClass PrintContext instance GObjectClass PrintContext where toGObject = GObject . castForeignPtr . unPrintContext unsafeCastGObject = PrintContext . castForeignPtr . unGObject castToPrintContext :: GObjectClass obj => obj -> PrintContext castToPrintContext = castTo gTypePrintContext "PrintContext" gTypePrintContext :: GType gTypePrintContext = {# call fun unsafe gtk_print_context_get_type #} -- ************************************************************** RecentChooser {#pointer *GtkRecentChooser as RecentChooser foreign newtype #} deriving (Eq,Ord) mkRecentChooser = (RecentChooser, objectUnrefFromMainloop) unRecentChooser (RecentChooser o) = o class GObjectClass o => RecentChooserClass o toRecentChooser :: RecentChooserClass o => o -> RecentChooser toRecentChooser = unsafeCastGObject . toGObject instance RecentChooserClass RecentChooser instance GObjectClass RecentChooser where toGObject = GObject . castForeignPtr . unRecentChooser unsafeCastGObject = RecentChooser . castForeignPtr . unGObject castToRecentChooser :: GObjectClass obj => obj -> RecentChooser castToRecentChooser = castTo gTypeRecentChooser "RecentChooser" gTypeRecentChooser :: GType gTypeRecentChooser = {# call fun unsafe gtk_recent_chooser_get_type #} -- ************************************************************** RecentManager {#pointer *GtkRecentManager as RecentManager foreign newtype #} deriving (Eq,Ord) mkRecentManager = (RecentManager, objectUnrefFromMainloop) unRecentManager (RecentManager o) = o class GObjectClass o => RecentManagerClass o toRecentManager :: RecentManagerClass o => o -> RecentManager toRecentManager = unsafeCastGObject . toGObject instance RecentManagerClass RecentManager instance GObjectClass RecentManager where toGObject = GObject . castForeignPtr . unRecentManager unsafeCastGObject = RecentManager . castForeignPtr . unGObject castToRecentManager :: GObjectClass obj => obj -> RecentManager castToRecentManager = castTo gTypeRecentManager "RecentManager" gTypeRecentManager :: GType gTypeRecentManager = {# call fun unsafe gtk_recent_manager_get_type #} -- ***************************************************************** DrawWindow {#pointer *GdkWindow as DrawWindow foreign newtype #} deriving (Eq,Ord) mkDrawWindow = (DrawWindow, objectUnrefFromMainloop) unDrawWindow (DrawWindow o) = o class GObjectClass o => DrawWindowClass o toDrawWindow :: DrawWindowClass o => o -> DrawWindow toDrawWindow = unsafeCastGObject . toGObject instance DrawWindowClass DrawWindow instance GObjectClass DrawWindow where toGObject = GObject . castForeignPtr . unDrawWindow unsafeCastGObject = DrawWindow . castForeignPtr . unGObject castToDrawWindow :: GObjectClass obj => obj -> DrawWindow castToDrawWindow = castTo gTypeDrawWindow "DrawWindow" gTypeDrawWindow :: GType gTypeDrawWindow = {# call fun unsafe gdk_window_get_type #} -- ********************************************************************* Screen {#pointer *GdkScreen as Screen foreign newtype #} deriving (Eq,Ord) mkScreen = (Screen, objectUnrefFromMainloop) unScreen (Screen o) = o class GObjectClass o => ScreenClass o toScreen :: ScreenClass o => o -> Screen toScreen = unsafeCastGObject . toGObject instance ScreenClass Screen instance GObjectClass Screen where toGObject = GObject . castForeignPtr . unScreen unsafeCastGObject = Screen . castForeignPtr . unGObject castToScreen :: GObjectClass obj => obj -> Screen castToScreen = castTo gTypeScreen "Screen" gTypeScreen :: GType gTypeScreen = {# call fun unsafe gdk_screen_get_type #} -- ******************************************************************** Display {#pointer *GdkDisplay as Display foreign newtype #} deriving (Eq,Ord) mkDisplay = (Display, objectUnrefFromMainloop) unDisplay (Display o) = o class GObjectClass o => DisplayClass o toDisplay :: DisplayClass o => o -> Display toDisplay = unsafeCastGObject . toGObject instance DisplayClass Display instance GObjectClass Display where toGObject = GObject . castForeignPtr . unDisplay unsafeCastGObject = Display . castForeignPtr . unGObject castToDisplay :: GObjectClass obj => obj -> Display castToDisplay = castTo gTypeDisplay "Display" gTypeDisplay :: GType gTypeDisplay = {# call fun unsafe gdk_display_get_type #} -- ********************************************************************* Visual {#pointer *GdkVisual as Visual foreign newtype #} deriving (Eq,Ord) mkVisual = (Visual, objectUnrefFromMainloop) unVisual (Visual o) = o class GObjectClass o => VisualClass o toVisual :: VisualClass o => o -> Visual toVisual = unsafeCastGObject . toGObject instance VisualClass Visual instance GObjectClass Visual where toGObject = GObject . castForeignPtr . unVisual unsafeCastGObject = Visual . castForeignPtr . unGObject castToVisual :: GObjectClass obj => obj -> Visual castToVisual = castTo gTypeVisual "Visual" gTypeVisual :: GType gTypeVisual = {# call fun unsafe gdk_visual_get_type #} -- ********************************************************************* Device {#pointer *GdkDevice as Device foreign newtype #} deriving (Eq,Ord) mkDevice = (Device, objectUnrefFromMainloop) unDevice (Device o) = o class GObjectClass o => DeviceClass o toDevice :: DeviceClass o => o -> Device toDevice = unsafeCastGObject . toGObject instance DeviceClass Device instance GObjectClass Device where toGObject = GObject . castForeignPtr . unDevice unsafeCastGObject = Device . castForeignPtr . unGObject castToDevice :: GObjectClass obj => obj -> Device castToDevice = castTo gTypeDevice "Device" gTypeDevice :: GType gTypeDevice = {# call fun unsafe gdk_device_get_type #} -- ******************************************************************* Settings {#pointer *GtkSettings as Settings foreign newtype #} deriving (Eq,Ord) mkSettings = (Settings, objectUnrefFromMainloop) unSettings (Settings o) = o class GObjectClass o => SettingsClass o toSettings :: SettingsClass o => o -> Settings toSettings = unsafeCastGObject . toGObject instance SettingsClass Settings instance GObjectClass Settings where toGObject = GObject . castForeignPtr . unSettings unsafeCastGObject = Settings . castForeignPtr . unGObject castToSettings :: GObjectClass obj => obj -> Settings castToSettings = castTo gTypeSettings "Settings" gTypeSettings :: GType gTypeSettings = {# call fun unsafe gtk_settings_get_type #} -- ***************************************************************** TextBuffer {#pointer *GtkTextBuffer as TextBuffer foreign newtype #} deriving (Eq,Ord) mkTextBuffer = (TextBuffer, objectUnrefFromMainloop) unTextBuffer (TextBuffer o) = o class GObjectClass o => TextBufferClass o toTextBuffer :: TextBufferClass o => o -> TextBuffer toTextBuffer = unsafeCastGObject . toGObject instance TextBufferClass TextBuffer instance GObjectClass TextBuffer where toGObject = GObject . castForeignPtr . unTextBuffer unsafeCastGObject = TextBuffer . castForeignPtr . unGObject castToTextBuffer :: GObjectClass obj => obj -> TextBuffer castToTextBuffer = castTo gTypeTextBuffer "TextBuffer" gTypeTextBuffer :: GType gTypeTextBuffer = {# call fun unsafe gtk_text_buffer_get_type #} -- ******************************************************************** TextTag {#pointer *GtkTextTag as TextTag foreign newtype #} deriving (Eq,Ord) mkTextTag = (TextTag, objectUnrefFromMainloop) unTextTag (TextTag o) = o class GObjectClass o => TextTagClass o toTextTag :: TextTagClass o => o -> TextTag toTextTag = unsafeCastGObject . toGObject instance TextTagClass TextTag instance GObjectClass TextTag where toGObject = GObject . castForeignPtr . unTextTag unsafeCastGObject = TextTag . castForeignPtr . unGObject castToTextTag :: GObjectClass obj => obj -> TextTag castToTextTag = castTo gTypeTextTag "TextTag" gTypeTextTag :: GType gTypeTextTag = {# call fun unsafe gtk_text_tag_get_type #} -- *************************************************************** TextTagTable {#pointer *GtkTextTagTable as TextTagTable foreign newtype #} deriving (Eq,Ord) mkTextTagTable = (TextTagTable, objectUnrefFromMainloop) unTextTagTable (TextTagTable o) = o class GObjectClass o => TextTagTableClass o toTextTagTable :: TextTagTableClass o => o -> TextTagTable toTextTagTable = unsafeCastGObject . toGObject instance TextTagTableClass TextTagTable instance GObjectClass TextTagTable where toGObject = GObject . castForeignPtr . unTextTagTable unsafeCastGObject = TextTagTable . castForeignPtr . unGObject castToTextTagTable :: GObjectClass obj => obj -> TextTagTable castToTextTagTable = castTo gTypeTextTagTable "TextTagTable" gTypeTextTagTable :: GType gTypeTextTagTable = {# call fun unsafe gtk_text_tag_table_get_type #} -- ********************************************************************** Style {#pointer *GtkStyle as Style foreign newtype #} deriving (Eq,Ord) mkStyle = (Style, objectUnrefFromMainloop) unStyle (Style o) = o class GObjectClass o => StyleClass o toStyle :: StyleClass o => o -> Style toStyle = unsafeCastGObject . toGObject instance StyleClass Style instance GObjectClass Style where toGObject = GObject . castForeignPtr . unStyle unsafeCastGObject = Style . castForeignPtr . unGObject castToStyle :: GObjectClass obj => obj -> Style castToStyle = castTo gTypeStyle "Style" gTypeStyle :: GType gTypeStyle = {# call fun unsafe gtk_style_get_type #} -- ******************************************************************** RcStyle {#pointer *GtkRcStyle as RcStyle foreign newtype #} deriving (Eq,Ord) mkRcStyle = (RcStyle, objectUnrefFromMainloop) unRcStyle (RcStyle o) = o class GObjectClass o => RcStyleClass o toRcStyle :: RcStyleClass o => o -> RcStyle toRcStyle = unsafeCastGObject . toGObject instance RcStyleClass RcStyle instance GObjectClass RcStyle where toGObject = GObject . castForeignPtr . unRcStyle unsafeCastGObject = RcStyle . castForeignPtr . unGObject castToRcStyle :: GObjectClass obj => obj -> RcStyle castToRcStyle = castTo gTypeRcStyle "RcStyle" gTypeRcStyle :: GType gTypeRcStyle = {# call fun unsafe gtk_rc_style_get_type #} -- **************************************************************** DragContext {#pointer *GdkDragContext as DragContext foreign newtype #} deriving (Eq,Ord) mkDragContext = (DragContext, objectUnrefFromMainloop) unDragContext (DragContext o) = o class GObjectClass o => DragContextClass o toDragContext :: DragContextClass o => o -> DragContext toDragContext = unsafeCastGObject . toGObject instance DragContextClass DragContext instance GObjectClass DragContext where toGObject = GObject . castForeignPtr . unDragContext unsafeCastGObject = DragContext . castForeignPtr . unGObject castToDragContext :: GObjectClass obj => obj -> DragContext castToDragContext = castTo gTypeDragContext "DragContext" gTypeDragContext :: GType gTypeDragContext = {# call fun unsafe gdk_drag_context_get_type #} -- ********************************************************************* Pixbuf {#pointer *GdkPixbuf as Pixbuf foreign newtype #} deriving (Eq,Ord) mkPixbuf = (Pixbuf, objectUnref) unPixbuf (Pixbuf o) = o class GObjectClass o => PixbufClass o toPixbuf :: PixbufClass o => o -> Pixbuf toPixbuf = unsafeCastGObject . toGObject instance PixbufClass Pixbuf instance GObjectClass Pixbuf where toGObject = GObject . castForeignPtr . unPixbuf unsafeCastGObject = Pixbuf . castForeignPtr . unGObject castToPixbuf :: GObjectClass obj => obj -> Pixbuf castToPixbuf = castTo gTypePixbuf "Pixbuf" gTypePixbuf :: GType gTypePixbuf = {# call fun unsafe gdk_pixbuf_get_type #} -- ************************************************************ PixbufAnimation {#pointer *GdkPixbufAnimation as PixbufAnimation foreign newtype #} deriving (Eq,Ord) mkPixbufAnimation = (PixbufAnimation, objectUnref) unPixbufAnimation (PixbufAnimation o) = o class GObjectClass o => PixbufAnimationClass o toPixbufAnimation :: PixbufAnimationClass o => o -> PixbufAnimation toPixbufAnimation = unsafeCastGObject . toGObject instance PixbufAnimationClass PixbufAnimation instance GObjectClass PixbufAnimation where toGObject = GObject . castForeignPtr . unPixbufAnimation unsafeCastGObject = PixbufAnimation . castForeignPtr . unGObject castToPixbufAnimation :: GObjectClass obj => obj -> PixbufAnimation castToPixbufAnimation = castTo gTypePixbufAnimation "PixbufAnimation" gTypePixbufAnimation :: GType gTypePixbufAnimation = {# call fun unsafe gdk_pixbuf_animation_get_type #} -- *********************************************************** PixbufSimpleAnim {#pointer *GdkPixbufSimpleAnim as PixbufSimpleAnim foreign newtype #} deriving (Eq,Ord) mkPixbufSimpleAnim = (PixbufSimpleAnim, objectUnref) unPixbufSimpleAnim (PixbufSimpleAnim o) = o class PixbufAnimationClass o => PixbufSimpleAnimClass o toPixbufSimpleAnim :: PixbufSimpleAnimClass o => o -> PixbufSimpleAnim toPixbufSimpleAnim = unsafeCastGObject . toGObject instance PixbufSimpleAnimClass PixbufSimpleAnim instance PixbufAnimationClass PixbufSimpleAnim instance GObjectClass PixbufSimpleAnim where toGObject = GObject . castForeignPtr . unPixbufSimpleAnim unsafeCastGObject = PixbufSimpleAnim . castForeignPtr . unGObject castToPixbufSimpleAnim :: GObjectClass obj => obj -> PixbufSimpleAnim castToPixbufSimpleAnim = castTo gTypePixbufSimpleAnim "PixbufSimpleAnim" gTypePixbufSimpleAnim :: GType gTypePixbufSimpleAnim = {# call fun unsafe gdk_pixbuf_simple_anim_get_type #} -- ******************************************************** PixbufAnimationIter {#pointer *GdkPixbufAnimationIter as PixbufAnimationIter foreign newtype #} deriving (Eq,Ord) mkPixbufAnimationIter = (PixbufAnimationIter, objectUnref) unPixbufAnimationIter (PixbufAnimationIter o) = o class GObjectClass o => PixbufAnimationIterClass o toPixbufAnimationIter :: PixbufAnimationIterClass o => o -> PixbufAnimationIter toPixbufAnimationIter = unsafeCastGObject . toGObject instance PixbufAnimationIterClass PixbufAnimationIter instance GObjectClass PixbufAnimationIter where toGObject = GObject . castForeignPtr . unPixbufAnimationIter unsafeCastGObject = PixbufAnimationIter . castForeignPtr . unGObject castToPixbufAnimationIter :: GObjectClass obj => obj -> PixbufAnimationIter castToPixbufAnimationIter = castTo gTypePixbufAnimationIter "PixbufAnimationIter" gTypePixbufAnimationIter :: GType gTypePixbufAnimationIter = {# call fun unsafe gdk_pixbuf_animation_iter_get_type #} -- ************************************************************ TextChildAnchor {#pointer *GtkTextChildAnchor as TextChildAnchor foreign newtype #} deriving (Eq,Ord) mkTextChildAnchor = (TextChildAnchor, objectUnrefFromMainloop) unTextChildAnchor (TextChildAnchor o) = o class GObjectClass o => TextChildAnchorClass o toTextChildAnchor :: TextChildAnchorClass o => o -> TextChildAnchor toTextChildAnchor = unsafeCastGObject . toGObject instance TextChildAnchorClass TextChildAnchor instance GObjectClass TextChildAnchor where toGObject = GObject . castForeignPtr . unTextChildAnchor unsafeCastGObject = TextChildAnchor . castForeignPtr . unGObject castToTextChildAnchor :: GObjectClass obj => obj -> TextChildAnchor castToTextChildAnchor = castTo gTypeTextChildAnchor "TextChildAnchor" gTypeTextChildAnchor :: GType gTypeTextChildAnchor = {# call fun unsafe gtk_text_child_anchor_get_type #} -- ******************************************************************* TextMark {#pointer *GtkTextMark as TextMark foreign newtype #} deriving (Eq,Ord) mkTextMark = (TextMark, objectUnrefFromMainloop) unTextMark (TextMark o) = o class GObjectClass o => TextMarkClass o toTextMark :: TextMarkClass o => o -> TextMark toTextMark = unsafeCastGObject . toGObject instance TextMarkClass TextMark instance GObjectClass TextMark where toGObject = GObject . castForeignPtr . unTextMark unsafeCastGObject = TextMark . castForeignPtr . unGObject castToTextMark :: GObjectClass obj => obj -> TextMark castToTextMark = castTo gTypeTextMark "TextMark" gTypeTextMark :: GType gTypeTextMark = {# call fun unsafe gtk_text_mark_get_type #} -- *************************************************************** RecentFilter {#pointer *GtkRecentFilter as RecentFilter foreign newtype #} deriving (Eq,Ord) mkRecentFilter = (RecentFilter, objectUnrefFromMainloop) unRecentFilter (RecentFilter o) = o class GObjectClass o => RecentFilterClass o toRecentFilter :: RecentFilterClass o => o -> RecentFilter toRecentFilter = unsafeCastGObject . toGObject instance RecentFilterClass RecentFilter instance GObjectClass RecentFilter where toGObject = GObject . castForeignPtr . unRecentFilter unsafeCastGObject = RecentFilter . castForeignPtr . unGObject castToRecentFilter :: GObjectClass obj => obj -> RecentFilter castToRecentFilter = castTo gTypeRecentFilter "RecentFilter" gTypeRecentFilter :: GType gTypeRecentFilter = {# call fun unsafe gtk_recent_filter_get_type #} -- ********************************************************************* Widget {#pointer *GtkWidget as Widget foreign newtype #} deriving (Eq,Ord) mkWidget = (Widget, objectUnrefFromMainloop) unWidget (Widget o) = o class GObjectClass o => WidgetClass o toWidget :: WidgetClass o => o -> Widget toWidget = unsafeCastGObject . toGObject instance WidgetClass Widget instance GObjectClass Widget where toGObject = GObject . castForeignPtr . unWidget unsafeCastGObject = Widget . castForeignPtr . unGObject castToWidget :: GObjectClass obj => obj -> Widget castToWidget = castTo gTypeWidget "Widget" gTypeWidget :: GType gTypeWidget = {# call fun unsafe gtk_widget_get_type #} -- ************************************************************************ HSV {#pointer *GtkHSV as HSV foreign newtype #} deriving (Eq,Ord) mkHSV = (HSV, objectUnrefFromMainloop) unHSV (HSV o) = o class WidgetClass o => HSVClass o toHSV :: HSVClass o => o -> HSV toHSV = unsafeCastGObject . toGObject instance HSVClass HSV instance WidgetClass HSV instance GObjectClass HSV where toGObject = GObject . castForeignPtr . unHSV unsafeCastGObject = HSV . castForeignPtr . unGObject castToHSV :: GObjectClass obj => obj -> HSV castToHSV = castTo gTypeHSV "HSV" gTypeHSV :: GType gTypeHSV = {# call fun unsafe gtk_hsv_get_type #} -- *********************************************************************** Misc {#pointer *GtkMisc as Misc foreign newtype #} deriving (Eq,Ord) mkMisc = (Misc, objectUnrefFromMainloop) unMisc (Misc o) = o class WidgetClass o => MiscClass o toMisc :: MiscClass o => o -> Misc toMisc = unsafeCastGObject . toGObject instance MiscClass Misc instance WidgetClass Misc instance GObjectClass Misc where toGObject = GObject . castForeignPtr . unMisc unsafeCastGObject = Misc . castForeignPtr . unGObject castToMisc :: GObjectClass obj => obj -> Misc castToMisc = castTo gTypeMisc "Misc" gTypeMisc :: GType gTypeMisc = {# call fun unsafe gtk_misc_get_type #} -- ********************************************************************** Label {#pointer *GtkLabel as Label foreign newtype #} deriving (Eq,Ord) mkLabel = (Label, objectUnrefFromMainloop) unLabel (Label o) = o class MiscClass o => LabelClass o toLabel :: LabelClass o => o -> Label toLabel = unsafeCastGObject . toGObject instance LabelClass Label instance MiscClass Label instance WidgetClass Label instance GObjectClass Label where toGObject = GObject . castForeignPtr . unLabel unsafeCastGObject = Label . castForeignPtr . unGObject castToLabel :: GObjectClass obj => obj -> Label castToLabel = castTo gTypeLabel "Label" gTypeLabel :: GType gTypeLabel = {# call fun unsafe gtk_label_get_type #} -- ***************************************************************** AccelLabel {#pointer *GtkAccelLabel as AccelLabel foreign newtype #} deriving (Eq,Ord) mkAccelLabel = (AccelLabel, objectUnrefFromMainloop) unAccelLabel (AccelLabel o) = o class LabelClass o => AccelLabelClass o toAccelLabel :: AccelLabelClass o => o -> AccelLabel toAccelLabel = unsafeCastGObject . toGObject instance AccelLabelClass AccelLabel instance LabelClass AccelLabel instance MiscClass AccelLabel instance WidgetClass AccelLabel instance GObjectClass AccelLabel where toGObject = GObject . castForeignPtr . unAccelLabel unsafeCastGObject = AccelLabel . castForeignPtr . unGObject castToAccelLabel :: GObjectClass obj => obj -> AccelLabel castToAccelLabel = castTo gTypeAccelLabel "AccelLabel" gTypeAccelLabel :: GType gTypeAccelLabel = {# call fun unsafe gtk_accel_label_get_type #} -- ********************************************************************** Arrow {#pointer *GtkArrow as Arrow foreign newtype #} deriving (Eq,Ord) mkArrow = (Arrow, objectUnrefFromMainloop) unArrow (Arrow o) = o class MiscClass o => ArrowClass o toArrow :: ArrowClass o => o -> Arrow toArrow = unsafeCastGObject . toGObject instance ArrowClass Arrow instance MiscClass Arrow instance WidgetClass Arrow instance GObjectClass Arrow where toGObject = GObject . castForeignPtr . unArrow unsafeCastGObject = Arrow . castForeignPtr . unGObject castToArrow :: GObjectClass obj => obj -> Arrow castToArrow = castTo gTypeArrow "Arrow" gTypeArrow :: GType gTypeArrow = {# call fun unsafe gtk_arrow_get_type #} -- ********************************************************************** Image {#pointer *GtkImage as Image foreign newtype #} deriving (Eq,Ord) mkImage = (Image, objectUnrefFromMainloop) unImage (Image o) = o class MiscClass o => ImageClass o toImage :: ImageClass o => o -> Image toImage = unsafeCastGObject . toGObject instance ImageClass Image instance MiscClass Image instance WidgetClass Image instance GObjectClass Image where toGObject = GObject . castForeignPtr . unImage unsafeCastGObject = Image . castForeignPtr . unGObject castToImage :: GObjectClass obj => obj -> Image castToImage = castTo gTypeImage "Image" gTypeImage :: GType gTypeImage = {# call fun unsafe gtk_image_get_type #} -- ****************************************************************** Container {#pointer *GtkContainer as Container foreign newtype #} deriving (Eq,Ord) mkContainer = (Container, objectUnrefFromMainloop) unContainer (Container o) = o class WidgetClass o => ContainerClass o toContainer :: ContainerClass o => o -> Container toContainer = unsafeCastGObject . toGObject instance ContainerClass Container instance WidgetClass Container instance GObjectClass Container where toGObject = GObject . castForeignPtr . unContainer unsafeCastGObject = Container . castForeignPtr . unGObject castToContainer :: GObjectClass obj => obj -> Container castToContainer = castTo gTypeContainer "Container" gTypeContainer :: GType gTypeContainer = {# call fun unsafe gtk_container_get_type #} -- **************************************************************** ToolPalette {#pointer *GtkToolPalette as ToolPalette foreign newtype #} deriving (Eq,Ord) mkToolPalette = (ToolPalette, objectUnrefFromMainloop) unToolPalette (ToolPalette o) = o class ContainerClass o => ToolPaletteClass o toToolPalette :: ToolPaletteClass o => o -> ToolPalette toToolPalette = unsafeCastGObject . toGObject instance ToolPaletteClass ToolPalette instance ContainerClass ToolPalette instance WidgetClass ToolPalette instance GObjectClass ToolPalette where toGObject = GObject . castForeignPtr . unToolPalette unsafeCastGObject = ToolPalette . castForeignPtr . unGObject castToToolPalette :: GObjectClass obj => obj -> ToolPalette castToToolPalette = castTo gTypeToolPalette "ToolPalette" gTypeToolPalette :: GType gTypeToolPalette = {# call fun unsafe gtk_tool_palette_get_type #} -- ************************************************************** ToolItemGroup {#pointer *GtkToolItemGroup as ToolItemGroup foreign newtype #} deriving (Eq,Ord) mkToolItemGroup = (ToolItemGroup, objectUnrefFromMainloop) unToolItemGroup (ToolItemGroup o) = o class ContainerClass o => ToolItemGroupClass o toToolItemGroup :: ToolItemGroupClass o => o -> ToolItemGroup toToolItemGroup = unsafeCastGObject . toGObject instance ToolItemGroupClass ToolItemGroup instance ContainerClass ToolItemGroup instance WidgetClass ToolItemGroup instance GObjectClass ToolItemGroup where toGObject = GObject . castForeignPtr . unToolItemGroup unsafeCastGObject = ToolItemGroup . castForeignPtr . unGObject castToToolItemGroup :: GObjectClass obj => obj -> ToolItemGroup castToToolItemGroup = castTo gTypeToolItemGroup "ToolItemGroup" gTypeToolItemGroup :: GType gTypeToolItemGroup = {# call fun unsafe gtk_tool_item_group_get_type #} -- ************************************************************************ Bin {#pointer *GtkBin as Bin foreign newtype #} deriving (Eq,Ord) mkBin = (Bin, objectUnrefFromMainloop) unBin (Bin o) = o class ContainerClass o => BinClass o toBin :: BinClass o => o -> Bin toBin = unsafeCastGObject . toGObject instance BinClass Bin instance ContainerClass Bin instance WidgetClass Bin instance GObjectClass Bin where toGObject = GObject . castForeignPtr . unBin unsafeCastGObject = Bin . castForeignPtr . unGObject castToBin :: GObjectClass obj => obj -> Bin castToBin = castTo gTypeBin "Bin" gTypeBin :: GType gTypeBin = {# call fun unsafe gtk_bin_get_type #} -- ****************************************************************** Alignment {#pointer *GtkAlignment as Alignment foreign newtype #} deriving (Eq,Ord) mkAlignment = (Alignment, objectUnrefFromMainloop) unAlignment (Alignment o) = o class BinClass o => AlignmentClass o toAlignment :: AlignmentClass o => o -> Alignment toAlignment = unsafeCastGObject . toGObject instance AlignmentClass Alignment instance BinClass Alignment instance ContainerClass Alignment instance WidgetClass Alignment instance GObjectClass Alignment where toGObject = GObject . castForeignPtr . unAlignment unsafeCastGObject = Alignment . castForeignPtr . unGObject castToAlignment :: GObjectClass obj => obj -> Alignment castToAlignment = castTo gTypeAlignment "Alignment" gTypeAlignment :: GType gTypeAlignment = {# call fun unsafe gtk_alignment_get_type #} -- ********************************************************************** Frame {#pointer *GtkFrame as Frame foreign newtype #} deriving (Eq,Ord) mkFrame = (Frame, objectUnrefFromMainloop) unFrame (Frame o) = o class BinClass o => FrameClass o toFrame :: FrameClass o => o -> Frame toFrame = unsafeCastGObject . toGObject instance FrameClass Frame instance BinClass Frame instance ContainerClass Frame instance WidgetClass Frame instance GObjectClass Frame where toGObject = GObject . castForeignPtr . unFrame unsafeCastGObject = Frame . castForeignPtr . unGObject castToFrame :: GObjectClass obj => obj -> Frame castToFrame = castTo gTypeFrame "Frame" gTypeFrame :: GType gTypeFrame = {# call fun unsafe gtk_frame_get_type #} -- **************************************************************** AspectFrame {#pointer *GtkAspectFrame as AspectFrame foreign newtype #} deriving (Eq,Ord) mkAspectFrame = (AspectFrame, objectUnrefFromMainloop) unAspectFrame (AspectFrame o) = o class FrameClass o => AspectFrameClass o toAspectFrame :: AspectFrameClass o => o -> AspectFrame toAspectFrame = unsafeCastGObject . toGObject instance AspectFrameClass AspectFrame instance FrameClass AspectFrame instance BinClass AspectFrame instance ContainerClass AspectFrame instance WidgetClass AspectFrame instance GObjectClass AspectFrame where toGObject = GObject . castForeignPtr . unAspectFrame unsafeCastGObject = AspectFrame . castForeignPtr . unGObject castToAspectFrame :: GObjectClass obj => obj -> AspectFrame castToAspectFrame = castTo gTypeAspectFrame "AspectFrame" gTypeAspectFrame :: GType gTypeAspectFrame = {# call fun unsafe gtk_aspect_frame_get_type #} -- ********************************************************************* Button {#pointer *GtkButton as Button foreign newtype #} deriving (Eq,Ord) mkButton = (Button, objectUnrefFromMainloop) unButton (Button o) = o class BinClass o => ButtonClass o toButton :: ButtonClass o => o -> Button toButton = unsafeCastGObject . toGObject instance ButtonClass Button instance BinClass Button instance ContainerClass Button instance WidgetClass Button instance GObjectClass Button where toGObject = GObject . castForeignPtr . unButton unsafeCastGObject = Button . castForeignPtr . unGObject castToButton :: GObjectClass obj => obj -> Button castToButton = castTo gTypeButton "Button" gTypeButton :: GType gTypeButton = {# call fun unsafe gtk_button_get_type #} -- **************************************************************** ScaleButton {#pointer *GtkScaleButton as ScaleButton foreign newtype #} deriving (Eq,Ord) mkScaleButton = (ScaleButton, objectUnrefFromMainloop) unScaleButton (ScaleButton o) = o class ButtonClass o => ScaleButtonClass o toScaleButton :: ScaleButtonClass o => o -> ScaleButton toScaleButton = unsafeCastGObject . toGObject instance ScaleButtonClass ScaleButton instance ButtonClass ScaleButton instance BinClass ScaleButton instance ContainerClass ScaleButton instance WidgetClass ScaleButton instance GObjectClass ScaleButton where toGObject = GObject . castForeignPtr . unScaleButton unsafeCastGObject = ScaleButton . castForeignPtr . unGObject castToScaleButton :: GObjectClass obj => obj -> ScaleButton castToScaleButton = castTo gTypeScaleButton "ScaleButton" gTypeScaleButton :: GType gTypeScaleButton = {# call fun unsafe gtk_scale_button_get_type #} -- *************************************************************** VolumeButton {#pointer *GtkVolumeButton as VolumeButton foreign newtype #} deriving (Eq,Ord) mkVolumeButton = (VolumeButton, objectUnrefFromMainloop) unVolumeButton (VolumeButton o) = o class ScaleButtonClass o => VolumeButtonClass o toVolumeButton :: VolumeButtonClass o => o -> VolumeButton toVolumeButton = unsafeCastGObject . toGObject instance VolumeButtonClass VolumeButton instance ScaleButtonClass VolumeButton instance ButtonClass VolumeButton instance BinClass VolumeButton instance ContainerClass VolumeButton instance WidgetClass VolumeButton instance GObjectClass VolumeButton where toGObject = GObject . castForeignPtr . unVolumeButton unsafeCastGObject = VolumeButton . castForeignPtr . unGObject castToVolumeButton :: GObjectClass obj => obj -> VolumeButton castToVolumeButton = castTo gTypeVolumeButton "VolumeButton" gTypeVolumeButton :: GType gTypeVolumeButton = {# call fun unsafe gtk_volume_button_get_type #} -- ***************************************************************** LinkButton {#pointer *GtkLinkButton as LinkButton foreign newtype #} deriving (Eq,Ord) mkLinkButton = (LinkButton, objectUnrefFromMainloop) unLinkButton (LinkButton o) = o class ButtonClass o => LinkButtonClass o toLinkButton :: LinkButtonClass o => o -> LinkButton toLinkButton = unsafeCastGObject . toGObject instance LinkButtonClass LinkButton instance ButtonClass LinkButton instance BinClass LinkButton instance ContainerClass LinkButton instance WidgetClass LinkButton instance GObjectClass LinkButton where toGObject = GObject . castForeignPtr . unLinkButton unsafeCastGObject = LinkButton . castForeignPtr . unGObject castToLinkButton :: GObjectClass obj => obj -> LinkButton castToLinkButton = castTo gTypeLinkButton "LinkButton" gTypeLinkButton :: GType gTypeLinkButton = {# call fun unsafe gtk_link_button_get_type #} -- *************************************************************** ToggleButton {#pointer *GtkToggleButton as ToggleButton foreign newtype #} deriving (Eq,Ord) mkToggleButton = (ToggleButton, objectUnrefFromMainloop) unToggleButton (ToggleButton o) = o class ButtonClass o => ToggleButtonClass o toToggleButton :: ToggleButtonClass o => o -> ToggleButton toToggleButton = unsafeCastGObject . toGObject instance ToggleButtonClass ToggleButton instance ButtonClass ToggleButton instance BinClass ToggleButton instance ContainerClass ToggleButton instance WidgetClass ToggleButton instance GObjectClass ToggleButton where toGObject = GObject . castForeignPtr . unToggleButton unsafeCastGObject = ToggleButton . castForeignPtr . unGObject castToToggleButton :: GObjectClass obj => obj -> ToggleButton castToToggleButton = castTo gTypeToggleButton "ToggleButton" gTypeToggleButton :: GType gTypeToggleButton = {# call fun unsafe gtk_toggle_button_get_type #} -- **************************************************************** CheckButton {#pointer *GtkCheckButton as CheckButton foreign newtype #} deriving (Eq,Ord) mkCheckButton = (CheckButton, objectUnrefFromMainloop) unCheckButton (CheckButton o) = o class ToggleButtonClass o => CheckButtonClass o toCheckButton :: CheckButtonClass o => o -> CheckButton toCheckButton = unsafeCastGObject . toGObject instance CheckButtonClass CheckButton instance ToggleButtonClass CheckButton instance ButtonClass CheckButton instance BinClass CheckButton instance ContainerClass CheckButton instance WidgetClass CheckButton instance GObjectClass CheckButton where toGObject = GObject . castForeignPtr . unCheckButton unsafeCastGObject = CheckButton . castForeignPtr . unGObject castToCheckButton :: GObjectClass obj => obj -> CheckButton castToCheckButton = castTo gTypeCheckButton "CheckButton" gTypeCheckButton :: GType gTypeCheckButton = {# call fun unsafe gtk_check_button_get_type #} -- **************************************************************** RadioButton {#pointer *GtkRadioButton as RadioButton foreign newtype #} deriving (Eq,Ord) mkRadioButton = (RadioButton, objectUnrefFromMainloop) unRadioButton (RadioButton o) = o class CheckButtonClass o => RadioButtonClass o toRadioButton :: RadioButtonClass o => o -> RadioButton toRadioButton = unsafeCastGObject . toGObject instance RadioButtonClass RadioButton instance CheckButtonClass RadioButton instance ToggleButtonClass RadioButton instance ButtonClass RadioButton instance BinClass RadioButton instance ContainerClass RadioButton instance WidgetClass RadioButton instance GObjectClass RadioButton where toGObject = GObject . castForeignPtr . unRadioButton unsafeCastGObject = RadioButton . castForeignPtr . unGObject castToRadioButton :: GObjectClass obj => obj -> RadioButton castToRadioButton = castTo gTypeRadioButton "RadioButton" gTypeRadioButton :: GType gTypeRadioButton = {# call fun unsafe gtk_radio_button_get_type #} -- **************************************************************** ColorButton {#pointer *GtkColorButton as ColorButton foreign newtype #} deriving (Eq,Ord) mkColorButton = (ColorButton, objectUnrefFromMainloop) unColorButton (ColorButton o) = o class ButtonClass o => ColorButtonClass o toColorButton :: ColorButtonClass o => o -> ColorButton toColorButton = unsafeCastGObject . toGObject instance ColorButtonClass ColorButton instance ButtonClass ColorButton instance BinClass ColorButton instance ContainerClass ColorButton instance WidgetClass ColorButton instance GObjectClass ColorButton where toGObject = GObject . castForeignPtr . unColorButton unsafeCastGObject = ColorButton . castForeignPtr . unGObject castToColorButton :: GObjectClass obj => obj -> ColorButton castToColorButton = castTo gTypeColorButton "ColorButton" gTypeColorButton :: GType gTypeColorButton = {# call fun unsafe gtk_color_button_get_type #} -- ***************************************************************** FontButton {#pointer *GtkFontButton as FontButton foreign newtype #} deriving (Eq,Ord) mkFontButton = (FontButton, objectUnrefFromMainloop) unFontButton (FontButton o) = o class ButtonClass o => FontButtonClass o toFontButton :: FontButtonClass o => o -> FontButton toFontButton = unsafeCastGObject . toGObject instance FontButtonClass FontButton instance ButtonClass FontButton instance BinClass FontButton instance ContainerClass FontButton instance WidgetClass FontButton instance GObjectClass FontButton where toGObject = GObject . castForeignPtr . unFontButton unsafeCastGObject = FontButton . castForeignPtr . unGObject castToFontButton :: GObjectClass obj => obj -> FontButton castToFontButton = castTo gTypeFontButton "FontButton" gTypeFontButton :: GType gTypeFontButton = {# call fun unsafe gtk_font_button_get_type #} -- ******************************************************************* MenuItem {#pointer *GtkMenuItem as MenuItem foreign newtype #} deriving (Eq,Ord) mkMenuItem = (MenuItem, objectUnrefFromMainloop) unMenuItem (MenuItem o) = o class BinClass o => MenuItemClass o toMenuItem :: MenuItemClass o => o -> MenuItem toMenuItem = unsafeCastGObject . toGObject instance MenuItemClass MenuItem instance BinClass MenuItem instance ContainerClass MenuItem instance WidgetClass MenuItem instance GObjectClass MenuItem where toGObject = GObject . castForeignPtr . unMenuItem unsafeCastGObject = MenuItem . castForeignPtr . unGObject castToMenuItem :: GObjectClass obj => obj -> MenuItem castToMenuItem = castTo gTypeMenuItem "MenuItem" gTypeMenuItem :: GType gTypeMenuItem = {# call fun unsafe gtk_menu_item_get_type #} -- ************************************************************** CheckMenuItem {#pointer *GtkCheckMenuItem as CheckMenuItem foreign newtype #} deriving (Eq,Ord) mkCheckMenuItem = (CheckMenuItem, objectUnrefFromMainloop) unCheckMenuItem (CheckMenuItem o) = o class MenuItemClass o => CheckMenuItemClass o toCheckMenuItem :: CheckMenuItemClass o => o -> CheckMenuItem toCheckMenuItem = unsafeCastGObject . toGObject instance CheckMenuItemClass CheckMenuItem instance MenuItemClass CheckMenuItem instance BinClass CheckMenuItem instance ContainerClass CheckMenuItem instance WidgetClass CheckMenuItem instance GObjectClass CheckMenuItem where toGObject = GObject . castForeignPtr . unCheckMenuItem unsafeCastGObject = CheckMenuItem . castForeignPtr . unGObject castToCheckMenuItem :: GObjectClass obj => obj -> CheckMenuItem castToCheckMenuItem = castTo gTypeCheckMenuItem "CheckMenuItem" gTypeCheckMenuItem :: GType gTypeCheckMenuItem = {# call fun unsafe gtk_check_menu_item_get_type #} -- ************************************************************** RadioMenuItem {#pointer *GtkRadioMenuItem as RadioMenuItem foreign newtype #} deriving (Eq,Ord) mkRadioMenuItem = (RadioMenuItem, objectUnrefFromMainloop) unRadioMenuItem (RadioMenuItem o) = o class CheckMenuItemClass o => RadioMenuItemClass o toRadioMenuItem :: RadioMenuItemClass o => o -> RadioMenuItem toRadioMenuItem = unsafeCastGObject . toGObject instance RadioMenuItemClass RadioMenuItem instance CheckMenuItemClass RadioMenuItem instance MenuItemClass RadioMenuItem instance BinClass RadioMenuItem instance ContainerClass RadioMenuItem instance WidgetClass RadioMenuItem instance GObjectClass RadioMenuItem where toGObject = GObject . castForeignPtr . unRadioMenuItem unsafeCastGObject = RadioMenuItem . castForeignPtr . unGObject castToRadioMenuItem :: GObjectClass obj => obj -> RadioMenuItem castToRadioMenuItem = castTo gTypeRadioMenuItem "RadioMenuItem" gTypeRadioMenuItem :: GType gTypeRadioMenuItem = {# call fun unsafe gtk_radio_menu_item_get_type #} -- ************************************************************ TearoffMenuItem {#pointer *GtkTearoffMenuItem as TearoffMenuItem foreign newtype #} deriving (Eq,Ord) mkTearoffMenuItem = (TearoffMenuItem, objectUnrefFromMainloop) unTearoffMenuItem (TearoffMenuItem o) = o class MenuItemClass o => TearoffMenuItemClass o toTearoffMenuItem :: TearoffMenuItemClass o => o -> TearoffMenuItem toTearoffMenuItem = unsafeCastGObject . toGObject instance TearoffMenuItemClass TearoffMenuItem instance MenuItemClass TearoffMenuItem instance BinClass TearoffMenuItem instance ContainerClass TearoffMenuItem instance WidgetClass TearoffMenuItem instance GObjectClass TearoffMenuItem where toGObject = GObject . castForeignPtr . unTearoffMenuItem unsafeCastGObject = TearoffMenuItem . castForeignPtr . unGObject castToTearoffMenuItem :: GObjectClass obj => obj -> TearoffMenuItem castToTearoffMenuItem = castTo gTypeTearoffMenuItem "TearoffMenuItem" gTypeTearoffMenuItem :: GType gTypeTearoffMenuItem = {# call fun unsafe gtk_tearoff_menu_item_get_type #} -- ************************************************************** ImageMenuItem {#pointer *GtkImageMenuItem as ImageMenuItem foreign newtype #} deriving (Eq,Ord) mkImageMenuItem = (ImageMenuItem, objectUnrefFromMainloop) unImageMenuItem (ImageMenuItem o) = o class MenuItemClass o => ImageMenuItemClass o toImageMenuItem :: ImageMenuItemClass o => o -> ImageMenuItem toImageMenuItem = unsafeCastGObject . toGObject instance ImageMenuItemClass ImageMenuItem instance MenuItemClass ImageMenuItem instance BinClass ImageMenuItem instance ContainerClass ImageMenuItem instance WidgetClass ImageMenuItem instance GObjectClass ImageMenuItem where toGObject = GObject . castForeignPtr . unImageMenuItem unsafeCastGObject = ImageMenuItem . castForeignPtr . unGObject castToImageMenuItem :: GObjectClass obj => obj -> ImageMenuItem castToImageMenuItem = castTo gTypeImageMenuItem "ImageMenuItem" gTypeImageMenuItem :: GType gTypeImageMenuItem = {# call fun unsafe gtk_image_menu_item_get_type #} -- ********************************************************** SeparatorMenuItem {#pointer *GtkSeparatorMenuItem as SeparatorMenuItem foreign newtype #} deriving (Eq,Ord) mkSeparatorMenuItem = (SeparatorMenuItem, objectUnrefFromMainloop) unSeparatorMenuItem (SeparatorMenuItem o) = o class MenuItemClass o => SeparatorMenuItemClass o toSeparatorMenuItem :: SeparatorMenuItemClass o => o -> SeparatorMenuItem toSeparatorMenuItem = unsafeCastGObject . toGObject instance SeparatorMenuItemClass SeparatorMenuItem instance MenuItemClass SeparatorMenuItem instance BinClass SeparatorMenuItem instance ContainerClass SeparatorMenuItem instance WidgetClass SeparatorMenuItem instance GObjectClass SeparatorMenuItem where toGObject = GObject . castForeignPtr . unSeparatorMenuItem unsafeCastGObject = SeparatorMenuItem . castForeignPtr . unGObject castToSeparatorMenuItem :: GObjectClass obj => obj -> SeparatorMenuItem castToSeparatorMenuItem = castTo gTypeSeparatorMenuItem "SeparatorMenuItem" gTypeSeparatorMenuItem :: GType gTypeSeparatorMenuItem = {# call fun unsafe gtk_separator_menu_item_get_type #} -- ********************************************************************* Window {#pointer *GtkWindow as Window foreign newtype #} deriving (Eq,Ord) mkWindow = (Window, objectUnrefFromMainloop) unWindow (Window o) = o class BinClass o => WindowClass o toWindow :: WindowClass o => o -> Window toWindow = unsafeCastGObject . toGObject instance WindowClass Window instance BinClass Window instance ContainerClass Window instance WidgetClass Window instance GObjectClass Window where toGObject = GObject . castForeignPtr . unWindow unsafeCastGObject = Window . castForeignPtr . unGObject castToWindow :: GObjectClass obj => obj -> Window castToWindow = castTo gTypeWindow "Window" gTypeWindow :: GType gTypeWindow = {# call fun unsafe gtk_window_get_type #} -- ****************************************************************** Assistant {#pointer *GtkAssistant as Assistant foreign newtype #} deriving (Eq,Ord) mkAssistant = (Assistant, objectUnrefFromMainloop) unAssistant (Assistant o) = o class WindowClass o => AssistantClass o toAssistant :: AssistantClass o => o -> Assistant toAssistant = unsafeCastGObject . toGObject instance AssistantClass Assistant instance WindowClass Assistant instance BinClass Assistant instance ContainerClass Assistant instance WidgetClass Assistant instance GObjectClass Assistant where toGObject = GObject . castForeignPtr . unAssistant unsafeCastGObject = Assistant . castForeignPtr . unGObject castToAssistant :: GObjectClass obj => obj -> Assistant castToAssistant = castTo gTypeAssistant "Assistant" gTypeAssistant :: GType gTypeAssistant = {# call fun unsafe gtk_assistant_get_type #} -- ************************************************************ OffscreenWindow {#pointer *GtkOffscreenWindow as OffscreenWindow foreign newtype #} deriving (Eq,Ord) mkOffscreenWindow = (OffscreenWindow, objectUnrefFromMainloop) unOffscreenWindow (OffscreenWindow o) = o class WindowClass o => OffscreenWindowClass o toOffscreenWindow :: OffscreenWindowClass o => o -> OffscreenWindow toOffscreenWindow = unsafeCastGObject . toGObject instance OffscreenWindowClass OffscreenWindow instance WindowClass OffscreenWindow instance BinClass OffscreenWindow instance ContainerClass OffscreenWindow instance WidgetClass OffscreenWindow instance GObjectClass OffscreenWindow where toGObject = GObject . castForeignPtr . unOffscreenWindow unsafeCastGObject = OffscreenWindow . castForeignPtr . unGObject castToOffscreenWindow :: GObjectClass obj => obj -> OffscreenWindow castToOffscreenWindow = castTo gTypeOffscreenWindow "OffscreenWindow" gTypeOffscreenWindow :: GType gTypeOffscreenWindow = {# call fun unsafe gtk_offscreen_window_get_type #} -- ********************************************************************* Dialog {#pointer *GtkDialog as Dialog foreign newtype #} deriving (Eq,Ord) mkDialog = (Dialog, objectUnrefFromMainloop) unDialog (Dialog o) = o class WindowClass o => DialogClass o toDialog :: DialogClass o => o -> Dialog toDialog = unsafeCastGObject . toGObject instance DialogClass Dialog instance WindowClass Dialog instance BinClass Dialog instance ContainerClass Dialog instance WidgetClass Dialog instance GObjectClass Dialog where toGObject = GObject . castForeignPtr . unDialog unsafeCastGObject = Dialog . castForeignPtr . unGObject castToDialog :: GObjectClass obj => obj -> Dialog castToDialog = castTo gTypeDialog "Dialog" gTypeDialog :: GType gTypeDialog = {# call fun unsafe gtk_dialog_get_type #} -- **************************************************************** AboutDialog {#pointer *GtkAboutDialog as AboutDialog foreign newtype #} deriving (Eq,Ord) mkAboutDialog = (AboutDialog, objectUnrefFromMainloop) unAboutDialog (AboutDialog o) = o class DialogClass o => AboutDialogClass o toAboutDialog :: AboutDialogClass o => o -> AboutDialog toAboutDialog = unsafeCastGObject . toGObject instance AboutDialogClass AboutDialog instance DialogClass AboutDialog instance WindowClass AboutDialog instance BinClass AboutDialog instance ContainerClass AboutDialog instance WidgetClass AboutDialog instance GObjectClass AboutDialog where toGObject = GObject . castForeignPtr . unAboutDialog unsafeCastGObject = AboutDialog . castForeignPtr . unGObject castToAboutDialog :: GObjectClass obj => obj -> AboutDialog castToAboutDialog = castTo gTypeAboutDialog "AboutDialog" gTypeAboutDialog :: GType gTypeAboutDialog = {# call fun unsafe gtk_about_dialog_get_type #} -- ******************************************************* ColorSelectionDialog {#pointer *GtkColorSelectionDialog as ColorSelectionDialog foreign newtype #} deriving (Eq,Ord) mkColorSelectionDialog = (ColorSelectionDialog, objectUnrefFromMainloop) unColorSelectionDialog (ColorSelectionDialog o) = o class DialogClass o => ColorSelectionDialogClass o toColorSelectionDialog :: ColorSelectionDialogClass o => o -> ColorSelectionDialog toColorSelectionDialog = unsafeCastGObject . toGObject instance ColorSelectionDialogClass ColorSelectionDialog instance DialogClass ColorSelectionDialog instance WindowClass ColorSelectionDialog instance BinClass ColorSelectionDialog instance ContainerClass ColorSelectionDialog instance WidgetClass ColorSelectionDialog instance GObjectClass ColorSelectionDialog where toGObject = GObject . castForeignPtr . unColorSelectionDialog unsafeCastGObject = ColorSelectionDialog . castForeignPtr . unGObject castToColorSelectionDialog :: GObjectClass obj => obj -> ColorSelectionDialog castToColorSelectionDialog = castTo gTypeColorSelectionDialog "ColorSelectionDialog" gTypeColorSelectionDialog :: GType gTypeColorSelectionDialog = {# call fun unsafe gtk_color_selection_dialog_get_type #} -- ********************************************************** FileChooserDialog {#pointer *GtkFileChooserDialog as FileChooserDialog foreign newtype #} deriving (Eq,Ord) mkFileChooserDialog = (FileChooserDialog, objectUnrefFromMainloop) unFileChooserDialog (FileChooserDialog o) = o class DialogClass o => FileChooserDialogClass o toFileChooserDialog :: FileChooserDialogClass o => o -> FileChooserDialog toFileChooserDialog = unsafeCastGObject . toGObject instance FileChooserDialogClass FileChooserDialog instance DialogClass FileChooserDialog instance WindowClass FileChooserDialog instance BinClass FileChooserDialog instance ContainerClass FileChooserDialog instance WidgetClass FileChooserDialog instance GObjectClass FileChooserDialog where toGObject = GObject . castForeignPtr . unFileChooserDialog unsafeCastGObject = FileChooserDialog . castForeignPtr . unGObject castToFileChooserDialog :: GObjectClass obj => obj -> FileChooserDialog castToFileChooserDialog = castTo gTypeFileChooserDialog "FileChooserDialog" gTypeFileChooserDialog :: GType gTypeFileChooserDialog = {# call fun unsafe gtk_file_chooser_dialog_get_type #} -- ******************************************************** FontSelectionDialog {#pointer *GtkFontSelectionDialog as FontSelectionDialog foreign newtype #} deriving (Eq,Ord) mkFontSelectionDialog = (FontSelectionDialog, objectUnrefFromMainloop) unFontSelectionDialog (FontSelectionDialog o) = o class DialogClass o => FontSelectionDialogClass o toFontSelectionDialog :: FontSelectionDialogClass o => o -> FontSelectionDialog toFontSelectionDialog = unsafeCastGObject . toGObject instance FontSelectionDialogClass FontSelectionDialog instance DialogClass FontSelectionDialog instance WindowClass FontSelectionDialog instance BinClass FontSelectionDialog instance ContainerClass FontSelectionDialog instance WidgetClass FontSelectionDialog instance GObjectClass FontSelectionDialog where toGObject = GObject . castForeignPtr . unFontSelectionDialog unsafeCastGObject = FontSelectionDialog . castForeignPtr . unGObject castToFontSelectionDialog :: GObjectClass obj => obj -> FontSelectionDialog castToFontSelectionDialog = castTo gTypeFontSelectionDialog "FontSelectionDialog" gTypeFontSelectionDialog :: GType gTypeFontSelectionDialog = {# call fun unsafe gtk_font_selection_dialog_get_type #} -- ************************************************************** MessageDialog {#pointer *GtkMessageDialog as MessageDialog foreign newtype #} deriving (Eq,Ord) mkMessageDialog = (MessageDialog, objectUnrefFromMainloop) unMessageDialog (MessageDialog o) = o class DialogClass o => MessageDialogClass o toMessageDialog :: MessageDialogClass o => o -> MessageDialog toMessageDialog = unsafeCastGObject . toGObject instance MessageDialogClass MessageDialog instance DialogClass MessageDialog instance WindowClass MessageDialog instance BinClass MessageDialog instance ContainerClass MessageDialog instance WidgetClass MessageDialog instance GObjectClass MessageDialog where toGObject = GObject . castForeignPtr . unMessageDialog unsafeCastGObject = MessageDialog . castForeignPtr . unGObject castToMessageDialog :: GObjectClass obj => obj -> MessageDialog castToMessageDialog = castTo gTypeMessageDialog "MessageDialog" gTypeMessageDialog :: GType gTypeMessageDialog = {# call fun unsafe gtk_message_dialog_get_type #} -- ******************************************************************* EventBox {#pointer *GtkEventBox as EventBox foreign newtype #} deriving (Eq,Ord) mkEventBox = (EventBox, objectUnrefFromMainloop) unEventBox (EventBox o) = o class BinClass o => EventBoxClass o toEventBox :: EventBoxClass o => o -> EventBox toEventBox = unsafeCastGObject . toGObject instance EventBoxClass EventBox instance BinClass EventBox instance ContainerClass EventBox instance WidgetClass EventBox instance GObjectClass EventBox where toGObject = GObject . castForeignPtr . unEventBox unsafeCastGObject = EventBox . castForeignPtr . unGObject castToEventBox :: GObjectClass obj => obj -> EventBox castToEventBox = castTo gTypeEventBox "EventBox" gTypeEventBox :: GType gTypeEventBox = {# call fun unsafe gtk_event_box_get_type #} -- ****************************************************************** HandleBox {#pointer *GtkHandleBox as HandleBox foreign newtype #} deriving (Eq,Ord) mkHandleBox = (HandleBox, objectUnrefFromMainloop) unHandleBox (HandleBox o) = o class BinClass o => HandleBoxClass o toHandleBox :: HandleBoxClass o => o -> HandleBox toHandleBox = unsafeCastGObject . toGObject instance HandleBoxClass HandleBox instance BinClass HandleBox instance ContainerClass HandleBox instance WidgetClass HandleBox instance GObjectClass HandleBox where toGObject = GObject . castForeignPtr . unHandleBox unsafeCastGObject = HandleBox . castForeignPtr . unGObject castToHandleBox :: GObjectClass obj => obj -> HandleBox castToHandleBox = castTo gTypeHandleBox "HandleBox" gTypeHandleBox :: GType gTypeHandleBox = {# call fun unsafe gtk_handle_box_get_type #} -- ************************************************************* ScrolledWindow {#pointer *GtkScrolledWindow as ScrolledWindow foreign newtype #} deriving (Eq,Ord) mkScrolledWindow = (ScrolledWindow, objectUnrefFromMainloop) unScrolledWindow (ScrolledWindow o) = o class BinClass o => ScrolledWindowClass o toScrolledWindow :: ScrolledWindowClass o => o -> ScrolledWindow toScrolledWindow = unsafeCastGObject . toGObject instance ScrolledWindowClass ScrolledWindow instance BinClass ScrolledWindow instance ContainerClass ScrolledWindow instance WidgetClass ScrolledWindow instance GObjectClass ScrolledWindow where toGObject = GObject . castForeignPtr . unScrolledWindow unsafeCastGObject = ScrolledWindow . castForeignPtr . unGObject castToScrolledWindow :: GObjectClass obj => obj -> ScrolledWindow castToScrolledWindow = castTo gTypeScrolledWindow "ScrolledWindow" gTypeScrolledWindow :: GType gTypeScrolledWindow = {# call fun unsafe gtk_scrolled_window_get_type #} -- ******************************************************************* Viewport {#pointer *GtkViewport as Viewport foreign newtype #} deriving (Eq,Ord) mkViewport = (Viewport, objectUnrefFromMainloop) unViewport (Viewport o) = o class BinClass o => ViewportClass o toViewport :: ViewportClass o => o -> Viewport toViewport = unsafeCastGObject . toGObject instance ViewportClass Viewport instance BinClass Viewport instance ContainerClass Viewport instance WidgetClass Viewport instance GObjectClass Viewport where toGObject = GObject . castForeignPtr . unViewport unsafeCastGObject = Viewport . castForeignPtr . unGObject castToViewport :: GObjectClass obj => obj -> Viewport castToViewport = castTo gTypeViewport "Viewport" gTypeViewport :: GType gTypeViewport = {# call fun unsafe gtk_viewport_get_type #} -- ******************************************************************* Expander {#pointer *GtkExpander as Expander foreign newtype #} deriving (Eq,Ord) mkExpander = (Expander, objectUnrefFromMainloop) unExpander (Expander o) = o class BinClass o => ExpanderClass o toExpander :: ExpanderClass o => o -> Expander toExpander = unsafeCastGObject . toGObject instance ExpanderClass Expander instance BinClass Expander instance ContainerClass Expander instance WidgetClass Expander instance GObjectClass Expander where toGObject = GObject . castForeignPtr . unExpander unsafeCastGObject = Expander . castForeignPtr . unGObject castToExpander :: GObjectClass obj => obj -> Expander castToExpander = castTo gTypeExpander "Expander" gTypeExpander :: GType gTypeExpander = {# call fun unsafe gtk_expander_get_type #} -- ******************************************************************* ComboBox {#pointer *GtkComboBox as ComboBox foreign newtype #} deriving (Eq,Ord) mkComboBox = (ComboBox, objectUnrefFromMainloop) unComboBox (ComboBox o) = o class BinClass o => ComboBoxClass o toComboBox :: ComboBoxClass o => o -> ComboBox toComboBox = unsafeCastGObject . toGObject instance ComboBoxClass ComboBox instance BinClass ComboBox instance ContainerClass ComboBox instance WidgetClass ComboBox instance GObjectClass ComboBox where toGObject = GObject . castForeignPtr . unComboBox unsafeCastGObject = ComboBox . castForeignPtr . unGObject castToComboBox :: GObjectClass obj => obj -> ComboBox castToComboBox = castTo gTypeComboBox "ComboBox" gTypeComboBox :: GType gTypeComboBox = {# call fun unsafe gtk_combo_box_get_type #} -- ******************************************************************* ToolItem {#pointer *GtkToolItem as ToolItem foreign newtype #} deriving (Eq,Ord) mkToolItem = (ToolItem, objectUnrefFromMainloop) unToolItem (ToolItem o) = o class BinClass o => ToolItemClass o toToolItem :: ToolItemClass o => o -> ToolItem toToolItem = unsafeCastGObject . toGObject instance ToolItemClass ToolItem instance BinClass ToolItem instance ContainerClass ToolItem instance WidgetClass ToolItem instance GObjectClass ToolItem where toGObject = GObject . castForeignPtr . unToolItem unsafeCastGObject = ToolItem . castForeignPtr . unGObject castToToolItem :: GObjectClass obj => obj -> ToolItem castToToolItem = castTo gTypeToolItem "ToolItem" gTypeToolItem :: GType gTypeToolItem = {# call fun unsafe gtk_tool_item_get_type #} -- ***************************************************************** ToolButton {#pointer *GtkToolButton as ToolButton foreign newtype #} deriving (Eq,Ord) mkToolButton = (ToolButton, objectUnrefFromMainloop) unToolButton (ToolButton o) = o class ToolItemClass o => ToolButtonClass o toToolButton :: ToolButtonClass o => o -> ToolButton toToolButton = unsafeCastGObject . toGObject instance ToolButtonClass ToolButton instance ToolItemClass ToolButton instance BinClass ToolButton instance ContainerClass ToolButton instance WidgetClass ToolButton instance GObjectClass ToolButton where toGObject = GObject . castForeignPtr . unToolButton unsafeCastGObject = ToolButton . castForeignPtr . unGObject castToToolButton :: GObjectClass obj => obj -> ToolButton castToToolButton = castTo gTypeToolButton "ToolButton" gTypeToolButton :: GType gTypeToolButton = {# call fun unsafe gtk_tool_button_get_type #} -- ************************************************************* MenuToolButton {#pointer *GtkMenuToolButton as MenuToolButton foreign newtype #} deriving (Eq,Ord) mkMenuToolButton = (MenuToolButton, objectUnrefFromMainloop) unMenuToolButton (MenuToolButton o) = o class ToolButtonClass o => MenuToolButtonClass o toMenuToolButton :: MenuToolButtonClass o => o -> MenuToolButton toMenuToolButton = unsafeCastGObject . toGObject instance MenuToolButtonClass MenuToolButton instance ToolButtonClass MenuToolButton instance ToolItemClass MenuToolButton instance BinClass MenuToolButton instance ContainerClass MenuToolButton instance WidgetClass MenuToolButton instance GObjectClass MenuToolButton where toGObject = GObject . castForeignPtr . unMenuToolButton unsafeCastGObject = MenuToolButton . castForeignPtr . unGObject castToMenuToolButton :: GObjectClass obj => obj -> MenuToolButton castToMenuToolButton = castTo gTypeMenuToolButton "MenuToolButton" gTypeMenuToolButton :: GType gTypeMenuToolButton = {# call fun unsafe gtk_menu_tool_button_get_type #} -- *********************************************************** ToggleToolButton {#pointer *GtkToggleToolButton as ToggleToolButton foreign newtype #} deriving (Eq,Ord) mkToggleToolButton = (ToggleToolButton, objectUnrefFromMainloop) unToggleToolButton (ToggleToolButton o) = o class ToolButtonClass o => ToggleToolButtonClass o toToggleToolButton :: ToggleToolButtonClass o => o -> ToggleToolButton toToggleToolButton = unsafeCastGObject . toGObject instance ToggleToolButtonClass ToggleToolButton instance ToolButtonClass ToggleToolButton instance ToolItemClass ToggleToolButton instance BinClass ToggleToolButton instance ContainerClass ToggleToolButton instance WidgetClass ToggleToolButton instance GObjectClass ToggleToolButton where toGObject = GObject . castForeignPtr . unToggleToolButton unsafeCastGObject = ToggleToolButton . castForeignPtr . unGObject castToToggleToolButton :: GObjectClass obj => obj -> ToggleToolButton castToToggleToolButton = castTo gTypeToggleToolButton "ToggleToolButton" gTypeToggleToolButton :: GType gTypeToggleToolButton = {# call fun unsafe gtk_toggle_tool_button_get_type #} -- ************************************************************ RadioToolButton {#pointer *GtkRadioToolButton as RadioToolButton foreign newtype #} deriving (Eq,Ord) mkRadioToolButton = (RadioToolButton, objectUnrefFromMainloop) unRadioToolButton (RadioToolButton o) = o class ToggleToolButtonClass o => RadioToolButtonClass o toRadioToolButton :: RadioToolButtonClass o => o -> RadioToolButton toRadioToolButton = unsafeCastGObject . toGObject instance RadioToolButtonClass RadioToolButton instance ToggleToolButtonClass RadioToolButton instance ToolButtonClass RadioToolButton instance ToolItemClass RadioToolButton instance BinClass RadioToolButton instance ContainerClass RadioToolButton instance WidgetClass RadioToolButton instance GObjectClass RadioToolButton where toGObject = GObject . castForeignPtr . unRadioToolButton unsafeCastGObject = RadioToolButton . castForeignPtr . unGObject castToRadioToolButton :: GObjectClass obj => obj -> RadioToolButton castToRadioToolButton = castTo gTypeRadioToolButton "RadioToolButton" gTypeRadioToolButton :: GType gTypeRadioToolButton = {# call fun unsafe gtk_radio_tool_button_get_type #} -- ********************************************************** SeparatorToolItem {#pointer *GtkSeparatorToolItem as SeparatorToolItem foreign newtype #} deriving (Eq,Ord) mkSeparatorToolItem = (SeparatorToolItem, objectUnrefFromMainloop) unSeparatorToolItem (SeparatorToolItem o) = o class ToolItemClass o => SeparatorToolItemClass o toSeparatorToolItem :: SeparatorToolItemClass o => o -> SeparatorToolItem toSeparatorToolItem = unsafeCastGObject . toGObject instance SeparatorToolItemClass SeparatorToolItem instance ToolItemClass SeparatorToolItem instance BinClass SeparatorToolItem instance ContainerClass SeparatorToolItem instance WidgetClass SeparatorToolItem instance GObjectClass SeparatorToolItem where toGObject = GObject . castForeignPtr . unSeparatorToolItem unsafeCastGObject = SeparatorToolItem . castForeignPtr . unGObject castToSeparatorToolItem :: GObjectClass obj => obj -> SeparatorToolItem castToSeparatorToolItem = castTo gTypeSeparatorToolItem "SeparatorToolItem" gTypeSeparatorToolItem :: GType gTypeSeparatorToolItem = {# call fun unsafe gtk_separator_tool_item_get_type #} -- ************************************************************************ Box {#pointer *GtkBox as Box foreign newtype #} deriving (Eq,Ord) mkBox = (Box, objectUnrefFromMainloop) unBox (Box o) = o class ContainerClass o => BoxClass o toBox :: BoxClass o => o -> Box toBox = unsafeCastGObject . toGObject instance BoxClass Box instance ContainerClass Box instance WidgetClass Box instance GObjectClass Box where toGObject = GObject . castForeignPtr . unBox unsafeCastGObject = Box . castForeignPtr . unGObject castToBox :: GObjectClass obj => obj -> Box castToBox = castTo gTypeBox "Box" gTypeBox :: GType gTypeBox = {# call fun unsafe gtk_box_get_type #} -- ****************************************************************** ButtonBox {#pointer *GtkButtonBox as ButtonBox foreign newtype #} deriving (Eq,Ord) mkButtonBox = (ButtonBox, objectUnrefFromMainloop) unButtonBox (ButtonBox o) = o class BoxClass o => ButtonBoxClass o toButtonBox :: ButtonBoxClass o => o -> ButtonBox toButtonBox = unsafeCastGObject . toGObject instance ButtonBoxClass ButtonBox instance BoxClass ButtonBox instance ContainerClass ButtonBox instance WidgetClass ButtonBox instance GObjectClass ButtonBox where toGObject = GObject . castForeignPtr . unButtonBox unsafeCastGObject = ButtonBox . castForeignPtr . unGObject castToButtonBox :: GObjectClass obj => obj -> ButtonBox castToButtonBox = castTo gTypeButtonBox "ButtonBox" gTypeButtonBox :: GType gTypeButtonBox = {# call fun unsafe gtk_button_box_get_type #} -- ***************************************************************** HButtonBox {#pointer *GtkHButtonBox as HButtonBox foreign newtype #} deriving (Eq,Ord) mkHButtonBox = (HButtonBox, objectUnrefFromMainloop) unHButtonBox (HButtonBox o) = o class ButtonBoxClass o => HButtonBoxClass o toHButtonBox :: HButtonBoxClass o => o -> HButtonBox toHButtonBox = unsafeCastGObject . toGObject instance HButtonBoxClass HButtonBox instance ButtonBoxClass HButtonBox instance BoxClass HButtonBox instance ContainerClass HButtonBox instance WidgetClass HButtonBox instance GObjectClass HButtonBox where toGObject = GObject . castForeignPtr . unHButtonBox unsafeCastGObject = HButtonBox . castForeignPtr . unGObject castToHButtonBox :: GObjectClass obj => obj -> HButtonBox castToHButtonBox = castTo gTypeHButtonBox "HButtonBox" gTypeHButtonBox :: GType gTypeHButtonBox = {# call fun unsafe gtk_hbutton_box_get_type #} -- ***************************************************************** VButtonBox {#pointer *GtkVButtonBox as VButtonBox foreign newtype #} deriving (Eq,Ord) mkVButtonBox = (VButtonBox, objectUnrefFromMainloop) unVButtonBox (VButtonBox o) = o class ButtonBoxClass o => VButtonBoxClass o toVButtonBox :: VButtonBoxClass o => o -> VButtonBox toVButtonBox = unsafeCastGObject . toGObject instance VButtonBoxClass VButtonBox instance ButtonBoxClass VButtonBox instance BoxClass VButtonBox instance ContainerClass VButtonBox instance WidgetClass VButtonBox instance GObjectClass VButtonBox where toGObject = GObject . castForeignPtr . unVButtonBox unsafeCastGObject = VButtonBox . castForeignPtr . unGObject castToVButtonBox :: GObjectClass obj => obj -> VButtonBox castToVButtonBox = castTo gTypeVButtonBox "VButtonBox" gTypeVButtonBox :: GType gTypeVButtonBox = {# call fun unsafe gtk_vbutton_box_get_type #} -- *********************************************************************** VBox {#pointer *GtkVBox as VBox foreign newtype #} deriving (Eq,Ord) mkVBox = (VBox, objectUnrefFromMainloop) unVBox (VBox o) = o class BoxClass o => VBoxClass o toVBox :: VBoxClass o => o -> VBox toVBox = unsafeCastGObject . toGObject instance VBoxClass VBox instance BoxClass VBox instance ContainerClass VBox instance WidgetClass VBox instance GObjectClass VBox where toGObject = GObject . castForeignPtr . unVBox unsafeCastGObject = VBox . castForeignPtr . unGObject castToVBox :: GObjectClass obj => obj -> VBox castToVBox = castTo gTypeVBox "VBox" gTypeVBox :: GType gTypeVBox = {# call fun unsafe gtk_vbox_get_type #} -- ******************************************************** RecentChooserWidget {#pointer *GtkRecentChooserWidget as RecentChooserWidget foreign newtype #} deriving (Eq,Ord) mkRecentChooserWidget = (RecentChooserWidget, objectUnrefFromMainloop) unRecentChooserWidget (RecentChooserWidget o) = o class VBoxClass o => RecentChooserWidgetClass o toRecentChooserWidget :: RecentChooserWidgetClass o => o -> RecentChooserWidget toRecentChooserWidget = unsafeCastGObject . toGObject instance RecentChooserWidgetClass RecentChooserWidget instance VBoxClass RecentChooserWidget instance BoxClass RecentChooserWidget instance ContainerClass RecentChooserWidget instance WidgetClass RecentChooserWidget instance GObjectClass RecentChooserWidget where toGObject = GObject . castForeignPtr . unRecentChooserWidget unsafeCastGObject = RecentChooserWidget . castForeignPtr . unGObject castToRecentChooserWidget :: GObjectClass obj => obj -> RecentChooserWidget castToRecentChooserWidget = castTo gTypeRecentChooserWidget "RecentChooserWidget" gTypeRecentChooserWidget :: GType gTypeRecentChooserWidget = {# call fun unsafe gtk_recent_chooser_widget_get_type #} -- ************************************************************* ColorSelection {#pointer *GtkColorSelection as ColorSelection foreign newtype #} deriving (Eq,Ord) mkColorSelection = (ColorSelection, objectUnrefFromMainloop) unColorSelection (ColorSelection o) = o class VBoxClass o => ColorSelectionClass o toColorSelection :: ColorSelectionClass o => o -> ColorSelection toColorSelection = unsafeCastGObject . toGObject instance ColorSelectionClass ColorSelection instance VBoxClass ColorSelection instance BoxClass ColorSelection instance ContainerClass ColorSelection instance WidgetClass ColorSelection instance GObjectClass ColorSelection where toGObject = GObject . castForeignPtr . unColorSelection unsafeCastGObject = ColorSelection . castForeignPtr . unGObject castToColorSelection :: GObjectClass obj => obj -> ColorSelection castToColorSelection = castTo gTypeColorSelection "ColorSelection" gTypeColorSelection :: GType gTypeColorSelection = {# call fun unsafe gtk_color_selection_get_type #} -- ************************************************************** FontSelection {#pointer *GtkFontSelection as FontSelection foreign newtype #} deriving (Eq,Ord) mkFontSelection = (FontSelection, objectUnrefFromMainloop) unFontSelection (FontSelection o) = o class VBoxClass o => FontSelectionClass o toFontSelection :: FontSelectionClass o => o -> FontSelection toFontSelection = unsafeCastGObject . toGObject instance FontSelectionClass FontSelection instance VBoxClass FontSelection instance BoxClass FontSelection instance ContainerClass FontSelection instance WidgetClass FontSelection instance GObjectClass FontSelection where toGObject = GObject . castForeignPtr . unFontSelection unsafeCastGObject = FontSelection . castForeignPtr . unGObject castToFontSelection :: GObjectClass obj => obj -> FontSelection castToFontSelection = castTo gTypeFontSelection "FontSelection" gTypeFontSelection :: GType gTypeFontSelection = {# call fun unsafe gtk_font_selection_get_type #} -- ********************************************************** FileChooserWidget {#pointer *GtkFileChooserWidget as FileChooserWidget foreign newtype #} deriving (Eq,Ord) mkFileChooserWidget = (FileChooserWidget, objectUnrefFromMainloop) unFileChooserWidget (FileChooserWidget o) = o class VBoxClass o => FileChooserWidgetClass o toFileChooserWidget :: FileChooserWidgetClass o => o -> FileChooserWidget toFileChooserWidget = unsafeCastGObject . toGObject instance FileChooserWidgetClass FileChooserWidget instance VBoxClass FileChooserWidget instance BoxClass FileChooserWidget instance ContainerClass FileChooserWidget instance WidgetClass FileChooserWidget instance GObjectClass FileChooserWidget where toGObject = GObject . castForeignPtr . unFileChooserWidget unsafeCastGObject = FileChooserWidget . castForeignPtr . unGObject castToFileChooserWidget :: GObjectClass obj => obj -> FileChooserWidget castToFileChooserWidget = castTo gTypeFileChooserWidget "FileChooserWidget" gTypeFileChooserWidget :: GType gTypeFileChooserWidget = {# call fun unsafe gtk_file_chooser_widget_get_type #} -- *********************************************************************** HBox {#pointer *GtkHBox as HBox foreign newtype #} deriving (Eq,Ord) mkHBox = (HBox, objectUnrefFromMainloop) unHBox (HBox o) = o class BoxClass o => HBoxClass o toHBox :: HBoxClass o => o -> HBox toHBox = unsafeCastGObject . toGObject instance HBoxClass HBox instance BoxClass HBox instance ContainerClass HBox instance WidgetClass HBox instance GObjectClass HBox where toGObject = GObject . castForeignPtr . unHBox unsafeCastGObject = HBox . castForeignPtr . unGObject castToHBox :: GObjectClass obj => obj -> HBox castToHBox = castTo gTypeHBox "HBox" gTypeHBox :: GType gTypeHBox = {# call fun unsafe gtk_hbox_get_type #} -- ******************************************************************** InfoBar {#pointer *GtkInfoBar as InfoBar foreign newtype #} deriving (Eq,Ord) mkInfoBar = (InfoBar, objectUnrefFromMainloop) unInfoBar (InfoBar o) = o class HBoxClass o => InfoBarClass o toInfoBar :: InfoBarClass o => o -> InfoBar toInfoBar = unsafeCastGObject . toGObject instance InfoBarClass InfoBar instance HBoxClass InfoBar instance BoxClass InfoBar instance ContainerClass InfoBar instance WidgetClass InfoBar instance GObjectClass InfoBar where toGObject = GObject . castForeignPtr . unInfoBar unsafeCastGObject = InfoBar . castForeignPtr . unGObject castToInfoBar :: GObjectClass obj => obj -> InfoBar castToInfoBar = castTo gTypeInfoBar "InfoBar" gTypeInfoBar :: GType gTypeInfoBar = {# call fun unsafe gtk_info_bar_get_type #} -- ********************************************************** FileChooserButton {#pointer *GtkFileChooserButton as FileChooserButton foreign newtype #} deriving (Eq,Ord) mkFileChooserButton = (FileChooserButton, objectUnrefFromMainloop) unFileChooserButton (FileChooserButton o) = o class HBoxClass o => FileChooserButtonClass o toFileChooserButton :: FileChooserButtonClass o => o -> FileChooserButton toFileChooserButton = unsafeCastGObject . toGObject instance FileChooserButtonClass FileChooserButton instance HBoxClass FileChooserButton instance BoxClass FileChooserButton instance ContainerClass FileChooserButton instance WidgetClass FileChooserButton instance GObjectClass FileChooserButton where toGObject = GObject . castForeignPtr . unFileChooserButton unsafeCastGObject = FileChooserButton . castForeignPtr . unGObject castToFileChooserButton :: GObjectClass obj => obj -> FileChooserButton castToFileChooserButton = castTo gTypeFileChooserButton "FileChooserButton" gTypeFileChooserButton :: GType gTypeFileChooserButton = {# call fun unsafe gtk_file_chooser_button_get_type #} -- ****************************************************************** Statusbar {#pointer *GtkStatusbar as Statusbar foreign newtype #} deriving (Eq,Ord) mkStatusbar = (Statusbar, objectUnrefFromMainloop) unStatusbar (Statusbar o) = o class HBoxClass o => StatusbarClass o toStatusbar :: StatusbarClass o => o -> Statusbar toStatusbar = unsafeCastGObject . toGObject instance StatusbarClass Statusbar instance HBoxClass Statusbar instance BoxClass Statusbar instance ContainerClass Statusbar instance WidgetClass Statusbar instance GObjectClass Statusbar where toGObject = GObject . castForeignPtr . unStatusbar unsafeCastGObject = Statusbar . castForeignPtr . unGObject castToStatusbar :: GObjectClass obj => obj -> Statusbar castToStatusbar = castTo gTypeStatusbar "Statusbar" gTypeStatusbar :: GType gTypeStatusbar = {# call fun unsafe gtk_statusbar_get_type #} -- ********************************************************************** Fixed {#pointer *GtkFixed as Fixed foreign newtype #} deriving (Eq,Ord) mkFixed = (Fixed, objectUnrefFromMainloop) unFixed (Fixed o) = o class ContainerClass o => FixedClass o toFixed :: FixedClass o => o -> Fixed toFixed = unsafeCastGObject . toGObject instance FixedClass Fixed instance ContainerClass Fixed instance WidgetClass Fixed instance GObjectClass Fixed where toGObject = GObject . castForeignPtr . unFixed unsafeCastGObject = Fixed . castForeignPtr . unGObject castToFixed :: GObjectClass obj => obj -> Fixed castToFixed = castTo gTypeFixed "Fixed" gTypeFixed :: GType gTypeFixed = {# call fun unsafe gtk_fixed_get_type #} -- ********************************************************************** Paned {#pointer *GtkPaned as Paned foreign newtype #} deriving (Eq,Ord) mkPaned = (Paned, objectUnrefFromMainloop) unPaned (Paned o) = o class ContainerClass o => PanedClass o toPaned :: PanedClass o => o -> Paned toPaned = unsafeCastGObject . toGObject instance PanedClass Paned instance ContainerClass Paned instance WidgetClass Paned instance GObjectClass Paned where toGObject = GObject . castForeignPtr . unPaned unsafeCastGObject = Paned . castForeignPtr . unGObject castToPaned :: GObjectClass obj => obj -> Paned castToPaned = castTo gTypePaned "Paned" gTypePaned :: GType gTypePaned = {# call fun unsafe gtk_paned_get_type #} -- ********************************************************************* HPaned {#pointer *GtkHPaned as HPaned foreign newtype #} deriving (Eq,Ord) mkHPaned = (HPaned, objectUnrefFromMainloop) unHPaned (HPaned o) = o class PanedClass o => HPanedClass o toHPaned :: HPanedClass o => o -> HPaned toHPaned = unsafeCastGObject . toGObject instance HPanedClass HPaned instance PanedClass HPaned instance ContainerClass HPaned instance WidgetClass HPaned instance GObjectClass HPaned where toGObject = GObject . castForeignPtr . unHPaned unsafeCastGObject = HPaned . castForeignPtr . unGObject castToHPaned :: GObjectClass obj => obj -> HPaned castToHPaned = castTo gTypeHPaned "HPaned" gTypeHPaned :: GType gTypeHPaned = {# call fun unsafe gtk_hpaned_get_type #} -- ********************************************************************* VPaned {#pointer *GtkVPaned as VPaned foreign newtype #} deriving (Eq,Ord) mkVPaned = (VPaned, objectUnrefFromMainloop) unVPaned (VPaned o) = o class PanedClass o => VPanedClass o toVPaned :: VPanedClass o => o -> VPaned toVPaned = unsafeCastGObject . toGObject instance VPanedClass VPaned instance PanedClass VPaned instance ContainerClass VPaned instance WidgetClass VPaned instance GObjectClass VPaned where toGObject = GObject . castForeignPtr . unVPaned unsafeCastGObject = VPaned . castForeignPtr . unGObject castToVPaned :: GObjectClass obj => obj -> VPaned castToVPaned = castTo gTypeVPaned "VPaned" gTypeVPaned :: GType gTypeVPaned = {# call fun unsafe gtk_vpaned_get_type #} -- ******************************************************************* IconView {#pointer *GtkIconView as IconView foreign newtype #} deriving (Eq,Ord) mkIconView = (IconView, objectUnrefFromMainloop) unIconView (IconView o) = o class ContainerClass o => IconViewClass o toIconView :: IconViewClass o => o -> IconView toIconView = unsafeCastGObject . toGObject instance IconViewClass IconView instance ContainerClass IconView instance WidgetClass IconView instance GObjectClass IconView where toGObject = GObject . castForeignPtr . unIconView unsafeCastGObject = IconView . castForeignPtr . unGObject castToIconView :: GObjectClass obj => obj -> IconView castToIconView = castTo gTypeIconView "IconView" gTypeIconView :: GType gTypeIconView = {# call fun unsafe gtk_icon_view_get_type #} -- ********************************************************************* Layout {#pointer *GtkLayout as Layout foreign newtype #} deriving (Eq,Ord) mkLayout = (Layout, objectUnrefFromMainloop) unLayout (Layout o) = o class ContainerClass o => LayoutClass o toLayout :: LayoutClass o => o -> Layout toLayout = unsafeCastGObject . toGObject instance LayoutClass Layout instance ContainerClass Layout instance WidgetClass Layout instance GObjectClass Layout where toGObject = GObject . castForeignPtr . unLayout unsafeCastGObject = Layout . castForeignPtr . unGObject castToLayout :: GObjectClass obj => obj -> Layout castToLayout = castTo gTypeLayout "Layout" gTypeLayout :: GType gTypeLayout = {# call fun unsafe gtk_layout_get_type #} -- ****************************************************************** MenuShell {#pointer *GtkMenuShell as MenuShell foreign newtype #} deriving (Eq,Ord) mkMenuShell = (MenuShell, objectUnrefFromMainloop) unMenuShell (MenuShell o) = o class ContainerClass o => MenuShellClass o toMenuShell :: MenuShellClass o => o -> MenuShell toMenuShell = unsafeCastGObject . toGObject instance MenuShellClass MenuShell instance ContainerClass MenuShell instance WidgetClass MenuShell instance GObjectClass MenuShell where toGObject = GObject . castForeignPtr . unMenuShell unsafeCastGObject = MenuShell . castForeignPtr . unGObject castToMenuShell :: GObjectClass obj => obj -> MenuShell castToMenuShell = castTo gTypeMenuShell "MenuShell" gTypeMenuShell :: GType gTypeMenuShell = {# call fun unsafe gtk_menu_shell_get_type #} -- *********************************************************************** Menu {#pointer *GtkMenu as Menu foreign newtype #} deriving (Eq,Ord) mkMenu = (Menu, objectUnrefFromMainloop) unMenu (Menu o) = o class MenuShellClass o => MenuClass o toMenu :: MenuClass o => o -> Menu toMenu = unsafeCastGObject . toGObject instance MenuClass Menu instance MenuShellClass Menu instance ContainerClass Menu instance WidgetClass Menu instance GObjectClass Menu where toGObject = GObject . castForeignPtr . unMenu unsafeCastGObject = Menu . castForeignPtr . unGObject castToMenu :: GObjectClass obj => obj -> Menu castToMenu = castTo gTypeMenu "Menu" gTypeMenu :: GType gTypeMenu = {# call fun unsafe gtk_menu_get_type #} -- ********************************************************** RecentChooserMenu {#pointer *GtkRecentChooserMenu as RecentChooserMenu foreign newtype #} deriving (Eq,Ord) mkRecentChooserMenu = (RecentChooserMenu, objectUnrefFromMainloop) unRecentChooserMenu (RecentChooserMenu o) = o class MenuClass o => RecentChooserMenuClass o toRecentChooserMenu :: RecentChooserMenuClass o => o -> RecentChooserMenu toRecentChooserMenu = unsafeCastGObject . toGObject instance RecentChooserMenuClass RecentChooserMenu instance MenuClass RecentChooserMenu instance MenuShellClass RecentChooserMenu instance ContainerClass RecentChooserMenu instance WidgetClass RecentChooserMenu instance GObjectClass RecentChooserMenu where toGObject = GObject . castForeignPtr . unRecentChooserMenu unsafeCastGObject = RecentChooserMenu . castForeignPtr . unGObject castToRecentChooserMenu :: GObjectClass obj => obj -> RecentChooserMenu castToRecentChooserMenu = castTo gTypeRecentChooserMenu "RecentChooserMenu" gTypeRecentChooserMenu :: GType gTypeRecentChooserMenu = {# call fun unsafe gtk_recent_chooser_menu_get_type #} -- ******************************************************************** MenuBar {#pointer *GtkMenuBar as MenuBar foreign newtype #} deriving (Eq,Ord) mkMenuBar = (MenuBar, objectUnrefFromMainloop) unMenuBar (MenuBar o) = o class MenuShellClass o => MenuBarClass o toMenuBar :: MenuBarClass o => o -> MenuBar toMenuBar = unsafeCastGObject . toGObject instance MenuBarClass MenuBar instance MenuShellClass MenuBar instance ContainerClass MenuBar instance WidgetClass MenuBar instance GObjectClass MenuBar where toGObject = GObject . castForeignPtr . unMenuBar unsafeCastGObject = MenuBar . castForeignPtr . unGObject castToMenuBar :: GObjectClass obj => obj -> MenuBar castToMenuBar = castTo gTypeMenuBar "MenuBar" gTypeMenuBar :: GType gTypeMenuBar = {# call fun unsafe gtk_menu_bar_get_type #} -- ******************************************************************* Notebook {#pointer *GtkNotebook as Notebook foreign newtype #} deriving (Eq,Ord) mkNotebook = (Notebook, objectUnrefFromMainloop) unNotebook (Notebook o) = o class ContainerClass o => NotebookClass o toNotebook :: NotebookClass o => o -> Notebook toNotebook = unsafeCastGObject . toGObject instance NotebookClass Notebook instance ContainerClass Notebook instance WidgetClass Notebook instance GObjectClass Notebook where toGObject = GObject . castForeignPtr . unNotebook unsafeCastGObject = Notebook . castForeignPtr . unGObject castToNotebook :: GObjectClass obj => obj -> Notebook castToNotebook = castTo gTypeNotebook "Notebook" gTypeNotebook :: GType gTypeNotebook = {# call fun unsafe gtk_notebook_get_type #} -- ********************************************************************** Table {#pointer *GtkTable as Table foreign newtype #} deriving (Eq,Ord) mkTable = (Table, objectUnrefFromMainloop) unTable (Table o) = o class ContainerClass o => TableClass o toTable :: TableClass o => o -> Table toTable = unsafeCastGObject . toGObject instance TableClass Table instance ContainerClass Table instance WidgetClass Table instance GObjectClass Table where toGObject = GObject . castForeignPtr . unTable unsafeCastGObject = Table . castForeignPtr . unGObject castToTable :: GObjectClass obj => obj -> Table castToTable = castTo gTypeTable "Table" gTypeTable :: GType gTypeTable = {# call fun unsafe gtk_table_get_type #} -- ******************************************************************* TextView {#pointer *GtkTextView as TextView foreign newtype #} deriving (Eq,Ord) mkTextView = (TextView, objectUnrefFromMainloop) unTextView (TextView o) = o class ContainerClass o => TextViewClass o toTextView :: TextViewClass o => o -> TextView toTextView = unsafeCastGObject . toGObject instance TextViewClass TextView instance ContainerClass TextView instance WidgetClass TextView instance GObjectClass TextView where toGObject = GObject . castForeignPtr . unTextView unsafeCastGObject = TextView . castForeignPtr . unGObject castToTextView :: GObjectClass obj => obj -> TextView castToTextView = castTo gTypeTextView "TextView" gTypeTextView :: GType gTypeTextView = {# call fun unsafe gtk_text_view_get_type #} -- ******************************************************************** Toolbar {#pointer *GtkToolbar as Toolbar foreign newtype #} deriving (Eq,Ord) mkToolbar = (Toolbar, objectUnrefFromMainloop) unToolbar (Toolbar o) = o class ContainerClass o => ToolbarClass o toToolbar :: ToolbarClass o => o -> Toolbar toToolbar = unsafeCastGObject . toGObject instance ToolbarClass Toolbar instance ContainerClass Toolbar instance WidgetClass Toolbar instance GObjectClass Toolbar where toGObject = GObject . castForeignPtr . unToolbar unsafeCastGObject = Toolbar . castForeignPtr . unGObject castToToolbar :: GObjectClass obj => obj -> Toolbar castToToolbar = castTo gTypeToolbar "Toolbar" gTypeToolbar :: GType gTypeToolbar = {# call fun unsafe gtk_toolbar_get_type #} -- ******************************************************************* TreeView {#pointer *GtkTreeView as TreeView foreign newtype #} deriving (Eq,Ord) mkTreeView = (TreeView, objectUnrefFromMainloop) unTreeView (TreeView o) = o class ContainerClass o => TreeViewClass o toTreeView :: TreeViewClass o => o -> TreeView toTreeView = unsafeCastGObject . toGObject instance TreeViewClass TreeView instance ContainerClass TreeView instance WidgetClass TreeView instance GObjectClass TreeView where toGObject = GObject . castForeignPtr . unTreeView unsafeCastGObject = TreeView . castForeignPtr . unGObject castToTreeView :: GObjectClass obj => obj -> TreeView castToTreeView = castTo gTypeTreeView "TreeView" gTypeTreeView :: GType gTypeTreeView = {# call fun unsafe gtk_tree_view_get_type #} -- ******************************************************************* Calendar {#pointer *GtkCalendar as Calendar foreign newtype #} deriving (Eq,Ord) mkCalendar = (Calendar, objectUnrefFromMainloop) unCalendar (Calendar o) = o class WidgetClass o => CalendarClass o toCalendar :: CalendarClass o => o -> Calendar toCalendar = unsafeCastGObject . toGObject instance CalendarClass Calendar instance WidgetClass Calendar instance GObjectClass Calendar where toGObject = GObject . castForeignPtr . unCalendar unsafeCastGObject = Calendar . castForeignPtr . unGObject castToCalendar :: GObjectClass obj => obj -> Calendar castToCalendar = castTo gTypeCalendar "Calendar" gTypeCalendar :: GType gTypeCalendar = {# call fun unsafe gtk_calendar_get_type #} -- ******************************************************************* CellView {#pointer *GtkCellView as CellView foreign newtype #} deriving (Eq,Ord) mkCellView = (CellView, objectUnrefFromMainloop) unCellView (CellView o) = o class WidgetClass o => CellViewClass o toCellView :: CellViewClass o => o -> CellView toCellView = unsafeCastGObject . toGObject instance CellViewClass CellView instance WidgetClass CellView instance GObjectClass CellView where toGObject = GObject . castForeignPtr . unCellView unsafeCastGObject = CellView . castForeignPtr . unGObject castToCellView :: GObjectClass obj => obj -> CellView castToCellView = castTo gTypeCellView "CellView" gTypeCellView :: GType gTypeCellView = {# call fun unsafe gtk_cell_view_get_type #} -- **************************************************************** DrawingArea {#pointer *GtkDrawingArea as DrawingArea foreign newtype #} deriving (Eq,Ord) mkDrawingArea = (DrawingArea, objectUnrefFromMainloop) unDrawingArea (DrawingArea o) = o class WidgetClass o => DrawingAreaClass o toDrawingArea :: DrawingAreaClass o => o -> DrawingArea toDrawingArea = unsafeCastGObject . toGObject instance DrawingAreaClass DrawingArea instance WidgetClass DrawingArea instance GObjectClass DrawingArea where toGObject = GObject . castForeignPtr . unDrawingArea unsafeCastGObject = DrawingArea . castForeignPtr . unGObject castToDrawingArea :: GObjectClass obj => obj -> DrawingArea castToDrawingArea = castTo gTypeDrawingArea "DrawingArea" gTypeDrawingArea :: GType gTypeDrawingArea = {# call fun unsafe gtk_drawing_area_get_type #} -- ******************************************************************** Spinner {#pointer *GtkSpinner as Spinner foreign newtype #} deriving (Eq,Ord) mkSpinner = (Spinner, objectUnrefFromMainloop) unSpinner (Spinner o) = o class DrawingAreaClass o => SpinnerClass o toSpinner :: SpinnerClass o => o -> Spinner toSpinner = unsafeCastGObject . toGObject instance SpinnerClass Spinner instance DrawingAreaClass Spinner instance WidgetClass Spinner instance GObjectClass Spinner where toGObject = GObject . castForeignPtr . unSpinner unsafeCastGObject = Spinner . castForeignPtr . unGObject castToSpinner :: GObjectClass obj => obj -> Spinner castToSpinner = castTo gTypeSpinner "Spinner" gTypeSpinner :: GType gTypeSpinner = {# call fun unsafe gtk_spinner_get_type #} -- ********************************************************************** Entry {#pointer *GtkEntry as Entry foreign newtype #} deriving (Eq,Ord) mkEntry = (Entry, objectUnrefFromMainloop) unEntry (Entry o) = o class WidgetClass o => EntryClass o toEntry :: EntryClass o => o -> Entry toEntry = unsafeCastGObject . toGObject instance EntryClass Entry instance WidgetClass Entry instance GObjectClass Entry where toGObject = GObject . castForeignPtr . unEntry unsafeCastGObject = Entry . castForeignPtr . unGObject castToEntry :: GObjectClass obj => obj -> Entry castToEntry = castTo gTypeEntry "Entry" gTypeEntry :: GType gTypeEntry = {# call fun unsafe gtk_entry_get_type #} -- ***************************************************************** SpinButton {#pointer *GtkSpinButton as SpinButton foreign newtype #} deriving (Eq,Ord) mkSpinButton = (SpinButton, objectUnrefFromMainloop) unSpinButton (SpinButton o) = o class EntryClass o => SpinButtonClass o toSpinButton :: SpinButtonClass o => o -> SpinButton toSpinButton = unsafeCastGObject . toGObject instance SpinButtonClass SpinButton instance EntryClass SpinButton instance WidgetClass SpinButton instance GObjectClass SpinButton where toGObject = GObject . castForeignPtr . unSpinButton unsafeCastGObject = SpinButton . castForeignPtr . unGObject castToSpinButton :: GObjectClass obj => obj -> SpinButton castToSpinButton = castTo gTypeSpinButton "SpinButton" gTypeSpinButton :: GType gTypeSpinButton = {# call fun unsafe gtk_spin_button_get_type #} -- ********************************************************************** Range {#pointer *GtkRange as Range foreign newtype #} deriving (Eq,Ord) mkRange = (Range, objectUnrefFromMainloop) unRange (Range o) = o class WidgetClass o => RangeClass o toRange :: RangeClass o => o -> Range toRange = unsafeCastGObject . toGObject instance RangeClass Range instance WidgetClass Range instance GObjectClass Range where toGObject = GObject . castForeignPtr . unRange unsafeCastGObject = Range . castForeignPtr . unGObject castToRange :: GObjectClass obj => obj -> Range castToRange = castTo gTypeRange "Range" gTypeRange :: GType gTypeRange = {# call fun unsafe gtk_range_get_type #} -- ********************************************************************** Scale {#pointer *GtkScale as Scale foreign newtype #} deriving (Eq,Ord) mkScale = (Scale, objectUnrefFromMainloop) unScale (Scale o) = o class RangeClass o => ScaleClass o toScale :: ScaleClass o => o -> Scale toScale = unsafeCastGObject . toGObject instance ScaleClass Scale instance RangeClass Scale instance WidgetClass Scale instance GObjectClass Scale where toGObject = GObject . castForeignPtr . unScale unsafeCastGObject = Scale . castForeignPtr . unGObject castToScale :: GObjectClass obj => obj -> Scale castToScale = castTo gTypeScale "Scale" gTypeScale :: GType gTypeScale = {# call fun unsafe gtk_scale_get_type #} -- ********************************************************************* HScale {#pointer *GtkHScale as HScale foreign newtype #} deriving (Eq,Ord) mkHScale = (HScale, objectUnrefFromMainloop) unHScale (HScale o) = o class ScaleClass o => HScaleClass o toHScale :: HScaleClass o => o -> HScale toHScale = unsafeCastGObject . toGObject instance HScaleClass HScale instance ScaleClass HScale instance RangeClass HScale instance WidgetClass HScale instance GObjectClass HScale where toGObject = GObject . castForeignPtr . unHScale unsafeCastGObject = HScale . castForeignPtr . unGObject castToHScale :: GObjectClass obj => obj -> HScale castToHScale = castTo gTypeHScale "HScale" gTypeHScale :: GType gTypeHScale = {# call fun unsafe gtk_hscale_get_type #} -- ********************************************************************* VScale {#pointer *GtkVScale as VScale foreign newtype #} deriving (Eq,Ord) mkVScale = (VScale, objectUnrefFromMainloop) unVScale (VScale o) = o class ScaleClass o => VScaleClass o toVScale :: VScaleClass o => o -> VScale toVScale = unsafeCastGObject . toGObject instance VScaleClass VScale instance ScaleClass VScale instance RangeClass VScale instance WidgetClass VScale instance GObjectClass VScale where toGObject = GObject . castForeignPtr . unVScale unsafeCastGObject = VScale . castForeignPtr . unGObject castToVScale :: GObjectClass obj => obj -> VScale castToVScale = castTo gTypeVScale "VScale" gTypeVScale :: GType gTypeVScale = {# call fun unsafe gtk_vscale_get_type #} -- ****************************************************************** Scrollbar {#pointer *GtkScrollbar as Scrollbar foreign newtype #} deriving (Eq,Ord) mkScrollbar = (Scrollbar, objectUnrefFromMainloop) unScrollbar (Scrollbar o) = o class RangeClass o => ScrollbarClass o toScrollbar :: ScrollbarClass o => o -> Scrollbar toScrollbar = unsafeCastGObject . toGObject instance ScrollbarClass Scrollbar instance RangeClass Scrollbar instance WidgetClass Scrollbar instance GObjectClass Scrollbar where toGObject = GObject . castForeignPtr . unScrollbar unsafeCastGObject = Scrollbar . castForeignPtr . unGObject castToScrollbar :: GObjectClass obj => obj -> Scrollbar castToScrollbar = castTo gTypeScrollbar "Scrollbar" gTypeScrollbar :: GType gTypeScrollbar = {# call fun unsafe gtk_scrollbar_get_type #} -- ***************************************************************** HScrollbar {#pointer *GtkHScrollbar as HScrollbar foreign newtype #} deriving (Eq,Ord) mkHScrollbar = (HScrollbar, objectUnrefFromMainloop) unHScrollbar (HScrollbar o) = o class ScrollbarClass o => HScrollbarClass o toHScrollbar :: HScrollbarClass o => o -> HScrollbar toHScrollbar = unsafeCastGObject . toGObject instance HScrollbarClass HScrollbar instance ScrollbarClass HScrollbar instance RangeClass HScrollbar instance WidgetClass HScrollbar instance GObjectClass HScrollbar where toGObject = GObject . castForeignPtr . unHScrollbar unsafeCastGObject = HScrollbar . castForeignPtr . unGObject castToHScrollbar :: GObjectClass obj => obj -> HScrollbar castToHScrollbar = castTo gTypeHScrollbar "HScrollbar" gTypeHScrollbar :: GType gTypeHScrollbar = {# call fun unsafe gtk_hscrollbar_get_type #} -- ***************************************************************** VScrollbar {#pointer *GtkVScrollbar as VScrollbar foreign newtype #} deriving (Eq,Ord) mkVScrollbar = (VScrollbar, objectUnrefFromMainloop) unVScrollbar (VScrollbar o) = o class ScrollbarClass o => VScrollbarClass o toVScrollbar :: VScrollbarClass o => o -> VScrollbar toVScrollbar = unsafeCastGObject . toGObject instance VScrollbarClass VScrollbar instance ScrollbarClass VScrollbar instance RangeClass VScrollbar instance WidgetClass VScrollbar instance GObjectClass VScrollbar where toGObject = GObject . castForeignPtr . unVScrollbar unsafeCastGObject = VScrollbar . castForeignPtr . unGObject castToVScrollbar :: GObjectClass obj => obj -> VScrollbar castToVScrollbar = castTo gTypeVScrollbar "VScrollbar" gTypeVScrollbar :: GType gTypeVScrollbar = {# call fun unsafe gtk_vscrollbar_get_type #} -- ****************************************************************** Separator {#pointer *GtkSeparator as Separator foreign newtype #} deriving (Eq,Ord) mkSeparator = (Separator, objectUnrefFromMainloop) unSeparator (Separator o) = o class WidgetClass o => SeparatorClass o toSeparator :: SeparatorClass o => o -> Separator toSeparator = unsafeCastGObject . toGObject instance SeparatorClass Separator instance WidgetClass Separator instance GObjectClass Separator where toGObject = GObject . castForeignPtr . unSeparator unsafeCastGObject = Separator . castForeignPtr . unGObject castToSeparator :: GObjectClass obj => obj -> Separator castToSeparator = castTo gTypeSeparator "Separator" gTypeSeparator :: GType gTypeSeparator = {# call fun unsafe gtk_separator_get_type #} -- ***************************************************************** HSeparator {#pointer *GtkHSeparator as HSeparator foreign newtype #} deriving (Eq,Ord) mkHSeparator = (HSeparator, objectUnrefFromMainloop) unHSeparator (HSeparator o) = o class SeparatorClass o => HSeparatorClass o toHSeparator :: HSeparatorClass o => o -> HSeparator toHSeparator = unsafeCastGObject . toGObject instance HSeparatorClass HSeparator instance SeparatorClass HSeparator instance WidgetClass HSeparator instance GObjectClass HSeparator where toGObject = GObject . castForeignPtr . unHSeparator unsafeCastGObject = HSeparator . castForeignPtr . unGObject castToHSeparator :: GObjectClass obj => obj -> HSeparator castToHSeparator = castTo gTypeHSeparator "HSeparator" gTypeHSeparator :: GType gTypeHSeparator = {# call fun unsafe gtk_hseparator_get_type #} -- ***************************************************************** VSeparator {#pointer *GtkVSeparator as VSeparator foreign newtype #} deriving (Eq,Ord) mkVSeparator = (VSeparator, objectUnrefFromMainloop) unVSeparator (VSeparator o) = o class SeparatorClass o => VSeparatorClass o toVSeparator :: VSeparatorClass o => o -> VSeparator toVSeparator = unsafeCastGObject . toGObject instance VSeparatorClass VSeparator instance SeparatorClass VSeparator instance WidgetClass VSeparator instance GObjectClass VSeparator where toGObject = GObject . castForeignPtr . unVSeparator unsafeCastGObject = VSeparator . castForeignPtr . unGObject castToVSeparator :: GObjectClass obj => obj -> VSeparator castToVSeparator = castTo gTypeVSeparator "VSeparator" gTypeVSeparator :: GType gTypeVSeparator = {# call fun unsafe gtk_vseparator_get_type #} -- ****************************************************************** Invisible {#pointer *GtkInvisible as Invisible foreign newtype #} deriving (Eq,Ord) mkInvisible = (Invisible, objectUnrefFromMainloop) unInvisible (Invisible o) = o class WidgetClass o => InvisibleClass o toInvisible :: InvisibleClass o => o -> Invisible toInvisible = unsafeCastGObject . toGObject instance InvisibleClass Invisible instance WidgetClass Invisible instance GObjectClass Invisible where toGObject = GObject . castForeignPtr . unInvisible unsafeCastGObject = Invisible . castForeignPtr . unGObject castToInvisible :: GObjectClass obj => obj -> Invisible castToInvisible = castTo gTypeInvisible "Invisible" gTypeInvisible :: GType gTypeInvisible = {# call fun unsafe gtk_invisible_get_type #} -- **************************************************************** ProgressBar {#pointer *GtkProgressBar as ProgressBar foreign newtype #} deriving (Eq,Ord) mkProgressBar = (ProgressBar, objectUnrefFromMainloop) unProgressBar (ProgressBar o) = o class WidgetClass o => ProgressBarClass o toProgressBar :: ProgressBarClass o => o -> ProgressBar toProgressBar = unsafeCastGObject . toGObject instance ProgressBarClass ProgressBar instance WidgetClass ProgressBar instance GObjectClass ProgressBar where toGObject = GObject . castForeignPtr . unProgressBar unsafeCastGObject = ProgressBar . castForeignPtr . unGObject castToProgressBar :: GObjectClass obj => obj -> ProgressBar castToProgressBar = castTo gTypeProgressBar "ProgressBar" gTypeProgressBar :: GType gTypeProgressBar = {# call fun unsafe gtk_progress_bar_get_type #} -- ***************************************************************** Adjustment {#pointer *GtkAdjustment as Adjustment foreign newtype #} deriving (Eq,Ord) mkAdjustment = (Adjustment, objectUnrefFromMainloop) unAdjustment (Adjustment o) = o class GObjectClass o => AdjustmentClass o toAdjustment :: AdjustmentClass o => o -> Adjustment toAdjustment = unsafeCastGObject . toGObject instance AdjustmentClass Adjustment instance GObjectClass Adjustment where toGObject = GObject . castForeignPtr . unAdjustment unsafeCastGObject = Adjustment . castForeignPtr . unGObject castToAdjustment :: GObjectClass obj => obj -> Adjustment castToAdjustment = castTo gTypeAdjustment "Adjustment" gTypeAdjustment :: GType gTypeAdjustment = {# call fun unsafe gtk_adjustment_get_type #} -- ****************************************************************** IMContext {#pointer *GtkIMContext as IMContext foreign newtype #} deriving (Eq,Ord) mkIMContext = (IMContext, objectUnrefFromMainloop) unIMContext (IMContext o) = o class GObjectClass o => IMContextClass o toIMContext :: IMContextClass o => o -> IMContext toIMContext = unsafeCastGObject . toGObject instance IMContextClass IMContext instance GObjectClass IMContext where toGObject = GObject . castForeignPtr . unIMContext unsafeCastGObject = IMContext . castForeignPtr . unGObject castToIMContext :: GObjectClass obj => obj -> IMContext castToIMContext = castTo gTypeIMContext "IMContext" gTypeIMContext :: GType gTypeIMContext = {# call fun unsafe gtk_im_context_get_type #} -- ************************************************************* IMMulticontext {#pointer *GtkIMMulticontext as IMMulticontext foreign newtype #} deriving (Eq,Ord) mkIMMulticontext = (IMMulticontext, objectUnrefFromMainloop) unIMMulticontext (IMMulticontext o) = o class IMContextClass o => IMMulticontextClass o toIMMulticontext :: IMMulticontextClass o => o -> IMMulticontext toIMMulticontext = unsafeCastGObject . toGObject instance IMMulticontextClass IMMulticontext instance IMContextClass IMMulticontext instance GObjectClass IMMulticontext where toGObject = GObject . castForeignPtr . unIMMulticontext unsafeCastGObject = IMMulticontext . castForeignPtr . unGObject castToIMMulticontext :: GObjectClass obj => obj -> IMMulticontext castToIMMulticontext = castTo gTypeIMMulticontext "IMMulticontext" gTypeIMMulticontext :: GType gTypeIMMulticontext = {# call fun unsafe gtk_im_multicontext_get_type #} -- ************************************************************ IMContextSimple {#pointer *GtkIMContextSimple as IMContextSimple foreign newtype #} deriving (Eq,Ord) mkIMContextSimple = (IMContextSimple, objectUnrefFromMainloop) unIMContextSimple (IMContextSimple o) = o class IMContextClass o => IMContextSimpleClass o toIMContextSimple :: IMContextSimpleClass o => o -> IMContextSimple toIMContextSimple = unsafeCastGObject . toGObject instance IMContextSimpleClass IMContextSimple instance IMContextClass IMContextSimple instance GObjectClass IMContextSimple where toGObject = GObject . castForeignPtr . unIMContextSimple unsafeCastGObject = IMContextSimple . castForeignPtr . unGObject castToIMContextSimple :: GObjectClass obj => obj -> IMContextSimple castToIMContextSimple = castTo gTypeIMContextSimple "IMContextSimple" gTypeIMContextSimple :: GType gTypeIMContextSimple = {# call fun unsafe gtk_im_context_simple_get_type #} -- ************************************************************* TreeViewColumn {#pointer *GtkTreeViewColumn as TreeViewColumn foreign newtype #} deriving (Eq,Ord) mkTreeViewColumn = (TreeViewColumn, objectUnrefFromMainloop) unTreeViewColumn (TreeViewColumn o) = o class GObjectClass o => TreeViewColumnClass o toTreeViewColumn :: TreeViewColumnClass o => o -> TreeViewColumn toTreeViewColumn = unsafeCastGObject . toGObject instance TreeViewColumnClass TreeViewColumn instance GObjectClass TreeViewColumn where toGObject = GObject . castForeignPtr . unTreeViewColumn unsafeCastGObject = TreeViewColumn . castForeignPtr . unGObject castToTreeViewColumn :: GObjectClass obj => obj -> TreeViewColumn castToTreeViewColumn = castTo gTypeTreeViewColumn "TreeViewColumn" gTypeTreeViewColumn :: GType gTypeTreeViewColumn = {# call fun unsafe gtk_tree_view_column_get_type #} -- *************************************************************** CellRenderer {#pointer *GtkCellRenderer as CellRenderer foreign newtype #} deriving (Eq,Ord) mkCellRenderer = (CellRenderer, objectUnrefFromMainloop) unCellRenderer (CellRenderer o) = o class GObjectClass o => CellRendererClass o toCellRenderer :: CellRendererClass o => o -> CellRenderer toCellRenderer = unsafeCastGObject . toGObject instance CellRendererClass CellRenderer instance GObjectClass CellRenderer where toGObject = GObject . castForeignPtr . unCellRenderer unsafeCastGObject = CellRenderer . castForeignPtr . unGObject castToCellRenderer :: GObjectClass obj => obj -> CellRenderer castToCellRenderer = castTo gTypeCellRenderer "CellRenderer" gTypeCellRenderer :: GType gTypeCellRenderer = {# call fun unsafe gtk_cell_renderer_get_type #} -- ******************************************************** CellRendererSpinner {#pointer *GtkCellRendererSpinner as CellRendererSpinner foreign newtype #} deriving (Eq,Ord) mkCellRendererSpinner = (CellRendererSpinner, objectUnrefFromMainloop) unCellRendererSpinner (CellRendererSpinner o) = o class CellRendererClass o => CellRendererSpinnerClass o toCellRendererSpinner :: CellRendererSpinnerClass o => o -> CellRendererSpinner toCellRendererSpinner = unsafeCastGObject . toGObject instance CellRendererSpinnerClass CellRendererSpinner instance CellRendererClass CellRendererSpinner instance GObjectClass CellRendererSpinner where toGObject = GObject . castForeignPtr . unCellRendererSpinner unsafeCastGObject = CellRendererSpinner . castForeignPtr . unGObject castToCellRendererSpinner :: GObjectClass obj => obj -> CellRendererSpinner castToCellRendererSpinner = castTo gTypeCellRendererSpinner "CellRendererSpinner" gTypeCellRendererSpinner :: GType gTypeCellRendererSpinner = {# call fun unsafe gtk_cell_renderer_spinner_get_type #} -- ********************************************************* CellRendererPixbuf {#pointer *GtkCellRendererPixbuf as CellRendererPixbuf foreign newtype #} deriving (Eq,Ord) mkCellRendererPixbuf = (CellRendererPixbuf, objectUnrefFromMainloop) unCellRendererPixbuf (CellRendererPixbuf o) = o class CellRendererClass o => CellRendererPixbufClass o toCellRendererPixbuf :: CellRendererPixbufClass o => o -> CellRendererPixbuf toCellRendererPixbuf = unsafeCastGObject . toGObject instance CellRendererPixbufClass CellRendererPixbuf instance CellRendererClass CellRendererPixbuf instance GObjectClass CellRendererPixbuf where toGObject = GObject . castForeignPtr . unCellRendererPixbuf unsafeCastGObject = CellRendererPixbuf . castForeignPtr . unGObject castToCellRendererPixbuf :: GObjectClass obj => obj -> CellRendererPixbuf castToCellRendererPixbuf = castTo gTypeCellRendererPixbuf "CellRendererPixbuf" gTypeCellRendererPixbuf :: GType gTypeCellRendererPixbuf = {# call fun unsafe gtk_cell_renderer_pixbuf_get_type #} -- *********************************************************** CellRendererText {#pointer *GtkCellRendererText as CellRendererText foreign newtype #} deriving (Eq,Ord) mkCellRendererText = (CellRendererText, objectUnrefFromMainloop) unCellRendererText (CellRendererText o) = o class CellRendererClass o => CellRendererTextClass o toCellRendererText :: CellRendererTextClass o => o -> CellRendererText toCellRendererText = unsafeCastGObject . toGObject instance CellRendererTextClass CellRendererText instance CellRendererClass CellRendererText instance GObjectClass CellRendererText where toGObject = GObject . castForeignPtr . unCellRendererText unsafeCastGObject = CellRendererText . castForeignPtr . unGObject castToCellRendererText :: GObjectClass obj => obj -> CellRendererText castToCellRendererText = castTo gTypeCellRendererText "CellRendererText" gTypeCellRendererText :: GType gTypeCellRendererText = {# call fun unsafe gtk_cell_renderer_text_get_type #} -- ********************************************************** CellRendererAccel {#pointer *GtkCellRendererAccel as CellRendererAccel foreign newtype #} deriving (Eq,Ord) mkCellRendererAccel = (CellRendererAccel, objectUnrefFromMainloop) unCellRendererAccel (CellRendererAccel o) = o class CellRendererTextClass o => CellRendererAccelClass o toCellRendererAccel :: CellRendererAccelClass o => o -> CellRendererAccel toCellRendererAccel = unsafeCastGObject . toGObject instance CellRendererAccelClass CellRendererAccel instance CellRendererTextClass CellRendererAccel instance CellRendererClass CellRendererAccel instance GObjectClass CellRendererAccel where toGObject = GObject . castForeignPtr . unCellRendererAccel unsafeCastGObject = CellRendererAccel . castForeignPtr . unGObject castToCellRendererAccel :: GObjectClass obj => obj -> CellRendererAccel castToCellRendererAccel = castTo gTypeCellRendererAccel "CellRendererAccel" gTypeCellRendererAccel :: GType gTypeCellRendererAccel = {# call fun unsafe gtk_cell_renderer_accel_get_type #} -- *********************************************************** CellRendererSpin {#pointer *GtkCellRendererSpin as CellRendererSpin foreign newtype #} deriving (Eq,Ord) mkCellRendererSpin = (CellRendererSpin, objectUnrefFromMainloop) unCellRendererSpin (CellRendererSpin o) = o class CellRendererTextClass o => CellRendererSpinClass o toCellRendererSpin :: CellRendererSpinClass o => o -> CellRendererSpin toCellRendererSpin = unsafeCastGObject . toGObject instance CellRendererSpinClass CellRendererSpin instance CellRendererTextClass CellRendererSpin instance CellRendererClass CellRendererSpin instance GObjectClass CellRendererSpin where toGObject = GObject . castForeignPtr . unCellRendererSpin unsafeCastGObject = CellRendererSpin . castForeignPtr . unGObject castToCellRendererSpin :: GObjectClass obj => obj -> CellRendererSpin castToCellRendererSpin = castTo gTypeCellRendererSpin "CellRendererSpin" gTypeCellRendererSpin :: GType gTypeCellRendererSpin = {# call fun unsafe gtk_cell_renderer_spin_get_type #} -- ********************************************************** CellRendererCombo {#pointer *GtkCellRendererCombo as CellRendererCombo foreign newtype #} deriving (Eq,Ord) mkCellRendererCombo = (CellRendererCombo, objectUnrefFromMainloop) unCellRendererCombo (CellRendererCombo o) = o class CellRendererTextClass o => CellRendererComboClass o toCellRendererCombo :: CellRendererComboClass o => o -> CellRendererCombo toCellRendererCombo = unsafeCastGObject . toGObject instance CellRendererComboClass CellRendererCombo instance CellRendererTextClass CellRendererCombo instance CellRendererClass CellRendererCombo instance GObjectClass CellRendererCombo where toGObject = GObject . castForeignPtr . unCellRendererCombo unsafeCastGObject = CellRendererCombo . castForeignPtr . unGObject castToCellRendererCombo :: GObjectClass obj => obj -> CellRendererCombo castToCellRendererCombo = castTo gTypeCellRendererCombo "CellRendererCombo" gTypeCellRendererCombo :: GType gTypeCellRendererCombo = {# call fun unsafe gtk_cell_renderer_combo_get_type #} -- ********************************************************* CellRendererToggle {#pointer *GtkCellRendererToggle as CellRendererToggle foreign newtype #} deriving (Eq,Ord) mkCellRendererToggle = (CellRendererToggle, objectUnrefFromMainloop) unCellRendererToggle (CellRendererToggle o) = o class CellRendererClass o => CellRendererToggleClass o toCellRendererToggle :: CellRendererToggleClass o => o -> CellRendererToggle toCellRendererToggle = unsafeCastGObject . toGObject instance CellRendererToggleClass CellRendererToggle instance CellRendererClass CellRendererToggle instance GObjectClass CellRendererToggle where toGObject = GObject . castForeignPtr . unCellRendererToggle unsafeCastGObject = CellRendererToggle . castForeignPtr . unGObject castToCellRendererToggle :: GObjectClass obj => obj -> CellRendererToggle castToCellRendererToggle = castTo gTypeCellRendererToggle "CellRendererToggle" gTypeCellRendererToggle :: GType gTypeCellRendererToggle = {# call fun unsafe gtk_cell_renderer_toggle_get_type #} -- ******************************************************* CellRendererProgress {#pointer *GtkCellRendererProgress as CellRendererProgress foreign newtype #} deriving (Eq,Ord) mkCellRendererProgress = (CellRendererProgress, objectUnrefFromMainloop) unCellRendererProgress (CellRendererProgress o) = o class CellRendererClass o => CellRendererProgressClass o toCellRendererProgress :: CellRendererProgressClass o => o -> CellRendererProgress toCellRendererProgress = unsafeCastGObject . toGObject instance CellRendererProgressClass CellRendererProgress instance CellRendererClass CellRendererProgress instance GObjectClass CellRendererProgress where toGObject = GObject . castForeignPtr . unCellRendererProgress unsafeCastGObject = CellRendererProgress . castForeignPtr . unGObject castToCellRendererProgress :: GObjectClass obj => obj -> CellRendererProgress castToCellRendererProgress = castTo gTypeCellRendererProgress "CellRendererProgress" gTypeCellRendererProgress :: GType gTypeCellRendererProgress = {# call fun unsafe gtk_cell_renderer_progress_get_type #} -- ***************************************************************** FileFilter {#pointer *GtkFileFilter as FileFilter foreign newtype #} deriving (Eq,Ord) mkFileFilter = (FileFilter, objectUnrefFromMainloop) unFileFilter (FileFilter o) = o class GObjectClass o => FileFilterClass o toFileFilter :: FileFilterClass o => o -> FileFilter toFileFilter = unsafeCastGObject . toGObject instance FileFilterClass FileFilter instance GObjectClass FileFilter where toGObject = GObject . castForeignPtr . unFileFilter unsafeCastGObject = FileFilter . castForeignPtr . unGObject castToFileFilter :: GObjectClass obj => obj -> FileFilter castToFileFilter = castTo gTypeFileFilter "FileFilter" gTypeFileFilter :: GType gTypeFileFilter = {# call fun unsafe gtk_file_filter_get_type #} -- ******************************************************************** Builder {#pointer *GtkBuilder as Builder foreign newtype #} deriving (Eq,Ord) mkBuilder = (Builder, objectUnrefFromMainloop) unBuilder (Builder o) = o class GObjectClass o => BuilderClass o toBuilder :: BuilderClass o => o -> Builder toBuilder = unsafeCastGObject . toGObject instance BuilderClass Builder instance GObjectClass Builder where toGObject = GObject . castForeignPtr . unBuilder unsafeCastGObject = Builder . castForeignPtr . unGObject castToBuilder :: GObjectClass obj => obj -> Builder castToBuilder = castTo gTypeBuilder "Builder" gTypeBuilder :: GType gTypeBuilder = {# call fun unsafe gtk_builder_get_type #} -- *************************************************************** StyleContext {#pointer *GtkStyleContext as StyleContext foreign newtype #} deriving (Eq,Ord) mkStyleContext = (StyleContext, objectUnrefFromMainloop) unStyleContext (StyleContext o) = o class GObjectClass o => StyleContextClass o toStyleContext :: StyleContextClass o => o -> StyleContext toStyleContext = unsafeCastGObject . toGObject instance StyleContextClass StyleContext instance GObjectClass StyleContext where toGObject = GObject . castForeignPtr . unStyleContext unsafeCastGObject = StyleContext . castForeignPtr . unGObject castToStyleContext :: GObjectClass obj => obj -> StyleContext castToStyleContext = castTo gTypeStyleContext "StyleContext" gTypeStyleContext :: GType gTypeStyleContext = {# call fun unsafe gtk_style_context_get_type #} -- ************************************************************** StyleProvider {#pointer *GtkStyleProvider as StyleProvider foreign newtype #} deriving (Eq,Ord) mkStyleProvider = (StyleProvider, objectUnrefFromMainloop) unStyleProvider (StyleProvider o) = o class GObjectClass o => StyleProviderClass o toStyleProvider :: StyleProviderClass o => o -> StyleProvider toStyleProvider = unsafeCastGObject . toGObject instance StyleProviderClass StyleProvider instance GObjectClass StyleProvider where toGObject = GObject . castForeignPtr . unStyleProvider unsafeCastGObject = StyleProvider . castForeignPtr . unGObject castToStyleProvider :: GObjectClass obj => obj -> StyleProvider castToStyleProvider = castTo gTypeStyleProvider "StyleProvider" gTypeStyleProvider :: GType gTypeStyleProvider = {# call fun unsafe gtk_style_provider_get_type #} -- **************************************************************** CssProvider {#pointer *GtkCssProvider as CssProvider foreign newtype #} deriving (Eq,Ord) mkCssProvider = (CssProvider, objectUnrefFromMainloop) unCssProvider (CssProvider o) = o class GObjectClass o => CssProviderClass o toCssProvider :: CssProviderClass o => o -> CssProvider toCssProvider = unsafeCastGObject . toGObject instance CssProviderClass CssProvider instance GObjectClass CssProvider where toGObject = GObject . castForeignPtr . unCssProvider unsafeCastGObject = CssProvider . castForeignPtr . unGObject castToCssProvider :: GObjectClass obj => obj -> CssProvider castToCssProvider = castTo gTypeCssProvider "CssProvider" gTypeCssProvider :: GType gTypeCssProvider = {# call fun unsafe gtk_css_provider_get_type #} -- ***************************************************************** CellLayout {#pointer *GtkCellLayout as CellLayout foreign newtype #} deriving (Eq,Ord) mkCellLayout = (CellLayout, objectUnrefFromMainloop) unCellLayout (CellLayout o) = o class GObjectClass o => CellLayoutClass o toCellLayout :: CellLayoutClass o => o -> CellLayout toCellLayout = unsafeCastGObject . toGObject instance CellLayoutClass CellLayout instance GObjectClass CellLayout where toGObject = GObject . castForeignPtr . unCellLayout unsafeCastGObject = CellLayout . castForeignPtr . unGObject castToCellLayout :: GObjectClass obj => obj -> CellLayout castToCellLayout = castTo gTypeCellLayout "CellLayout" gTypeCellLayout :: GType gTypeCellLayout = {# call fun unsafe gtk_cell_layout_get_type #} -- *************************************************************** TreeSortable {#pointer *GtkTreeSortable as TreeSortable foreign newtype #} deriving (Eq,Ord) mkTreeSortable = (TreeSortable, objectUnrefFromMainloop) unTreeSortable (TreeSortable o) = o class GObjectClass o => TreeSortableClass o toTreeSortable :: TreeSortableClass o => o -> TreeSortable toTreeSortable = unsafeCastGObject . toGObject instance TreeSortableClass TreeSortable instance GObjectClass TreeSortable where toGObject = GObject . castForeignPtr . unTreeSortable unsafeCastGObject = TreeSortable . castForeignPtr . unGObject castToTreeSortable :: GObjectClass obj => obj -> TreeSortable castToTreeSortable = castTo gTypeTreeSortable "TreeSortable" gTypeTreeSortable :: GType gTypeTreeSortable = {# call fun unsafe gtk_tree_sortable_get_type #} -- ******************************************************************** Tooltip {#pointer *GtkTooltip as Tooltip foreign newtype #} deriving (Eq,Ord) mkTooltip = (Tooltip, objectUnrefFromMainloop) unTooltip (Tooltip o) = o class GObjectClass o => TooltipClass o toTooltip :: TooltipClass o => o -> Tooltip toTooltip = unsafeCastGObject . toGObject instance TooltipClass Tooltip instance GObjectClass Tooltip where toGObject = GObject . castForeignPtr . unTooltip unsafeCastGObject = Tooltip . castForeignPtr . unGObject castToTooltip :: GObjectClass obj => obj -> Tooltip castToTooltip = castTo gTypeTooltip "Tooltip" gTypeTooltip :: GType gTypeTooltip = {# call fun unsafe gtk_tooltip_get_type #} -- ***************************************************************** StatusIcon {#pointer *GtkStatusIcon as StatusIcon foreign newtype #} deriving (Eq,Ord) mkStatusIcon = (StatusIcon, objectUnrefFromMainloop) unStatusIcon (StatusIcon o) = o class TooltipClass o => StatusIconClass o toStatusIcon :: StatusIconClass o => o -> StatusIcon toStatusIcon = unsafeCastGObject . toGObject instance StatusIconClass StatusIcon instance TooltipClass StatusIcon instance GObjectClass StatusIcon where toGObject = GObject . castForeignPtr . unStatusIcon unsafeCastGObject = StatusIcon . castForeignPtr . unGObject castToStatusIcon :: GObjectClass obj => obj -> StatusIcon castToStatusIcon = castTo gTypeStatusIcon "StatusIcon" gTypeStatusIcon :: GType gTypeStatusIcon = {# call fun unsafe gtk_status_icon_get_type #} -- ************************************************************** TreeSelection {#pointer *GtkTreeSelection as TreeSelection foreign newtype #} deriving (Eq,Ord) mkTreeSelection = (TreeSelection, objectUnrefFromMainloop) unTreeSelection (TreeSelection o) = o class GObjectClass o => TreeSelectionClass o toTreeSelection :: TreeSelectionClass o => o -> TreeSelection toTreeSelection = unsafeCastGObject . toGObject instance TreeSelectionClass TreeSelection instance GObjectClass TreeSelection where toGObject = GObject . castForeignPtr . unTreeSelection unsafeCastGObject = TreeSelection . castForeignPtr . unGObject castToTreeSelection :: GObjectClass obj => obj -> TreeSelection castToTreeSelection = castTo gTypeTreeSelection "TreeSelection" gTypeTreeSelection :: GType gTypeTreeSelection = {# call fun unsafe gtk_tree_selection_get_type #} -- ****************************************************************** TreeModel {#pointer *GtkTreeModel as TreeModel foreign newtype #} deriving (Eq,Ord) mkTreeModel = (TreeModel, objectUnrefFromMainloop) unTreeModel (TreeModel o) = o class GObjectClass o => TreeModelClass o toTreeModel :: TreeModelClass o => o -> TreeModel toTreeModel = unsafeCastGObject . toGObject instance TreeModelClass TreeModel instance GObjectClass TreeModel where toGObject = GObject . castForeignPtr . unTreeModel unsafeCastGObject = TreeModel . castForeignPtr . unGObject castToTreeModel :: GObjectClass obj => obj -> TreeModel castToTreeModel = castTo gTypeTreeModel "TreeModel" gTypeTreeModel :: GType gTypeTreeModel = {# call fun unsafe gtk_tree_model_get_type #} -- ****************************************************************** TreeStore {#pointer *GtkTreeStore as TreeStore foreign newtype #} deriving (Eq,Ord) mkTreeStore = (TreeStore, objectUnrefFromMainloop) unTreeStore (TreeStore o) = o class TreeModelClass o => TreeStoreClass o toTreeStore :: TreeStoreClass o => o -> TreeStore toTreeStore = unsafeCastGObject . toGObject instance TreeStoreClass TreeStore instance TreeModelClass TreeStore instance GObjectClass TreeStore where toGObject = GObject . castForeignPtr . unTreeStore unsafeCastGObject = TreeStore . castForeignPtr . unGObject castToTreeStore :: GObjectClass obj => obj -> TreeStore castToTreeStore = castTo gTypeTreeStore "TreeStore" gTypeTreeStore :: GType gTypeTreeStore = {# call fun unsafe gtk_tree_store_get_type #} -- ****************************************************************** ListStore {#pointer *GtkListStore as ListStore foreign newtype #} deriving (Eq,Ord) mkListStore = (ListStore, objectUnrefFromMainloop) unListStore (ListStore o) = o class TreeModelClass o => ListStoreClass o toListStore :: ListStoreClass o => o -> ListStore toListStore = unsafeCastGObject . toGObject instance ListStoreClass ListStore instance TreeModelClass ListStore instance GObjectClass ListStore where toGObject = GObject . castForeignPtr . unListStore unsafeCastGObject = ListStore . castForeignPtr . unGObject castToListStore :: GObjectClass obj => obj -> ListStore castToListStore = castTo gTypeListStore "ListStore" gTypeListStore :: GType gTypeListStore = {# call fun unsafe gtk_list_store_get_type #} -- ************************************************************** TreeModelSort {#pointer *GtkTreeModelSort as TreeModelSort foreign newtype #} deriving (Eq,Ord) mkTreeModelSort = (TreeModelSort, objectUnrefFromMainloop) unTreeModelSort (TreeModelSort o) = o class GObjectClass o => TreeModelSortClass o toTreeModelSort :: TreeModelSortClass o => o -> TreeModelSort toTreeModelSort = unsafeCastGObject . toGObject instance TreeModelSortClass TreeModelSort instance GObjectClass TreeModelSort where toGObject = GObject . castForeignPtr . unTreeModelSort unsafeCastGObject = TreeModelSort . castForeignPtr . unGObject castToTreeModelSort :: GObjectClass obj => obj -> TreeModelSort castToTreeModelSort = castTo gTypeTreeModelSort "TreeModelSort" gTypeTreeModelSort :: GType gTypeTreeModelSort = {# call fun unsafe gtk_tree_model_sort_get_type #} -- ************************************************************ TreeModelFilter {#pointer *GtkTreeModelFilter as TreeModelFilter foreign newtype #} deriving (Eq,Ord) mkTreeModelFilter = (TreeModelFilter, objectUnrefFromMainloop) unTreeModelFilter (TreeModelFilter o) = o class GObjectClass o => TreeModelFilterClass o toTreeModelFilter :: TreeModelFilterClass o => o -> TreeModelFilter toTreeModelFilter = unsafeCastGObject . toGObject instance TreeModelFilterClass TreeModelFilter instance GObjectClass TreeModelFilter where toGObject = GObject . castForeignPtr . unTreeModelFilter unsafeCastGObject = TreeModelFilter . castForeignPtr . unGObject castToTreeModelFilter :: GObjectClass obj => obj -> TreeModelFilter castToTreeModelFilter = castTo gTypeTreeModelFilter "TreeModelFilter" gTypeTreeModelFilter :: GType gTypeTreeModelFilter = {# call fun unsafe gtk_tree_model_filter_get_type #} -- **************************************************************** IconFactory {#pointer *GtkIconFactory as IconFactory foreign newtype #} deriving (Eq,Ord) mkIconFactory = (IconFactory, objectUnrefFromMainloop) unIconFactory (IconFactory o) = o class GObjectClass o => IconFactoryClass o toIconFactory :: IconFactoryClass o => o -> IconFactory toIconFactory = unsafeCastGObject . toGObject instance IconFactoryClass IconFactory instance GObjectClass IconFactory where toGObject = GObject . castForeignPtr . unIconFactory unsafeCastGObject = IconFactory . castForeignPtr . unGObject castToIconFactory :: GObjectClass obj => obj -> IconFactory castToIconFactory = castTo gTypeIconFactory "IconFactory" gTypeIconFactory :: GType gTypeIconFactory = {# call fun unsafe gtk_icon_factory_get_type #} -- ****************************************************************** IconTheme {#pointer *GtkIconTheme as IconTheme foreign newtype #} deriving (Eq,Ord) mkIconTheme = (IconTheme, objectUnrefFromMainloop) unIconTheme (IconTheme o) = o class GObjectClass o => IconThemeClass o toIconTheme :: IconThemeClass o => o -> IconTheme toIconTheme = unsafeCastGObject . toGObject instance IconThemeClass IconTheme instance GObjectClass IconTheme where toGObject = GObject . castForeignPtr . unIconTheme unsafeCastGObject = IconTheme . castForeignPtr . unGObject castToIconTheme :: GObjectClass obj => obj -> IconTheme castToIconTheme = castTo gTypeIconTheme "IconTheme" gTypeIconTheme :: GType gTypeIconTheme = {# call fun unsafe gtk_icon_theme_get_type #} -- ****************************************************************** SizeGroup {#pointer *GtkSizeGroup as SizeGroup foreign newtype #} deriving (Eq,Ord) mkSizeGroup = (SizeGroup, objectUnrefFromMainloop) unSizeGroup (SizeGroup o) = o class GObjectClass o => SizeGroupClass o toSizeGroup :: SizeGroupClass o => o -> SizeGroup toSizeGroup = unsafeCastGObject . toGObject instance SizeGroupClass SizeGroup instance GObjectClass SizeGroup where toGObject = GObject . castForeignPtr . unSizeGroup unsafeCastGObject = SizeGroup . castForeignPtr . unGObject castToSizeGroup :: GObjectClass obj => obj -> SizeGroup castToSizeGroup = castTo gTypeSizeGroup "SizeGroup" gTypeSizeGroup :: GType gTypeSizeGroup = {# call fun unsafe gtk_size_group_get_type #} -- ****************************************************************** Clipboard {#pointer *GtkClipboard as Clipboard foreign newtype #} deriving (Eq,Ord) mkClipboard = (Clipboard, objectUnrefFromMainloop) unClipboard (Clipboard o) = o class GObjectClass o => ClipboardClass o toClipboard :: ClipboardClass o => o -> Clipboard toClipboard = unsafeCastGObject . toGObject instance ClipboardClass Clipboard instance GObjectClass Clipboard where toGObject = GObject . castForeignPtr . unClipboard unsafeCastGObject = Clipboard . castForeignPtr . unGObject castToClipboard :: GObjectClass obj => obj -> Clipboard castToClipboard = castTo gTypeClipboard "Clipboard" gTypeClipboard :: GType gTypeClipboard = {# call fun unsafe gtk_clipboard_get_type #} -- ***************************************************************** AccelGroup {#pointer *GtkAccelGroup as AccelGroup foreign newtype #} deriving (Eq,Ord) mkAccelGroup = (AccelGroup, objectUnrefFromMainloop) unAccelGroup (AccelGroup o) = o class GObjectClass o => AccelGroupClass o toAccelGroup :: AccelGroupClass o => o -> AccelGroup toAccelGroup = unsafeCastGObject . toGObject instance AccelGroupClass AccelGroup instance GObjectClass AccelGroup where toGObject = GObject . castForeignPtr . unAccelGroup unsafeCastGObject = AccelGroup . castForeignPtr . unGObject castToAccelGroup :: GObjectClass obj => obj -> AccelGroup castToAccelGroup = castTo gTypeAccelGroup "AccelGroup" gTypeAccelGroup :: GType gTypeAccelGroup = {# call fun unsafe gtk_accel_group_get_type #} -- ******************************************************************* AccelMap {#pointer *GtkAccelMap as AccelMap foreign newtype #} deriving (Eq,Ord) mkAccelMap = (AccelMap, objectUnrefFromMainloop) unAccelMap (AccelMap o) = o class GObjectClass o => AccelMapClass o toAccelMap :: AccelMapClass o => o -> AccelMap toAccelMap = unsafeCastGObject . toGObject instance AccelMapClass AccelMap instance GObjectClass AccelMap where toGObject = GObject . castForeignPtr . unAccelMap unsafeCastGObject = AccelMap . castForeignPtr . unGObject castToAccelMap :: GObjectClass obj => obj -> AccelMap castToAccelMap = castTo gTypeAccelMap "AccelMap" gTypeAccelMap :: GType gTypeAccelMap = {# call fun unsafe gtk_accel_map_get_type #} -- ************************************************************ EntryCompletion {#pointer *GtkEntryCompletion as EntryCompletion foreign newtype #} deriving (Eq,Ord) mkEntryCompletion = (EntryCompletion, objectUnrefFromMainloop) unEntryCompletion (EntryCompletion o) = o class GObjectClass o => EntryCompletionClass o toEntryCompletion :: EntryCompletionClass o => o -> EntryCompletion toEntryCompletion = unsafeCastGObject . toGObject instance EntryCompletionClass EntryCompletion instance GObjectClass EntryCompletion where toGObject = GObject . castForeignPtr . unEntryCompletion unsafeCastGObject = EntryCompletion . castForeignPtr . unGObject castToEntryCompletion :: GObjectClass obj => obj -> EntryCompletion castToEntryCompletion = castTo gTypeEntryCompletion "EntryCompletion" gTypeEntryCompletion :: GType gTypeEntryCompletion = {# call fun unsafe gtk_entry_completion_get_type #} -- **************************************************************** EntryBuffer {#pointer *GtkEntryBuffer as EntryBuffer foreign newtype #} deriving (Eq,Ord) mkEntryBuffer = (EntryBuffer, objectUnrefFromMainloop) unEntryBuffer (EntryBuffer o) = o class GObjectClass o => EntryBufferClass o toEntryBuffer :: EntryBufferClass o => o -> EntryBuffer toEntryBuffer = unsafeCastGObject . toGObject instance EntryBufferClass EntryBuffer instance GObjectClass EntryBuffer where toGObject = GObject . castForeignPtr . unEntryBuffer unsafeCastGObject = EntryBuffer . castForeignPtr . unGObject castToEntryBuffer :: GObjectClass obj => obj -> EntryBuffer castToEntryBuffer = castTo gTypeEntryBuffer "EntryBuffer" gTypeEntryBuffer :: GType gTypeEntryBuffer = {# call fun unsafe gtk_entry_buffer_get_type #} -- ********************************************************************* Action {#pointer *GtkAction as Action foreign newtype #} deriving (Eq,Ord) mkAction = (Action, objectUnrefFromMainloop) unAction (Action o) = o class GObjectClass o => ActionClass o toAction :: ActionClass o => o -> Action toAction = unsafeCastGObject . toGObject instance ActionClass Action instance GObjectClass Action where toGObject = GObject . castForeignPtr . unAction unsafeCastGObject = Action . castForeignPtr . unGObject castToAction :: GObjectClass obj => obj -> Action castToAction = castTo gTypeAction "Action" gTypeAction :: GType gTypeAction = {# call fun unsafe gtk_action_get_type #} -- *************************************************************** RecentAction {#pointer *GtkRecentAction as RecentAction foreign newtype #} deriving (Eq,Ord) mkRecentAction = (RecentAction, objectUnrefFromMainloop) unRecentAction (RecentAction o) = o class ActionClass o => RecentActionClass o toRecentAction :: RecentActionClass o => o -> RecentAction toRecentAction = unsafeCastGObject . toGObject instance RecentActionClass RecentAction instance ActionClass RecentAction instance GObjectClass RecentAction where toGObject = GObject . castForeignPtr . unRecentAction unsafeCastGObject = RecentAction . castForeignPtr . unGObject castToRecentAction :: GObjectClass obj => obj -> RecentAction castToRecentAction = castTo gTypeRecentAction "RecentAction" gTypeRecentAction :: GType gTypeRecentAction = {# call fun unsafe gtk_recent_action_get_type #} -- *************************************************************** ToggleAction {#pointer *GtkToggleAction as ToggleAction foreign newtype #} deriving (Eq,Ord) mkToggleAction = (ToggleAction, objectUnrefFromMainloop) unToggleAction (ToggleAction o) = o class ActionClass o => ToggleActionClass o toToggleAction :: ToggleActionClass o => o -> ToggleAction toToggleAction = unsafeCastGObject . toGObject instance ToggleActionClass ToggleAction instance ActionClass ToggleAction instance GObjectClass ToggleAction where toGObject = GObject . castForeignPtr . unToggleAction unsafeCastGObject = ToggleAction . castForeignPtr . unGObject castToToggleAction :: GObjectClass obj => obj -> ToggleAction castToToggleAction = castTo gTypeToggleAction "ToggleAction" gTypeToggleAction :: GType gTypeToggleAction = {# call fun unsafe gtk_toggle_action_get_type #} -- **************************************************************** RadioAction {#pointer *GtkRadioAction as RadioAction foreign newtype #} deriving (Eq,Ord) mkRadioAction = (RadioAction, objectUnrefFromMainloop) unRadioAction (RadioAction o) = o class ToggleActionClass o => RadioActionClass o toRadioAction :: RadioActionClass o => o -> RadioAction toRadioAction = unsafeCastGObject . toGObject instance RadioActionClass RadioAction instance ToggleActionClass RadioAction instance ActionClass RadioAction instance GObjectClass RadioAction where toGObject = GObject . castForeignPtr . unRadioAction unsafeCastGObject = RadioAction . castForeignPtr . unGObject castToRadioAction :: GObjectClass obj => obj -> RadioAction castToRadioAction = castTo gTypeRadioAction "RadioAction" gTypeRadioAction :: GType gTypeRadioAction = {# call fun unsafe gtk_radio_action_get_type #} -- **************************************************************** ActionGroup {#pointer *GtkActionGroup as ActionGroup foreign newtype #} deriving (Eq,Ord) mkActionGroup = (ActionGroup, objectUnrefFromMainloop) unActionGroup (ActionGroup o) = o class GObjectClass o => ActionGroupClass o toActionGroup :: ActionGroupClass o => o -> ActionGroup toActionGroup = unsafeCastGObject . toGObject instance ActionGroupClass ActionGroup instance GObjectClass ActionGroup where toGObject = GObject . castForeignPtr . unActionGroup unsafeCastGObject = ActionGroup . castForeignPtr . unGObject castToActionGroup :: GObjectClass obj => obj -> ActionGroup castToActionGroup = castTo gTypeActionGroup "ActionGroup" gTypeActionGroup :: GType gTypeActionGroup = {# call fun unsafe gtk_action_group_get_type #} -- ****************************************************************** UIManager {#pointer *GtkUIManager as UIManager foreign newtype #} deriving (Eq,Ord) mkUIManager = (UIManager, objectUnrefFromMainloop) unUIManager (UIManager o) = o class GObjectClass o => UIManagerClass o toUIManager :: UIManagerClass o => o -> UIManager toUIManager = unsafeCastGObject . toGObject instance UIManagerClass UIManager instance GObjectClass UIManager where toGObject = GObject . castForeignPtr . unUIManager unsafeCastGObject = UIManager . castForeignPtr . unGObject castToUIManager :: GObjectClass obj => obj -> UIManager castToUIManager = castTo gTypeUIManager "UIManager" gTypeUIManager :: GType gTypeUIManager = {# call fun unsafe gtk_ui_manager_get_type #} -- **************************************************************** WindowGroup {#pointer *GtkWindowGroup as WindowGroup foreign newtype #} deriving (Eq,Ord) mkWindowGroup = (WindowGroup, objectUnrefFromMainloop) unWindowGroup (WindowGroup o) = o class GObjectClass o => WindowGroupClass o toWindowGroup :: WindowGroupClass o => o -> WindowGroup toWindowGroup = unsafeCastGObject . toGObject instance WindowGroupClass WindowGroup instance GObjectClass WindowGroup where toGObject = GObject . castForeignPtr . unWindowGroup unsafeCastGObject = WindowGroup . castForeignPtr . unGObject castToWindowGroup :: GObjectClass obj => obj -> WindowGroup castToWindowGroup = castTo gTypeWindowGroup "WindowGroup" gTypeWindowGroup :: GType gTypeWindowGroup = {# call fun unsafe gtk_window_group_get_type #} -- *************************************************************** CellEditable {#pointer *GtkCellEditable as CellEditable foreign newtype #} deriving (Eq,Ord) mkCellEditable = (CellEditable, objectUnrefFromMainloop) unCellEditable (CellEditable o) = o class GObjectClass o => CellEditableClass o toCellEditable :: CellEditableClass o => o -> CellEditable toCellEditable = unsafeCastGObject . toGObject instance CellEditableClass CellEditable instance GObjectClass CellEditable where toGObject = GObject . castForeignPtr . unCellEditable unsafeCastGObject = CellEditable . castForeignPtr . unGObject castToCellEditable :: GObjectClass obj => obj -> CellEditable castToCellEditable = castTo gTypeCellEditable "CellEditable" gTypeCellEditable :: GType gTypeCellEditable = {# call fun unsafe gtk_cell_editable_get_type #} -- ******************************************************************* Editable {#pointer *GtkEditable as Editable foreign newtype #} deriving (Eq,Ord) mkEditable = (Editable, objectUnrefFromMainloop) unEditable (Editable o) = o class GObjectClass o => EditableClass o toEditable :: EditableClass o => o -> Editable toEditable = unsafeCastGObject . toGObject instance EditableClass Editable instance GObjectClass Editable where toGObject = GObject . castForeignPtr . unEditable unsafeCastGObject = Editable . castForeignPtr . unGObject castToEditable :: GObjectClass obj => obj -> Editable castToEditable = castTo gTypeEditable "Editable" gTypeEditable :: GType gTypeEditable = {# call fun unsafe gtk_editable_get_type #} -- **************************************************************** FileChooser {#pointer *GtkFileChooser as FileChooser foreign newtype #} deriving (Eq,Ord) mkFileChooser = (FileChooser, objectUnrefFromMainloop) unFileChooser (FileChooser o) = o class GObjectClass o => FileChooserClass o toFileChooser :: FileChooserClass o => o -> FileChooser toFileChooser = unsafeCastGObject . toGObject instance FileChooserClass FileChooser instance GObjectClass FileChooser where toGObject = GObject . castForeignPtr . unFileChooser unsafeCastGObject = FileChooser . castForeignPtr . unGObject castToFileChooser :: GObjectClass obj => obj -> FileChooser castToFileChooser = castTo gTypeFileChooser "FileChooser" gTypeFileChooser :: GType gTypeFileChooser = {# call fun unsafe gtk_file_chooser_get_type #}