gtk3 0.13.2 → 0.13.3
raw patch · 4 files changed
+814/−204 lines, 4 filesdep ~gtk3
Dependency ranges changed: gtk3
Files
- Graphics/UI/Gtk/ModelView/TreeStore.hs +11/−13
- Graphics/UI/Gtk/ModelView/Types.chs +4/−3
- Graphics/UI/Gtk/Types.chs +782/−171
- gtk3.cabal +17/−17
Graphics/UI/Gtk/ModelView/TreeStore.hs view
@@ -57,7 +57,7 @@ ) where import Data.Bits-import Data.Word (Word)+import Data.Word (Word32) import Data.Maybe ( fromMaybe, isJust ) import Data.Tree import Control.Monad ( when )@@ -231,24 +231,22 @@ -- low level bit-twiddling utility functions -- --- TODO: figure out how these things work when Word is 64 bits--bitsNeeded :: Word -> Int+bitsNeeded :: Word32 -> Int bitsNeeded n = bitsNeeded' 0 n where bitsNeeded' b 0 = b bitsNeeded' b n = bitsNeeded' (b+1) (n `shiftR` 1) -getBitSlice :: TreeIter -> Int -> Int -> Word+getBitSlice :: TreeIter -> Int -> Int -> Word32 getBitSlice (TreeIter _ a b c) off count = getBitSliceWord a off count .|. getBitSliceWord b (off-32) count .|. getBitSliceWord c (off-64) count - where getBitSliceWord :: Word -> Int -> Int -> Word+ where getBitSliceWord :: Word32 -> Int -> Int -> Word32 getBitSliceWord word off count =- word `shiftR` off .&. (1 `shiftL` count - 1)+ word `shift` (-off) .&. (1 `shiftL` count - 1) -setBitSlice :: TreeIter -> Int -> Int -> Word -> TreeIter+setBitSlice :: TreeIter -> Int -> Int -> Word32 -> TreeIter setBitSlice (TreeIter stamp a b c) off count value = assert (value < 1 `shiftL` count) $ TreeIter stamp@@ -256,10 +254,10 @@ (setBitSliceWord b (off-32) count value) (setBitSliceWord c (off-64) count value) - where setBitSliceWord :: Word -> Int -> Int -> Word -> Word+ where setBitSliceWord :: Word32 -> Int -> Int -> Word32 -> Word32 setBitSliceWord word off count value =- let mask = (1 `shiftL` count - 1) `shiftL` off- in (word .&. complement mask) .|. (value `shiftL` off)+ let mask = (1 `shiftL` count - 1) `shift` off+ in (word .&. complement mask) .|. (value `shift` off) --iterPrefixEqual :: TreeIter -> TreeIter -> Int -> Bool@@ -308,7 +306,7 @@ where fP pos ti _ [] = Just ti -- the remaining bits are zero anyway fP pos ti [] _ = Nothing- fP pos ti (d:ds) (p:ps) = let idx = fromIntegral (p+1) :: Word in+ fP pos ti (d:ds) (p:ps) = let idx = fromIntegral (p+1) in if idx >= bit d then Nothing else fP (pos+d) (setBitSlice ti pos d idx) ds ps @@ -439,7 +437,7 @@ (Maybe TreeIter, Cache a) iterNthChild depth childIdx_ iter cache = let (pos,leaf,child) = getTreeIterLeaf depth iter- childIdx = fromIntegral childIdx_+1 :: Word+ childIdx = fromIntegral childIdx_+1 nextIter = setBitSlice iter (pos+leaf) child childIdx in if childIdx>=bit child then (Nothing, cache) else
Graphics/UI/Gtk/ModelView/Types.chs view
@@ -76,6 +76,7 @@ {#import Graphics.UI.Gtk.Types#} (TreeModel, TreeModelSort, TreeModelFilter, Pixbuf) import Data.Char ( isDigit )+import Data.Word (Word32) import Control.Monad ( liftM ) {# context lib="gtk" prefix="gtk" #}@@ -120,7 +121,7 @@ -- use of the three words is therefore implementation specific. See also -- 'TreePath'. ---data TreeIter = TreeIter {-# UNPACK #-} !CInt !Word !Word !Word+data TreeIter = TreeIter {-# UNPACK #-} !CInt !Word32 !Word32 !Word32 deriving Show {#pointer *TreeIter as TreeIterPtr -> TreeIter #}@@ -137,7 +138,7 @@ (ptrToWord user_data2) (ptrToWord user_data3)) - where ptrToWord :: Ptr a -> Word+ where ptrToWord :: Ptr a -> Word32 ptrToWord ptr = fromIntegral (ptr `minusPtr` nullPtr) poke ptr (TreeIter stamp user_data user_data2 user_data3) = do@@ -146,7 +147,7 @@ {# set TreeIter->user_data2 #} ptr (wordToPtr user_data2) {# set TreeIter->user_data3 #} ptr (wordToPtr user_data3) - where wordToPtr :: Word -> Ptr a+ where wordToPtr :: Word32 -> Ptr a wordToPtr word = nullPtr `plusPtr` fromIntegral word -- Pass a pointer to a structure large enough to hold a GtkTreeIter
Graphics/UI/Gtk/Types.chs view
@@ -86,10 +86,22 @@ toRecentManager, mkRecentManager, unRecentManager, castToRecentManager, gTypeRecentManager,+ Drawable(Drawable), DrawableClass,+ toDrawable, + mkDrawable, unDrawable,+ castToDrawable, gTypeDrawable, DrawWindow(DrawWindow), DrawWindowClass, toDrawWindow, mkDrawWindow, unDrawWindow, castToDrawWindow, gTypeDrawWindow,+ Pixmap(Pixmap), PixmapClass,+ toPixmap, + mkPixmap, unPixmap,+ castToPixmap, gTypePixmap,+ Colormap(Colormap), ColormapClass,+ toColormap, + mkColormap, unColormap,+ castToColormap, gTypeColormap, Screen(Screen), ScreenClass, toScreen, mkScreen, unScreen,@@ -106,10 +118,6 @@ toDevice, mkDevice, unDevice, castToDevice, gTypeDevice,- FrameClock(FrameClock), FrameClockClass,- toFrameClock, - mkFrameClock, unFrameClock,- castToFrameClock, gTypeFrameClock, Settings(Settings), SettingsClass, toSettings, mkSettings, unSettings,@@ -162,6 +170,10 @@ toTextMark, mkTextMark, unTextMark, castToTextMark, gTypeTextMark,+ Object(Object), ObjectClass,+ toObject, + mkObject, unObject,+ castToObject, gTypeObject, RecentFilter(RecentFilter), RecentFilterClass, toRecentFilter, mkRecentFilter, unRecentFilter,@@ -186,6 +198,10 @@ toAccelLabel, mkAccelLabel, unAccelLabel, castToAccelLabel, gTypeAccelLabel,+ TipsQuery(TipsQuery), TipsQueryClass,+ toTipsQuery, + mkTipsQuery, unTipsQuery,+ castToTipsQuery, gTypeTipsQuery, Arrow(Arrow), ArrowClass, toArrow, mkArrow, unArrow,@@ -258,6 +274,14 @@ toFontButton, mkFontButton, unFontButton, castToFontButton, gTypeFontButton,+ OptionMenu(OptionMenu), OptionMenuClass,+ toOptionMenu, + mkOptionMenu, unOptionMenu,+ castToOptionMenu, gTypeOptionMenu,+ Item(Item), ItemClass,+ toItem, + mkItem, unItem,+ castToItem, gTypeItem, MenuItem(MenuItem), MenuItemClass, toMenuItem, mkMenuItem, unMenuItem,@@ -282,10 +306,10 @@ toSeparatorMenuItem, mkSeparatorMenuItem, unSeparatorMenuItem, castToSeparatorMenuItem, gTypeSeparatorMenuItem,- Overlay(Overlay), OverlayClass,- toOverlay, - mkOverlay, unOverlay,- castToOverlay, gTypeOverlay,+ ListItem(ListItem), ListItemClass,+ toListItem, + mkListItem, unListItem,+ castToListItem, gTypeListItem, Window(Window), WindowClass, toWindow, mkWindow, unWindow,@@ -310,6 +334,10 @@ toColorSelectionDialog, mkColorSelectionDialog, unColorSelectionDialog, castToColorSelectionDialog, gTypeColorSelectionDialog,+ FileSelection(FileSelection), FileSelectionClass,+ toFileSelection, + mkFileSelection, unFileSelection,+ castToFileSelection, gTypeFileSelection, FileChooserDialog(FileChooserDialog), FileChooserDialogClass, toFileChooserDialog, mkFileChooserDialog, unFileChooserDialog,@@ -318,6 +346,10 @@ toFontSelectionDialog, mkFontSelectionDialog, unFontSelectionDialog, castToFontSelectionDialog, gTypeFontSelectionDialog,+ InputDialog(InputDialog), InputDialogClass,+ toInputDialog, + mkInputDialog, unInputDialog,+ castToInputDialog, gTypeInputDialog, MessageDialog(MessageDialog), MessageDialogClass, toMessageDialog, mkMessageDialog, unMessageDialog,@@ -346,6 +378,10 @@ toComboBox, mkComboBox, unComboBox, castToComboBox, gTypeComboBox,+ ComboBoxEntry(ComboBoxEntry), ComboBoxEntryClass,+ toComboBoxEntry, + mkComboBoxEntry, unComboBoxEntry,+ castToComboBoxEntry, gTypeComboBoxEntry, ToolItem(ToolItem), ToolItemClass, toToolItem, mkToolItem, unToolItem,@@ -414,6 +450,10 @@ toInfoBar, mkInfoBar, unInfoBar, castToInfoBar, gTypeInfoBar,+ Combo(Combo), ComboClass,+ toCombo, + mkCombo, unCombo,+ castToCombo, gTypeCombo, FileChooserButton(FileChooserButton), FileChooserButtonClass, toFileChooserButton, mkFileChooserButton, unFileChooserButton,@@ -422,6 +462,14 @@ toStatusbar, mkStatusbar, unStatusbar, castToStatusbar, gTypeStatusbar,+ CList(CList), CListClass,+ toCList, + mkCList, unCList,+ castToCList, gTypeCList,+ CTree(CTree), CTreeClass,+ toCTree, + mkCTree, unCTree,+ castToCTree, gTypeCTree, Fixed(Fixed), FixedClass, toFixed, mkFixed, unFixed,@@ -446,6 +494,10 @@ toLayout, mkLayout, unLayout, castToLayout, gTypeLayout,+ List(List), ListClass,+ toList, + mkList, unList,+ castToList, gTypeList, MenuShell(MenuShell), MenuShellClass, toMenuShell, mkMenuShell, unMenuShell,@@ -506,6 +558,18 @@ toSpinButton, mkSpinButton, unSpinButton, castToSpinButton, gTypeSpinButton,+ Ruler(Ruler), RulerClass,+ toRuler, + mkRuler, unRuler,+ castToRuler, gTypeRuler,+ HRuler(HRuler), HRulerClass,+ toHRuler, + mkHRuler, unHRuler,+ castToHRuler, gTypeHRuler,+ VRuler(VRuler), VRulerClass,+ toVRuler, + mkVRuler, unVRuler,+ castToVRuler, gTypeVRuler, Range(Range), RangeClass, toRange, mkRange, unRange,@@ -550,14 +614,14 @@ toInvisible, mkInvisible, unInvisible, castToInvisible, gTypeInvisible,+ Preview(Preview), PreviewClass,+ toPreview, + mkPreview, unPreview,+ castToPreview, gTypePreview, ProgressBar(ProgressBar), ProgressBarClass, toProgressBar, mkProgressBar, unProgressBar, castToProgressBar, gTypeProgressBar,- LevelBar(LevelBar), LevelBarClass,- toLevelBar, - mkLevelBar, unLevelBar,- castToLevelBar, gTypeLevelBar, Adjustment(Adjustment), AdjustmentClass, toAdjustment, mkAdjustment, unAdjustment,@@ -574,6 +638,14 @@ toIMContextSimple, mkIMContextSimple, unIMContextSimple, castToIMContextSimple, gTypeIMContextSimple,+ ItemFactory(ItemFactory), ItemFactoryClass,+ toItemFactory, + mkItemFactory, unItemFactory,+ castToItemFactory, gTypeItemFactory,+ Tooltips(Tooltips), TooltipsClass,+ toTooltips, + mkTooltips, unTooltips,+ castToTooltips, gTypeTooltips, TreeViewColumn(TreeViewColumn), TreeViewColumnClass, toTreeViewColumn, mkTreeViewColumn, unTreeViewColumn,@@ -622,18 +694,6 @@ 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,@@ -745,7 +805,11 @@ FileChooser(FileChooser), FileChooserClass, toFileChooser, mkFileChooser, unFileChooser,- castToFileChooser, gTypeFileChooser+ castToFileChooser, gTypeFileChooser,+ GC(GC), GCClass,+ toGC, + mkGC, unGC,+ castToGC, gTypeGC ) where import Foreign.ForeignPtr (ForeignPtr, castForeignPtr)@@ -1051,6 +1115,29 @@ gTypeRecentManager = {# call fun unsafe gtk_recent_manager_get_type #} +-- ******************************************************************* Drawable++{#pointer *GdkDrawable as Drawable foreign newtype #} deriving (Eq,Ord)++mkDrawable = (Drawable, objectUnrefFromMainloop)+unDrawable (Drawable o) = o++class GObjectClass o => DrawableClass o+toDrawable :: DrawableClass o => o -> Drawable+toDrawable = unsafeCastGObject . toGObject++instance DrawableClass Drawable+instance GObjectClass Drawable where+ toGObject = GObject . castForeignPtr . unDrawable+ unsafeCastGObject = Drawable . castForeignPtr . unGObject++castToDrawable :: GObjectClass obj => obj -> Drawable+castToDrawable = castTo gTypeDrawable "Drawable"++gTypeDrawable :: GType+gTypeDrawable =+ {# call fun unsafe gdk_drawable_get_type #}+ -- ***************************************************************** DrawWindow {#pointer *GdkWindow as DrawWindow foreign newtype #} deriving (Eq,Ord)@@ -1058,11 +1145,12 @@ mkDrawWindow = (DrawWindow, objectUnrefFromMainloop) unDrawWindow (DrawWindow o) = o -class GObjectClass o => DrawWindowClass o+class DrawableClass o => DrawWindowClass o toDrawWindow :: DrawWindowClass o => o -> DrawWindow toDrawWindow = unsafeCastGObject . toGObject instance DrawWindowClass DrawWindow+instance DrawableClass DrawWindow instance GObjectClass DrawWindow where toGObject = GObject . castForeignPtr . unDrawWindow unsafeCastGObject = DrawWindow . castForeignPtr . unGObject@@ -1072,8 +1160,55 @@ gTypeDrawWindow :: GType gTypeDrawWindow =- {# call fun unsafe gdk_window_get_type #}+ {# call fun unsafe gdk_window_object_get_type #} +-- ********************************************************************* Pixmap++{#pointer *GdkPixmap as Pixmap foreign newtype #} deriving (Eq,Ord)++mkPixmap = (Pixmap, objectUnrefFromMainloop)+unPixmap (Pixmap o) = o++class DrawableClass o => PixmapClass o+toPixmap :: PixmapClass o => o -> Pixmap+toPixmap = unsafeCastGObject . toGObject++instance PixmapClass Pixmap+instance DrawableClass Pixmap+instance GObjectClass Pixmap where+ toGObject = GObject . castForeignPtr . unPixmap+ unsafeCastGObject = Pixmap . castForeignPtr . unGObject++castToPixmap :: GObjectClass obj => obj -> Pixmap+castToPixmap = castTo gTypePixmap "Pixmap"++gTypePixmap :: GType+gTypePixmap =+ {# call fun unsafe gdk_pixmap_get_type #}++-- ******************************************************************* Colormap++{#pointer *GdkColormap as Colormap foreign newtype #} deriving (Eq,Ord)++mkColormap = (Colormap, objectUnrefFromMainloop)+unColormap (Colormap o) = o++class GObjectClass o => ColormapClass o+toColormap :: ColormapClass o => o -> Colormap+toColormap = unsafeCastGObject . toGObject++instance ColormapClass Colormap+instance GObjectClass Colormap where+ toGObject = GObject . castForeignPtr . unColormap+ unsafeCastGObject = Colormap . castForeignPtr . unGObject++castToColormap :: GObjectClass obj => obj -> Colormap+castToColormap = castTo gTypeColormap "Colormap"++gTypeColormap :: GType+gTypeColormap =+ {# call fun unsafe gdk_colormap_get_type #}+ -- ********************************************************************* Screen {#pointer *GdkScreen as Screen foreign newtype #} deriving (Eq,Ord)@@ -1166,29 +1301,6 @@ gTypeDevice = {# call fun unsafe gdk_device_get_type #} --- ***************************************************************** FrameClock--{#pointer *GdkFrameClock as FrameClock foreign newtype #} deriving (Eq,Ord)--mkFrameClock = (FrameClock, objectUnrefFromMainloop)-unFrameClock (FrameClock o) = o--class GObjectClass o => FrameClockClass o-toFrameClock :: FrameClockClass o => o -> FrameClock-toFrameClock = unsafeCastGObject . toGObject--instance FrameClockClass FrameClock-instance GObjectClass FrameClock where- toGObject = GObject . castForeignPtr . unFrameClock- unsafeCastGObject = FrameClock . castForeignPtr . unGObject--castToFrameClock :: GObjectClass obj => obj -> FrameClock-castToFrameClock = castTo gTypeFrameClock "FrameClock"--gTypeFrameClock :: GType-gTypeFrameClock =- {# call fun unsafe gdk_frame_clock_get_type #}- -- ******************************************************************* Settings {#pointer *GtkSettings as Settings foreign newtype #} deriving (Eq,Ord)@@ -1489,6 +1601,29 @@ gTypeTextMark = {# call fun unsafe gtk_text_mark_get_type #} +-- ********************************************************************* Object++{#pointer *GtkObject as Object foreign newtype #} deriving (Eq,Ord)++mkObject = (Object, objectUnrefFromMainloop)+unObject (Object o) = o++class GObjectClass o => ObjectClass o+toObject :: ObjectClass o => o -> Object+toObject = unsafeCastGObject . toGObject++instance ObjectClass Object+instance GObjectClass Object where+ toGObject = GObject . castForeignPtr . unObject+ unsafeCastGObject = Object . castForeignPtr . unGObject++castToObject :: GObjectClass obj => obj -> Object+castToObject = castTo gTypeObject "Object"++gTypeObject :: GType+gTypeObject =+ {# call fun unsafe gtk_object_get_type #}+ -- *************************************************************** RecentFilter {#pointer *GtkRecentFilter as RecentFilter foreign newtype #} deriving (Eq,Ord)@@ -1496,11 +1631,12 @@ mkRecentFilter = (RecentFilter, objectUnrefFromMainloop) unRecentFilter (RecentFilter o) = o -class GObjectClass o => RecentFilterClass o+class ObjectClass o => RecentFilterClass o toRecentFilter :: RecentFilterClass o => o -> RecentFilter toRecentFilter = unsafeCastGObject . toGObject instance RecentFilterClass RecentFilter+instance ObjectClass RecentFilter instance GObjectClass RecentFilter where toGObject = GObject . castForeignPtr . unRecentFilter unsafeCastGObject = RecentFilter . castForeignPtr . unGObject@@ -1519,11 +1655,12 @@ mkWidget = (Widget, objectUnrefFromMainloop) unWidget (Widget o) = o -class GObjectClass o => WidgetClass o+class ObjectClass o => WidgetClass o toWidget :: WidgetClass o => o -> Widget toWidget = unsafeCastGObject . toGObject instance WidgetClass Widget+instance ObjectClass Widget instance GObjectClass Widget where toGObject = GObject . castForeignPtr . unWidget unsafeCastGObject = Widget . castForeignPtr . unGObject@@ -1548,6 +1685,7 @@ instance HSVClass HSV instance WidgetClass HSV+instance ObjectClass HSV instance GObjectClass HSV where toGObject = GObject . castForeignPtr . unHSV unsafeCastGObject = HSV . castForeignPtr . unGObject@@ -1572,6 +1710,7 @@ instance MiscClass Misc instance WidgetClass Misc+instance ObjectClass Misc instance GObjectClass Misc where toGObject = GObject . castForeignPtr . unMisc unsafeCastGObject = Misc . castForeignPtr . unGObject@@ -1597,6 +1736,7 @@ instance LabelClass Label instance MiscClass Label instance WidgetClass Label+instance ObjectClass Label instance GObjectClass Label where toGObject = GObject . castForeignPtr . unLabel unsafeCastGObject = Label . castForeignPtr . unGObject@@ -1623,6 +1763,7 @@ instance LabelClass AccelLabel instance MiscClass AccelLabel instance WidgetClass AccelLabel+instance ObjectClass AccelLabel instance GObjectClass AccelLabel where toGObject = GObject . castForeignPtr . unAccelLabel unsafeCastGObject = AccelLabel . castForeignPtr . unGObject@@ -1634,6 +1775,33 @@ gTypeAccelLabel = {# call fun unsafe gtk_accel_label_get_type #} +-- ****************************************************************** TipsQuery++{#pointer *GtkTipsQuery as TipsQuery foreign newtype #} deriving (Eq,Ord)++mkTipsQuery = (TipsQuery, objectUnrefFromMainloop)+unTipsQuery (TipsQuery o) = o++class LabelClass o => TipsQueryClass o+toTipsQuery :: TipsQueryClass o => o -> TipsQuery+toTipsQuery = unsafeCastGObject . toGObject++instance TipsQueryClass TipsQuery+instance LabelClass TipsQuery+instance MiscClass TipsQuery+instance WidgetClass TipsQuery+instance ObjectClass TipsQuery+instance GObjectClass TipsQuery where+ toGObject = GObject . castForeignPtr . unTipsQuery+ unsafeCastGObject = TipsQuery . castForeignPtr . unGObject++castToTipsQuery :: GObjectClass obj => obj -> TipsQuery+castToTipsQuery = castTo gTypeTipsQuery "TipsQuery"++gTypeTipsQuery :: GType+gTypeTipsQuery =+ {# call fun unsafe gtk_tips_query_get_type #}+ -- ********************************************************************** Arrow {#pointer *GtkArrow as Arrow foreign newtype #} deriving (Eq,Ord)@@ -1648,6 +1816,7 @@ instance ArrowClass Arrow instance MiscClass Arrow instance WidgetClass Arrow+instance ObjectClass Arrow instance GObjectClass Arrow where toGObject = GObject . castForeignPtr . unArrow unsafeCastGObject = Arrow . castForeignPtr . unGObject@@ -1673,6 +1842,7 @@ instance ImageClass Image instance MiscClass Image instance WidgetClass Image+instance ObjectClass Image instance GObjectClass Image where toGObject = GObject . castForeignPtr . unImage unsafeCastGObject = Image . castForeignPtr . unGObject@@ -1697,6 +1867,7 @@ instance ContainerClass Container instance WidgetClass Container+instance ObjectClass Container instance GObjectClass Container where toGObject = GObject . castForeignPtr . unContainer unsafeCastGObject = Container . castForeignPtr . unGObject@@ -1722,6 +1893,7 @@ instance ToolPaletteClass ToolPalette instance ContainerClass ToolPalette instance WidgetClass ToolPalette+instance ObjectClass ToolPalette instance GObjectClass ToolPalette where toGObject = GObject . castForeignPtr . unToolPalette unsafeCastGObject = ToolPalette . castForeignPtr . unGObject@@ -1747,6 +1919,7 @@ instance ToolItemGroupClass ToolItemGroup instance ContainerClass ToolItemGroup instance WidgetClass ToolItemGroup+instance ObjectClass ToolItemGroup instance GObjectClass ToolItemGroup where toGObject = GObject . castForeignPtr . unToolItemGroup unsafeCastGObject = ToolItemGroup . castForeignPtr . unGObject@@ -1772,6 +1945,7 @@ instance BinClass Bin instance ContainerClass Bin instance WidgetClass Bin+instance ObjectClass Bin instance GObjectClass Bin where toGObject = GObject . castForeignPtr . unBin unsafeCastGObject = Bin . castForeignPtr . unGObject@@ -1798,6 +1972,7 @@ instance BinClass Alignment instance ContainerClass Alignment instance WidgetClass Alignment+instance ObjectClass Alignment instance GObjectClass Alignment where toGObject = GObject . castForeignPtr . unAlignment unsafeCastGObject = Alignment . castForeignPtr . unGObject@@ -1824,6 +1999,7 @@ instance BinClass Frame instance ContainerClass Frame instance WidgetClass Frame+instance ObjectClass Frame instance GObjectClass Frame where toGObject = GObject . castForeignPtr . unFrame unsafeCastGObject = Frame . castForeignPtr . unGObject@@ -1851,6 +2027,7 @@ instance BinClass AspectFrame instance ContainerClass AspectFrame instance WidgetClass AspectFrame+instance ObjectClass AspectFrame instance GObjectClass AspectFrame where toGObject = GObject . castForeignPtr . unAspectFrame unsafeCastGObject = AspectFrame . castForeignPtr . unGObject@@ -1877,6 +2054,7 @@ instance BinClass Button instance ContainerClass Button instance WidgetClass Button+instance ObjectClass Button instance GObjectClass Button where toGObject = GObject . castForeignPtr . unButton unsafeCastGObject = Button . castForeignPtr . unGObject@@ -1904,6 +2082,7 @@ instance BinClass ScaleButton instance ContainerClass ScaleButton instance WidgetClass ScaleButton+instance ObjectClass ScaleButton instance GObjectClass ScaleButton where toGObject = GObject . castForeignPtr . unScaleButton unsafeCastGObject = ScaleButton . castForeignPtr . unGObject@@ -1932,6 +2111,7 @@ instance BinClass VolumeButton instance ContainerClass VolumeButton instance WidgetClass VolumeButton+instance ObjectClass VolumeButton instance GObjectClass VolumeButton where toGObject = GObject . castForeignPtr . unVolumeButton unsafeCastGObject = VolumeButton . castForeignPtr . unGObject@@ -1959,6 +2139,7 @@ instance BinClass LinkButton instance ContainerClass LinkButton instance WidgetClass LinkButton+instance ObjectClass LinkButton instance GObjectClass LinkButton where toGObject = GObject . castForeignPtr . unLinkButton unsafeCastGObject = LinkButton . castForeignPtr . unGObject@@ -1986,6 +2167,7 @@ instance BinClass ToggleButton instance ContainerClass ToggleButton instance WidgetClass ToggleButton+instance ObjectClass ToggleButton instance GObjectClass ToggleButton where toGObject = GObject . castForeignPtr . unToggleButton unsafeCastGObject = ToggleButton . castForeignPtr . unGObject@@ -2014,6 +2196,7 @@ instance BinClass CheckButton instance ContainerClass CheckButton instance WidgetClass CheckButton+instance ObjectClass CheckButton instance GObjectClass CheckButton where toGObject = GObject . castForeignPtr . unCheckButton unsafeCastGObject = CheckButton . castForeignPtr . unGObject@@ -2043,6 +2226,7 @@ instance BinClass RadioButton instance ContainerClass RadioButton instance WidgetClass RadioButton+instance ObjectClass RadioButton instance GObjectClass RadioButton where toGObject = GObject . castForeignPtr . unRadioButton unsafeCastGObject = RadioButton . castForeignPtr . unGObject@@ -2070,6 +2254,7 @@ instance BinClass ColorButton instance ContainerClass ColorButton instance WidgetClass ColorButton+instance ObjectClass ColorButton instance GObjectClass ColorButton where toGObject = GObject . castForeignPtr . unColorButton unsafeCastGObject = ColorButton . castForeignPtr . unGObject@@ -2097,6 +2282,7 @@ instance BinClass FontButton instance ContainerClass FontButton instance WidgetClass FontButton+instance ObjectClass FontButton instance GObjectClass FontButton where toGObject = GObject . castForeignPtr . unFontButton unsafeCastGObject = FontButton . castForeignPtr . unGObject@@ -2108,6 +2294,61 @@ gTypeFontButton = {# call fun unsafe gtk_font_button_get_type #} +-- ***************************************************************** OptionMenu++{#pointer *GtkOptionMenu as OptionMenu foreign newtype #} deriving (Eq,Ord)++mkOptionMenu = (OptionMenu, objectUnrefFromMainloop)+unOptionMenu (OptionMenu o) = o++class ButtonClass o => OptionMenuClass o+toOptionMenu :: OptionMenuClass o => o -> OptionMenu+toOptionMenu = unsafeCastGObject . toGObject++instance OptionMenuClass OptionMenu+instance ButtonClass OptionMenu+instance BinClass OptionMenu+instance ContainerClass OptionMenu+instance WidgetClass OptionMenu+instance ObjectClass OptionMenu+instance GObjectClass OptionMenu where+ toGObject = GObject . castForeignPtr . unOptionMenu+ unsafeCastGObject = OptionMenu . castForeignPtr . unGObject++castToOptionMenu :: GObjectClass obj => obj -> OptionMenu+castToOptionMenu = castTo gTypeOptionMenu "OptionMenu"++gTypeOptionMenu :: GType+gTypeOptionMenu =+ {# call fun unsafe gtk_option_menu_get_type #}++-- *********************************************************************** Item++{#pointer *GtkItem as Item foreign newtype #} deriving (Eq,Ord)++mkItem = (Item, objectUnrefFromMainloop)+unItem (Item o) = o++class BinClass o => ItemClass o+toItem :: ItemClass o => o -> Item+toItem = unsafeCastGObject . toGObject++instance ItemClass Item+instance BinClass Item+instance ContainerClass Item+instance WidgetClass Item+instance ObjectClass Item+instance GObjectClass Item where+ toGObject = GObject . castForeignPtr . unItem+ unsafeCastGObject = Item . castForeignPtr . unGObject++castToItem :: GObjectClass obj => obj -> Item+castToItem = castTo gTypeItem "Item"++gTypeItem :: GType+gTypeItem =+ {# call fun unsafe gtk_item_get_type #}+ -- ******************************************************************* MenuItem {#pointer *GtkMenuItem as MenuItem foreign newtype #} deriving (Eq,Ord)@@ -2115,14 +2356,16 @@ mkMenuItem = (MenuItem, objectUnrefFromMainloop) unMenuItem (MenuItem o) = o -class BinClass o => MenuItemClass o+class ItemClass o => MenuItemClass o toMenuItem :: MenuItemClass o => o -> MenuItem toMenuItem = unsafeCastGObject . toGObject instance MenuItemClass MenuItem+instance ItemClass MenuItem instance BinClass MenuItem instance ContainerClass MenuItem instance WidgetClass MenuItem+instance ObjectClass MenuItem instance GObjectClass MenuItem where toGObject = GObject . castForeignPtr . unMenuItem unsafeCastGObject = MenuItem . castForeignPtr . unGObject@@ -2147,9 +2390,11 @@ instance CheckMenuItemClass CheckMenuItem instance MenuItemClass CheckMenuItem+instance ItemClass CheckMenuItem instance BinClass CheckMenuItem instance ContainerClass CheckMenuItem instance WidgetClass CheckMenuItem+instance ObjectClass CheckMenuItem instance GObjectClass CheckMenuItem where toGObject = GObject . castForeignPtr . unCheckMenuItem unsafeCastGObject = CheckMenuItem . castForeignPtr . unGObject@@ -2175,9 +2420,11 @@ instance RadioMenuItemClass RadioMenuItem instance CheckMenuItemClass RadioMenuItem instance MenuItemClass RadioMenuItem+instance ItemClass RadioMenuItem instance BinClass RadioMenuItem instance ContainerClass RadioMenuItem instance WidgetClass RadioMenuItem+instance ObjectClass RadioMenuItem instance GObjectClass RadioMenuItem where toGObject = GObject . castForeignPtr . unRadioMenuItem unsafeCastGObject = RadioMenuItem . castForeignPtr . unGObject@@ -2202,9 +2449,11 @@ instance TearoffMenuItemClass TearoffMenuItem instance MenuItemClass TearoffMenuItem+instance ItemClass TearoffMenuItem instance BinClass TearoffMenuItem instance ContainerClass TearoffMenuItem instance WidgetClass TearoffMenuItem+instance ObjectClass TearoffMenuItem instance GObjectClass TearoffMenuItem where toGObject = GObject . castForeignPtr . unTearoffMenuItem unsafeCastGObject = TearoffMenuItem . castForeignPtr . unGObject@@ -2229,9 +2478,11 @@ instance ImageMenuItemClass ImageMenuItem instance MenuItemClass ImageMenuItem+instance ItemClass ImageMenuItem instance BinClass ImageMenuItem instance ContainerClass ImageMenuItem instance WidgetClass ImageMenuItem+instance ObjectClass ImageMenuItem instance GObjectClass ImageMenuItem where toGObject = GObject . castForeignPtr . unImageMenuItem unsafeCastGObject = ImageMenuItem . castForeignPtr . unGObject@@ -2256,9 +2507,11 @@ instance SeparatorMenuItemClass SeparatorMenuItem instance MenuItemClass SeparatorMenuItem+instance ItemClass SeparatorMenuItem instance BinClass SeparatorMenuItem instance ContainerClass SeparatorMenuItem instance WidgetClass SeparatorMenuItem+instance ObjectClass SeparatorMenuItem instance GObjectClass SeparatorMenuItem where toGObject = GObject . castForeignPtr . unSeparatorMenuItem unsafeCastGObject = SeparatorMenuItem . castForeignPtr . unGObject@@ -2270,31 +2523,33 @@ gTypeSeparatorMenuItem = {# call fun unsafe gtk_separator_menu_item_get_type #} --- ******************************************************************** Overlay+-- ******************************************************************* ListItem -{#pointer *GtkOverlay as Overlay foreign newtype #} deriving (Eq,Ord)+{#pointer *GtkListItem as ListItem foreign newtype #} deriving (Eq,Ord) -mkOverlay = (Overlay, objectUnrefFromMainloop)-unOverlay (Overlay o) = o+mkListItem = (ListItem, objectUnrefFromMainloop)+unListItem (ListItem o) = o -class BinClass o => OverlayClass o-toOverlay :: OverlayClass o => o -> Overlay-toOverlay = unsafeCastGObject . toGObject+class ItemClass o => ListItemClass o+toListItem :: ListItemClass o => o -> ListItem+toListItem = unsafeCastGObject . toGObject -instance OverlayClass Overlay-instance BinClass Overlay-instance ContainerClass Overlay-instance WidgetClass Overlay-instance GObjectClass Overlay where- toGObject = GObject . castForeignPtr . unOverlay- unsafeCastGObject = Overlay . castForeignPtr . unGObject+instance ListItemClass ListItem+instance ItemClass ListItem+instance BinClass ListItem+instance ContainerClass ListItem+instance WidgetClass ListItem+instance ObjectClass ListItem+instance GObjectClass ListItem where+ toGObject = GObject . castForeignPtr . unListItem+ unsafeCastGObject = ListItem . castForeignPtr . unGObject -castToOverlay :: GObjectClass obj => obj -> Overlay-castToOverlay = castTo gTypeOverlay "Overlay"+castToListItem :: GObjectClass obj => obj -> ListItem+castToListItem = castTo gTypeListItem "ListItem" -gTypeOverlay :: GType-gTypeOverlay =- {# call fun unsafe gtk_overlay_get_type #}+gTypeListItem :: GType+gTypeListItem =+ {# call fun unsafe gtk_list_item_get_type #} -- ********************************************************************* Window @@ -2311,6 +2566,7 @@ instance BinClass Window instance ContainerClass Window instance WidgetClass Window+instance ObjectClass Window instance GObjectClass Window where toGObject = GObject . castForeignPtr . unWindow unsafeCastGObject = Window . castForeignPtr . unGObject@@ -2338,6 +2594,7 @@ instance BinClass Assistant instance ContainerClass Assistant instance WidgetClass Assistant+instance ObjectClass Assistant instance GObjectClass Assistant where toGObject = GObject . castForeignPtr . unAssistant unsafeCastGObject = Assistant . castForeignPtr . unGObject@@ -2365,6 +2622,7 @@ instance BinClass OffscreenWindow instance ContainerClass OffscreenWindow instance WidgetClass OffscreenWindow+instance ObjectClass OffscreenWindow instance GObjectClass OffscreenWindow where toGObject = GObject . castForeignPtr . unOffscreenWindow unsafeCastGObject = OffscreenWindow . castForeignPtr . unGObject@@ -2392,6 +2650,7 @@ instance BinClass Dialog instance ContainerClass Dialog instance WidgetClass Dialog+instance ObjectClass Dialog instance GObjectClass Dialog where toGObject = GObject . castForeignPtr . unDialog unsafeCastGObject = Dialog . castForeignPtr . unGObject@@ -2420,6 +2679,7 @@ instance BinClass AboutDialog instance ContainerClass AboutDialog instance WidgetClass AboutDialog+instance ObjectClass AboutDialog instance GObjectClass AboutDialog where toGObject = GObject . castForeignPtr . unAboutDialog unsafeCastGObject = AboutDialog . castForeignPtr . unGObject@@ -2448,6 +2708,7 @@ instance BinClass ColorSelectionDialog instance ContainerClass ColorSelectionDialog instance WidgetClass ColorSelectionDialog+instance ObjectClass ColorSelectionDialog instance GObjectClass ColorSelectionDialog where toGObject = GObject . castForeignPtr . unColorSelectionDialog unsafeCastGObject = ColorSelectionDialog . castForeignPtr . unGObject@@ -2459,6 +2720,35 @@ gTypeColorSelectionDialog = {# call fun unsafe gtk_color_selection_dialog_get_type #} +-- ************************************************************** FileSelection++{#pointer *GtkFileSelection as FileSelection foreign newtype #} deriving (Eq,Ord)++mkFileSelection = (FileSelection, objectUnrefFromMainloop)+unFileSelection (FileSelection o) = o++class DialogClass o => FileSelectionClass o+toFileSelection :: FileSelectionClass o => o -> FileSelection+toFileSelection = unsafeCastGObject . toGObject++instance FileSelectionClass FileSelection+instance DialogClass FileSelection+instance WindowClass FileSelection+instance BinClass FileSelection+instance ContainerClass FileSelection+instance WidgetClass FileSelection+instance ObjectClass FileSelection+instance GObjectClass FileSelection where+ toGObject = GObject . castForeignPtr . unFileSelection+ unsafeCastGObject = FileSelection . castForeignPtr . unGObject++castToFileSelection :: GObjectClass obj => obj -> FileSelection+castToFileSelection = castTo gTypeFileSelection "FileSelection"++gTypeFileSelection :: GType+gTypeFileSelection =+ {# call fun unsafe gtk_file_selection_get_type #}+ -- ********************************************************** FileChooserDialog {#pointer *GtkFileChooserDialog as FileChooserDialog foreign newtype #} deriving (Eq,Ord)@@ -2476,6 +2766,7 @@ instance BinClass FileChooserDialog instance ContainerClass FileChooserDialog instance WidgetClass FileChooserDialog+instance ObjectClass FileChooserDialog instance GObjectClass FileChooserDialog where toGObject = GObject . castForeignPtr . unFileChooserDialog unsafeCastGObject = FileChooserDialog . castForeignPtr . unGObject@@ -2504,6 +2795,7 @@ instance BinClass FontSelectionDialog instance ContainerClass FontSelectionDialog instance WidgetClass FontSelectionDialog+instance ObjectClass FontSelectionDialog instance GObjectClass FontSelectionDialog where toGObject = GObject . castForeignPtr . unFontSelectionDialog unsafeCastGObject = FontSelectionDialog . castForeignPtr . unGObject@@ -2515,6 +2807,35 @@ gTypeFontSelectionDialog = {# call fun unsafe gtk_font_selection_dialog_get_type #} +-- **************************************************************** InputDialog++{#pointer *GtkInputDialog as InputDialog foreign newtype #} deriving (Eq,Ord)++mkInputDialog = (InputDialog, objectUnrefFromMainloop)+unInputDialog (InputDialog o) = o++class DialogClass o => InputDialogClass o+toInputDialog :: InputDialogClass o => o -> InputDialog+toInputDialog = unsafeCastGObject . toGObject++instance InputDialogClass InputDialog+instance DialogClass InputDialog+instance WindowClass InputDialog+instance BinClass InputDialog+instance ContainerClass InputDialog+instance WidgetClass InputDialog+instance ObjectClass InputDialog+instance GObjectClass InputDialog where+ toGObject = GObject . castForeignPtr . unInputDialog+ unsafeCastGObject = InputDialog . castForeignPtr . unGObject++castToInputDialog :: GObjectClass obj => obj -> InputDialog+castToInputDialog = castTo gTypeInputDialog "InputDialog"++gTypeInputDialog :: GType+gTypeInputDialog =+ {# call fun unsafe gtk_input_dialog_get_type #}+ -- ************************************************************** MessageDialog {#pointer *GtkMessageDialog as MessageDialog foreign newtype #} deriving (Eq,Ord)@@ -2532,6 +2853,7 @@ instance BinClass MessageDialog instance ContainerClass MessageDialog instance WidgetClass MessageDialog+instance ObjectClass MessageDialog instance GObjectClass MessageDialog where toGObject = GObject . castForeignPtr . unMessageDialog unsafeCastGObject = MessageDialog . castForeignPtr . unGObject@@ -2558,6 +2880,7 @@ instance BinClass EventBox instance ContainerClass EventBox instance WidgetClass EventBox+instance ObjectClass EventBox instance GObjectClass EventBox where toGObject = GObject . castForeignPtr . unEventBox unsafeCastGObject = EventBox . castForeignPtr . unGObject@@ -2584,6 +2907,7 @@ instance BinClass HandleBox instance ContainerClass HandleBox instance WidgetClass HandleBox+instance ObjectClass HandleBox instance GObjectClass HandleBox where toGObject = GObject . castForeignPtr . unHandleBox unsafeCastGObject = HandleBox . castForeignPtr . unGObject@@ -2610,6 +2934,7 @@ instance BinClass ScrolledWindow instance ContainerClass ScrolledWindow instance WidgetClass ScrolledWindow+instance ObjectClass ScrolledWindow instance GObjectClass ScrolledWindow where toGObject = GObject . castForeignPtr . unScrolledWindow unsafeCastGObject = ScrolledWindow . castForeignPtr . unGObject@@ -2636,6 +2961,7 @@ instance BinClass Viewport instance ContainerClass Viewport instance WidgetClass Viewport+instance ObjectClass Viewport instance GObjectClass Viewport where toGObject = GObject . castForeignPtr . unViewport unsafeCastGObject = Viewport . castForeignPtr . unGObject@@ -2662,6 +2988,7 @@ instance BinClass Expander instance ContainerClass Expander instance WidgetClass Expander+instance ObjectClass Expander instance GObjectClass Expander where toGObject = GObject . castForeignPtr . unExpander unsafeCastGObject = Expander . castForeignPtr . unGObject@@ -2688,6 +3015,7 @@ instance BinClass ComboBox instance ContainerClass ComboBox instance WidgetClass ComboBox+instance ObjectClass ComboBox instance GObjectClass ComboBox where toGObject = GObject . castForeignPtr . unComboBox unsafeCastGObject = ComboBox . castForeignPtr . unGObject@@ -2699,6 +3027,34 @@ gTypeComboBox = {# call fun unsafe gtk_combo_box_get_type #} +-- ************************************************************** ComboBoxEntry++{#pointer *GtkComboBoxEntry as ComboBoxEntry foreign newtype #} deriving (Eq,Ord)++mkComboBoxEntry = (ComboBoxEntry, objectUnrefFromMainloop)+unComboBoxEntry (ComboBoxEntry o) = o++class ComboBoxClass o => ComboBoxEntryClass o+toComboBoxEntry :: ComboBoxEntryClass o => o -> ComboBoxEntry+toComboBoxEntry = unsafeCastGObject . toGObject++instance ComboBoxEntryClass ComboBoxEntry+instance ComboBoxClass ComboBoxEntry+instance BinClass ComboBoxEntry+instance ContainerClass ComboBoxEntry+instance WidgetClass ComboBoxEntry+instance ObjectClass ComboBoxEntry+instance GObjectClass ComboBoxEntry where+ toGObject = GObject . castForeignPtr . unComboBoxEntry+ unsafeCastGObject = ComboBoxEntry . castForeignPtr . unGObject++castToComboBoxEntry :: GObjectClass obj => obj -> ComboBoxEntry+castToComboBoxEntry = castTo gTypeComboBoxEntry "ComboBoxEntry"++gTypeComboBoxEntry :: GType+gTypeComboBoxEntry =+ {# call fun unsafe gtk_combo_box_entry_get_type #}+ -- ******************************************************************* ToolItem {#pointer *GtkToolItem as ToolItem foreign newtype #} deriving (Eq,Ord)@@ -2714,6 +3070,7 @@ instance BinClass ToolItem instance ContainerClass ToolItem instance WidgetClass ToolItem+instance ObjectClass ToolItem instance GObjectClass ToolItem where toGObject = GObject . castForeignPtr . unToolItem unsafeCastGObject = ToolItem . castForeignPtr . unGObject@@ -2741,6 +3098,7 @@ instance BinClass ToolButton instance ContainerClass ToolButton instance WidgetClass ToolButton+instance ObjectClass ToolButton instance GObjectClass ToolButton where toGObject = GObject . castForeignPtr . unToolButton unsafeCastGObject = ToolButton . castForeignPtr . unGObject@@ -2769,6 +3127,7 @@ instance BinClass MenuToolButton instance ContainerClass MenuToolButton instance WidgetClass MenuToolButton+instance ObjectClass MenuToolButton instance GObjectClass MenuToolButton where toGObject = GObject . castForeignPtr . unMenuToolButton unsafeCastGObject = MenuToolButton . castForeignPtr . unGObject@@ -2797,6 +3156,7 @@ instance BinClass ToggleToolButton instance ContainerClass ToggleToolButton instance WidgetClass ToggleToolButton+instance ObjectClass ToggleToolButton instance GObjectClass ToggleToolButton where toGObject = GObject . castForeignPtr . unToggleToolButton unsafeCastGObject = ToggleToolButton . castForeignPtr . unGObject@@ -2826,6 +3186,7 @@ instance BinClass RadioToolButton instance ContainerClass RadioToolButton instance WidgetClass RadioToolButton+instance ObjectClass RadioToolButton instance GObjectClass RadioToolButton where toGObject = GObject . castForeignPtr . unRadioToolButton unsafeCastGObject = RadioToolButton . castForeignPtr . unGObject@@ -2853,6 +3214,7 @@ instance BinClass SeparatorToolItem instance ContainerClass SeparatorToolItem instance WidgetClass SeparatorToolItem+instance ObjectClass SeparatorToolItem instance GObjectClass SeparatorToolItem where toGObject = GObject . castForeignPtr . unSeparatorToolItem unsafeCastGObject = SeparatorToolItem . castForeignPtr . unGObject@@ -2878,6 +3240,7 @@ instance BoxClass Box instance ContainerClass Box instance WidgetClass Box+instance ObjectClass Box instance GObjectClass Box where toGObject = GObject . castForeignPtr . unBox unsafeCastGObject = Box . castForeignPtr . unGObject@@ -2904,6 +3267,7 @@ instance BoxClass ButtonBox instance ContainerClass ButtonBox instance WidgetClass ButtonBox+instance ObjectClass ButtonBox instance GObjectClass ButtonBox where toGObject = GObject . castForeignPtr . unButtonBox unsafeCastGObject = ButtonBox . castForeignPtr . unGObject@@ -2931,6 +3295,7 @@ instance BoxClass HButtonBox instance ContainerClass HButtonBox instance WidgetClass HButtonBox+instance ObjectClass HButtonBox instance GObjectClass HButtonBox where toGObject = GObject . castForeignPtr . unHButtonBox unsafeCastGObject = HButtonBox . castForeignPtr . unGObject@@ -2958,6 +3323,7 @@ instance BoxClass VButtonBox instance ContainerClass VButtonBox instance WidgetClass VButtonBox+instance ObjectClass VButtonBox instance GObjectClass VButtonBox where toGObject = GObject . castForeignPtr . unVButtonBox unsafeCastGObject = VButtonBox . castForeignPtr . unGObject@@ -2984,6 +3350,7 @@ instance BoxClass VBox instance ContainerClass VBox instance WidgetClass VBox+instance ObjectClass VBox instance GObjectClass VBox where toGObject = GObject . castForeignPtr . unVBox unsafeCastGObject = VBox . castForeignPtr . unGObject@@ -3011,6 +3378,7 @@ instance BoxClass RecentChooserWidget instance ContainerClass RecentChooserWidget instance WidgetClass RecentChooserWidget+instance ObjectClass RecentChooserWidget instance GObjectClass RecentChooserWidget where toGObject = GObject . castForeignPtr . unRecentChooserWidget unsafeCastGObject = RecentChooserWidget . castForeignPtr . unGObject@@ -3038,6 +3406,7 @@ instance BoxClass ColorSelection instance ContainerClass ColorSelection instance WidgetClass ColorSelection+instance ObjectClass ColorSelection instance GObjectClass ColorSelection where toGObject = GObject . castForeignPtr . unColorSelection unsafeCastGObject = ColorSelection . castForeignPtr . unGObject@@ -3065,6 +3434,7 @@ instance BoxClass FontSelection instance ContainerClass FontSelection instance WidgetClass FontSelection+instance ObjectClass FontSelection instance GObjectClass FontSelection where toGObject = GObject . castForeignPtr . unFontSelection unsafeCastGObject = FontSelection . castForeignPtr . unGObject@@ -3092,6 +3462,7 @@ instance BoxClass FileChooserWidget instance ContainerClass FileChooserWidget instance WidgetClass FileChooserWidget+instance ObjectClass FileChooserWidget instance GObjectClass FileChooserWidget where toGObject = GObject . castForeignPtr . unFileChooserWidget unsafeCastGObject = FileChooserWidget . castForeignPtr . unGObject@@ -3118,6 +3489,7 @@ instance BoxClass HBox instance ContainerClass HBox instance WidgetClass HBox+instance ObjectClass HBox instance GObjectClass HBox where toGObject = GObject . castForeignPtr . unHBox unsafeCastGObject = HBox . castForeignPtr . unGObject@@ -3145,6 +3517,7 @@ instance BoxClass InfoBar instance ContainerClass InfoBar instance WidgetClass InfoBar+instance ObjectClass InfoBar instance GObjectClass InfoBar where toGObject = GObject . castForeignPtr . unInfoBar unsafeCastGObject = InfoBar . castForeignPtr . unGObject@@ -3156,6 +3529,34 @@ gTypeInfoBar = {# call fun unsafe gtk_info_bar_get_type #} +-- ********************************************************************** Combo++{#pointer *GtkCombo as Combo foreign newtype #} deriving (Eq,Ord)++mkCombo = (Combo, objectUnrefFromMainloop)+unCombo (Combo o) = o++class HBoxClass o => ComboClass o+toCombo :: ComboClass o => o -> Combo+toCombo = unsafeCastGObject . toGObject++instance ComboClass Combo+instance HBoxClass Combo+instance BoxClass Combo+instance ContainerClass Combo+instance WidgetClass Combo+instance ObjectClass Combo+instance GObjectClass Combo where+ toGObject = GObject . castForeignPtr . unCombo+ unsafeCastGObject = Combo . castForeignPtr . unGObject++castToCombo :: GObjectClass obj => obj -> Combo+castToCombo = castTo gTypeCombo "Combo"++gTypeCombo :: GType+gTypeCombo =+ {# call fun unsafe gtk_combo_get_type #}+ -- ********************************************************** FileChooserButton {#pointer *GtkFileChooserButton as FileChooserButton foreign newtype #} deriving (Eq,Ord)@@ -3172,6 +3573,7 @@ instance BoxClass FileChooserButton instance ContainerClass FileChooserButton instance WidgetClass FileChooserButton+instance ObjectClass FileChooserButton instance GObjectClass FileChooserButton where toGObject = GObject . castForeignPtr . unFileChooserButton unsafeCastGObject = FileChooserButton . castForeignPtr . unGObject@@ -3199,6 +3601,7 @@ instance BoxClass Statusbar instance ContainerClass Statusbar instance WidgetClass Statusbar+instance ObjectClass Statusbar instance GObjectClass Statusbar where toGObject = GObject . castForeignPtr . unStatusbar unsafeCastGObject = Statusbar . castForeignPtr . unGObject@@ -3210,6 +3613,59 @@ gTypeStatusbar = {# call fun unsafe gtk_statusbar_get_type #} +-- ********************************************************************** CList++{#pointer *GtkCList as CList foreign newtype #} deriving (Eq,Ord)++mkCList = (CList, objectUnrefFromMainloop)+unCList (CList o) = o++class ContainerClass o => CListClass o+toCList :: CListClass o => o -> CList+toCList = unsafeCastGObject . toGObject++instance CListClass CList+instance ContainerClass CList+instance WidgetClass CList+instance ObjectClass CList+instance GObjectClass CList where+ toGObject = GObject . castForeignPtr . unCList+ unsafeCastGObject = CList . castForeignPtr . unGObject++castToCList :: GObjectClass obj => obj -> CList+castToCList = castTo gTypeCList "CList"++gTypeCList :: GType+gTypeCList =+ {# call fun unsafe gtk_clist_get_type #}++-- ********************************************************************** CTree++{#pointer *GtkCTree as CTree foreign newtype #} deriving (Eq,Ord)++mkCTree = (CTree, objectUnrefFromMainloop)+unCTree (CTree o) = o++class CListClass o => CTreeClass o+toCTree :: CTreeClass o => o -> CTree+toCTree = unsafeCastGObject . toGObject++instance CTreeClass CTree+instance CListClass CTree+instance ContainerClass CTree+instance WidgetClass CTree+instance ObjectClass CTree+instance GObjectClass CTree where+ toGObject = GObject . castForeignPtr . unCTree+ unsafeCastGObject = CTree . castForeignPtr . unGObject++castToCTree :: GObjectClass obj => obj -> CTree+castToCTree = castTo gTypeCTree "CTree"++gTypeCTree :: GType+gTypeCTree =+ {# call fun unsafe gtk_ctree_get_type #}+ -- ********************************************************************** Fixed {#pointer *GtkFixed as Fixed foreign newtype #} deriving (Eq,Ord)@@ -3224,6 +3680,7 @@ instance FixedClass Fixed instance ContainerClass Fixed instance WidgetClass Fixed+instance ObjectClass Fixed instance GObjectClass Fixed where toGObject = GObject . castForeignPtr . unFixed unsafeCastGObject = Fixed . castForeignPtr . unGObject@@ -3249,6 +3706,7 @@ instance PanedClass Paned instance ContainerClass Paned instance WidgetClass Paned+instance ObjectClass Paned instance GObjectClass Paned where toGObject = GObject . castForeignPtr . unPaned unsafeCastGObject = Paned . castForeignPtr . unGObject@@ -3275,6 +3733,7 @@ instance PanedClass HPaned instance ContainerClass HPaned instance WidgetClass HPaned+instance ObjectClass HPaned instance GObjectClass HPaned where toGObject = GObject . castForeignPtr . unHPaned unsafeCastGObject = HPaned . castForeignPtr . unGObject@@ -3301,6 +3760,7 @@ instance PanedClass VPaned instance ContainerClass VPaned instance WidgetClass VPaned+instance ObjectClass VPaned instance GObjectClass VPaned where toGObject = GObject . castForeignPtr . unVPaned unsafeCastGObject = VPaned . castForeignPtr . unGObject@@ -3326,6 +3786,7 @@ instance IconViewClass IconView instance ContainerClass IconView instance WidgetClass IconView+instance ObjectClass IconView instance GObjectClass IconView where toGObject = GObject . castForeignPtr . unIconView unsafeCastGObject = IconView . castForeignPtr . unGObject@@ -3351,6 +3812,7 @@ instance LayoutClass Layout instance ContainerClass Layout instance WidgetClass Layout+instance ObjectClass Layout instance GObjectClass Layout where toGObject = GObject . castForeignPtr . unLayout unsafeCastGObject = Layout . castForeignPtr . unGObject@@ -3362,6 +3824,32 @@ gTypeLayout = {# call fun unsafe gtk_layout_get_type #} +-- *********************************************************************** List++{#pointer *GtkList as List foreign newtype #} deriving (Eq,Ord)++mkList = (List, objectUnrefFromMainloop)+unList (List o) = o++class ContainerClass o => ListClass o+toList :: ListClass o => o -> List+toList = unsafeCastGObject . toGObject++instance ListClass List+instance ContainerClass List+instance WidgetClass List+instance ObjectClass List+instance GObjectClass List where+ toGObject = GObject . castForeignPtr . unList+ unsafeCastGObject = List . castForeignPtr . unGObject++castToList :: GObjectClass obj => obj -> List+castToList = castTo gTypeList "List"++gTypeList :: GType+gTypeList =+ {# call fun unsafe gtk_list_get_type #}+ -- ****************************************************************** MenuShell {#pointer *GtkMenuShell as MenuShell foreign newtype #} deriving (Eq,Ord)@@ -3376,6 +3864,7 @@ instance MenuShellClass MenuShell instance ContainerClass MenuShell instance WidgetClass MenuShell+instance ObjectClass MenuShell instance GObjectClass MenuShell where toGObject = GObject . castForeignPtr . unMenuShell unsafeCastGObject = MenuShell . castForeignPtr . unGObject@@ -3402,6 +3891,7 @@ instance MenuShellClass Menu instance ContainerClass Menu instance WidgetClass Menu+instance ObjectClass Menu instance GObjectClass Menu where toGObject = GObject . castForeignPtr . unMenu unsafeCastGObject = Menu . castForeignPtr . unGObject@@ -3429,6 +3919,7 @@ instance MenuShellClass RecentChooserMenu instance ContainerClass RecentChooserMenu instance WidgetClass RecentChooserMenu+instance ObjectClass RecentChooserMenu instance GObjectClass RecentChooserMenu where toGObject = GObject . castForeignPtr . unRecentChooserMenu unsafeCastGObject = RecentChooserMenu . castForeignPtr . unGObject@@ -3455,6 +3946,7 @@ instance MenuShellClass MenuBar instance ContainerClass MenuBar instance WidgetClass MenuBar+instance ObjectClass MenuBar instance GObjectClass MenuBar where toGObject = GObject . castForeignPtr . unMenuBar unsafeCastGObject = MenuBar . castForeignPtr . unGObject@@ -3480,6 +3972,7 @@ instance NotebookClass Notebook instance ContainerClass Notebook instance WidgetClass Notebook+instance ObjectClass Notebook instance GObjectClass Notebook where toGObject = GObject . castForeignPtr . unNotebook unsafeCastGObject = Notebook . castForeignPtr . unGObject@@ -3505,6 +3998,7 @@ instance TableClass Table instance ContainerClass Table instance WidgetClass Table+instance ObjectClass Table instance GObjectClass Table where toGObject = GObject . castForeignPtr . unTable unsafeCastGObject = Table . castForeignPtr . unGObject@@ -3530,6 +4024,7 @@ instance TextViewClass TextView instance ContainerClass TextView instance WidgetClass TextView+instance ObjectClass TextView instance GObjectClass TextView where toGObject = GObject . castForeignPtr . unTextView unsafeCastGObject = TextView . castForeignPtr . unGObject@@ -3555,6 +4050,7 @@ instance ToolbarClass Toolbar instance ContainerClass Toolbar instance WidgetClass Toolbar+instance ObjectClass Toolbar instance GObjectClass Toolbar where toGObject = GObject . castForeignPtr . unToolbar unsafeCastGObject = Toolbar . castForeignPtr . unGObject@@ -3580,6 +4076,7 @@ instance TreeViewClass TreeView instance ContainerClass TreeView instance WidgetClass TreeView+instance ObjectClass TreeView instance GObjectClass TreeView where toGObject = GObject . castForeignPtr . unTreeView unsafeCastGObject = TreeView . castForeignPtr . unGObject@@ -3604,6 +4101,7 @@ instance CalendarClass Calendar instance WidgetClass Calendar+instance ObjectClass Calendar instance GObjectClass Calendar where toGObject = GObject . castForeignPtr . unCalendar unsafeCastGObject = Calendar . castForeignPtr . unGObject@@ -3628,6 +4126,7 @@ instance CellViewClass CellView instance WidgetClass CellView+instance ObjectClass CellView instance GObjectClass CellView where toGObject = GObject . castForeignPtr . unCellView unsafeCastGObject = CellView . castForeignPtr . unGObject@@ -3652,6 +4151,7 @@ instance DrawingAreaClass DrawingArea instance WidgetClass DrawingArea+instance ObjectClass DrawingArea instance GObjectClass DrawingArea where toGObject = GObject . castForeignPtr . unDrawingArea unsafeCastGObject = DrawingArea . castForeignPtr . unGObject@@ -3677,6 +4177,7 @@ instance SpinnerClass Spinner instance DrawingAreaClass Spinner instance WidgetClass Spinner+instance ObjectClass Spinner instance GObjectClass Spinner where toGObject = GObject . castForeignPtr . unSpinner unsafeCastGObject = Spinner . castForeignPtr . unGObject@@ -3701,6 +4202,7 @@ instance EntryClass Entry instance WidgetClass Entry+instance ObjectClass Entry instance GObjectClass Entry where toGObject = GObject . castForeignPtr . unEntry unsafeCastGObject = Entry . castForeignPtr . unGObject@@ -3726,6 +4228,7 @@ instance SpinButtonClass SpinButton instance EntryClass SpinButton instance WidgetClass SpinButton+instance ObjectClass SpinButton instance GObjectClass SpinButton where toGObject = GObject . castForeignPtr . unSpinButton unsafeCastGObject = SpinButton . castForeignPtr . unGObject@@ -3737,6 +4240,83 @@ gTypeSpinButton = {# call fun unsafe gtk_spin_button_get_type #} +-- ********************************************************************** Ruler++{#pointer *GtkRuler as Ruler foreign newtype #} deriving (Eq,Ord)++mkRuler = (Ruler, objectUnrefFromMainloop)+unRuler (Ruler o) = o++class WidgetClass o => RulerClass o+toRuler :: RulerClass o => o -> Ruler+toRuler = unsafeCastGObject . toGObject++instance RulerClass Ruler+instance WidgetClass Ruler+instance ObjectClass Ruler+instance GObjectClass Ruler where+ toGObject = GObject . castForeignPtr . unRuler+ unsafeCastGObject = Ruler . castForeignPtr . unGObject++castToRuler :: GObjectClass obj => obj -> Ruler+castToRuler = castTo gTypeRuler "Ruler"++gTypeRuler :: GType+gTypeRuler =+ {# call fun unsafe gtk_ruler_get_type #}++-- ********************************************************************* HRuler++{#pointer *GtkHRuler as HRuler foreign newtype #} deriving (Eq,Ord)++mkHRuler = (HRuler, objectUnrefFromMainloop)+unHRuler (HRuler o) = o++class RulerClass o => HRulerClass o+toHRuler :: HRulerClass o => o -> HRuler+toHRuler = unsafeCastGObject . toGObject++instance HRulerClass HRuler+instance RulerClass HRuler+instance WidgetClass HRuler+instance ObjectClass HRuler+instance GObjectClass HRuler where+ toGObject = GObject . castForeignPtr . unHRuler+ unsafeCastGObject = HRuler . castForeignPtr . unGObject++castToHRuler :: GObjectClass obj => obj -> HRuler+castToHRuler = castTo gTypeHRuler "HRuler"++gTypeHRuler :: GType+gTypeHRuler =+ {# call fun unsafe gtk_hruler_get_type #}++-- ********************************************************************* VRuler++{#pointer *GtkVRuler as VRuler foreign newtype #} deriving (Eq,Ord)++mkVRuler = (VRuler, objectUnrefFromMainloop)+unVRuler (VRuler o) = o++class RulerClass o => VRulerClass o+toVRuler :: VRulerClass o => o -> VRuler+toVRuler = unsafeCastGObject . toGObject++instance VRulerClass VRuler+instance RulerClass VRuler+instance WidgetClass VRuler+instance ObjectClass VRuler+instance GObjectClass VRuler where+ toGObject = GObject . castForeignPtr . unVRuler+ unsafeCastGObject = VRuler . castForeignPtr . unGObject++castToVRuler :: GObjectClass obj => obj -> VRuler+castToVRuler = castTo gTypeVRuler "VRuler"++gTypeVRuler :: GType+gTypeVRuler =+ {# call fun unsafe gtk_vruler_get_type #}+ -- ********************************************************************** Range {#pointer *GtkRange as Range foreign newtype #} deriving (Eq,Ord)@@ -3750,6 +4330,7 @@ instance RangeClass Range instance WidgetClass Range+instance ObjectClass Range instance GObjectClass Range where toGObject = GObject . castForeignPtr . unRange unsafeCastGObject = Range . castForeignPtr . unGObject@@ -3775,6 +4356,7 @@ instance ScaleClass Scale instance RangeClass Scale instance WidgetClass Scale+instance ObjectClass Scale instance GObjectClass Scale where toGObject = GObject . castForeignPtr . unScale unsafeCastGObject = Scale . castForeignPtr . unGObject@@ -3801,6 +4383,7 @@ instance ScaleClass HScale instance RangeClass HScale instance WidgetClass HScale+instance ObjectClass HScale instance GObjectClass HScale where toGObject = GObject . castForeignPtr . unHScale unsafeCastGObject = HScale . castForeignPtr . unGObject@@ -3827,6 +4410,7 @@ instance ScaleClass VScale instance RangeClass VScale instance WidgetClass VScale+instance ObjectClass VScale instance GObjectClass VScale where toGObject = GObject . castForeignPtr . unVScale unsafeCastGObject = VScale . castForeignPtr . unGObject@@ -3852,6 +4436,7 @@ instance ScrollbarClass Scrollbar instance RangeClass Scrollbar instance WidgetClass Scrollbar+instance ObjectClass Scrollbar instance GObjectClass Scrollbar where toGObject = GObject . castForeignPtr . unScrollbar unsafeCastGObject = Scrollbar . castForeignPtr . unGObject@@ -3878,6 +4463,7 @@ instance ScrollbarClass HScrollbar instance RangeClass HScrollbar instance WidgetClass HScrollbar+instance ObjectClass HScrollbar instance GObjectClass HScrollbar where toGObject = GObject . castForeignPtr . unHScrollbar unsafeCastGObject = HScrollbar . castForeignPtr . unGObject@@ -3904,6 +4490,7 @@ instance ScrollbarClass VScrollbar instance RangeClass VScrollbar instance WidgetClass VScrollbar+instance ObjectClass VScrollbar instance GObjectClass VScrollbar where toGObject = GObject . castForeignPtr . unVScrollbar unsafeCastGObject = VScrollbar . castForeignPtr . unGObject@@ -3928,6 +4515,7 @@ instance SeparatorClass Separator instance WidgetClass Separator+instance ObjectClass Separator instance GObjectClass Separator where toGObject = GObject . castForeignPtr . unSeparator unsafeCastGObject = Separator . castForeignPtr . unGObject@@ -3953,6 +4541,7 @@ instance HSeparatorClass HSeparator instance SeparatorClass HSeparator instance WidgetClass HSeparator+instance ObjectClass HSeparator instance GObjectClass HSeparator where toGObject = GObject . castForeignPtr . unHSeparator unsafeCastGObject = HSeparator . castForeignPtr . unGObject@@ -3978,6 +4567,7 @@ instance VSeparatorClass VSeparator instance SeparatorClass VSeparator instance WidgetClass VSeparator+instance ObjectClass VSeparator instance GObjectClass VSeparator where toGObject = GObject . castForeignPtr . unVSeparator unsafeCastGObject = VSeparator . castForeignPtr . unGObject@@ -4002,6 +4592,7 @@ instance InvisibleClass Invisible instance WidgetClass Invisible+instance ObjectClass Invisible instance GObjectClass Invisible where toGObject = GObject . castForeignPtr . unInvisible unsafeCastGObject = Invisible . castForeignPtr . unGObject@@ -4013,6 +4604,31 @@ gTypeInvisible = {# call fun unsafe gtk_invisible_get_type #} +-- ******************************************************************** Preview++{#pointer *GtkPreview as Preview foreign newtype #} deriving (Eq,Ord)++mkPreview = (Preview, objectUnrefFromMainloop)+unPreview (Preview o) = o++class WidgetClass o => PreviewClass o+toPreview :: PreviewClass o => o -> Preview+toPreview = unsafeCastGObject . toGObject++instance PreviewClass Preview+instance WidgetClass Preview+instance ObjectClass Preview+instance GObjectClass Preview where+ toGObject = GObject . castForeignPtr . unPreview+ unsafeCastGObject = Preview . castForeignPtr . unGObject++castToPreview :: GObjectClass obj => obj -> Preview+castToPreview = castTo gTypePreview "Preview"++gTypePreview :: GType+gTypePreview =+ {# call fun unsafe gtk_preview_get_type #}+ -- **************************************************************** ProgressBar {#pointer *GtkProgressBar as ProgressBar foreign newtype #} deriving (Eq,Ord)@@ -4026,6 +4642,7 @@ instance ProgressBarClass ProgressBar instance WidgetClass ProgressBar+instance ObjectClass ProgressBar instance GObjectClass ProgressBar where toGObject = GObject . castForeignPtr . unProgressBar unsafeCastGObject = ProgressBar . castForeignPtr . unGObject@@ -4037,30 +4654,6 @@ gTypeProgressBar = {# call fun unsafe gtk_progress_bar_get_type #} --- ******************************************************************* LevelBar--{#pointer *GtkLevelBar as LevelBar foreign newtype #} deriving (Eq,Ord)--mkLevelBar = (LevelBar, objectUnrefFromMainloop)-unLevelBar (LevelBar o) = o--class WidgetClass o => LevelBarClass o-toLevelBar :: LevelBarClass o => o -> LevelBar-toLevelBar = unsafeCastGObject . toGObject--instance LevelBarClass LevelBar-instance WidgetClass LevelBar-instance GObjectClass LevelBar where- toGObject = GObject . castForeignPtr . unLevelBar- unsafeCastGObject = LevelBar . castForeignPtr . unGObject--castToLevelBar :: GObjectClass obj => obj -> LevelBar-castToLevelBar = castTo gTypeLevelBar "LevelBar"--gTypeLevelBar :: GType-gTypeLevelBar =- {# call fun unsafe gtk_level_bar_get_type #}- -- ***************************************************************** Adjustment {#pointer *GtkAdjustment as Adjustment foreign newtype #} deriving (Eq,Ord)@@ -4068,11 +4661,12 @@ mkAdjustment = (Adjustment, objectUnrefFromMainloop) unAdjustment (Adjustment o) = o -class GObjectClass o => AdjustmentClass o+class ObjectClass o => AdjustmentClass o toAdjustment :: AdjustmentClass o => o -> Adjustment toAdjustment = unsafeCastGObject . toGObject instance AdjustmentClass Adjustment+instance ObjectClass Adjustment instance GObjectClass Adjustment where toGObject = GObject . castForeignPtr . unAdjustment unsafeCastGObject = Adjustment . castForeignPtr . unGObject@@ -4091,11 +4685,12 @@ mkIMContext = (IMContext, objectUnrefFromMainloop) unIMContext (IMContext o) = o -class GObjectClass o => IMContextClass o+class ObjectClass o => IMContextClass o toIMContext :: IMContextClass o => o -> IMContext toIMContext = unsafeCastGObject . toGObject instance IMContextClass IMContext+instance ObjectClass IMContext instance GObjectClass IMContext where toGObject = GObject . castForeignPtr . unIMContext unsafeCastGObject = IMContext . castForeignPtr . unGObject@@ -4120,6 +4715,7 @@ instance IMMulticontextClass IMMulticontext instance IMContextClass IMMulticontext+instance ObjectClass IMMulticontext instance GObjectClass IMMulticontext where toGObject = GObject . castForeignPtr . unIMMulticontext unsafeCastGObject = IMMulticontext . castForeignPtr . unGObject@@ -4144,6 +4740,7 @@ instance IMContextSimpleClass IMContextSimple instance IMContextClass IMContextSimple+instance ObjectClass IMContextSimple instance GObjectClass IMContextSimple where toGObject = GObject . castForeignPtr . unIMContextSimple unsafeCastGObject = IMContextSimple . castForeignPtr . unGObject@@ -4155,6 +4752,54 @@ gTypeIMContextSimple = {# call fun unsafe gtk_im_context_simple_get_type #} +-- **************************************************************** ItemFactory++{#pointer *GtkItemFactory as ItemFactory foreign newtype #} deriving (Eq,Ord)++mkItemFactory = (ItemFactory, objectUnrefFromMainloop)+unItemFactory (ItemFactory o) = o++class ObjectClass o => ItemFactoryClass o+toItemFactory :: ItemFactoryClass o => o -> ItemFactory+toItemFactory = unsafeCastGObject . toGObject++instance ItemFactoryClass ItemFactory+instance ObjectClass ItemFactory+instance GObjectClass ItemFactory where+ toGObject = GObject . castForeignPtr . unItemFactory+ unsafeCastGObject = ItemFactory . castForeignPtr . unGObject++castToItemFactory :: GObjectClass obj => obj -> ItemFactory+castToItemFactory = castTo gTypeItemFactory "ItemFactory"++gTypeItemFactory :: GType+gTypeItemFactory =+ {# call fun unsafe gtk_item_factory_get_type #}++-- ******************************************************************* Tooltips++{#pointer *GtkTooltips as Tooltips foreign newtype #} deriving (Eq,Ord)++mkTooltips = (Tooltips, objectUnrefFromMainloop)+unTooltips (Tooltips o) = o++class ObjectClass o => TooltipsClass o+toTooltips :: TooltipsClass o => o -> Tooltips+toTooltips = unsafeCastGObject . toGObject++instance TooltipsClass Tooltips+instance ObjectClass Tooltips+instance GObjectClass Tooltips where+ toGObject = GObject . castForeignPtr . unTooltips+ unsafeCastGObject = Tooltips . castForeignPtr . unGObject++castToTooltips :: GObjectClass obj => obj -> Tooltips+castToTooltips = castTo gTypeTooltips "Tooltips"++gTypeTooltips :: GType+gTypeTooltips =+ {# call fun unsafe gtk_tooltips_get_type #}+ -- ************************************************************* TreeViewColumn {#pointer *GtkTreeViewColumn as TreeViewColumn foreign newtype #} deriving (Eq,Ord)@@ -4162,11 +4807,12 @@ mkTreeViewColumn = (TreeViewColumn, objectUnrefFromMainloop) unTreeViewColumn (TreeViewColumn o) = o -class GObjectClass o => TreeViewColumnClass o+class ObjectClass o => TreeViewColumnClass o toTreeViewColumn :: TreeViewColumnClass o => o -> TreeViewColumn toTreeViewColumn = unsafeCastGObject . toGObject instance TreeViewColumnClass TreeViewColumn+instance ObjectClass TreeViewColumn instance GObjectClass TreeViewColumn where toGObject = GObject . castForeignPtr . unTreeViewColumn unsafeCastGObject = TreeViewColumn . castForeignPtr . unGObject@@ -4185,11 +4831,12 @@ mkCellRenderer = (CellRenderer, objectUnrefFromMainloop) unCellRenderer (CellRenderer o) = o -class GObjectClass o => CellRendererClass o+class ObjectClass o => CellRendererClass o toCellRenderer :: CellRendererClass o => o -> CellRenderer toCellRenderer = unsafeCastGObject . toGObject instance CellRendererClass CellRenderer+instance ObjectClass CellRenderer instance GObjectClass CellRenderer where toGObject = GObject . castForeignPtr . unCellRenderer unsafeCastGObject = CellRenderer . castForeignPtr . unGObject@@ -4214,6 +4861,7 @@ instance CellRendererSpinnerClass CellRendererSpinner instance CellRendererClass CellRendererSpinner+instance ObjectClass CellRendererSpinner instance GObjectClass CellRendererSpinner where toGObject = GObject . castForeignPtr . unCellRendererSpinner unsafeCastGObject = CellRendererSpinner . castForeignPtr . unGObject@@ -4238,6 +4886,7 @@ instance CellRendererPixbufClass CellRendererPixbuf instance CellRendererClass CellRendererPixbuf+instance ObjectClass CellRendererPixbuf instance GObjectClass CellRendererPixbuf where toGObject = GObject . castForeignPtr . unCellRendererPixbuf unsafeCastGObject = CellRendererPixbuf . castForeignPtr . unGObject@@ -4262,6 +4911,7 @@ instance CellRendererTextClass CellRendererText instance CellRendererClass CellRendererText+instance ObjectClass CellRendererText instance GObjectClass CellRendererText where toGObject = GObject . castForeignPtr . unCellRendererText unsafeCastGObject = CellRendererText . castForeignPtr . unGObject@@ -4287,6 +4937,7 @@ instance CellRendererAccelClass CellRendererAccel instance CellRendererTextClass CellRendererAccel instance CellRendererClass CellRendererAccel+instance ObjectClass CellRendererAccel instance GObjectClass CellRendererAccel where toGObject = GObject . castForeignPtr . unCellRendererAccel unsafeCastGObject = CellRendererAccel . castForeignPtr . unGObject@@ -4312,6 +4963,7 @@ instance CellRendererSpinClass CellRendererSpin instance CellRendererTextClass CellRendererSpin instance CellRendererClass CellRendererSpin+instance ObjectClass CellRendererSpin instance GObjectClass CellRendererSpin where toGObject = GObject . castForeignPtr . unCellRendererSpin unsafeCastGObject = CellRendererSpin . castForeignPtr . unGObject@@ -4337,6 +4989,7 @@ instance CellRendererComboClass CellRendererCombo instance CellRendererTextClass CellRendererCombo instance CellRendererClass CellRendererCombo+instance ObjectClass CellRendererCombo instance GObjectClass CellRendererCombo where toGObject = GObject . castForeignPtr . unCellRendererCombo unsafeCastGObject = CellRendererCombo . castForeignPtr . unGObject@@ -4361,6 +5014,7 @@ instance CellRendererToggleClass CellRendererToggle instance CellRendererClass CellRendererToggle+instance ObjectClass CellRendererToggle instance GObjectClass CellRendererToggle where toGObject = GObject . castForeignPtr . unCellRendererToggle unsafeCastGObject = CellRendererToggle . castForeignPtr . unGObject@@ -4385,6 +5039,7 @@ instance CellRendererProgressClass CellRendererProgress instance CellRendererClass CellRendererProgress+instance ObjectClass CellRendererProgress instance GObjectClass CellRendererProgress where toGObject = GObject . castForeignPtr . unCellRendererProgress unsafeCastGObject = CellRendererProgress . castForeignPtr . unGObject@@ -4403,11 +5058,12 @@ mkFileFilter = (FileFilter, objectUnrefFromMainloop) unFileFilter (FileFilter o) = o -class GObjectClass o => FileFilterClass o+class ObjectClass o => FileFilterClass o toFileFilter :: FileFilterClass o => o -> FileFilter toFileFilter = unsafeCastGObject . toGObject instance FileFilterClass FileFilter+instance ObjectClass FileFilter instance GObjectClass FileFilter where toGObject = GObject . castForeignPtr . unFileFilter unsafeCastGObject = FileFilter . castForeignPtr . unGObject@@ -4426,11 +5082,12 @@ mkBuilder = (Builder, objectUnrefFromMainloop) unBuilder (Builder o) = o -class GObjectClass o => BuilderClass o+class ObjectClass o => BuilderClass o toBuilder :: BuilderClass o => o -> Builder toBuilder = unsafeCastGObject . toGObject instance BuilderClass Builder+instance ObjectClass Builder instance GObjectClass Builder where toGObject = GObject . castForeignPtr . unBuilder unsafeCastGObject = Builder . castForeignPtr . unGObject@@ -4442,75 +5099,6 @@ 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)@@ -5161,4 +5749,27 @@ gTypeFileChooser :: GType gTypeFileChooser = {# call fun unsafe gtk_file_chooser_get_type #}++-- ************************************************************************* GC++{#pointer *GdkGC as GC foreign newtype #} deriving (Eq,Ord)++mkGC = (GC, objectUnrefFromMainloop)+unGC (GC o) = o++class GObjectClass o => GCClass o+toGC :: GCClass o => o -> GC+toGC = unsafeCastGObject . toGObject++instance GCClass GC+instance GObjectClass GC where+ toGObject = GObject . castForeignPtr . unGC+ unsafeCastGObject = GC . castForeignPtr . unGObject++castToGC :: GObjectClass obj => obj -> GC+castToGC = castTo gTypeGC "GC"++gTypeGC :: GType+gTypeGC =+ {# call fun unsafe gdk_gc_get_type #}
gtk3.cabal view
@@ -1,5 +1,5 @@ Name: gtk3-Version: 0.13.2+Version: 0.13.3 License: LGPL-2.1 License-file: COPYING Copyright: (c) 2001-2010 The Gtk2Hs Team@@ -387,7 +387,7 @@ main-is: ActionMenu.hs if !flag(build-demos) buildable: False- build-depends: gtk3==0.13.2, base, transformers, text+ build-depends: gtk3==0.13.3, base, transformers, text Executable gtk2hs-demo-buttonBox default-language: Haskell98@@ -395,7 +395,7 @@ main-is: ButtonBox.hs if !flag(build-demos) buildable: False- build-depends: gtk3==0.13.2, base, transformers+ build-depends: gtk3==0.13.3, base, transformers Executable gtk2hs-demo-carsim default-language: Haskell98@@ -403,7 +403,7 @@ main-is: CarSim.hs if !flag(build-demos) buildable: False- build-depends: gtk3==0.13.2, base, transformers, time, cairo+ build-depends: gtk3==0.13.3, base, transformers, time, cairo Executable gtk2hs-demo-progress default-language: Haskell98@@ -411,7 +411,7 @@ main-is: Progress.hs if !flag(build-demos) buildable: False- build-depends: gtk3==0.13.2, base, transformers+ build-depends: gtk3==0.13.3, base, transformers Executable gtk2hs-demo-progressThreadedRTS default-language: Haskell98@@ -419,7 +419,7 @@ main-is: ProgressThreadedRTS.hs if !flag(build-demos) buildable: False- build-depends: gtk3==0.13.2, base, transformers+ build-depends: gtk3==0.13.3, base, transformers ghc-options: -threaded Executable gtk2hs-demo-fastDraw@@ -428,7 +428,7 @@ main-is: FastDraw.hs if !flag(build-demos) buildable: False- build-depends: gtk3==0.13.2, base, transformers, array, cairo+ build-depends: gtk3==0.13.3, base, transformers, array, cairo Executable gtk2hs-demo-fonts default-language: Haskell98@@ -436,7 +436,7 @@ main-is: Fonts.hs if !flag(build-demos) buildable: False- build-depends: gtk3==0.13.2, base+ build-depends: gtk3==0.13.3, base Executable gtk2hs-demo-builder default-language: Haskell98@@ -444,7 +444,7 @@ main-is: GtkBuilderTest.hs if !flag(build-demos) buildable: False- build-depends: gtk3==0.13.2, base, transformers+ build-depends: gtk3==0.13.3, base, transformers Executable gtk2hs-demo-helloworld default-language: Haskell98@@ -452,7 +452,7 @@ main-is: World.hs if !flag(build-demos) buildable: False- build-depends: gtk3==0.13.2, base, transformers+ build-depends: gtk3==0.13.3, base, transformers Executable gtk2hs-demo-layout default-language: Haskell98@@ -460,7 +460,7 @@ main-is: Layout.hs if !flag(build-demos) buildable: False- build-depends: gtk3==0.13.2, base, transformers, cairo, text+ build-depends: gtk3==0.13.3, base, transformers, cairo, text Executable gtk2hs-demo-menudemo default-language: Haskell98@@ -468,7 +468,7 @@ main-is: MenuDemo.hs if !flag(build-demos) buildable: False- build-depends: gtk3==0.13.2, base, transformers, text+ build-depends: gtk3==0.13.3, base, transformers, text Executable gtk2hs-demo-combodemo default-language: Haskell98@@ -476,7 +476,7 @@ main-is: ComboDemo.hs if !flag(build-demos) buildable: False- build-depends: gtk3==0.13.2, text, base, transformers+ build-depends: gtk3==0.13.3, text, base, transformers Executable gtk2hs-demo-notebook default-language: Haskell98@@ -484,7 +484,7 @@ main-is: Notebook.hs if !flag(build-demos) buildable: False- build-depends: gtk3==0.13.2, base, transformers, text+ build-depends: gtk3==0.13.3, base, transformers, text Executable gtk2hs-demo-statusIcon default-language: Haskell98@@ -492,7 +492,7 @@ main-is: StatusIcon.hs if !flag(build-demos) buildable: False- build-depends: gtk3==0.13.2, base, transformers+ build-depends: gtk3==0.13.3, base, transformers Executable gtk2hs-demo-arabic default-language: Haskell98@@ -500,7 +500,7 @@ main-is: Arabic.hs if !flag(build-demos) buildable: False- build-depends: gtk3==0.13.2, base, transformers, text+ build-depends: gtk3==0.13.3, base, transformers, text Executable gtk2hs-demo-overlay default-language: Haskell98@@ -508,4 +508,4 @@ main-is: Overlay.hs if !flag(build-demos) buildable: False- build-depends: gtk3==0.13.2, base, transformers+ build-depends: gtk3==0.13.3, base, transformers