gtk 0.11.2 → 0.12.0

raw patch · 205 files changed

+16601/−4834 lines, 205 filesdep ~cairodep ~giodep ~glibsetup-changednew-uploaderbinary-addedPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: cairo, gio, glib, pango

API changes (from Hackage documentation)

Files

• Graphics/UI/Gtk.chs +84/−0
• Graphics/UI/Gtk/Abstract/Bin.chs +1/−0
• Graphics/UI/Gtk/Abstract/Box.chs +1/−0
• Graphics/UI/Gtk/Abstract/Container.chs +2/−2
• Graphics/UI/Gtk/Abstract/IMContext.chs +5/−5
• Graphics/UI/Gtk/Abstract/Misc.chs +1/−0
• Graphics/UI/Gtk/Abstract/Paned.chs +15/−0
• Graphics/UI/Gtk/Abstract/Range.chs +106/−3
• Graphics/UI/Gtk/Abstract/Scale.chs +1/−0
• Graphics/UI/Gtk/Abstract/Widget.chs +107/−20
• Graphics/UI/Gtk/ActionMenuToolbar/Action.chs +20/−3
• Graphics/UI/Gtk/ActionMenuToolbar/ActionGroup.chs +2/−2
• Graphics/UI/Gtk/ActionMenuToolbar/RadioAction.chs +2/−2
• Graphics/UI/Gtk/ActionMenuToolbar/RecentAction.chs +141/−0
• Graphics/UI/Gtk/ActionMenuToolbar/ToggleAction.chs +2/−2
• Graphics/UI/Gtk/ActionMenuToolbar/UIManager.chs +4/−4
• Graphics/UI/Gtk/Builder.chs +1/−1
• Graphics/UI/Gtk/Buttons/Button.chs +16/−0
• Graphics/UI/Gtk/Buttons/CheckButton.chs +1/−0
• Graphics/UI/Gtk/Buttons/LinkButton.chs +174/−0
• Graphics/UI/Gtk/Buttons/ScaleButton.chs +235/−0
• Graphics/UI/Gtk/Buttons/VolumeButton.chs +85/−0
• Graphics/UI/Gtk/Display/AccelLabel.chs +1/−0
• Graphics/UI/Gtk/Display/InfoBar.chs +272/−0
• Graphics/UI/Gtk/Display/Spinner.chs +99/−0
• Graphics/UI/Gtk/Display/StatusIcon.chs +23/−9
• Graphics/UI/Gtk/Display/Statusbar.chs +35/−3
• Graphics/UI/Gtk/Entry/Editable.chs +53/−23
• Graphics/UI/Gtk/Entry/Entry.chs +203/−8
• Graphics/UI/Gtk/Entry/EntryBuffer.chs +248/−0
• Graphics/UI/Gtk/Entry/EntryCompletion.chs +5/−5
• Graphics/UI/Gtk/Entry/HScale.chs +1/−0
• Graphics/UI/Gtk/Entry/SpinButton.chs +1/−0
• Graphics/UI/Gtk/Entry/VScale.chs +1/−0
• Graphics/UI/Gtk/Gdk/AppLaunchContext.chs +143/−0
• Graphics/UI/Gtk/Gdk/Cursor.chs +3/−2
• Graphics/UI/Gtk/Gdk/Display.chs +1/−1
• Graphics/UI/Gtk/Gdk/DisplayManager.chs +115/−0
• Graphics/UI/Gtk/Gdk/DrawWindow.chs +2/−2
• Graphics/UI/Gtk/Gdk/EventM.hsc +2/−2
• Graphics/UI/Gtk/Gdk/Events.hsc +1/−1
• Graphics/UI/Gtk/Gdk/GC.chs +3/−3
• Graphics/UI/Gtk/Gdk/Gdk.chs +1/−0
• Graphics/UI/Gtk/Gdk/Keymap.chs +367/−0
• Graphics/UI/Gtk/Gdk/Keys.chs +65/−0
• Graphics/UI/Gtk/Gdk/Pixbuf.chs +17/−17
• Graphics/UI/Gtk/Gdk/PixbufAnimation.chs +5/−5
• Graphics/UI/Gtk/Gdk/Pixmap.chs +3/−3
• Graphics/UI/Gtk/Gdk/Screen.chs +4/−4
• Graphics/UI/Gtk/General/Drag.chs +10/−10
• Graphics/UI/Gtk/General/Enums.chs +14/−2
• Graphics/UI/Gtk/General/General.chs +41/−5
• Graphics/UI/Gtk/General/IconFactory.chs +3/−11
• Graphics/UI/Gtk/General/IconTheme.chs +7/−7
• Graphics/UI/Gtk/General/RcStyle.chs +2/−2
• Graphics/UI/Gtk/General/Selection.chs +3/−3
• Graphics/UI/Gtk/General/Structs.hsc +34/−1
• Graphics/UI/Gtk/General/Style.chs +1/−0
• Graphics/UI/Gtk/Layout/AspectFrame.chs +1/−0
• Graphics/UI/Gtk/Layout/Expander.chs +13/−0
• Graphics/UI/Gtk/Layout/Fixed.chs +1/−0
• Graphics/UI/Gtk/Layout/HBox.chs +1/−0
• Graphics/UI/Gtk/Layout/HButtonBox.chs +1/−0
• Graphics/UI/Gtk/Layout/HPaned.chs +1/−0
• Graphics/UI/Gtk/Layout/Layout.chs +1/−0
• Graphics/UI/Gtk/Layout/Notebook.chs +38/−0
• Graphics/UI/Gtk/Layout/Table.chs +24/−0
• Graphics/UI/Gtk/Layout/VBox.chs +1/−0
• Graphics/UI/Gtk/Layout/VButtonBox.chs +1/−0
• Graphics/UI/Gtk/Layout/VPaned.chs +1/−0
• Graphics/UI/Gtk/MenuComboToolbar/CheckMenuItem.chs +11/−3
• Graphics/UI/Gtk/MenuComboToolbar/ImageMenuItem.chs +1/−0
• Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs +52/−22
• Graphics/UI/Gtk/MenuComboToolbar/RadioMenuItem.chs +1/−0
• Graphics/UI/Gtk/MenuComboToolbar/TearoffMenuItem.chs +1/−0
• Graphics/UI/Gtk/MenuComboToolbar/ToolItem.chs +50/−0
• Graphics/UI/Gtk/MenuComboToolbar/ToolItemGroup.chs +295/−0
• Graphics/UI/Gtk/MenuComboToolbar/ToolPalette.chs +267/−0
• Graphics/UI/Gtk/Misc/Accessible.chs +93/−0
• Graphics/UI/Gtk/Misc/Arrow.chs +1/−0
• Graphics/UI/Gtk/Misc/DrawingArea.chs +1/−0
• Graphics/UI/Gtk/Misc/HandleBox.chs +1/−0
• Graphics/UI/Gtk/Misc/IMContextSimple.chs +99/−0
• Graphics/UI/Gtk/Misc/IMMulticontext.chs +1/−1
• Graphics/UI/Gtk/Misc/SizeGroup.chs +2/−2
• Graphics/UI/Gtk/Misc/Tooltip.chs +24/−0
• Graphics/UI/Gtk/Misc/Viewport.chs +32/−1
• Graphics/UI/Gtk/ModelView/CellEditable.chs +146/−0
• Graphics/UI/Gtk/ModelView/CellLayout.chs +0/−3
• Graphics/UI/Gtk/ModelView/CellRendererAccel.chs +170/−0
• Graphics/UI/Gtk/ModelView/CellRendererSpin.chs +131/−0
• Graphics/UI/Gtk/ModelView/CellRendererSpinner.chs +123/−0
• Graphics/UI/Gtk/ModelView/IconView.chs +53/−2
• Graphics/UI/Gtk/ModelView/ListStore.hs +0/−2
• Graphics/UI/Gtk/ModelView/TreeDrag.chs +1/−0
• Graphics/UI/Gtk/ModelView/TreeModel.chs +5/−5
• Graphics/UI/Gtk/ModelView/TreeModelFilter.chs +5/−9
• Graphics/UI/Gtk/ModelView/TreeModelSort.chs +2/−3
• Graphics/UI/Gtk/ModelView/TreeSelection.chs +13/−0
• Graphics/UI/Gtk/ModelView/TreeSortable.chs +12/−3
• Graphics/UI/Gtk/ModelView/TreeStore.hs +44/−43
• Graphics/UI/Gtk/ModelView/TreeView.chs +10/−2
• Graphics/UI/Gtk/Multiline/TextBuffer.chs +82/−12
• Graphics/UI/Gtk/Multiline/TextMark.chs +2/−2
• Graphics/UI/Gtk/Multiline/TextTag.chs +3/−3
• Graphics/UI/Gtk/Multiline/TextTagTable.chs +3/−2
• Graphics/UI/Gtk/Multiline/TextView.chs +72/−2
• Graphics/UI/Gtk/Ornaments/Frame.chs +1/−0
• Graphics/UI/Gtk/Ornaments/HSeparator.chs +1/−0
• Graphics/UI/Gtk/Ornaments/VSeparator.chs +1/−0
• Graphics/UI/Gtk/Printing/PageSetup.chs +398/−0
• Graphics/UI/Gtk/Printing/PaperSize.chs +362/−0
• Graphics/UI/Gtk/Printing/PrintContext.chs +225/−0
• Graphics/UI/Gtk/Printing/PrintOperation.chs +935/−0
• Graphics/UI/Gtk/Printing/PrintSettings.chs +1074/−0
• Graphics/UI/Gtk/Recent/RecentChooser.chs +442/−0
• Graphics/UI/Gtk/Recent/RecentChooserMenu.chs +149/−0
• Graphics/UI/Gtk/Recent/RecentChooserWidget.chs +107/−0
• Graphics/UI/Gtk/Recent/RecentFilter.chs +225/−0
• Graphics/UI/Gtk/Recent/RecentInfo.chs +352/−0
• Graphics/UI/Gtk/Recent/RecentManager.chs +321/−0
• Graphics/UI/Gtk/Scrolling/HScrollbar.chs +1/−0
• Graphics/UI/Gtk/Scrolling/VScrollbar.chs +1/−0
• Graphics/UI/Gtk/Selectors/ColorButton.chs +1/−1
• Graphics/UI/Gtk/Selectors/ColorSelection.chs +1/−0
• Graphics/UI/Gtk/Selectors/ColorSelectionDialog.chs +1/−0
• Graphics/UI/Gtk/Selectors/FileChooser.chs +2/−2
• Graphics/UI/Gtk/Selectors/FileSelection.chs +0/−20
• Graphics/UI/Gtk/Selectors/FontButton.chs +1/−1
• Graphics/UI/Gtk/Selectors/FontSelection.chs +1/−0
• Graphics/UI/Gtk/Selectors/FontSelectionDialog.chs +47/−0
• Graphics/UI/Gtk/Selectors/HSV.chs +275/−0
• Graphics/UI/Gtk/Signals.chs +103/−1
• Graphics/UI/Gtk/Special/HRuler.chs +76/−0
• Graphics/UI/Gtk/Special/Ruler.chs +174/−0
• Graphics/UI/Gtk/Special/VRuler.chs +76/−0
• Graphics/UI/Gtk/Types.chs +929/−0
• Graphics/UI/Gtk/Windows/Assistant.chs +603/−0
• Graphics/UI/Gtk/Windows/Dialog.chs +19/−2
• Graphics/UI/Gtk/Windows/MessageDialog.chs +13/−0
• Graphics/UI/Gtk/Windows/OffscreenWindow.chs +123/−0
• Graphics/UI/Gtk/Windows/Window.chs +24/−0
• Graphics/UI/Gtk/Windows/WindowGroup.chs +2/−2
• Gtk2HsSetup.hs +44/−19
• Setup.hs +5/−2
• demo/actionMenu/ActionMenu.hs +21/−21
• demo/buttonbox/ButtonBox.hs +3/−4
• demo/carsim/CarSim.hs +3/−3
• demo/embedded/Embedded.hs +11/−11
• demo/embedded/MPlayer.hs +78/−0
• demo/embedded/Uzbl.hs +6/−6
• demo/fastdraw/FastDraw.hs +20/−20
• demo/filechooser/FileChooserDemo.hs +38/−39
• demo/fonts/Fonts.hs +2/−3
• demo/graphic/Drawing.hs +1/−2
• demo/gtkbuilder/GtkBuilderTest.hs +17/−17
• demo/inputmethod/Layout.hs +11/−11
• demo/menu/ComboDemo.hs +5/−5
• demo/notebook/Makefile +15/−0
• demo/notebook/Notebook.hs +141/−0
• demo/statusicon/StatusIcon.hs +4/−4
• demo/treeList/Completion.hs +0/−82
• demo/treeList/DirList.hs +0/−82
• demo/treeList/FilterDemo.hs +0/−71
• demo/treeList/ListDND.hs +0/−248
• demo/treeList/ListDemo.hs +0/−66
• demo/treeList/ListTest.glade +0/−1404
• demo/treeList/ListTest.hs +0/−102
• demo/treeList/ListText.hs +0/−78
• demo/treeList/Makefile +0/−45
• demo/treeList/TreeDemo.hs +0/−68
• demo/treeList/TreeSort.hs +0/−85
• demo/treeList/TreeTest.glade +0/−1108
• demo/treeList/TreeTest.hs +0/−115
• demo/treeList/resListDND/desktop.png binary
• demo/treeList/resListDND/laptop.png binary
• demo/treeList/resListDND/laptopSmall.png binary
• demo/treeList/resListDND/printer.png binary
• demo/treeList/resListDND/server.png binary
• demo/treeList/resListDND/tower.png binary
• demo/treeList/rgb.txt +0/−753
• demo/treelist/Completion.hs +81/−0
• demo/treelist/DirList.hs +82/−0
• demo/treelist/FilterDemo.hs +71/−0
• demo/treelist/ListDND.hs +248/−0
• demo/treelist/ListDemo.hs +66/−0
• demo/treelist/ListTest.glade +1404/−0
• demo/treelist/ListTest.hs +102/−0
• demo/treelist/ListText.hs +77/−0
• demo/treelist/Makefile +45/−0
• demo/treelist/TreeDemo.hs +68/−0
• demo/treelist/TreeSort.hs +85/−0
• demo/treelist/TreeTest.glade +1108/−0
• demo/treelist/TreeTest.hs +115/−0
• demo/treelist/resListDND/desktop.png binary
• demo/treelist/resListDND/laptop.png binary
• demo/treelist/resListDND/laptopSmall.png binary
• demo/treelist/resListDND/printer.png binary
• demo/treelist/resListDND/server.png binary
• demo/treelist/resListDND/tower.png binary
• demo/treelist/rgb.txt +753/−0
• demo/unicode/Arabic.hs +2/−2
• gtk.cabal +73/−34
• hierarchy.list +32/−0
• marshal.list +10/−0

@@ -53,6 +53,7 @@   module Graphics.UI.Gtk.General.Clipboard,    -- * Drawing and other Low-Level Operations+  module Graphics.UI.Gtk.Gdk.AppLaunchContext,   module Graphics.UI.Gtk.Gdk.Cursor,   module Graphics.UI.Gtk.Gdk.Drawable,   module Graphics.UI.Gtk.Gdk.DrawWindow,@@ -62,15 +63,19 @@   module Graphics.UI.Gtk.Gdk.Pixbuf,   module Graphics.UI.Gtk.Gdk.Pixmap,   module Graphics.UI.Gtk.Gdk.Screen,+  module Graphics.UI.Gtk.Gdk.Keymap,   module Graphics.UI.Gtk.Gdk.Display,+  module Graphics.UI.Gtk.Gdk.DisplayManager,   module Graphics.UI.Gtk.Gdk.Gdk,   -- ** cairo integration   module Graphics.UI.Gtk.Cairo,   -- * Windows   module Graphics.UI.Gtk.Windows.Window,+  module Graphics.UI.Gtk.Windows.OffscreenWindow,   module Graphics.UI.Gtk.Windows.Invisible,   module Graphics.UI.Gtk.Windows.Dialog,   module Graphics.UI.Gtk.Windows.AboutDialog,+  module Graphics.UI.Gtk.Windows.Assistant,   module Graphics.UI.Gtk.Windows.MessageDialog,   module Graphics.UI.Gtk.Windows.WindowGroup,   -- * Display widgets,@@ -78,16 +83,24 @@   module Graphics.UI.Gtk.Display.Image,   module Graphics.UI.Gtk.Display.Label,   module Graphics.UI.Gtk.Display.ProgressBar,+  module Graphics.UI.Gtk.Display.Spinner,   module Graphics.UI.Gtk.Display.Statusbar,   module Graphics.UI.Gtk.Display.StatusIcon,+#if GTK_CHECK_VERSION(2,18,0)+  module Graphics.UI.Gtk.Display.InfoBar,+#endif   -- * Buttons and toggles   module Graphics.UI.Gtk.Buttons.Button,   module Graphics.UI.Gtk.Buttons.CheckButton,   module Graphics.UI.Gtk.Buttons.RadioButton,   module Graphics.UI.Gtk.Buttons.ToggleButton,+  module Graphics.UI.Gtk.Buttons.LinkButton,+  module Graphics.UI.Gtk.Buttons.ScaleButton,+  module Graphics.UI.Gtk.Buttons.VolumeButton,   -- * Numeric\/text data entry   module Graphics.UI.Gtk.Entry.Editable,   module Graphics.UI.Gtk.Entry.Entry,+  module Graphics.UI.Gtk.Entry.EntryBuffer,   module Graphics.UI.Gtk.Entry.EntryCompletion,   module Graphics.UI.Gtk.Entry.HScale,   module Graphics.UI.Gtk.Entry.VScale,@@ -100,12 +113,16 @@   module Graphics.UI.Gtk.Multiline.TextTagTable,   module Graphics.UI.Gtk.Multiline.TextView,   -- * Tree and list widget+  module Graphics.UI.Gtk.ModelView.CellEditable,   module Graphics.UI.Gtk.ModelView.CellLayout,   module Graphics.UI.Gtk.ModelView.CellRenderer,+  module Graphics.UI.Gtk.ModelView.CellRendererSpinner,   module Graphics.UI.Gtk.ModelView.CellRendererCombo,   module Graphics.UI.Gtk.ModelView.CellRendererPixbuf,   module Graphics.UI.Gtk.ModelView.CellRendererProgress,   module Graphics.UI.Gtk.ModelView.CellRendererText,+  module Graphics.UI.Gtk.ModelView.CellRendererAccel,+  module Graphics.UI.Gtk.ModelView.CellRendererSpin,   module Graphics.UI.Gtk.ModelView.CellRendererToggle,   module Graphics.UI.Gtk.ModelView.CellView,   module Graphics.UI.Gtk.ModelView.CustomStore,@@ -136,6 +153,8 @@   module Graphics.UI.Gtk.MenuComboToolbar.TearoffMenuItem,   module Graphics.UI.Gtk.MenuComboToolbar.Toolbar,   module Graphics.UI.Gtk.MenuComboToolbar.ToolItem,+  module Graphics.UI.Gtk.MenuComboToolbar.ToolItemGroup,+  module Graphics.UI.Gtk.MenuComboToolbar.ToolPalette,   module Graphics.UI.Gtk.MenuComboToolbar.ToolButton,   module Graphics.UI.Gtk.MenuComboToolbar.MenuToolButton,   module Graphics.UI.Gtk.MenuComboToolbar.ToggleToolButton,@@ -147,6 +166,7 @@   module Graphics.UI.Gtk.ActionMenuToolbar.ActionGroup,   module Graphics.UI.Gtk.ActionMenuToolbar.ToggleAction,   module Graphics.UI.Gtk.ActionMenuToolbar.RadioAction,+  module Graphics.UI.Gtk.ActionMenuToolbar.RecentAction,   module Graphics.UI.Gtk.ActionMenuToolbar.UIManager,   -- * Selectors (file\/font\/color)   module Graphics.UI.Gtk.Selectors.ColorSelection,@@ -156,6 +176,13 @@   module Graphics.UI.Gtk.Selectors.FontSelection,   module Graphics.UI.Gtk.Selectors.FontSelectionDialog,   module Graphics.UI.Gtk.Selectors.FontButton,+#if GTK_CHECK_VERSION(2,14,0)+  module Graphics.UI.Gtk.Selectors.HSV,+#endif+  -- * Special-purpose features+  module Graphics.UI.Gtk.Special.Ruler,+  module Graphics.UI.Gtk.Special.HRuler,+  module Graphics.UI.Gtk.Special.VRuler, --  module InputDialog,   -- ** File chooser   module Graphics.UI.Gtk.Selectors.FileChooser,@@ -181,11 +208,25 @@   module Graphics.UI.Gtk.Ornaments.Frame,   module Graphics.UI.Gtk.Ornaments.HSeparator,   module Graphics.UI.Gtk.Ornaments.VSeparator,+  -- * Printing+  module Graphics.UI.Gtk.Printing.PaperSize,+  module Graphics.UI.Gtk.Printing.PageSetup,+  module Graphics.UI.Gtk.Printing.PrintContext,+  module Graphics.UI.Gtk.Printing.PrintOperation,+  module Graphics.UI.Gtk.Printing.PrintSettings,+  -- * Recent+  module Graphics.UI.Gtk.Recent.RecentChooserMenu,+  module Graphics.UI.Gtk.Recent.RecentChooserWidget,+  module Graphics.UI.Gtk.Recent.RecentFilter,+  module Graphics.UI.Gtk.Recent.RecentManager,+  module Graphics.UI.Gtk.Recent.RecentInfo,+  module Graphics.UI.Gtk.Recent.RecentChooser,   -- * Scrolling   module Graphics.UI.Gtk.Scrolling.HScrollbar,   module Graphics.UI.Gtk.Scrolling.ScrolledWindow,   module Graphics.UI.Gtk.Scrolling.VScrollbar,   -- * Miscellaneous+  module Graphics.UI.Gtk.Misc.Accessible,   module Graphics.UI.Gtk.Misc.Adjustment,   module Graphics.UI.Gtk.Misc.Arrow,   module Graphics.UI.Gtk.Misc.Calendar,@@ -193,6 +234,7 @@   module Graphics.UI.Gtk.Misc.EventBox,   module Graphics.UI.Gtk.Misc.HandleBox,   module Graphics.UI.Gtk.Misc.IMMulticontext,+  module Graphics.UI.Gtk.Misc.IMContextSimple,   module Graphics.UI.Gtk.Misc.SizeGroup,   module Graphics.UI.Gtk.Misc.Tooltip,   module Graphics.UI.Gtk.Misc.Tooltips,@@ -241,6 +283,7 @@ import Graphics.UI.Gtk.Gdk.Keys import Graphics.UI.Gtk.General.Style import Graphics.UI.Gtk.General.RcStyle+import Graphics.UI.Gtk.Gdk.AppLaunchContext import Graphics.UI.Gtk.Gdk.Cursor import Graphics.UI.Gtk.Gdk.Drawable import Graphics.UI.Gtk.Gdk.DrawWindow@@ -250,15 +293,19 @@ import Graphics.UI.Gtk.Gdk.Pixbuf import Graphics.UI.Gtk.Gdk.Pixmap import Graphics.UI.Gtk.Gdk.Screen+import Graphics.UI.Gtk.Gdk.Keymap import Graphics.UI.Gtk.Gdk.Display+import Graphics.UI.Gtk.Gdk.DisplayManager import Graphics.UI.Gtk.Gdk.Gdk -- cairo integration import Graphics.UI.Gtk.Cairo -- windows import Graphics.UI.Gtk.Windows.Dialog import Graphics.UI.Gtk.Windows.Window+import Graphics.UI.Gtk.Windows.OffscreenWindow import Graphics.UI.Gtk.Windows.Invisible import Graphics.UI.Gtk.Windows.AboutDialog+import Graphics.UI.Gtk.Windows.Assistant import Graphics.UI.Gtk.Windows.MessageDialog import Graphics.UI.Gtk.Windows.WindowGroup -- display widgets@@ -266,20 +313,28 @@ import Graphics.UI.Gtk.Display.Image import Graphics.UI.Gtk.Display.Label import Graphics.UI.Gtk.Display.ProgressBar+import Graphics.UI.Gtk.Display.Spinner import Graphics.UI.Gtk.Display.Statusbar #if GTK_CHECK_VERSION(2,10,0) && !DISABLE_DEPRECATED import Graphics.UI.Gtk.Display.StatusIcon hiding (onActivate,afterActivate,onPopupMenu,afterPopupMenu) #else import Graphics.UI.Gtk.Display.StatusIcon #endif+#if GTK_CHECK_VERSION(2,18,0)+import Graphics.UI.Gtk.Display.InfoBar+#endif -- buttons and toggles import Graphics.UI.Gtk.Buttons.Button import Graphics.UI.Gtk.Buttons.CheckButton import Graphics.UI.Gtk.Buttons.RadioButton import Graphics.UI.Gtk.Buttons.ToggleButton+import Graphics.UI.Gtk.Buttons.LinkButton+import Graphics.UI.Gtk.Buttons.ScaleButton+import Graphics.UI.Gtk.Buttons.VolumeButton -- numeric\/text data entry import Graphics.UI.Gtk.Entry.Editable import Graphics.UI.Gtk.Entry.Entry+import Graphics.UI.Gtk.Entry.EntryBuffer import Graphics.UI.Gtk.Entry.EntryCompletion import Graphics.UI.Gtk.Entry.HScale import Graphics.UI.Gtk.Entry.VScale@@ -293,12 +348,16 @@ import qualified Graphics.UI.Gtk.Multiline.TextView import Graphics.UI.Gtk.Multiline.TextView -- tree and list widget+import Graphics.UI.Gtk.ModelView.CellEditable import Graphics.UI.Gtk.ModelView.CellLayout import Graphics.UI.Gtk.ModelView.CellRenderer+import Graphics.UI.Gtk.ModelView.CellRendererSpinner import Graphics.UI.Gtk.ModelView.CellRendererCombo import Graphics.UI.Gtk.ModelView.CellRendererPixbuf import Graphics.UI.Gtk.ModelView.CellRendererProgress import Graphics.UI.Gtk.ModelView.CellRendererText+import Graphics.UI.Gtk.ModelView.CellRendererAccel+import Graphics.UI.Gtk.ModelView.CellRendererSpin import Graphics.UI.Gtk.ModelView.CellRendererToggle import Graphics.UI.Gtk.ModelView.CellView import Graphics.UI.Gtk.ModelView.CustomStore@@ -330,6 +389,8 @@ import Graphics.UI.Gtk.MenuComboToolbar.TearoffMenuItem import Graphics.UI.Gtk.MenuComboToolbar.Toolbar import Graphics.UI.Gtk.MenuComboToolbar.ToolItem+import Graphics.UI.Gtk.MenuComboToolbar.ToolItemGroup+import Graphics.UI.Gtk.MenuComboToolbar.ToolPalette import Graphics.UI.Gtk.MenuComboToolbar.ToolButton import Graphics.UI.Gtk.MenuComboToolbar.MenuToolButton import Graphics.UI.Gtk.MenuComboToolbar.ToggleToolButton@@ -341,6 +402,7 @@ import Graphics.UI.Gtk.ActionMenuToolbar.ActionGroup import Graphics.UI.Gtk.ActionMenuToolbar.ToggleAction import Graphics.UI.Gtk.ActionMenuToolbar.RadioAction+import Graphics.UI.Gtk.ActionMenuToolbar.RecentAction import Graphics.UI.Gtk.ActionMenuToolbar.UIManager -- selectors (file\/font\/color\/input device) import Graphics.UI.Gtk.Selectors.ColorSelection@@ -355,6 +417,13 @@ import Graphics.UI.Gtk.Selectors.FontSelection import Graphics.UI.Gtk.Selectors.FontSelectionDialog import Graphics.UI.Gtk.Selectors.FontButton+#if GTK_CHECK_VERSION(2,14,0)+import Graphics.UI.Gtk.Selectors.HSV+#endif+-- Special-purpose features+import Graphics.UI.Gtk.Special.Ruler+import Graphics.UI.Gtk.Special.HRuler+import Graphics.UI.Gtk.Special.VRuler --import InputDialog -- layout containers import Graphics.UI.Gtk.Layout.Alignment@@ -374,11 +443,25 @@ import Graphics.UI.Gtk.Ornaments.Frame import Graphics.UI.Gtk.Ornaments.HSeparator import Graphics.UI.Gtk.Ornaments.VSeparator+-- printing+import Graphics.UI.Gtk.Printing.PaperSize+import Graphics.UI.Gtk.Printing.PageSetup+import Graphics.UI.Gtk.Printing.PrintContext+import Graphics.UI.Gtk.Printing.PrintOperation+import Graphics.UI.Gtk.Printing.PrintSettings+-- recent+import Graphics.UI.Gtk.Recent.RecentChooserMenu+import Graphics.UI.Gtk.Recent.RecentChooserWidget+import Graphics.UI.Gtk.Recent.RecentFilter+import Graphics.UI.Gtk.Recent.RecentManager+import Graphics.UI.Gtk.Recent.RecentInfo+import Graphics.UI.Gtk.Recent.RecentChooser -- scrolling import Graphics.UI.Gtk.Scrolling.HScrollbar import Graphics.UI.Gtk.Scrolling.VScrollbar import Graphics.UI.Gtk.Scrolling.ScrolledWindow -- miscellaneous+import Graphics.UI.Gtk.Misc.Accessible import Graphics.UI.Gtk.Misc.Adjustment import Graphics.UI.Gtk.Misc.Arrow import Graphics.UI.Gtk.Misc.Calendar@@ -386,6 +469,7 @@ import Graphics.UI.Gtk.Misc.EventBox import Graphics.UI.Gtk.Misc.HandleBox import Graphics.UI.Gtk.Misc.IMMulticontext+import Graphics.UI.Gtk.Misc.IMContextSimple import Graphics.UI.Gtk.Misc.SizeGroup import Graphics.UI.Gtk.Misc.Tooltip import Graphics.UI.Gtk.Misc.Tooltips

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget Bin --

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget Box --

@@ -524,10 +524,10 @@ -- | Emitted when widgets need to be queried again for their preferred size. -- checkResize :: ContainerClass self => Signal self (IO ())-checkResize = Signal (connect_NONE__NONE "check_resize")+checkResize = Signal (connect_NONE__NONE "check-resize")  -- %hash c:b3a d:af3f--- | A widget in the container received the input focus.+-- | A widget in the container received or lost the input focus. -- setFocusChild :: ContainerClass self => Signal self (Maybe Widget -> IO ()) setFocusChild = Signal (connect_MOBJECT__NONE "set-focus-child")

@@ -275,20 +275,20 @@ -- | This signal is emitted when a new preediting sequence starts. -- imContextPreeditStart :: IMContextClass self => Signal self (IO ())-imContextPreeditStart = Signal (connect_NONE__NONE "preedit_start")+imContextPreeditStart = Signal (connect_NONE__NONE "preedit-start")  -- | This signal is emitted when a preediting sequence has been completed or -- canceled. -- imContextPreeditEnd :: IMContextClass self => Signal self (IO ())-imContextPreeditEnd = Signal (connect_NONE__NONE "preedit_end")+imContextPreeditEnd = Signal (connect_NONE__NONE "preedit-end")  -- | This signal is emitted whenever the preedit sequence currently being -- entered has changed. It is also emitted at the end of a preedit sequence, -- in which case 'imContextGetPreeditString' returns the empty string. -- imContextPreeditChanged :: IMContextClass self => Signal self (IO ())-imContextPreeditChanged = Signal (connect_NONE__NONE "preedit_changed")+imContextPreeditChanged = Signal (connect_NONE__NONE "preedit-changed")  -- | This signal is emitted when a complete input sequence has been -- entered by the user. This can be a single character immediately after a@@ -304,7 +304,7 @@ -- -- Returns True if the signal was handled. imContextRetrieveSurrounding :: IMContextClass self => Signal self (IO Bool)-imContextRetrieveSurrounding = Signal (connect_NONE__BOOL "retrieve_surrounding")+imContextRetrieveSurrounding = Signal (connect_NONE__BOOL "retrieve-surrounding")  -- | This signal is emitted when the input method needs to delete all or part -- of the context surrounding the cursor. Parameters:@@ -316,4 +316,4 @@ -- -- Returns True if the signal was handled. imContextDeleteSurrounding' :: IMContextClass self => Signal self (Int -> Int -> IO Bool)-imContextDeleteSurrounding' = Signal (connect_INT_INT__BOOL "delete_surrounding")+imContextDeleteSurrounding' = Signal (connect_INT_INT__BOOL "delete-surrounding")

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget Misc --

@@ -82,6 +82,9 @@   panedGetChild1,   panedGetChild2, #endif+#if GTK_CHECK_VERSION(2,20,0)+  panedGetHandleWindow,+#endif  -- * Attributes   panedPosition,@@ -226,6 +229,18 @@   maybeNull (makeNewObject mkWidget) $   {# call unsafe paned_get_child2 #}     (toPaned self)+#endif++#if GTK_CHECK_VERSION(2,20,0)+-- | Returns the 'Window' of the handle. This function is useful when handling button or motion events+-- because it enables the callback to distinguish between the window of the paned, a child and the+-- handle.+panedGetHandleWindow :: PanedClass self => self+                     -> IO DrawWindow+panedGetHandleWindow self =+    makeNewGObject mkDrawWindow $+    {#call gtk_paned_get_handle_window #}+      (toPaned self) #endif  --------------------

@@ -68,6 +68,14 @@   rangeSetUpperStepperSensitivity,   rangeGetUpperStepperSensitivity, #endif+#if GTK_CHECK_VERSION(2,20,0)+  rangeGetMinSliderSize,+  rangeGetRangeRect,+  rangeGetSliderRange,+  rangeGetSliderSizeFixed,+  rangeSetMinSliderSize,+  rangeSetSliderSizeFixed,+#endif  -- * Attributes   rangeUpdatePolicy,@@ -78,6 +86,10 @@   rangeUpperStepperSensitivity, #endif   rangeValue,+#if GTK_CHECK_VERSION(2,20,0)+  rangeSliderSizeFixed,+  rangeMinSliderSize,+#endif  -- * Signals   adjustBounds,@@ -110,6 +122,7 @@ {#import Graphics.UI.Gtk.Types#} {#import Graphics.UI.Gtk.Signals#} import Graphics.UI.Gtk.General.Enums	(UpdateType(..), ScrollType(..))+import Graphics.UI.Gtk.General.Structs	(Rectangle(..))  {# context lib="gtk" prefix="gtk" #} @@ -305,7 +318,83 @@   {# call gtk_range_get_upper_stepper_sensitivity #}     (toRange self) #endif+#if GTK_CHECK_VERSION(2,20,0)+-- | This function is useful mainly for 'Range' subclasses.+-- +-- See 'rangeSetMinSliderSize'.+rangeGetMinSliderSize :: RangeClass self => self+                      -> IO Int  -- ^ returns The minimum size of the range's slider. +rangeGetMinSliderSize range =+  liftM fromIntegral $+  {#call gtk_range_get_min_slider_size #}+    (toRange range) +-- | This function returns the area that contains the range's trough and its steppers, in 'DrawWindow'+-- coordinates.+-- +-- This function is useful mainly for 'Range' subclasses.+rangeGetRangeRect :: RangeClass self => self+                  -> IO Rectangle+rangeGetRangeRect self =+  alloca $ \rPtr -> do+  {# call gtk_range_get_range_rect #}+    (toRange self)+    (castPtr rPtr)+  peek rPtr++-- | This function returns sliders range along the long dimension, in 'DrawWindow' coordinates.+-- +-- This function is useful mainly for 'Range' subclasses.+rangeGetSliderRange :: RangeClass self => self+                    -> IO (Maybe (Int, Int))+rangeGetSliderRange range =+    alloca $ \ startPtr -> +    alloca $ \ endPtr -> do+      {#call gtk_range_get_slider_range #}+        (toRange range)+        startPtr+        endPtr+      if (startPtr /= nullPtr && endPtr /= nullPtr)+         then do+           start <- peek startPtr+           end <- peek endPtr+           return (Just (fromIntegral start, fromIntegral end))+         else return Nothing++-- | This function is useful mainly for 'Range' subclasses.+-- +-- See 'rangeSetSliderSizeFixed'.+rangeGetSliderSizeFixed :: RangeClass self => self+                        -> IO Bool  -- ^ returns whether the range's slider has a fixed size. +rangeGetSliderSizeFixed self =   +  liftM toBool $+  {#call gtk_range_get_slider_size_fixed #}+    (toRange self)++-- | Sets the minimum size of the range's slider.+-- +-- This function is useful mainly for 'Range' subclasses.+rangeSetMinSliderSize :: RangeClass self => self+                      -> Bool+                      -> IO ()+rangeSetMinSliderSize self minSize =+  {#call gtk_range_set_min_slider_size #}+    (toRange self)+    (fromBool minSize)++-- | Sets whether the range's slider has a fixed size, or a size that depends on it's adjustment's page+-- size.+-- +-- This function is useful mainly for 'Range' subclasses.+rangeSetSliderSizeFixed :: RangeClass self => self+                        -> Bool -- ^ @sizeFixed@ 'True' to make the slider size constant +                        -> IO ()+rangeSetSliderSizeFixed self sizeFixed =+  {#call gtk_range_set_slider_size_fixed #}+    (toRange self)+    (fromBool sizeFixed)+#endif+ -------------------- -- Attributes @@ -364,6 +453,20 @@   rangeGetValue   rangeSetValue +#if GTK_CHECK_VERSION(2,20,0)+-- | Wheter range's slikder has a fixed size, or a size that depends on it's adjustment's page size.+rangeSliderSizeFixed :: RangeClass self => Attr self Bool+rangeSliderSizeFixed = newAttr+  rangeGetSliderSizeFixed+  rangeSetSliderSizeFixed++-- | Get\/Set sliders range along the long dimension, in 'DrawWindow' coordinates.+rangeMinSliderSize :: RangeClass self => ReadWriteAttr self Int Bool+rangeMinSliderSize = newAttr+  rangeGetMinSliderSize+  rangeSetMinSliderSize+#endif+ -------------------- -- Signals @@ -371,13 +474,13 @@ -- | Emitted when the range value changes. -- valueChanged :: RangeClass self => Signal self (IO ())-valueChanged = Signal (connect_NONE__NONE "value_changed")+valueChanged = Signal (connect_NONE__NONE "value-changed")  -- %hash c:9576 d:af3f -- | -- adjustBounds :: RangeClass self => Signal self (Double -> IO ())-adjustBounds = Signal (connect_DOUBLE__NONE "adjust_bounds")+adjustBounds = Signal (connect_DOUBLE__NONE "adjust-bounds")  #if GTK_CHECK_VERSION(2,6,0) -- %hash c:a84 d:a60c@@ -398,7 +501,7 @@ -- * Available since Gtk+ version 2.6 -- changeValue :: RangeClass self => Signal self (ScrollType -> Double -> IO Bool)-changeValue = Signal (connect_ENUM_DOUBLE__BOOL "change_value")+changeValue = Signal (connect_ENUM_DOUBLE__BOOL "change-value") #endif  --------------------

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget Scale --

@@ -145,6 +145,9 @@   widgetSetTooltipWindow,   widgetTriggerTooltipQuery, #endif+#if GTK_CHECK_VERSION(2,14,0)+  widgetGetSnapshot,+#endif   widgetPath,   widgetClassPath,   widgetGetCompositeName,@@ -173,7 +176,7 @@   widgetGetParent,   widgetGetSettings, #if GTK_CHECK_VERSION(2,2,0)-  --widgetGetClipboard,+  widgetGetClipboard,   widgetGetDisplay,   widgetGetRootWindow,   widgetGetScreen,@@ -230,6 +233,11 @@   widgetTooltipMarkup,   widgetTooltipText,   widgetHasTooltip,+#if GTK_CHECK_VERSION(2,20,0)+  widgetHasRcStyle,+  widgetGetRealized,+  widgetGetMapped,+#endif  -- * Signals   realize,@@ -366,11 +374,12 @@ import System.Glib.UTFString import System.Glib.Attributes import System.Glib.Properties-import System.Glib.GObject		(constructNewGObject, makeNewGObject)+import System.Glib.GObject		(wrapNewGObject, makeNewGObject) import System.Glib.GType      (GType) import System.Glib.GList      (GList, fromGList) import Graphics.UI.Gtk.Abstract.Object	(makeNewObject) import Graphics.Rendering.Pango.Markup+import Graphics.UI.Gtk.General.DNDTypes (Atom (Atom), SelectionTag) {#import Graphics.UI.Gtk.Types#} {#import Graphics.UI.Gtk.Signals#} import Graphics.UI.Gtk.Gdk.Enums	(EventMask(..), ExtensionMode(..))@@ -1223,6 +1232,38 @@     (toWidget self) #endif +#if GTK_CHECK_VERSION(2,14,0)+-- | Create a 'Pixmap' of the contents of the widget and its children.+-- +-- Works even if the widget is obscured. The depth and visual of the resulting pixmap is dependent on+-- the widget being snapshot and likely differs from those of a target widget displaying the+-- pixmap. The function 'pixbufGetFromDrawable' can be used to convert the pixmap to a visual+-- independant representation.+-- +-- The snapshot area used by this function is the widget's allocation plus any extra space occupied by+-- additional windows belonging to this widget (such as the arrows of a spin button). Thus, the+-- resulting snapshot pixmap is possibly larger than the allocation.+-- +-- The resulting pixmap is shrunken to match the specified @clipRect@. The+-- (x,y) coordinates of @clipRect@ are interpreted widget relative. If width or height of @clipRect@ are+-- 0 or negative, the width or height of the resulting pixmap will be shrunken by the respective+-- amount. For instance a @clipRect@ { +5, +5, -10, -10 } will chop off 5 pixels at each side of the+-- snapshot pixmap. @clipRect@ will contain the exact widget-relative snapshot coordinates+-- upon return. A @clipRect@ of { -1, -1, 0, 0 } can be used to preserve the auto-grown snapshot area+-- and use @clipRect@ as a pure output parameter.+-- +-- The returned pixmap can be 'Nothing', if the resulting @clipArea@ was empty.+widgetGetSnapshot :: WidgetClass self => self+                  -> Rectangle+                  -> IO (Maybe Pixmap) -- ^ returns   'Pixmap' snapshot of the widget    +widgetGetSnapshot widget clipRect = +  maybeNull (wrapNewGObject mkPixmap) $+  with clipRect $ \ clipRectPtr -> +  {#call gtk_widget_get_snapshot #}+     (toWidget widget)+     (castPtr clipRectPtr)+#endif+ -- %hash c:7e36 d:616f -- | Obtains the full path to @widget@. The path is simply the name of a -- widget and all its parents in the container hierarchy, separated by periods.@@ -1438,7 +1479,7 @@ widgetCreatePangoContext :: WidgetClass self => self  -> IO PangoContext -- ^ returns the new 'PangoContext' widgetCreatePangoContext self =-  constructNewGObject mkPangoContext $+  wrapNewGObject mkPangoContext $   {# call gtk_widget_create_pango_context #}     (toWidget self) @@ -1483,7 +1524,7 @@  -> String    -- ^ @text@ - text to set on the layout  -> IO PangoLayout widgetCreateLayout self text = do-  pl <- constructNewGObject mkPangoLayoutRaw $+  pl <- wrapNewGObject mkPangoLayoutRaw $     withUTFString text $ \textPtr ->     {# call unsafe widget_create_pango_layout #}       (toWidget self)@@ -1514,7 +1555,7 @@  -> IO (Maybe Pixbuf) -- ^ returns a new pixbuf, or @Nothing@ if the stock ID                       -- wasn't known widgetRenderIcon self stockId size detail =-  maybeNull (makeNewGObject mkPixbuf) $+  maybeNull (wrapNewGObject mkPixbuf) $   withUTFString detail $ \detailPtr ->   withUTFString stockId $ \stockIdPtr ->   {# call gtk_widget_render_icon #}@@ -1783,6 +1824,25 @@  #if GTK_CHECK_VERSION(2,2,0) +-- | Returns the clipboard object for the given selection to+-- be used with widget. widget must have a 'Display'+-- associated with it, so must be attached to a toplevel+-- window.+widgetGetClipboard :: WidgetClass self => self+                   -> SelectionTag  -- ^ @selection@ a 'Atom' which identifies the clipboard+                                       -- to use. 'selectionClipboard' gives the+                                       -- default clipboard. Another common value+                                       -- is 'selectionPrimary', which gives+                                       -- the primary X selection. +                   -> IO Clipboard -- ^ returns the appropriate clipboard object. If no+                                   -- clipboard already exists, a new one will+                                   -- be created. +widgetGetClipboard self (Atom tagPtr) = +  makeNewGObject mkClipboard $+  {#call gtk_widget_get_clipboard #} +    (toWidget self)+    tagPtr+ -- %hash c:45ed d:52ef -- | Get the 'Display' for the toplevel window associated with this widget. -- This function can only be called after the widget has been added to a widget@@ -2331,6 +2391,33 @@ widgetHasTooltip :: WidgetClass self => Attr self Bool widgetHasTooltip = newAttrFromBoolProperty "has-tooltip" +#if GTK_CHECK_VERSION(2,20,0)+-- | Determines if the widget style has been looked up through the rc mechanism.+widgetHasRcStyle :: WidgetClass self => self +                 -> IO Bool -- ^ returns 'True' if the widget has been looked up through the rc mechanism, 'False' otherwise.+widgetHasRcStyle self =                 +  liftM toBool $+  {#call gtk_widget_has_rc_style #}+    (toWidget self)++-- | Determines whether widget is realized.+widgetGetRealized :: WidgetClass self => self+                  -> IO Bool  -- ^ returns 'True' if widget is realized, 'False' otherwise +widgetGetRealized self =+  liftM toBool $+  {#call gtk_widget_get_realized #}+    (toWidget self)+  +-- | Whether the widget is mapped.+widgetGetMapped :: WidgetClass self => self+                -> IO Bool  -- ^ returns 'True' if the widget is mapped, 'False' otherwise. +widgetGetMapped self =+  liftM toBool $+  {#call gtk_widget_get_mapped #}+    (toWidget self)+  +#endif+ -------------------- -- Signals @@ -2373,7 +2460,7 @@ -- sizeRequest :: WidgetClass self => Signal self (IO Requisition) sizeRequest = Signal (\after w fun ->-  connect_PTR__NONE "size_request" after w+  connect_PTR__NONE "size-request" after w     (\rqPtr -> fun >>= \req -> unless (rqPtr==nullPtr) $ poke rqPtr req))  -- %hash c:8ec5 d:af3f@@ -2384,7 +2471,7 @@ --   inform the widget about the real size it should occupy. -- sizeAllocate :: WidgetClass self => Signal self (Allocation -> IO ())-sizeAllocate = Signal (connect_BOXED__NONE "size_allocate" peek)+sizeAllocate = Signal (connect_BOXED__NONE "size-allocate" peek)  -- %hash c:ae3e d:af3f -- | The widget is shown.@@ -2408,14 +2495,14 @@ -- | The state of the widget (input focus, insensitive, etc.) has changed. -- stateChanged :: WidgetClass self => Signal self (StateType -> IO ())-stateChanged = Signal (connect_ENUM__NONE "state_changed")+stateChanged = Signal (connect_ENUM__NONE "state-changed")  -- %hash c:bef2 d:1d66--- | The parent-set signal is emitted when a new parent has been set on a+-- | The 'parentSet' signal is emitted when a new parent has been set on a -- widget. The parameter is the new parent. -- parentSet :: WidgetClass self => Signal self (Maybe Widget -> IO ())-parentSet = Signal (connect_MOBJECT__NONE "parent_set")+parentSet = Signal (connect_MOBJECT__NONE "parent-set")  -- %hash c:7e2b d:4049 -- | Emitted when there is a change in the hierarchy to which a widget belong.@@ -2424,21 +2511,21 @@ -- anchored or vice-versa. -- hierarchyChanged :: WidgetClass self => Signal self (Maybe Widget -> IO ())-hierarchyChanged = Signal (connect_MOBJECT__NONE "hierarchy_changed")+hierarchyChanged = Signal (connect_MOBJECT__NONE "hierarchy-changed")  -- %hash c:5894 d:ba10--- | The style-set signal is emitted when a new style has been set on a+-- | The 'styleSet' signal is emitted when a new style has been set on a -- widget. Note that style-modifying functions like 'widgetModifyBase' also -- cause this signal to be emitted. -- styleSet :: WidgetClass self => Signal self (Style -> IO ())-styleSet = Signal (connect_OBJECT__NONE "style_set")+styleSet = Signal (connect_OBJECT__NONE "style-set")  -- %hash c:6bb1 d:af3f -- | The default direction of text writing has changed. -- directionChanged :: WidgetClass self => Signal self (TextDirection -> IO ())-directionChanged = Signal (connect_ENUM__NONE "direction_changed")+directionChanged = Signal (connect_ENUM__NONE "direction-changed")  -- %hash c:c28c d:d116 -- | The 'grabNotify' signal is emitted when a widget becomes shadowed by a@@ -2449,7 +2536,7 @@ -- grab stack of its window group is not its ancestor. -- grabNotify :: WidgetClass self => Signal self (Bool -> IO ())-grabNotify = Signal (connect_BOOL__NONE "grab_notify")+grabNotify = Signal (connect_BOOL__NONE "grab-notify")  -- %hash c:e06c d:a681 -- | This signal gets emitted whenever a widget should pop up a@@ -2459,7 +2546,7 @@ -- creates a menu with clipboard commands. -- popupMenuSignal :: WidgetClass self => Signal self (IO Bool)-popupMenuSignal = Signal (connect_NONE__BOOL "popup_menu")+popupMenuSignal = Signal (connect_NONE__BOOL "popup-menu")  -- | Specify what kind of help the user wants. {#enum GtkWidgetHelpType as WidgetHelpType {underscoreToCase} deriving (Eq,Show) #}@@ -2469,19 +2556,19 @@ --   if help has been shown. -- showHelp :: WidgetClass self => Signal self (WidgetHelpType -> IO Bool)-showHelp = Signal (connect_ENUM__BOOL "show_help")+showHelp = Signal (connect_ENUM__BOOL "show-help")  -- %hash c:6a8f d:af3f -- | The set of keyboard accelerators has changed. -- accelClosuresChanged :: WidgetClass self => Signal self (IO ())-accelClosuresChanged = Signal (connect_NONE__NONE "accel_closures_changed")+accelClosuresChanged = Signal (connect_NONE__NONE "accel-closures-changed")  -- %hash c:5ca d:af3f -- | The widget moved to a new screen. -- screenChanged :: WidgetClass self => Signal self (Screen -> IO ())-screenChanged = Signal (connect_OBJECT__NONE "screen_changed")+screenChanged = Signal (connect_OBJECT__NONE "screen-changed")  -- | Emitted when 'hasTooltip' is 'True' and the 'gtkTooltipTimeout' has expired with the cursor -- hovering "above" widget; or emitted when widget got focus in keyboard mode.@@ -2497,7 +2584,7 @@ queryTooltip :: WidgetClass self => Signal self (Widget -> Maybe Point -> Tooltip -> IO Bool) queryTooltip =   Signal (\after model user -> -           connect_OBJECT_INT_INT_BOOL_OBJECT__BOOL "query_tooltip" +           connect_OBJECT_INT_INT_BOOL_OBJECT__BOOL "query-tooltip"               after model (\widget x y keyb tooltip ->                                user widget (if keyb then Nothing else Just (x, y)) tooltip)) 

@@ -2,11 +2,12 @@ -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget Action -----  Author : Duncan Coutts+--  Author : Duncan Coutts, Andy Stewart -- --  Created: 6 April 2005 -- --  Copyright (C) 2005 Duncan Coutts+--  Copyright (C) 2010 Andy Stewart -- --  This library is free software; you can redistribute it and/or --  modify it under the terms of the GNU Lesser General Public@@ -128,6 +129,9 @@   actionVisible,   actionAccelPath, #endif+#if GTK_CHECK_VERSION(2,20,0)+  actionAlwaysShowImage,+#endif  -- * Signals   actionActivated,@@ -147,7 +151,7 @@ import System.Glib.GList import System.Glib.Attributes import System.Glib.Properties-import System.Glib.GObject		(constructNewGObject)+import System.Glib.GObject		(wrapNewGObject) import Graphics.UI.Gtk.Abstract.Object	(makeNewObject) {#import Graphics.UI.Gtk.Types#} {#import Graphics.UI.Gtk.Signals#}@@ -174,7 +178,7 @@                   -- representing the action  -> IO Action actionNew name label tooltip stockId =-  constructNewGObject mkAction $+  wrapNewGObject mkAction $   maybeWith withUTFString stockId $ \stockIdPtr ->   maybeWith withUTFString tooltip $ \tooltipPtr ->   withUTFString label $ \labelPtr ->@@ -500,6 +504,19 @@ actionAccelPath = newAttr   actionGetAccelPath   actionSetAccelPath+#endif++#if GTK_CHECK_VERSION(2,20,0)+-- | If 'True', the action's menu item proxies will ignore the 'menuImages' setting and always show+-- their image, if available.+-- +-- Use this property if the menu item would be useless or hard to use without their image.+-- +-- Default value: 'False'+-- +-- Since 2.20+actionAlwaysShowImage :: ActionClass self => Attr self Bool+actionAlwaysShowImage = newAttrFromBoolProperty "always-show-image" #endif  --------------------

@@ -113,7 +113,7 @@ import System.Glib.GList import System.Glib.Attributes import System.Glib.Properties-import System.Glib.GObject		(constructNewGObject,+import System.Glib.GObject		(wrapNewGObject, 					 makeNewGObject, destroyFunPtr) {#import Graphics.UI.Gtk.Types#} import System.Glib.Signals (on)@@ -135,7 +135,7 @@     String         -- ^ @name@ - the name of the action group.  -> IO ActionGroup actionGroupNew name =-  constructNewGObject mkActionGroup $+  wrapNewGObject mkActionGroup $   withUTFString name $ \namePtr ->   {# call gtk_action_group_new #}     namePtr

@@ -88,7 +88,7 @@ import System.Glib.GList import System.Glib.Attributes import System.Glib.Properties-import System.Glib.GObject		(constructNewGObject, makeNewGObject)+import System.Glib.GObject		(wrapNewGObject, makeNewGObject) {#import Graphics.UI.Gtk.Types#} {#import Graphics.UI.Gtk.Signals#} import Graphics.UI.Gtk.General.StockItems@@ -114,7 +114,7 @@                    -- should return if this action is selected.  -> IO RadioAction radioActionNew name label tooltip stockId value =-  constructNewGObject mkRadioAction $+  wrapNewGObject mkRadioAction $   maybeWith withUTFString stockId $ \stockIdPtr ->   maybeWith withUTFString tooltip $ \tooltipPtr ->   withUTFString label $ \labelPtr ->

@@ -0,0 +1,141 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widget RecentAction+--+--  Author : Andy Stewart+--+--  Created: 24 Mar 2010+--+--  Copyright (C) 2010 Andy Stewart+--+--  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.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- An action of which represents a list of recently used files+--+-- * Module available since Gtk+ version 2.12+--+module Graphics.UI.Gtk.ActionMenuToolbar.RecentAction (++-- * Detail+--+-- | A 'RecentAction' represents a list of recently used files, which can be+-- shown by widgets such as 'RecentChooserDialog' or 'RecentChooserMenu'.+--+-- To construct a submenu showing recently used files, use a 'RecentAction'+-- as the action for a \<menuitem>. To construct a menu toolbutton showing the+-- recently used files in the popup menu, use a 'RecentAction' as the action+-- for a \<toolitem> element.++-- * Class Hierarchy+--+-- |+-- @+-- |  'GObject'+-- |   +----'Action'+-- |         +----RecentAction+-- @++#if GTK_CHECK_VERSION(2,12,0)+-- * Types+  RecentAction,+  RecentActionClass,+  castToRecentAction,+  toRecentAction,++-- * Constructors+  recentActionNew,+  recentActionNewForManager,++-- * Attributes+  recentActionShowNumbers,+#endif+  ) where++import Control.Monad	(liftM)+import Data.Maybe (fromMaybe)++import System.Glib.FFI+import System.Glib.Attributes+import System.Glib.Properties+import System.Glib.UTFString+import System.Glib.GObject		(wrapNewGObject)+{#import Graphics.UI.Gtk.Types#}++{# context lib="gtk" prefix="gtk" #}++#if GTK_CHECK_VERSION(2,12,0)+--------------------+-- Constructors++-- | Creates a new 'RecentAction' object. To add the action to a 'ActionGroup'+-- and set the accelerator for the action, call+-- 'actionGroupAddActionWithAccel'.+--+recentActionNew ::+    String -- ^ @name@ - a unique name for the action+ -> Maybe String -- ^ @label@ - the label displayed in menu items and on buttons, or 'Nothing'+ -> Maybe String -- ^ @tooltip@ - a tooltip for the action, or 'Nothing' + -> Maybe String -- ^ @stockId@ - the stock icon to display in widgets representing+           -- the action, or 'Nothing'+ -> IO RecentAction+recentActionNew name label tooltip stockId =+  wrapNewGObject mkRecentAction $ +  liftM castPtr $+  withUTFString name $ \namePtr ->+  maybeWith withUTFString label $ \labelPtr ->+  maybeWith withUTFString tooltip $ \tooltipPtr ->+  maybeWith withUTFString stockId $ \stockIdPtr ->+  {# call gtk_recent_action_new #}+    namePtr+    labelPtr+    tooltipPtr+    stockIdPtr++-- | Creates a new 'RecentAction' object. To add the action to a 'ActionGroup'+-- and set the accelerator for the action, call+-- 'actionGroupAddActionWithAccel'.+--+recentActionNewForManager :: RecentManagerClass manager =>+    String  -- ^ @name@ - a unique name for the action+ -> Maybe String  -- ^ @label@ - the label displayed in menu items and on buttons,+            -- or 'Nothing'+ -> Maybe String  -- ^ @tooltip@ - a tooltip for the action, or 'Nothing'+ -> Maybe String  -- ^ @stockId@ - the stock icon to display in widgets representing+            -- the action, or 'Nothing'+ -> Maybe manager -- ^ @manager@ - a 'RecentManager', or 'Nothing' for the+            -- default 'RecentManager'+ -> IO RecentAction+recentActionNewForManager name label tooltip stockId manager =+  wrapNewGObject mkRecentAction $ liftM castPtr $+  withUTFString name $ \namePtr ->+  maybeWith withUTFString label $ \labelPtr ->+  maybeWith withUTFString tooltip $ \tooltipPtr ->+  maybeWith withUTFString stockId $ \stockIdPtr -> do+    {# call gtk_recent_action_new_for_manager #}+      namePtr+      labelPtr+      tooltipPtr+      stockIdPtr+      (maybe (RecentManager nullForeignPtr) toRecentManager manager)++--------------------+-- Attributes++-- | If recent items should be shown with numbers next to them.+--+recentActionShowNumbers :: RecentActionClass self => Attr self Bool+recentActionShowNumbers = newAttrFromBoolProperty "show-numbers"+#endif

@@ -83,7 +83,7 @@ import System.Glib.UTFString import System.Glib.Attributes import System.Glib.Properties-import System.Glib.GObject		(constructNewGObject)+import System.Glib.GObject		(wrapNewGObject) {#import Graphics.UI.Gtk.Types#} {#import Graphics.UI.Gtk.Signals#} import Graphics.UI.Gtk.General.StockItems@@ -107,7 +107,7 @@                     -- representing the action  -> IO ToggleAction toggleActionNew name label tooltip stockId =-  constructNewGObject mkToggleAction $+  wrapNewGObject mkToggleAction $   maybeWith withUTFString stockId $ \stockIdPtr ->   maybeWith withUTFString tooltip $ \tooltipPtr ->   withUTFString label $ \labelPtr ->

@@ -262,7 +262,7 @@ import System.Glib.GError import System.Glib.Attributes import System.Glib.Properties-import System.Glib.GObject		(constructNewGObject, makeNewGObject)+import System.Glib.GObject		(wrapNewGObject, makeNewGObject) import Graphics.UI.Gtk.Abstract.Object	(makeNewObject) {#import Graphics.UI.Gtk.Types#} {#import Graphics.UI.Gtk.Signals#}@@ -285,7 +285,7 @@ -- uiManagerNew :: IO UIManager uiManagerNew =-  constructNewGObject mkUIManager $+  wrapNewGObject mkUIManager $   {# call gtk_ui_manager_new #}  --------------------@@ -566,14 +566,14 @@ -- 'uiManagerGetWidget'. -- addWidget :: UIManagerClass self => Signal self (Widget -> IO ())-addWidget = Signal (connect_OBJECT__NONE "add_widget")+addWidget = Signal (connect_OBJECT__NONE "add-widget")  -- %hash c:2480 d:366c -- | The \"actions-changed\" signal is emitted whenever the set of actions -- changes. -- actionsChanged :: UIManagerClass self => Signal self (IO ())-actionsChanged = Signal (connect_NONE__NONE "actions_changed")+actionsChanged = Signal (connect_NONE__NONE "actions-changed")  -------------------- -- Deprecated Signals

@@ -113,7 +113,7 @@ -- | Creates a new 'Builder' object. builderNew :: IO Builder builderNew =-  makeNewObject mkBuilder $+  wrapNewGObject mkBuilder $   {# call unsafe builder_new #}  -- | Parses a file containing a GtkBuilder UI definition and merges it with

@@ -93,6 +93,9 @@   buttonSetImagePosition,   buttonGetImagePosition, #endif+#if GTK_CHECK_VERSION(2,22,0)+  buttonGetEventWindow,+#endif  -- * Attributes   buttonLabel,@@ -490,6 +493,19 @@ buttonGetImagePosition self =   liftM (toEnum . fromIntegral) $   {# call gtk_button_get_image_position #}+    (toButton self)+#endif++#if GTK_CHECK_VERSION(2,22,0)+-- | Returns the button's event window if it is realized, 'Nothing' otherwise.  +--+-- * Available since Gtk+ version 2.22+--+buttonGetEventWindow :: ButtonClass self => self +                       -> IO (Maybe DrawWindow) -- ^ returns button's event window or 'Nothing'+buttonGetEventWindow self =+  maybeNull (makeNewGObject mkDrawWindow) $+  {#call gtk_button_get_event_window #}     (toButton self) #endif 

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget CheckButton --

@@ -0,0 +1,174 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widget LinkButton+--+--  Author : Andy Stewart+--+--  Created: 22 Mar 2010+--+--  Copyright (C) 2010 Andy Stewart+--+--  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.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- Create buttons bound to a URL+--+-- * Module available since Gtk+ version 2.10+--+module Graphics.UI.Gtk.Buttons.LinkButton (++-- * Detail+--+-- | A 'LinkButton' is a 'Button' with a hyperlink, similar to the one used by+-- web browsers, which triggers an action when clicked. It is useful to show+-- quick links to resources.+--+-- A link button is created by calling either 'linkButtonNew' or+-- 'linkButtonNewWithLabel'. If using the former, the URI you pass to the+-- constructor is used as a label for the widget.+--+-- The URI bound to a 'LinkButton' can be set specifically using+-- \"set linkButton [linkButtonURI := uri]\", and retrieved using \"uri <- get linkButton linkButtonURI\".+--+-- 'LinkButton' offers a global hook, which is called when the used clicks+-- on it: see 'linkButtonSetURIHook'.+--+-- 'LinkButton' was added in Gtk+ 2.10.++-- * Class Hierarchy+--+-- |+-- @+-- |  'GObject'+-- |   +----'Object'+-- |         +----'Widget'+-- |               +----'Container'+-- |                     +----'Bin'+-- |                           +----'Button'+-- |                                 +----LinkButton+-- @++#if GTK_CHECK_VERSION(2,10,0)+-- * Types+  LinkButton,+  LinkButtonClass,+  castToLinkButton,+  toLinkButton,++-- * Constructors+  linkButtonNew,+  linkButtonNewWithLabel,++-- * Methods+  linkButtonSetUriHook,++-- * Attributes+  linkButtonURI,+#if GTK_CHECK_VERSION(2,14,0)+  linkButtonVisited,+#endif+#endif+  ) where++import Control.Monad	(liftM, unless)++import System.Glib.FFI+import System.Glib.UTFString+import System.Glib.Attributes+import System.Glib.Properties+import Graphics.UI.Gtk.Abstract.Object	(makeNewObject)+{#import Graphics.UI.Gtk.Types#}+{#import Graphics.UI.Gtk.Signals#}++{# context lib="gtk" prefix="gtk" #}++#if GTK_CHECK_VERSION(2,10,0)++--------------------+-- Constructors++-- | Creates a new 'LinkButton' with the URI as its text.+--+linkButtonNew ::+    String -- ^ @uri@ - a valid URI+ -> IO LinkButton+linkButtonNew uri =+  makeNewObject mkLinkButton $+  liftM (castPtr :: Ptr Widget -> Ptr LinkButton) $+  withUTFString uri $ \uriPtr ->+  {# call gtk_link_button_new #}+    uriPtr++-- | Creates a new 'LinkButton' containing a label.+--+linkButtonNewWithLabel ::+    String -- ^ @uri@ - a valid URI+ -> String -- ^ @label@ - the text of the button+ -> IO LinkButton+linkButtonNewWithLabel uri label =+  makeNewObject mkLinkButton $+  liftM (castPtr :: Ptr Widget -> Ptr LinkButton) $+  withUTFString label $ \labelPtr ->+  withUTFString uri $ \uriPtr ->+  {# call gtk_link_button_new_with_label #}+    uriPtr+    labelPtr++--------------------+-- Methods++-- | Sets @func@ as the function that should be invoked every time a user+-- clicks a 'LinkButton'. This function is called before every callback+-- registered for the 'buttonClicked' signal.+--+-- If no uri hook has been set, Gtk+ defaults to calling 'showURI'.+--+linkButtonSetUriHook :: (String -> IO ()) -> IO ()+linkButtonSetUriHook func = do+  pfPtr <- mkLinkButtonUriFunc $ \_ cstr _  -> do+      str <- peekCString cstr+      func str+  {# call link_button_set_uri_hook #} pfPtr (castFunPtrToPtr pfPtr) destroyFunPtr+  freeHaskellFunPtr pfPtr+  +{#pointer LinkButtonUriFunc#}++foreign import ccall "wrapper" mkLinkButtonUriFunc ::+  (Ptr LinkButton -> CString -> Ptr () -> IO ())+  -> IO LinkButtonUriFunc++--------------------+-- Attributes++-- | The URI bound to this button.+-- +-- Default value: \"\"+-- +-- * Available since Gtk+ version 2.10+--+linkButtonURI :: LinkButtonClass self => Attr self String+linkButtonURI = newAttrFromStringProperty "uri"++#if GTK_CHECK_VERSION(2,14,0)+-- | The 'visited' state of this button. A visited link is drawn in a different color.+-- +-- Default value: 'False'+-- +-- * Available since Gtk+ version 2.14+--+linkButtonVisited :: LinkButtonClass self => Attr self Bool+linkButtonVisited = newAttrFromBoolProperty "visited"+#endif+#endif

@@ -0,0 +1,235 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widget ScaleButton+--+--  Author : Andy Stewart+--+--  Created: 22 Mar 2010+--+--  Copyright (C) 2010 Andy Stewart+--+--  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.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- A button which pops up a scale+--+-- * Module available since Gtk+ version 2.12+--+module Graphics.UI.Gtk.Buttons.ScaleButton (++-- * Detail+--+-- | 'ScaleButton' provides a button which pops up a scale widget. This kind+-- of widget is commonly used for volume controls in multimedia applications,+-- and Gtk+ provides a 'VolumeButton' subclass that is tailored for this use+-- case.++-- * Class Hierarchy+--+-- |+-- @+-- |  'GObject'+-- |   +----'Object'+-- |         +----'Widget'+-- |               +----'Container'+-- |                     +----'Bin'+-- |                           +----'Button'+-- |                                 +----ScaleButton+-- |                                       +----'VolumeButton'+-- @++#if GTK_CHECK_VERSION(2,12,0)+-- * Types+  ScaleButton,+  ScaleButtonClass,+  castToScaleButton,+  toScaleButton,++-- * Constructors+  scaleButtonNew,++-- * Methods+  scaleButtonSetIcons,+#if GTK_CHECK_VERSION(2,14,0)+  scaleButtonGetPopup,+  scaleButtonGetPlusButton,+  scaleButtonGetMinusButton,+#endif++-- * Attributes+  scaleButtonValue,+  scaleButtonSize,+  scaleButtonAdjustment,+  scaleButtonIcons,++-- * Signals+  scaleButtonPopdown,+  scaleButtonPopup,+  scaleButtonValueChanged,+#endif+  ) where++import Control.Monad	(liftM)++import System.Glib.FFI+import System.Glib.UTFString+import System.Glib.Attributes+import System.Glib.Properties+import Graphics.UI.Gtk.Abstract.Object	(makeNewObject)+import Graphics.UI.Gtk.General.Structs	(IconSize(..))+{#import Graphics.UI.Gtk.Types#}+{#import Graphics.UI.Gtk.Signals#}++{# context lib="gtk" prefix="gtk" #}++#if GTK_CHECK_VERSION(2,12,0)+--------------------+-- Interfaces++-- instance OrientableClass ScaleButton++--------------------+-- Constructors++-- | Creates a 'ScaleButton', with a range between @min@ and @max@, with a+-- stepping of @step@.+--+scaleButtonNew ::+    IconSize -- ^ @size@ - a stock icon size+ -> Double   -- ^ @min@ - the minimum value of the scale (usually 0)+ -> Double   -- ^ @max@ - the maximum value of the scale (usually 100)+ -> Double   -- ^ @step@ - the stepping of value when a scroll-wheel event, or+             -- up\/down arrow event occurs (usually 2)+ -> [String] -- ^ @icons@+ -> IO ScaleButton+scaleButtonNew size min max step icons =+  makeNewObject mkScaleButton $+  liftM (castPtr :: Ptr Widget -> Ptr ScaleButton) $+  withUTFStringArray0 icons $ \iconsPtr ->+  {# call gtk_scale_button_new #}+    ((fromIntegral . fromEnum) size)+    (realToFrac min)+    (realToFrac max)+    (realToFrac step)+    iconsPtr++--------------------+-- Methods++-- | Sets the icons to be used by the scale button. For details, see the "icons" property.+scaleButtonSetIcons :: ScaleButtonClass self => self+ -> [String] -- ^ @icons@+ -> IO ()+scaleButtonSetIcons self icons =+  withUTFStringArray0 icons $ \iconsPtr ->+  {# call gtk_scale_button_set_icons #}+    (toScaleButton self)+    iconsPtr++#if GTK_CHECK_VERSION(2,14,0)+-- | Retrieves the popup of the 'ScaleButton'.+--+-- * Available since Gtk+ version 2.14+--+scaleButtonGetPopup :: ScaleButtonClass self => self+ -> IO Widget -- ^ returns the popup of the 'ScaleButton'+scaleButtonGetPopup self =+  makeNewObject mkWidget $+  {# call gtk_scale_button_get_popup #}+    (toScaleButton self)++-- | Retrieves the plus button of the 'ScaleButton'.+--+-- * Available since Gtk+ version 2.14+--+scaleButtonGetPlusButton :: ScaleButtonClass self => self+ -> IO Widget -- ^ returns the plus button of the 'ScaleButton'.+scaleButtonGetPlusButton self =+  makeNewObject mkWidget $+  {# call gtk_scale_button_get_plus_button #}+    (toScaleButton self)++-- | Retrieves the minus button of the 'ScaleButton'.+--+-- * Available since Gtk+ version 2.14+--+scaleButtonGetMinusButton :: ScaleButtonClass self => self+ -> IO Widget -- ^ returns the minus button of the 'ScaleButton'.+scaleButtonGetMinusButton self =+  makeNewObject mkWidget $+  {# call gtk_scale_button_get_minus_button #}+    (toScaleButton self)+#endif++--------------------+-- Attributes++-- | The value of the scale.+-- +-- Default value: 0+scaleButtonValue :: ScaleButtonClass self => Attr self Double+scaleButtonValue = newAttrFromDoubleProperty "value"++-- | The icon size.+-- +-- Default value: ''IconSizeSmallToolbar''+scaleButtonSize :: ScaleButtonClass self => Attr self IconSize+scaleButtonSize = newAttrFromEnumProperty "size"+                    {# call pure unsafe gtk_icon_size_get_type #}++-- | The 'Adjustment' that contains the current value of this scale button object.+scaleButtonAdjustment :: ScaleButtonClass self => Attr self Adjustment+scaleButtonAdjustment = newAttrFromObjectProperty "adjustment"+                          {# call pure unsafe gtk_adjustment_get_type #}++-- | The names of the icons to be used by the scale button. The first item in the array will be used in+-- the button when the current value is the lowest value, the second item for the highest value. All+-- the subsequent icons will be used for all the other values, spread evenly over the range of values.+-- +-- If there's only one icon name in the icons array, it will be used for all the values. If only two+-- icon names are in the icons array, the first one will be used for the bottom 50% of the scale, and+-- the second one for the top 50%.+-- +-- It is recommended to use at least 3 icons so that the 'ScaleButton' reflects the current value of+-- the scale better for the users.+-- +-- Since 2.12+scaleButtonIcons :: ScaleButtonClass self => ReadWriteAttr self [String] (Maybe [String])+scaleButtonIcons =+  newAttr (objectGetPropertyBoxedOpaque (peekUTFStringArray0 . castPtr) gtype "search-path")+          (objectSetPropertyBoxedOpaque (\dirs f -> maybeWith withUTFStringArray0 dirs (f . castPtr)) gtype "search-path")+  where gtype = {#call pure g_strv_get_type#}+++--------------------+-- Signals++-- | The 'scaleButtonValueChanged' signal is emitted when the value field has changed.+--+scaleButtonValueChanged :: ScaleButtonClass self => Signal self (Double -> IO ())+scaleButtonValueChanged = Signal (connect_DOUBLE__NONE "value_changed")++-- | The 'popup' signal is a keybinding signal which gets emitted to popup the scale widget.+-- +-- The default bindings for this signal are Space, Enter and Return.+scaleButtonPopup :: ScaleButtonClass self => Signal self (IO ())+scaleButtonPopup = Signal (connect_NONE__NONE "popup")++-- | The 'popdown' signal is a keybinding signal which gets emitted to popdown the scale widget.+-- +-- The default binding for this signal is Escape.+scaleButtonPopdown :: ScaleButtonClass self => Signal self (IO ())+scaleButtonPopdown = Signal (connect_NONE__NONE "popdown")+#endif

@@ -0,0 +1,85 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widget VolumeButton+--+--  Author : Andy Stewart+--+--  Created: 22 Mar 2010+--+--  Copyright (C) 2010 Andy Stewart+--+--  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.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- A button which pops up a volume control+--+-- * Module available since Gtk+ version 2.12+--+module Graphics.UI.Gtk.Buttons.VolumeButton (++-- * Detail+--+-- | 'VolumeButton' is a subclass of 'ScaleButton' that has been tailored for+-- use as a volume control widget with suitable icons, tooltips and accessible+-- labels.++-- * Class Hierarchy+--+-- |+-- @+-- |  'GObject'+-- |   +----'Object'+-- |         +----'Widget'+-- |               +----'Container'+-- |                     +----'Bin'+-- |                           +----'Button'+-- |                                 +----'ScaleButton'+-- |                                       +----VolumeButton+-- @++#if GTK_CHECK_VERSION(2,12,0)+-- * Types+  VolumeButton,+  VolumeButtonClass,+  castToVolumeButton,+  toVolumeButton,++-- * Constructors+  volumeButtonNew,+#endif+  ) where++import Control.Monad	(liftM)++import System.Glib.FFI+import Graphics.UI.Gtk.Abstract.Object	(makeNewObject)+{#import Graphics.UI.Gtk.Types#}++{# context lib="gtk" prefix="gtk" #}++#if GTK_CHECK_VERSION(2,12,0)+--------------------+-- Constructors++-- | Creates a 'VolumeButton', with a range between 0.0 and 1.0, with a+-- stepping of 0.02. Volume values can be obtained and modified using the+-- functions from 'ScaleButton'.+--+volumeButtonNew :: IO VolumeButton+volumeButtonNew =+  makeNewObject mkVolumeButton $+  liftM (castPtr :: Ptr Widget -> Ptr VolumeButton) $+  {# call gtk_volume_button_new #}+#endif

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget AccelLabel --

@@ -0,0 +1,272 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widget InfoBar+--+--  Author : Andy Stewart+--+--  Created: 27 Mar 2010+--+--  Copyright (C) 2010 Andy Stewart+--+--  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.+--+-- The following varargs functions can't bound:+--+--   gtk_info_bar_new_with_buttons+--   gtk_info_bar_add_buttons+--+-- Use 'infoBarAddButton' replace.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- Report important messages to the user+--+module Graphics.UI.Gtk.Display.InfoBar (++-- * Detail+--+-- | 'InfoBar' is a widget that can be used to show messages to the user+-- without showing a dialog. It is often temporarily shown at the top or bottom+-- of a document. In contrast to 'Dialog', which has a horizontal action area+-- at the bottom, 'InfoBar' has a vertical action area at the side.+--+-- The API of 'InfoBar' is very similar to 'Dialog', allowing you to add+-- buttons to the action area with 'infoBarAddButton'. +-- The sensitivity of action widgets can be controlled+-- with 'infoBarSetResponseSensitive'. To add widgets to the main content area+-- of a 'InfoBar', use 'infoBarGetContentArea' and add your widgets to the+-- container.+--+-- Similar to 'MessageDialog', the contents of a 'InfoBar' can by classified+-- as error message, warning, informational message, etc, by using+-- 'infoBarSetMessageType'. Gtk+ uses the message type to determine the+-- background color of the message area.++-- * Class Hierarchy+--+-- |+-- @+-- |  'GObject'+-- |   +----'Object'+-- |         +----'Widget'+-- |               +----'Container'+-- |                     +----'Box'+-- |                           +----'HBox'+-- |                                 +----InfoBar+-- @++#if GTK_CHECK_VERSION(2,18,0)+-- * Types+  InfoBar,+  InfoBarClass,+  castToInfoBar,+  toInfoBar,++-- * Constructors+  infoBarNew,++-- * Methods+  infoBarAddActionWidget,+  infoBarAddButton,+  infoBarSetResponseSensitive,+  infoBarSetDefaultResponse,+  infoBarEmitResponse,+  infoBarGetActionArea,+  infoBarGetContentArea,++-- * Attributes+  infoBarMessageType,++-- * Signals+  infoBarResponse,+  infoBarClose,+#endif+  ) where++import Control.Monad	(liftM)++import System.Glib.FFI+import System.Glib.UTFString+import System.Glib.Attributes+import System.Glib.Properties+{#import Graphics.UI.Gtk.Abstract.Object#}	(makeNewObject)+{#import Graphics.UI.Gtk.Windows.MessageDialog#} (MessageType)+{#import Graphics.UI.Gtk.Types#}+{#import Graphics.UI.Gtk.Signals#}++{# context lib="gtk" prefix="gtk" #}++--------------------+-- Interfaces++-- instance BuildableClass InfoBar++--------------------+-- Constructors++#if GTK_CHECK_VERSION(2,18,0)+-- | Creates a new 'InfoBar' object.+--+-- * Available since Gtk+ version 2.18+--+infoBarNew :: IO InfoBar+infoBarNew =+  makeNewObject mkInfoBar $+  liftM (castPtr :: Ptr Widget -> Ptr InfoBar) $+  {# call gtk_info_bar_new #}++--------------------+-- Methods++-- | Add an activatable widget to the action area of a 'InfoBar', connecting a signal handler that will+-- emit the "response" signal on the message area when the widget is activated. The widget is appended+-- to the end of the message areas action area.+--+-- * Available since Gtk+ version 2.18+--+infoBarAddActionWidget :: (InfoBarClass self, WidgetClass child) => self+ -> child -- ^ @child@ - an activatable widget+ -> Int   -- ^ @responseId@ - response ID for @child@+ -> IO ()+infoBarAddActionWidget self child responseId =+  {# call gtk_info_bar_add_action_widget #}+    (toInfoBar self)+    (toWidget child)+    (fromIntegral responseId)++-- | Adds a button with the given text (or a stock button, if buttonText is a+-- stock ID) and sets things up so that clicking the button will emit the+-- \"response\" signal with the given responseId. The button is appended to+-- the end of the info bars's action area. The button widget is returned, but+-- usually you don't need it.+--+-- * Available since Gtk+ version 2.18+--+infoBarAddButton :: InfoBarClass self => self+ -> String    -- ^ @buttonText@ - text of button, or stock ID+ -> Int       -- ^ @responseId@ - response ID for the button+ -> IO Button -- ^ returns the button widget that was added+infoBarAddButton self buttonText responseId =+  makeNewObject mkButton $+  withUTFString buttonText $ \buttonTextPtr ->+  liftM (castPtr :: Ptr Widget -> Ptr Button) $+     {# call gtk_info_bar_add_button #}+       (toInfoBar self)+       buttonTextPtr+       (fromIntegral responseId)++-- | Calls 'widgetSetSensitive' for each widget in the+-- info bars's action area with the given responseId. A convenient way to+-- sensitize\/desensitize dialog buttons.+--+-- * Available since Gtk+ version 2.18+--+infoBarSetResponseSensitive :: InfoBarClass self => self+ -> Int  -- ^ @responseId@ - a response ID+ -> Bool -- ^ @setting@ - @True@ for sensitive+ -> IO ()+infoBarSetResponseSensitive self responseId setting =+  {# call gtk_info_bar_set_response_sensitive #}+    (toInfoBar self)+    (fromIntegral responseId)+    (fromBool setting)++-- | Sets the last widget in the info bar's action area with the given+-- responseId as the default widget for the dialog. Pressing \"Enter\"+-- normally activates the default widget.+--+-- * Available since Gtk+ version 2.18+--+infoBarSetDefaultResponse :: InfoBarClass self => self+ -> Int -- ^ @responseId@ - a response ID+ -> IO ()+infoBarSetDefaultResponse self responseId =+  {# call gtk_info_bar_set_default_response #}+    (toInfoBar self)+    (fromIntegral responseId)++-- | Emits the \'response\' signal with the given @responseId@.+--+-- * Available since Gtk+ version 2.18+--+infoBarEmitResponse :: InfoBarClass self => self+ -> Int -- ^ @responseId@ - a response ID+ -> IO ()+infoBarEmitResponse self responseId =+  {# call gtk_info_bar_response #}+    (toInfoBar self)+    (fromIntegral responseId)++-- | Returns the action area of @infoBar@.+--+-- * Available since Gtk+ version 2.18+--+infoBarGetActionArea :: InfoBarClass self => self+ -> IO Widget -- ^ returns the action area.+infoBarGetActionArea self =+  makeNewObject mkWidget $+  {# call gtk_info_bar_get_action_area #}+    (toInfoBar self)++-- | Returns the content area of @infoBar@.+--+-- * Available since Gtk+ version 2.18+--+infoBarGetContentArea :: InfoBarClass self => self+ -> IO Widget -- ^ returns the content area.+infoBarGetContentArea self =+  makeNewObject mkWidget $+  {# call gtk_info_bar_get_content_area #}+    (toInfoBar self)++--------------------+-- Attributes++-- | The type of the message.+-- +-- The type is used to determine the colors to use in the info bar. +-- +-- If the type is 'MessageOther', no info bar is painted but the colors are still set.+-- +-- Default value: 'MessageInfo'+-- +-- * Available since Gtk+ version 2.18+--+infoBarMessageType :: InfoBarClass self => Attr self MessageType+infoBarMessageType = newAttrFromEnumProperty "message-type"+                       {# call pure unsafe gtk_message_type_get_type #}++--------------------+-- Signals++-- | The 'close' signal is a keybinding signal which gets emitted when the user uses a keybinding to+-- dismiss the info bar.+-- +-- The default binding for this signal is the Escape key.+-- +-- Since 2.18+infoBarClose :: InfoBarClass self => Signal self (IO ())+infoBarClose = Signal (connect_NONE__NONE "close")+      ++-- | Emitted when an action widget is clicked or the application programmer+-- calls 'dialogResponse'. The @responseId@ depends on which action widget was+-- clicked.+--+-- * Available since Gtk+ version 2.18+--+infoBarResponse :: InfoBarClass self => Signal self (Int -> IO ())+infoBarResponse = Signal (connect_INT__NONE "response")+#endif+

@@ -0,0 +1,99 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widget Spinner+--+--  Author : Andy Stewart+--+--  Created: 17 Aug 2010+--+--  Copyright (C) 2010 Andy Stewart+--+--  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.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- Report messages of minor importance to the user+--+module Graphics.UI.Gtk.Display.Spinner (+#if GTK_CHECK_VERSION(2,20,0)+-- * Detail+-- +-- | A 'Spinner' widget displays an icon-size spinning animation. It is often used as an alternative to+-- a 'ProgressBar' for displaying indefinite activity, instead of actual progress.+-- +-- To start the animation, use 'spinnerStart'.++-- * Types+   Spinner,+   SpinnerClass,++-- * Constructors+   spinnerNew,++-- * Methods+   spinnerStart,+   spinnerStop,+   +-- * Attributes   +   spinnerActive,+#endif+) where++import Control.Monad	(liftM)++import System.Glib.FFI+import System.Glib.UTFString+import System.Glib.Attributes+import System.Glib.Properties+import Graphics.UI.Gtk.Abstract.Object	(makeNewObject)+{#import Graphics.UI.Gtk.Types#}+{#import Graphics.UI.Gtk.Signals#}++{# context lib="gtk" prefix="gtk" #}++#if GTK_CHECK_VERSION(2,20,0)+--------------------+-- Constructors++-- | Returns a new spinner widget. Not yet started.+spinnerNew :: IO Spinner+spinnerNew = +  makeNewObject mkSpinner $+  liftM (castPtr :: Ptr Widget -> Ptr Spinner) $+  {# call unsafe spinner_new #}++--------------------+-- Methods++-- | Starts the animation of the spinner.+spinnerStart :: SpinnerClass spinner => spinner -> IO ()+spinnerStart spinner =+  {#call spinner_start #}+    (toSpinner spinner)++-- | Stops the animation of the spinner.+spinnerStop :: SpinnerClass spinner => spinner -> IO ()+spinnerStop spinner =+  {#call spinner_stop #}+    (toSpinner spinner)++--------------------+-- Attributes++-- | Whether the spinner is active.+-- +-- Default value: 'False'+spinnerActive :: SpinnerClass spinner => Attr spinner Bool+spinnerActive = newAttrFromBoolProperty "active"+#endif

@@ -2,11 +2,12 @@ -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget StatusIcon -----  Author : Andrea Vezzosi+--  Author : Andrea Vezzosi, Andy Stewart -- --  Created: 19 July 2007 -- --  Copyright (C) 2007 Axel Simon+--  Copyright (C) 2010 Andy Stewart -- --  This library is free software; you can redistribute it and/or --  modify it under the terms of the GNU Lesser General Public@@ -93,6 +94,9 @@   statusIconIsEmbedded,   statusIconPositionMenu,   statusIconGetGeometry,+#if GTK_CHECK_VERSION(2,20,0)+  statusIconSetName,+#endif  -- * Attributes   statusIconPixbuf,@@ -127,7 +131,7 @@ import System.Glib.UTFString import System.Glib.Attributes import System.Glib.Properties-import System.Glib.GObject		(constructNewGObject,makeNewGObject)+import System.Glib.GObject		(wrapNewGObject,makeNewGObject) {#import Graphics.UI.Gtk.Types#} {#import Graphics.UI.Gtk.General.Enums#} import Graphics.UI.Gtk.General.Structs@@ -148,7 +152,7 @@ -- statusIconNew :: IO StatusIcon statusIconNew =-  constructNewGObject mkStatusIcon $+  wrapNewGObject mkStatusIcon $   {# call gtk_status_icon_new #}  -- %hash c:3318 d:cd70@@ -161,7 +165,7 @@     Pixbuf -- ^ @pixbuf@ - a 'Pixbuf'  -> IO StatusIcon statusIconNewFromPixbuf pixbuf =-  constructNewGObject mkStatusIcon $+  wrapNewGObject mkStatusIcon $   {# call gtk_status_icon_new_from_pixbuf #}     pixbuf @@ -175,7 +179,7 @@     String -- ^ @filename@ - a filename  -> IO StatusIcon statusIconNewFromFile filename =-  constructNewGObject mkStatusIcon $+  wrapNewGObject mkStatusIcon $   withUTFString filename $ \filenamePtr ->   {# call gtk_status_icon_new_from_file #}     filenamePtr@@ -190,7 +194,7 @@     StockId -- ^ @stockId@ - a stock icon id  -> IO StatusIcon statusIconNewFromStock stockId =-  constructNewGObject mkStatusIcon $+  wrapNewGObject mkStatusIcon $   withUTFString stockId $ \stockIdPtr ->   {# call gtk_status_icon_new_from_stock #}     stockIdPtr@@ -203,7 +207,7 @@     String -- ^ @iconName@ - an icon name  -> IO StatusIcon statusIconNewFromIconName iconName =-  constructNewGObject mkStatusIcon $+  wrapNewGObject mkStatusIcon $   withUTFString iconName $ \iconNamePtr ->   {# call gtk_status_icon_new_from_icon_name #}     iconNamePtr@@ -323,7 +327,7 @@ -- %hash c:b1db d:b874 -- | Gets the size in pixels that is available for the image. Stock icons and -- named icons adapt their size automatically if the size of the notification--- area changes. For other storage types, the size-changed signal can be used+-- area changes. For other storage types, the 'sizeChanged' signal can be used -- to react to size changes. -- statusIconGetSize :: StatusIconClass self => self@@ -454,6 +458,16 @@             return $ Just (rec_,toEnum $ fromIntegral or)         else return Nothing +#if GTK_CHECK_VERSION(2,20,0)+-- | Sets the name of this tray icon. This should be a string identifying this icon. It is may be used+-- for sorting the icons in the tray and will not be shown to the user.+statusIconSetName :: StatusIconClass self => self -> String -> IO ()+statusIconSetName self name =+  withUTFString name $ \ namePtr -> +  {#call gtk_status_icon_set_name #}+    (toStatusIcon self)+    namePtr+#endif  -------------------- -- Attributes@@ -532,7 +546,7 @@ -- the notification area got resized. -- statusIconSizeChanged :: StatusIconClass self => Signal self (Int -> IO Bool)-statusIconSizeChanged = Signal (connect_INT__BOOL "size_changed")+statusIconSizeChanged = Signal (connect_INT__BOOL "size-changed")  -- | Gets emitted when the user activates the status icon.  -- If and how status icons can activated is platform-dependent.

@@ -2,11 +2,12 @@ -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget Statusbar -----  Author : Axel Simon+--  Author : Axel Simon, Andy Stewart -- --  Created: 23 May 2001 -- --  Copyright (C) 1999-2005 Axel Simon+--  Copyright (C) 2010 Andy Stewart -- --  This library is free software; you can redistribute it and/or --  modify it under the terms of the GNU Lesser General Public@@ -84,6 +85,12 @@   statusbarRemove,   statusbarSetHasResizeGrip,   statusbarGetHasResizeGrip,+#if GTK_CHECK_VERSION(2,20,0)+  statusbarGetMessageArea,+#endif+#if GTK_CHECK_VERSION(2,22,0)+  statusbarRemoveAll,+#endif  -- * Attributes   statusbarHasResizeGrip,@@ -202,6 +209,31 @@   {# call unsafe statusbar_get_has_resize_grip #}     (toStatusbar self) +#if GTK_CHECK_VERSION(2,20,0)+-- | Retrieves the box containing the label widget.+statusbarGetMessageArea :: StatusbarClass self => self -> IO Box+statusbarGetMessageArea self =+  makeNewObject mkBox $+  liftM (castPtr :: Ptr Widget -> Ptr Box) $+  {# call unsafe gtk_statusbar_get_message_area #}+    (toStatusbar self)++#endif++#if GTK_CHECK_VERSION(2,22,0)+-- | Forces the removal of all messages from a statusbar's stack with the exact @contextId@.+--+-- * Available since Gtk+ version 2.22+--+statusbarRemoveAll :: StatusbarClass self => self +                   -> Int -- ^ @contextId@ a context identifier +                   -> IO ()+statusbarRemoveAll self contextId = +  {#call gtk_statusbar_remove_all #}+    (toStatusbar self)+    (fromIntegral contextId)+#endif+ -------------------- -- Attributes @@ -221,13 +253,13 @@ -- | Is emitted whenever a new message gets pushed onto a statusbar's stack. -- textPushed :: StatusbarClass self => Signal self (ContextId -> String -> IO ())-textPushed = Signal (\a self user -> connect_WORD_STRING__NONE "text_pushed" a self (\w s -> user (fromIntegral w) s))+textPushed = Signal (\a self user -> connect_WORD_STRING__NONE "text-pushed" a self (\w s -> user (fromIntegral w) s))  -- %hash c:2614 d:c1d2 -- | Is emitted whenever a new message is popped off a statusbar's stack. -- textPopped :: StatusbarClass self => Signal self (ContextId -> String -> IO ())-textPopped = Signal (\a self user -> connect_WORD_STRING__NONE "text_popped" a self (\w s -> user (fromIntegral w) s))+textPopped = Signal (\a self user -> connect_WORD_STRING__NONE "text-popped" a self (\w s -> user (fromIntegral w) s))  -------------------- -- Deprecated Signals

@@ -69,14 +69,21 @@   editableEditable,  -- * Signals+  editableChanged,+  deleteText,+  insertText,+  stopDeleteText,+  stopInsertText,++-- * Deprecated+#ifndef DISABLE_DEPRECATED   onEditableChanged,   afterEditableChanged,   onDeleteText,   afterDeleteText,-  stopDeleteText,   onInsertText,-  afterInsertText,-  stopInsertText+  afterInsertText+#endif   ) where  import Control.Monad    (liftM)@@ -277,34 +284,30 @@ -------------------- -- Signals --- | The 'onEditableChanged' signal is emitted at the end of a single+-- | The 'editableChanged' signal is emitted at the end of a single -- user-visible operation on the contents of the 'Editable'. -- -- * For inctance, a paste operation that replaces the contents of the --   selection will cause only one signal emission (even though it is --   implemented by first deleting the selection, then inserting the new---   content, and may cause multiple 'onEditableInserText' signals to be+--   content, and may cause multiple 'inserText' signals to be --   emitted). ---onEditableChanged, afterEditableChanged :: EditableClass ec => ec -> IO () ->-                                     IO (ConnectId ec)-onEditableChanged = connect_NONE__NONE "changed" False-afterEditableChanged = connect_NONE__NONE "changed" True+editableChanged :: EditableClass ec => Signal ec (IO ())+editableChanged = Signal (connect_NONE__NONE "changed")  -- | Emitted when a piece of text is deleted from the 'Editable' widget. ----- * See 'onInsertText' for information on how to use this signal.+-- * See 'insertText' for information on how to use this signal. ---onDeleteText, afterDeleteText :: EditableClass self => self- -> (Int -> Int -> IO ()) -- ^ @(\startPos endPos -> ...)@- -> IO (ConnectId self)-onDeleteText = connect_INT_INT__NONE "delete_text" False-afterDeleteText = connect_INT_INT__NONE "delete_text" True+deleteText :: EditableClass self +             => Signal self (Int -> Int -> IO ()) -- ^ @(\startPos endPos -> ...)@+deleteText = Signal (connect_INT_INT__NONE "delete-text")  -- | Stop the current signal that deletes text. stopDeleteText :: EditableClass self => ConnectId self -> IO () stopDeleteText (ConnectId _ obj) =-  signalStopEmission obj "delete_text"+  signalStopEmission obj "delete-text"  -- | Emitted when a piece of text is inserted into the 'Editable' widget. --@@ -324,7 +327,7 @@ --   The following code is an example of how to turn all input into uppercase: -- --   > idRef <- newIORef undefined---   > id <- onInsertText entry $ \str pos -> do+--   > id <- entry `on` insertText $ \str pos -> do --   >   id <- readIORef idRef --   >   signalBlock id --   >   pos' <- editableInsertText entry (map toUpper str) pos@@ -333,9 +336,40 @@ --   >   return pos' --   > writeIORef idRef id -----   Note that the 'afterInsertText' function is not very useful, except to+--   Note that binding 'insertText' using 'after' is not very useful, except to --   track editing actions. --+insertText :: EditableClass self => Signal self (String -> Int -> IO Int)+insertText = Signal $ \after obj handler ->+  connect_PTR_INT_PTR__NONE "insert-text" after obj+  (\strPtr strLen posPtr -> do+    str <- if strLen<0 then peekUTFString strPtr+           else peekUTFStringLen (strPtr, strLen)+    pos <- peek (posPtr :: Ptr {#type gint#})+    pos' <- handler str (fromIntegral pos)+    poke (posPtr :: Ptr {#type gint#}) (fromIntegral pos')+  )+ +-- | Stop the current signal that inserts text.+stopInsertText :: EditableClass self => ConnectId self -> IO ()+stopInsertText (ConnectId _ obj) =+  signalStopEmission obj "insert-text"++#ifndef DISABLE_DEPRECATED+--------------------+-- Deprecated Signals++onEditableChanged, afterEditableChanged :: EditableClass ec => ec -> IO () ->+                                     IO (ConnectId ec)+onEditableChanged = connect_NONE__NONE "changed" False+afterEditableChanged = connect_NONE__NONE "changed" True++onDeleteText, afterDeleteText :: EditableClass self => self+ -> (Int -> Int -> IO ()) -- ^ @(\startPos endPos -> ...)@+ -> IO (ConnectId self)+onDeleteText = connect_INT_INT__NONE "delete_text" False+afterDeleteText = connect_INT_INT__NONE "delete_text" True+ onInsertText, afterInsertText :: EditableClass self => self  -> (String -> Int -> IO Int)  -> IO (ConnectId self)@@ -357,8 +391,4 @@     pos' <- handler str (fromIntegral pos)     poke (posPtr :: Ptr {#type gint#}) (fromIntegral pos')   )---- | Stop the current signal that inserts text.-stopInsertText :: EditableClass self => ConnectId self -> IO ()-stopInsertText (ConnectId _ obj) =-  signalStopEmission obj "insert_text"+#endif

@@ -2,11 +2,12 @@ -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget Entry -----  Author : Axel Simon+--  Author : Axel Simon, Andy Stewart -- --  Created: 23 May 2001 -- --  Copyright (C) 1999-2005 Axel Simon+--  Copyright (C) 2010 Andy Stewart -- --  This library is free software; you can redistribute it and/or --  modify it under the terms of the GNU Lesser General Public@@ -18,13 +19,6 @@ --  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU --  Lesser General Public License for more details. ----- TODO------ A couple of signals are not bound because I could not figure out what---   they mean. Some of them do not seem to be emitted at all.--- I removed onInsertAtCursor since it is internal and not emitted. The usable funtions--- are in Editable.--- -- | -- Maintainer  : gtk2hs-users@lists.sourceforge.net -- Stability   : provisional@@ -84,6 +78,14 @@   entrySetCompletion,   entryGetCompletion, #endif+#if GTK_CHECK_VERSION(2,20,0)+  entryGetIconWindow,+  entryGetTextWindow,+#endif+#if GTK_CHECK_VERSION(2,22,0)+  entryImContextFilterKeypress,+  entryResetImContext,+#endif  -- * Attributes   entryCursorPosition,@@ -104,6 +106,26 @@ #endif  -- * Signals+  entryActivate,+  entryBackspace,+  entryCopyClipboard,+  entryCutClipboard,+  entryPasteClipboard,+  entryDeleteFromCursor,+  entryInsertAtCursor,+  entryMoveCursor,+  entryPopulatePopup,+  entryToggleOverwirte,+#if GTK_CHECK_VERSION(2,20,0)+  entryPreeditChanged,+#endif+#if GTK_CHECK_VERSION(2,16,0)+  entryIconPress,+  entryIconRelease,+#endif++-- * Deprecated+#ifndef DISABLE_DEPRECATED   onEntryActivate,   afterEntryActivate,   onCopyClipboard,@@ -114,9 +136,11 @@   afterPasteClipboard,   onToggleOverwrite,   afterToggleOverwrite,+#endif   ) where  import Control.Monad	(liftM)+import Control.Monad.Reader (runReaderT) import Data.Char	(ord, chr)  import System.Glib.FFI@@ -125,6 +149,10 @@ import System.Glib.Properties import System.Glib.GObject		(makeNewGObject) import Graphics.UI.Gtk.Abstract.Object	(makeNewObject)+import Graphics.UI.Gtk.General.Enums (DeleteType (..), MovementStep (..), EntryIconPosition (..))+import Graphics.UI.Gtk.Gdk.EventM	(EventM, EButton, EKey)+import Control.Monad.Reader             ( ask )+import Control.Monad.Trans              ( liftIO ) {#import Graphics.UI.Gtk.Types#} {#import Graphics.UI.Gtk.Signals#} @@ -397,6 +425,66 @@     (toEntry self) #endif +#if GTK_CHECK_VERSION(2,20,0)+-- | Returns the 'Window' which contains the entry's icon at @iconPos@. This function is useful when+-- drawing something to the entry in an 'eventExpose' callback because it enables the callback to+-- distinguish between the text window and entry's icon windows.+-- +-- See also 'entryGetTextWindow'.+entryGetIconWindow :: EntryClass self => self+                   -> EntryIconPosition  -- ^ @iconPos@ Icon position                        +                   -> IO DrawWindow -- ^ returns  the entry's icon window at @iconPos@. +entryGetIconWindow entry iconPos =+    makeNewGObject mkDrawWindow $+    {#call gtk_entry_get_icon_window #}+       (toEntry entry)+       ((fromIntegral . fromEnum) iconPos)+       +-- | Returns the 'Window' which contains the text. This function is useful when drawing something to the+-- entry in an 'eventExpose' callback because it enables the callback to distinguish between the text+-- window and entry's icon windows.+-- +-- See also 'entryGetIconWindow'.+entryGetTextWindow :: EntryClass self => self+                   -> IO DrawWindow  -- ^ returns the entry's text window. +entryGetTextWindow entry =+    makeNewGObject mkDrawWindow $+    {#call gtk_entry_get_text_window #}+      (toEntry entry)+#endif++#if GTK_CHECK_VERSION(2,22,0)+-- | Allow the 'Entry' input method to internally handle key press and release events. If this function+-- returns 'True', then no further processing should be done for this key event. See+-- 'imContextFilterKeypress'.+-- +-- Note that you are expected to call this function from your handler when overriding key event+-- handling. This is needed in the case when you need to insert your own key handling between the input+-- method and the default key event handling of the 'Entry'. See 'textViewResetImContext' for+-- an example of use.+--+-- * Available since Gtk+ version 2.22+--+entryImContextFilterKeypress :: EntryClass self => self -> EventM EKey Bool+entryImContextFilterKeypress self = do+  ptr <- ask+  liftIO $ liftM toBool $+    {# call gtk_entry_im_context_filter_keypress #}+      (toEntry self)+      (castPtr ptr)++-- | Reset the input method context of the entry if needed.+-- +-- This can be necessary in the case where modifying the buffer would confuse on-going input method+-- behavior.+--+-- * Available since Gtk+ version 2.22+--+entryResetImContext :: EntryClass self => self -> IO ()+entryResetImContext self =+  {#call gtk_entry_reset_im_context #} (toEntry self)+#endif+ -------------------- -- Attributes @@ -534,6 +622,112 @@ -------------------- -- Signals +-- | A keybinding signal which gets emitted when the user activates the entry.+-- +-- Applications should not connect to it, but may emit it with 'signalEmitByName' if they need to+-- control activation programmatically.+entryActivate :: EntryClass ec => Signal ec (IO ())+entryActivate = Signal (connect_NONE__NONE "activate")++-- | The 'entryBackspace' signal is a keybinding signal which gets emitted when the user asks for it.+-- +-- The default bindings for this signal are Backspace and Shift-Backspace.+entryBackspace :: EntryClass ec => Signal ec (IO ())+entryBackspace = Signal (connect_NONE__NONE "backspace")++-- | The 'entryCopyClipboard' signal is a keybinding signal which gets emitted to copy the selection to the+-- clipboard.+-- +-- The default bindings for this signal are Ctrl-c and Ctrl-Insert.+entryCopyClipboard :: EntryClass ec => Signal ec (IO ())+entryCopyClipboard = Signal (connect_NONE__NONE "copy-clipboard")++-- | The 'entryCutClipboard' signal is a keybinding signal which gets emitted to cut the selection to the+-- clipboard.+-- +-- The default bindings for this signal are Ctrl-x and Shift-Delete.+entryCutClipboard :: EntryClass ec => Signal ec (IO ())+entryCutClipboard = Signal (connect_NONE__NONE "cut-clipboard")++-- | The 'entryDeleteFromCursor' signal is a keybinding signal which gets emitted when the user initiates a+-- text deletion.+-- +-- If the type is 'DeleteChars', GTK+ deletes the selection if there is one, otherwise it deletes+-- the requested number of characters.+-- +-- The default bindings for this signal are Delete for deleting a character and Ctrl-Delete for+-- deleting a word.+entryDeleteFromCursor :: EntryClass ec => Signal ec (DeleteType -> Int -> IO ())+entryDeleteFromCursor = Signal (connect_ENUM_INT__NONE "delete-from-cursor")++-- | The 'entryInsertAtCursor' signal is a keybinding signal which gets emitted when the user initiates the+-- insertion of a fixed string at the cursor.+entryInsertAtCursor :: EntryClass ec => Signal ec (String -> IO ())+entryInsertAtCursor = Signal (connect_STRING__NONE "insert-at-cursor")++-- | The 'entryMoveCursor' signal is a keybinding signal which gets emitted when the user initiates a cursor+-- movement. If the cursor is not visible in entry, this signal causes the viewport to be moved+-- instead.+-- +-- Applications should not connect to it, but may emit it with 'signalEmitByName' if they need to+-- control the cursor programmatically.+-- +-- The default bindings for this signal come in two variants, the variant with the Shift modifier+-- extends the selection, the variant without the Shift modifer does not. There are too many key+-- combinations to list them all here.+-- +--   * Arrow keys move by individual characters\/lines +--   * Ctrl-arrow key combinations move by words\/paragraphs +--   * Home\/End keys move to the ends of the buffer+entryMoveCursor :: EntryClass ec => Signal ec (MovementStep -> Int -> Bool -> IO ())+entryMoveCursor = Signal (connect_ENUM_INT_BOOL__NONE "move-cursor")++-- | The 'entryPasteClipboard' signal is a keybinding signal which gets emitted to paste the contents of the+-- clipboard into the text view.+-- +-- The default bindings for this signal are Ctrl-v and Shift-Insert.+entryPasteClipboard :: EntryClass ec => Signal ec (IO ())+entryPasteClipboard = Signal (connect_NONE__NONE "paste-clipboard")++-- | The 'entryPopulatePopup' signal gets emitted before showing the context menu of the entry.+-- +-- If you need to add items to the context menu, connect to this signal and append your menuitems to+-- the menu.+entryPopulatePopup :: EntryClass ec => Signal ec (Menu -> IO ())+entryPopulatePopup = Signal (connect_OBJECT__NONE "populate-popup")++#if GTK_CHECK_VERSION(2,20,0)+-- | If an input method is used, the typed text will not immediately be committed to the buffer. So if+-- you are interested in the text, connect to this signal.+entryPreeditChanged :: EntryClass ec => Signal ec (String -> IO ())+entryPreeditChanged = Signal (connect_STRING__NONE "preedit-changed")+#endif++#if GTK_CHECK_VERSION(2,16,0)+-- | The 'iconPress' signal is emitted when an activatable icon is clicked.+--+entryIconPress :: EntryClass ec =>+                    Signal ec (EntryIconPosition -> EventM EButton ())+entryIconPress = Signal $ \after obj f ->+  connect_ENUM_PTR__NONE "icon-press" after obj (runReaderT . f)++-- | The 'iconRelease' signal is emitted on the button release from a mouse click over an activatable+-- icon.+--+entryIconRelease :: EntryClass ec =>+                      Signal ec (EntryIconPosition -> EventM EButton ())+entryIconRelease = Signal $ \after obj f ->+  connect_ENUM_PTR__NONE "icon-press" after obj (runReaderT . f)+#endif++-- | The 'entryToggleOverwrite' signal is a keybinding signal which gets emitted to toggle the overwrite mode+-- of the entry.+-- +-- The default bindings for this signal is Insert.+entryToggleOverwirte :: EntryClass ec => Signal ec (IO ())+entryToggleOverwirte = Signal (connect_NONE__NONE "toggle-overwrite")++#ifndef DISABLE_DEPRECATED -- | Emitted when the user presses return within -- the 'Entry' field. --@@ -589,3 +783,4 @@                                            IO (ConnectId ec) onToggleOverwrite = connect_NONE__NONE "toggle_overwrite" False afterToggleOverwrite = connect_NONE__NONE "toggle_overwrite" True+#endif

@@ -0,0 +1,248 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widget EntryBuffer+--+--  Author : Andy Stewart+--+--  Created: 22 Mar 2010+--+--  Copyright (C) 2010 Andy Stewart+--+--  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.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- Text buffer for 'Entry'+--+-- * Module available since Gtk+ version 2.18+--+module Graphics.UI.Gtk.Entry.EntryBuffer (++-- * Detail+--+-- | The 'EntryBuffer' class contains the actual text displayed in a 'Entry'+-- widget.+--+-- A single 'EntryBuffer' object can be shared by multiple 'Entry' widgets+-- which will then share the same text content, but not the cursor position,+-- visibility attributes, icon etc.+--+-- 'EntryBuffer' may be derived from. Such a derived class might allow text+-- to be stored in an alternate location, such as non-pageable memory, useful+-- in the case of important passwords. Or a derived class could integrate with+-- an application's concept of undo\/redo.++-- * Class Hierarchy+--+-- |+-- @+-- |  'GObject'+-- |   +----EntryBuffer+-- @++#if GTK_CHECK_VERSION(2,18,0)+-- * Types+  EntryBuffer,+  EntryBufferClass,+  castToEntryBuffer,+  toEntryBuffer,++-- * Constructors+  entryBufferNew,++-- * Methods+  entryBufferGetBytes,+  entryBufferInsertText,+  entryBufferDeleteText,+  entryBufferEmitDeletedText,+  entryBufferEmitInsertedText,++-- * Attributes+  entryBufferText,+  entryBufferLength,+  entryBufferMaxLength,++-- * Signals+  entryBufferInsertedText,+  entryBufferDeletedText,+#endif+  ) where++import Control.Monad	(liftM)+import Data.Maybe       (fromJust)++import System.Glib.FFI+import System.Glib.UTFString+import System.Glib.Attributes+import System.Glib.Properties+{#import Graphics.UI.Gtk.Types#}+{#import Graphics.UI.Gtk.Signals#}++{# context lib="gtk" prefix="gtk" #}++#if GTK_CHECK_VERSION(2,18,0)+--------------------+-- Constructors++-- | Create a new 'EntryBuffer' object.+--+-- Optionally, specify initial text to set in the buffer.+--+-- * Available since Gtk+ version 2.18+--+entryBufferNew ::+    Maybe String                -- ^ @initialChars@ - initial buffer text or 'Nothing'+ -> IO EntryBuffer+entryBufferNew initialChars =+  wrapNewGObject mkEntryBuffer $+  maybeWith withUTFString initialChars $ \initialCharsPtr -> do+    let chars = if initialCharsPtr == nullPtr+                   then (-1)+                   else length $ fromJust initialChars+    {# call gtk_entry_buffer_new #}+      initialCharsPtr+      (fromIntegral chars)++--------------------+-- Methods++-- | Retrieves the length in bytes of the buffer. See 'entryBufferGetLength'.+--+-- * Available since Gtk+ version 2.18+--+entryBufferGetBytes :: EntryBufferClass self => self+ -> IO Int -- ^ returns The byte length of the buffer.+entryBufferGetBytes self =+  liftM fromIntegral $ +  {# call gtk_entry_buffer_get_bytes #}+    (toEntryBuffer self)++-- | Inserts @chars@ into the contents of the buffer,+-- at position @position@.+--+-- * Available since Gtk+ version 2.18+--+entryBufferInsertText :: EntryBufferClass self => self+ -> Int    -- ^ @position@ - the position at which to insert text.+ -> String -- ^ @chars@ - the text to insert into the buffer.+ -> IO Int -- ^ returns The number of characters actually inserted.+entryBufferInsertText self position chars =+  liftM fromIntegral $+  withUTFStringLen chars $ \ (charsPtr, len) ->+  {# call gtk_entry_buffer_insert_text #}+    (toEntryBuffer self)+    (fromIntegral position)+    charsPtr+    (fromIntegral len)++-- | Deletes a sequence of characters from the buffer. @nChars@ characters are+-- deleted starting at @position@. If @nChars@ is negative, then all characters+-- until the end of the text are deleted.+--+-- * Available since Gtk+ version 2.18+--+entryBufferDeleteText :: EntryBufferClass self => self+ -> Int    -- ^ @position@ - position at which to delete text+ -> Int    -- ^ @nChars@ - number of characters to delete+ -> IO Int -- ^ returns The number of characters deleted.+entryBufferDeleteText self position nChars =+  liftM fromIntegral $+  {# call gtk_entry_buffer_delete_text #}+    (toEntryBuffer self)+    (fromIntegral position)+    (fromIntegral nChars)++-- | Used when subclassing 'EntryBuffer'+--+-- * Available since Gtk+ version 2.18+--+entryBufferEmitDeletedText :: EntryBufferClass self => self+ -> Int -- ^ @position@ - position at which text was deleted+ -> Int -- ^ @nChars@ - number of characters deleted+ -> IO ()+entryBufferEmitDeletedText self position nChars =+  {# call gtk_entry_buffer_emit_deleted_text #}+    (toEntryBuffer self)+    (fromIntegral position)+    (fromIntegral nChars)++-- | Used when subclassing 'EntryBuffer'+--+-- * Available since Gtk+ version 2.18+--+entryBufferEmitInsertedText :: EntryBufferClass self => self+ -> Int    -- ^ @position@ - position at which text was inserted+ -> String -- ^ @chars@ - text that was inserted+ -> Int    -- ^ @nChars@ - number of characters inserted+ -> IO ()+entryBufferEmitInsertedText self position chars nChars =+  withUTFString chars $ \charsPtr ->+  {# call gtk_entry_buffer_emit_inserted_text #}+    (toEntryBuffer self)+    (fromIntegral position)+    charsPtr+    (fromIntegral nChars)++--------------------+-- Attributes++-- | The contents of the buffer.+-- +-- Default value: \"\"+--+-- * Available since Gtk+ version 2.18+--+entryBufferText :: EntryBufferClass self => Attr self String+entryBufferText = newAttrFromStringProperty "text"++-- | The length of the text in buffer.+-- +-- Allowed values: <= 65535+-- +-- Default value: 0+--+-- * Available since Gtk+ version 2.18+--+entryBufferLength :: EntryBufferClass self => ReadAttr self Int+entryBufferLength = readAttrFromIntProperty "length"++-- | The maximum length of the text in the buffer.+-- +-- Allowed values: [0,65535]+-- +-- Default value: 0+--+-- * Available since Gtk+ version 2.18+--+entryBufferMaxLength :: EntryBufferClass self => Attr self Int+entryBufferMaxLength = newAttrFromIntProperty "max-length"++--------------------+-- Signals++-- |+--+-- * Available since Gtk+ version 2.18+--+entryBufferInsertedText :: EntryBufferClass self => Signal self (Int -> String -> Int -> IO ())+entryBufferInsertedText = Signal (connect_INT_STRING_INT__NONE "inserted_text")++-- |+--+-- * Available since Gtk+ version 2.18+--+entryBufferDeletedText :: EntryBufferClass self => Signal self (Int -> Int -> IO ())+entryBufferDeletedText = Signal (connect_INT_INT__NONE "deleted_text")++#endif

@@ -141,7 +141,7 @@ import System.Glib.FFI import System.Glib.UTFString import System.Glib.Attributes-import System.Glib.GObject		(constructNewGObject,+import System.Glib.GObject		(wrapNewGObject, 					 makeNewGObject, destroyFunPtr) import Graphics.UI.Gtk.Abstract.Object  (makeNewObject) {#import Graphics.UI.Gtk.Types#}@@ -163,7 +163,7 @@ -- entryCompletionNew :: IO EntryCompletion entryCompletionNew =-  constructNewGObject mkEntryCompletion $+  wrapNewGObject mkEntryCompletion $   {# call gtk_entry_completion_new #}  --------------------@@ -560,7 +560,7 @@ -- * Available since Gtk+ version 2.6 -- insertPrefix :: EntryCompletionClass self => Signal self (String -> IO Bool)-insertPrefix = Signal (connect_STRING__BOOL "insert_prefix")+insertPrefix = Signal (connect_STRING__BOOL "insert-prefix") #endif  -- %hash c:d50e d:ad7e@@ -569,13 +569,13 @@ -- text column in the row pointed to by @iter@. -- matchSelected :: EntryCompletionClass self => Signal self (TreeModel -> TreeIter -> IO Bool)-matchSelected = Signal (connect_OBJECT_BOXED__BOOL "match_selected" peekTreeIter)+matchSelected = Signal (connect_OBJECT_BOXED__BOOL "match-selected" peekTreeIter)  -- %hash c:21ac d:2cbc -- | Gets emitted when an action is activated. -- completionActionActivated :: EntryCompletionClass self => Signal self (Int -> IO ())-completionActionActivated = Signal (connect_INT__NONE "action_activated")+completionActionActivated = Signal (connect_INT__NONE "action-activated")  #ifndef DISABLE_DEPRECATED #if GTK_CHECK_VERSION(2,6,0)

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget HScale --

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget SpinButton --

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget VScale --

@@ -0,0 +1,143 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widget AppLaunchContext+--+--  Author : Andy Stewart+--+--  Created: 30 Mar 2010+--+--  Copyright (C) 2010 Andy Stewart+--+--  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.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+--+module Graphics.UI.Gtk.Gdk.AppLaunchContext (+#if GTK_CHECK_VERSION(2,14,0)+-- * Types+  AppLaunchContext,+  AppLaunchContextClass,+  castToAppLaunchContext, +  gTypeAppLaunchContext,+  toAppLaunchContext,++-- * Constructors+  appLaunchContextNew,++-- * Methods+  appLaunchContextSetDisplay,+  appLaunchContextSetScreen,+  appLaunchContextSetDesktop,+  appLaunchContextSetTimestamp,+  appLaunchContextSetIconName,+#ifdef HAVE_GIO+  appLaunchContextSetIcon,+#endif+#endif+  ) where++import Control.Monad	(liftM)++import System.Glib.FFI+import System.Glib.UTFString+import System.Glib.GObject		(wrapNewGObject)+import Graphics.UI.Gtk.Gdk.EventM (TimeStamp)+{#import Graphics.UI.Gtk.Types#}+#ifdef HAVE_GIO+{#import System.GIO.Types#} (Icon (..), IconClass, toIcon)+#endif++{# context lib="gdk" prefix="gdk" #}++#if GTK_CHECK_VERSION(2,14,0)+--------------------+-- Constructors++-- | Creates a new 'AppLaunchContext'.+appLaunchContextNew :: IO AppLaunchContext+appLaunchContextNew = +  wrapNewGObject mkAppLaunchContext $+  {# call gdk_app_launch_context_new #}++--------------------+-- Methods++-- | Sets the workspace on which applications will be launched when using this context when running under+-- a window manager that supports multiple workspaces, as described in the Extended Window Manager+-- Hints.+-- +-- When the workspace is not specified or desktop is set to -1, it is up to the window manager to pick+-- one, typically it will be the current workspace.+appLaunchContextSetDesktop :: AppLaunchContext -> Int -> IO ()+appLaunchContextSetDesktop self desktop =+  {# call gdk_app_launch_context_set_desktop #}+    self+    (fromIntegral desktop)++-- | Sets the display on which applications will be launched when using this context. See also+-- 'appLaunchContextSetScreen'.+appLaunchContextSetDisplay :: AppLaunchContext -> Display -> IO ()+appLaunchContextSetDisplay self display =+  {# call gdk_app_launch_context_set_display #}+    self+    display++#ifdef HAVE_GIO+-- | Sets the icon for applications that are launched with this context.+-- +-- Window Managers can use this information when displaying startup notification.+appLaunchContextSetIcon :: IconClass icon => AppLaunchContext -> icon -> IO ()+appLaunchContextSetIcon self icon =+  {# call gdk_app_launch_context_set_icon #}+    self+    (toIcon icon)+#endif++-- | Sets the icon for applications that are launched with this context. The @iconName@ will be+-- interpreted in the same way as the Icon field in desktop files. See also+-- 'appLaunchContextSetIcon'.+-- +-- If both icon and @iconName@ are set, the @iconName@ takes priority. If neither icon or @iconName@ is+-- set, the icon is taken from either the file that is passed to launched application or from the+-- GAppInfo for the launched application itself.+appLaunchContextSetIconName :: AppLaunchContext -> String -> IO ()+appLaunchContextSetIconName self iconName =+  withUTFString iconName $ \iconNamePtr ->+  {# call gdk_app_launch_context_set_icon_name #}+    self+    iconNamePtr++-- | Sets the screen on which applications will be launched when using this context. See also+-- 'appLaunchContextSetDisplay'.+-- +-- If both screen and display are set, the screen takes priority. If neither screen or display are set,+-- the default screen and display are used.+appLaunchContextSetScreen :: AppLaunchContext -> Screen -> IO ()+appLaunchContextSetScreen self screen =+  {# call gdk_app_launch_context_set_screen #}+    self+    screen++-- | Sets the timestamp of context. The timestamp should ideally be taken from the event that triggered+-- the launch.+-- +-- Window managers can use this information to avoid moving the focus to the newly launched application+-- when the user is busy typing in another window. This is also known as 'focus stealing prevention'.+appLaunchContextSetTimestamp :: AppLaunchContext -> TimeStamp -> IO ()+appLaunchContextSetTimestamp self timestamp =+  {# call gdk_app_launch_context_set_timestamp #}+    self+    (fromIntegral timestamp)+#endif

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Cursor --@@ -151,7 +152,7 @@     Cursor  -- ^ @cursor@ 'Cursor'  -> IO Display   -- ^ return the 'Display' associated to cursor  cursorGetDisplay cursor =-    constructNewGObject mkDisplay $ {#call cursor_get_display#} cursor+    makeNewGObject mkDisplay $ {#call cursor_get_display#} cursor      -- | Returns a 'Pixbuf' with the image used to display the cursor.     -- Note that depending on the capabilities of the windowing system and on the cursor, GDK may not be able to obtain the image data. @@ -160,4 +161,4 @@     Cursor  -- ^ @cursor@ 'Cursor'  -> IO (Maybe Pixbuf)   -- ^ a 'Pixbuf' representing cursor, or @Nothing@ cursorGetImage cursor = -    maybeNull (constructNewGObject mkPixbuf) $ {#call cursor_get_image#} cursor+    maybeNull (makeNewGObject mkPixbuf) $ {#call cursor_get_image#} cursor

@@ -138,7 +138,7 @@                -- ^ returns a 'Display', or @Nothing@ if the display                -- could not be opened. displayOpen displayName =-  maybeNull (makeNewGObject mkDisplay) $+  maybeNull (wrapNewGObject mkDisplay) $   withUTFString displayName $ \displayNamePtr ->   {# call gdk_display_open #}     displayNamePtr

@@ -0,0 +1,115 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widget DisplayManager+--+--  Author : Andy Stewart+--+--  Created: 29 Mar 2010+--+--  Copyright (C) 2010 Andy Stewart+--+--  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.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- Maintains a list of all open GdkDisplays+--+-- * Module available since Gdk version 2.2+--+module Graphics.UI.Gtk.Gdk.DisplayManager (++-- * Detail+--+-- | The purpose of the 'DisplayManager' singleton object is to offer+-- notification when displays appear or disappear or the default display+-- changes.++-- * Class Hierarchy+--+-- |+-- @+-- |  'GObject'+-- |   +----DisplayManager+-- @++#if GTK_CHECK_VERSION(2,2,0)+-- * Types+  DisplayManager,+  DisplayManagerClass,+  castToDisplayManager,+  toDisplayManager,++-- * Methods+  displayManagerGet,+  displayManagerListDisplays,++-- * Attributes+  displayManagerDefaultDisplay,++-- * Signals+  displayManagerOpened,+#endif+  ) where++import Control.Monad	(liftM)++import System.Glib.FFI+import System.Glib.Attributes+import System.Glib.Properties+import System.Glib.GList+import System.Glib.GObject		(constructNewGObject, makeNewGObject)+{#import Graphics.UI.Gtk.Types#}+{#import Graphics.UI.Gtk.Signals#}++{# context lib="gdk" prefix="gdk" #}++#if GTK_CHECK_VERSION(2,2,0)+--------------------+-- Methods++-- | Returns the global 'DisplayManager' singleton; 'parsePargs', 'init', or+-- 'initCheck' must have been called first.+--+displayManagerGet :: IO DisplayManager -- ^ returns the singleton 'DisplayManager' object.+displayManagerGet =+  constructNewGObject mkDisplayManager $+  {# call gdk_display_manager_get #}++-- | List all currently open displays.+--+displayManagerListDisplays :: DisplayManagerClass self => self+ -> IO [Display] -- ^ returns a newly allocated list of 'Display' objects. +displayManagerListDisplays self =+  {# call gdk_display_manager_list_displays #}+    (toDisplayManager self)+  >>= fromGSList+  >>= mapM (makeNewGObject mkDisplay . return)++--------------------+-- Attributes++-- | The default display.+--+displayManagerDefaultDisplay :: DisplayManagerClass self => Attr self Display+displayManagerDefaultDisplay = newAttrFromObjectProperty "default-display"+                                 {# call pure unsafe gdk_display_get_type #}++--------------------+-- Signals++-- | The 'displayManagerOpened' signal is emitted when a display is opened.+--+displayManagerOpened :: DisplayManagerClass self => Signal self (Display -> IO ())+displayManagerOpened = Signal (connect_OBJECT__NONE "display_opened")+#endif

@@ -86,7 +86,7 @@  import System.Glib.FFI import System.Glib.Flags                (toFlags)-import System.Glib.GObject      (makeNewGObject)+import System.Glib.GObject              (wrapNewGObject,makeNewGObject) {#import Graphics.UI.Gtk.Types#} {#import Graphics.UI.Gtk.Gdk.Enums#} {#import Graphics.UI.Gtk.Gdk.Region#}@@ -555,7 +555,7 @@ -- passed-in handle is a reference to a native window, that is, an Xlib XID -- for X windows and a HWND for Win32. drawWindowForeignNew :: NativeWindowId -> IO (Maybe DrawWindow)-drawWindowForeignNew anid = maybeNull (makeNewGObject mkDrawWindow) $+drawWindowForeignNew anid = maybeNull (wrapNewGObject mkDrawWindow) $   liftM castPtr $ {#call gdk_window_foreign_new#} (fromNativeWindowId anid)  -- | Obtains the root window (parent all other windows are inside) for the default display and screen.

@@ -175,7 +175,7 @@ import System.Glib.FFI import System.Glib.Flags import System.Glib.GObject ( makeNewGObject )-import Graphics.UI.Gtk.Gdk.Keys		(KeyVal, keyName)+import Graphics.UI.Gtk.Gdk.Keys		(KeyVal, KeyCode, keyName) import Graphics.UI.Gtk.Gdk.Region       (Region, makeNewRegion) import Graphics.UI.Gtk.Gdk.Enums	(Modifier(..), VisibilityState(..),   CrossingMode(..), NotifyType(..), WindowState(..), ScrollDirection(..),@@ -466,7 +466,7 @@ eventKeyName = liftM keyName $ eventKeyVal  -- | The hardware key code.-eventHardwareKeycode :: EventM EKey Word16+eventHardwareKeycode :: EventM EKey KeyCode eventHardwareKeycode = ask >>= \ptr -> liftIO $ liftM fromIntegral    (#{peek GdkEventKey, hardware_keycode} ptr :: IO #{gtk2hs_type guint16}) 

@@ -105,7 +105,7 @@ -- -- * EventProperty is not bound since it involves Atoms and its hard to see --   how a Haskell application should extract the data. It should be possible---   to connect directly to property-changed signals. If there is a need+--   to connect directly to 'propertyChanged' signals. If there is a need --   to monitor a property for which there is no signal we could add --   a trigger for just that property. --

@@ -85,7 +85,7 @@ #endif  import System.Glib.FFI-import System.Glib.GObject		(constructNewGObject)+import System.Glib.GObject		(wrapNewGObject) {#import Graphics.UI.Gtk.Types#} import Graphics.UI.Gtk.General.Structs import Graphics.UI.Gtk.General.Enums	(Function(..), Fill(..), SubwindowMode(..), LineStyle(..), @@ -100,7 +100,7 @@ gcNew d = do   gcPtr <- {#call unsafe gc_new#} (toDrawable d)   if (gcPtr==nullPtr) then return (error "gcNew: null graphics context.")-		      else constructNewGObject mkGC (return gcPtr)+		      else wrapNewGObject mkGC (return gcPtr)   -- | Creates a graphics context with specific values.@@ -108,7 +108,7 @@ gcNewWithValues :: DrawableClass d => d -> GCValues -> IO GC gcNewWithValues d gcv = allocaBytes (sizeOf gcv) $ \vPtr -> do   mask <- pokeGCValues vPtr gcv-  gc <- constructNewGObject mkGC $ {#call unsafe gc_new_with_values#} +  gc <- wrapNewGObject mkGC $ {#call unsafe gc_new_with_values#}      (toDrawable d) (castPtr vPtr) mask   handle (const $ return ()) $ when (isJust (tile gcv)) $      touchForeignPtr ((unPixmap.fromJust.tile) gcv)

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Gdk --

@@ -0,0 +1,367 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widget Keymap+--+--  Author : Andy Stewart+--+--  Created: 30 Mar 2010+--+--  Copyright (C) 2010 Andy Stewart+--+--  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.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- Functions for manipulating keyboard codes+--+module Graphics.UI.Gtk.Gdk.Keymap (++-- * Details+-- +-- | Key values are the codes which are sent whenever a key is pressed or released. They appear in the+-- keyval field of the 'EventKey' structure, which is passed to signal handlers for the+-- 'keyPressEvent' and 'keyReleaseEvent' signals. +-- +-- Key values are regularly updated from the upstream X.org X11 implementation, so new values are added+-- regularly. They will be prefixed with GDK_ rather than XF86XK_ or ' (for older symbols)'.+-- +-- Key values can be converted into a string representation using 'keyvalName'. The reverse+-- function, converting a string to a key value, is provided by 'keyvalFromName'.+-- +-- The case of key values can be determined using 'keyvalIsUpper'. Key+-- values can be converted to upper or lower case using 'keyvalToUpper' and+-- 'keyvalToLower'.+-- +-- When it makes sense, key values can be converted to and from Unicode characters with+-- 'keyvalToUnicode'.+-- +-- One 'Keymap' object exists for each user display. 'keymapGetDefault' returns the 'Keymap'+-- for the default display; to obtain keymaps for other displays, use 'keymapGetForDisplay'. A+-- keymap is a mapping from 'KeymapKey' to key values. You can think of a 'KeymapKey' as a+-- representation of a symbol printed on a physical keyboard key. That is, it contains three pieces of+-- information. First, it contains the hardware keycode; this is an identifying number for a physical+-- key. Second, it contains the level of the key. The level indicates which symbol on the key will be+-- used, in a vertical direction. So on a standard US keyboard, the key with the number \"1\" on it also+-- has the exclamation point \"!\" character on it. The level indicates whether to use the \"1\" or the+-- \"!\" symbol. The letter keys are considered to have a lowercase letter at level 0, and an uppercase+-- letter at level 1, though only the uppercase letter is printed. Third, the 'KeymapKey' contains a+-- group; groups are not used on standard US keyboards, but are used in many other countries. On a+-- keyboard with groups, there can be 3 or 4 symbols printed on a single key. The group indicates+-- movement in a horizontal direction. Usually groups are used for two different languages. In group 0,+-- a key might have two English characters, and in group 1 it might have two Hebrew characters. The+-- Hebrew characters will be printed on the key next to the English characters.+-- +-- In order to use a keymap to interpret a key event, it's necessary to first convert the keyboard+-- state into an effective group and level. This is done via a set of rules that varies widely+-- according to type of keyboard and user configuration.  The function+-- 'keymapTranslateKeyboardState' accepts a keyboard state -- consisting of hardware keycode+-- pressed, active modifiers, and active group -- applies the appropriate rules, and returns the+-- group/level to be used to index the keymap, along with the modifiers which did not affect the group+-- and level. i.e. it returns "unconsumed modifiers." The keyboard group may differ from the effective+-- group used for keymap lookups because some keys don't have multiple groups - e.g. the Enter key is+-- always in group 0 regardless of keyboard state.+-- +-- Note that 'keymapTranslateKeyboardState' also returns the keyval, i.e. it goes ahead and+-- performs the keymap lookup in addition to telling you which effective group/level values were used+-- for the lookup. 'EventKey' already contains this keyval, however, so you don't normally need to+-- call 'keymapTranslateKeyboardState' just to get the keyval.++-- * Class Hierarchy+--+-- |+-- @+-- |  'GObject'+-- |   +----Keymap+-- @++-- * Types+  Keymap,+  KeymapClass,+  castToKeymap,+  toKeymap,+  KeymapKey,++-- * Methods+  keymapGetDefault,+#if GTK_CHECK_VERSION(2,2,0)+  keymapGetForDisplay,+#endif+  keymapLookupKey,+  keymapTranslateKeyboardState,+  keymapGetEntriesForKeyval,+  keymapGetEntriesForKeycode,+  keymapGetDirection,+#if GTK_CHECK_VERSION(2,12,0)+  keymapHaveBidiLayouts,+#endif+#if GTK_CHECK_VERSION(2,16,0)+  keymapGetCapsLockState,+#endif++-- * Signals+#if GTK_CHECK_VERSION(2,0,0)+  keymapDirectionChanged,+#if GTK_CHECK_VERSION(2,2,0)+  keymapKeysChanged,+#if GTK_CHECK_VERSION(2,16,0)+  keymapStateChanged,+#endif+#endif+#endif+  ) where++import Control.Monad	(liftM)+import Data.Maybe (fromMaybe)+import System.Glib.FFI+import System.Glib.UTFString+import Graphics.UI.Gtk.Gdk.Enums	(Modifier(..))+import Graphics.UI.Gtk.Gdk.Keys	(KeyVal (..))+{#import Graphics.Rendering.Pango.Enums#}+{#import Graphics.UI.Gtk.Types#}+{#import Graphics.UI.Gtk.Signals#}+import Graphics.UI.Gtk.General.Structs (KeymapKey (..))++{# context lib="gdk" prefix="gdk" #}++--------------------+-- Methods++-- | Returns the 'Keymap' attached to the default display.+--+keymapGetDefault ::+    IO Keymap -- ^ returns the 'Keymap' attached to the default display.+keymapGetDefault =+  makeNewGObject mkKeymap $+  {# call gdk_keymap_get_default #}++#if GTK_CHECK_VERSION(2,2,0)+-- | Returns the 'Keymap' attached to @display@.+--+-- * Available since Gdk version 2.2+--+keymapGetForDisplay ::+    Display   -- ^ @display@ - the 'Display'.+ -> IO Keymap -- ^ returns the 'Keymap' attached to @display@.+keymapGetForDisplay display =+  makeNewGObject mkKeymap $+  {# call gdk_keymap_get_for_display #}+    display+#endif++-- | Looks up the keyval mapped to a keycode\/group\/level triplet. If no+-- keyval is bound to @key@, returns 0. For normal user input, you want to use+-- 'keymapTranslateKeyboardState' instead of this function, since the effective+-- group\/level may not be the same as the current keyboard state.+--+keymapLookupKey :: KeymapClass self +                => (Maybe self) -- ^ @keymap@  a 'Keymap' or 'Nothing' to use the default keymap             +                -> KeymapKey -- ^ @key@ - a 'KeymapKey'+                            -- with keycode, group, and level initialized+                -> IO Int    -- ^ returns a keyval, or 0 if none was mapped to+                            -- the given @key@+keymapLookupKey Nothing key = +  liftM fromIntegral $+  allocaBytes {# sizeof GdkKeymapKey #} $ \ keyPtr -> do+    poke keyPtr key+    {# call gdk_keymap_lookup_key #}+      (Keymap nullForeignPtr)+      (castPtr keyPtr)    +keymapLookupKey (Just self) key =+  liftM fromIntegral $+  allocaBytes {# sizeof GdkKeymapKey #} $ \ keyPtr -> do+    poke keyPtr key+    {# call gdk_keymap_lookup_key #}+      (toKeymap self)+      (castPtr keyPtr)    ++-- | Translates the contents of a 'EventKey' into a+-- keyval, effective group, and level. Modifiers that affected the translation+-- and are thus unavailable for application use are returned in+-- @consumedModifiers@. See 'keyvalGetKeys' for an explanation of groups and+-- levels. The @effectiveGroup@ is the group that was actually used for the+-- translation; some keys such as Enter are not affected by the active keyboard+-- group. The @level@ is derived from @state@. For convenience, 'EventKey'+-- already contains the translated keyval, so this function+-- isn't as useful as you might think.+--+keymapTranslateKeyboardState :: KeymapClass self => self+ -> Int                          -- ^ @hardwareKeycode@ - a keycode+ -> Modifier           -- ^ @state@ - a modifier state+ -> Int                      -- ^ @group@ - active keyboard group+ -> IO (Maybe (Int, Int, Int, Modifier))+keymapTranslateKeyboardState self hardwareKeycode state group =+  alloca $ \keyvalPtr ->+  alloca $ \effectiveGroupPtr ->+  alloca $ \levelPtr -> +  alloca $ \modifierPtr -> do+    success <- liftM toBool $+              {# call gdk_keymap_translate_keyboard_state #}+                (toKeymap self)+                (fromIntegral hardwareKeycode)+                ((fromIntegral . fromEnum) state)+                (fromIntegral group)+                keyvalPtr+                effectiveGroupPtr+                levelPtr+                modifierPtr+    if success +       then do+         keyval <- peek keyvalPtr+         effectiveGroup <- peek effectiveGroupPtr+         level <- peek levelPtr+         modifier <- peek modifierPtr+         return (Just (fromIntegral keyval+                      ,fromIntegral effectiveGroup+                      ,fromIntegral level+                      ,toEnum $ fromIntegral modifier))+       else return Nothing++-- | Obtains a list of keycode\/group\/level combinations that will generate+-- @keyval@. Groups and levels are two kinds of keyboard mode; in general, the+-- level determines whether the top or bottom symbol on a key is used, and the+-- group determines whether the left or right symbol is used. On US keyboards,+-- the shift key changes the keyboard level, and there are no groups. A group+-- switch key might convert a keyboard between Hebrew to English modes, for+-- example. 'EventKey' contains a @group@ field that+-- indicates the active keyboard group. The level is computed from the modifier+-- mask. +--+keymapGetEntriesForKeyval :: KeymapClass self => self+ -> KeyVal                -- ^ @keyval@ - a keyval, such as @GDK_a@, @GDK_Up@,+                       -- @GDK_Return@, etc.+ -> IO (Maybe [KeymapKey])+keymapGetEntriesForKeyval self keyval =+  alloca $ \nKeysPtr ->+  allocaArray 0 $ \ keysPtr -> do+    success <- liftM toBool $+              {# call gdk_keymap_get_entries_for_keyval #}+                (toKeymap self)+                (fromIntegral keyval)+                (castPtr keysPtr)+                nKeysPtr+    if success+       then do+         nKeys <- liftM fromIntegral $ peek nKeysPtr+         keys <- peekArray nKeys keysPtr+         keyList <- mapM peek keys+         {#call unsafe g_free#} (castPtr keysPtr)+         return (Just keyList)+       else return Nothing++-- | Returns the keyvals bound to @hardwareKeycode@. The Nth 'KeymapKey'+-- in @keys@ is bound to the Nth keyval in @keyvals@. +-- When a keycode is pressed by the user, the+-- keyval from this list of entries is selected by considering the effective+-- keyboard group and level. See 'keymapTranslateKeyboardState'.+--+keymapGetEntriesForKeycode :: KeymapClass self => self+ -> Int                -- ^ @hardwareKeycode@ - a keycode+ -> IO (Maybe ([KeymapKey], [KeyVal]))+keymapGetEntriesForKeycode self hardwareKeycode =+  alloca $ \nEntriesPtr ->+  allocaArray 0 $ \ keysPtr -> +  allocaArray 0 $ \ keyvalsPtr -> do+    success <- liftM toBool $+              {# call gdk_keymap_get_entries_for_keycode #}+                (toKeymap self)+                (fromIntegral hardwareKeycode)+                (castPtr keysPtr)+                keyvalsPtr+                nEntriesPtr+    if success+       then do+         nEntries <- liftM fromIntegral $ peek nEntriesPtr+         keys <- peekArray nEntries keysPtr+         keyvals <- peekArray nEntries keyvalsPtr+         keyvalsList <- mapM (\x -> liftM fromIntegral $ peek x) keyvals+         keysList <- mapM peek keys+         {#call unsafe g_free#} (castPtr keysPtr)+         {#call unsafe g_free#} (castPtr keyvalsPtr)+         return (Just (keysList, keyvalsList))+       else return Nothing++-- | Returns the direction of effective layout of the keymap.+--+-- Returns the direction of the keymap.+--+keymapGetDirection :: KeymapClass self => self+ -> IO PangoDirection -- ^ returns 'DirectionLtr' or 'DirectionRtl' if it can+                 -- determine the direction. 'DirectionNeutral' otherwise.+keymapGetDirection self =+  liftM (toEnum . fromIntegral) $+  {# call gdk_keymap_get_direction #}+    (toKeymap self)++#if GTK_CHECK_VERSION(2,12,0)+-- | Determines if keyboard layouts for both right-to-left and left-to-right+-- languages are in use.+--+-- * Available since Gdk version 2.12+--+keymapHaveBidiLayouts :: KeymapClass self => self+ -> IO Bool -- ^ returns @True@ if there are layouts in both directions,+            -- @False@ otherwise+keymapHaveBidiLayouts self =+  liftM toBool $+  {# call gdk_keymap_have_bidi_layouts #}+    (toKeymap self)+#endif++#if GTK_CHECK_VERSION(2,16,0)+-- | Returns whether the Caps Lock modifer is locked.+--+-- * Available since Gdk version 2.16+--+keymapGetCapsLockState :: KeymapClass self => self+ -> IO Bool -- ^ returns @True@ if Caps Lock is on+keymapGetCapsLockState self =+  liftM toBool $+  {# call gdk_keymap_get_caps_lock_state #}+    (toKeymap self)+#endif++--------------------+-- Signals++#if GTK_CHECK_VERSION(2,0,0)+-- | The 'keymapDirectionChanged' signal gets emitted when the direction of the+-- keymap changes.+--+-- * Available since Gdk version 2.0+--+keymapDirectionChanged :: KeymapClass self => Signal self (IO ())+keymapDirectionChanged = Signal (connect_NONE__NONE "direction_changed")++#if GTK_CHECK_VERSION(2,2,0)+-- | The 'keymapKeysChanged' signal is emitted when the mapping represented by+-- @keymap@ changes.+--+-- * Available since Gdk version 2.2+--+keymapKeysChanged :: KeymapClass self => Signal self (IO ())+keymapKeysChanged = Signal (connect_NONE__NONE "keys_changed")++#if GTK_CHECK_VERSION(2,16,0)+-- | The 'keymapStateChanged' signal is emitted when the state of the keyboard+-- changes, e.g when Caps Lock is turned on or off. See+-- 'keymapGetCapsLockState'.+--+-- * Available since Gdk version 2.16+--+keymapStateChanged :: KeymapClass self => Signal self (IO ())+keymapStateChanged = Signal (connect_NONE__NONE "state_changed")+#endif+#endif+#endif+

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Keys --@@ -29,6 +30,7 @@ -- module Graphics.UI.Gtk.Gdk.Keys (   KeyVal,+  KeyCode,   keyName,   keyFromName,   keyToChar,@@ -36,6 +38,11 @@   keyvalName,   keyvalFromName,   keyvalToChar,+  keyvalConvertCase,+  keyvalToUpper,+  keyvalToLower,+  keyvalIsUpper,+  keyvalIsLower,   ) where  import Control.Monad (liftM)@@ -49,6 +56,7 @@ -- released. -- type KeyVal = Word32+type KeyCode = Word16  -- | Converts a key value into a symbolic name. --@@ -85,3 +93,60 @@   {# call gdk_keyval_to_unicode #} (fromIntegral keyval)   >>= \code -> if code == 0 then return Nothing                             else return $ Just $ toEnum $ fromIntegral code++-- | Obtains the upper- and lower-case versions of the keyval symbol. Examples of keyvals are GDK_a,+-- 'Enter', 'F1', etc.+keyvalConvertCase :: KeyVal -- ^ @symbol@ a keyval                                              +                  -> (KeyVal, KeyVal) -- ^ @(lower, upper)@ +                                        -- ^ lower is the lowercase version of symbol. +                                        -- ^ upper is uppercase version of symbol. +keyvalConvertCase keyval = +  unsafePerformIO $+  alloca $ \ lowerPtr -> +  alloca $ \ upperPtr -> do+  {#call gdk_keyval_convert_case #}+    (fromIntegral keyval)+    lowerPtr+    upperPtr+  lower <- peek lowerPtr+  upper <- peek upperPtr+  return (fromIntegral lower, fromIntegral upper)++-- | Converts a key value to upper case, if applicable.+keyvalToUpper :: KeyVal  -- ^ @keyval@  a key value.+              -> KeyVal -- ^ returns the upper case form of keyval, +                          -- or keyval itself if it is already in upper case or it is not subject to case       +keyvalToUpper keyval =+  unsafePerformIO $+  liftM fromIntegral $+  {#call gdk_keyval_to_upper #}+     (fromIntegral keyval)++-- | Converts a key value to lower case, if applicable.+keyvalToLower :: KeyVal  -- ^ @keyval@  a key value.+              -> KeyVal -- ^ returns the lower case form of keyval, +                          -- or keyval itself if it is already in lower case or it is not subject to case       +keyvalToLower keyval =+  unsafePerformIO $+  liftM fromIntegral $+  {#call gdk_keyval_to_lower #}+     (fromIntegral keyval)++-- | Returns 'True' if the given key value is in upper case.+keyvalIsLower :: KeyVal +              -> Bool -- ^ returns 'True' if keyval is in upper case, or if keyval is not subject to case conversion.+keyvalIsLower keyval =+  unsafePerformIO $+  liftM toBool $+  {#call gdk_keyval_is_lower #}+     (fromIntegral keyval)++-- | Returns 'True' if the given key value is in upper case.+keyvalIsUpper :: KeyVal +              -> Bool -- ^ returns 'True' if keyval is in upper case, or if keyval is not subject to case conversion.+keyvalIsUpper keyval =+  unsafePerformIO $+  liftM toBool $+  {#call gdk_keyval_is_upper #}+     (fromIntegral keyval)+

@@ -266,7 +266,7 @@ -- pixbufNewFromFile :: FilePath -> IO Pixbuf pixbufNewFromFile fname =-  constructNewGObject mkPixbuf $+  wrapNewGObject mkPixbuf $   propagateGError $ \errPtrPtr ->      withUTFString fname $ \strPtr -> #if defined (WIN32) && GTK_CHECK_VERSION(2,6,0)@@ -289,7 +289,7 @@ -- pixbufNewFromFileAtSize :: String -> Int -> Int -> IO Pixbuf pixbufNewFromFileAtSize filename width height =-  constructNewGObject mkPixbuf $+  wrapNewGObject mkPixbuf $   propagateGError $ \errPtrPtr ->     withUTFString filename $ \filenamePtr -> #if defined (WIN32) && GTK_CHECK_VERSION(2,6,0)@@ -327,7 +327,7 @@   -> Bool -- ^ whether to preserve the aspect ratio   -> IO Pixbuf pixbufNewFromFileAtScale filename width height preserveAspectRatio =-  constructNewGObject mkPixbuf $+  wrapNewGObject mkPixbuf $   propagateGError $ \errPtrPtr ->     withUTFString filename $ \filenamePtr -> #if defined (WIN32) && GTK_CHECK_VERSION(2,6,0)@@ -397,7 +397,7 @@ -- pixbufNew :: Colorspace -> Bool -> Int -> Int -> Int -> IO Pixbuf pixbufNew colorspace hasAlpha bitsPerSample width height =-  constructNewGObject mkPixbuf $+  wrapNewGObject mkPixbuf $     {#call pixbuf_new#} ((fromIntegral . fromEnum) colorspace)       (fromBool hasAlpha) (fromIntegral bitsPerSample) (fromIntegral width)       (fromIntegral height)@@ -409,7 +409,7 @@ pixbufNewFromXPMData :: [String] -> IO Pixbuf pixbufNewFromXPMData s =   withUTFStringArray0 s $ \strsPtr ->-    constructNewGObject mkPixbuf $ {#call pixbuf_new_from_xpm_data#} strsPtr+    wrapNewGObject mkPixbuf $ {#call pixbuf_new_from_xpm_data#} strsPtr  -- | A dymmy type for inline picture data. --@@ -458,7 +458,7 @@ pixbufNewFromInline iPtr = alloca $ \errPtrPtr -> do   pbPtr <- {#call unsafe pixbuf_new_from_inline#} (-1) (castPtr iPtr)     (fromBool False) (castPtr errPtrPtr)-  if pbPtr/=nullPtr then constructNewGObject mkPixbuf (return pbPtr)+  if pbPtr/=nullPtr then wrapNewGObject mkPixbuf (return pbPtr)     else do       errPtr <- peek errPtrPtr       (GError dom code msg) <- peek errPtr@@ -474,7 +474,7 @@ -- pixbufNewSubpixbuf :: Pixbuf -> Int -> Int -> Int -> Int -> IO Pixbuf pixbufNewSubpixbuf pb srcX srcY height width =-  constructNewGObject mkPixbuf $ do+  wrapNewGObject mkPixbuf $ do     pbPtr <- {#call unsafe pixbuf_new_subpixbuf#} pb       (fromIntegral srcX) (fromIntegral srcY)       (fromIntegral height) (fromIntegral width)@@ -484,7 +484,7 @@ -- | Create a deep copy of an image. -- pixbufCopy :: Pixbuf -> IO Pixbuf-pixbufCopy pb = constructNewGObject mkPixbuf $ {#call unsafe pixbuf_copy#} pb+pixbufCopy pb = wrapNewGObject mkPixbuf $ {#call unsafe pixbuf_copy#} pb   -- | How an image is scaled.@@ -531,7 +531,7 @@   -> InterpType -- ^ interpolation type   -> IO Pixbuf pixbufScaleSimple pb width height interp =-    constructNewGObject mkPixbuf $ liftM castPtr $+    wrapNewGObject mkPixbuf $ liftM castPtr $ 	{#call pixbuf_scale_simple#} (toPixbuf pb) 	(fromIntegral width) (fromIntegral height) 	(fromIntegral $ fromEnum interp)@@ -609,7 +609,7 @@ -- pixbufFlipHorizontally :: Pixbuf -> IO Pixbuf pixbufFlipHorizontally self =-  constructNewGObject mkPixbuf $+  wrapNewGObject mkPixbuf $   {# call pixbuf_flip #}     self     (fromBool True)@@ -619,7 +619,7 @@ -- pixbufFlipVertically :: Pixbuf -> IO Pixbuf pixbufFlipVertically self =-  constructNewGObject mkPixbuf $+  wrapNewGObject mkPixbuf $   {# call pixbuf_flip #}     self     (fromBool False)@@ -629,7 +629,7 @@ -- pixbufRotateSimple :: Pixbuf -> PixbufRotation -> IO Pixbuf pixbufRotateSimple self angle =-  constructNewGObject mkPixbuf $+  wrapNewGObject mkPixbuf $   {# call pixbuf_rotate_simple #}     self     ((fromIntegral . fromEnum) angle)@@ -655,9 +655,9 @@ --   during this substitution. -- pixbufAddAlpha :: Pixbuf -> Maybe (Word8, Word8, Word8) -> IO Pixbuf-pixbufAddAlpha pb Nothing = constructNewGObject mkPixbuf $+pixbufAddAlpha pb Nothing = wrapNewGObject mkPixbuf $   {#call unsafe pixbuf_add_alpha#} pb (fromBool False) 0 0 0-pixbufAddAlpha pb (Just (r,g,b)) = constructNewGObject mkPixbuf $+pixbufAddAlpha pb (Just (r,g,b)) = wrapNewGObject mkPixbuf $   {#call unsafe pixbuf_add_alpha#} pb (fromBool True)     (fromIntegral r) (fromIntegral g) (fromIntegral b) @@ -709,7 +709,7 @@ -- pixbufGetFromDrawable :: DrawableClass d => d -> Rectangle -> IO (Maybe Pixbuf) pixbufGetFromDrawable d (Rectangle x y width height) =-  maybeNull (constructNewGObject mkPixbuf) $+  maybeNull (wrapNewGObject mkPixbuf) $   {#call unsafe pixbuf_get_from_drawable#}     (Pixbuf nullForeignPtr) (toDrawable d) (Colormap nullForeignPtr)     (fromIntegral x) (fromIntegral y) 0 0@@ -774,8 +774,8 @@                                                                  (castPtr pmRetPtr) -- seems to reject Pixmap**, so cast                                                                  (castPtr bmRetPtr)                                                                  (fromIntegral threshold)-      pm <- constructNewGObject mkPixmap (peek pmRetPtr :: IO (Ptr Pixmap))-      bm <- maybeNull (constructNewGObject mkPixmap) (peek bmRetPtr :: IO (Ptr Bitmap))+      pm <- wrapNewGObject mkPixmap (peek pmRetPtr :: IO (Ptr Pixmap))+      bm <- maybeNull (wrapNewGObject mkPixmap) (peek bmRetPtr :: IO (Ptr Bitmap))       return (pm, bm)  

@@ -106,7 +106,7 @@ pixbufAnimationNewFromFile :: FilePath               -- ^ Name of file to load, in the GLib file name encoding                            -> IO PixbufAnimation     -- ^ A newly-created animation pixbufAnimationNewFromFile fname =-  constructNewGObject mkPixbufAnimation $+  wrapNewGObject mkPixbufAnimation $   propagateGError $ \errPtrPtr ->      withUTFString fname $ \strPtr -> #if defined (WIN32) && GTK_CHECK_VERSION(2,6,5)@@ -162,7 +162,7 @@                        -> Maybe GTimeVal             -- ^ time when the animation starts playing                        -> IO PixbufAnimationIter     -- ^ an iterator to move over the animation pixbufAnimationGetIter self tv = maybeWith with tv $ \stPtr ->-                                 constructNewGObject mkPixbufAnimationIter $+                                 wrapNewGObject mkPixbufAnimationIter $                                    {#call unsafe pixbuf_animation_get_iter#} self (castPtr stPtr)  @@ -187,7 +187,7 @@ pixbufAnimationGetStaticImage :: PixbufAnimation                               -> IO (Maybe Pixbuf) -- ^ unanimated image representing the animation pixbufAnimationGetStaticImage self =-  maybeNull (constructNewGObject mkPixbuf) $ {#call unsafe pixbuf_animation_get_static_image#} self+  maybeNull (makeNewGObject mkPixbuf) $ {#call unsafe pixbuf_animation_get_static_image#} self   @@ -254,7 +254,7 @@ -- pixbufAnimationIterGetPixbuf :: PixbufAnimationIter -- ^ an animation iterator                                 -> IO Pixbuf        -- ^ the pixbuf to be displayed-pixbufAnimationIterGetPixbuf iter = constructNewGObject mkPixbuf $+pixbufAnimationIterGetPixbuf iter = makeNewGObject mkPixbuf $    {# call unsafe pixbuf_animation_iter_get_pixbuf #} iter  @@ -267,7 +267,7 @@                     -> Int   -- ^ the height of the animation                     -> Float -- ^ the speed of the animation, in frames per second                     -> IO PixbufSimpleAnim  -- ^ a newly allocated 'PixbufSimpleAnim'-pixbufSimpleAnimNew width height rate = constructNewGObject mkPixbufSimpleAnim $+pixbufSimpleAnimNew width height rate = wrapNewGObject mkPixbufSimpleAnim $   {#call unsafe pixbuf_simple_anim_new#} (fromIntegral width) (fromIntegral height) (realToFrac rate)  

@@ -53,7 +53,7 @@  import Data.Maybe import System.Glib.FFI-import System.Glib.GObject           (constructNewGObject)+import System.Glib.GObject           (wrapNewGObject) {#import Graphics.UI.Gtk.Types#} import Graphics.UI.Gtk.Gdk.Drawable  (Drawable, DrawableClass(..)) @@ -83,7 +83,7 @@  -> Maybe Int      -- ^ @depth@  - depth of the pixmap  -> IO Pixmap pixmapNew mbDrawable width height depth =-    constructNewGObject mkPixmap $+    wrapNewGObject mkPixmap $     {# call unsafe pixmap_new #}       (maybe (Drawable nullForeignPtr) toDrawable mbDrawable)       (fromIntegral width) (fromIntegral height)@@ -97,7 +97,7 @@  -> Maybe Int        -- ^ @depth@  - depth of the pixmap  -> IO Pixmap pixmapNew mbDrawWindow width height depth =-    constructNewGObject mkPixmap $+    wrapNewGObject mkPixmap $     {# call unsafe pixmap_new #}       (maybe (DrawWindow nullForeignPtr) toDrawWindow mbDrawWindow)       (fromIntegral width) (fromIntegral height)

@@ -479,7 +479,7 @@  -> IO (Maybe DrawWindow) -- ^ returns the currently active window, or                           -- @Nothing@. screenGetActiveWindow self =-  maybeNull (makeNewGObject mkDrawWindow) $+  maybeNull (wrapNewGObject mkDrawWindow) $   {# call gdk_screen_get_active_window #}     self #endif@@ -503,7 +503,7 @@ screenGetWindowStack self = do   lPtr <- {# call gdk_screen_get_window_stack #} self   if lPtr==nullPtr then return Nothing else liftM Just $ do-  fromGList lPtr >>= mapM (constructNewGObject mkDrawWindow . return)+  fromGList lPtr >>= mapM (wrapNewGObject mkDrawWindow . return) #endif  --------------------@@ -539,7 +539,7 @@ -- screen changes. -- screenSizeChanged :: ScreenClass self => Signal self (IO ())-screenSizeChanged = Signal (connect_NONE__NONE "size_changed")+screenSizeChanged = Signal (connect_NONE__NONE "size-changed")  #if GTK_CHECK_VERSION(2,10,0) -- | The 'screenCompositedChanged' signal is emitted when the composited status of@@ -548,7 +548,7 @@ -- * Available since Gdk version 2.10 -- screenCompositedChanged :: ScreenClass self => Signal self (IO ())-screenCompositedChanged = Signal (connect_NONE__NONE "composited_changed")+screenCompositedChanged = Signal (connect_NONE__NONE "composited-changed")  #if GTK_CHECK_VERSION(2,14,0) -- | The 'screenMonitorsChanged' signal is emitted when the number, size or

@@ -619,7 +619,7 @@ -- drag icon with 'dragSourceSetIcon'. -- dragBegin :: WidgetClass self => Signal self (DragContext -> IO ())-dragBegin = Signal (connect_OBJECT__NONE "drag_begin")+dragBegin = Signal (connect_OBJECT__NONE "drag-begin")  -- %hash c:bfef d:a2ff -- | The 'dragDataDelete' signal is emitted on the drag source when a drag@@ -628,10 +628,10 @@ -- means, depends on the context of the drag operation. -- dragDataDelete :: WidgetClass self => Signal self (DragContext -> IO ())-dragDataDelete = Signal (connect_OBJECT__NONE "drag_data_delete")+dragDataDelete = Signal (connect_OBJECT__NONE "drag-data-delete")  -- %hash c:eb9c d:844c--- | The ::drag-data-get signal is emitted on the drag source when the+-- | The 'dragDataGet' signal is emitted on the drag source when the -- drop site requests the data which is dragged. It is the -- responsibility of the signal handler to set the selection data in -- the format which is indicated by 'InfoId'. See@@ -641,7 +641,7 @@ dragDataGet :: WidgetClass self =>   Signal self (DragContext -> InfoId -> TimeStamp -> SelectionDataM ()) dragDataGet = Signal (\after object handler -> do-      connect_OBJECT_PTR_WORD_WORD__NONE "drag_data_get" after object $+      connect_OBJECT_PTR_WORD_WORD__NONE "drag-data-get" after object $         \ctxt dataPtr info time -> do         runReaderT (handler ctxt (fromIntegral info) (fromIntegral time)) dataPtr >>                      return ())@@ -663,7 +663,7 @@ dragDataReceived :: WidgetClass self =>   Signal self (DragContext -> Point -> InfoId -> TimeStamp -> SelectionDataM ()) dragDataReceived = Signal (\after object handler -> do-  connect_OBJECT_INT_INT_PTR_WORD_WORD__NONE "drag_data_received" after object $+  connect_OBJECT_INT_INT_PTR_WORD_WORD__NONE "drag-data-received" after object $     \ctxt x y dataPtr info time -> do     runReaderT (handler ctxt (fromIntegral x, fromIntegral y) (fromIntegral info)                (fromIntegral time)) dataPtr >> return ())@@ -682,7 +682,7 @@ dragDrop :: WidgetClass self =>   Signal self (DragContext -> Point -> TimeStamp -> IO Bool) dragDrop = Signal (\after object handler ->-  connect_OBJECT_INT_INT_WORD__BOOL "drag_drop" after object $ \ctxt x y time ->+  connect_OBJECT_INT_INT_WORD__BOOL "drag-drop" after object $ \ctxt x y time ->     handler ctxt (fromIntegral x, fromIntegral y) (fromIntegral time))  -- %hash c:9d4e d:a5ac@@ -691,7 +691,7 @@ -- in 'dragBegin'. -- dragEnd :: WidgetClass self => Signal self (DragContext -> IO ())-dragEnd = Signal (connect_OBJECT__NONE "drag_end")+dragEnd = Signal (connect_OBJECT__NONE "drag-end")  #if GTK_CHECK_VERSION(2,12,0) -- | The 'dragFailed' signal is emitted on the drag source when a drag has@@ -703,7 +703,7 @@ -- * Available since Gtk+ 2.12.0. -- dragFailed :: WidgetClass self => Signal self (DragContext -> DragResult -> IO Bool)-dragFailed = Signal (connect_OBJECT_ENUM__BOOL "drag_failed")+dragFailed = Signal (connect_OBJECT_ENUM__BOOL "drag-failed") #endif  -- %hash c:4a85 d:6122@@ -713,7 +713,7 @@ -- dragLeave :: WidgetClass self => Signal self (DragContext -> TimeStamp -> IO ()) dragLeave = Signal (\after object handler ->-  connect_OBJECT_WORD__NONE "drag_leave" after object $ \ctxt time ->+  connect_OBJECT_WORD__NONE "drag-leave" after object $ \ctxt time ->     handler ctxt (fromIntegral time))  -- %hash c:53f7 d:176d@@ -737,6 +737,6 @@ dragMotion :: WidgetClass self =>   Signal self (DragContext -> Point -> TimeStamp -> IO Bool) dragMotion = Signal (\after object handler -> do-  connect_OBJECT_INT_INT_WORD__BOOL "drag_motion" after object $ \ctxt x y time ->+  connect_OBJECT_INT_INT_WORD__BOOL "drag-motion" after object $ \ctxt x y time ->     handler ctxt (fromIntegral x, fromIntegral y) (fromIntegral time)) 

@@ -45,7 +45,9 @@   MatchType(..), #endif   MenuDirectionType(..),+#if GTK_CHECK_VERSION(2,8,0)   MetricType(..),+#endif   MovementStep(..),   Orientation(..),   Packing(..), toPacking, fromPacking,@@ -81,7 +83,10 @@   WindowPosition(..),   WindowType(..),   WrapMode(..), -  module Graphics.UI.Gtk.Gdk.Enums+  EntryIconPosition(..),+  AnchorType (..),++module Graphics.UI.Gtk.Gdk.Enums   ) where  import System.Glib.Flags	(Flags)@@ -330,7 +335,7 @@ -- {#enum ShadowType {underscoreToCase} deriving (Eq,Show)#} --- Sort a 'Graphics.UI.Gtk.TreeList.TreeViewColumn' in ascending or descending+-- Sort a 'Graphics.UI.Gtk.ModelView.TreeViewColumn' in ascending or descending -- order. -- {#enum SortType {underscoreToCase} deriving (Eq,Show)#}@@ -419,4 +424,11 @@ -- {#enum WrapMode {underscoreToCase} deriving (Eq,Show)#} +-- | Specifies the side of the entry at which an icon is placed.+--+{#enum EntryIconPosition {underscoreToCase} deriving (Eq,Show)#}++-- |+--+{#enum AnchorType {underscoreToCase} deriving (Eq,Show)#} 

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) General --@@ -17,10 +18,6 @@ --  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU --  Lesser General Public License for more details. ----- TODO------ quitAddDestroy, quitAdd, quitRemove--- -- | -- Maintainer  : gtk2hs-users@lists.sourceforge.net -- Stability   : provisional@@ -50,6 +47,11 @@   mainIteration,   mainIterationDo,   mainDoEvent,++  -- ** Call when mainloop is left+  quitAddDestroy,+  quitAdd,+  quitRemove,      -- * Grab widgets   grabAdd,@@ -257,7 +259,7 @@ -- While you should not call this function directly, you might want to know how exactly events are -- handled. So here is what this function does with the event: -- ---  1. Compress enter/leave notify events. If the event passed build an enter/leave pair together with+--  1. Compress enter\/leave notify events. If the event passed build an enter\/leave pair together with --     the next event (peeked from GDK) both events are thrown away. This is to avoid a backlog of --     (de-)highlighting widgets crossed by the pointer. --    @@ -289,6 +291,40 @@ mainDoEvent = do   ptr <- ask   liftIO $ {#call main_do_event #} (castPtr ptr)++-- | Trigger destruction of object in case the mainloop at level @mainLevel@ is quit.+quitAddDestroy :: ObjectClass obj +                 => Int -- ^ @mainLevel@ Level of the mainloop which shall trigger the destruction. +                 -> obj -- ^ @object@     Object to be destroyed.                                    +                 -> IO ()+quitAddDestroy mainLevel obj = +  {#call quit_add_destroy #}+     (fromIntegral mainLevel)+     (toObject obj)++-- | Registers a function to be called when an instance of the mainloop is left.+quitAdd :: Int -- ^ @mainLevel@ Level at which termination the function shall be called. You can pass 0 here to have the function run at the current mainloop.                                                                           +        -> (IO Bool) -- ^ @function@   The function to call. This should return 'False' to be removed from the list of quit handlers. Otherwise the function might be called again.+        -> IO Int -- ^ returns    A handle for this quit handler (you need this for 'quitRemove')+quitAdd mainLevel func = do+  funcPtr <- mkGtkFunction $ \ _ -> +    liftM fromBool func+  liftM fromIntegral $+            {#call quit_add #} +              (fromIntegral mainLevel)+              funcPtr+              nullPtr++{#pointer GtkFunction#}++foreign import ccall "wrapper" mkGtkFunction ::+  (Ptr () -> IO {#type gboolean#}) -> IO GtkFunction++-- | Removes a quit handler by its identifier.+quitRemove :: Int -- ^ @quitHandlerId@ Identifier for the handler returned when installing it.  +           -> IO ()+quitRemove quitHandlerId =+  {#call quit_remove #} (fromIntegral quitHandlerId)  -- | add a grab widget --

@@ -18,14 +18,6 @@ --  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU --  Lesser General Public License for more details. ----- TODO------ The following functions are not bound:---   iconFactoryLookup, iconFactoryLookupDefault---   It is not a good idea to lookup an IconSet directly. If an Icon needs to---   be displayed it happends always in the context of a widget. The best---   practice is to get the widgets Style and call styleLookupIconSet.--- -- | -- Maintainer  : gtk2hs-users@lists.sourceforge.net -- Stability   : provisional@@ -115,7 +107,7 @@  import System.Glib.FFI import System.Glib.UTFString-import System.Glib.GObject		(constructNewGObject, makeNewGObject)+import System.Glib.GObject		(wrapNewGObject, makeNewGObject) {#import Graphics.UI.Gtk.Types#} import Graphics.UI.Gtk.General.Enums	(TextDirection(..), StateType(..)) import Graphics.UI.Gtk.General.StockItems@@ -149,7 +141,7 @@ -- iconFactoryNew :: IO IconFactory iconFactoryNew  =-  constructNewGObject mkIconFactory {#call unsafe icon_factory_new#}+  wrapNewGObject mkIconFactory {#call unsafe icon_factory_new#}  -------------------- -- Methods@@ -222,7 +214,7 @@                   -> IconSize                   -> widget                   -> IO Pixbuf-iconSetRenderIcon set dir state size widget = makeNewGObject mkPixbuf $+iconSetRenderIcon set dir state size widget = wrapNewGObject mkPixbuf $   {#call icon_set_render_icon#} set (Style nullForeignPtr)     ((fromIntegral.fromEnum) dir) ((fromIntegral.fromEnum) state)     ((fromIntegral.fromEnum) size) (toWidget widget) nullPtr

@@ -107,7 +107,7 @@   iconThemeChooseIcon, #ifdef HAVE_GIO #if GTK_CHECK_VERSION(2,14,0)-  iconThemeLookupByGicon,+  iconThemeLookupByGIcon, #endif #endif #endif@@ -147,7 +147,7 @@ import System.Glib.UTFString import System.Glib.GList import System.Glib.Flags-import System.Glib.GObject		(constructNewGObject, makeNewGObject, Quark)+import System.Glib.GObject		(wrapNewGObject, makeNewGObject, Quark) import System.Glib.GError   (GErrorDomain, GErrorClass(..), propagateGError) import Graphics.UI.Gtk.General.Structs (Rectangle, Point) {#import Graphics.UI.Gtk.Types#}@@ -175,7 +175,7 @@ -- iconThemeNew :: IO IconTheme iconThemeNew =-  constructNewGObject mkIconTheme $+  wrapNewGObject mkIconTheme $   {# call gtk_icon_theme_new #}  --------------------@@ -372,7 +372,7 @@ -- -- * Available since Gtk+ version 2.14 ---iconThemeLookupByGicon :: (IconThemeClass self, IconClass icon) => self+iconThemeLookupByGIcon :: (IconThemeClass self, IconClass icon) => self  -> icon          -- ^ @icon@ - the 'Icon' to look up  -> Int                 -- ^ @size@ - desired icon size  -> IconLookupFlags   -- ^ @flags@ - flags modifying the behavior of the@@ -380,7 +380,7 @@  -> IO (Maybe IconInfo)        -- ^ returns a 'IconInfo'                         -- structure containing information about the icon, or                         -- 'Nothing' if the icon wasn't found. -iconThemeLookupByGicon self icon size flags = do+iconThemeLookupByGIcon self icon size flags = do     iiPtr <- {# call gtk_icon_theme_lookup_by_gicon #}             (toIconTheme self)             (toIcon icon)@@ -416,7 +416,7 @@                       -- so you must not modify the icon.                        -- `Nothing` if the icon isn't found. iconThemeLoadIcon self iconName size flags =-  maybeNull (makeNewGObject mkPixbuf) $+  maybeNull (wrapNewGObject mkPixbuf) $   propagateGError $ \errorPtr ->   withUTFString iconName $ \iconNamePtr ->   {# call gtk_icon_theme_load_icon #}@@ -664,7 +664,7 @@ -- loaded, which would be a waste of memory. iconInfoLoadIcon :: IconInfo -> IO Pixbuf iconInfoLoadIcon self =-  makeNewGObject mkPixbuf $+  wrapNewGObject mkPixbuf $   propagateGError $ \errorPtr ->   {# call gtk_icon_info_load_icon #}     self

@@ -476,7 +476,7 @@ -- rcStyleNew :: IO RcStyle rcStyleNew =-  constructNewGObject mkRcStyle $+  wrapNewGObject mkRcStyle $   {# call gtk_rc_style_new #}  --------------------@@ -488,7 +488,7 @@ rcStyleCopy :: RcStyleClass self => self  -> IO RcStyle -- ^ returns the resulting 'RcStyle' rcStyleCopy self =-  constructNewGObject mkRcStyle $+  wrapNewGObject mkRcStyle $   {# call gtk_rc_style_copy #}     (toRcStyle self) 

@@ -340,7 +340,7 @@ selectionDataGetPixbuf :: SelectionDataM (Maybe Pixbuf) selectionDataGetPixbuf = do   selPtr <- ask-  liftIO $ maybeNull (constructNewGObject mkPixbuf) $+  liftIO $ maybeNull (wrapNewGObject mkPixbuf) $     {#call unsafe gtk_selection_data_get_pixbuf #} selPtr  -- %hash c:d222 d:af3f@@ -471,7 +471,7 @@ -- selectionReceived :: WidgetClass self => Signal self (TimeStamp -> SelectionDataM ()) selectionReceived = Signal (\after object handler -> do-    connect_PTR_WORD__NONE "selection_received" after object $ \dataPtr time -> do+    connect_PTR_WORD__NONE "selection-received" after object $ \dataPtr time -> do       runReaderT (handler (fromIntegral time)) dataPtr >> return ())  -- %hash c:c3 d:af3f@@ -482,7 +482,7 @@ selectionGet :: WidgetClass self =>                 Signal self (InfoId -> TimeStamp -> SelectionDataM ()) selectionGet = Signal (\after object handler -> do-    connect_PTR_WORD_WORD__NONE "selection_get" after object $+    connect_PTR_WORD_WORD__NONE "selection-get" after object $       \dataPtr info time -> do       runReaderT (handler (fromIntegral info) (fromIntegral time)) dataPtr >>                    return ())

@@ -100,7 +100,8 @@   selectionTypeInteger,   selectionTypeString,   selectionDataGetType,-  withTargetEntries+  withTargetEntries,+  KeymapKey (..)   ) where  import Control.Monad		(liftM)@@ -1001,3 +1002,35 @@     #{poke GtkTargetEntry, target} ptr cPtr     #{poke GtkTargetEntry, flags} ptr (0::#{gtk2hs_type guint})     #{poke GtkTargetEntry, info} ptr info++-- | A 'KeymapKey' is a hardware key that can be mapped to a keyval.+data KeymapKey = KeymapKey {+       keycode   :: Int -- ^ @keycode@ the hardware keycode. This is an identifying number for a physical key.+      ,group     :: Int -- ^ @group@ indicates movement in a horizontal direction. +                      -- Usually groups are used for two different languages. +                      -- In group  0, a key might have two English characters, +                      -- and in group 1 it might have two Hebrew characters. +                      -- The Hebrew characters will be printed on the key next to the English characters. +                      -- indicates which symbol on the key will be used, +                      -- in a vertical direction. So on a standard US keyboard, the                         +      ,level     :: Int -- ^ @level@ key with the number "1" on it also has the exclamation +                      -- point ("!") character on it. The level+                      -- indicates whether to use the "1" or the "!" symbol. The letter keys are considered to+                      -- have a lowercase letter at level 0, and an uppercase letter at level 1, though only+                      -- the uppercase letter is printed.+    } deriving (Eq, Show) +               +instance Storable KeymapKey where+  sizeOf _ = #{const sizeof(GdkKeymapKey)}+  alignment _ = alignment (undefined::#gtk2hs_type gint)+  peek ptr = do+    (keycode_  ::#gtk2hs_type guint)	<- #{peek GdkKeymapKey, keycode} ptr+    (group_  ::#gtk2hs_type gint)	<- #{peek GdkKeymapKey, group} ptr+    (level_ ::#gtk2hs_type gint)	<- #{peek GdkKeymapKey, level} ptr+    return $ KeymapKey (fromIntegral keycode_) (fromIntegral group_) (fromIntegral level_)+  poke ptr (KeymapKey keycode group level) = do+    #{poke GdkKeymapKey, keycode} ptr ((fromIntegral keycode)::#gtk2hs_type guint)+    #{poke GdkKeymapKey, group} ptr ((fromIntegral group)::#gtk2hs_type gint)+    #{poke GdkKeymapKey, level} ptr ((fromIntegral level)::#gtk2hs_type gint)+               +               

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Styles --

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget AspectFrame --

@@ -82,6 +82,9 @@   expanderUseMarkup,   expanderSpacing,   expanderLabelWidget,+#if GTK_CHECK_VERSION(2,22,0)+  expanderLabelFill,+#endif  -- * Signals   onActivate,@@ -94,6 +97,7 @@ import System.Glib.FFI import System.Glib.UTFString import System.Glib.Attributes+import System.Glib.Properties import Graphics.UI.Gtk.Abstract.Object {#import Graphics.UI.Gtk.Types#} import Graphics.UI.Gtk.Signals@@ -313,6 +317,15 @@ expanderLabelWidget = newAttr   expanderGetLabelWidget   expanderSetLabelWidget++#if GTK_CHECK_VERSION(2,22,0)+-- | Whether the label widget should fill all available horizontal space.+-- +-- Default value: 'False'+--+expanderLabelFill :: Attr Expander Bool+expanderLabelFill = newAttrFromBoolProperty "label-fill"+#endif  -------------------- -- Signals

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget Fixed --

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget HBox --

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget HButtonBox --

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget HPaned --

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget Layout --

@@ -127,6 +127,10 @@   notebookSetTabDetachable,   notebookGetTabDetachable, #endif+#if GTK_CHECK_VERSION(2,20,0)+  notebookSetActionWidget,+  notebookGetActionWidget,+#endif  -- * Attributes   notebookPage,@@ -976,6 +980,40 @@   {# call notebook_get_tab_detachable #}     (toNotebook self)     (toWidget child)+#endif++#if GTK_CHECK_VERSION(2,20,0)+-- | Sets widget as one of the action widgets. Depending on the pack type the widget will be placed+-- before or after the tabs. You can use a 'Box' if you need to pack more than one widget on the same+-- side.+-- +-- Note that action widgets are "internal" children of the notebook and thus not included in the list+-- returned from 'containerForeach'.+--+-- * Available since Gtk version 2.20+--+notebookSetActionWidget :: (NotebookClass self, WidgetClass widget) => self+                        -> widget+                        -> PackType -- ^ @packType@ pack type of the action widget +                        -> IO ()+notebookSetActionWidget self widget packType =+  {#call gtk_notebook_set_action_widget #}+    (toNotebook self)+    (toWidget widget)+    ((fromIntegral . fromEnum) packType)++-- | Gets one of the action widgets. See 'notebookSetActionWidget'.+--+-- * Available since Gtk version 2.20+--+notebookGetActionWidget :: NotebookClass self => self+                        -> PackType -- ^ @packType@ pack type of the action widget to receive+                        -> IO (Maybe Widget)+notebookGetActionWidget self packType =+    maybeNull (makeNewObject mkWidget) $+    {#call gtk_notebook_get_action_widget #}+      (toNotebook self)+      ((fromIntegral . fromEnum) packType) #endif  --------------------

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget Table --@@ -80,6 +81,9 @@   tableGetDefaultColSpacing,   tableSetHomogeneous,   tableGetHomogeneous,+#if GTK_CHECK_VERSION(2,22,0)+  tableGetSize,+#endif  -- * Attributes   tableNRows,@@ -327,6 +331,26 @@   liftM toBool $   {# call unsafe table_get_homogeneous #}     (toTable self)++#if GTK_CHECK_VERSION(2,22,0)+-- | Returns the size of 'Table'.+--+-- * Available since Gtk+ version 2.22+--+tableGetSize :: TableClass self => self+             -> IO (Int, Int) -- ^ returns (rows, columns) of table+tableGetSize self =+  alloca $ \ rowsPtr ->+  alloca $ \ columnsPtr -> do+  {# call unsafe gtk_table_get_size #}+    (toTable self)+    rowsPtr+    columnsPtr+  rows <- peek rowsPtr+  columns <- peek columnsPtr+  return (fromIntegral rows, fromIntegral columns)+  +#endif  -------------------- -- Attributes

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget VBox --

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget VButtonBox --

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget VPaned --

@@ -63,7 +63,7 @@ -- * Methods   checkMenuItemSetActive,   checkMenuItemGetActive,-  checkMenuItemToggled,+  checkMenuItemEmitToggled,   checkMenuItemSetInconsistent,   checkMenuItemGetInconsistent, #if GTK_CHECK_VERSION(2,4,0)@@ -77,6 +77,9 @@ #if GTK_CHECK_VERSION(2,4,0)   checkMenuItemDrawAsRadio, #endif++-- * Signals+  checkMenuItemToggled   ) where  import Control.Monad	(liftM)@@ -85,6 +88,7 @@ import System.Glib.UTFString import System.Glib.Attributes import Graphics.UI.Gtk.Abstract.Object	(makeNewObject)+{#import Graphics.UI.Gtk.Signals#} {#import Graphics.UI.Gtk.Types#}  {# context lib="gtk" prefix="gtk" #}@@ -149,8 +153,8 @@  -- | Emits the toggled signal. ---checkMenuItemToggled :: CheckMenuItemClass self => self -> IO ()-checkMenuItemToggled self =+checkMenuItemEmitToggled :: CheckMenuItemClass self => self -> IO ()+checkMenuItemEmitToggled self =   {# call check_menu_item_toggled #}     (toCheckMenuItem self) @@ -232,3 +236,7 @@   checkMenuItemSetDrawAsRadio #endif +-- | This signal is emitted when the state of the check box is changed.+--+checkMenuItemToggled :: CheckMenuItemClass self => Signal self (IO ())+checkMenuItemToggled = Signal (connect_NONE__NONE "toggled")

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget ImageMenuItem --

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget MenuItem --@@ -78,9 +79,9 @@   menuItemSetSubmenu,   menuItemGetSubmenu,   menuItemRemoveSubmenu,-  menuItemSelect,-  menuItemDeselect,-  menuItemActivate,+  menuItemEmitSelect,+  menuItemEmitDeselect,+  menuItemEmitActivate,   menuItemSetRightJustified,   menuItemGetRightJustified,   menuItemSetAccelPath,@@ -90,6 +91,14 @@   menuItemRightJustified,  -- * Signals+  menuItemActivateItem,+  menuItemActivate,+  menuItemSelect,+  menuItemDeselect,+  menuItemToggle,++#ifndef DISABLE_DEPRECATED+-- * Deprecated   onActivateItem,   afterActivateItem,   onActivateLeaf,@@ -100,6 +109,7 @@   afterDeselect,   onToggle,   afterToggle+#endif   ) where  import Control.Monad	(liftM)@@ -182,22 +192,22 @@  -- | Select the menu item. Emits the \"select\" signal on the item. ---menuItemSelect :: MenuItemClass self => self -> IO ()-menuItemSelect self =+menuItemEmitSelect :: MenuItemClass self => self -> IO ()+menuItemEmitSelect self =   {# call menu_item_select #}     (toMenuItem self)  -- | Deselect the menu item. Emits the \"deselect\" signal on the item. ---menuItemDeselect :: MenuItemClass self => self -> IO ()-menuItemDeselect self =+menuItemEmitDeselect :: MenuItemClass self => self -> IO ()+menuItemEmitDeselect self =   {# call menu_item_deselect #}     (toMenuItem self)  -- | Simulate a click on the menu item. Emits the \"activate\" signal on the item. ---menuItemActivate :: MenuItemClass self => self -> IO ()-menuItemActivate self =+menuItemEmitActivate :: MenuItemClass self => self -> IO ()+menuItemEmitActivate self =   {# call menu_item_activate #}     (toMenuItem self) @@ -276,43 +286,63 @@ -- * This is the only function applications normally connect to. --   It is not emitted if the item has a submenu. ---onActivateLeaf, afterActivateLeaf :: MenuItemClass self => self- -> IO ()- -> IO (ConnectId self)-onActivateLeaf = connect_NONE__NONE "activate" False-afterActivateLeaf = connect_NONE__NONE "activate" True+menuItemActivate :: MenuItemClass self => Signal self (IO ())+menuItemActivate = Signal (connect_NONE__NONE "activate")  -- | Emitted when the user chooses a menu item that has a submenu. -- -- * This signal is not emitted if the menu item does not have a --   submenu. --+menuItemActivateItem :: MenuItemClass self => Signal self (IO ())+menuItemActivateItem = Signal (connect_NONE__NONE "activate-item")++-- | This signal is emitted when the item is selected.+--+menuItemSelect :: ItemClass i => Signal i (IO ())+menuItemSelect = Signal (connect_NONE__NONE "select")++-- | This signal is emitted when the item is deselected.+--+menuItemDeselect :: ItemClass i => Signal i (IO ())+menuItemDeselect = Signal (connect_NONE__NONE "deselect")++-- | This signal is emitted when the item is toggled.+--+menuItemToggle :: ItemClass i => Signal i (IO ())+menuItemToggle = Signal (connect_NONE__NONE "toggle")++#ifndef DISABLE_DEPRECATED+--------------------+-- Deprecated Signals++onActivateLeaf, afterActivateLeaf :: MenuItemClass self => self+ -> IO ()+ -> IO (ConnectId self)+onActivateLeaf = connect_NONE__NONE "activate" False+afterActivateLeaf = connect_NONE__NONE "activate" True+ onActivateItem, afterActivateItem :: MenuItemClass self => self  -> IO ()  -> IO (ConnectId self) onActivateItem = connect_NONE__NONE "activate-item" False afterActivateItem = connect_NONE__NONE "activate-item" True --- | This signal is emitted when the item is selected.--- onSelect, afterSelect :: ItemClass i => i  -> IO ()  -> IO (ConnectId i) onSelect = connect_NONE__NONE "select" False afterSelect = connect_NONE__NONE "select" True --- | This signal is emitted when the item is deselected.--- onDeselect, afterDeselect :: ItemClass i => i  -> IO ()  -> IO (ConnectId i) onDeselect = connect_NONE__NONE "deselect" False afterDeselect = connect_NONE__NONE "deselect" True --- | This signal is emitted when the item is toggled.--- onToggle, afterToggle :: ItemClass i => i  -> IO ()  -> IO (ConnectId i)-onToggle = connect_NONE__NONE "toggled" False-afterToggle = connect_NONE__NONE "toggled" True+onToggle = connect_NONE__NONE "toggle" False+afterToggle = connect_NONE__NONE "toggle" True+#endif

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget RadioMenuItem --

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget TearoffMenuItem --

@@ -86,6 +86,13 @@   toolItemGetProxyMenuItem,   toolItemSetProxyMenuItem, +#if GTK_CHECK_VERSION(2,20,0)+  toolItemGetEllipsizeMode,+  toolItemGetTextAlignment,+  toolItemGetTextOrientation,+  toolItemGetTextSizeGroup,+#endif+ -- * Attributes   toolItemVisibleHorizontal,   toolItemVisibleVertical,@@ -102,6 +109,8 @@ import System.Glib.UTFString import System.Glib.Attributes import Graphics.UI.Gtk.Abstract.Object	(makeNewObject)+import Graphics.Rendering.Pango.Enums   (EllipsizeMode (..))+import Graphics.UI.Gtk.Misc.SizeGroup {#import Graphics.UI.Gtk.Types#} import Graphics.UI.Gtk.General.Structs	(IconSize) import Graphics.UI.Gtk.General.Enums	(Orientation(..), ToolbarStyle(..), ReliefStyle(..))@@ -340,6 +349,47 @@     (toToolItem self)     menuItemIdPtr     (toWidget menuItem)++#if GTK_CHECK_VERSION(2,20,0)+-- | Returns the ellipsize mode used for @toolItem@. Custom subclasses of 'ToolItem' should call this+-- function to find out how text should be ellipsized.+--+-- * Available since Gtk+ version 2.20+--+toolItemGetEllipsizeMode :: ToolItemClass item => item+                         -> IO EllipsizeMode  -- ^ returns   a PangoEllipsizeMode indicating how text in @toolItem@ should be ellipsized.+toolItemGetEllipsizeMode item = +  liftM (toEnum . fromIntegral) $+  {#call gtk_tool_item_get_ellipsize_mode #}+    (toToolItem item)++-- | Returns the text alignment used for @toolItem@. Custom subclasses of 'ToolItem' should call this+-- function to find out how text should be aligned.+toolItemGetTextAlignment :: ToolItemClass item => item +                         -> IO Double -- ^ returns   a gfloat indicating the horizontal text alignment used for @toolItem@+toolItemGetTextAlignment item =+  liftM realToFrac $+  {#call gtk_tool_item_get_text_alignment #}+     (toToolItem item)++-- | Returns the text orientation used for @toolItem@. Custom subclasses of 'ToolItem' should call this+-- function to find out how text should be orientated.+toolItemGetTextOrientation :: ToolItemClass item => item+                           -> IO Orientation -- ^ returns   a 'Orientation' indicating the orientation used for @toolItem@ +toolItemGetTextOrientation item =+  liftM (toEnum . fromIntegral) $+  {#call gtk_tool_item_get_text_orientation #}+     (toToolItem item)++-- | Returns the size group used for labels in @toolItem@. Custom subclasses of 'ToolItem' should call+-- this function and use the size group for labels.+toolItemGetTextSizeGroup :: ToolItemClass item => item+                         -> IO SizeGroup+toolItemGetTextSizeGroup item =+  makeNewGObject mkSizeGroup $+  {#call gtk_tool_item_get_text_size_group #}+     (toToolItem item)+#endif  -------------------- -- Attributes

@@ -0,0 +1,295 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widget ToolItemGroup+--+--  Author : Andy Stewart+--+--  Created: 08 Sep 2010+--+--  Copyright (C) 2010 Andy Stewart+--+--  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.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- A sub container used in a tool palette+--+-- * Module available since Gtk+ version 2.20+--+module Graphics.UI.Gtk.MenuComboToolbar.ToolItemGroup (++-- * Detail+-- | A 'ToolItemGroup' is used together with 'ToolPalette' to add 'ToolItems' to a palette like+-- container with different categories and drag and drop support.++-- * Class Hierarchy+-- |+-- @+-- |  'GObject'+-- |   +----'Object'+-- |         +----'Widget'+-- |               +----'Container'+-- |                     +----'ToolItemGroup'+-- @+  +#if GTK_CHECK_VERSION(2,20,0)+-- * Types  +  ToolItemGroup,+  ToolItemGroupClass,+  castToToolItemGroup,+  toToolItemGroup,++-- * Constructors+  toolItemGroupNew,  ++-- * Methods+  toolItemGroupGetDropItem,+  toolItemGroupGetItemPosition,+  toolItemGroupGetNItems,+  toolItemGroupGetNthItem,+  toolItemGroupInsert,+  toolItemGroupSetItemPosition,+  +-- * Attributes+  toolItemGroupCollapsed,+  toolItemGroupEllipsize,+  toolItemGroupHeaderRelief,+  toolItemGroupLabel,+  toolItemGroupLabelWidget,++-- * Child Attributes+  toolItemGroupChildExpand,+  toolItemGroupChildFill,+  toolItemGroupChildHomogeneous,+  toolItemGroupChildNewRow,+  toolItemGroupChildPosition,+#endif+) where++import Control.Monad	(liftM)++import System.Glib.FFI+import System.Glib.Attributes+import System.Glib.Properties+import System.Glib.GList+import System.Glib.UTFString+import Graphics.Rendering.Pango.Enums   (EllipsizeMode (..))+import Graphics.UI.Gtk.General.Enums	(ReliefStyle(..))+import Graphics.UI.Gtk.Abstract.Object	(makeNewObject)+{#import Graphics.UI.Gtk.Types#}+{#import Graphics.UI.Gtk.Signals#}++{# context lib="gtk" prefix="gtk" #}++#if GTK_CHECK_VERSION(2,20,0)+-- | Creates a new tool item group with label label.+--+-- * Available since Gtk+ version 2.20+--+toolItemGroupNew :: String -- ^ @label@   the label of the new group +                 -> IO ToolItemGroup -- ^ returns a new 'ToolItemGroup'.    +toolItemGroupNew label =+  makeNewObject mkToolItemGroup $+  liftM (castPtr :: Ptr Widget -> Ptr ToolItemGroup) $+  withUTFString label $ \ labelPtr -> +    {#call gtk_tool_item_group_new #}+      labelPtr++-- | Gets the tool item at position (x, y).+--+-- * Available since Gtk+ version 2.20+--+toolItemGroupGetDropItem :: ToolItemGroupClass self => self+                         -> (Int, Int)+                         -> IO ToolItem+toolItemGroupGetDropItem group (x, y) = +  makeNewObject mkToolItem $+  {#call gtk_tool_item_group_get_drop_item #}+    (toToolItemGroup group)+    (fromIntegral x)+    (fromIntegral y)++-- | Gets the position of item in group as index.+--+-- * Available since Gtk+ version 2.20+--+toolItemGroupGetItemPosition :: (ToolItemGroupClass group, ToolItemClass item)+                               => group -- ^ @group@   a 'ToolItemGroup'                                            +                               -> item -- ^ @item@    a 'ToolItem'                                                 +                               -> IO Int -- ^ returns the index of item in group or -1 if item is no child of group +toolItemGroupGetItemPosition group item =+    liftM fromIntegral $+    {#call gtk_tool_item_group_get_item_position #}+      (toToolItemGroup group)+      (toToolItem item)++-- | Gets the number of tool items in group.+--+-- * Available since Gtk+ version 2.20+--+toolItemGroupGetNItems :: ToolItemGroupClass group => group+                       -> IO Int -- ^ returns the number of tool items in group +toolItemGroupGetNItems group =+    liftM fromIntegral $+    {#call gtk_tool_item_group_get_n_items #}+      (toToolItemGroup group)++-- | Gets the tool item at index in group.+--+-- * Available since Gtk+ version 2.20+--+toolItemGroupGetNthItem :: ToolItemGroupClass group => group+                        -> Int  -- ^ @index@   the index                +                        -> IO ToolItem  -- ^ returns the 'ToolItem' at index +toolItemGroupGetNthItem group index =+  makeNewObject mkToolItem $+  {#call gtk_tool_item_group_get_nth_item #}+    (toToolItemGroup group)+    (fromIntegral index)++-- | Inserts item at position in the list of children of group.+--+-- * Available since Gtk+ version 2.20+--+toolItemGroupInsert :: (ToolItemGroupClass group, ToolItemClass item) +                     => group -- ^ @group@    a 'ToolItemGroup'+                     -> item -- ^ @item@     the 'ToolItem' to insert into group+                     -> Int -- ^ @position@ the position of item in group, starting with 0. +                           -- The position -1 means end of list.+                     -> IO ()+toolItemGroupInsert group item position =+  {#call gtk_tool_item_group_insert #}+    (toToolItemGroup group)+    (toToolItem item)+    (fromIntegral position)++-- | Sets the position of item in the list of children of group.+--+-- * Available since Gtk+ version 2.20+--+toolItemGroupSetItemPosition :: (ToolItemGroupClass group, ToolItemClass item)+                               => group -- ^ @group@    a 'ToolItemGroup'+                               -> item -- ^ @item@     the 'ToolItem' to move to a new position, should be a child of group.+                               -> Int  -- ^ @position@ the new position of item in group, starting with 0. The position -1 means end of list.+                               -> IO ()+toolItemGroupSetItemPosition group item position = +  {#call gtk_tool_item_group_set_item_position #}+    (toToolItemGroup group)+    (toToolItem item)+    (fromIntegral position)++-- | Wether the group has been collapsed and items are hidden.+-- +-- Default value: 'False'+--+-- * Available since Gtk+ version 2.20+--+toolItemGroupCollapsed :: ToolItemGroupClass group => Attr group Bool+toolItemGroupCollapsed =+  newAttrFromBoolProperty "collapsed"++-- | Ellipsize for item group headers.+-- +-- Default value: EllipsizeNone+--+-- * Available since Gtk+ version 2.20+--+toolItemGroupEllipsize :: ToolItemGroupClass group => Attr group EllipsizeMode+toolItemGroupEllipsize =+  newAttrFromEnumProperty "ellipsize"+     {# call pure unsafe pango_ellipsize_mode_get_type #}++-- | Relief of the group header button.+-- +-- Default value: 'ReliefNormal'+--+-- * Available since Gtk+ version 2.20+--+toolItemGroupHeaderRelief :: ToolItemGroupClass group => Attr group ReliefStyle+toolItemGroupHeaderRelief =+  newAttrFromEnumProperty "header-relief"+     {# call pure unsafe gtk_relief_style_get_type #}++-- | The human-readable title of this item group.+-- +-- Default value: \"\"+--+-- * Available since Gtk+ version 2.20+--+toolItemGroupLabel :: ToolItemGroupClass group => Attr group String+toolItemGroupLabel =+  newAttrFromStringProperty "label"++-- | A widget to display in place of the usual label.+--+-- * Available since Gtk+ version 2.20+--+toolItemGroupLabelWidget :: ToolItemGroupClass group => Attr group Widget+toolItemGroupLabelWidget =+  newAttrFromObjectProperty "label-widget"+      {# call pure unsafe gtk_widget_get_type #}++-- | Whether the item should receive extra space when the group grows.+-- +-- Default value: 'False'+--+-- * Available since Gtk+ version 2.20+--+toolItemGroupChildExpand :: ToolItemGroupClass group => Attr group Bool+toolItemGroupChildExpand =+  newAttrFromBoolProperty "expand"++-- | Whether the item should fill the available space.+-- +-- Default value: 'True'+--+-- * Available since Gtk+ version 2.20+--+toolItemGroupChildFill :: ToolItemGroupClass group => Attr group Bool+toolItemGroupChildFill =+  newAttrFromBoolProperty "fill"++-- | Whether the item should be the same size as other homogeneous items.+-- +-- Default value: 'True'+--+-- * Available since Gtk+ version 2.20+--+toolItemGroupChildHomogeneous :: ToolItemGroupClass group => Attr group Bool+toolItemGroupChildHomogeneous =+  newAttrFromBoolProperty "homogeneous"++-- | Whether the item should start a new row.+-- +-- Default value: 'False'+--+-- * Available since Gtk+ version 2.20+--+toolItemGroupChildNewRow :: ToolItemGroupClass group => Attr group Bool+toolItemGroupChildNewRow =+  newAttrFromBoolProperty "new-row"++-- | Position of the item within this group.+-- +-- Allowed values: >= 0+-- +-- Default value: 0+--+-- * Available since Gtk+ version 2.20+--+toolItemGroupChildPosition :: ToolItemGroupClass group => Attr group Int+toolItemGroupChildPosition =+  newAttrFromIntProperty "position"+#endif+

@@ -0,0 +1,267 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widget ToolPalette+--+--  Author : Andy Stewart+--+--  Created: 08 Sep 2010+--+--  Copyright (C) 2010 Andy Stewart+--+--  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.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- A tool palette with categories                                                                             +--+-- * Module available since Gtk+ version 2.20+--+-- TODO:+--+--       gtk_tool_palette_add_drag_dest+--       gtk_tool_palette_get_drag_item+--       gtk_tool_palette_get_drag_target_group+--       gtk_tool_palette_get_drag_target_item+--       gtk_tool_palette_get_drop_group+--       gtk_tool_palette_get_drop_item+--+module Graphics.UI.Gtk.MenuComboToolbar.ToolPalette (++-- * Detail+-- | A 'ToolPalette' allows you to add 'ToolItems' to a palette-like container with different+-- categories and drag and drop support.+-- +-- A 'ToolPalette' is created with a call to 'toolPaletteNew'.+-- +-- 'ToolItems' cannot be added directly to a 'ToolPalette' - instead they are added to a+-- 'ToolItemGroup' which can than be added to a 'ToolPalette'. To add a 'ToolItemGroup' to a+-- 'ToolPalette', use 'containerAdd'.+--+-- The easiest way to use drag and drop with 'ToolPalette' is to call 'toolPaletteAddDragDest'+-- with the desired drag source palette and the desired drag target widget. Then+-- 'toolPaletteGetDragItem' can be used to get the dragged item in the 'dragDataReceived'+-- signal handler of the drag target.++-- * Class Hierarchy+-- |+-- @+-- |  'GObject'+-- |   +----'Object'+-- |         +----'Widget'+-- |               +----'Container'+-- |                     +----'ToolPalette'+-- @++#if GTK_CHECK_VERSION(2,20,0)+-- * Types  +  ToolPalette,+  ToolPaletteClass,+  castToToolPalette,+  toToolPalette,++-- * Enums+  ToolPaletteDragTargets (..),++-- * Constructors+  toolPaletteNew,++-- * Methods+  toolPaletteUnsetIconSize,+  toolPaletteUnsetStyle,+  toolPaletteGetHAdjustment,+  toolPaletteGetVAdjustment,++-- * Attributes+  toolPaletteSetGroupPosition,+  toolPaletteGetGroupPosition,+  toolPaletteIconSize,+  toolPaletteIconSizeSet,+  toolPaletteToolbarStyle,++-- * Child Attributes+  toolPaletteChildExclusive,+  toolPaletteChildExpand,+    +-- * Signals    +  toolPaletteSetScrollAdjustments,+#endif+) where++import Control.Monad	(liftM)++import System.Glib.FFI+import System.Glib.Attributes+import System.Glib.Properties+import System.Glib.GList+import System.Glib.UTFString+import Graphics.UI.Gtk.General.Structs (IconSize (..))+import Graphics.UI.Gtk.General.Enums (ToolbarStyle (..))+import Graphics.UI.Gtk.Abstract.Object	(makeNewObject)+{#import Graphics.UI.Gtk.Types#}+{#import Graphics.UI.Gtk.Signals#}++{# context lib="gtk" prefix="gtk" #}++#if GTK_CHECK_VERSION(2,20,0)++-- | Flags used to specify the supported drag targets.+{# enum ToolPaletteDragTargets {underscoreToCase} deriving (Eq) #}++-- | Creates a new tool palette.+--+-- * Available since Gtk+ version 2.20    +--+toolPaletteNew :: IO ToolPalette+toolPaletteNew =+  makeNewObject mkToolPalette $+  liftM (castPtr :: Ptr Widget -> Ptr ToolPalette) $+  {#call gtk_tool_palette_new #}++-- | Unsets the tool palette icon size set with 'toolPaletteSetIconSize', so that user+-- preferences will be used to determine the icon size.+--+-- * Available since Gtk+ version 2.20    +--+toolPaletteUnsetIconSize :: ToolPaletteClass self => self -> IO ()+toolPaletteUnsetIconSize palette =+  {#call gtk_tool_palette_unset_icon_size #}+    (toToolPalette palette)++-- | Unsets a toolbar style set with 'toolPaletteSetStyle', so that user preferences will be used+-- to determine the toolbar style.+--+-- * Available since Gtk+ version 2.20    +--+toolPaletteUnsetStyle :: ToolPaletteClass self => self -> IO ()+toolPaletteUnsetStyle palette =+  {#call gtk_tool_palette_unset_style #}+     (toToolPalette palette)++-- | Gets the horizontal adjustment of the tool palette.+--+-- * Available since Gtk+ version 2.20    +--+toolPaletteGetHAdjustment :: ToolPaletteClass self => self+                          -> IO Adjustment+toolPaletteGetHAdjustment palette =+  makeNewObject mkAdjustment $+  {# call gtk_tool_palette_get_hadjustment #}+     (toToolPalette palette)++-- | Gets the vertical adjustment of the tool palette.+--+-- * Available since Gtk+ version 2.20    +--+toolPaletteGetVAdjustment :: ToolPaletteClass self => self+                          -> IO Adjustment+toolPaletteGetVAdjustment palette =+  makeNewObject mkAdjustment $+  {# call gtk_tool_palette_get_vadjustment #}+     (toToolPalette palette)++-- | Gets the position of group in palette as index. See 'toolPaletteSetGroupPosition'.+--+-- * Available since Gtk+ version 2.20    +--+toolPaletteGetGroupPosition :: (ToolPaletteClass palette, ToolItemGroupClass group) +                              => palette+                              -> group+                              -> IO Int -- ^ returns the index of group or -1 if group is not a child of palette +toolPaletteGetGroupPosition palette group =+  liftM fromIntegral $+  {#call gtk_tool_palette_get_group_position #}+    (toToolPalette palette)+    (toToolItemGroup group)++-- | Sets the position of the group as an index of the tool palette. If position is 0 the group will+-- become the first child, if position is -1 it will become the last child.+--+-- * Available since Gtk+ version 2.20    +--+toolPaletteSetGroupPosition :: (ToolPaletteClass palette, ToolItemGroupClass group) +                              => palette+                              -> group+                              -> Int+                              -> IO ()+toolPaletteSetGroupPosition palette group position =+  {#call gtk_tool_palette_set_group_position #}+     (toToolPalette palette)+     (toToolItemGroup group)+     (fromIntegral position)++-- | The size of the icons in a tool palette is normally determined by the 'toolbarIconSize'+-- setting. When this property is set, it overrides the setting.+-- +-- This should only be used for special-purpose tool palettes, normal application tool palettes should+-- respect the user preferences for the size of icons.+-- +-- Default value: 'IconSizeSmallToolbar'+--+-- * Available since Gtk+ version 2.20    +--+toolPaletteIconSize :: ToolPaletteClass self => Attr self IconSize+toolPaletteIconSize =+    newAttrFromEnumProperty "icon-size"+        {# call pure unsafe gtk_icon_size_get_type #}++-- | Is 'True' if the 'iconSize' property has been set.+-- +-- Default value: 'False'+--+-- * Available since Gtk+ version 2.20    +--+toolPaletteIconSizeSet :: ToolPaletteClass self => Attr self Bool+toolPaletteIconSizeSet =+  newAttrFromBoolProperty "icon-size-set"++-- | The style of items in the tool palette.+-- +-- Default value: 'ToolbarIcons'+--+-- * Available since Gtk+ version 2.20    +--+toolPaletteToolbarStyle :: ToolPaletteClass self => Attr self ToolbarStyle+toolPaletteToolbarStyle =+  newAttrFromEnumProperty "toolbar-style"+    {# call pure unsafe gtk_toolbar_style_get_type #}++-- | Whether the item group should be the only one that is expanded at a given time.+-- +-- Default value: 'False'+--+-- * Available since Gtk+ version 2.20    +--+toolPaletteChildExclusive :: ToolPaletteClass self => Attr self Bool+toolPaletteChildExclusive =+  newAttrFromBoolProperty "exclusive"++-- | Whether the item group should receive extra space when the palette grows. at a given time.+-- +-- Default value: 'False'+--+-- * Available since Gtk+ version 2.20    +--+toolPaletteChildExpand :: ToolPaletteClass self => Attr self Bool+toolPaletteChildExpand =+  newAttrFromBoolProperty "expand"++-- | Set the scroll adjustments for the viewport. Usually scrolled containers like 'ScrolledWindow' will+-- emit this signal to connect two instances of 'Scrollbar' to the scroll directions of the+-- 'Toolpalette'.+--+-- * Available since Gtk+ version 2.20    +--+toolPaletteSetScrollAdjustments :: ToolPaletteClass self => Signal self (Adjustment -> Adjustment -> IO ())+toolPaletteSetScrollAdjustments = Signal (connect_OBJECT_OBJECT__NONE "set-scroll-adjustments")+#endif

@@ -0,0 +1,93 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widget accessible+--+--  Author : Andy Stewart+--+--  Created: 23 Oct 2010+--+--  Copyright (C) 2010 Andy Stewart+--+--  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.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- A 'Object' representing an adjustable bounded value+--+module Graphics.UI.Gtk.Misc.Accessible (+-- * Detail+--+-- | Accessible accessibility support for widgets.+--  ++-- * Class Hierarchy+-- |+-- @+-- |  'GObject'+-- |   +----'AtkObject'+-- |         +----Accessible+-- @++#if GTK_CHECK_VERSION(2,22,0)+-- * Types+  Accessible,+  AccessibleClass,+  castToAccessible, gTypeAccessible,+  toAccessible,++-- * Methods+  accessibleGetWidget,+  accessibleSetWidget+#endif+) where++import Control.Monad	(liftM)++import System.Glib.FFI+import System.Glib.Attributes+import System.Glib.Properties+import Graphics.UI.Gtk.Abstract.Object	(makeNewObject)+{#import Graphics.UI.Gtk.Types#}+{#import Graphics.UI.Gtk.Signals#}++{# context lib="gtk" prefix="gtk" #}++#if GTK_CHECK_VERSION(2,22,0)+--------------------+-- Methods++-- | Gets the 'Widget' corresponding to the 'Accessible'.+--+-- * Available since Gtk+ version 2.22+--+accessibleGetWidget :: AccessibleClass self => self+                    -> IO (Maybe Widget) -- ^ returns the 'Widget' corresponding to the 'Accessible', or 'Nothing'.+accessibleGetWidget self =+  maybeNull (makeNewObject mkWidget) $+  {# call accessible_get_widget #}+    (toAccessible self)++-- | Sets the 'Widget' corresponding to the 'Accessible'.+--+-- * Available since Gtk+ version 2.22+--+accessibleSetWidget :: (AccessibleClass self, WidgetClass widget) +                      => self -- ^ @accessible@ a 'Accessible' +                      -> widget -- ^ @widget@     a 'Widget'     +                      -> IO ()+accessibleSetWidget self widget =                       +  {#call accessible_set_widget #}+     (toAccessible self)+     (toWidget widget)+#endif

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget Arrow --

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget DrawingArea --

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget HandleBox --

@@ -0,0 +1,99 @@+{-# LANGUAGE CPP, ScopedTypeVariables #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widget IMContextSimple+--+--  Author : Andy Stewart+--+--  Created: 24 Mar 2010+--+--  Copyright (C) 2010 Andy Stewart+--+--  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.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- An input method context supporting table-based input methods+--+module Graphics.UI.Gtk.Misc.IMContextSimple (++-- * Class Hierarchy+--+-- |+-- @+-- |  'GObject'+-- |   +----'IMContext'+-- |         +----IMContextSimple+-- @++-- * Types+  IMContextSimple,+  IMContextSimpleClass,+  castToIMContextSimple,+  toIMContextSimple,++-- * Constructors+  imContextSimpleNew,++-- * Methods+  imContextSimpleAddTable,+  ) where++import Control.Monad	(liftM)+import Data.Map (Map)++import System.Glib.FFI+import System.Glib.UTFString+{#import Graphics.UI.Gtk.Types#}++{# context lib="gtk" prefix="gtk" #}++import qualified Data.Map as M++--------------------+-- Constructors++-- | Creates a new 'IMContextSimple'.+--+imContextSimpleNew :: IO IMContextSimple+imContextSimpleNew =+  wrapNewGObject mkIMContextSimple $+  liftM castPtr {# call gtk_im_context_simple_new #}++--------------------+-- Methods++-- | Adds an additional table to search to the input context. Each row of the table consists of+-- @maxSeqLen@ key symbols followed by two 'Int' interpreted as the high and low words of a gunicode+-- value. Tables are searched starting from the last added.+-- +-- The table must be sorted in dictionary order on the numeric value of the key symbol fields. (Values+-- beyond the length of the sequence should be zero.)+--+imContextSimpleAddTable :: IMContextSimpleClass self => self+ -> Map String String -- ^ @data@ - the table+ -> Int          -- ^ @maxSeqLen@ - Maximum length of a sequence in the table+                 -- (cannot be greater than 'MaxComposeLen')+ -> Int          -- ^ @nSeqs@ - number of sequences in the table+ -> IO ()+imContextSimpleAddTable self table maxSeqLen nSeqs = do+  tableList <- mapM (\(x,y) -> do+                       nx <- newUTFString x+                       ny <- newUTFString y+                       return (nx, ny)) (M.toList table)+  withArray (concatMap (\(x,y) -> [x, y]) tableList) $ \(tablePtr :: Ptr CString) -> +      {# call gtk_im_context_simple_add_table #}+        (toIMContextSimple self)+        (castPtr tablePtr)+        (fromIntegral maxSeqLen)+        (fromIntegral nSeqs)

@@ -63,7 +63,7 @@ -- imMulticontextNew :: IO IMContext imMulticontextNew =-  constructNewGObject mkIMContext $+  wrapNewGObject mkIMContext $   {# call im_multicontext_new #}  --------------------

@@ -91,7 +91,7 @@  import System.Glib.FFI import System.Glib.Attributes-import System.Glib.GObject		(constructNewGObject)+import System.Glib.GObject		(wrapNewGObject) {#import Graphics.UI.Gtk.Types#}  {# context lib="gtk" prefix="gtk" #}@@ -107,7 +107,7 @@     SizeGroupMode -- ^ @mode@ - the mode for the new size group.  -> IO SizeGroup sizeGroupNew mode =-  constructNewGObject mkSizeGroup $+  wrapNewGObject mkSizeGroup $   {# call unsafe size_group_new #}     ((fromIntegral . fromEnum) mode) 

@@ -91,7 +91,12 @@   tooltipSetCustom,   tooltipTriggerTooltipQuery,   tooltipSetTipArea,+#ifdef HAVE_GIO+#if GTK_CHECK_VERSION(2,20,0)+  tooltipSetIconFromGIcon, #endif+#endif+#endif   ) where  import Control.Monad	(liftM)@@ -103,6 +108,9 @@ import Graphics.UI.Gtk.General.Structs	(IconSize(..), Rectangle) import Graphics.Rendering.Pango.Markup {#import Graphics.UI.Gtk.Types#}+#ifdef HAVE_GIO+{#import System.GIO.Types#}+#endif  {# context lib="gtk" prefix="gtk" #} @@ -217,4 +225,20 @@   {#call tooltip_set_tip_area#}     (toTooltip self)     (castPtr rectPtr)+#endif++#ifdef HAVE_GIO+#if GTK_CHECK_VERSION(2,20,0)+-- | Sets the icon of the tooltip (which is in front of the text) to be the icon indicated by gicon with+-- the size indicated by size. If gicon is 'Nothing', the image will be hidden.+tooltipSetIconFromGIcon :: TooltipClass self => self +                        -> Maybe Icon  -- ^ @gicon@   a GIcon representing the icon, or 'Nothing'. allow-none. +                        -> IconSize+                        -> IO ()+tooltipSetIconFromGIcon tooltip icon size =+  {#call gtk_tooltip_set_icon_from_gicon #}+    (toTooltip tooltip)+    (fromMaybe (Icon nullForeignPtr) icon)+    ((fromIntegral . fromEnum) size)+#endif #endif

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- -*-haskell-*- --  GIMP Toolkit (GTK) Widget Viewport --@@ -53,6 +54,7 @@ -- * Types   Viewport,   ViewportClass,+  ShadowType(..),   castToViewport, gTypeViewport,   toViewport, @@ -64,9 +66,14 @@   viewportGetVAdjustment,   viewportSetHAdjustment,   viewportSetVAdjustment,-  ShadowType(..),   viewportSetShadowType,   viewportGetShadowType,+#if GTK_CHECK_VERSION(2,20,0)+  viewportGetBinWindow,+#endif+#if GTK_CHECK_VERSION(2,22,0)+  viewportGetViewWindow,+#endif  -- * Attributes   viewportHAdjustment,@@ -153,6 +160,30 @@   liftM (toEnum . fromIntegral) $   {# call unsafe viewport_get_shadow_type #}     (toViewport self)++#if GTK_CHECK_VERSION(2,20,0)+-- | Gets the bin window of the 'Viewport'.+--+-- * Available since Gtk version 2.20+--+viewportGetBinWindow :: ViewportClass self => self -> IO DrawWindow+viewportGetBinWindow self =+    makeNewGObject mkDrawWindow $+    {#call gtk_viewport_get_bin_window #}+      (toViewport self)+#endif++#if GTK_CHECK_VERSION(2,22,0)+-- | Gets the view window of the 'Viewport'.+--+-- * Available since Gtk+ version 2.22+--+viewportGetViewWindow :: ViewportClass self => self -> IO DrawWindow+viewportGetViewWindow self =+    makeNewGObject mkDrawWindow $+    {#call gtk_viewport_get_view_window #}+      (toViewport self)+#endif  -------------------- -- Attributes

@@ -0,0 +1,146 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Interface CellEditable+--+--  Author : Andy Stewart+--+--  Created: 26 Mar 2010+--+--  Copyright (C) 2010 Andy Stewart+--+--  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.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- Interface for widgets which can are used for editing cells+--+module Graphics.UI.Gtk.ModelView.CellEditable (++-- * Detail+--+-- | The 'CellEditable' interface must be implemented for widgets to be usable+-- when editing the contents of a 'TreeView' cell.++-- * Class Hierarchy+--+-- |+-- @+-- |  'GInterface'+-- |   +----CellEditable+-- @++-- * Types+  CellEditable,+  CellEditableClass,+  castToCellEditable,+  toCellEditable,++-- * Methods+  cellEditableStartEditing,+  cellEditableEmitEditingDone,+  cellEditableEmitRemoveWidget,++-- * Attributes+#if GTK_CHECK_VERSION(2,20,0)+  cellEditableEditingCanceled,+#endif  ++-- * Signals+  cellEditableEditingDone,+  cellEditableRemoveWidget,+  ) where++import Control.Monad	(liftM)+import Control.Monad.Reader.Class (ask)+import Control.Monad.Trans (liftIO)++import System.Glib.FFI+import System.Glib.Attributes+import System.Glib.Properties+{#import Graphics.UI.Gtk.Types#}+{#import Graphics.UI.Gtk.Signals#}+import Graphics.UI.Gtk.Gdk.EventM (EventM, EKey, EAny)+import Graphics.UI.Gtk.Gdk.Events (Event, EventKey, marshalEvent)++{# context lib="gtk" prefix="gtk" #}++--------------------+-- Methods++-- | Begins editing on a @cellEditable@. @event@ is the 'Event' that began the editing process. +--+cellEditableStartEditing :: CellEditableClass self => self -> EventM EAny ()+cellEditableStartEditing self = do+  eventPtr <- ask+  liftIO $ {# call gtk_cell_editable_start_editing #}+             (toCellEditable self)+             (castPtr eventPtr)++-- | Emits the 'cellEditableEditingDone' signal.+--+cellEditableEmitEditingDone :: CellEditableClass self => self -> IO ()+cellEditableEmitEditingDone self =+  {# call gtk_cell_editable_editing_done #}+    (toCellEditable self)++-- | Emits the 'cellEditableRemoveWidget' signal.+--+cellEditableEmitRemoveWidget :: CellEditableClass self => self -> IO ()+cellEditableEmitRemoveWidget self =+  {# call gtk_cell_editable_remove_widget #}+    (toCellEditable self)++--------------------+-- Attributes+#if GTK_CHECK_VERSION(2,20,0)+-- | Indicates whether editing on the cell has been canceled.+-- +-- Default value: 'False'+-- +-- * Available since Gtk+ version 2.20+--+cellEditableEditingCanceled :: CellEditableClass self => Attr self Bool+cellEditableEditingCanceled =+  newAttrFromBoolProperty "editing-canceled"+#endif++--------------------+-- Signals++-- | This signal is a sign for the cell renderer to update its value from the+-- @cellEditable@.+--+-- Implementations of 'CellEditable' are responsible for emitting this+-- signal when they are done editing, e.g. 'Entry' is emitting it when the user+-- presses Enter.+--+-- 'cellEditableEmitEditingDone' is a convenience method for emitting+-- ::editing-done.+--+cellEditableEditingDone :: CellEditableClass self => Signal self (IO ())+cellEditableEditingDone = Signal (connect_NONE__NONE "editing_done")++-- | This signal is meant to indicate that the cell is finished editing, and+-- the widget may now be destroyed.+--+-- Implementations of 'CellEditable' are responsible for emitting this+-- signal when they are done editing. It must be emitted after the+-- 'cellEditableEditingDone' signal, to give the cell+-- renderer a chance to update the cell's value before the widget is removed.+--+-- 'cellEditableEmitRemoveWidget' is a convenience method for emitting+-- ::remove-widget.+--+cellEditableRemoveWidget :: CellEditableClass self => Signal self (IO ())+cellEditableRemoveWidget = Signal (connect_NONE__NONE "remove_widget")

@@ -18,9 +18,6 @@ --  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU --  Lesser General Public License for more details. ----- TODO: the following varargs functions were not bound---   gtk_cell_layout_set_attributes--- -- | -- Maintainer  : gtk2hs-users@lists.sourceforge.net -- Stability   : provisional

@@ -0,0 +1,170 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widget CellRendererAccel+--+--  Author : Andy Stewart+--+--  Created: 25 Mar 2010+--+--  Copyright (C) 2010 Andy Stewart+--+--  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.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- Renders a keyboard accelerator in a cell+--+-- * Module available since Gtk+ version 2.10+--+module Graphics.UI.Gtk.ModelView.CellRendererAccel (++-- * Detail+--+-- | 'CellRendererAccel' displays a keyboard accelerator (i.e. a key+-- combination like \<Control>-a). If the cell renderer is editable, the+-- accelerator can be changed by simply typing the new combination.+--+-- The 'CellRendererAccel' cell renderer was added in Gtk+ 2.10.++-- * Class Hierarchy+--+-- |+-- @+-- |  'GObject'+-- |   +----'Object'+-- |         +----'CellRenderer'+-- |               +----'CellRendererText'+-- |                     +----CellRendererAccel+-- @++#if GTK_CHECK_VERSION(2,10,0)+-- * Types+  CellRendererAccel,+  CellRendererAccelClass,+  castToCellRendererAccel,+  toCellRendererAccel,++-- * Enums+  CellRendererAccelMode(..),++-- * Constructors+  cellRendererAccelNew,++-- * Attributes+  cellRendererAccelAccelKey,+  cellRendererAccelAccelMods,+  cellRendererAccelKeycode,+  cellRendererAccelAccelMode,++-- * Signals+  accelEdited,+  accelCleared,+#endif+  ) where++import Control.Monad	(liftM)++import System.Glib.FFI+import System.Glib.Attributes+import System.Glib.Properties+import Graphics.UI.Gtk.Gdk.Enums (Modifier)+import Graphics.UI.Gtk.Abstract.Object   (makeNewObject)+import Graphics.UI.Gtk.Gdk.Keys (KeyVal, KeyCode)+{#import Graphics.UI.Gtk.Signals#}+{#import Graphics.UI.Gtk.Types#}++{# context lib="gtk" prefix="gtk" #}++#if GTK_CHECK_VERSION(2,10,0)+--------------------+-- Enums+{#enum CellRendererAccelMode {underscoreToCase} deriving (Bounded,Eq,Show)#}++--------------------+-- Constructors++-- | Creates a new 'CellRendererAccel'.+--+-- * Available since Gtk+ version 2.10+--+cellRendererAccelNew :: IO CellRendererAccel+cellRendererAccelNew =+  makeNewObject mkCellRendererAccel $ liftM castPtr $+  {# call gtk_cell_renderer_accel_new #}++--------------------+-- Attributes++-- | The keyval of the accelerator.+-- +-- Allowed values: <= GMaxint+-- +-- Default value: 0+--+-- * Available since Gtk+ version 2.10+--+cellRendererAccelAccelKey :: CellRendererAccelClass self => Attr self Int+cellRendererAccelAccelKey = newAttrFromUIntProperty "accel-key"++-- | The modifier mask of the accelerator.+--+-- * Available since Gtk+ version 2.10+--+cellRendererAccelAccelMods :: CellRendererAccelClass self => Attr self [Modifier]+cellRendererAccelAccelMods = newAttrFromFlagsProperty "accel-mods"+                               {# call pure unsafe gdk_modifier_type_get_type #}++-- | The hardware keycode of the accelerator. Note that the hardware keycode is only relevant if the key+-- does not have a keyval.  Normally, the keyboard configuration should assign keyvals to all keys.+-- +-- Allowed values: <= GMaxint+-- +-- Default value: 0+--+-- * Available since Gtk+ version 2.10+--+cellRendererAccelKeycode :: CellRendererAccelClass self => Attr self Int+cellRendererAccelKeycode = newAttrFromUIntProperty "keycode"++-- | Determines if the edited accelerators are GTK+ accelerators. If they are, consumed modifiers are+-- suppressed, only accelerators accepted by GTK+ are allowed, and the accelerators are rendered in the+-- same way as they are in menus.+-- +-- Default value: 'CellRendererAccelModeGtk'+--+-- * Available since Gtk+ version 2.10+--+cellRendererAccelAccelMode :: CellRendererAccelClass self => Attr self CellRendererAccelMode+cellRendererAccelAccelMode = newAttrFromEnumProperty "accel-mode"+                               {# call pure unsafe gtk_cell_renderer_accel_mode_get_type #}++--------------------+-- Signals++-- | Gets emitted when the user has selected a new accelerator.+--+-- * Available since Gtk+ version 2.10+--+accelEdited :: CellRendererAccelClass self => Signal self (String -> KeyVal -> Modifier -> KeyCode -> IO ())+accelEdited = Signal (\after obj user -> connect_STRING_INT_ENUM_INT__NONE "accel_edited" after obj+                      (\ path keyval modifier keycode -> +                        user path (fromIntegral keyval) modifier (fromIntegral keycode)))++-- | Gets emitted when the user has removed the accelerator.+--+-- * Available since Gtk+ version 2.10+--+accelCleared :: CellRendererAccelClass self => Signal self (String -> IO ())+accelCleared = Signal (connect_STRING__NONE "accel_cleared")+#endif

@@ -0,0 +1,131 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widget CellRendererSpin+--+--  Author : Andy Stewart+--+--  Created: 25 Mar 2010+--+--  Copyright (C) 2010 Andy Stewart+--+--  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.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- Renders a spin button in a cell+--+-- * Module available since Gtk+ version 2.10+--+module Graphics.UI.Gtk.ModelView.CellRendererSpin (++-- * Detail+--+-- | 'CellRendererSpin' renders text in a cell like 'CellRendererText' from+-- which it is derived. But while 'CellRendererText' offers a simple entry to+-- edit the text, 'CellRendererSpin' offers a 'SpinButton' widget. Of course,+-- that means that the text has to be parseable as a floating point number.+--+-- The range of the spinbutton is taken from the adjustment property of the+-- cell renderer, which can be set explicitly or mapped to a column in the tree+-- model, like all properties of cell renders. 'CellRendererSpin' also has+-- properties for the climb rate and the number of digits to display. Other+-- 'SpinButton' properties can be set in a handler for the start-editing+-- signal.+--+-- The 'CellRendererSpin' cell renderer was added in Gtk+ 2.10.++-- * Class Hierarchy+--+-- |+-- @+-- |  'GObject'+-- |   +----'Object'+-- |         +----'CellRenderer'+-- |               +----'CellRendererText'+-- |                     +----CellRendererSpin+-- @++#if GTK_CHECK_VERSION(2,10,0)+-- * Types+  CellRendererSpin,+  CellRendererSpinClass,+  castToCellRendererSpin,+  toCellRendererSpin,++-- * Constructors+  cellRendererSpinNew,++-- * Attributes+  cellRendererSpinAdjustment,+  cellRendererSpinClimbRate,+  cellRendererSpinDigits,+#endif+  ) where++import Control.Monad	(liftM)++import System.Glib.FFI+import System.Glib.Attributes+import System.Glib.Properties+import Graphics.UI.Gtk.Abstract.Object   (makeNewObject)+{#import Graphics.UI.Gtk.Types#}++{# context lib="gtk" prefix="gtk" #}++#if GTK_CHECK_VERSION(2,10,0)+--------------------+-- Constructors++-- | Creates a new 'CellRendererSpin'.+--+-- * Available since Gtk+ version 2.10+--+cellRendererSpinNew :: IO CellRendererSpin+cellRendererSpinNew =+  makeNewObject mkCellRendererSpin $ liftM castPtr+  {# call gtk_cell_renderer_spin_new #}++--------------------+-- Attributes++-- | The adjustment that holds the value of the spinbutton. +--+-- * Available since Gtk+ version 2.10+--+cellRendererSpinAdjustment :: CellRendererSpinClass self => Attr self Adjustment+cellRendererSpinAdjustment = newAttrFromObjectProperty "adjustment"+                               {# call pure unsafe gtk_adjustment_get_type #}++-- | The acceleration rate when you hold down a button.+-- +-- Allowed values: >= 0+-- +-- Default value: 0+--+-- * Available since Gtk+ version 2.10+--+cellRendererSpinClimbRate :: CellRendererSpinClass self => Attr self Double+cellRendererSpinClimbRate = newAttrFromDoubleProperty "climb-rate"++-- | The number of decimal places to display.+-- +-- Allowed values: <= 20+-- +-- Default value: 0+--+-- * Available since Gtk+ version 2.10+--+cellRendererSpinDigits :: CellRendererSpinClass self => Attr self Int+cellRendererSpinDigits = newAttrFromUIntProperty "digits"+#endif

@@ -0,0 +1,123 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widget CellRendererSpinner+--+--  Author : Andy Stewart+--+--  Created: 25 Mar 2010+--+--  Copyright (C) 2010 Andy Stewart+--+--  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.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- Renders a spinning animation in a cell                                                             +--+-- * Module available since Gtk+ version 2.20+--+module Graphics.UI.Gtk.ModelView.CellRendererSpinner (+-- * Detail+-- | 'CellRendererSpinner' renders a spinning animation in a cell, very similar to 'Spinner'. It can+-- often be used as an alternative to a 'CellRendererProgress' for displaying indefinite activity,+-- instead of actual progress.+-- +-- To start the animation in a cell, set the "active" property to 'True' and increment the "pulse"+-- property at regular intervals.  The usual way to set the cell renderer properties for each cell is+-- to bind them to columns in your tree model using e.g.  'treeViewColumnAddAttribute'.++-- * Class Hierarchy+--+-- |+-- @+-- |  'GObject'+-- |   +----'Object'+-- |         +----'CellRenderer'+-- |               +----'CellRendererSpinner'+-- @+  +#if GTK_CHECK_VERSION(2,20,0)+-- * Types  +  CellRendererSpinner,+  CellRendererSpinnerClass,+  castToCellRendererSpinner,+  toCellRendererSpinner,++-- * Constructors+  cellRendererSpinnerNew,++-- * Attributes+  cellRendererSpinnerActive,+  cellRendererSpinnerPulse,+  cellRendererSpinnerSize,+#endif+) where++import Control.Monad	(liftM)++import System.Glib.FFI+import System.Glib.Attributes+import System.Glib.Properties+import Graphics.UI.Gtk.Abstract.Object   (makeNewObject)+import Graphics.UI.Gtk.General.Structs	(IconSize(..))+{#import Graphics.UI.Gtk.Types#}++{# context lib="gtk" prefix="gtk" #}++#if GTK_CHECK_VERSION(2,20,0)+-- | Returns a new cell renderer which will show a spinner to indicate activity.+--+-- * Available since Gtk+ version 2.20+--+cellRendererSpinnerNew :: IO CellRendererSpinner+cellRendererSpinnerNew =+  makeNewObject mkCellRendererSpinner $ liftM castPtr $+  {#call gtk_cell_renderer_spinner_new #}++-- | Whether the spinner is active (ie. shown) in the cell.+-- +-- Default value: 'False'+--+-- * Available since Gtk+ version 2.20+--+cellRendererSpinnerActive :: CellRendererSpinnerClass self => Attr self Bool+cellRendererSpinnerActive =+    newAttrFromBoolProperty "active"++-- | Pulse of the spinner. Increment this value to draw the next frame of the spinner animation. Usually,+-- you would update this value in a timeout.+-- +-- The 'Spinner' widget draws one full cycle of the animation per second by default. You can learn+-- about the number of frames used by the theme by looking at the 'numSteps' style property and the+-- duration of the cycle by looking at 'cycleDuration'.+-- +-- Default value: 0+--+-- * Available since Gtk+ version 2.20+--+cellRendererSpinnerPulse :: CellRendererSpinnerClass self => Attr self Int+cellRendererSpinnerPulse =+    newAttrFromIntProperty "pulse"++-- | The 'IconSize' value that specifies the size of the rendered spinner.+-- +-- Default value: 'IconSizeMenu'+--+-- * Available since Gtk+ version 2.20+--+cellRendererSpinnerSize :: CellRendererSpinnerClass self => Attr self IconSize+cellRendererSpinnerSize =+    newAttrFromEnumProperty "size"+        {# call pure unsafe gtk_icon_size_get_type #}+#endif