gi-gtk 0.3.18.13 → 0.3.18.14
raw patch · 654 files changed
+35933/−24707 lines, 654 filesdep ~gi-atkdep ~gi-cairodep ~gi-gdkPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: gi-atk, gi-cairo, gi-gdk, gi-gdkpixbuf, gi-gio, gi-glib, gi-gobject, gi-pango, haskell-gi-base
API changes (from Hackage documentation)
This diff is very large; some files are shown as “too large to diff”. Download the raw patch for the complete diff.
Files
- GI/Gtk.hs +1/−1
- GI/Gtk/Callbacks.hs +1/−1
- GI/Gtk/Constants.hs +1/−1
- GI/Gtk/Enums.hs +1/−1
- GI/Gtk/Flags.hs +45/−45
- GI/Gtk/Functions.hs +404/−401
- GI/Gtk/Interfaces.hs +1/−1
- GI/Gtk/Interfaces/Actionable.hs +30/−14
- GI/Gtk/Interfaces/Actionable.hs-boot +1/−1
- GI/Gtk/Interfaces/Activatable.hs +22/−10
- GI/Gtk/Interfaces/Activatable.hs-boot +1/−1
- GI/Gtk/Interfaces/AppChooser.hs +14/−8
- GI/Gtk/Interfaces/AppChooser.hs-boot +1/−1
- GI/Gtk/Interfaces/Buildable.hs +17/−17
- GI/Gtk/Interfaces/Buildable.hs-boot +1/−1
- GI/Gtk/Interfaces/CellAccessibleParent.hs +15/−15
- GI/Gtk/Interfaces/CellAccessibleParent.hs-boot +1/−1
- GI/Gtk/Interfaces/CellEditable.hs +10/−4
- GI/Gtk/Interfaces/CellEditable.hs-boot +1/−1
- GI/Gtk/Interfaces/CellLayout.hs +22/−22
- GI/Gtk/Interfaces/CellLayout.hs-boot +1/−1
- GI/Gtk/Interfaces/ColorChooser.hs +26/−14
- GI/Gtk/Interfaces/ColorChooser.hs-boot +1/−1
- GI/Gtk/Interfaces/Editable.hs +31/−31
- GI/Gtk/Interfaces/Editable.hs-boot +1/−1
- GI/Gtk/Interfaces/FileChooser.hs +135/−75
- GI/Gtk/Interfaces/FileChooser.hs-boot +1/−1
- GI/Gtk/Interfaces/FontChooser.hs +53/−29
- GI/Gtk/Interfaces/FontChooser.hs-boot +1/−1
- GI/Gtk/Interfaces/Orientable.hs +9/−3
- GI/Gtk/Interfaces/Orientable.hs-boot +1/−1
- GI/Gtk/Interfaces/PrintOperationPreview.hs +8/−8
- GI/Gtk/Interfaces/PrintOperationPreview.hs-boot +1/−1
- GI/Gtk/Interfaces/RecentChooser.hs +110/−48
- GI/Gtk/Interfaces/RecentChooser.hs-boot +1/−1
- GI/Gtk/Interfaces/Scrollable.hs +50/−18
- GI/Gtk/Interfaces/Scrollable.hs-boot +1/−1
- GI/Gtk/Interfaces/StyleProvider.hs +4/−4
- GI/Gtk/Interfaces/StyleProvider.hs-boot +1/−1
- GI/Gtk/Interfaces/ToolShell.hs +10/−10
- GI/Gtk/Interfaces/ToolShell.hs-boot +1/−1
- GI/Gtk/Interfaces/TreeDragDest.hs +3/−3
- GI/Gtk/Interfaces/TreeDragDest.hs-boot +1/−1
- GI/Gtk/Interfaces/TreeDragSource.hs +4/−4
- GI/Gtk/Interfaces/TreeDragSource.hs-boot +1/−1
- GI/Gtk/Interfaces/TreeModel.hs +42/−42
- GI/Gtk/Interfaces/TreeModel.hs-boot +1/−1
- GI/Gtk/Interfaces/TreeSortable.hs +16/−16
- GI/Gtk/Interfaces/TreeSortable.hs-boot +1/−1
- GI/Gtk/Objects.hs +1/−1
- GI/Gtk/Objects/AboutDialog.hs +202/−80
- GI/Gtk/Objects/AboutDialog.hs-boot +1/−1
- GI/Gtk/Objects/AccelGroup.hs +38/−26
- GI/Gtk/Objects/AccelGroup.hs-boot +1/−1
- GI/Gtk/Objects/AccelLabel.hs +36/−24
- GI/Gtk/Objects/AccelLabel.hs-boot +1/−1
- GI/Gtk/Objects/AccelMap.hs +29/−33
- GI/Gtk/Objects/AccelMap.hs-boot +1/−1
- GI/Gtk/Objects/Accessible.hs +18/−8
- GI/Gtk/Objects/Accessible.hs-boot +1/−1
- GI/Gtk/Objects/Action.hs +171/−72
- GI/Gtk/Objects/Action.hs-boot +1/−1
- GI/Gtk/Objects/ActionBar.hs +6/−6
- GI/Gtk/Objects/ActionBar.hs-boot +1/−1
- GI/Gtk/Objects/ActionGroup.hs +54/−27
- GI/Gtk/Objects/ActionGroup.hs-boot +1/−1
- GI/Gtk/Objects/Adjustment.hs +55/−19
- GI/Gtk/Objects/Adjustment.hs-boot +1/−1
- GI/Gtk/Objects/Alignment.hs +79/−31
- GI/Gtk/Objects/Alignment.hs-boot +1/−1
- GI/Gtk/Objects/AppChooserButton.hs +32/−14
- GI/Gtk/Objects/AppChooserButton.hs-boot +1/−1
- GI/Gtk/Objects/AppChooserDialog.hs +25/−13
- GI/Gtk/Objects/AppChooserDialog.hs-boot +1/−1
- GI/Gtk/Objects/AppChooserWidget.hs +53/−17
- GI/Gtk/Objects/AppChooserWidget.hs-boot +1/−1
- GI/Gtk/Objects/Application.hs +68/−37
- GI/Gtk/Objects/Application.hs-boot +1/−1
- GI/Gtk/Objects/ApplicationWindow.hs +11/−5
- GI/Gtk/Objects/ApplicationWindow.hs-boot +1/−1
- GI/Gtk/Objects/Arrow.hs +15/−3
- GI/Gtk/Objects/Arrow.hs-boot +1/−1
- GI/Gtk/Objects/ArrowAccessible.hs +1/−1
- GI/Gtk/Objects/ArrowAccessible.hs-boot +1/−1
- GI/Gtk/Objects/AspectFrame.hs +27/−3
- GI/Gtk/Objects/AspectFrame.hs-boot +1/−1
- GI/Gtk/Objects/Assistant.hs +48/−42
- GI/Gtk/Objects/Assistant.hs-boot +1/−1
- GI/Gtk/Objects/Bin.hs +2/−2
- GI/Gtk/Objects/Bin.hs-boot +1/−1
- GI/Gtk/Objects/BooleanCellAccessible.hs +1/−1
- GI/Gtk/Objects/BooleanCellAccessible.hs-boot +1/−1
- GI/Gtk/Objects/Box.hs +51/−33
- GI/Gtk/Objects/Box.hs-boot +1/−1
- GI/Gtk/Objects/Builder.hs +42/−33
- GI/Gtk/Objects/Builder.hs-boot +1/−1
- GI/Gtk/Objects/Button.hs +98/−38
- GI/Gtk/Objects/Button.hs-boot +1/−1
- GI/Gtk/Objects/ButtonAccessible.hs +1/−1
- GI/Gtk/Objects/ButtonAccessible.hs-boot +1/−1
- GI/Gtk/Objects/ButtonBox.hs +14/−8
- GI/Gtk/Objects/ButtonBox.hs-boot +1/−1
- GI/Gtk/Objects/Calendar.hs +117/−57
- GI/Gtk/Objects/Calendar.hs-boot +1/−1
- GI/Gtk/Objects/CellAccessible.hs +1/−1
- GI/Gtk/Objects/CellAccessible.hs-boot +1/−1
- GI/Gtk/Objects/CellArea.hs +92/−75
- GI/Gtk/Objects/CellArea.hs-boot +1/−1
- GI/Gtk/Objects/CellAreaBox.hs +18/−12
- GI/Gtk/Objects/CellAreaBox.hs-boot +1/−1
- GI/Gtk/Objects/CellAreaContext.hs +78/−48
- GI/Gtk/Objects/CellAreaContext.hs-boot +1/−1
- GI/Gtk/Objects/CellRenderer.hs +193/−85
- GI/Gtk/Objects/CellRenderer.hs-boot +1/−1
- GI/Gtk/Objects/CellRendererAccel.hs +34/−10
- GI/Gtk/Objects/CellRendererAccel.hs-boot +1/−1
- GI/Gtk/Objects/CellRendererCombo.hs +33/−11
- GI/Gtk/Objects/CellRendererCombo.hs-boot +1/−1
- GI/Gtk/Objects/CellRendererPixbuf.hs +138/−46
- GI/Gtk/Objects/CellRendererPixbuf.hs-boot +1/−1
- GI/Gtk/Objects/CellRendererProgress.hs +55/−15
- GI/Gtk/Objects/CellRendererProgress.hs-boot +1/−1
- GI/Gtk/Objects/CellRendererSpin.hs +33/−11
- GI/Gtk/Objects/CellRendererSpin.hs-boot +1/−1
- GI/Gtk/Objects/CellRendererSpinner.hs +24/−6
- GI/Gtk/Objects/CellRendererSpinner.hs-boot +1/−1
- GI/Gtk/Objects/CellRendererText.hs +437/−93
- GI/Gtk/Objects/CellRendererText.hs-boot +1/−1
- GI/Gtk/Objects/CellRendererToggle.hs +42/−12
- GI/Gtk/Objects/CellRendererToggle.hs-boot +1/−1
- GI/Gtk/Objects/CellView.hs +107/−41
- GI/Gtk/Objects/CellView.hs-boot +1/−1
- GI/Gtk/Objects/CheckButton.hs +4/−4
- GI/Gtk/Objects/CheckButton.hs-boot +1/−1
- GI/Gtk/Objects/CheckMenuItem.hs +29/−11
- GI/Gtk/Objects/CheckMenuItem.hs-boot +1/−1
- GI/Gtk/Objects/CheckMenuItemAccessible.hs +1/−1
- GI/Gtk/Objects/CheckMenuItemAccessible.hs-boot +1/−1
- GI/Gtk/Objects/Clipboard.hs +82/−77
- GI/Gtk/Objects/Clipboard.hs-boot +1/−1
- GI/Gtk/Objects/ColorButton.hs +62/−28
- GI/Gtk/Objects/ColorButton.hs-boot +1/−1
- GI/Gtk/Objects/ColorChooserDialog.hs +8/−2
- GI/Gtk/Objects/ColorChooserDialog.hs-boot +1/−1
- GI/Gtk/Objects/ColorChooserWidget.hs +8/−2
- GI/Gtk/Objects/ColorChooserWidget.hs-boot +1/−1
- GI/Gtk/Objects/ColorSelection.hs +69/−39
- GI/Gtk/Objects/ColorSelection.hs-boot +1/−1
- GI/Gtk/Objects/ColorSelectionDialog.hs +38/−14
- GI/Gtk/Objects/ColorSelectionDialog.hs-boot +1/−1
- GI/Gtk/Objects/ComboBox.hs +220/−105
- GI/Gtk/Objects/ComboBox.hs-boot +1/−1
- GI/Gtk/Objects/ComboBoxAccessible.hs +1/−1
- GI/Gtk/Objects/ComboBoxAccessible.hs-boot +1/−1
- GI/Gtk/Objects/ComboBoxText.hs +18/−18
- GI/Gtk/Objects/ComboBoxText.hs-boot +1/−1
- GI/Gtk/Objects/Container.hs +64/−43
- GI/Gtk/Objects/Container.hs-boot +1/−1
- GI/Gtk/Objects/ContainerAccessible.hs +1/−1
- GI/Gtk/Objects/ContainerAccessible.hs-boot +1/−1
- GI/Gtk/Objects/ContainerCellAccessible.hs +5/−6
- GI/Gtk/Objects/ContainerCellAccessible.hs-boot +1/−1
- GI/Gtk/Objects/CssProvider.hs +9/−9
- GI/Gtk/Objects/CssProvider.hs-boot +1/−1
- GI/Gtk/Objects/Dialog.hs +39/−33
- GI/Gtk/Objects/Dialog.hs-boot +1/−1
- GI/Gtk/Objects/DrawingArea.hs +2/−2
- GI/Gtk/Objects/DrawingArea.hs-boot +1/−1
- GI/Gtk/Objects/Entry.hs +623/−256
- GI/Gtk/Objects/Entry.hs-boot +1/−1
- GI/Gtk/Objects/EntryAccessible.hs +1/−1
- GI/Gtk/Objects/EntryAccessible.hs-boot +1/−1
- GI/Gtk/Objects/EntryBuffer.hs +62/−40
- GI/Gtk/Objects/EntryBuffer.hs-boot +1/−1
- GI/Gtk/Objects/EntryCompletion.hs +123/−65
- GI/Gtk/Objects/EntryCompletion.hs-boot +1/−1
- GI/Gtk/Objects/EntryIconAccessible.hs +1/−1
- GI/Gtk/Objects/EntryIconAccessible.hs-boot +1/−1
- GI/Gtk/Objects/EventBox.hs +18/−6
- GI/Gtk/Objects/EventBox.hs-boot +1/−1
- GI/Gtk/Objects/EventController.hs +21/−9
- GI/Gtk/Objects/EventController.hs-boot +1/−1
- GI/Gtk/Objects/Expander.hs +89/−33
- GI/Gtk/Objects/Expander.hs-boot +1/−1
- GI/Gtk/Objects/ExpanderAccessible.hs +1/−1
- GI/Gtk/Objects/ExpanderAccessible.hs-boot +1/−1
- GI/Gtk/Objects/FileChooserButton.hs +44/−20
- GI/Gtk/Objects/FileChooserButton.hs-boot +1/−1
- GI/Gtk/Objects/FileChooserDialog.hs +1/−1
- GI/Gtk/Objects/FileChooserDialog.hs-boot +1/−1
- GI/Gtk/Objects/FileChooserWidget.hs +17/−5
- GI/Gtk/Objects/FileChooserWidget.hs-boot +1/−1
- GI/Gtk/Objects/FileFilter.hs +12/−12
- GI/Gtk/Objects/FileFilter.hs-boot +1/−1
- GI/Gtk/Objects/Fixed.hs +10/−10
- GI/Gtk/Objects/Fixed.hs-boot +1/−1
- GI/Gtk/Objects/FlowBox.hs +112/−70
- GI/Gtk/Objects/FlowBox.hs-boot +1/−1
- GI/Gtk/Objects/FlowBoxAccessible.hs +1/−1
- GI/Gtk/Objects/FlowBoxAccessible.hs-boot +1/−1
- GI/Gtk/Objects/FlowBoxChild.hs +5/−5
- GI/Gtk/Objects/FlowBoxChild.hs-boot +1/−1
- GI/Gtk/Objects/FlowBoxChildAccessible.hs +1/−1
- GI/Gtk/Objects/FlowBoxChildAccessible.hs-boot +1/−1
- GI/Gtk/Objects/FontButton.hs +62/−22
- GI/Gtk/Objects/FontButton.hs-boot +1/−1
- GI/Gtk/Objects/FontChooserDialog.hs +2/−2
- GI/Gtk/Objects/FontChooserDialog.hs-boot +1/−1
- GI/Gtk/Objects/FontChooserWidget.hs +2/−2
- GI/Gtk/Objects/FontChooserWidget.hs-boot +1/−1
- GI/Gtk/Objects/FontSelection.hs +38/−22
- GI/Gtk/Objects/FontSelection.hs-boot +1/−1
- GI/Gtk/Objects/FontSelectionDialog.hs +9/−9
- GI/Gtk/Objects/FontSelectionDialog.hs-boot +1/−1
- GI/Gtk/Objects/Frame.hs +63/−24
- GI/Gtk/Objects/Frame.hs-boot +1/−1
- GI/Gtk/Objects/FrameAccessible.hs +1/−1
- GI/Gtk/Objects/FrameAccessible.hs-boot +1/−1
- GI/Gtk/Objects/GLArea.hs +56/−26
- GI/Gtk/Objects/GLArea.hs-boot +1/−1
- GI/Gtk/Objects/Gesture.hs +55/−39
- GI/Gtk/Objects/Gesture.hs-boot +1/−1
- GI/Gtk/Objects/GestureDrag.hs +82/−15
- GI/Gtk/Objects/GestureDrag.hs-boot +1/−1
- GI/Gtk/Objects/GestureLongPress.hs +8/−2
- GI/Gtk/Objects/GestureLongPress.hs-boot +1/−1
- GI/Gtk/Objects/GestureMultiPress.hs +4/−4
- GI/Gtk/Objects/GestureMultiPress.hs-boot +1/−1
- GI/Gtk/Objects/GesturePan.hs +10/−4
- GI/Gtk/Objects/GesturePan.hs-boot +1/−1
- GI/Gtk/Objects/GestureRotate.hs +3/−3
- GI/Gtk/Objects/GestureRotate.hs-boot +1/−1
- GI/Gtk/Objects/GestureSingle.hs +39/−20
- GI/Gtk/Objects/GestureSingle.hs-boot +1/−1
- GI/Gtk/Objects/GestureSwipe.hs +3/−3
- GI/Gtk/Objects/GestureSwipe.hs-boot +1/−1
- GI/Gtk/Objects/GestureZoom.hs +3/−3
- GI/Gtk/Objects/GestureZoom.hs-boot +1/−1
- GI/Gtk/Objects/Grid.hs +99/−68
- GI/Gtk/Objects/Grid.hs-boot +1/−1
- GI/Gtk/Objects/HBox.hs +4/−4
- GI/Gtk/Objects/HBox.hs-boot +1/−1
- GI/Gtk/Objects/HButtonBox.hs +2/−2
- GI/Gtk/Objects/HButtonBox.hs-boot +1/−1
- GI/Gtk/Objects/HPaned.hs +2/−2
- GI/Gtk/Objects/HPaned.hs-boot +1/−1
- GI/Gtk/Objects/HSV.hs +14/−14
- GI/Gtk/Objects/HSV.hs-boot +1/−1
- GI/Gtk/Objects/HScale.hs +3/−3
- GI/Gtk/Objects/HScale.hs-boot +1/−1
- GI/Gtk/Objects/HScrollbar.hs +2/−2
- GI/Gtk/Objects/HScrollbar.hs-boot +1/−1
- GI/Gtk/Objects/HSeparator.hs +2/−2
- GI/Gtk/Objects/HSeparator.hs-boot +1/−1
- GI/Gtk/Objects/HandleBox.hs +39/−9
- GI/Gtk/Objects/HandleBox.hs-boot +1/−1
- GI/Gtk/Objects/HeaderBar.hs +100/−36
- GI/Gtk/Objects/HeaderBar.hs-boot +1/−1
- GI/Gtk/Objects/IMContext.hs +34/−22
- GI/Gtk/Objects/IMContext.hs-boot +1/−1
- GI/Gtk/Objects/IMContextSimple.hs +2/−2
- GI/Gtk/Objects/IMContextSimple.hs-boot +1/−1
- GI/Gtk/Objects/IMMulticontext.hs +5/−5
- GI/Gtk/Objects/IMMulticontext.hs-boot +1/−1
- GI/Gtk/Objects/IconFactory.hs +7/−7
- GI/Gtk/Objects/IconFactory.hs-boot +1/−1
- GI/Gtk/Objects/IconInfo.hs +31/−31
- GI/Gtk/Objects/IconInfo.hs-boot +1/−1
- GI/Gtk/Objects/IconTheme.hs +119/−111
- GI/Gtk/Objects/IconTheme.hs-boot +1/−1
- GI/Gtk/Objects/IconView.hs +270/−165
- GI/Gtk/Objects/IconView.hs-boot +1/−1
- GI/Gtk/Objects/IconViewAccessible.hs +1/−1
- GI/Gtk/Objects/IconViewAccessible.hs-boot +1/−1
- GI/Gtk/Objects/Image.hs +222/−108
- GI/Gtk/Objects/Image.hs-boot +1/−1
- GI/Gtk/Objects/ImageAccessible.hs +1/−1
- GI/Gtk/Objects/ImageAccessible.hs-boot +1/−1
- GI/Gtk/Objects/ImageCellAccessible.hs +1/−1
- GI/Gtk/Objects/ImageCellAccessible.hs-boot +1/−1
- GI/Gtk/Objects/ImageMenuItem.hs +46/−18
- GI/Gtk/Objects/ImageMenuItem.hs-boot +1/−1
- GI/Gtk/Objects/InfoBar.hs +35/−23
- GI/Gtk/Objects/InfoBar.hs-boot +1/−1
- GI/Gtk/Objects/Invisible.hs +14/−8
- GI/Gtk/Objects/Invisible.hs-boot +1/−1
- GI/Gtk/Objects/Label.hs +241/−101
- GI/Gtk/Objects/Label.hs-boot +1/−1
- GI/Gtk/Objects/LabelAccessible.hs +1/−1
- GI/Gtk/Objects/LabelAccessible.hs-boot +1/−1
- GI/Gtk/Objects/Layout.hs +43/−31
- GI/Gtk/Objects/Layout.hs-boot +1/−1
- GI/Gtk/Objects/LevelBar.hs +46/−16
- GI/Gtk/Objects/LevelBar.hs-boot +1/−1
- GI/Gtk/Objects/LevelBarAccessible.hs +1/−1
- GI/Gtk/Objects/LevelBarAccessible.hs-boot +1/−1
- GI/Gtk/Objects/LinkButton.hs +22/−10
- GI/Gtk/Objects/LinkButton.hs-boot +1/−1
- GI/Gtk/Objects/LinkButtonAccessible.hs +1/−1
- GI/Gtk/Objects/LinkButtonAccessible.hs-boot +1/−1
- GI/Gtk/Objects/ListBox.hs +72/−59
- GI/Gtk/Objects/ListBox.hs-boot +1/−1
- GI/Gtk/Objects/ListBoxAccessible.hs +1/−1
- GI/Gtk/Objects/ListBoxAccessible.hs-boot +1/−1
- GI/Gtk/Objects/ListBoxRow.hs +29/−16
- GI/Gtk/Objects/ListBoxRow.hs-boot +1/−1
- GI/Gtk/Objects/ListBoxRowAccessible.hs +1/−1
- GI/Gtk/Objects/ListBoxRowAccessible.hs-boot +1/−1
- GI/Gtk/Objects/ListStore.hs +39/−39
- GI/Gtk/Objects/ListStore.hs-boot +1/−1
- GI/Gtk/Objects/LockButton.hs +93/−33
- GI/Gtk/Objects/LockButton.hs-boot +1/−1
- GI/Gtk/Objects/LockButtonAccessible.hs +1/−1
- GI/Gtk/Objects/LockButtonAccessible.hs-boot +1/−1
- GI/Gtk/Objects/Menu.hs +134/−71
- GI/Gtk/Objects/Menu.hs-boot +1/−1
- GI/Gtk/Objects/MenuAccessible.hs +1/−1
- GI/Gtk/Objects/MenuAccessible.hs-boot +1/−1
- GI/Gtk/Objects/MenuBar.hs +19/−7
- GI/Gtk/Objects/MenuBar.hs-boot +1/−1
- GI/Gtk/Objects/MenuButton.hs +83/−31
- GI/Gtk/Objects/MenuButton.hs-boot +1/−1
- GI/Gtk/Objects/MenuButtonAccessible.hs +1/−1
- GI/Gtk/Objects/MenuButtonAccessible.hs-boot +1/−1
- GI/Gtk/Objects/MenuItem.hs +75/−37
- GI/Gtk/Objects/MenuItem.hs-boot +1/−1
- GI/Gtk/Objects/MenuItemAccessible.hs +1/−1
- GI/Gtk/Objects/MenuItemAccessible.hs-boot +1/−1
- GI/Gtk/Objects/MenuShell.hs +23/−17
- GI/Gtk/Objects/MenuShell.hs-boot +1/−1
- GI/Gtk/Objects/MenuShellAccessible.hs +1/−1
- GI/Gtk/Objects/MenuShellAccessible.hs-boot +1/−1
- GI/Gtk/Objects/MenuToolButton.hs +22/−12
- GI/Gtk/Objects/MenuToolButton.hs-boot +1/−1
- GI/Gtk/Objects/MessageDialog.hs +76/−20
- GI/Gtk/Objects/MessageDialog.hs-boot +1/−1
- GI/Gtk/Objects/Misc.hs +43/−19
- GI/Gtk/Objects/Misc.hs-boot +1/−1
- GI/Gtk/Objects/ModelButton.hs +77/−17
- GI/Gtk/Objects/ModelButton.hs-boot +1/−1
- GI/Gtk/Objects/MountOperation.hs +32/−14
- GI/Gtk/Objects/MountOperation.hs-boot +1/−1
- GI/Gtk/Objects/Notebook.hs +112/−66
- GI/Gtk/Objects/Notebook.hs-boot +1/−1
- GI/Gtk/Objects/NotebookAccessible.hs +1/−1
- GI/Gtk/Objects/NotebookAccessible.hs-boot +1/−1
- GI/Gtk/Objects/NotebookPageAccessible.hs +3/−3
- GI/Gtk/Objects/NotebookPageAccessible.hs-boot +1/−1
- GI/Gtk/Objects/NumerableIcon.hs +77/−35
- GI/Gtk/Objects/NumerableIcon.hs-boot +1/−1
- GI/Gtk/Objects/OffscreenWindow.hs +4/−4
- GI/Gtk/Objects/OffscreenWindow.hs-boot +1/−1
- GI/Gtk/Objects/Overlay.hs +8/−8
- GI/Gtk/Objects/Overlay.hs-boot +1/−1
- GI/Gtk/Objects/PageSetup.hs +26/−26
- GI/Gtk/Objects/PageSetup.hs-boot +1/−1
- GI/Gtk/Objects/Paned.hs +53/−23
- GI/Gtk/Objects/Paned.hs-boot +1/−1
- GI/Gtk/Objects/PanedAccessible.hs +1/−1
- GI/Gtk/Objects/PanedAccessible.hs-boot +1/−1
- GI/Gtk/Objects/PlacesSidebar.hs +96/−33
- GI/Gtk/Objects/PlacesSidebar.hs-boot +1/−1
- GI/Gtk/Objects/Plug.hs +39/−27
- GI/Gtk/Objects/Plug.hs-boot +1/−1
- GI/Gtk/Objects/Popover.hs +58/−24
- GI/Gtk/Objects/Popover.hs-boot +1/−1
- GI/Gtk/Objects/PopoverAccessible.hs +1/−1
- GI/Gtk/Objects/PopoverAccessible.hs-boot +1/−1
- GI/Gtk/Objects/PopoverMenu.hs +18/−8
- GI/Gtk/Objects/PopoverMenu.hs-boot +1/−1
- GI/Gtk/Objects/PrintContext.hs +12/−12
- GI/Gtk/Objects/PrintContext.hs-boot +1/−1
- GI/Gtk/Objects/PrintOperation.hs +193/−69
- GI/Gtk/Objects/PrintOperation.hs-boot +1/−1
- GI/Gtk/Objects/PrintSettings.hs +96/−96
- GI/Gtk/Objects/PrintSettings.hs-boot +1/−1
- GI/Gtk/Objects/ProgressBar.hs +59/−19
- GI/Gtk/Objects/ProgressBar.hs-boot +1/−1
- GI/Gtk/Objects/ProgressBarAccessible.hs +1/−1
- GI/Gtk/Objects/ProgressBarAccessible.hs-boot +1/−1
- GI/Gtk/Objects/RadioAction.hs +44/−23
- GI/Gtk/Objects/RadioAction.hs-boot +1/−1
- GI/Gtk/Objects/RadioButton.hs +23/−14
- GI/Gtk/Objects/RadioButton.hs-boot +1/−1
- GI/Gtk/Objects/RadioButtonAccessible.hs +1/−1
- GI/Gtk/Objects/RadioButtonAccessible.hs-boot +1/−1
- GI/Gtk/Objects/RadioMenuItem.hs +23/−14
- GI/Gtk/Objects/RadioMenuItem.hs-boot +1/−1
- GI/Gtk/Objects/RadioMenuItemAccessible.hs +1/−1
- GI/Gtk/Objects/RadioMenuItemAccessible.hs-boot +1/−1
- GI/Gtk/Objects/RadioToolButton.hs +20/−11
- GI/Gtk/Objects/RadioToolButton.hs-boot +1/−1
- GI/Gtk/Objects/Range.hs +91/−43
- GI/Gtk/Objects/Range.hs-boot +1/−1
- GI/Gtk/Objects/RangeAccessible.hs +1/−1
- GI/Gtk/Objects/RangeAccessible.hs-boot +1/−1
- GI/Gtk/Objects/RcStyle.hs +3/−3
- GI/Gtk/Objects/RcStyle.hs-boot +1/−1
- GI/Gtk/Objects/RecentAction.hs +11/−5
- GI/Gtk/Objects/RecentAction.hs-boot +1/−1
- GI/Gtk/Objects/RecentChooserDialog.hs too large to diff
- GI/Gtk/Objects/RecentChooserDialog.hs-boot too large to diff
- GI/Gtk/Objects/RecentChooserMenu.hs too large to diff
- GI/Gtk/Objects/RecentChooserMenu.hs-boot too large to diff
- GI/Gtk/Objects/RecentChooserWidget.hs too large to diff
- GI/Gtk/Objects/RecentChooserWidget.hs-boot too large to diff
- GI/Gtk/Objects/RecentFilter.hs too large to diff
- GI/Gtk/Objects/RecentFilter.hs-boot too large to diff
- GI/Gtk/Objects/RecentManager.hs too large to diff
- GI/Gtk/Objects/RecentManager.hs-boot too large to diff
- GI/Gtk/Objects/RendererCellAccessible.hs too large to diff
- GI/Gtk/Objects/RendererCellAccessible.hs-boot too large to diff
- GI/Gtk/Objects/Revealer.hs too large to diff
- GI/Gtk/Objects/Revealer.hs-boot too large to diff
- GI/Gtk/Objects/Scale.hs too large to diff
- GI/Gtk/Objects/Scale.hs-boot too large to diff
- GI/Gtk/Objects/ScaleAccessible.hs too large to diff
- GI/Gtk/Objects/ScaleAccessible.hs-boot too large to diff
- GI/Gtk/Objects/ScaleButton.hs too large to diff
- GI/Gtk/Objects/ScaleButton.hs-boot too large to diff
- GI/Gtk/Objects/ScaleButtonAccessible.hs too large to diff
- GI/Gtk/Objects/ScaleButtonAccessible.hs-boot too large to diff
- GI/Gtk/Objects/Scrollbar.hs too large to diff
- GI/Gtk/Objects/Scrollbar.hs-boot too large to diff
- GI/Gtk/Objects/ScrolledWindow.hs too large to diff
- GI/Gtk/Objects/ScrolledWindow.hs-boot too large to diff
- GI/Gtk/Objects/ScrolledWindowAccessible.hs too large to diff
- GI/Gtk/Objects/ScrolledWindowAccessible.hs-boot too large to diff
- GI/Gtk/Objects/SearchBar.hs too large to diff
- GI/Gtk/Objects/SearchBar.hs-boot too large to diff
- GI/Gtk/Objects/SearchEntry.hs too large to diff
- GI/Gtk/Objects/SearchEntry.hs-boot too large to diff
- GI/Gtk/Objects/Separator.hs too large to diff
- GI/Gtk/Objects/Separator.hs-boot too large to diff
- GI/Gtk/Objects/SeparatorMenuItem.hs too large to diff
- GI/Gtk/Objects/SeparatorMenuItem.hs-boot too large to diff
- GI/Gtk/Objects/SeparatorToolItem.hs too large to diff
- GI/Gtk/Objects/SeparatorToolItem.hs-boot too large to diff
- GI/Gtk/Objects/Settings.hs too large to diff
- GI/Gtk/Objects/Settings.hs-boot too large to diff
- GI/Gtk/Objects/SizeGroup.hs too large to diff
- GI/Gtk/Objects/SizeGroup.hs-boot too large to diff
- GI/Gtk/Objects/Socket.hs too large to diff
- GI/Gtk/Objects/Socket.hs-boot too large to diff
- GI/Gtk/Objects/SpinButton.hs too large to diff
- GI/Gtk/Objects/SpinButton.hs-boot too large to diff
- GI/Gtk/Objects/SpinButtonAccessible.hs too large to diff
- GI/Gtk/Objects/SpinButtonAccessible.hs-boot too large to diff
- GI/Gtk/Objects/Spinner.hs too large to diff
- GI/Gtk/Objects/Spinner.hs-boot too large to diff
- GI/Gtk/Objects/SpinnerAccessible.hs too large to diff
- GI/Gtk/Objects/SpinnerAccessible.hs-boot too large to diff
- GI/Gtk/Objects/Stack.hs too large to diff
- GI/Gtk/Objects/Stack.hs-boot too large to diff
- GI/Gtk/Objects/StackSidebar.hs too large to diff
- GI/Gtk/Objects/StackSidebar.hs-boot too large to diff
- GI/Gtk/Objects/StackSwitcher.hs too large to diff
- GI/Gtk/Objects/StackSwitcher.hs-boot too large to diff
- GI/Gtk/Objects/StatusIcon.hs too large to diff
- GI/Gtk/Objects/StatusIcon.hs-boot too large to diff
- GI/Gtk/Objects/Statusbar.hs too large to diff
- GI/Gtk/Objects/Statusbar.hs-boot too large to diff
- GI/Gtk/Objects/StatusbarAccessible.hs too large to diff
- GI/Gtk/Objects/StatusbarAccessible.hs-boot too large to diff
- GI/Gtk/Objects/Style.hs too large to diff
- GI/Gtk/Objects/Style.hs-boot too large to diff
- GI/Gtk/Objects/StyleContext.hs too large to diff
- GI/Gtk/Objects/StyleContext.hs-boot too large to diff
- GI/Gtk/Objects/StyleProperties.hs too large to diff
- GI/Gtk/Objects/StyleProperties.hs-boot too large to diff
- GI/Gtk/Objects/Switch.hs too large to diff
- GI/Gtk/Objects/Switch.hs-boot too large to diff
- GI/Gtk/Objects/SwitchAccessible.hs too large to diff
- GI/Gtk/Objects/SwitchAccessible.hs-boot too large to diff
- GI/Gtk/Objects/Table.hs too large to diff
- GI/Gtk/Objects/Table.hs-boot too large to diff
- GI/Gtk/Objects/TearoffMenuItem.hs too large to diff
- GI/Gtk/Objects/TearoffMenuItem.hs-boot too large to diff
- GI/Gtk/Objects/TextBuffer.hs too large to diff
- GI/Gtk/Objects/TextBuffer.hs-boot too large to diff
- GI/Gtk/Objects/TextCellAccessible.hs too large to diff
- GI/Gtk/Objects/TextCellAccessible.hs-boot too large to diff
- GI/Gtk/Objects/TextChildAnchor.hs too large to diff
- GI/Gtk/Objects/TextChildAnchor.hs-boot too large to diff
- GI/Gtk/Objects/TextMark.hs too large to diff
- GI/Gtk/Objects/TextMark.hs-boot too large to diff
- GI/Gtk/Objects/TextTag.hs too large to diff
- GI/Gtk/Objects/TextTag.hs-boot too large to diff
- GI/Gtk/Objects/TextTagTable.hs too large to diff
- GI/Gtk/Objects/TextTagTable.hs-boot too large to diff
- GI/Gtk/Objects/TextView.hs too large to diff
- GI/Gtk/Objects/TextView.hs-boot too large to diff
- GI/Gtk/Objects/TextViewAccessible.hs too large to diff
- GI/Gtk/Objects/TextViewAccessible.hs-boot too large to diff
- GI/Gtk/Objects/ThemingEngine.hs too large to diff
- GI/Gtk/Objects/ThemingEngine.hs-boot too large to diff
- GI/Gtk/Objects/ToggleAction.hs too large to diff
- GI/Gtk/Objects/ToggleAction.hs-boot too large to diff
- GI/Gtk/Objects/ToggleButton.hs too large to diff
- GI/Gtk/Objects/ToggleButton.hs-boot too large to diff
- GI/Gtk/Objects/ToggleButtonAccessible.hs too large to diff
- GI/Gtk/Objects/ToggleButtonAccessible.hs-boot too large to diff
- GI/Gtk/Objects/ToggleToolButton.hs too large to diff
- GI/Gtk/Objects/ToggleToolButton.hs-boot too large to diff
- GI/Gtk/Objects/ToolButton.hs too large to diff
- GI/Gtk/Objects/ToolButton.hs-boot too large to diff
- GI/Gtk/Objects/ToolItem.hs too large to diff
- GI/Gtk/Objects/ToolItem.hs-boot too large to diff
- GI/Gtk/Objects/ToolItemGroup.hs too large to diff
- GI/Gtk/Objects/ToolItemGroup.hs-boot too large to diff
- GI/Gtk/Objects/ToolPalette.hs too large to diff
- GI/Gtk/Objects/ToolPalette.hs-boot too large to diff
- GI/Gtk/Objects/Toolbar.hs too large to diff
- GI/Gtk/Objects/Toolbar.hs-boot too large to diff
- GI/Gtk/Objects/Tooltip.hs too large to diff
- GI/Gtk/Objects/Tooltip.hs-boot too large to diff
- GI/Gtk/Objects/ToplevelAccessible.hs too large to diff
- GI/Gtk/Objects/ToplevelAccessible.hs-boot too large to diff
- GI/Gtk/Objects/TreeModelFilter.hs too large to diff
- GI/Gtk/Objects/TreeModelFilter.hs-boot too large to diff
- GI/Gtk/Objects/TreeModelSort.hs too large to diff
- GI/Gtk/Objects/TreeModelSort.hs-boot too large to diff
- GI/Gtk/Objects/TreeSelection.hs too large to diff
- GI/Gtk/Objects/TreeSelection.hs-boot too large to diff
- GI/Gtk/Objects/TreeStore.hs too large to diff
- GI/Gtk/Objects/TreeStore.hs-boot too large to diff
- GI/Gtk/Objects/TreeView.hs too large to diff
- GI/Gtk/Objects/TreeView.hs-boot too large to diff
- GI/Gtk/Objects/TreeViewAccessible.hs too large to diff
- GI/Gtk/Objects/TreeViewAccessible.hs-boot too large to diff
- GI/Gtk/Objects/TreeViewColumn.hs too large to diff
- GI/Gtk/Objects/TreeViewColumn.hs-boot too large to diff
- GI/Gtk/Objects/UIManager.hs too large to diff
- GI/Gtk/Objects/UIManager.hs-boot too large to diff
- GI/Gtk/Objects/VBox.hs too large to diff
- GI/Gtk/Objects/VBox.hs-boot too large to diff
- GI/Gtk/Objects/VButtonBox.hs too large to diff
- GI/Gtk/Objects/VButtonBox.hs-boot too large to diff
- GI/Gtk/Objects/VPaned.hs too large to diff
- GI/Gtk/Objects/VPaned.hs-boot too large to diff
- GI/Gtk/Objects/VScale.hs too large to diff
- GI/Gtk/Objects/VScale.hs-boot too large to diff
- GI/Gtk/Objects/VScrollbar.hs too large to diff
- GI/Gtk/Objects/VScrollbar.hs-boot too large to diff
- GI/Gtk/Objects/VSeparator.hs too large to diff
- GI/Gtk/Objects/VSeparator.hs-boot too large to diff
- GI/Gtk/Objects/Viewport.hs too large to diff
- GI/Gtk/Objects/Viewport.hs-boot too large to diff
- GI/Gtk/Objects/VolumeButton.hs too large to diff
- GI/Gtk/Objects/VolumeButton.hs-boot too large to diff
- GI/Gtk/Objects/Widget.hs too large to diff
- GI/Gtk/Objects/Widget.hs-boot too large to diff
- GI/Gtk/Objects/WidgetAccessible.hs too large to diff
- GI/Gtk/Objects/WidgetAccessible.hs-boot too large to diff
- GI/Gtk/Objects/Window.hs too large to diff
- GI/Gtk/Objects/Window.hs-boot too large to diff
- GI/Gtk/Objects/WindowAccessible.hs too large to diff
- GI/Gtk/Objects/WindowAccessible.hs-boot too large to diff
- GI/Gtk/Objects/WindowGroup.hs too large to diff
- GI/Gtk/Objects/WindowGroup.hs-boot too large to diff
- GI/Gtk/Structs.hs too large to diff
- GI/Gtk/Structs/AccelGroupEntry.hs too large to diff
- GI/Gtk/Structs/AccelGroupEntry.hs-boot too large to diff
- GI/Gtk/Structs/AccelKey.hs too large to diff
- GI/Gtk/Structs/AccelKey.hs-boot too large to diff
- GI/Gtk/Structs/ActionEntry.hs too large to diff
- GI/Gtk/Structs/ActionEntry.hs-boot too large to diff
- GI/Gtk/Structs/BindingArg.hs too large to diff
- GI/Gtk/Structs/BindingArg.hs-boot too large to diff
- GI/Gtk/Structs/BindingEntry.hs too large to diff
- GI/Gtk/Structs/BindingEntry.hs-boot too large to diff
- GI/Gtk/Structs/BindingSet.hs too large to diff
- GI/Gtk/Structs/BindingSet.hs-boot too large to diff
- GI/Gtk/Structs/BindingSignal.hs too large to diff
- GI/Gtk/Structs/BindingSignal.hs-boot too large to diff
- GI/Gtk/Structs/Border.hs too large to diff
- GI/Gtk/Structs/Border.hs-boot too large to diff
- GI/Gtk/Structs/CssSection.hs too large to diff
- GI/Gtk/Structs/CssSection.hs-boot too large to diff
- GI/Gtk/Structs/FileFilterInfo.hs too large to diff
- GI/Gtk/Structs/FileFilterInfo.hs-boot too large to diff
- GI/Gtk/Structs/FixedChild.hs too large to diff
- GI/Gtk/Structs/FixedChild.hs-boot too large to diff
- GI/Gtk/Structs/Gradient.hs too large to diff
- GI/Gtk/Structs/Gradient.hs-boot too large to diff
- GI/Gtk/Structs/IMContextInfo.hs too large to diff
- GI/Gtk/Structs/IMContextInfo.hs-boot too large to diff
- GI/Gtk/Structs/IconSet.hs too large to diff
- GI/Gtk/Structs/IconSet.hs-boot too large to diff
- GI/Gtk/Structs/IconSource.hs too large to diff
- GI/Gtk/Structs/IconSource.hs-boot too large to diff
- GI/Gtk/Structs/LabelSelectionInfo.hs too large to diff
- GI/Gtk/Structs/LabelSelectionInfo.hs-boot too large to diff
- GI/Gtk/Structs/PageRange.hs too large to diff
- GI/Gtk/Structs/PageRange.hs-boot too large to diff
- GI/Gtk/Structs/PaperSize.hs too large to diff
- GI/Gtk/Structs/PaperSize.hs-boot too large to diff
- GI/Gtk/Structs/RadioActionEntry.hs too large to diff
- GI/Gtk/Structs/RadioActionEntry.hs-boot too large to diff
- GI/Gtk/Structs/RcContext.hs too large to diff
- GI/Gtk/Structs/RcContext.hs-boot too large to diff
- GI/Gtk/Structs/RcProperty.hs too large to diff
- GI/Gtk/Structs/RcProperty.hs-boot too large to diff
- GI/Gtk/Structs/RecentData.hs too large to diff
- GI/Gtk/Structs/RecentData.hs-boot too large to diff
- GI/Gtk/Structs/RecentFilterInfo.hs too large to diff
- GI/Gtk/Structs/RecentFilterInfo.hs-boot too large to diff
- GI/Gtk/Structs/RecentInfo.hs too large to diff
- GI/Gtk/Structs/RecentInfo.hs-boot too large to diff
- GI/Gtk/Structs/RequestedSize.hs too large to diff
- GI/Gtk/Structs/RequestedSize.hs-boot too large to diff
- GI/Gtk/Structs/Requisition.hs too large to diff
- GI/Gtk/Structs/Requisition.hs-boot too large to diff
- GI/Gtk/Structs/SelectionData.hs too large to diff
- GI/Gtk/Structs/SelectionData.hs-boot too large to diff
- GI/Gtk/Structs/SettingsValue.hs too large to diff
- GI/Gtk/Structs/SettingsValue.hs-boot too large to diff
- GI/Gtk/Structs/StockItem.hs too large to diff
- GI/Gtk/Structs/StockItem.hs-boot too large to diff
- GI/Gtk/Structs/SymbolicColor.hs too large to diff
- GI/Gtk/Structs/SymbolicColor.hs-boot too large to diff
- GI/Gtk/Structs/TableChild.hs too large to diff
- GI/Gtk/Structs/TableChild.hs-boot too large to diff
- GI/Gtk/Structs/TableRowCol.hs too large to diff
- GI/Gtk/Structs/TableRowCol.hs-boot too large to diff
- GI/Gtk/Structs/TargetEntry.hs too large to diff
- GI/Gtk/Structs/TargetEntry.hs-boot too large to diff
- GI/Gtk/Structs/TargetList.hs too large to diff
- GI/Gtk/Structs/TargetList.hs-boot too large to diff
- GI/Gtk/Structs/TargetPair.hs too large to diff
- GI/Gtk/Structs/TargetPair.hs-boot too large to diff
- GI/Gtk/Structs/TextAppearance.hs too large to diff
- GI/Gtk/Structs/TextAppearance.hs-boot too large to diff
- GI/Gtk/Structs/TextAttributes.hs too large to diff
- GI/Gtk/Structs/TextAttributes.hs-boot too large to diff
- GI/Gtk/Structs/TextBTree.hs too large to diff
- GI/Gtk/Structs/TextBTree.hs-boot too large to diff
- GI/Gtk/Structs/TextIter.hs too large to diff
- GI/Gtk/Structs/TextIter.hs-boot too large to diff
- GI/Gtk/Structs/ThemeEngine.hs too large to diff
- GI/Gtk/Structs/ThemeEngine.hs-boot too large to diff
- GI/Gtk/Structs/ToggleActionEntry.hs too large to diff
- GI/Gtk/Structs/ToggleActionEntry.hs-boot too large to diff
- GI/Gtk/Structs/TreeIter.hs too large to diff
- GI/Gtk/Structs/TreeIter.hs-boot too large to diff
- GI/Gtk/Structs/TreePath.hs too large to diff
- GI/Gtk/Structs/TreePath.hs-boot too large to diff
- GI/Gtk/Structs/TreeRowReference.hs too large to diff
- GI/Gtk/Structs/TreeRowReference.hs-boot too large to diff
- GI/Gtk/Structs/WidgetPath.hs too large to diff
- GI/Gtk/Structs/WidgetPath.hs-boot too large to diff
- GI/Gtk/Structs/WindowGeometryInfo.hs too large to diff
- GI/Gtk/Structs/WindowGeometryInfo.hs-boot too large to diff
- gi-gtk.cabal too large to diff
@@ -32,9 +32,9 @@ import GI.Gtk.Objects import GI.Gtk.Structs -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -563,9 +563,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -273,9 +273,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -121,9 +121,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -36,9 +36,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -93,8 +93,8 @@ foreign import ccall "gtk_ui_manager_item_type_get_type" c_gtk_ui_manager_item_type_get_type :: IO GType -instance BoxedEnum UIManagerItemType where- boxedEnumType _ = c_gtk_ui_manager_item_type_get_type+instance BoxedFlags UIManagerItemType where+ boxedFlagsType _ = c_gtk_ui_manager_item_type_get_type instance IsGFlag UIManagerItemType @@ -118,8 +118,8 @@ foreign import ccall "gtk_tree_model_flags_get_type" c_gtk_tree_model_flags_get_type :: IO GType -instance BoxedEnum TreeModelFlags where- boxedEnumType _ = c_gtk_tree_model_flags_get_type+instance BoxedFlags TreeModelFlags where+ boxedFlagsType _ = c_gtk_tree_model_flags_get_type instance IsGFlag TreeModelFlags @@ -143,8 +143,8 @@ foreign import ccall "gtk_tool_palette_drag_targets_get_type" c_gtk_tool_palette_drag_targets_get_type :: IO GType -instance BoxedEnum ToolPaletteDragTargets where- boxedEnumType _ = c_gtk_tool_palette_drag_targets_get_type+instance BoxedFlags ToolPaletteDragTargets where+ boxedFlagsType _ = c_gtk_tool_palette_drag_targets_get_type instance IsGFlag ToolPaletteDragTargets @@ -171,8 +171,8 @@ foreign import ccall "gtk_text_search_flags_get_type" c_gtk_text_search_flags_get_type :: IO GType -instance BoxedEnum TextSearchFlags where- boxedEnumType _ = c_gtk_text_search_flags_get_type+instance BoxedFlags TextSearchFlags where+ boxedFlagsType _ = c_gtk_text_search_flags_get_type instance IsGFlag TextSearchFlags @@ -202,8 +202,8 @@ foreign import ccall "gtk_target_flags_get_type" c_gtk_target_flags_get_type :: IO GType -instance BoxedEnum TargetFlags where- boxedEnumType _ = c_gtk_target_flags_get_type+instance BoxedFlags TargetFlags where+ boxedFlagsType _ = c_gtk_target_flags_get_type instance IsGFlag TargetFlags @@ -260,8 +260,8 @@ foreign import ccall "gtk_state_flags_get_type" c_gtk_state_flags_get_type :: IO GType -instance BoxedEnum StateFlags where- boxedEnumType _ = c_gtk_state_flags_get_type+instance BoxedFlags StateFlags where+ boxedFlagsType _ = c_gtk_state_flags_get_type instance IsGFlag StateFlags @@ -297,8 +297,8 @@ foreign import ccall "gtk_region_flags_get_type" c_gtk_region_flags_get_type :: IO GType -instance BoxedEnum RegionFlags where- boxedEnumType _ = c_gtk_region_flags_get_type+instance BoxedFlags RegionFlags where+ boxedFlagsType _ = c_gtk_region_flags_get_type instance IsGFlag RegionFlags @@ -334,8 +334,8 @@ foreign import ccall "gtk_recent_filter_flags_get_type" c_gtk_recent_filter_flags_get_type :: IO GType -instance BoxedEnum RecentFilterFlags where- boxedEnumType _ = c_gtk_recent_filter_flags_get_type+instance BoxedFlags RecentFilterFlags where+ boxedFlagsType _ = c_gtk_recent_filter_flags_get_type instance IsGFlag RecentFilterFlags @@ -365,8 +365,8 @@ foreign import ccall "gtk_rc_flags_get_type" c_gtk_rc_flags_get_type :: IO GType -instance BoxedEnum RcFlags where- boxedEnumType _ = c_gtk_rc_flags_get_type+instance BoxedFlags RcFlags where+ boxedFlagsType _ = c_gtk_rc_flags_get_type instance IsGFlag RcFlags @@ -393,8 +393,8 @@ foreign import ccall "gtk_places_open_flags_get_type" c_gtk_places_open_flags_get_type :: IO GType -instance BoxedEnum PlacesOpenFlags where- boxedEnumType _ = c_gtk_places_open_flags_get_type+instance BoxedFlags PlacesOpenFlags where+ boxedFlagsType _ = c_gtk_places_open_flags_get_type instance IsGFlag PlacesOpenFlags @@ -439,8 +439,8 @@ foreign import ccall "gtk_junction_sides_get_type" c_gtk_junction_sides_get_type :: IO GType -instance BoxedEnum JunctionSides where- boxedEnumType _ = c_gtk_junction_sides_get_type+instance BoxedFlags JunctionSides where+ boxedFlagsType _ = c_gtk_junction_sides_get_type instance IsGFlag JunctionSides @@ -488,8 +488,8 @@ foreign import ccall "gtk_input_hints_get_type" c_gtk_input_hints_get_type :: IO GType -instance BoxedEnum InputHints where- boxedEnumType _ = c_gtk_input_hints_get_type+instance BoxedFlags InputHints where+ boxedFlagsType _ = c_gtk_input_hints_get_type instance IsGFlag InputHints @@ -534,8 +534,8 @@ foreign import ccall "gtk_icon_lookup_flags_get_type" c_gtk_icon_lookup_flags_get_type :: IO GType -instance BoxedEnum IconLookupFlags where- boxedEnumType _ = c_gtk_icon_lookup_flags_get_type+instance BoxedFlags IconLookupFlags where+ boxedFlagsType _ = c_gtk_icon_lookup_flags_get_type instance IsGFlag IconLookupFlags @@ -565,8 +565,8 @@ foreign import ccall "gtk_file_filter_flags_get_type" c_gtk_file_filter_flags_get_type :: IO GType -instance BoxedEnum FileFilterFlags where- boxedEnumType _ = c_gtk_file_filter_flags_get_type+instance BoxedFlags FileFilterFlags where+ boxedFlagsType _ = c_gtk_file_filter_flags_get_type instance IsGFlag FileFilterFlags @@ -593,8 +593,8 @@ foreign import ccall "gtk_dialog_flags_get_type" c_gtk_dialog_flags_get_type :: IO GType -instance BoxedEnum DialogFlags where- boxedEnumType _ = c_gtk_dialog_flags_get_type+instance BoxedFlags DialogFlags where+ boxedFlagsType _ = c_gtk_dialog_flags_get_type instance IsGFlag DialogFlags @@ -624,8 +624,8 @@ foreign import ccall "gtk_dest_defaults_get_type" c_gtk_dest_defaults_get_type :: IO GType -instance BoxedEnum DestDefaults where- boxedEnumType _ = c_gtk_dest_defaults_get_type+instance BoxedFlags DestDefaults where+ boxedFlagsType _ = c_gtk_dest_defaults_get_type instance IsGFlag DestDefaults @@ -703,8 +703,8 @@ foreign import ccall "gtk_debug_flag_get_type" c_gtk_debug_flag_get_type :: IO GType -instance BoxedEnum DebugFlag where- boxedEnumType _ = c_gtk_debug_flag_get_type+instance BoxedFlags DebugFlag where+ boxedFlagsType _ = c_gtk_debug_flag_get_type instance IsGFlag DebugFlag @@ -743,8 +743,8 @@ foreign import ccall "gtk_cell_renderer_state_get_type" c_gtk_cell_renderer_state_get_type :: IO GType -instance BoxedEnum CellRendererState where- boxedEnumType _ = c_gtk_cell_renderer_state_get_type+instance BoxedFlags CellRendererState where+ boxedFlagsType _ = c_gtk_cell_renderer_state_get_type instance IsGFlag CellRendererState @@ -777,8 +777,8 @@ foreign import ccall "gtk_calendar_display_options_get_type" c_gtk_calendar_display_options_get_type :: IO GType -instance BoxedEnum CalendarDisplayOptions where- boxedEnumType _ = c_gtk_calendar_display_options_get_type+instance BoxedFlags CalendarDisplayOptions where+ boxedFlagsType _ = c_gtk_calendar_display_options_get_type instance IsGFlag CalendarDisplayOptions @@ -805,8 +805,8 @@ foreign import ccall "gtk_attach_options_get_type" c_gtk_attach_options_get_type :: IO GType -instance BoxedEnum AttachOptions where- boxedEnumType _ = c_gtk_attach_options_get_type+instance BoxedFlags AttachOptions where+ boxedFlagsType _ = c_gtk_attach_options_get_type instance IsGFlag AttachOptions @@ -836,8 +836,8 @@ foreign import ccall "gtk_application_inhibit_flags_get_type" c_gtk_application_inhibit_flags_get_type :: IO GType -instance BoxedEnum ApplicationInhibitFlags where- boxedEnumType _ = c_gtk_application_inhibit_flags_get_type+instance BoxedFlags ApplicationInhibitFlags where+ boxedFlagsType _ = c_gtk_application_inhibit_flags_get_type instance IsGFlag ApplicationInhibitFlags @@ -864,8 +864,8 @@ foreign import ccall "gtk_accel_flags_get_type" c_gtk_accel_flags_get_type :: IO GType -instance BoxedEnum AccelFlags where- boxedEnumType _ = c_gtk_accel_flags_get_type+instance BoxedFlags AccelFlags where+ boxedFlagsType _ = c_gtk_accel_flags_get_type instance IsGFlag AccelFlags
@@ -650,9 +650,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -670,7 +670,7 @@ -- function gtk_true -- Args : [] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -690,7 +690,7 @@ -- function gtk_tree_set_row_drag_data -- Args : [Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -722,7 +722,7 @@ -- function gtk_tree_get_row_drag_data -- Args : [Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -760,7 +760,7 @@ -- function gtk_test_widget_wait_for_draw -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -781,15 +781,15 @@ -- function gtk_test_widget_send_key--- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_test_widget_send_key" gtk_test_widget_send_key :: Ptr Widget -> -- widget : TInterface "Gtk" "Widget"- Word32 -> -- keyval : TBasicType TUInt32+ Word32 -> -- keyval : TBasicType TUInt CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" IO CInt @@ -810,15 +810,15 @@ -- function gtk_test_widget_click--- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_test_widget_click" gtk_test_widget_click :: Ptr Widget -> -- widget : TInterface "Gtk" "Widget"- Word32 -> -- button : TBasicType TUInt32+ Word32 -> -- button : TBasicType TUInt CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" IO CInt @@ -841,7 +841,7 @@ -- function gtk_test_text_set -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -868,7 +868,7 @@ -- function gtk_test_text_get -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -892,15 +892,15 @@ -- function gtk_test_spin_button_click--- Args : [Arg {argCName = "spinner", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upwards", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "spinner", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upwards", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_test_spin_button_click" gtk_test_spin_button_click :: Ptr SpinButton -> -- spinner : TInterface "Gtk" "SpinButton"- Word32 -> -- button : TBasicType TUInt32+ Word32 -> -- button : TBasicType TUInt CInt -> -- upwards : TBasicType TBoolean IO CInt @@ -923,7 +923,7 @@ -- function gtk_test_slider_set_perc -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "percentage", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -949,7 +949,7 @@ -- function gtk_test_slider_get_value -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -973,7 +973,7 @@ -- function gtk_test_register_all_types -- Args : [] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -990,14 +990,14 @@ -- function gtk_test_list_all_types--- Args : [Arg {argCName = "n_types", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "n_types", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TCArray True (-1) 0 (TBasicType TGType)+-- returnType : Just (TCArray True (-1) 0 (TBasicType TGType)) -- throws : False -- Skip return : False foreign import ccall "gtk_test_list_all_types" gtk_test_list_all_types :: - Ptr Word32 -> -- n_types : TBasicType TUInt32+ Ptr Word32 -> -- n_types : TBasicType TUInt IO (Ptr CGType) @@ -1017,7 +1017,7 @@ -- function gtk_test_find_widget -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1049,7 +1049,7 @@ -- function gtk_test_find_sibling -- Args : [Arg {argCName = "base_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1077,7 +1077,7 @@ -- function gtk_test_find_label -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1106,7 +1106,7 @@ -- function gtk_test_create_simple_window -- Args : [Arg {argCName = "window_title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dialog_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1133,15 +1133,15 @@ -- function gtk_targets_include_uri--- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TBoolean+-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_targets_include_uri" gtk_targets_include_uri :: Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom")- Int32 -> -- n_targets : TBasicType TInt32+ Int32 -> -- n_targets : TBasicType TInt IO CInt @@ -1161,15 +1161,15 @@ -- function gtk_targets_include_text--- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TBoolean+-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_targets_include_text" gtk_targets_include_text :: Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom")- Int32 -> -- n_targets : TBasicType TInt32+ Int32 -> -- n_targets : TBasicType TInt IO CInt @@ -1189,15 +1189,15 @@ -- function gtk_targets_include_rich_text--- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TBoolean+-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_targets_include_rich_text" gtk_targets_include_rich_text :: Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom")- Int32 -> -- n_targets : TBasicType TInt32+ Int32 -> -- n_targets : TBasicType TInt Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer" IO CInt @@ -1221,15 +1221,15 @@ -- function gtk_targets_include_image--- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TBoolean+-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_targets_include_image" gtk_targets_include_image :: Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom")- Int32 -> -- n_targets : TBasicType TInt32+ Int32 -> -- n_targets : TBasicType TInt CInt -> -- writable : TBasicType TBoolean IO CInt @@ -1252,15 +1252,15 @@ -- function gtk_target_table_new_from_list--- Args : [Arg {argCName = "list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry")+-- Args : [Arg {argCName = "list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Just (TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry")) -- throws : False -- Skip return : False foreign import ccall "gtk_target_table_new_from_list" gtk_target_table_new_from_list :: Ptr TargetList -> -- list : TInterface "Gtk" "TargetList"- Ptr Int32 -> -- n_targets : TBasicType TInt32+ Ptr Int32 -> -- n_targets : TBasicType TInt IO (Ptr TargetEntry) @@ -1283,15 +1283,15 @@ -- function gtk_target_table_free--- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TVoid+-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_target_table_free" gtk_target_table_free :: Ptr TargetEntry -> -- targets : TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry")- Int32 -> -- n_targets : TBasicType TInt32+ Int32 -> -- n_targets : TBasicType TInt IO () @@ -1310,16 +1310,16 @@ -- function gtk_stock_set_translate_func--- Args : [Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_stock_set_translate_func" gtk_stock_set_translate_func :: CString -> -- domain : TBasicType TUTF8 FunPtr TranslateFuncC -> -- func : TInterface "Gtk" "TranslateFunc"- Ptr () -> -- data : TBasicType TVoid+ Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" IO () @@ -1342,7 +1342,7 @@ -- function gtk_stock_lookup -- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "StockItem", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1369,7 +1369,7 @@ -- function gtk_stock_list_ids -- Args : [] -- Lengths : []--- returnType : TGSList (TBasicType TUTF8)+-- returnType : Just (TGSList (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -1382,7 +1382,6 @@ m [T.Text] -- result stockListIds = liftIO $ do result <- gtk_stock_list_ids- checkUnexpectedReturnNULL "gtk_stock_list_ids" result result' <- unpackGSList result result'' <- mapM cstringToText result' mapGSList freeMem result@@ -1391,15 +1390,15 @@ -- function gtk_stock_add_static--- Args : [Arg {argCName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TVoid+-- Args : [Arg {argCName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_items", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_items", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_stock_add_static" gtk_stock_add_static :: Ptr StockItem -> -- items : TCArray False (-1) 1 (TInterface "Gtk" "StockItem")- Word32 -> -- n_items : TBasicType TUInt32+ Word32 -> -- n_items : TBasicType TUInt IO () {-# DEPRECATED stockAddStatic ["(Since version 3.10)"]#-}@@ -1418,15 +1417,15 @@ -- function gtk_stock_add--- Args : [Arg {argCName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TVoid+-- Args : [Arg {argCName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_items", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_items", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_stock_add" gtk_stock_add :: Ptr StockItem -> -- items : TCArray False (-1) 1 (TInterface "Gtk" "StockItem")- Word32 -> -- n_items : TBasicType TUInt32+ Word32 -> -- n_items : TBasicType TUInt IO () {-# DEPRECATED stockAdd ["(Since version 3.10)"]#-}@@ -1447,7 +1446,7 @@ -- function gtk_show_uri -- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1483,14 +1482,14 @@ -- function gtk_set_debug_flags--- Args : [Arg {argCName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "flags", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_set_debug_flags" gtk_set_debug_flags :: - Word32 -> -- flags : TBasicType TUInt32+ Word32 -> -- flags : TBasicType TUInt IO () @@ -1506,7 +1505,7 @@ -- function gtk_selection_remove_all -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1529,7 +1528,7 @@ -- function gtk_selection_owner_set_for_display -- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1546,9 +1545,9 @@ a -- display -> Maybe (b) -- widget -> Gdk.Atom -- selection- -> Word32 -- time+ -> Word32 -- time_ -> m Bool -- result-selectionOwnerSetForDisplay display widget selection time = liftIO $ do+selectionOwnerSetForDisplay display widget selection time_ = liftIO $ do let display' = unsafeManagedPtrCastPtr display maybeWidget <- case widget of Nothing -> return nullPtr@@ -1556,7 +1555,7 @@ let jWidget' = unsafeManagedPtrCastPtr jWidget return jWidget' let selection' = unsafeManagedPtrGetPtr selection- result <- gtk_selection_owner_set_for_display display' maybeWidget selection' time+ result <- gtk_selection_owner_set_for_display display' maybeWidget selection' time_ let result' = (/= 0) result touchManagedPtr display whenJust widget touchManagedPtr@@ -1567,7 +1566,7 @@ -- function gtk_selection_owner_set -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1582,16 +1581,16 @@ (MonadIO m, WidgetK a) => Maybe (a) -- widget -> Gdk.Atom -- selection- -> Word32 -- time+ -> Word32 -- time_ -> m Bool -- result-selectionOwnerSet widget selection time = liftIO $ do+selectionOwnerSet widget selection time_ = liftIO $ do maybeWidget <- case widget of Nothing -> return nullPtr Just jWidget -> do let jWidget' = unsafeManagedPtrCastPtr jWidget return jWidget' let selection' = unsafeManagedPtrGetPtr selection- result <- gtk_selection_owner_set maybeWidget selection' time+ result <- gtk_selection_owner_set maybeWidget selection' time_ let result' = (/= 0) result whenJust widget touchManagedPtr touchManagedPtr selection@@ -1601,7 +1600,7 @@ -- function gtk_selection_convert -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1618,13 +1617,13 @@ a -- widget -> Gdk.Atom -- selection -> Gdk.Atom -- target- -> Word32 -- time+ -> Word32 -- time_ -> m Bool -- result-selectionConvert widget selection target time = liftIO $ do+selectionConvert widget selection target time_ = liftIO $ do let widget' = unsafeManagedPtrCastPtr widget let selection' = unsafeManagedPtrGetPtr selection let target' = unsafeManagedPtrGetPtr target- result <- gtk_selection_convert widget' selection' target' time+ result <- gtk_selection_convert widget' selection' target' time_ let result' = (/= 0) result touchManagedPtr widget touchManagedPtr selection@@ -1635,7 +1634,7 @@ -- function gtk_selection_clear_targets -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1660,9 +1659,9 @@ -- function gtk_selection_add_targets--- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TVoid+-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ntargets", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "ntargets", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1670,7 +1669,7 @@ Ptr Widget -> -- widget : TInterface "Gtk" "Widget" Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom" Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry")- Word32 -> -- ntargets : TBasicType TUInt32+ Word32 -> -- ntargets : TBasicType TUInt IO () @@ -1695,9 +1694,9 @@ -- function gtk_selection_add_target--- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1705,7 +1704,7 @@ Ptr Widget -> -- widget : TInterface "Gtk" "Widget" Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom" Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom"- Word32 -> -- info : TBasicType TUInt32+ Word32 -> -- info : TBasicType TUInt IO () @@ -1730,7 +1729,7 @@ -- function gtk_rgb_to_hsv -- Args : [Arg {argCName = "r", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "g", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "v", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1773,7 +1772,7 @@ -- function gtk_render_slider -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1815,7 +1814,7 @@ -- function gtk_render_option -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1854,7 +1853,7 @@ -- function gtk_render_line -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1893,7 +1892,7 @@ -- function gtk_render_layout -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1928,9 +1927,9 @@ -- function gtk_render_insertion_cursor--- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1940,7 +1939,7 @@ CDouble -> -- x : TBasicType TDouble CDouble -> -- y : TBasicType TDouble Ptr Pango.Layout -> -- layout : TInterface "Pango" "Layout"- Int32 -> -- index : TBasicType TInt32+ Int32 -> -- index : TBasicType TInt CUInt -> -- direction : TInterface "Pango" "Direction" IO () @@ -1972,7 +1971,7 @@ -- function gtk_render_icon_surface -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2007,16 +2006,16 @@ -- function gtk_render_icon_pixbuf--- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False foreign import ccall "gtk_render_icon_pixbuf" gtk_render_icon_pixbuf :: Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" Ptr IconSource -> -- source : TInterface "Gtk" "IconSource"- Int32 -> -- size : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt IO (Ptr GdkPixbuf.Pixbuf) {-# DEPRECATED renderIconPixbuf ["(Since version 3.10)","Use gtk_icon_theme_load_icon() instead."]#-}@@ -2040,7 +2039,7 @@ -- function gtk_render_icon -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2077,7 +2076,7 @@ -- function gtk_render_handle -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2116,7 +2115,7 @@ -- function gtk_render_frame_gap -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xy0_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xy1_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2164,7 +2163,7 @@ -- function gtk_render_frame -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2203,7 +2202,7 @@ -- function gtk_render_focus -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2242,7 +2241,7 @@ -- function gtk_render_extension -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2284,7 +2283,7 @@ -- function gtk_render_expander -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2323,7 +2322,7 @@ -- function gtk_render_check -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2362,7 +2361,7 @@ -- function gtk_render_background -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2401,7 +2400,7 @@ -- function gtk_render_arrow -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "angle", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2440,7 +2439,7 @@ -- function gtk_render_activity -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2479,7 +2478,7 @@ -- function gtk_rc_set_default_files -- Args : [Arg {argCName = "filenames", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2503,7 +2502,7 @@ -- function gtk_rc_reset_styles -- Args : [Arg {argCName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2526,7 +2525,7 @@ -- function gtk_rc_reparse_all_for_settings -- Args : [Arg {argCName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "force_load", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2553,7 +2552,7 @@ -- function gtk_rc_reparse_all -- Args : [] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2573,7 +2572,7 @@ -- function gtk_rc_parse_string -- Args : [Arg {argCName = "rc_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2596,7 +2595,7 @@ -- function gtk_rc_parse_state -- Args : [Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -2624,7 +2623,7 @@ -- function gtk_rc_parse_priority -- Args : [Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TInterface "Gtk" "PathPriorityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -2650,7 +2649,7 @@ -- function gtk_rc_parse_color_full -- Args : [Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -2684,7 +2683,7 @@ -- function gtk_rc_parse_color -- Args : [Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -2710,7 +2709,7 @@ -- function gtk_rc_parse -- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2733,7 +2732,7 @@ -- function gtk_rc_get_theme_dir -- Args : [] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2755,7 +2754,7 @@ -- function gtk_rc_get_style_by_paths -- Args : [Arg {argCName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "class_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Style"+-- returnType : Just (TInterface "Gtk" "Style") -- throws : False -- Skip return : False @@ -2773,7 +2772,7 @@ -> Maybe (T.Text) -- widgetPath -> Maybe (T.Text) -- classPath -> GType -- type_- -> m Style -- result+ -> m (Maybe Style) -- result rcGetStyleByPaths settings widgetPath classPath type_ = liftIO $ do let settings' = unsafeManagedPtrCastPtr settings maybeWidgetPath <- case widgetPath of@@ -2788,18 +2787,19 @@ return jClassPath' let type_' = gtypeToCGType type_ result <- gtk_rc_get_style_by_paths settings' maybeWidgetPath maybeClassPath type_'- checkUnexpectedReturnNULL "gtk_rc_get_style_by_paths" result- result' <- (newObject Style) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (newObject Style) result'+ return result'' touchManagedPtr settings freeMem maybeWidgetPath freeMem maybeClassPath- return result'+ return maybeResult -- function gtk_rc_get_style -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Style"+-- returnType : Just (TInterface "Gtk" "Style") -- throws : False -- Skip return : False @@ -2824,7 +2824,7 @@ -- function gtk_rc_get_module_dir -- Args : [] -- Lengths : []--- returnType : TBasicType TFileName+-- returnType : Just (TBasicType TFileName) -- throws : False -- Skip return : False @@ -2846,7 +2846,7 @@ -- function gtk_rc_get_im_module_path -- Args : [] -- Lengths : []--- returnType : TBasicType TFileName+-- returnType : Just (TBasicType TFileName) -- throws : False -- Skip return : False @@ -2868,7 +2868,7 @@ -- function gtk_rc_get_im_module_file -- Args : [] -- Lengths : []--- returnType : TBasicType TFileName+-- returnType : Just (TBasicType TFileName) -- throws : False -- Skip return : False @@ -2890,7 +2890,7 @@ -- function gtk_rc_get_default_files -- Args : [] -- Lengths : []--- returnType : TCArray True (-1) (-1) (TBasicType TFileName)+-- returnType : Just (TCArray True (-1) (-1) (TBasicType TFileName)) -- throws : False -- Skip return : False @@ -2911,7 +2911,7 @@ -- function gtk_rc_find_pixmap_in_path -- Args : [Arg {argCName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixmap_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TFileName+-- returnType : Just (TBasicType TFileName) -- throws : False -- Skip return : False @@ -2945,7 +2945,7 @@ -- function gtk_rc_find_module_in_path -- Args : [Arg {argCName = "module_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TFileName+-- returnType : Just (TBasicType TFileName) -- throws : False -- Skip return : False @@ -2971,7 +2971,7 @@ -- function gtk_rc_add_default_file -- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2994,7 +2994,7 @@ -- function gtk_propagate_event -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3019,9 +3019,9 @@ -- function gtk_print_run_page_setup_dialog_async--- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "done_cb", argType = TInterface "Gtk" "PageSetupDoneFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "done_cb", argType = TInterface "Gtk" "PageSetupDoneFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3030,7 +3030,7 @@ Ptr PageSetup -> -- page_setup : TInterface "Gtk" "PageSetup" Ptr PrintSettings -> -- settings : TInterface "Gtk" "PrintSettings" FunPtr PageSetupDoneFuncC -> -- done_cb : TInterface "Gtk" "PageSetupDoneFunc"- Ptr () -> -- data : TBasicType TVoid+ Ptr () -> -- data : TBasicType TPtr IO () @@ -3067,7 +3067,7 @@ -- function gtk_print_run_page_setup_dialog -- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PageSetup"+-- returnType : Just (TInterface "Gtk" "PageSetup") -- throws : False -- Skip return : False @@ -3106,14 +3106,14 @@ -- function gtk_parse_args--- Args : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : TBasicType TBoolean+-- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_parse_args" gtk_parse_args :: - Ptr Int32 -> -- argc : TBasicType TInt32+ Ptr Int32 -> -- argc : TBasicType TInt Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) IO CInt @@ -3142,9 +3142,9 @@ -- function gtk_paint_vline--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y2_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y2_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3154,9 +3154,9 @@ CUInt -> -- state_type : TInterface "Gtk" "StateType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8- Int32 -> -- y1_ : TBasicType TInt32- Int32 -> -- y2_ : TBasicType TInt32- Int32 -> -- x : TBasicType TInt32+ Int32 -> -- y1_ : TBasicType TInt+ Int32 -> -- y2_ : TBasicType TInt+ Int32 -> -- x : TBasicType TInt IO () {-# DEPRECATED paintVline ["(Since version 3.0)","Use gtk_render_line() instead"]#-}@@ -3167,11 +3167,11 @@ -> StateType -- stateType -> Maybe (b) -- widget -> Maybe (T.Text) -- detail- -> Int32 -- y1- -> Int32 -- y2+ -> Int32 -- y1_+ -> Int32 -- y2_ -> Int32 -- x -> m () -- result-paintVline style cr stateType widget detail y1 y2 x = liftIO $ do+paintVline style cr stateType widget detail y1_ y2_ x = liftIO $ do let style' = unsafeManagedPtrCastPtr style let cr' = unsafeManagedPtrGetPtr cr let stateType' = (fromIntegral . fromEnum) stateType@@ -3185,7 +3185,7 @@ Just jDetail -> do jDetail' <- textToCString jDetail return jDetail'- gtk_paint_vline style' cr' stateType' maybeWidget maybeDetail y1 y2 x+ gtk_paint_vline style' cr' stateType' maybeWidget maybeDetail y1_ y2_ x touchManagedPtr style touchManagedPtr cr whenJust widget touchManagedPtr@@ -3194,9 +3194,9 @@ -- function gtk_paint_tab--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3207,10 +3207,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintTab ["(Since version 3.0)","Use cairo instead"]#-}@@ -3251,9 +3251,9 @@ -- function gtk_paint_spinner--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3263,11 +3263,11 @@ CUInt -> -- state_type : TInterface "Gtk" "StateType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8- Word32 -> -- step : TBasicType TUInt32- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Word32 -> -- step : TBasicType TUInt+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintSpinner ["(Since version 3.0)","Use gtk_render_activity() instead"]#-}@@ -3307,9 +3307,9 @@ -- function gtk_paint_slider--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3320,10 +3320,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt CUInt -> -- orientation : TInterface "Gtk" "Orientation" IO () @@ -3367,9 +3367,9 @@ -- function gtk_paint_shadow_gap--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3380,13 +3380,13 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt CUInt -> -- gap_side : TInterface "Gtk" "PositionType"- Int32 -> -- gap_x : TBasicType TInt32- Int32 -> -- gap_width : TBasicType TInt32+ Int32 -> -- gap_x : TBasicType TInt+ Int32 -> -- gap_width : TBasicType TInt IO () {-# DEPRECATED paintShadowGap ["(Since version 3.0)","Use gtk_render_frame_gap() instead"]#-}@@ -3431,9 +3431,9 @@ -- function gtk_paint_shadow--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3444,10 +3444,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintShadow ["(Since version 3.0)","Use gtk_render_frame() instead"]#-}@@ -3488,9 +3488,9 @@ -- function gtk_paint_resize_grip--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3501,10 +3501,10 @@ Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 CUInt -> -- edge : TInterface "Gdk" "WindowEdge"- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintResizeGrip ["(Since version 3.0)","Use gtk_render_handle() instead"]#-}@@ -3545,9 +3545,9 @@ -- function gtk_paint_option--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3558,10 +3558,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintOption ["(Since version 3.0)","Use gtk_render_option() instead"]#-}@@ -3602,9 +3602,9 @@ -- function gtk_paint_layout--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3615,8 +3615,8 @@ CInt -> -- use_text : TBasicType TBoolean Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt Ptr Pango.Layout -> -- layout : TInterface "Pango" "Layout" IO () @@ -3659,9 +3659,9 @@ -- function gtk_paint_hline--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x1", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x2", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x1", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x2", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3671,9 +3671,9 @@ CUInt -> -- state_type : TInterface "Gtk" "StateType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8- Int32 -> -- x1 : TBasicType TInt32- Int32 -> -- x2 : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32+ Int32 -> -- x1 : TBasicType TInt+ Int32 -> -- x2 : TBasicType TInt+ Int32 -> -- y : TBasicType TInt IO () {-# DEPRECATED paintHline ["(Since version 3.0)","Use gtk_render_line() instead"]#-}@@ -3711,9 +3711,9 @@ -- function gtk_paint_handle--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3724,10 +3724,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt CUInt -> -- orientation : TInterface "Gtk" "Orientation" IO () @@ -3771,9 +3771,9 @@ -- function gtk_paint_focus--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3783,10 +3783,10 @@ CUInt -> -- state_type : TInterface "Gtk" "StateType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintFocus ["(Since version 3.0)","Use gtk_render_focus() instead"]#-}@@ -3825,9 +3825,9 @@ -- function gtk_paint_flat_box--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3838,10 +3838,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintFlatBox ["(Since version 3.0)","Use gtk_render_frame() and gtk_render_background() instead"]#-}@@ -3882,9 +3882,9 @@ -- function gtk_paint_extension--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3895,10 +3895,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt CUInt -> -- gap_side : TInterface "Gtk" "PositionType" IO () @@ -3942,9 +3942,9 @@ -- function gtk_paint_expander--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expander_style", argType = TInterface "Gtk" "ExpanderStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expander_style", argType = TInterface "Gtk" "ExpanderStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3954,8 +3954,8 @@ CUInt -> -- state_type : TInterface "Gtk" "StateType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt CUInt -> -- expander_style : TInterface "Gtk" "ExpanderStyle" IO () @@ -3995,9 +3995,9 @@ -- function gtk_paint_diamond--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4008,10 +4008,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintDiamond ["(Since version 3.0)","Use cairo instead"]#-}@@ -4052,9 +4052,9 @@ -- function gtk_paint_check--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4065,10 +4065,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintCheck ["(Since version 3.0)","Use gtk_render_check() instead"]#-}@@ -4109,9 +4109,9 @@ -- function gtk_paint_box_gap--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4122,13 +4122,13 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt CUInt -> -- gap_side : TInterface "Gtk" "PositionType"- Int32 -> -- gap_x : TBasicType TInt32- Int32 -> -- gap_width : TBasicType TInt32+ Int32 -> -- gap_x : TBasicType TInt+ Int32 -> -- gap_width : TBasicType TInt IO () {-# DEPRECATED paintBoxGap ["(Since version 3.0)","Use gtk_render_frame_gap() instead"]#-}@@ -4173,9 +4173,9 @@ -- function gtk_paint_box--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4186,10 +4186,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintBox ["(Since version 3.0)","Use gtk_render_frame() and gtk_render_background() instead"]#-}@@ -4230,9 +4230,9 @@ -- function gtk_paint_arrow--- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4245,10 +4245,10 @@ CString -> -- detail : TBasicType TUTF8 CUInt -> -- arrow_type : TInterface "Gtk" "ArrowType" CInt -> -- fill : TBasicType TBoolean- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintArrow ["(Since version 3.0)","Use gtk_render_arrow() instead"]#-}@@ -4295,7 +4295,7 @@ -- function gtk_main_quit -- Args : [] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4314,7 +4314,7 @@ -- function gtk_main_level -- Args : [] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -4333,7 +4333,7 @@ -- function gtk_main_iteration_do -- Args : [Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4356,7 +4356,7 @@ -- function gtk_main_iteration -- Args : [] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4376,7 +4376,7 @@ -- function gtk_main_do_event -- Args : [Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4399,7 +4399,7 @@ -- function gtk_main -- Args : [] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4416,14 +4416,14 @@ -- function gtk_key_snooper_remove--- Args : [Arg {argCName = "snooper_handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "snooper_handler_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_key_snooper_remove" gtk_key_snooper_remove :: - Word32 -> -- snooper_handler_id : TBasicType TUInt32+ Word32 -> -- snooper_handler_id : TBasicType TUInt IO () {-# DEPRECATED keySnooperRemove ["(Since version 3.4)","Key snooping should not be done. Events should"," be handled by widgets."]#-}@@ -4437,14 +4437,14 @@ -- function gtk_init_with_args--- Args : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "parameter_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entries", argType = TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : TBasicType TBoolean+-- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "parameter_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entries", argType = TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False foreign import ccall "gtk_init_with_args" gtk_init_with_args :: - Ptr Int32 -> -- argc : TBasicType TInt32+ Ptr Int32 -> -- argc : TBasicType TInt Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) CString -> -- parameter_string : TBasicType TUTF8 Ptr (Ptr GLib.OptionEntry) -> -- entries : TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry")@@ -4511,14 +4511,14 @@ -- function gtk_init_check--- Args : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : TBasicType TBoolean+-- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_init_check" gtk_init_check :: - Ptr Int32 -> -- argc : TBasicType TInt32+ Ptr Int32 -> -- argc : TBasicType TInt Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) IO CInt @@ -4555,14 +4555,14 @@ -- function gtk_init--- Args : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : TBasicType TVoid+-- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_init" gtk_init :: - Ptr Int32 -> -- argc : TBasicType TInt32+ Ptr Int32 -> -- argc : TBasicType TInt Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) IO () @@ -4600,7 +4600,7 @@ -- function gtk_grab_get_current -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -4610,18 +4610,19 @@ grabGetCurrent :: (MonadIO m) =>- m Widget -- result+ m (Maybe Widget) -- result grabGetCurrent = liftIO $ do result <- gtk_grab_get_current- checkUnexpectedReturnNULL "gtk_grab_get_current" result- result' <- (newObject Widget) result- return result'+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (newObject Widget) result'+ return result''+ return maybeResult -- function gtk_get_option_group -- Args : [Arg {argCName = "open_default_display", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GLib" "OptionGroup"+-- returnType : Just (TInterface "GLib" "OptionGroup") -- throws : False -- Skip return : False @@ -4645,7 +4646,7 @@ -- function gtk_get_minor_version -- Args : [] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -4664,7 +4665,7 @@ -- function gtk_get_micro_version -- Args : [] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -4683,7 +4684,7 @@ -- function gtk_get_major_version -- Args : [] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -4702,7 +4703,7 @@ -- function gtk_get_locale_direction -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "TextDirection"+-- returnType : Just (TInterface "Gtk" "TextDirection") -- throws : False -- Skip return : False @@ -4722,7 +4723,7 @@ -- function gtk_get_interface_age -- Args : [] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -4741,7 +4742,7 @@ -- function gtk_get_event_widget -- Args : [Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -4753,20 +4754,21 @@ getEventWidget :: (MonadIO m) => Gdk.Event -- event- -> m Widget -- result+ -> m (Maybe Widget) -- result getEventWidget event = liftIO $ do let event' = unsafeManagedPtrGetPtr event result <- gtk_get_event_widget event'- checkUnexpectedReturnNULL "gtk_get_event_widget" result- result' <- (newObject Widget) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (newObject Widget) result'+ return result'' touchManagedPtr event- return result'+ return maybeResult -- function gtk_get_default_language -- Args : [] -- Lengths : []--- returnType : TInterface "Pango" "Language"+-- returnType : Just (TInterface "Pango" "Language") -- throws : False -- Skip return : False @@ -4787,7 +4789,7 @@ -- function gtk_get_debug_flags -- Args : [] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -4806,7 +4808,7 @@ -- function gtk_get_current_event_time -- Args : [] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt32) -- throws : False -- Skip return : False @@ -4825,7 +4827,7 @@ -- function gtk_get_current_event_state -- Args : [Arg {argCName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4850,7 +4852,7 @@ -- function gtk_get_current_event_device -- Args : [] -- Lengths : []--- returnType : TInterface "Gdk" "Device"+-- returnType : Just (TInterface "Gdk" "Device") -- throws : False -- Skip return : False @@ -4860,18 +4862,19 @@ getCurrentEventDevice :: (MonadIO m) =>- m Gdk.Device -- result+ m (Maybe Gdk.Device) -- result getCurrentEventDevice = liftIO $ do result <- gtk_get_current_event_device- checkUnexpectedReturnNULL "gtk_get_current_event_device" result- result' <- (newObject Gdk.Device) result- return result'+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (newObject Gdk.Device) result'+ return result''+ return maybeResult -- function gtk_get_current_event -- Args : [] -- Lengths : []--- returnType : TInterface "Gdk" "Event"+-- returnType : Just (TInterface "Gdk" "Event") -- throws : False -- Skip return : False @@ -4881,18 +4884,19 @@ getCurrentEvent :: (MonadIO m) =>- m Gdk.Event -- result+ m (Maybe Gdk.Event) -- result getCurrentEvent = liftIO $ do result <- gtk_get_current_event- checkUnexpectedReturnNULL "gtk_get_current_event" result- result' <- (wrapBoxed Gdk.Event) result- return result'+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (wrapBoxed Gdk.Event) result'+ return result''+ return maybeResult -- function gtk_get_binary_age -- Args : [] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -4911,7 +4915,7 @@ -- function gtk_false -- Args : [] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4931,7 +4935,7 @@ -- function gtk_events_pending -- Args : [] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4951,7 +4955,7 @@ -- function gtk_draw_insertion_cursor -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_primary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_arrow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4989,17 +4993,17 @@ -- function gtk_drag_set_icon_widget--- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_drag_set_icon_widget" gtk_drag_set_icon_widget :: Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" Ptr Widget -> -- widget : TInterface "Gtk" "Widget"- Int32 -> -- hot_x : TBasicType TInt32- Int32 -> -- hot_y : TBasicType TInt32+ Int32 -> -- hot_x : TBasicType TInt+ Int32 -> -- hot_y : TBasicType TInt IO () @@ -5022,7 +5026,7 @@ -- function gtk_drag_set_icon_surface -- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -5047,17 +5051,17 @@ -- function gtk_drag_set_icon_stock--- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_drag_set_icon_stock" gtk_drag_set_icon_stock :: Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" CString -> -- stock_id : TBasicType TUTF8- Int32 -> -- hot_x : TBasicType TInt32- Int32 -> -- hot_y : TBasicType TInt32+ Int32 -> -- hot_x : TBasicType TInt+ Int32 -> -- hot_y : TBasicType TInt IO () {-# DEPRECATED dragSetIconStock ["(Since version 3.10)","Use gtk_drag_set_icon_name() instead."]#-}@@ -5078,17 +5082,17 @@ -- function gtk_drag_set_icon_pixbuf--- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_drag_set_icon_pixbuf" gtk_drag_set_icon_pixbuf :: Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"- Int32 -> -- hot_x : TBasicType TInt32- Int32 -> -- hot_y : TBasicType TInt32+ Int32 -> -- hot_x : TBasicType TInt+ Int32 -> -- hot_y : TBasicType TInt IO () @@ -5109,17 +5113,17 @@ -- function gtk_drag_set_icon_name--- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_drag_set_icon_name" gtk_drag_set_icon_name :: Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" CString -> -- icon_name : TBasicType TUTF8- Int32 -> -- hot_x : TBasicType TInt32- Int32 -> -- hot_y : TBasicType TInt32+ Int32 -> -- hot_x : TBasicType TInt+ Int32 -> -- hot_y : TBasicType TInt IO () @@ -5140,17 +5144,17 @@ -- function gtk_drag_set_icon_gicon--- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_drag_set_icon_gicon" gtk_drag_set_icon_gicon :: Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon"- Int32 -> -- hot_x : TBasicType TInt32- Int32 -> -- hot_y : TBasicType TInt32+ Int32 -> -- hot_x : TBasicType TInt+ Int32 -> -- hot_y : TBasicType TInt IO () @@ -5173,7 +5177,7 @@ -- function gtk_drag_set_icon_default -- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -5196,7 +5200,7 @@ -- function gtk_drag_get_source_widget -- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -5221,7 +5225,7 @@ -- function gtk_drag_finish -- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "success", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "del", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -5238,13 +5242,13 @@ a -- context -> Bool -- success -> Bool -- del- -> Word32 -- time+ -> Word32 -- time_ -> m () -- result-dragFinish context success del time = liftIO $ do+dragFinish context success del time_ = liftIO $ do let context' = unsafeManagedPtrCastPtr context let success' = (fromIntegral . fromEnum) success let del' = (fromIntegral . fromEnum) del- gtk_drag_finish context' success' del' time+ gtk_drag_finish context' success' del' time_ touchManagedPtr context return () @@ -5252,7 +5256,7 @@ -- function gtk_drag_cancel -- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -5273,15 +5277,15 @@ -- function gtk_distribute_natural_allocation--- Args : [Arg {argCName = "extra_space", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_requested_sizes", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sizes", argType = TInterface "Gtk" "RequestedSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "extra_space", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_requested_sizes", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sizes", argType = TInterface "Gtk" "RequestedSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_distribute_natural_allocation" gtk_distribute_natural_allocation :: - Int32 -> -- extra_space : TBasicType TInt32- Word32 -> -- n_requested_sizes : TBasicType TUInt32+ Int32 -> -- extra_space : TBasicType TInt+ Word32 -> -- n_requested_sizes : TBasicType TUInt Ptr RequestedSize -> -- sizes : TInterface "Gtk" "RequestedSize" IO Int32 @@ -5302,7 +5306,7 @@ -- function gtk_disable_setlocale -- Args : [] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -5321,7 +5325,7 @@ -- function gtk_device_grab_remove -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -5348,7 +5352,7 @@ -- function gtk_device_grab_add -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "block_others", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -5376,16 +5380,16 @@ -- function gtk_check_version--- Args : [Arg {argCName = "required_major", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_minor", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_micro", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "required_major", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_minor", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_micro", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_check_version" gtk_check_version :: - Word32 -> -- required_major : TBasicType TUInt32- Word32 -> -- required_minor : TBasicType TUInt32- Word32 -> -- required_micro : TBasicType TUInt32+ Word32 -> -- required_major : TBasicType TUInt+ Word32 -> -- required_minor : TBasicType TUInt+ Word32 -> -- required_micro : TBasicType TUInt IO CString @@ -5405,7 +5409,7 @@ -- function gtk_cairo_transform_to_window -- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -5436,7 +5440,7 @@ -- function gtk_cairo_should_draw_window -- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -5464,7 +5468,7 @@ -- function gtk_bindings_activate_event -- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -5490,15 +5494,15 @@ -- function gtk_bindings_activate--- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_bindings_activate" gtk_bindings_activate :: Ptr GObject.Object -> -- object : TInterface "GObject" "Object"- Word32 -> -- keyval : TBasicType TUInt32+ Word32 -> -- keyval : TBasicType TUInt CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" IO CInt @@ -5521,7 +5525,7 @@ -- function gtk_alternative_dialog_button_order -- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -5547,14 +5551,14 @@ -- function gtk_accelerator_valid--- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_accelerator_valid" gtk_accelerator_valid :: - Word32 -> -- keyval : TBasicType TUInt32+ Word32 -> -- keyval : TBasicType TUInt CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" IO CInt @@ -5574,7 +5578,7 @@ -- function gtk_accelerator_set_default_mod_mask -- Args : [Arg {argCName = "default_mod_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -5594,16 +5598,16 @@ -- function gtk_accelerator_parse_with_keycode--- Args : [Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_codes", argType = TCArray True (-1) (-1) (TBasicType TUInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_codes", argType = TCArray True (-1) (-1) (TBasicType TUInt), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accelerator_parse_with_keycode" gtk_accelerator_parse_with_keycode :: CString -> -- accelerator : TBasicType TUTF8- Ptr Word32 -> -- accelerator_key : TBasicType TUInt32- Ptr (Ptr Word32) -> -- accelerator_codes : TCArray True (-1) (-1) (TBasicType TUInt32)+ Ptr Word32 -> -- accelerator_key : TBasicType TUInt+ Ptr (Ptr Word32) -> -- accelerator_codes : TCArray True (-1) (-1) (TBasicType TUInt) Ptr CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" IO () @@ -5632,15 +5636,15 @@ -- function gtk_accelerator_parse--- Args : [Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accelerator_parse" gtk_accelerator_parse :: CString -> -- accelerator : TBasicType TUTF8- Ptr Word32 -> -- accelerator_key : TBasicType TUInt32+ Ptr Word32 -> -- accelerator_key : TBasicType TUInt Ptr CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" IO () @@ -5664,16 +5668,16 @@ -- function gtk_accelerator_name_with_keycode--- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keycode", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_accelerator_name_with_keycode" gtk_accelerator_name_with_keycode :: Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display"- Word32 -> -- accelerator_key : TBasicType TUInt32- Word32 -> -- keycode : TBasicType TUInt32+ Word32 -> -- accelerator_key : TBasicType TUInt+ Word32 -> -- keycode : TBasicType TUInt CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" IO CString @@ -5701,14 +5705,14 @@ -- function gtk_accelerator_name--- Args : [Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_accelerator_name" gtk_accelerator_name :: - Word32 -> -- accelerator_key : TBasicType TUInt32+ Word32 -> -- accelerator_key : TBasicType TUInt CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" IO CString @@ -5728,16 +5732,16 @@ -- function gtk_accelerator_get_label_with_keycode--- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keycode", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_accelerator_get_label_with_keycode" gtk_accelerator_get_label_with_keycode :: Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display"- Word32 -> -- accelerator_key : TBasicType TUInt32- Word32 -> -- keycode : TBasicType TUInt32+ Word32 -> -- accelerator_key : TBasicType TUInt+ Word32 -> -- keycode : TBasicType TUInt CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" IO CString @@ -5765,14 +5769,14 @@ -- function gtk_accelerator_get_label--- Args : [Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_accelerator_get_label" gtk_accelerator_get_label :: - Word32 -> -- accelerator_key : TBasicType TUInt32+ Word32 -> -- accelerator_key : TBasicType TUInt CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" IO CString @@ -5794,7 +5798,7 @@ -- function gtk_accelerator_get_default_mod_mask -- Args : [] -- Lengths : []--- returnType : TInterface "Gdk" "ModifierType"+-- returnType : Just (TInterface "Gdk" "ModifierType") -- throws : False -- Skip return : False @@ -5814,7 +5818,7 @@ -- function gtk_accel_groups_from_object -- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TInterface "Gtk" "AccelGroup")+-- returnType : Just (TGSList (TInterface "Gtk" "AccelGroup")) -- throws : False -- Skip return : False @@ -5830,7 +5834,6 @@ accelGroupsFromObject object = liftIO $ do let object' = unsafeManagedPtrCastPtr object result <- gtk_accel_groups_from_object object'- checkUnexpectedReturnNULL "gtk_accel_groups_from_object" result result' <- unpackGSList result result'' <- mapM (newObject AccelGroup) result' touchManagedPtr object@@ -5838,15 +5841,15 @@ -- function gtk_accel_groups_activate--- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_accel_groups_activate" gtk_accel_groups_activate :: Ptr GObject.Object -> -- object : TInterface "GObject" "Object"- Word32 -> -- accel_key : TBasicType TUInt32+ Word32 -> -- accel_key : TBasicType TUInt CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" IO CInt
@@ -54,9 +54,9 @@ import GI.Gtk.Interfaces.TreeModel import GI.Gtk.Interfaces.TreeSortable -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -47,6 +47,7 @@ -- * Properties -- ** ActionName ActionableActionNamePropertyInfo ,+ actionableActionName , constructActionableActionName , getActionableActionName , setActionableActionName ,@@ -54,6 +55,8 @@ -- ** ActionTarget ActionableActionTargetPropertyInfo ,+ actionableActionTarget ,+ clearActionableActionTarget , constructActionableActionTarget , getActionableActionTarget , setActionableActionTarget ,@@ -63,9 +66,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -384,15 +387,16 @@ -- VVV Prop "action-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getActionableActionName :: (MonadIO m, ActionableK o) => o -> m T.Text-getActionableActionName obj = liftIO $ getObjectPropertyString obj "action-name"+getActionableActionName obj = liftIO $ checkUnexpectedNothing "getActionableActionName" $ getObjectPropertyString obj "action-name" setActionableActionName :: (MonadIO m, ActionableK o) => o -> T.Text -> m ()-setActionableActionName obj val = liftIO $ setObjectPropertyString obj "action-name" val+setActionableActionName obj val = liftIO $ setObjectPropertyString obj "action-name" (Just val) constructActionableActionName :: T.Text -> IO ([Char], GValue)-constructActionableActionName val = constructObjectPropertyString "action-name" val+constructActionableActionName val = constructObjectPropertyString "action-name" (Just val) data ActionableActionNamePropertyInfo instance AttrInfo ActionableActionNamePropertyInfo where@@ -404,34 +408,46 @@ attrGet _ = getActionableActionName attrSet _ = setActionableActionName attrConstruct _ = constructActionableActionName+ attrClear _ = undefined -- VVV Prop "action-target" -- Type: TVariant -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getActionableActionTarget :: (MonadIO m, ActionableK o) => o -> m GVariant+getActionableActionTarget :: (MonadIO m, ActionableK o) => o -> m (Maybe GVariant) getActionableActionTarget obj = liftIO $ getObjectPropertyVariant obj "action-target" setActionableActionTarget :: (MonadIO m, ActionableK o) => o -> GVariant -> m ()-setActionableActionTarget obj val = liftIO $ setObjectPropertyVariant obj "action-target" val+setActionableActionTarget obj val = liftIO $ setObjectPropertyVariant obj "action-target" (Just val) constructActionableActionTarget :: GVariant -> IO ([Char], GValue)-constructActionableActionTarget val = constructObjectPropertyVariant "action-target" val+constructActionableActionTarget val = constructObjectPropertyVariant "action-target" (Just val) +clearActionableActionTarget :: (MonadIO m, ActionableK o) => o -> m ()+clearActionableActionTarget obj = liftIO $ setObjectPropertyVariant obj "action-target" (Nothing :: Maybe GVariant)+ data ActionableActionTargetPropertyInfo instance AttrInfo ActionableActionTargetPropertyInfo where- type AttrAllowedOps ActionableActionTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ActionableActionTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ActionableActionTargetPropertyInfo = (~) GVariant type AttrBaseTypeConstraint ActionableActionTargetPropertyInfo = ActionableK- type AttrGetType ActionableActionTargetPropertyInfo = GVariant+ type AttrGetType ActionableActionTargetPropertyInfo = (Maybe GVariant) type AttrLabel ActionableActionTargetPropertyInfo = "action-target" attrGet _ = getActionableActionTarget attrSet _ = setActionableActionTarget attrConstruct _ = constructActionableActionTarget+ attrClear _ = clearActionableActionTarget type instance AttributeList Actionable = ActionableAttributeList type ActionableAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +actionableActionName :: AttrLabelProxy "actionName"+actionableActionName = AttrLabelProxy++actionableActionTarget :: AttrLabelProxy "actionTarget"+actionableActionTarget = AttrLabelProxy+ type instance SignalList Actionable = ActionableSignalList type ActionableSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -456,7 +472,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -485,7 +501,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TVariant+-- returnType : Just TVariant -- throws : False -- Skip return : False @@ -514,7 +530,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -545,7 +561,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -575,7 +591,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.Actionable where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -52,6 +52,7 @@ -- * Properties -- ** RelatedAction ActivatableRelatedActionPropertyInfo ,+ activatableRelatedAction , constructActivatableRelatedAction , getActivatableRelatedAction , setActivatableRelatedAction ,@@ -59,6 +60,7 @@ -- ** UseActionAppearance ActivatableUseActionAppearancePropertyInfo,+ activatableUseActionAppearance , constructActivatableUseActionAppearance , getActivatableUseActionAppearance , setActivatableUseActionAppearance ,@@ -68,9 +70,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -127,15 +129,16 @@ -- VVV Prop "related-action" -- Type: TInterface "Gtk" "Action" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getActivatableRelatedAction :: (MonadIO m, ActivatableK o) => o -> m Action-getActivatableRelatedAction obj = liftIO $ getObjectPropertyObject obj "related-action" Action+getActivatableRelatedAction obj = liftIO $ checkUnexpectedNothing "getActivatableRelatedAction" $ getObjectPropertyObject obj "related-action" Action setActivatableRelatedAction :: (MonadIO m, ActivatableK o, ActionK a) => o -> a -> m ()-setActivatableRelatedAction obj val = liftIO $ setObjectPropertyObject obj "related-action" val+setActivatableRelatedAction obj val = liftIO $ setObjectPropertyObject obj "related-action" (Just val) constructActivatableRelatedAction :: (ActionK a) => a -> IO ([Char], GValue)-constructActivatableRelatedAction val = constructObjectPropertyObject "related-action" val+constructActivatableRelatedAction val = constructObjectPropertyObject "related-action" (Just val) data ActivatableRelatedActionPropertyInfo instance AttrInfo ActivatableRelatedActionPropertyInfo where@@ -147,10 +150,12 @@ attrGet _ = getActivatableRelatedAction attrSet _ = setActivatableRelatedAction attrConstruct _ = constructActivatableRelatedAction+ attrClear _ = undefined -- VVV Prop "use-action-appearance" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getActivatableUseActionAppearance :: (MonadIO m, ActivatableK o) => o -> m Bool getActivatableUseActionAppearance obj = liftIO $ getObjectPropertyBool obj "use-action-appearance"@@ -171,10 +176,17 @@ attrGet _ = getActivatableUseActionAppearance attrSet _ = setActivatableUseActionAppearance attrConstruct _ = constructActivatableUseActionAppearance+ attrClear _ = undefined type instance AttributeList Activatable = ActivatableAttributeList type ActivatableAttributeList = ('[ '("relatedAction", ActivatableRelatedActionPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo)] :: [(Symbol, *)]) +activatableRelatedAction :: AttrLabelProxy "relatedAction"+activatableRelatedAction = AttrLabelProxy++activatableUseActionAppearance :: AttrLabelProxy "useActionAppearance"+activatableUseActionAppearance = AttrLabelProxy+ type instance SignalList Activatable = ActivatableSignalList type ActivatableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -199,7 +211,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -230,7 +242,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Action"+-- returnType : Just (TInterface "Gtk" "Action") -- throws : False -- Skip return : False @@ -259,7 +271,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -287,7 +299,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -318,7 +330,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_appearance", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -348,7 +360,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.Activatable where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -37,6 +37,7 @@ -- * Properties -- ** ContentType AppChooserContentTypePropertyInfo ,+ appChooserContentType , constructAppChooserContentType , getAppChooserContentType , @@ -45,9 +46,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -365,27 +366,32 @@ -- VVV Prop "content-type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+ -- Nullable: (Nothing,Nothing) -getAppChooserContentType :: (MonadIO m, AppChooserK o) => o -> m T.Text+getAppChooserContentType :: (MonadIO m, AppChooserK o) => o -> m (Maybe T.Text) getAppChooserContentType obj = liftIO $ getObjectPropertyString obj "content-type" constructAppChooserContentType :: T.Text -> IO ([Char], GValue)-constructAppChooserContentType val = constructObjectPropertyString "content-type" val+constructAppChooserContentType val = constructObjectPropertyString "content-type" (Just val) data AppChooserContentTypePropertyInfo instance AttrInfo AppChooserContentTypePropertyInfo where- type AttrAllowedOps AppChooserContentTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps AppChooserContentTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AppChooserContentTypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint AppChooserContentTypePropertyInfo = AppChooserK- type AttrGetType AppChooserContentTypePropertyInfo = T.Text+ type AttrGetType AppChooserContentTypePropertyInfo = (Maybe T.Text) type AttrLabel AppChooserContentTypePropertyInfo = "content-type" attrGet _ = getAppChooserContentType attrSet _ = undefined attrConstruct _ = constructAppChooserContentType+ attrClear _ = undefined type instance AttributeList AppChooser = AppChooserAttributeList type AppChooserAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("contentType", AppChooserContentTypePropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +appChooserContentType :: AttrLabelProxy "contentType"+appChooserContentType = AttrLabelProxy+ type instance SignalList AppChooser = AppChooserSignalList type AppChooserSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -410,7 +416,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "AppInfo"+-- returnType : Just (TInterface "Gio" "AppInfo") -- throws : False -- Skip return : False @@ -439,7 +445,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -469,7 +475,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.AppChooser where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -71,9 +71,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -159,7 +159,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -202,7 +202,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GObject" "Object"+-- returnType : Just (TInterface "GObject" "Object") -- throws : False -- Skip return : False @@ -237,9 +237,9 @@ -- method Buildable::custom_finished -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -248,7 +248,7 @@ Ptr Builder -> -- builder : TInterface "Gtk" "Builder" Ptr GObject.Object -> -- child : TInterface "GObject" "Object" CString -> -- tagname : TBasicType TUTF8- Ptr () -> -- data : TBasicType TVoid+ Ptr () -> -- data : TBasicType TPtr IO () @@ -282,9 +282,9 @@ -- method Buildable::custom_tag_end -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -293,7 +293,7 @@ Ptr Builder -> -- builder : TInterface "Gtk" "Builder" Ptr GObject.Object -> -- child : TInterface "GObject" "Object" CString -> -- tagname : TBasicType TUTF8- Ptr () -> -- data : TBasicType TVoid+ Ptr () -> -- data : TBasicType TPtr IO () @@ -327,9 +327,9 @@ -- method Buildable::custom_tag_start -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -339,7 +339,7 @@ Ptr GObject.Object -> -- child : TInterface "GObject" "Object" CString -> -- tagname : TBasicType TUTF8 Ptr GLib.MarkupParser -> -- parser : TInterface "GLib" "MarkupParser"- Ptr (Ptr ()) -> -- data : TBasicType TVoid+ Ptr (Ptr ()) -> -- data : TBasicType TPtr IO CInt @@ -380,7 +380,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "childname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GObject" "Object"+-- returnType : Just (TInterface "GObject" "Object") -- throws : False -- Skip return : False @@ -417,7 +417,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -446,7 +446,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -477,7 +477,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -516,7 +516,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.Buildable where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -65,9 +65,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -118,7 +118,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -149,7 +149,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -180,7 +180,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -211,7 +211,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -244,19 +244,19 @@ -- method CellAccessibleParent::get_cell_extents -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_accessible_parent_get_cell_extents" gtk_cell_accessible_parent_get_cell_extents :: Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent" Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible"- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt CUInt -> -- coord_type : TInterface "Atk" "CoordType" IO () @@ -288,7 +288,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -319,7 +319,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CellRendererState"+-- returnType : Just (TInterface "Gtk" "CellRendererState") -- throws : False -- Skip return : False @@ -351,7 +351,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -383,7 +383,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relationset", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.CellAccessibleParent where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -37,6 +37,7 @@ -- * Properties -- ** EditingCanceled CellEditableEditingCanceledPropertyInfo ,+ cellEditableEditingCanceled , constructCellEditableEditingCanceled , getCellEditableEditingCanceled , setCellEditableEditingCanceled ,@@ -73,9 +74,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -469,6 +470,7 @@ -- VVV Prop "editing-canceled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellEditableEditingCanceled :: (MonadIO m, CellEditableK o) => o -> m Bool getCellEditableEditingCanceled obj = liftIO $ getObjectPropertyBool obj "editing-canceled"@@ -489,10 +491,14 @@ attrGet _ = getCellEditableEditingCanceled attrSet _ = setCellEditableEditingCanceled attrConstruct _ = constructCellEditableEditingCanceled+ attrClear _ = undefined type instance AttributeList CellEditable = CellEditableAttributeList type CellEditableAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +cellEditableEditingCanceled :: AttrLabelProxy "editingCanceled"+cellEditableEditingCanceled = AttrLabelProxy+ data CellEditableEditingDoneSignalInfo instance SignalInfo CellEditableEditingDoneSignalInfo where type HaskellCallbackType CellEditableEditingDoneSignalInfo = CellEditableEditingDoneCallback@@ -527,7 +533,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -554,7 +560,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -581,7 +587,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.CellEditable where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -66,9 +66,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -151,9 +151,9 @@ -- method CellLayout::add_attribute -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -161,7 +161,7 @@ Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout" Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" CString -> -- attribute : TBasicType TUTF8- Int32 -> -- column : TBasicType TInt32+ Int32 -> -- column : TBasicType TInt IO () @@ -190,7 +190,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -217,7 +217,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -248,7 +248,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CellArea"+-- returnType : Just (TInterface "Gtk" "CellArea") -- throws : False -- Skip return : False @@ -260,24 +260,25 @@ cellLayoutGetArea :: (MonadIO m, CellLayoutK a) => a -- _obj- -> m CellArea -- result+ -> m (Maybe CellArea) -- result cellLayoutGetArea _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_layout_get_area _obj'- checkUnexpectedReturnNULL "gtk_cell_layout_get_area" result- result' <- (newObject CellArea) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (newObject CellArea) result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data CellLayoutGetAreaMethodInfo-instance (signature ~ (m CellArea), MonadIO m, CellLayoutK a) => MethodInfo CellLayoutGetAreaMethodInfo a signature where+instance (signature ~ (m (Maybe CellArea)), MonadIO m, CellLayoutK a) => MethodInfo CellLayoutGetAreaMethodInfo a signature where overloadedMethod _ = cellLayoutGetArea -- method CellLayout::get_cells -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Gtk" "CellRenderer")+-- returnType : Just (TGList (TInterface "Gtk" "CellRenderer")) -- throws : False -- Skip return : False @@ -293,7 +294,6 @@ cellLayoutGetCells _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_layout_get_cells _obj'- checkUnexpectedReturnNULL "gtk_cell_layout_get_cells" result result' <- unpackGList result result'' <- mapM (newObject CellRenderer) result' g_list_free result@@ -308,7 +308,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -342,7 +342,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -374,16 +374,16 @@ -- method CellLayout::reorder -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_layout_reorder" gtk_cell_layout_reorder :: Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout" Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt IO () @@ -407,9 +407,9 @@ -- method CellLayout::set_cell_data_func -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "CellLayoutDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "CellLayoutDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -417,7 +417,7 @@ Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout" Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" FunPtr CellLayoutDataFuncC -> -- func : TInterface "Gtk" "CellLayoutDataFunc"- Ptr () -> -- func_data : TBasicType TVoid+ Ptr () -> -- func_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO ()
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.CellLayout where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -47,6 +47,7 @@ -- * Properties -- ** Rgba ColorChooserRgbaPropertyInfo ,+ colorChooserRgba , constructColorChooserRgba , getColorChooserRgba , setColorChooserRgba ,@@ -54,6 +55,7 @@ -- ** UseAlpha ColorChooserUseAlphaPropertyInfo ,+ colorChooserUseAlpha , constructColorChooserUseAlpha , getColorChooserUseAlpha , setColorChooserUseAlpha ,@@ -78,9 +80,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -179,30 +181,33 @@ -- VVV Prop "rgba" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just False) -getColorChooserRgba :: (MonadIO m, ColorChooserK o) => o -> m Gdk.RGBA+getColorChooserRgba :: (MonadIO m, ColorChooserK o) => o -> m (Maybe Gdk.RGBA) getColorChooserRgba obj = liftIO $ getObjectPropertyBoxed obj "rgba" Gdk.RGBA setColorChooserRgba :: (MonadIO m, ColorChooserK o) => o -> Gdk.RGBA -> m ()-setColorChooserRgba obj val = liftIO $ setObjectPropertyBoxed obj "rgba" val+setColorChooserRgba obj val = liftIO $ setObjectPropertyBoxed obj "rgba" (Just val) constructColorChooserRgba :: Gdk.RGBA -> IO ([Char], GValue)-constructColorChooserRgba val = constructObjectPropertyBoxed "rgba" val+constructColorChooserRgba val = constructObjectPropertyBoxed "rgba" (Just val) data ColorChooserRgbaPropertyInfo instance AttrInfo ColorChooserRgbaPropertyInfo where type AttrAllowedOps ColorChooserRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint ColorChooserRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint ColorChooserRgbaPropertyInfo = ColorChooserK- type AttrGetType ColorChooserRgbaPropertyInfo = Gdk.RGBA+ type AttrGetType ColorChooserRgbaPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel ColorChooserRgbaPropertyInfo = "rgba" attrGet _ = getColorChooserRgba attrSet _ = setColorChooserRgba attrConstruct _ = constructColorChooserRgba+ attrClear _ = undefined -- VVV Prop "use-alpha" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getColorChooserUseAlpha :: (MonadIO m, ColorChooserK o) => o -> m Bool getColorChooserUseAlpha obj = liftIO $ getObjectPropertyBool obj "use-alpha"@@ -223,10 +228,17 @@ attrGet _ = getColorChooserUseAlpha attrSet _ = setColorChooserUseAlpha attrConstruct _ = constructColorChooserUseAlpha+ attrClear _ = undefined type instance AttributeList ColorChooser = ColorChooserAttributeList type ColorChooserAttributeList = ('[ '("rgba", ColorChooserRgbaPropertyInfo), '("useAlpha", ColorChooserUseAlphaPropertyInfo)] :: [(Symbol, *)]) +colorChooserRgba :: AttrLabelProxy "rgba"+colorChooserRgba = AttrLabelProxy++colorChooserUseAlpha :: AttrLabelProxy "useAlpha"+colorChooserUseAlpha = AttrLabelProxy+ data ColorChooserColorActivatedSignalInfo instance SignalInfo ColorChooserColorActivatedSignalInfo where type HaskellCallbackType ColorChooserColorActivatedSignalInfo = ColorChooserColorActivatedCallback@@ -254,17 +266,17 @@ -- method ColorChooser::add_palette -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors_per_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors", argType = TCArray False (-1) 3 (TInterface "Gdk" "RGBA"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TVoid+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors_per_line", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors", argType = TCArray False (-1) 3 (TInterface "Gdk" "RGBA"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_color_chooser_add_palette" gtk_color_chooser_add_palette :: Ptr ColorChooser -> -- _obj : TInterface "Gtk" "ColorChooser" CUInt -> -- orientation : TInterface "Gtk" "Orientation"- Int32 -> -- colors_per_line : TBasicType TInt32- Int32 -> -- n_colors : TBasicType TInt32+ Int32 -> -- colors_per_line : TBasicType TInt+ Int32 -> -- n_colors : TBasicType TInt Ptr Gdk.RGBA -> -- colors : TCArray False (-1) 3 (TInterface "Gdk" "RGBA") IO () @@ -302,7 +314,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -332,7 +344,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -360,7 +372,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -391,7 +403,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.ColorChooser where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -124,9 +124,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -326,7 +326,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -353,7 +353,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -380,7 +380,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -405,16 +405,16 @@ -- method Editable::delete_text -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_editable_delete_text" gtk_editable_delete_text :: Ptr Editable -> -- _obj : TInterface "Gtk" "Editable"- Int32 -> -- start_pos : TBasicType TInt32- Int32 -> -- end_pos : TBasicType TInt32+ Int32 -> -- start_pos : TBasicType TInt+ Int32 -> -- end_pos : TBasicType TInt IO () @@ -436,16 +436,16 @@ -- method Editable::get_chars -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_editable_get_chars" gtk_editable_get_chars :: Ptr Editable -> -- _obj : TInterface "Gtk" "Editable"- Int32 -> -- start_pos : TBasicType TInt32- Int32 -> -- end_pos : TBasicType TInt32+ Int32 -> -- start_pos : TBasicType TInt+ Int32 -> -- end_pos : TBasicType TInt IO CString @@ -472,7 +472,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -500,7 +500,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -525,16 +525,16 @@ -- method Editable::get_selection_bounds -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_pos", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_editable_get_selection_bounds" gtk_editable_get_selection_bounds :: Ptr Editable -> -- _obj : TInterface "Gtk" "Editable"- Ptr Int32 -> -- start_pos : TBasicType TInt32- Ptr Int32 -> -- end_pos : TBasicType TInt32+ Ptr Int32 -> -- start_pos : TBasicType TInt+ Ptr Int32 -> -- end_pos : TBasicType TInt IO CInt @@ -561,17 +561,17 @@ -- method Editable::insert_text -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_text_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_text_length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_editable_insert_text" gtk_editable_insert_text :: Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" CString -> -- new_text : TBasicType TUTF8- Int32 -> -- new_text_length : TBasicType TInt32- Ptr Int32 -> -- position : TBasicType TInt32+ Int32 -> -- new_text_length : TBasicType TInt+ Ptr Int32 -> -- position : TBasicType TInt IO () @@ -602,7 +602,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -627,16 +627,16 @@ -- method Editable::select_region -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_editable_select_region" gtk_editable_select_region :: Ptr Editable -> -- _obj : TInterface "Gtk" "Editable"- Int32 -> -- start_pos : TBasicType TInt32- Int32 -> -- end_pos : TBasicType TInt32+ Int32 -> -- start_pos : TBasicType TInt+ Int32 -> -- end_pos : TBasicType TInt IO () @@ -660,7 +660,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -688,15 +688,15 @@ -- method Editable::set_position -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_editable_set_position" gtk_editable_set_position :: Ptr Editable -> -- _obj : TInterface "Gtk" "Editable"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt IO ()
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.Editable where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -318,6 +318,7 @@ -- ** Action FileChooserActionPropertyInfo , constructFileChooserAction ,+ fileChooserAction , getFileChooserAction , setFileChooserAction , @@ -325,6 +326,7 @@ -- ** CreateFolders FileChooserCreateFoldersPropertyInfo , constructFileChooserCreateFolders ,+ fileChooserCreateFolders , getFileChooserCreateFolders , setFileChooserCreateFolders , @@ -332,6 +334,7 @@ -- ** DoOverwriteConfirmation FileChooserDoOverwriteConfirmationPropertyInfo, constructFileChooserDoOverwriteConfirmation,+ fileChooserDoOverwriteConfirmation , getFileChooserDoOverwriteConfirmation , setFileChooserDoOverwriteConfirmation , @@ -339,6 +342,7 @@ -- ** ExtraWidget FileChooserExtraWidgetPropertyInfo , constructFileChooserExtraWidget ,+ fileChooserExtraWidget , getFileChooserExtraWidget , setFileChooserExtraWidget , @@ -346,6 +350,7 @@ -- ** Filter FileChooserFilterPropertyInfo , constructFileChooserFilter ,+ fileChooserFilter , getFileChooserFilter , setFileChooserFilter , @@ -353,6 +358,7 @@ -- ** LocalOnly FileChooserLocalOnlyPropertyInfo , constructFileChooserLocalOnly ,+ fileChooserLocalOnly , getFileChooserLocalOnly , setFileChooserLocalOnly , @@ -360,6 +366,7 @@ -- ** PreviewWidget FileChooserPreviewWidgetPropertyInfo , constructFileChooserPreviewWidget ,+ fileChooserPreviewWidget , getFileChooserPreviewWidget , setFileChooserPreviewWidget , @@ -367,6 +374,7 @@ -- ** PreviewWidgetActive FileChooserPreviewWidgetActivePropertyInfo, constructFileChooserPreviewWidgetActive ,+ fileChooserPreviewWidgetActive , getFileChooserPreviewWidgetActive , setFileChooserPreviewWidgetActive , @@ -374,6 +382,7 @@ -- ** SelectMultiple FileChooserSelectMultiplePropertyInfo , constructFileChooserSelectMultiple ,+ fileChooserSelectMultiple , getFileChooserSelectMultiple , setFileChooserSelectMultiple , @@ -381,6 +390,7 @@ -- ** ShowHidden FileChooserShowHiddenPropertyInfo , constructFileChooserShowHidden ,+ fileChooserShowHidden , getFileChooserShowHidden , setFileChooserShowHidden , @@ -388,6 +398,7 @@ -- ** UsePreviewLabel FileChooserUsePreviewLabelPropertyInfo , constructFileChooserUsePreviewLabel ,+ fileChooserUsePreviewLabel , getFileChooserUsePreviewLabel , setFileChooserUsePreviewLabel , @@ -459,9 +470,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -1027,6 +1038,7 @@ -- VVV Prop "action" -- Type: TInterface "Gtk" "FileChooserAction" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFileChooserAction :: (MonadIO m, FileChooserK o) => o -> m FileChooserAction getFileChooserAction obj = liftIO $ getObjectPropertyEnum obj "action"@@ -1047,10 +1059,12 @@ attrGet _ = getFileChooserAction attrSet _ = setFileChooserAction attrConstruct _ = constructFileChooserAction+ attrClear _ = undefined -- VVV Prop "create-folders" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFileChooserCreateFolders :: (MonadIO m, FileChooserK o) => o -> m Bool getFileChooserCreateFolders obj = liftIO $ getObjectPropertyBool obj "create-folders"@@ -1071,10 +1085,12 @@ attrGet _ = getFileChooserCreateFolders attrSet _ = setFileChooserCreateFolders attrConstruct _ = constructFileChooserCreateFolders+ attrClear _ = undefined -- VVV Prop "do-overwrite-confirmation" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFileChooserDoOverwriteConfirmation :: (MonadIO m, FileChooserK o) => o -> m Bool getFileChooserDoOverwriteConfirmation obj = liftIO $ getObjectPropertyBool obj "do-overwrite-confirmation"@@ -1095,19 +1111,21 @@ attrGet _ = getFileChooserDoOverwriteConfirmation attrSet _ = setFileChooserDoOverwriteConfirmation attrConstruct _ = constructFileChooserDoOverwriteConfirmation+ attrClear _ = undefined -- VVV Prop "extra-widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFileChooserExtraWidget :: (MonadIO m, FileChooserK o) => o -> m Widget-getFileChooserExtraWidget obj = liftIO $ getObjectPropertyObject obj "extra-widget" Widget+getFileChooserExtraWidget obj = liftIO $ checkUnexpectedNothing "getFileChooserExtraWidget" $ getObjectPropertyObject obj "extra-widget" Widget setFileChooserExtraWidget :: (MonadIO m, FileChooserK o, WidgetK a) => o -> a -> m ()-setFileChooserExtraWidget obj val = liftIO $ setObjectPropertyObject obj "extra-widget" val+setFileChooserExtraWidget obj val = liftIO $ setObjectPropertyObject obj "extra-widget" (Just val) constructFileChooserExtraWidget :: (WidgetK a) => a -> IO ([Char], GValue)-constructFileChooserExtraWidget val = constructObjectPropertyObject "extra-widget" val+constructFileChooserExtraWidget val = constructObjectPropertyObject "extra-widget" (Just val) data FileChooserExtraWidgetPropertyInfo instance AttrInfo FileChooserExtraWidgetPropertyInfo where@@ -1119,19 +1137,21 @@ attrGet _ = getFileChooserExtraWidget attrSet _ = setFileChooserExtraWidget attrConstruct _ = constructFileChooserExtraWidget+ attrClear _ = undefined -- VVV Prop "filter" -- Type: TInterface "Gtk" "FileFilter" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFileChooserFilter :: (MonadIO m, FileChooserK o) => o -> m FileFilter-getFileChooserFilter obj = liftIO $ getObjectPropertyObject obj "filter" FileFilter+getFileChooserFilter obj = liftIO $ checkUnexpectedNothing "getFileChooserFilter" $ getObjectPropertyObject obj "filter" FileFilter setFileChooserFilter :: (MonadIO m, FileChooserK o, FileFilterK a) => o -> a -> m ()-setFileChooserFilter obj val = liftIO $ setObjectPropertyObject obj "filter" val+setFileChooserFilter obj val = liftIO $ setObjectPropertyObject obj "filter" (Just val) constructFileChooserFilter :: (FileFilterK a) => a -> IO ([Char], GValue)-constructFileChooserFilter val = constructObjectPropertyObject "filter" val+constructFileChooserFilter val = constructObjectPropertyObject "filter" (Just val) data FileChooserFilterPropertyInfo instance AttrInfo FileChooserFilterPropertyInfo where@@ -1143,10 +1163,12 @@ attrGet _ = getFileChooserFilter attrSet _ = setFileChooserFilter attrConstruct _ = constructFileChooserFilter+ attrClear _ = undefined -- VVV Prop "local-only" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFileChooserLocalOnly :: (MonadIO m, FileChooserK o) => o -> m Bool getFileChooserLocalOnly obj = liftIO $ getObjectPropertyBool obj "local-only"@@ -1167,19 +1189,21 @@ attrGet _ = getFileChooserLocalOnly attrSet _ = setFileChooserLocalOnly attrConstruct _ = constructFileChooserLocalOnly+ attrClear _ = undefined -- VVV Prop "preview-widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFileChooserPreviewWidget :: (MonadIO m, FileChooserK o) => o -> m Widget-getFileChooserPreviewWidget obj = liftIO $ getObjectPropertyObject obj "preview-widget" Widget+getFileChooserPreviewWidget obj = liftIO $ checkUnexpectedNothing "getFileChooserPreviewWidget" $ getObjectPropertyObject obj "preview-widget" Widget setFileChooserPreviewWidget :: (MonadIO m, FileChooserK o, WidgetK a) => o -> a -> m ()-setFileChooserPreviewWidget obj val = liftIO $ setObjectPropertyObject obj "preview-widget" val+setFileChooserPreviewWidget obj val = liftIO $ setObjectPropertyObject obj "preview-widget" (Just val) constructFileChooserPreviewWidget :: (WidgetK a) => a -> IO ([Char], GValue)-constructFileChooserPreviewWidget val = constructObjectPropertyObject "preview-widget" val+constructFileChooserPreviewWidget val = constructObjectPropertyObject "preview-widget" (Just val) data FileChooserPreviewWidgetPropertyInfo instance AttrInfo FileChooserPreviewWidgetPropertyInfo where@@ -1191,10 +1215,12 @@ attrGet _ = getFileChooserPreviewWidget attrSet _ = setFileChooserPreviewWidget attrConstruct _ = constructFileChooserPreviewWidget+ attrClear _ = undefined -- VVV Prop "preview-widget-active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFileChooserPreviewWidgetActive :: (MonadIO m, FileChooserK o) => o -> m Bool getFileChooserPreviewWidgetActive obj = liftIO $ getObjectPropertyBool obj "preview-widget-active"@@ -1215,10 +1241,12 @@ attrGet _ = getFileChooserPreviewWidgetActive attrSet _ = setFileChooserPreviewWidgetActive attrConstruct _ = constructFileChooserPreviewWidgetActive+ attrClear _ = undefined -- VVV Prop "select-multiple" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFileChooserSelectMultiple :: (MonadIO m, FileChooserK o) => o -> m Bool getFileChooserSelectMultiple obj = liftIO $ getObjectPropertyBool obj "select-multiple"@@ -1239,10 +1267,12 @@ attrGet _ = getFileChooserSelectMultiple attrSet _ = setFileChooserSelectMultiple attrConstruct _ = constructFileChooserSelectMultiple+ attrClear _ = undefined -- VVV Prop "show-hidden" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFileChooserShowHidden :: (MonadIO m, FileChooserK o) => o -> m Bool getFileChooserShowHidden obj = liftIO $ getObjectPropertyBool obj "show-hidden"@@ -1263,10 +1293,12 @@ attrGet _ = getFileChooserShowHidden attrSet _ = setFileChooserShowHidden attrConstruct _ = constructFileChooserShowHidden+ attrClear _ = undefined -- VVV Prop "use-preview-label" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFileChooserUsePreviewLabel :: (MonadIO m, FileChooserK o) => o -> m Bool getFileChooserUsePreviewLabel obj = liftIO $ getObjectPropertyBool obj "use-preview-label"@@ -1287,10 +1319,44 @@ attrGet _ = getFileChooserUsePreviewLabel attrSet _ = setFileChooserUsePreviewLabel attrConstruct _ = constructFileChooserUsePreviewLabel+ attrClear _ = undefined type instance AttributeList FileChooser = FileChooserAttributeList type FileChooserAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("createFolders", FileChooserCreateFoldersPropertyInfo), '("doOverwriteConfirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extraWidget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("localOnly", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewWidget", FileChooserPreviewWidgetPropertyInfo), '("previewWidgetActive", FileChooserPreviewWidgetActivePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectMultiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showHidden", FileChooserShowHiddenPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("usePreviewLabel", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +fileChooserAction :: AttrLabelProxy "action"+fileChooserAction = AttrLabelProxy++fileChooserCreateFolders :: AttrLabelProxy "createFolders"+fileChooserCreateFolders = AttrLabelProxy++fileChooserDoOverwriteConfirmation :: AttrLabelProxy "doOverwriteConfirmation"+fileChooserDoOverwriteConfirmation = AttrLabelProxy++fileChooserExtraWidget :: AttrLabelProxy "extraWidget"+fileChooserExtraWidget = AttrLabelProxy++fileChooserFilter :: AttrLabelProxy "filter"+fileChooserFilter = AttrLabelProxy++fileChooserLocalOnly :: AttrLabelProxy "localOnly"+fileChooserLocalOnly = AttrLabelProxy++fileChooserPreviewWidget :: AttrLabelProxy "previewWidget"+fileChooserPreviewWidget = AttrLabelProxy++fileChooserPreviewWidgetActive :: AttrLabelProxy "previewWidgetActive"+fileChooserPreviewWidgetActive = AttrLabelProxy++fileChooserSelectMultiple :: AttrLabelProxy "selectMultiple"+fileChooserSelectMultiple = AttrLabelProxy++fileChooserShowHidden :: AttrLabelProxy "showHidden"+fileChooserShowHidden = AttrLabelProxy++fileChooserUsePreviewLabel :: AttrLabelProxy "usePreviewLabel"+fileChooserUsePreviewLabel = AttrLabelProxy+ data FileChooserConfirmOverwriteSignalInfo instance SignalInfo FileChooserConfirmOverwriteSignalInfo where type HaskellCallbackType FileChooserConfirmOverwriteSignalInfo = FileChooserConfirmOverwriteCallback@@ -1340,7 +1406,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1371,7 +1437,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1407,7 +1473,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1443,7 +1509,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "FileChooserAction"+-- returnType : Just (TInterface "Gtk" "FileChooserAction") -- throws : False -- Skip return : False @@ -1471,7 +1537,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1499,7 +1565,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TFileName+-- returnType : Just (TBasicType TFileName) -- throws : False -- Skip return : False @@ -1529,7 +1595,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "File"+-- returnType : Just (TInterface "Gio" "File") -- throws : False -- Skip return : False @@ -1558,7 +1624,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1588,7 +1654,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1618,7 +1684,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1646,7 +1712,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1675,7 +1741,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "File"+-- returnType : Just (TInterface "Gio" "File") -- throws : False -- Skip return : False @@ -1704,7 +1770,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TFileName+-- returnType : Just (TBasicType TFileName) -- throws : False -- Skip return : False @@ -1734,7 +1800,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TBasicType TFileName)+-- returnType : Just (TGSList (TBasicType TFileName)) -- throws : False -- Skip return : False @@ -1750,7 +1816,6 @@ fileChooserGetFilenames _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_file_chooser_get_filenames _obj'- checkUnexpectedReturnNULL "gtk_file_chooser_get_filenames" result result' <- unpackGSList result result'' <- mapM cstringToString result' mapGSList freeMem result@@ -1766,7 +1831,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TInterface "Gio" "File")+-- returnType : Just (TGSList (TInterface "Gio" "File")) -- throws : False -- Skip return : False @@ -1782,7 +1847,6 @@ fileChooserGetFiles _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_file_chooser_get_files _obj'- checkUnexpectedReturnNULL "gtk_file_chooser_get_files" result result' <- unpackGSList result result'' <- mapM (wrapObject Gio.File) result' g_slist_free result@@ -1797,7 +1861,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "FileFilter"+-- returnType : Just (TInterface "Gtk" "FileFilter") -- throws : False -- Skip return : False @@ -1826,7 +1890,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1854,7 +1918,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "File"+-- returnType : Just (TInterface "Gio" "File") -- throws : False -- Skip return : False @@ -1883,7 +1947,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TFileName+-- returnType : Just (TBasicType TFileName) -- throws : False -- Skip return : False @@ -1913,7 +1977,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1943,7 +2007,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1972,7 +2036,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2000,7 +2064,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2028,7 +2092,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2056,7 +2120,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2086,7 +2150,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TBasicType TUTF8)+-- returnType : Just (TGSList (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -2102,7 +2166,6 @@ fileChooserGetUris _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_file_chooser_get_uris _obj'- checkUnexpectedReturnNULL "gtk_file_chooser_get_uris" result result' <- unpackGSList result result'' <- mapM cstringToText result' mapGSList freeMem result@@ -2118,7 +2181,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2146,7 +2209,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TInterface "Gtk" "FileFilter")+-- returnType : Just (TGSList (TInterface "Gtk" "FileFilter")) -- throws : False -- Skip return : False @@ -2162,7 +2225,6 @@ fileChooserListFilters _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_file_chooser_list_filters _obj'- checkUnexpectedReturnNULL "gtk_file_chooser_list_filters" result result' <- unpackGSList result result'' <- mapM (newObject FileFilter) result' g_slist_free result@@ -2177,7 +2239,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TBasicType TUTF8)+-- returnType : Just (TGSList (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -2193,7 +2255,6 @@ fileChooserListShortcutFolderUris _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_file_chooser_list_shortcut_folder_uris _obj'- checkUnexpectedReturnNULL "gtk_file_chooser_list_shortcut_folder_uris" result result' <- unpackGSList result result'' <- mapM cstringToText result' mapGSList freeMem result@@ -2209,7 +2270,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TBasicType TFileName)+-- returnType : Just (TGSList (TBasicType TFileName)) -- throws : False -- Skip return : False @@ -2225,7 +2286,6 @@ fileChooserListShortcutFolders _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_file_chooser_list_shortcut_folders _obj'- checkUnexpectedReturnNULL "gtk_file_chooser_list_shortcut_folders" result result' <- unpackGSList result result'' <- mapM cstringToString result' mapGSList freeMem result@@ -2241,7 +2301,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2272,7 +2332,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -2308,7 +2368,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -2344,7 +2404,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2371,7 +2431,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -2407,7 +2467,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2439,7 +2499,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2471,7 +2531,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2501,7 +2561,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "create_folders", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2531,7 +2591,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2563,7 +2623,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -2599,7 +2659,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2631,7 +2691,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2662,7 +2722,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "do_overwrite_confirmation", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2692,7 +2752,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "extra_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2723,7 +2783,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -2759,7 +2819,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2791,7 +2851,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2822,7 +2882,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2852,7 +2912,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "preview_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2883,7 +2943,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2913,7 +2973,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2943,7 +3003,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2973,7 +3033,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3005,7 +3065,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_label", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3035,7 +3095,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3062,7 +3122,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3093,7 +3153,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3124,7 +3184,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.FileChooser where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -93,6 +93,7 @@ -- ** Font FontChooserFontPropertyInfo , constructFontChooserFont ,+ fontChooserFont , getFontChooserFont , setFontChooserFont , @@ -100,6 +101,7 @@ -- ** FontDesc FontChooserFontDescPropertyInfo , constructFontChooserFontDesc ,+ fontChooserFontDesc , getFontChooserFontDesc , setFontChooserFontDesc , @@ -107,6 +109,7 @@ -- ** PreviewText FontChooserPreviewTextPropertyInfo , constructFontChooserPreviewText ,+ fontChooserPreviewText , getFontChooserPreviewText , setFontChooserPreviewText , @@ -114,6 +117,7 @@ -- ** ShowPreviewEntry FontChooserShowPreviewEntryPropertyInfo , constructFontChooserShowPreviewEntry ,+ fontChooserShowPreviewEntry , getFontChooserShowPreviewEntry , setFontChooserShowPreviewEntry , @@ -137,9 +141,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -248,78 +252,85 @@ -- VVV Prop "font" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just False) -getFontChooserFont :: (MonadIO m, FontChooserK o) => o -> m T.Text+getFontChooserFont :: (MonadIO m, FontChooserK o) => o -> m (Maybe T.Text) getFontChooserFont obj = liftIO $ getObjectPropertyString obj "font" setFontChooserFont :: (MonadIO m, FontChooserK o) => o -> T.Text -> m ()-setFontChooserFont obj val = liftIO $ setObjectPropertyString obj "font" val+setFontChooserFont obj val = liftIO $ setObjectPropertyString obj "font" (Just val) constructFontChooserFont :: T.Text -> IO ([Char], GValue)-constructFontChooserFont val = constructObjectPropertyString "font" val+constructFontChooserFont val = constructObjectPropertyString "font" (Just val) data FontChooserFontPropertyInfo instance AttrInfo FontChooserFontPropertyInfo where type AttrAllowedOps FontChooserFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint FontChooserFontPropertyInfo = (~) T.Text type AttrBaseTypeConstraint FontChooserFontPropertyInfo = FontChooserK- type AttrGetType FontChooserFontPropertyInfo = T.Text+ type AttrGetType FontChooserFontPropertyInfo = (Maybe T.Text) type AttrLabel FontChooserFontPropertyInfo = "font" attrGet _ = getFontChooserFont attrSet _ = setFontChooserFont attrConstruct _ = constructFontChooserFont+ attrClear _ = undefined -- VVV Prop "font-desc" -- Type: TInterface "Pango" "FontDescription" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just False) -getFontChooserFontDesc :: (MonadIO m, FontChooserK o) => o -> m Pango.FontDescription+getFontChooserFontDesc :: (MonadIO m, FontChooserK o) => o -> m (Maybe Pango.FontDescription) getFontChooserFontDesc obj = liftIO $ getObjectPropertyBoxed obj "font-desc" Pango.FontDescription setFontChooserFontDesc :: (MonadIO m, FontChooserK o) => o -> Pango.FontDescription -> m ()-setFontChooserFontDesc obj val = liftIO $ setObjectPropertyBoxed obj "font-desc" val+setFontChooserFontDesc obj val = liftIO $ setObjectPropertyBoxed obj "font-desc" (Just val) constructFontChooserFontDesc :: Pango.FontDescription -> IO ([Char], GValue)-constructFontChooserFontDesc val = constructObjectPropertyBoxed "font-desc" val+constructFontChooserFontDesc val = constructObjectPropertyBoxed "font-desc" (Just val) data FontChooserFontDescPropertyInfo instance AttrInfo FontChooserFontDescPropertyInfo where type AttrAllowedOps FontChooserFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint FontChooserFontDescPropertyInfo = (~) Pango.FontDescription type AttrBaseTypeConstraint FontChooserFontDescPropertyInfo = FontChooserK- type AttrGetType FontChooserFontDescPropertyInfo = Pango.FontDescription+ type AttrGetType FontChooserFontDescPropertyInfo = (Maybe Pango.FontDescription) type AttrLabel FontChooserFontDescPropertyInfo = "font-desc" attrGet _ = getFontChooserFontDesc attrSet _ = setFontChooserFontDesc attrConstruct _ = constructFontChooserFontDesc+ attrClear _ = undefined -- VVV Prop "preview-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just False) -getFontChooserPreviewText :: (MonadIO m, FontChooserK o) => o -> m T.Text+getFontChooserPreviewText :: (MonadIO m, FontChooserK o) => o -> m (Maybe T.Text) getFontChooserPreviewText obj = liftIO $ getObjectPropertyString obj "preview-text" setFontChooserPreviewText :: (MonadIO m, FontChooserK o) => o -> T.Text -> m ()-setFontChooserPreviewText obj val = liftIO $ setObjectPropertyString obj "preview-text" val+setFontChooserPreviewText obj val = liftIO $ setObjectPropertyString obj "preview-text" (Just val) constructFontChooserPreviewText :: T.Text -> IO ([Char], GValue)-constructFontChooserPreviewText val = constructObjectPropertyString "preview-text" val+constructFontChooserPreviewText val = constructObjectPropertyString "preview-text" (Just val) data FontChooserPreviewTextPropertyInfo instance AttrInfo FontChooserPreviewTextPropertyInfo where type AttrAllowedOps FontChooserPreviewTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint FontChooserPreviewTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint FontChooserPreviewTextPropertyInfo = FontChooserK- type AttrGetType FontChooserPreviewTextPropertyInfo = T.Text+ type AttrGetType FontChooserPreviewTextPropertyInfo = (Maybe T.Text) type AttrLabel FontChooserPreviewTextPropertyInfo = "preview-text" attrGet _ = getFontChooserPreviewText attrSet _ = setFontChooserPreviewText attrConstruct _ = constructFontChooserPreviewText+ attrClear _ = undefined -- VVV Prop "show-preview-entry" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFontChooserShowPreviewEntry :: (MonadIO m, FontChooserK o) => o -> m Bool getFontChooserShowPreviewEntry obj = liftIO $ getObjectPropertyBool obj "show-preview-entry"@@ -340,10 +351,23 @@ attrGet _ = getFontChooserShowPreviewEntry attrSet _ = setFontChooserShowPreviewEntry attrConstruct _ = constructFontChooserShowPreviewEntry+ attrClear _ = undefined type instance AttributeList FontChooser = FontChooserAttributeList type FontChooserAttributeList = ('[ '("font", FontChooserFontPropertyInfo), '("fontDesc", FontChooserFontDescPropertyInfo), '("previewText", FontChooserPreviewTextPropertyInfo), '("showPreviewEntry", FontChooserShowPreviewEntryPropertyInfo)] :: [(Symbol, *)]) +fontChooserFont :: AttrLabelProxy "font"+fontChooserFont = AttrLabelProxy++fontChooserFontDesc :: AttrLabelProxy "fontDesc"+fontChooserFontDesc = AttrLabelProxy++fontChooserPreviewText :: AttrLabelProxy "previewText"+fontChooserPreviewText = AttrLabelProxy++fontChooserShowPreviewEntry :: AttrLabelProxy "showPreviewEntry"+fontChooserShowPreviewEntry = AttrLabelProxy+ data FontChooserFontActivatedSignalInfo instance SignalInfo FontChooserFontActivatedSignalInfo where type HaskellCallbackType FontChooserFontActivatedSignalInfo = FontChooserFontActivatedCallback@@ -373,7 +397,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -403,7 +427,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "FontDescription"+-- returnType : Just (TInterface "Pango" "FontDescription") -- throws : False -- Skip return : False @@ -432,7 +456,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "FontFace"+-- returnType : Just (TInterface "Pango" "FontFace") -- throws : False -- Skip return : False @@ -461,7 +485,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "FontFamily"+-- returnType : Just (TInterface "Pango" "FontFamily") -- throws : False -- Skip return : False @@ -490,7 +514,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "FontMap"+-- returnType : Just (TInterface "Pango" "FontMap") -- throws : False -- Skip return : False @@ -519,7 +543,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -546,7 +570,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -576,7 +600,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -602,16 +626,16 @@ -- method FontChooser::set_filter_func -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "FontFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "FontFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_font_chooser_set_filter_func" gtk_font_chooser_set_filter_func :: Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser" FunPtr FontFilterFuncC -> -- filter : TInterface "Gtk" "FontFilterFunc"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -642,7 +666,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -673,7 +697,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -704,7 +728,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontmap", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -739,7 +763,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -770,7 +794,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_preview_entry", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.FontChooser where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -34,6 +34,7 @@ OrientableOrientationPropertyInfo , constructOrientableOrientation , getOrientableOrientation ,+ orientableOrientation , setOrientableOrientation , @@ -41,9 +42,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -96,6 +97,7 @@ -- VVV Prop "orientation" -- Type: TInterface "Gtk" "Orientation" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getOrientableOrientation :: (MonadIO m, OrientableK o) => o -> m Orientation getOrientableOrientation obj = liftIO $ getObjectPropertyEnum obj "orientation"@@ -116,10 +118,14 @@ attrGet _ = getOrientableOrientation attrSet _ = setOrientableOrientation attrConstruct _ = constructOrientableOrientation+ attrClear _ = undefined type instance AttributeList Orientable = OrientableAttributeList type OrientableAttributeList = ('[ '("orientation", OrientableOrientationPropertyInfo)] :: [(Symbol, *)]) +orientableOrientation :: AttrLabelProxy "orientation"+orientableOrientation = AttrLabelProxy+ type instance SignalList Orientable = OrientableSignalList type OrientableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -144,7 +150,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Orientation"+-- returnType : Just (TInterface "Gtk" "Orientation") -- throws : False -- Skip return : False @@ -172,7 +178,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.Orientable where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -63,9 +63,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -241,7 +241,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -266,15 +266,15 @@ -- method PrintOperationPreview::is_selected -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_nr", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_nr", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_print_operation_preview_is_selected" gtk_print_operation_preview_is_selected :: Ptr PrintOperationPreview -> -- _obj : TInterface "Gtk" "PrintOperationPreview"- Int32 -> -- page_nr : TBasicType TInt32+ Int32 -> -- page_nr : TBasicType TInt IO CInt @@ -296,15 +296,15 @@ -- method PrintOperationPreview::render_page -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_nr", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_nr", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_print_operation_preview_render_page" gtk_print_operation_preview_render_page :: Ptr PrintOperationPreview -> -- _obj : TInterface "Gtk" "PrintOperationPreview"- Int32 -> -- page_nr : TBasicType TInt32+ Int32 -> -- page_nr : TBasicType TInt IO ()
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.PrintOperationPreview where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -177,8 +177,10 @@ -- * Properties -- ** Filter RecentChooserFilterPropertyInfo ,+ clearRecentChooserFilter , constructRecentChooserFilter , getRecentChooserFilter ,+ recentChooserFilter , setRecentChooserFilter , @@ -186,6 +188,7 @@ RecentChooserLimitPropertyInfo , constructRecentChooserLimit , getRecentChooserLimit ,+ recentChooserLimit , setRecentChooserLimit , @@ -193,18 +196,21 @@ RecentChooserLocalOnlyPropertyInfo , constructRecentChooserLocalOnly , getRecentChooserLocalOnly ,+ recentChooserLocalOnly , setRecentChooserLocalOnly , -- ** RecentManager RecentChooserRecentManagerPropertyInfo , constructRecentChooserRecentManager ,+ recentChooserRecentManager , -- ** SelectMultiple RecentChooserSelectMultiplePropertyInfo , constructRecentChooserSelectMultiple , getRecentChooserSelectMultiple ,+ recentChooserSelectMultiple , setRecentChooserSelectMultiple , @@ -212,6 +218,7 @@ RecentChooserShowIconsPropertyInfo , constructRecentChooserShowIcons , getRecentChooserShowIcons ,+ recentChooserShowIcons , setRecentChooserShowIcons , @@ -219,6 +226,7 @@ RecentChooserShowNotFoundPropertyInfo , constructRecentChooserShowNotFound , getRecentChooserShowNotFound ,+ recentChooserShowNotFound , setRecentChooserShowNotFound , @@ -226,6 +234,7 @@ RecentChooserShowPrivatePropertyInfo , constructRecentChooserShowPrivate , getRecentChooserShowPrivate ,+ recentChooserShowPrivate , setRecentChooserShowPrivate , @@ -233,6 +242,7 @@ RecentChooserShowTipsPropertyInfo , constructRecentChooserShowTips , getRecentChooserShowTips ,+ recentChooserShowTips , setRecentChooserShowTips , @@ -240,6 +250,7 @@ RecentChooserSortTypePropertyInfo , constructRecentChooserSortType , getRecentChooserSortType ,+ recentChooserSortType , setRecentChooserSortType , @@ -274,9 +285,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -435,19 +446,23 @@ -- VVV Prop "filter" -- Type: TInterface "Gtk" "RecentFilter" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getRecentChooserFilter :: (MonadIO m, RecentChooserK o) => o -> m RecentFilter-getRecentChooserFilter obj = liftIO $ getObjectPropertyObject obj "filter" RecentFilter+getRecentChooserFilter obj = liftIO $ checkUnexpectedNothing "getRecentChooserFilter" $ getObjectPropertyObject obj "filter" RecentFilter setRecentChooserFilter :: (MonadIO m, RecentChooserK o, RecentFilterK a) => o -> a -> m ()-setRecentChooserFilter obj val = liftIO $ setObjectPropertyObject obj "filter" val+setRecentChooserFilter obj val = liftIO $ setObjectPropertyObject obj "filter" (Just val) constructRecentChooserFilter :: (RecentFilterK a) => a -> IO ([Char], GValue)-constructRecentChooserFilter val = constructObjectPropertyObject "filter" val+constructRecentChooserFilter val = constructObjectPropertyObject "filter" (Just val) +clearRecentChooserFilter :: (MonadIO m, RecentChooserK o) => o -> m ()+clearRecentChooserFilter obj = liftIO $ setObjectPropertyObject obj "filter" (Nothing :: Maybe RecentFilter)+ data RecentChooserFilterPropertyInfo instance AttrInfo RecentChooserFilterPropertyInfo where- type AttrAllowedOps RecentChooserFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps RecentChooserFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint RecentChooserFilterPropertyInfo = RecentFilterK type AttrBaseTypeConstraint RecentChooserFilterPropertyInfo = RecentChooserK type AttrGetType RecentChooserFilterPropertyInfo = RecentFilter@@ -455,19 +470,21 @@ attrGet _ = getRecentChooserFilter attrSet _ = setRecentChooserFilter attrConstruct _ = constructRecentChooserFilter+ attrClear _ = clearRecentChooserFilter -- VVV Prop "limit"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getRecentChooserLimit :: (MonadIO m, RecentChooserK o) => o -> m Int32-getRecentChooserLimit obj = liftIO $ getObjectPropertyCInt obj "limit"+getRecentChooserLimit obj = liftIO $ getObjectPropertyInt32 obj "limit" setRecentChooserLimit :: (MonadIO m, RecentChooserK o) => o -> Int32 -> m ()-setRecentChooserLimit obj val = liftIO $ setObjectPropertyCInt obj "limit" val+setRecentChooserLimit obj val = liftIO $ setObjectPropertyInt32 obj "limit" val constructRecentChooserLimit :: Int32 -> IO ([Char], GValue)-constructRecentChooserLimit val = constructObjectPropertyCInt "limit" val+constructRecentChooserLimit val = constructObjectPropertyInt32 "limit" val data RecentChooserLimitPropertyInfo instance AttrInfo RecentChooserLimitPropertyInfo where@@ -479,10 +496,12 @@ attrGet _ = getRecentChooserLimit attrSet _ = setRecentChooserLimit attrConstruct _ = constructRecentChooserLimit+ attrClear _ = undefined -- VVV Prop "local-only" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getRecentChooserLocalOnly :: (MonadIO m, RecentChooserK o) => o -> m Bool getRecentChooserLocalOnly obj = liftIO $ getObjectPropertyBool obj "local-only"@@ -503,17 +522,19 @@ attrGet _ = getRecentChooserLocalOnly attrSet _ = setRecentChooserLocalOnly attrConstruct _ = constructRecentChooserLocalOnly+ attrClear _ = undefined -- VVV Prop "recent-manager" -- Type: TInterface "Gtk" "RecentManager" -- Flags: [PropertyWritable,PropertyConstructOnly]+ -- Nullable: (Nothing,Nothing) constructRecentChooserRecentManager :: (RecentManagerK a) => a -> IO ([Char], GValue)-constructRecentChooserRecentManager val = constructObjectPropertyObject "recent-manager" val+constructRecentChooserRecentManager val = constructObjectPropertyObject "recent-manager" (Just val) data RecentChooserRecentManagerPropertyInfo instance AttrInfo RecentChooserRecentManagerPropertyInfo where- type AttrAllowedOps RecentChooserRecentManagerPropertyInfo = '[ 'AttrConstruct]+ type AttrAllowedOps RecentChooserRecentManagerPropertyInfo = '[ 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint RecentChooserRecentManagerPropertyInfo = RecentManagerK type AttrBaseTypeConstraint RecentChooserRecentManagerPropertyInfo = RecentChooserK type AttrGetType RecentChooserRecentManagerPropertyInfo = ()@@ -521,10 +542,12 @@ attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructRecentChooserRecentManager+ attrClear _ = undefined -- VVV Prop "select-multiple" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getRecentChooserSelectMultiple :: (MonadIO m, RecentChooserK o) => o -> m Bool getRecentChooserSelectMultiple obj = liftIO $ getObjectPropertyBool obj "select-multiple"@@ -545,10 +568,12 @@ attrGet _ = getRecentChooserSelectMultiple attrSet _ = setRecentChooserSelectMultiple attrConstruct _ = constructRecentChooserSelectMultiple+ attrClear _ = undefined -- VVV Prop "show-icons" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getRecentChooserShowIcons :: (MonadIO m, RecentChooserK o) => o -> m Bool getRecentChooserShowIcons obj = liftIO $ getObjectPropertyBool obj "show-icons"@@ -569,10 +594,12 @@ attrGet _ = getRecentChooserShowIcons attrSet _ = setRecentChooserShowIcons attrConstruct _ = constructRecentChooserShowIcons+ attrClear _ = undefined -- VVV Prop "show-not-found" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getRecentChooserShowNotFound :: (MonadIO m, RecentChooserK o) => o -> m Bool getRecentChooserShowNotFound obj = liftIO $ getObjectPropertyBool obj "show-not-found"@@ -593,10 +620,12 @@ attrGet _ = getRecentChooserShowNotFound attrSet _ = setRecentChooserShowNotFound attrConstruct _ = constructRecentChooserShowNotFound+ attrClear _ = undefined -- VVV Prop "show-private" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getRecentChooserShowPrivate :: (MonadIO m, RecentChooserK o) => o -> m Bool getRecentChooserShowPrivate obj = liftIO $ getObjectPropertyBool obj "show-private"@@ -617,10 +646,12 @@ attrGet _ = getRecentChooserShowPrivate attrSet _ = setRecentChooserShowPrivate attrConstruct _ = constructRecentChooserShowPrivate+ attrClear _ = undefined -- VVV Prop "show-tips" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getRecentChooserShowTips :: (MonadIO m, RecentChooserK o) => o -> m Bool getRecentChooserShowTips obj = liftIO $ getObjectPropertyBool obj "show-tips"@@ -641,10 +672,12 @@ attrGet _ = getRecentChooserShowTips attrSet _ = setRecentChooserShowTips attrConstruct _ = constructRecentChooserShowTips+ attrClear _ = undefined -- VVV Prop "sort-type" -- Type: TInterface "Gtk" "RecentSortType" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getRecentChooserSortType :: (MonadIO m, RecentChooserK o) => o -> m RecentSortType getRecentChooserSortType obj = liftIO $ getObjectPropertyEnum obj "sort-type"@@ -665,10 +698,41 @@ attrGet _ = getRecentChooserSortType attrSet _ = setRecentChooserSortType attrConstruct _ = constructRecentChooserSortType+ attrClear _ = undefined type instance AttributeList RecentChooser = RecentChooserAttributeList type RecentChooserAttributeList = ('[ '("filter", RecentChooserFilterPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("localOnly", RecentChooserLocalOnlyPropertyInfo), '("recentManager", RecentChooserRecentManagerPropertyInfo), '("selectMultiple", RecentChooserSelectMultiplePropertyInfo), '("showIcons", RecentChooserShowIconsPropertyInfo), '("showNotFound", RecentChooserShowNotFoundPropertyInfo), '("showPrivate", RecentChooserShowPrivatePropertyInfo), '("showTips", RecentChooserShowTipsPropertyInfo), '("sortType", RecentChooserSortTypePropertyInfo)] :: [(Symbol, *)]) +recentChooserFilter :: AttrLabelProxy "filter"+recentChooserFilter = AttrLabelProxy++recentChooserLimit :: AttrLabelProxy "limit"+recentChooserLimit = AttrLabelProxy++recentChooserLocalOnly :: AttrLabelProxy "localOnly"+recentChooserLocalOnly = AttrLabelProxy++recentChooserRecentManager :: AttrLabelProxy "recentManager"+recentChooserRecentManager = AttrLabelProxy++recentChooserSelectMultiple :: AttrLabelProxy "selectMultiple"+recentChooserSelectMultiple = AttrLabelProxy++recentChooserShowIcons :: AttrLabelProxy "showIcons"+recentChooserShowIcons = AttrLabelProxy++recentChooserShowNotFound :: AttrLabelProxy "showNotFound"+recentChooserShowNotFound = AttrLabelProxy++recentChooserShowPrivate :: AttrLabelProxy "showPrivate"+recentChooserShowPrivate = AttrLabelProxy++recentChooserShowTips :: AttrLabelProxy "showTips"+recentChooserShowTips = AttrLabelProxy++recentChooserSortType :: AttrLabelProxy "sortType"+recentChooserSortType = AttrLabelProxy+ data RecentChooserItemActivatedSignalInfo instance SignalInfo RecentChooserItemActivatedSignalInfo where type HaskellCallbackType RecentChooserItemActivatedSignalInfo = RecentChooserItemActivatedCallback@@ -703,7 +767,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -734,7 +798,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RecentInfo"+-- returnType : Just (TInterface "Gtk" "RecentInfo") -- throws : False -- Skip return : False @@ -763,7 +827,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -793,7 +857,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RecentFilter"+-- returnType : Just (TInterface "Gtk" "RecentFilter") -- throws : False -- Skip return : False @@ -822,7 +886,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Gtk" "RecentInfo")+-- returnType : Just (TGList (TInterface "Gtk" "RecentInfo")) -- throws : False -- Skip return : False @@ -838,7 +902,6 @@ recentChooserGetItems _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_chooser_get_items _obj'- checkUnexpectedReturnNULL "gtk_recent_chooser_get_items" result result' <- unpackGList result result'' <- mapM (wrapBoxed RecentInfo) result' g_list_free result@@ -853,7 +916,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -880,7 +943,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -908,7 +971,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -936,7 +999,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -964,7 +1027,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -992,7 +1055,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1020,7 +1083,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1048,7 +1111,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RecentSortType"+-- returnType : Just (TInterface "Gtk" "RecentSortType") -- throws : False -- Skip return : False @@ -1076,7 +1139,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TCArray True (-1) 1 (TBasicType TUTF8)+-- returnType : Just (TCArray True (-1) 1 (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -1111,7 +1174,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TInterface "Gtk" "RecentFilter")+-- returnType : Just (TGSList (TInterface "Gtk" "RecentFilter")) -- throws : False -- Skip return : False @@ -1127,7 +1190,6 @@ recentChooserListFilters _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_chooser_list_filters _obj'- checkUnexpectedReturnNULL "gtk_recent_chooser_list_filters" result result' <- unpackGSList result result'' <- mapM (newObject RecentFilter) result' g_slist_free result@@ -1142,7 +1204,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1173,7 +1235,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1200,7 +1262,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1236,7 +1298,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1272,7 +1334,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1305,15 +1367,15 @@ -- method RecentChooser::set_limit -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_recent_chooser_set_limit" gtk_recent_chooser_set_limit :: Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"- Int32 -> -- limit : TBasicType TInt32+ Int32 -> -- limit : TBasicType TInt IO () @@ -1336,7 +1398,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1366,7 +1428,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1396,7 +1458,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_icons", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1426,7 +1488,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_not_found", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1456,7 +1518,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_private", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1486,7 +1548,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_tips", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1514,16 +1576,16 @@ -- method RecentChooser::set_sort_func -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "RecentSortFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "RecentSortFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_recent_chooser_set_sort_func" gtk_recent_chooser_set_sort_func :: Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" FunPtr RecentSortFuncC -> -- sort_func : TInterface "Gtk" "RecentSortFunc"- Ptr () -> -- sort_data : TBasicType TVoid+ Ptr () -> -- sort_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- data_destroy : TInterface "GLib" "DestroyNotify" IO () @@ -1550,7 +1612,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_type", argType = TInterface "Gtk" "RecentSortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1580,7 +1642,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1607,7 +1669,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.RecentChooser where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -67,8 +67,10 @@ -- * Properties -- ** Hadjustment ScrollableHadjustmentPropertyInfo ,+ clearScrollableHadjustment , constructScrollableHadjustment , getScrollableHadjustment ,+ scrollableHadjustment , setScrollableHadjustment , @@ -76,13 +78,16 @@ ScrollableHscrollPolicyPropertyInfo , constructScrollableHscrollPolicy , getScrollableHscrollPolicy ,+ scrollableHscrollPolicy , setScrollableHscrollPolicy , -- ** Vadjustment ScrollableVadjustmentPropertyInfo ,+ clearScrollableVadjustment , constructScrollableVadjustment , getScrollableVadjustment ,+ scrollableVadjustment , setScrollableVadjustment , @@ -90,6 +95,7 @@ ScrollableVscrollPolicyPropertyInfo , constructScrollableVscrollPolicy , getScrollableVscrollPolicy ,+ scrollableVscrollPolicy , setScrollableVscrollPolicy , @@ -97,9 +103,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -159,19 +165,23 @@ -- VVV Prop "hadjustment" -- Type: TInterface "Gtk" "Adjustment" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just True) getScrollableHadjustment :: (MonadIO m, ScrollableK o) => o -> m Adjustment-getScrollableHadjustment obj = liftIO $ getObjectPropertyObject obj "hadjustment" Adjustment+getScrollableHadjustment obj = liftIO $ checkUnexpectedNothing "getScrollableHadjustment" $ getObjectPropertyObject obj "hadjustment" Adjustment setScrollableHadjustment :: (MonadIO m, ScrollableK o, AdjustmentK a) => o -> a -> m ()-setScrollableHadjustment obj val = liftIO $ setObjectPropertyObject obj "hadjustment" val+setScrollableHadjustment obj val = liftIO $ setObjectPropertyObject obj "hadjustment" (Just val) constructScrollableHadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue)-constructScrollableHadjustment val = constructObjectPropertyObject "hadjustment" val+constructScrollableHadjustment val = constructObjectPropertyObject "hadjustment" (Just val) +clearScrollableHadjustment :: (MonadIO m, ScrollableK o) => o -> m ()+clearScrollableHadjustment obj = liftIO $ setObjectPropertyObject obj "hadjustment" (Nothing :: Maybe Adjustment)+ data ScrollableHadjustmentPropertyInfo instance AttrInfo ScrollableHadjustmentPropertyInfo where- type AttrAllowedOps ScrollableHadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ScrollableHadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ScrollableHadjustmentPropertyInfo = AdjustmentK type AttrBaseTypeConstraint ScrollableHadjustmentPropertyInfo = ScrollableK type AttrGetType ScrollableHadjustmentPropertyInfo = Adjustment@@ -179,10 +189,12 @@ attrGet _ = getScrollableHadjustment attrSet _ = setScrollableHadjustment attrConstruct _ = constructScrollableHadjustment+ attrClear _ = clearScrollableHadjustment -- VVV Prop "hscroll-policy" -- Type: TInterface "Gtk" "ScrollablePolicy" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getScrollableHscrollPolicy :: (MonadIO m, ScrollableK o) => o -> m ScrollablePolicy getScrollableHscrollPolicy obj = liftIO $ getObjectPropertyEnum obj "hscroll-policy"@@ -203,23 +215,28 @@ attrGet _ = getScrollableHscrollPolicy attrSet _ = setScrollableHscrollPolicy attrConstruct _ = constructScrollableHscrollPolicy+ attrClear _ = undefined -- VVV Prop "vadjustment" -- Type: TInterface "Gtk" "Adjustment" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just True) getScrollableVadjustment :: (MonadIO m, ScrollableK o) => o -> m Adjustment-getScrollableVadjustment obj = liftIO $ getObjectPropertyObject obj "vadjustment" Adjustment+getScrollableVadjustment obj = liftIO $ checkUnexpectedNothing "getScrollableVadjustment" $ getObjectPropertyObject obj "vadjustment" Adjustment setScrollableVadjustment :: (MonadIO m, ScrollableK o, AdjustmentK a) => o -> a -> m ()-setScrollableVadjustment obj val = liftIO $ setObjectPropertyObject obj "vadjustment" val+setScrollableVadjustment obj val = liftIO $ setObjectPropertyObject obj "vadjustment" (Just val) constructScrollableVadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue)-constructScrollableVadjustment val = constructObjectPropertyObject "vadjustment" val+constructScrollableVadjustment val = constructObjectPropertyObject "vadjustment" (Just val) +clearScrollableVadjustment :: (MonadIO m, ScrollableK o) => o -> m ()+clearScrollableVadjustment obj = liftIO $ setObjectPropertyObject obj "vadjustment" (Nothing :: Maybe Adjustment)+ data ScrollableVadjustmentPropertyInfo instance AttrInfo ScrollableVadjustmentPropertyInfo where- type AttrAllowedOps ScrollableVadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ScrollableVadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ScrollableVadjustmentPropertyInfo = AdjustmentK type AttrBaseTypeConstraint ScrollableVadjustmentPropertyInfo = ScrollableK type AttrGetType ScrollableVadjustmentPropertyInfo = Adjustment@@ -227,10 +244,12 @@ attrGet _ = getScrollableVadjustment attrSet _ = setScrollableVadjustment attrConstruct _ = constructScrollableVadjustment+ attrClear _ = clearScrollableVadjustment -- VVV Prop "vscroll-policy" -- Type: TInterface "Gtk" "ScrollablePolicy" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getScrollableVscrollPolicy :: (MonadIO m, ScrollableK o) => o -> m ScrollablePolicy getScrollableVscrollPolicy obj = liftIO $ getObjectPropertyEnum obj "vscroll-policy"@@ -251,10 +270,23 @@ attrGet _ = getScrollableVscrollPolicy attrSet _ = setScrollableVscrollPolicy attrConstruct _ = constructScrollableVscrollPolicy+ attrClear _ = undefined type instance AttributeList Scrollable = ScrollableAttributeList type ScrollableAttributeList = ('[ '("hadjustment", ScrollableHadjustmentPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo)] :: [(Symbol, *)]) +scrollableHadjustment :: AttrLabelProxy "hadjustment"+scrollableHadjustment = AttrLabelProxy++scrollableHscrollPolicy :: AttrLabelProxy "hscrollPolicy"+scrollableHscrollPolicy = AttrLabelProxy++scrollableVadjustment :: AttrLabelProxy "vadjustment"+scrollableVadjustment = AttrLabelProxy++scrollableVscrollPolicy :: AttrLabelProxy "vscrollPolicy"+scrollableVscrollPolicy = AttrLabelProxy+ type instance SignalList Scrollable = ScrollableSignalList type ScrollableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -279,7 +311,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -311,7 +343,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Adjustment"+-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -340,7 +372,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ScrollablePolicy"+-- returnType : Just (TInterface "Gtk" "ScrollablePolicy") -- throws : False -- Skip return : False @@ -368,7 +400,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Adjustment"+-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -397,7 +429,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ScrollablePolicy"+-- returnType : Just (TInterface "Gtk" "ScrollablePolicy") -- throws : False -- Skip return : False @@ -425,7 +457,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -460,7 +492,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -490,7 +522,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -525,7 +557,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.Scrollable where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -35,9 +35,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -80,7 +80,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "IconFactory"+-- returnType : Just (TInterface "Gtk" "IconFactory") -- throws : False -- Skip return : False @@ -113,7 +113,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "StyleProperties"+-- returnType : Just (TInterface "Gtk" "StyleProperties") -- throws : False -- Skip return : False @@ -146,7 +146,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.StyleProvider where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -66,9 +66,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -414,7 +414,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "EllipsizeMode"+-- returnType : Just (TInterface "Pango" "EllipsizeMode") -- throws : False -- Skip return : False @@ -442,7 +442,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -469,7 +469,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Orientation"+-- returnType : Just (TInterface "Gtk" "Orientation") -- throws : False -- Skip return : False @@ -497,7 +497,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ReliefStyle"+-- returnType : Just (TInterface "Gtk" "ReliefStyle") -- throws : False -- Skip return : False @@ -525,7 +525,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ToolbarStyle"+-- returnType : Just (TInterface "Gtk" "ToolbarStyle") -- throws : False -- Skip return : False @@ -553,7 +553,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TFloat+-- returnType : Just (TBasicType TFloat) -- throws : False -- Skip return : False @@ -581,7 +581,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Orientation"+-- returnType : Just (TInterface "Gtk" "Orientation") -- throws : False -- Skip return : False @@ -609,7 +609,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "SizeGroup"+-- returnType : Just (TInterface "Gtk" "SizeGroup") -- throws : False -- Skip return : False @@ -638,7 +638,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.ToolShell where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -30,9 +30,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -74,7 +74,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -110,7 +110,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.TreeDragDest where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -35,9 +35,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -80,7 +80,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -112,7 +112,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -148,7 +148,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.TreeDragSource where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -202,9 +202,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -505,7 +505,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "TreeModel"+-- returnType : Just (TInterface "Gtk" "TreeModel") -- throws : False -- Skip return : False @@ -540,16 +540,16 @@ -- method TreeModel::foreach -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeModelForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeModelForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_foreach" gtk_tree_model_foreach :: Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" FunPtr TreeModelForeachFuncC -> -- func : TInterface "Gtk" "TreeModelForeachFunc"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr IO () @@ -573,26 +573,26 @@ -- method TreeModel::get_column_type -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TGType+-- returnType : Just (TBasicType TGType) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_get_column_type" gtk_tree_model_get_column_type :: Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"- Int32 -> -- index_ : TBasicType TInt32+ Int32 -> -- index_ : TBasicType TInt IO CGType treeModelGetColumnType :: (MonadIO m, TreeModelK a) => a -- _obj- -> Int32 -- index+ -> Int32 -- index_ -> m GType -- result-treeModelGetColumnType _obj index = liftIO $ do+treeModelGetColumnType _obj index_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj- result <- gtk_tree_model_get_column_type _obj' index+ result <- gtk_tree_model_get_column_type _obj' index_ let result' = GType result touchManagedPtr _obj return result'@@ -605,7 +605,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "TreeModelFlags"+-- returnType : Just (TInterface "Gtk" "TreeModelFlags") -- throws : False -- Skip return : False @@ -633,7 +633,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -668,7 +668,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -699,7 +699,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "path_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -734,7 +734,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -761,7 +761,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "TreePath"+-- returnType : Just (TInterface "Gtk" "TreePath") -- throws : False -- Skip return : False @@ -794,7 +794,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -826,16 +826,16 @@ -- method TreeModel::get_value -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_get_value" gtk_tree_model_get_value :: Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"- Int32 -> -- column : TBasicType TInt32+ Int32 -> -- column : TBasicType TInt Ptr GValue -> -- value : TInterface "GObject" "Value" IO () @@ -864,7 +864,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -903,7 +903,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -935,7 +935,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -970,7 +970,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1000,9 +1000,9 @@ -- method TreeModel::iter_nth_child -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1010,7 +1010,7 @@ Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter"- Int32 -> -- n : TBasicType TInt32+ Int32 -> -- n : TBasicType TInt IO CInt @@ -1043,7 +1043,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1078,7 +1078,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1110,7 +1110,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1141,7 +1141,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1176,7 +1176,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1207,7 +1207,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1242,7 +1242,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1275,9 +1275,9 @@ -- method TreeModel::rows_reordered -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TVoid+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray False (-1) 4 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1285,8 +1285,8 @@ Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"- Ptr Int32 -> -- new_order : TCArray False (-1) 4 (TBasicType TInt32)- Int32 -> -- length : TBasicType TInt32+ Ptr Int32 -> -- new_order : TCArray False (-1) 4 (TBasicType TInt)+ Int32 -> -- length : TBasicType TInt IO () @@ -1322,7 +1322,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "TreeModel"+-- returnType : Just (TInterface "Gtk" "TreeModel") -- throws : False -- Skip return : False @@ -1351,7 +1351,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.TreeModel where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -66,9 +66,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -217,15 +217,15 @@ -- method TreeSortable::get_sort_column_id -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_sortable_get_sort_column_id" gtk_tree_sortable_get_sort_column_id :: Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable"- Ptr Int32 -> -- sort_column_id : TBasicType TInt32+ Ptr Int32 -> -- sort_column_id : TBasicType TInt Ptr CUInt -> -- order : TInterface "Gtk" "SortType" IO CInt @@ -256,7 +256,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -282,16 +282,16 @@ -- method TreeSortable::set_default_sort_func -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_sortable_set_default_sort_func" gtk_tree_sortable_set_default_sort_func :: Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable" FunPtr TreeIterCompareFuncC -> -- sort_func : TInterface "Gtk" "TreeIterCompareFunc"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -316,15 +316,15 @@ -- method TreeSortable::set_sort_column_id -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_sortable_set_sort_column_id" gtk_tree_sortable_set_sort_column_id :: Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable"- Int32 -> -- sort_column_id : TBasicType TInt32+ Int32 -> -- sort_column_id : TBasicType TInt CUInt -> -- order : TInterface "Gtk" "SortType" IO () @@ -348,17 +348,17 @@ -- method TreeSortable::set_sort_func -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_sortable_set_sort_func" gtk_tree_sortable_set_sort_func :: Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable"- Int32 -> -- sort_column_id : TBasicType TInt32+ Int32 -> -- sort_column_id : TBasicType TInt FunPtr TreeIterCompareFuncC -> -- sort_func : TInterface "Gtk" "TreeIterCompareFunc"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -386,7 +386,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.TreeSortable where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -522,9 +522,9 @@ import GI.Gtk.Objects.WindowAccessible import GI.Gtk.Objects.WindowGroup -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -181,6 +181,7 @@ -- * Properties -- ** Artists AboutDialogArtistsPropertyInfo ,+ aboutDialogArtists , constructAboutDialogArtists , getAboutDialogArtists , setAboutDialogArtists ,@@ -188,6 +189,7 @@ -- ** Authors AboutDialogAuthorsPropertyInfo ,+ aboutDialogAuthors , constructAboutDialogAuthors , getAboutDialogAuthors , setAboutDialogAuthors ,@@ -195,6 +197,8 @@ -- ** Comments AboutDialogCommentsPropertyInfo ,+ aboutDialogComments ,+ clearAboutDialogComments , constructAboutDialogComments , getAboutDialogComments , setAboutDialogComments ,@@ -202,6 +206,8 @@ -- ** Copyright AboutDialogCopyrightPropertyInfo ,+ aboutDialogCopyright ,+ clearAboutDialogCopyright , constructAboutDialogCopyright , getAboutDialogCopyright , setAboutDialogCopyright ,@@ -209,6 +215,7 @@ -- ** Documenters AboutDialogDocumentersPropertyInfo ,+ aboutDialogDocumenters , constructAboutDialogDocumenters , getAboutDialogDocumenters , setAboutDialogDocumenters ,@@ -216,6 +223,8 @@ -- ** License AboutDialogLicensePropertyInfo ,+ aboutDialogLicense ,+ clearAboutDialogLicense , constructAboutDialogLicense , getAboutDialogLicense , setAboutDialogLicense ,@@ -223,6 +232,7 @@ -- ** LicenseType AboutDialogLicenseTypePropertyInfo ,+ aboutDialogLicenseType , constructAboutDialogLicenseType , getAboutDialogLicenseType , setAboutDialogLicenseType ,@@ -230,6 +240,8 @@ -- ** Logo AboutDialogLogoPropertyInfo ,+ aboutDialogLogo ,+ clearAboutDialogLogo , constructAboutDialogLogo , getAboutDialogLogo , setAboutDialogLogo ,@@ -237,6 +249,8 @@ -- ** LogoIconName AboutDialogLogoIconNamePropertyInfo ,+ aboutDialogLogoIconName ,+ clearAboutDialogLogoIconName , constructAboutDialogLogoIconName , getAboutDialogLogoIconName , setAboutDialogLogoIconName ,@@ -244,6 +258,7 @@ -- ** ProgramName AboutDialogProgramNamePropertyInfo ,+ aboutDialogProgramName , constructAboutDialogProgramName , getAboutDialogProgramName , setAboutDialogProgramName ,@@ -251,6 +266,8 @@ -- ** TranslatorCredits AboutDialogTranslatorCreditsPropertyInfo,+ aboutDialogTranslatorCredits ,+ clearAboutDialogTranslatorCredits , constructAboutDialogTranslatorCredits , getAboutDialogTranslatorCredits , setAboutDialogTranslatorCredits ,@@ -258,6 +275,8 @@ -- ** Version AboutDialogVersionPropertyInfo ,+ aboutDialogVersion ,+ clearAboutDialogVersion , constructAboutDialogVersion , getAboutDialogVersion , setAboutDialogVersion ,@@ -265,6 +284,8 @@ -- ** Website AboutDialogWebsitePropertyInfo ,+ aboutDialogWebsite ,+ clearAboutDialogWebsite , constructAboutDialogWebsite , getAboutDialogWebsite , setAboutDialogWebsite ,@@ -272,6 +293,7 @@ -- ** WebsiteLabel AboutDialogWebsiteLabelPropertyInfo ,+ aboutDialogWebsiteLabel , constructAboutDialogWebsiteLabel , getAboutDialogWebsiteLabel , setAboutDialogWebsiteLabel ,@@ -279,6 +301,7 @@ -- ** WrapLicense AboutDialogWrapLicensePropertyInfo ,+ aboutDialogWrapLicense , constructAboutDialogWrapLicense , getAboutDialogWrapLicense , setAboutDialogWrapLicense ,@@ -303,9 +326,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -851,15 +874,16 @@ -- VVV Prop "artists" -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getAboutDialogArtists :: (MonadIO m, AboutDialogK o) => o -> m [T.Text]-getAboutDialogArtists obj = liftIO $ getObjectPropertyStringArray obj "artists"+getAboutDialogArtists obj = liftIO $ checkUnexpectedNothing "getAboutDialogArtists" $ getObjectPropertyStringArray obj "artists" setAboutDialogArtists :: (MonadIO m, AboutDialogK o) => o -> [T.Text] -> m ()-setAboutDialogArtists obj val = liftIO $ setObjectPropertyStringArray obj "artists" val+setAboutDialogArtists obj val = liftIO $ setObjectPropertyStringArray obj "artists" (Just val) constructAboutDialogArtists :: [T.Text] -> IO ([Char], GValue)-constructAboutDialogArtists val = constructObjectPropertyStringArray "artists" val+constructAboutDialogArtists val = constructObjectPropertyStringArray "artists" (Just val) data AboutDialogArtistsPropertyInfo instance AttrInfo AboutDialogArtistsPropertyInfo where@@ -871,19 +895,21 @@ attrGet _ = getAboutDialogArtists attrSet _ = setAboutDialogArtists attrConstruct _ = constructAboutDialogArtists+ attrClear _ = undefined -- VVV Prop "authors" -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getAboutDialogAuthors :: (MonadIO m, AboutDialogK o) => o -> m [T.Text]-getAboutDialogAuthors obj = liftIO $ getObjectPropertyStringArray obj "authors"+getAboutDialogAuthors obj = liftIO $ checkUnexpectedNothing "getAboutDialogAuthors" $ getObjectPropertyStringArray obj "authors" setAboutDialogAuthors :: (MonadIO m, AboutDialogK o) => o -> [T.Text] -> m ()-setAboutDialogAuthors obj val = liftIO $ setObjectPropertyStringArray obj "authors" val+setAboutDialogAuthors obj val = liftIO $ setObjectPropertyStringArray obj "authors" (Just val) constructAboutDialogAuthors :: [T.Text] -> IO ([Char], GValue)-constructAboutDialogAuthors val = constructObjectPropertyStringArray "authors" val+constructAboutDialogAuthors val = constructObjectPropertyStringArray "authors" (Just val) data AboutDialogAuthorsPropertyInfo instance AttrInfo AboutDialogAuthorsPropertyInfo where@@ -895,23 +921,28 @@ attrGet _ = getAboutDialogAuthors attrSet _ = setAboutDialogAuthors attrConstruct _ = constructAboutDialogAuthors+ attrClear _ = undefined -- VVV Prop "comments" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getAboutDialogComments :: (MonadIO m, AboutDialogK o) => o -> m T.Text-getAboutDialogComments obj = liftIO $ getObjectPropertyString obj "comments"+getAboutDialogComments obj = liftIO $ checkUnexpectedNothing "getAboutDialogComments" $ getObjectPropertyString obj "comments" setAboutDialogComments :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m ()-setAboutDialogComments obj val = liftIO $ setObjectPropertyString obj "comments" val+setAboutDialogComments obj val = liftIO $ setObjectPropertyString obj "comments" (Just val) constructAboutDialogComments :: T.Text -> IO ([Char], GValue)-constructAboutDialogComments val = constructObjectPropertyString "comments" val+constructAboutDialogComments val = constructObjectPropertyString "comments" (Just val) +clearAboutDialogComments :: (MonadIO m, AboutDialogK o) => o -> m ()+clearAboutDialogComments obj = liftIO $ setObjectPropertyString obj "comments" (Nothing :: Maybe T.Text)+ data AboutDialogCommentsPropertyInfo instance AttrInfo AboutDialogCommentsPropertyInfo where- type AttrAllowedOps AboutDialogCommentsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps AboutDialogCommentsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AboutDialogCommentsPropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogCommentsPropertyInfo = AboutDialogK type AttrGetType AboutDialogCommentsPropertyInfo = T.Text@@ -919,23 +950,28 @@ attrGet _ = getAboutDialogComments attrSet _ = setAboutDialogComments attrConstruct _ = constructAboutDialogComments+ attrClear _ = clearAboutDialogComments -- VVV Prop "copyright" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getAboutDialogCopyright :: (MonadIO m, AboutDialogK o) => o -> m T.Text-getAboutDialogCopyright obj = liftIO $ getObjectPropertyString obj "copyright"+getAboutDialogCopyright obj = liftIO $ checkUnexpectedNothing "getAboutDialogCopyright" $ getObjectPropertyString obj "copyright" setAboutDialogCopyright :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m ()-setAboutDialogCopyright obj val = liftIO $ setObjectPropertyString obj "copyright" val+setAboutDialogCopyright obj val = liftIO $ setObjectPropertyString obj "copyright" (Just val) constructAboutDialogCopyright :: T.Text -> IO ([Char], GValue)-constructAboutDialogCopyright val = constructObjectPropertyString "copyright" val+constructAboutDialogCopyright val = constructObjectPropertyString "copyright" (Just val) +clearAboutDialogCopyright :: (MonadIO m, AboutDialogK o) => o -> m ()+clearAboutDialogCopyright obj = liftIO $ setObjectPropertyString obj "copyright" (Nothing :: Maybe T.Text)+ data AboutDialogCopyrightPropertyInfo instance AttrInfo AboutDialogCopyrightPropertyInfo where- type AttrAllowedOps AboutDialogCopyrightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps AboutDialogCopyrightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AboutDialogCopyrightPropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogCopyrightPropertyInfo = AboutDialogK type AttrGetType AboutDialogCopyrightPropertyInfo = T.Text@@ -943,19 +979,21 @@ attrGet _ = getAboutDialogCopyright attrSet _ = setAboutDialogCopyright attrConstruct _ = constructAboutDialogCopyright+ attrClear _ = clearAboutDialogCopyright -- VVV Prop "documenters" -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getAboutDialogDocumenters :: (MonadIO m, AboutDialogK o) => o -> m [T.Text]-getAboutDialogDocumenters obj = liftIO $ getObjectPropertyStringArray obj "documenters"+getAboutDialogDocumenters obj = liftIO $ checkUnexpectedNothing "getAboutDialogDocumenters" $ getObjectPropertyStringArray obj "documenters" setAboutDialogDocumenters :: (MonadIO m, AboutDialogK o) => o -> [T.Text] -> m ()-setAboutDialogDocumenters obj val = liftIO $ setObjectPropertyStringArray obj "documenters" val+setAboutDialogDocumenters obj val = liftIO $ setObjectPropertyStringArray obj "documenters" (Just val) constructAboutDialogDocumenters :: [T.Text] -> IO ([Char], GValue)-constructAboutDialogDocumenters val = constructObjectPropertyStringArray "documenters" val+constructAboutDialogDocumenters val = constructObjectPropertyStringArray "documenters" (Just val) data AboutDialogDocumentersPropertyInfo instance AttrInfo AboutDialogDocumentersPropertyInfo where@@ -967,23 +1005,28 @@ attrGet _ = getAboutDialogDocumenters attrSet _ = setAboutDialogDocumenters attrConstruct _ = constructAboutDialogDocumenters+ attrClear _ = undefined -- VVV Prop "license" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getAboutDialogLicense :: (MonadIO m, AboutDialogK o) => o -> m T.Text-getAboutDialogLicense obj = liftIO $ getObjectPropertyString obj "license"+getAboutDialogLicense obj = liftIO $ checkUnexpectedNothing "getAboutDialogLicense" $ getObjectPropertyString obj "license" setAboutDialogLicense :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m ()-setAboutDialogLicense obj val = liftIO $ setObjectPropertyString obj "license" val+setAboutDialogLicense obj val = liftIO $ setObjectPropertyString obj "license" (Just val) constructAboutDialogLicense :: T.Text -> IO ([Char], GValue)-constructAboutDialogLicense val = constructObjectPropertyString "license" val+constructAboutDialogLicense val = constructObjectPropertyString "license" (Just val) +clearAboutDialogLicense :: (MonadIO m, AboutDialogK o) => o -> m ()+clearAboutDialogLicense obj = liftIO $ setObjectPropertyString obj "license" (Nothing :: Maybe T.Text)+ data AboutDialogLicensePropertyInfo instance AttrInfo AboutDialogLicensePropertyInfo where- type AttrAllowedOps AboutDialogLicensePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps AboutDialogLicensePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AboutDialogLicensePropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogLicensePropertyInfo = AboutDialogK type AttrGetType AboutDialogLicensePropertyInfo = T.Text@@ -991,10 +1034,12 @@ attrGet _ = getAboutDialogLicense attrSet _ = setAboutDialogLicense attrConstruct _ = constructAboutDialogLicense+ attrClear _ = clearAboutDialogLicense -- VVV Prop "license-type" -- Type: TInterface "Gtk" "License" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getAboutDialogLicenseType :: (MonadIO m, AboutDialogK o) => o -> m License getAboutDialogLicenseType obj = liftIO $ getObjectPropertyEnum obj "license-type"@@ -1015,23 +1060,28 @@ attrGet _ = getAboutDialogLicenseType attrSet _ = setAboutDialogLicenseType attrConstruct _ = constructAboutDialogLicenseType+ attrClear _ = undefined -- VVV Prop "logo" -- Type: TInterface "GdkPixbuf" "Pixbuf" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getAboutDialogLogo :: (MonadIO m, AboutDialogK o) => o -> m GdkPixbuf.Pixbuf-getAboutDialogLogo obj = liftIO $ getObjectPropertyObject obj "logo" GdkPixbuf.Pixbuf+getAboutDialogLogo obj = liftIO $ checkUnexpectedNothing "getAboutDialogLogo" $ getObjectPropertyObject obj "logo" GdkPixbuf.Pixbuf setAboutDialogLogo :: (MonadIO m, AboutDialogK o, GdkPixbuf.PixbufK a) => o -> a -> m ()-setAboutDialogLogo obj val = liftIO $ setObjectPropertyObject obj "logo" val+setAboutDialogLogo obj val = liftIO $ setObjectPropertyObject obj "logo" (Just val) constructAboutDialogLogo :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue)-constructAboutDialogLogo val = constructObjectPropertyObject "logo" val+constructAboutDialogLogo val = constructObjectPropertyObject "logo" (Just val) +clearAboutDialogLogo :: (MonadIO m, AboutDialogK o) => o -> m ()+clearAboutDialogLogo obj = liftIO $ setObjectPropertyObject obj "logo" (Nothing :: Maybe GdkPixbuf.Pixbuf)+ data AboutDialogLogoPropertyInfo instance AttrInfo AboutDialogLogoPropertyInfo where- type AttrAllowedOps AboutDialogLogoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps AboutDialogLogoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AboutDialogLogoPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint AboutDialogLogoPropertyInfo = AboutDialogK type AttrGetType AboutDialogLogoPropertyInfo = GdkPixbuf.Pixbuf@@ -1039,23 +1089,28 @@ attrGet _ = getAboutDialogLogo attrSet _ = setAboutDialogLogo attrConstruct _ = constructAboutDialogLogo+ attrClear _ = clearAboutDialogLogo -- VVV Prop "logo-icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getAboutDialogLogoIconName :: (MonadIO m, AboutDialogK o) => o -> m T.Text-getAboutDialogLogoIconName obj = liftIO $ getObjectPropertyString obj "logo-icon-name"+getAboutDialogLogoIconName obj = liftIO $ checkUnexpectedNothing "getAboutDialogLogoIconName" $ getObjectPropertyString obj "logo-icon-name" setAboutDialogLogoIconName :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m ()-setAboutDialogLogoIconName obj val = liftIO $ setObjectPropertyString obj "logo-icon-name" val+setAboutDialogLogoIconName obj val = liftIO $ setObjectPropertyString obj "logo-icon-name" (Just val) constructAboutDialogLogoIconName :: T.Text -> IO ([Char], GValue)-constructAboutDialogLogoIconName val = constructObjectPropertyString "logo-icon-name" val+constructAboutDialogLogoIconName val = constructObjectPropertyString "logo-icon-name" (Just val) +clearAboutDialogLogoIconName :: (MonadIO m, AboutDialogK o) => o -> m ()+clearAboutDialogLogoIconName obj = liftIO $ setObjectPropertyString obj "logo-icon-name" (Nothing :: Maybe T.Text)+ data AboutDialogLogoIconNamePropertyInfo instance AttrInfo AboutDialogLogoIconNamePropertyInfo where- type AttrAllowedOps AboutDialogLogoIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps AboutDialogLogoIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AboutDialogLogoIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogLogoIconNamePropertyInfo = AboutDialogK type AttrGetType AboutDialogLogoIconNamePropertyInfo = T.Text@@ -1063,19 +1118,21 @@ attrGet _ = getAboutDialogLogoIconName attrSet _ = setAboutDialogLogoIconName attrConstruct _ = constructAboutDialogLogoIconName+ attrClear _ = clearAboutDialogLogoIconName -- VVV Prop "program-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getAboutDialogProgramName :: (MonadIO m, AboutDialogK o) => o -> m T.Text-getAboutDialogProgramName obj = liftIO $ getObjectPropertyString obj "program-name"+getAboutDialogProgramName obj = liftIO $ checkUnexpectedNothing "getAboutDialogProgramName" $ getObjectPropertyString obj "program-name" setAboutDialogProgramName :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m ()-setAboutDialogProgramName obj val = liftIO $ setObjectPropertyString obj "program-name" val+setAboutDialogProgramName obj val = liftIO $ setObjectPropertyString obj "program-name" (Just val) constructAboutDialogProgramName :: T.Text -> IO ([Char], GValue)-constructAboutDialogProgramName val = constructObjectPropertyString "program-name" val+constructAboutDialogProgramName val = constructObjectPropertyString "program-name" (Just val) data AboutDialogProgramNamePropertyInfo instance AttrInfo AboutDialogProgramNamePropertyInfo where@@ -1087,23 +1144,28 @@ attrGet _ = getAboutDialogProgramName attrSet _ = setAboutDialogProgramName attrConstruct _ = constructAboutDialogProgramName+ attrClear _ = undefined -- VVV Prop "translator-credits" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getAboutDialogTranslatorCredits :: (MonadIO m, AboutDialogK o) => o -> m T.Text-getAboutDialogTranslatorCredits obj = liftIO $ getObjectPropertyString obj "translator-credits"+getAboutDialogTranslatorCredits obj = liftIO $ checkUnexpectedNothing "getAboutDialogTranslatorCredits" $ getObjectPropertyString obj "translator-credits" setAboutDialogTranslatorCredits :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m ()-setAboutDialogTranslatorCredits obj val = liftIO $ setObjectPropertyString obj "translator-credits" val+setAboutDialogTranslatorCredits obj val = liftIO $ setObjectPropertyString obj "translator-credits" (Just val) constructAboutDialogTranslatorCredits :: T.Text -> IO ([Char], GValue)-constructAboutDialogTranslatorCredits val = constructObjectPropertyString "translator-credits" val+constructAboutDialogTranslatorCredits val = constructObjectPropertyString "translator-credits" (Just val) +clearAboutDialogTranslatorCredits :: (MonadIO m, AboutDialogK o) => o -> m ()+clearAboutDialogTranslatorCredits obj = liftIO $ setObjectPropertyString obj "translator-credits" (Nothing :: Maybe T.Text)+ data AboutDialogTranslatorCreditsPropertyInfo instance AttrInfo AboutDialogTranslatorCreditsPropertyInfo where- type AttrAllowedOps AboutDialogTranslatorCreditsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps AboutDialogTranslatorCreditsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AboutDialogTranslatorCreditsPropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogTranslatorCreditsPropertyInfo = AboutDialogK type AttrGetType AboutDialogTranslatorCreditsPropertyInfo = T.Text@@ -1111,23 +1173,28 @@ attrGet _ = getAboutDialogTranslatorCredits attrSet _ = setAboutDialogTranslatorCredits attrConstruct _ = constructAboutDialogTranslatorCredits+ attrClear _ = clearAboutDialogTranslatorCredits -- VVV Prop "version" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getAboutDialogVersion :: (MonadIO m, AboutDialogK o) => o -> m T.Text-getAboutDialogVersion obj = liftIO $ getObjectPropertyString obj "version"+getAboutDialogVersion obj = liftIO $ checkUnexpectedNothing "getAboutDialogVersion" $ getObjectPropertyString obj "version" setAboutDialogVersion :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m ()-setAboutDialogVersion obj val = liftIO $ setObjectPropertyString obj "version" val+setAboutDialogVersion obj val = liftIO $ setObjectPropertyString obj "version" (Just val) constructAboutDialogVersion :: T.Text -> IO ([Char], GValue)-constructAboutDialogVersion val = constructObjectPropertyString "version" val+constructAboutDialogVersion val = constructObjectPropertyString "version" (Just val) +clearAboutDialogVersion :: (MonadIO m, AboutDialogK o) => o -> m ()+clearAboutDialogVersion obj = liftIO $ setObjectPropertyString obj "version" (Nothing :: Maybe T.Text)+ data AboutDialogVersionPropertyInfo instance AttrInfo AboutDialogVersionPropertyInfo where- type AttrAllowedOps AboutDialogVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps AboutDialogVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AboutDialogVersionPropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogVersionPropertyInfo = AboutDialogK type AttrGetType AboutDialogVersionPropertyInfo = T.Text@@ -1135,23 +1202,28 @@ attrGet _ = getAboutDialogVersion attrSet _ = setAboutDialogVersion attrConstruct _ = constructAboutDialogVersion+ attrClear _ = clearAboutDialogVersion -- VVV Prop "website" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getAboutDialogWebsite :: (MonadIO m, AboutDialogK o) => o -> m T.Text-getAboutDialogWebsite obj = liftIO $ getObjectPropertyString obj "website"+getAboutDialogWebsite obj = liftIO $ checkUnexpectedNothing "getAboutDialogWebsite" $ getObjectPropertyString obj "website" setAboutDialogWebsite :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m ()-setAboutDialogWebsite obj val = liftIO $ setObjectPropertyString obj "website" val+setAboutDialogWebsite obj val = liftIO $ setObjectPropertyString obj "website" (Just val) constructAboutDialogWebsite :: T.Text -> IO ([Char], GValue)-constructAboutDialogWebsite val = constructObjectPropertyString "website" val+constructAboutDialogWebsite val = constructObjectPropertyString "website" (Just val) +clearAboutDialogWebsite :: (MonadIO m, AboutDialogK o) => o -> m ()+clearAboutDialogWebsite obj = liftIO $ setObjectPropertyString obj "website" (Nothing :: Maybe T.Text)+ data AboutDialogWebsitePropertyInfo instance AttrInfo AboutDialogWebsitePropertyInfo where- type AttrAllowedOps AboutDialogWebsitePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps AboutDialogWebsitePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AboutDialogWebsitePropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogWebsitePropertyInfo = AboutDialogK type AttrGetType AboutDialogWebsitePropertyInfo = T.Text@@ -1159,19 +1231,21 @@ attrGet _ = getAboutDialogWebsite attrSet _ = setAboutDialogWebsite attrConstruct _ = constructAboutDialogWebsite+ attrClear _ = clearAboutDialogWebsite -- VVV Prop "website-label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getAboutDialogWebsiteLabel :: (MonadIO m, AboutDialogK o) => o -> m T.Text-getAboutDialogWebsiteLabel obj = liftIO $ getObjectPropertyString obj "website-label"+getAboutDialogWebsiteLabel obj = liftIO $ checkUnexpectedNothing "getAboutDialogWebsiteLabel" $ getObjectPropertyString obj "website-label" setAboutDialogWebsiteLabel :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m ()-setAboutDialogWebsiteLabel obj val = liftIO $ setObjectPropertyString obj "website-label" val+setAboutDialogWebsiteLabel obj val = liftIO $ setObjectPropertyString obj "website-label" (Just val) constructAboutDialogWebsiteLabel :: T.Text -> IO ([Char], GValue)-constructAboutDialogWebsiteLabel val = constructObjectPropertyString "website-label" val+constructAboutDialogWebsiteLabel val = constructObjectPropertyString "website-label" (Just val) data AboutDialogWebsiteLabelPropertyInfo instance AttrInfo AboutDialogWebsiteLabelPropertyInfo where@@ -1183,10 +1257,12 @@ attrGet _ = getAboutDialogWebsiteLabel attrSet _ = setAboutDialogWebsiteLabel attrConstruct _ = constructAboutDialogWebsiteLabel+ attrClear _ = undefined -- VVV Prop "wrap-license" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getAboutDialogWrapLicense :: (MonadIO m, AboutDialogK o) => o -> m Bool getAboutDialogWrapLicense obj = liftIO $ getObjectPropertyBool obj "wrap-license"@@ -1207,10 +1283,56 @@ attrGet _ = getAboutDialogWrapLicense attrSet _ = setAboutDialogWrapLicense attrConstruct _ = constructAboutDialogWrapLicense+ attrClear _ = undefined type instance AttributeList AboutDialog = AboutDialogAttributeList type AboutDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("artists", AboutDialogArtistsPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("authors", AboutDialogAuthorsPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("comments", AboutDialogCommentsPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("copyright", AboutDialogCopyrightPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("documenters", AboutDialogDocumentersPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("license", AboutDialogLicensePropertyInfo), '("licenseType", AboutDialogLicenseTypePropertyInfo), '("logo", AboutDialogLogoPropertyInfo), '("logoIconName", AboutDialogLogoIconNamePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("programName", AboutDialogProgramNamePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("translatorCredits", AboutDialogTranslatorCreditsPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("version", AboutDialogVersionPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("website", AboutDialogWebsitePropertyInfo), '("websiteLabel", AboutDialogWebsiteLabelPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo), '("wrapLicense", AboutDialogWrapLicensePropertyInfo)] :: [(Symbol, *)]) +aboutDialogArtists :: AttrLabelProxy "artists"+aboutDialogArtists = AttrLabelProxy++aboutDialogAuthors :: AttrLabelProxy "authors"+aboutDialogAuthors = AttrLabelProxy++aboutDialogComments :: AttrLabelProxy "comments"+aboutDialogComments = AttrLabelProxy++aboutDialogCopyright :: AttrLabelProxy "copyright"+aboutDialogCopyright = AttrLabelProxy++aboutDialogDocumenters :: AttrLabelProxy "documenters"+aboutDialogDocumenters = AttrLabelProxy++aboutDialogLicense :: AttrLabelProxy "license"+aboutDialogLicense = AttrLabelProxy++aboutDialogLicenseType :: AttrLabelProxy "licenseType"+aboutDialogLicenseType = AttrLabelProxy++aboutDialogLogo :: AttrLabelProxy "logo"+aboutDialogLogo = AttrLabelProxy++aboutDialogLogoIconName :: AttrLabelProxy "logoIconName"+aboutDialogLogoIconName = AttrLabelProxy++aboutDialogProgramName :: AttrLabelProxy "programName"+aboutDialogProgramName = AttrLabelProxy++aboutDialogTranslatorCredits :: AttrLabelProxy "translatorCredits"+aboutDialogTranslatorCredits = AttrLabelProxy++aboutDialogVersion :: AttrLabelProxy "version"+aboutDialogVersion = AttrLabelProxy++aboutDialogWebsite :: AttrLabelProxy "website"+aboutDialogWebsite = AttrLabelProxy++aboutDialogWebsiteLabel :: AttrLabelProxy "websiteLabel"+aboutDialogWebsiteLabel = AttrLabelProxy++aboutDialogWrapLicense :: AttrLabelProxy "wrapLicense"+aboutDialogWrapLicense = AttrLabelProxy+ data AboutDialogActivateLinkSignalInfo instance SignalInfo AboutDialogActivateLinkSignalInfo where type HaskellCallbackType AboutDialogActivateLinkSignalInfo = AboutDialogActivateLinkCallback@@ -1223,7 +1345,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "AboutDialog"+-- returnType : Just (TInterface "Gtk" "AboutDialog") -- throws : False -- Skip return : False @@ -1244,7 +1366,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "people", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1280,7 +1402,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -1309,7 +1431,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -1338,7 +1460,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1367,7 +1489,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1396,7 +1518,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -1425,7 +1547,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1454,7 +1576,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "License"+-- returnType : Just (TInterface "Gtk" "License") -- throws : False -- Skip return : False @@ -1482,7 +1604,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -1511,7 +1633,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1540,7 +1662,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1569,7 +1691,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1598,7 +1720,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1627,7 +1749,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1656,7 +1778,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1685,7 +1807,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1713,7 +1835,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "artists", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1745,7 +1867,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "authors", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1777,7 +1899,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "comments", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1812,7 +1934,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "copyright", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1847,7 +1969,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "documenters", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1879,7 +2001,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "license", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1914,7 +2036,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "license_type", argType = TInterface "Gtk" "License", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1944,7 +2066,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "logo", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1979,7 +2101,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2014,7 +2136,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2045,7 +2167,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "translator_credits", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2080,7 +2202,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2115,7 +2237,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "website", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2150,7 +2272,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "website_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2181,7 +2303,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap_license", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.AboutDialog where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -85,11 +85,13 @@ -- * Properties -- ** IsLocked AccelGroupIsLockedPropertyInfo ,+ accelGroupIsLocked , getAccelGroupIsLocked , -- ** ModifierMask AccelGroupModifierMaskPropertyInfo ,+ accelGroupModifierMask , getAccelGroupModifierMask , @@ -124,9 +126,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -304,6 +306,7 @@ -- VVV Prop "is-locked" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable]+ -- Nullable: (Just False,Nothing) getAccelGroupIsLocked :: (MonadIO m, AccelGroupK o) => o -> m Bool getAccelGroupIsLocked obj = liftIO $ getObjectPropertyBool obj "is-locked"@@ -318,10 +321,12 @@ attrGet _ = getAccelGroupIsLocked attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "modifier-mask" -- Type: TInterface "Gdk" "ModifierType" -- Flags: [PropertyReadable]+ -- Nullable: (Just False,Nothing) getAccelGroupModifierMask :: (MonadIO m, AccelGroupK o) => o -> m [Gdk.ModifierType] getAccelGroupModifierMask obj = liftIO $ getObjectPropertyFlags obj "modifier-mask"@@ -336,10 +341,17 @@ attrGet _ = getAccelGroupModifierMask attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined type instance AttributeList AccelGroup = AccelGroupAttributeList type AccelGroupAttributeList = ('[ '("isLocked", AccelGroupIsLockedPropertyInfo), '("modifierMask", AccelGroupModifierMaskPropertyInfo)] :: [(Symbol, *)]) +accelGroupIsLocked :: AttrLabelProxy "isLocked"+accelGroupIsLocked = AttrLabelProxy++accelGroupModifierMask :: AttrLabelProxy "modifierMask"+accelGroupModifierMask = AttrLabelProxy+ data AccelGroupAccelActivateSignalInfo instance SignalInfo AccelGroupAccelActivateSignalInfo where type HaskellCallbackType AccelGroupAccelActivateSignalInfo = AccelGroupAccelActivateCallback@@ -357,7 +369,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "AccelGroup"+-- returnType : Just (TInterface "Gtk" "AccelGroup") -- throws : False -- Skip return : False @@ -376,9 +388,9 @@ -- method AccelGroup::activate -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "acceleratable", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "acceleratable", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -386,7 +398,7 @@ Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup" Word32 -> -- accel_quark : TBasicType TUInt32 Ptr GObject.Object -> -- acceleratable : TInterface "GObject" "Object"- Word32 -> -- accel_key : TBasicType TUInt32+ Word32 -> -- accel_key : TBasicType TUInt CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" IO CInt @@ -415,15 +427,15 @@ -- method AccelGroup::connect -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accel_group_connect" gtk_accel_group_connect :: Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup"- Word32 -> -- accel_key : TBasicType TUInt32+ Word32 -> -- accel_key : TBasicType TUInt CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" CUInt -> -- accel_flags : TInterface "Gtk" "AccelFlags" Ptr Closure -> -- closure : TInterface "GObject" "Closure"@@ -456,7 +468,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -491,7 +503,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -525,15 +537,15 @@ -- method AccelGroup::disconnect_key -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_accel_group_disconnect_key" gtk_accel_group_disconnect_key :: Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup"- Word32 -> -- accel_key : TBasicType TUInt32+ Word32 -> -- accel_key : TBasicType TUInt CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" IO CInt @@ -558,16 +570,16 @@ -- method AccelGroup::find -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "find_func", argType = TInterface "Gtk" "AccelGroupFindFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "find_func", argType = TInterface "Gtk" "AccelGroupFindFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "AccelKey"+-- returnType : Just (TInterface "Gtk" "AccelKey") -- throws : False -- Skip return : False foreign import ccall "gtk_accel_group_find" gtk_accel_group_find :: Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup" FunPtr AccelGroupFindFuncC -> -- find_func : TInterface "Gtk" "AccelGroupFindFunc"- Ptr () -> -- data : TBasicType TVoid+ Ptr () -> -- data : TBasicType TPtr IO (Ptr AccelKey) @@ -595,7 +607,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -623,7 +635,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "ModifierType"+-- returnType : Just (TInterface "Gdk" "ModifierType") -- throws : False -- Skip return : False @@ -651,7 +663,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -676,17 +688,17 @@ -- method AccelGroup::query -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_entries", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "n_entries", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : TCArray False (-1) 3 (TInterface "Gtk" "AccelGroupEntry")+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_entries", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_entries", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Just (TCArray False (-1) 3 (TInterface "Gtk" "AccelGroupEntry")) -- throws : False -- Skip return : False foreign import ccall "gtk_accel_group_query" gtk_accel_group_query :: Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup"- Word32 -> -- accel_key : TBasicType TUInt32+ Word32 -> -- accel_key : TBasicType TUInt CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType"- Ptr Word32 -> -- n_entries : TBasicType TUInt32+ Ptr Word32 -> -- n_entries : TBasicType TUInt IO (Ptr AccelGroupEntry) @@ -717,7 +729,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -744,7 +756,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "AccelGroup"+-- returnType : Just (TInterface "Gtk" "AccelGroup") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.AccelGroup where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -61,6 +61,7 @@ -- * Properties -- ** AccelClosure AccelLabelAccelClosurePropertyInfo ,+ accelLabelAccelClosure , constructAccelLabelAccelClosure , getAccelLabelAccelClosure , setAccelLabelAccelClosure ,@@ -68,6 +69,7 @@ -- ** AccelWidget AccelLabelAccelWidgetPropertyInfo ,+ accelLabelAccelWidget , constructAccelLabelAccelWidget , getAccelLabelAccelWidget , setAccelLabelAccelWidget ,@@ -77,9 +79,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -467,47 +469,50 @@ #endif --- XXX Duplicated object with different types:- --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Nothing}- --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Just DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_halign() instead. If you are using\n #GtkLabel, use #GtkLabel:xalign instead."}}+ --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing}+ --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_halign() instead. If you are using\n #GtkLabel, use #GtkLabel:xalign instead."})} --- XXX Duplicated object with different types:- --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Nothing}- --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Just DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_valign() instead. If you are using\n #GtkLabel, use #GtkLabel:yalign instead."}}+ --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing}+ --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_valign() instead. If you are using\n #GtkLabel, use #GtkLabel:yalign instead."})} -- VVV Prop "accel-closure" -- Type: TInterface "GObject" "Closure" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just False) -getAccelLabelAccelClosure :: (MonadIO m, AccelLabelK o) => o -> m Closure+getAccelLabelAccelClosure :: (MonadIO m, AccelLabelK o) => o -> m (Maybe Closure) getAccelLabelAccelClosure obj = liftIO $ getObjectPropertyBoxed obj "accel-closure" Closure setAccelLabelAccelClosure :: (MonadIO m, AccelLabelK o) => o -> Closure -> m ()-setAccelLabelAccelClosure obj val = liftIO $ setObjectPropertyBoxed obj "accel-closure" val+setAccelLabelAccelClosure obj val = liftIO $ setObjectPropertyBoxed obj "accel-closure" (Just val) constructAccelLabelAccelClosure :: Closure -> IO ([Char], GValue)-constructAccelLabelAccelClosure val = constructObjectPropertyBoxed "accel-closure" val+constructAccelLabelAccelClosure val = constructObjectPropertyBoxed "accel-closure" (Just val) data AccelLabelAccelClosurePropertyInfo instance AttrInfo AccelLabelAccelClosurePropertyInfo where type AttrAllowedOps AccelLabelAccelClosurePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint AccelLabelAccelClosurePropertyInfo = (~) Closure type AttrBaseTypeConstraint AccelLabelAccelClosurePropertyInfo = AccelLabelK- type AttrGetType AccelLabelAccelClosurePropertyInfo = Closure+ type AttrGetType AccelLabelAccelClosurePropertyInfo = (Maybe Closure) type AttrLabel AccelLabelAccelClosurePropertyInfo = "accel-closure" attrGet _ = getAccelLabelAccelClosure attrSet _ = setAccelLabelAccelClosure attrConstruct _ = constructAccelLabelAccelClosure+ attrClear _ = undefined -- VVV Prop "accel-widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getAccelLabelAccelWidget :: (MonadIO m, AccelLabelK o) => o -> m Widget-getAccelLabelAccelWidget obj = liftIO $ getObjectPropertyObject obj "accel-widget" Widget+getAccelLabelAccelWidget obj = liftIO $ checkUnexpectedNothing "getAccelLabelAccelWidget" $ getObjectPropertyObject obj "accel-widget" Widget setAccelLabelAccelWidget :: (MonadIO m, AccelLabelK o, WidgetK a) => o -> a -> m ()-setAccelLabelAccelWidget obj val = liftIO $ setObjectPropertyObject obj "accel-widget" val+setAccelLabelAccelWidget obj val = liftIO $ setObjectPropertyObject obj "accel-widget" (Just val) constructAccelLabelAccelWidget :: (WidgetK a) => a -> IO ([Char], GValue)-constructAccelLabelAccelWidget val = constructObjectPropertyObject "accel-widget" val+constructAccelLabelAccelWidget val = constructObjectPropertyObject "accel-widget" (Just val) data AccelLabelAccelWidgetPropertyInfo instance AttrInfo AccelLabelAccelWidgetPropertyInfo where@@ -519,10 +524,17 @@ attrGet _ = getAccelLabelAccelWidget attrSet _ = setAccelLabelAccelWidget attrConstruct _ = constructAccelLabelAccelWidget+ attrClear _ = undefined type instance AttributeList AccelLabel = AccelLabelAttributeList type AccelLabelAttributeList = ('[ '("accelClosure", AccelLabelAccelClosurePropertyInfo), '("accelWidget", AccelLabelAccelWidgetPropertyInfo), '("angle", LabelAnglePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attributes", LabelAttributesPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorPosition", LabelCursorPositionPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", LabelEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("justify", LabelJustifyPropertyInfo), '("label", LabelLabelPropertyInfo), '("lines", LabelLinesPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxWidthChars", LabelMaxWidthCharsPropertyInfo), '("mnemonicKeyval", LabelMnemonicKeyvalPropertyInfo), '("mnemonicWidget", LabelMnemonicWidgetPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pattern", LabelPatternPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectable", LabelSelectablePropertyInfo), '("selectionBound", LabelSelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("singleLineMode", LabelSingleLineModePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("trackVisitedLinks", LabelTrackVisitedLinksPropertyInfo), '("useMarkup", LabelUseMarkupPropertyInfo), '("useUnderline", LabelUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", LabelWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", LabelWrapPropertyInfo), '("wrapMode", LabelWrapModePropertyInfo), '("xpad", MiscXpadPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) +accelLabelAccelClosure :: AttrLabelProxy "accelClosure"+accelLabelAccelClosure = AttrLabelProxy++accelLabelAccelWidget :: AttrLabelProxy "accelWidget"+accelLabelAccelWidget = AttrLabelProxy+ type instance SignalList AccelLabel = AccelLabelSignalList type AccelLabelSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCurrentLink", LabelActivateCurrentLinkSignalInfo), '("activateLink", LabelActivateLinkSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("copyClipboard", LabelCopyClipboardSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", LabelMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("populatePopup", LabelPopulatePopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -530,7 +542,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "AccelLabel"+-- returnType : Just (TInterface "Gtk" "AccelLabel") -- throws : False -- Skip return : False @@ -553,15 +565,15 @@ -- method AccelLabel::get_accel -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accel_label_get_accel" gtk_accel_label_get_accel :: Ptr AccelLabel -> -- _obj : TInterface "Gtk" "AccelLabel"- Ptr Word32 -> -- accelerator_key : TBasicType TUInt32+ Ptr Word32 -> -- accelerator_key : TBasicType TUInt Ptr CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" IO () @@ -591,7 +603,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -620,7 +632,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -647,7 +659,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -673,15 +685,15 @@ -- method AccelLabel::set_accel -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accel_label_set_accel" gtk_accel_label_set_accel :: Ptr AccelLabel -> -- _obj : TInterface "Gtk" "AccelLabel"- Word32 -> -- accelerator_key : TBasicType TUInt32+ Word32 -> -- accelerator_key : TBasicType TUInt CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" IO () @@ -707,7 +719,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -738,7 +750,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.AccelLabel where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -92,9 +92,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -221,15 +221,15 @@ -- method AccelMap::add_entry -- method type : MemberFunction--- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accel_map_add_entry" gtk_accel_map_add_entry :: CString -> -- accel_path : TBasicType TUTF8- Word32 -> -- accel_key : TBasicType TUInt32+ Word32 -> -- accel_key : TBasicType TUInt CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" IO () @@ -251,7 +251,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "filter_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -272,15 +272,15 @@ -- method AccelMap::change_entry -- method type : MemberFunction--- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_accel_map_change_entry" gtk_accel_map_change_entry :: CString -> -- accel_path : TBasicType TUTF8- Word32 -> -- accel_key : TBasicType TUInt32+ Word32 -> -- accel_key : TBasicType TUInt CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" CInt -> -- replace : TBasicType TBoolean IO CInt@@ -304,43 +304,39 @@ -- method AccelMap::foreach -- method type : MemberFunction--- Args : [Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accel_map_foreach" gtk_accel_map_foreach :: - Ptr () -> -- data : TBasicType TVoid+ Ptr () -> -- data : TBasicType TPtr FunPtr AccelMapForeachC -> -- foreach_func : TInterface "Gtk" "AccelMapForeach" IO () accelMapForeach :: (MonadIO m) =>- Maybe (Ptr ()) -- data_+ Ptr () -- data_ -> AccelMapForeach -- foreachFunc -> m () -- result accelMapForeach data_ foreachFunc = liftIO $ do- maybeData_ <- case data_ of- Nothing -> return nullPtr- Just jData_ -> do- return jData_ foreachFunc' <- mkAccelMapForeach (accelMapForeachWrapper Nothing foreachFunc)- gtk_accel_map_foreach maybeData_ foreachFunc'+ gtk_accel_map_foreach data_ foreachFunc' safeFreeFunPtr $ castFunPtrToPtr foreachFunc' return () -- method AccelMap::foreach_unfiltered -- method type : MemberFunction--- Args : [Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accel_map_foreach_unfiltered" gtk_accel_map_foreach_unfiltered :: - Ptr () -> -- data : TBasicType TVoid+ Ptr () -> -- data : TBasicType TPtr FunPtr AccelMapForeachC -> -- foreach_func : TInterface "Gtk" "AccelMapForeach" IO () @@ -360,7 +356,7 @@ -- method type : MemberFunction -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "AccelMap"+-- returnType : Just (TInterface "Gtk" "AccelMap") -- throws : False -- Skip return : False @@ -381,7 +377,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -402,14 +398,14 @@ -- method AccelMap::load_fd -- method type : MemberFunction--- Args : [Arg {argCName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accel_map_load_fd" gtk_accel_map_load_fd :: - Int32 -> -- fd : TBasicType TInt32+ Int32 -> -- fd : TBasicType TInt IO () @@ -425,7 +421,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -448,7 +444,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -471,7 +467,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TInterface "Gtk" "AccelKey", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -498,7 +494,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -519,14 +515,14 @@ -- method AccelMap::save_fd -- method type : MemberFunction--- Args : [Arg {argCName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accel_map_save_fd" gtk_accel_map_save_fd :: - Int32 -> -- fd : TBasicType TInt32+ Int32 -> -- fd : TBasicType TInt IO () @@ -542,7 +538,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.AccelMap where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -37,6 +37,8 @@ -- * Properties -- ** Widget AccessibleWidgetPropertyInfo ,+ accessibleWidget ,+ clearAccessibleWidget , constructAccessibleWidget , getAccessibleWidget , setAccessibleWidget ,@@ -46,9 +48,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -141,19 +143,23 @@ -- VVV Prop "widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getAccessibleWidget :: (MonadIO m, AccessibleK o) => o -> m Widget-getAccessibleWidget obj = liftIO $ getObjectPropertyObject obj "widget" Widget+getAccessibleWidget obj = liftIO $ checkUnexpectedNothing "getAccessibleWidget" $ getObjectPropertyObject obj "widget" Widget setAccessibleWidget :: (MonadIO m, AccessibleK o, WidgetK a) => o -> a -> m ()-setAccessibleWidget obj val = liftIO $ setObjectPropertyObject obj "widget" val+setAccessibleWidget obj val = liftIO $ setObjectPropertyObject obj "widget" (Just val) constructAccessibleWidget :: (WidgetK a) => a -> IO ([Char], GValue)-constructAccessibleWidget val = constructObjectPropertyObject "widget" val+constructAccessibleWidget val = constructObjectPropertyObject "widget" (Just val) +clearAccessibleWidget :: (MonadIO m, AccessibleK o) => o -> m ()+clearAccessibleWidget obj = liftIO $ setObjectPropertyObject obj "widget" (Nothing :: Maybe Widget)+ data AccessibleWidgetPropertyInfo instance AttrInfo AccessibleWidgetPropertyInfo where- type AttrAllowedOps AccessibleWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps AccessibleWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AccessibleWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint AccessibleWidgetPropertyInfo = AccessibleK type AttrGetType AccessibleWidgetPropertyInfo = Widget@@ -161,10 +167,14 @@ attrGet _ = getAccessibleWidget attrSet _ = setAccessibleWidget attrConstruct _ = constructAccessibleWidget+ attrClear _ = clearAccessibleWidget type instance AttributeList Accessible = AccessibleAttributeList type AccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +accessibleWidget :: AttrLabelProxy "widget"+accessibleWidget = AttrLabelProxy+ type instance SignalList Accessible = AccessibleSignalList type AccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) @@ -172,7 +182,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -199,7 +209,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -228,7 +238,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Accessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -231,6 +231,8 @@ -- * Properties -- ** ActionGroup ActionActionGroupPropertyInfo ,+ actionActionGroup ,+ clearActionActionGroup , constructActionActionGroup , getActionActionGroup , setActionActionGroup ,@@ -238,6 +240,7 @@ -- ** AlwaysShowImage ActionAlwaysShowImagePropertyInfo ,+ actionAlwaysShowImage , constructActionAlwaysShowImage , getActionAlwaysShowImage , setActionAlwaysShowImage ,@@ -245,6 +248,7 @@ -- ** Gicon ActionGiconPropertyInfo ,+ actionGicon , constructActionGicon , getActionGicon , setActionGicon ,@@ -252,6 +256,7 @@ -- ** HideIfEmpty ActionHideIfEmptyPropertyInfo ,+ actionHideIfEmpty , constructActionHideIfEmpty , getActionHideIfEmpty , setActionHideIfEmpty ,@@ -259,6 +264,7 @@ -- ** IconName ActionIconNamePropertyInfo ,+ actionIconName , constructActionIconName , getActionIconName , setActionIconName ,@@ -266,6 +272,7 @@ -- ** IsImportant ActionIsImportantPropertyInfo ,+ actionIsImportant , constructActionIsImportant , getActionIsImportant , setActionIsImportant ,@@ -273,6 +280,7 @@ -- ** Label ActionLabelPropertyInfo ,+ actionLabel , constructActionLabel , getActionLabel , setActionLabel ,@@ -280,12 +288,14 @@ -- ** Name ActionNamePropertyInfo ,+ actionName , constructActionName , getActionName , -- ** Sensitive ActionSensitivePropertyInfo ,+ actionSensitive , constructActionSensitive , getActionSensitive , setActionSensitive ,@@ -293,6 +303,7 @@ -- ** ShortLabel ActionShortLabelPropertyInfo ,+ actionShortLabel , constructActionShortLabel , getActionShortLabel , setActionShortLabel ,@@ -300,6 +311,7 @@ -- ** StockId ActionStockIdPropertyInfo ,+ actionStockId , constructActionStockId , getActionStockId , setActionStockId ,@@ -307,6 +319,7 @@ -- ** Tooltip ActionTooltipPropertyInfo ,+ actionTooltip , constructActionTooltip , getActionTooltip , setActionTooltip ,@@ -314,6 +327,7 @@ -- ** Visible ActionVisiblePropertyInfo ,+ actionVisible , constructActionVisible , getActionVisible , setActionVisible ,@@ -321,6 +335,7 @@ -- ** VisibleHorizontal ActionVisibleHorizontalPropertyInfo ,+ actionVisibleHorizontal , constructActionVisibleHorizontal , getActionVisibleHorizontal , setActionVisibleHorizontal ,@@ -328,6 +343,7 @@ -- ** VisibleOverflown ActionVisibleOverflownPropertyInfo ,+ actionVisibleOverflown , constructActionVisibleOverflown , getActionVisibleOverflown , setActionVisibleOverflown ,@@ -335,6 +351,7 @@ -- ** VisibleVertical ActionVisibleVerticalPropertyInfo ,+ actionVisibleVertical , constructActionVisibleVertical , getActionVisibleVertical , setActionVisibleVertical ,@@ -359,9 +376,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -515,30 +532,36 @@ -- VVV Prop "action-group" -- Type: TInterface "Gtk" "ActionGroup" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getActionActionGroup :: (MonadIO m, ActionK o) => o -> m ActionGroup+getActionActionGroup :: (MonadIO m, ActionK o) => o -> m (Maybe ActionGroup) getActionActionGroup obj = liftIO $ getObjectPropertyObject obj "action-group" ActionGroup setActionActionGroup :: (MonadIO m, ActionK o, ActionGroupK a) => o -> a -> m ()-setActionActionGroup obj val = liftIO $ setObjectPropertyObject obj "action-group" val+setActionActionGroup obj val = liftIO $ setObjectPropertyObject obj "action-group" (Just val) constructActionActionGroup :: (ActionGroupK a) => a -> IO ([Char], GValue)-constructActionActionGroup val = constructObjectPropertyObject "action-group" val+constructActionActionGroup val = constructObjectPropertyObject "action-group" (Just val) +clearActionActionGroup :: (MonadIO m, ActionK o) => o -> m ()+clearActionActionGroup obj = liftIO $ setObjectPropertyObject obj "action-group" (Nothing :: Maybe ActionGroup)+ data ActionActionGroupPropertyInfo instance AttrInfo ActionActionGroupPropertyInfo where- type AttrAllowedOps ActionActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ActionActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ActionActionGroupPropertyInfo = ActionGroupK type AttrBaseTypeConstraint ActionActionGroupPropertyInfo = ActionK- type AttrGetType ActionActionGroupPropertyInfo = ActionGroup+ type AttrGetType ActionActionGroupPropertyInfo = (Maybe ActionGroup) type AttrLabel ActionActionGroupPropertyInfo = "action-group" attrGet _ = getActionActionGroup attrSet _ = setActionActionGroup attrConstruct _ = constructActionActionGroup+ attrClear _ = clearActionActionGroup -- VVV Prop "always-show-image" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getActionAlwaysShowImage :: (MonadIO m, ActionK o) => o -> m Bool getActionAlwaysShowImage obj = liftIO $ getObjectPropertyBool obj "always-show-image"@@ -559,19 +582,21 @@ attrGet _ = getActionAlwaysShowImage attrSet _ = setActionAlwaysShowImage attrConstruct _ = constructActionAlwaysShowImage+ attrClear _ = undefined -- VVV Prop "gicon" -- Type: TInterface "Gio" "Icon" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getActionGicon :: (MonadIO m, ActionK o) => o -> m Gio.Icon-getActionGicon obj = liftIO $ getObjectPropertyObject obj "gicon" Gio.Icon+getActionGicon obj = liftIO $ checkUnexpectedNothing "getActionGicon" $ getObjectPropertyObject obj "gicon" Gio.Icon setActionGicon :: (MonadIO m, ActionK o, Gio.IconK a) => o -> a -> m ()-setActionGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" val+setActionGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" (Just val) constructActionGicon :: (Gio.IconK a) => a -> IO ([Char], GValue)-constructActionGicon val = constructObjectPropertyObject "gicon" val+constructActionGicon val = constructObjectPropertyObject "gicon" (Just val) data ActionGiconPropertyInfo instance AttrInfo ActionGiconPropertyInfo where@@ -583,10 +608,12 @@ attrGet _ = getActionGicon attrSet _ = setActionGicon attrConstruct _ = constructActionGicon+ attrClear _ = undefined -- VVV Prop "hide-if-empty" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getActionHideIfEmpty :: (MonadIO m, ActionK o) => o -> m Bool getActionHideIfEmpty obj = liftIO $ getObjectPropertyBool obj "hide-if-empty"@@ -607,19 +634,21 @@ attrGet _ = getActionHideIfEmpty attrSet _ = setActionHideIfEmpty attrConstruct _ = constructActionHideIfEmpty+ attrClear _ = undefined -- VVV Prop "icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getActionIconName :: (MonadIO m, ActionK o) => o -> m T.Text-getActionIconName obj = liftIO $ getObjectPropertyString obj "icon-name"+getActionIconName obj = liftIO $ checkUnexpectedNothing "getActionIconName" $ getObjectPropertyString obj "icon-name" setActionIconName :: (MonadIO m, ActionK o) => o -> T.Text -> m ()-setActionIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val+setActionIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" (Just val) constructActionIconName :: T.Text -> IO ([Char], GValue)-constructActionIconName val = constructObjectPropertyString "icon-name" val+constructActionIconName val = constructObjectPropertyString "icon-name" (Just val) data ActionIconNamePropertyInfo instance AttrInfo ActionIconNamePropertyInfo where@@ -631,10 +660,12 @@ attrGet _ = getActionIconName attrSet _ = setActionIconName attrConstruct _ = constructActionIconName+ attrClear _ = undefined -- VVV Prop "is-important" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getActionIsImportant :: (MonadIO m, ActionK o) => o -> m Bool getActionIsImportant obj = liftIO $ getObjectPropertyBool obj "is-important"@@ -655,19 +686,21 @@ attrGet _ = getActionIsImportant attrSet _ = setActionIsImportant attrConstruct _ = constructActionIsImportant+ attrClear _ = undefined -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getActionLabel :: (MonadIO m, ActionK o) => o -> m T.Text-getActionLabel obj = liftIO $ getObjectPropertyString obj "label"+getActionLabel obj = liftIO $ checkUnexpectedNothing "getActionLabel" $ getObjectPropertyString obj "label" setActionLabel :: (MonadIO m, ActionK o) => o -> T.Text -> m ()-setActionLabel obj val = liftIO $ setObjectPropertyString obj "label" val+setActionLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) constructActionLabel :: T.Text -> IO ([Char], GValue)-constructActionLabel val = constructObjectPropertyString "label" val+constructActionLabel val = constructObjectPropertyString "label" (Just val) data ActionLabelPropertyInfo instance AttrInfo ActionLabelPropertyInfo where@@ -679,20 +712,22 @@ attrGet _ = getActionLabel attrSet _ = setActionLabel attrConstruct _ = constructActionLabel+ attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+ -- Nullable: (Just False,Nothing) getActionName :: (MonadIO m, ActionK o) => o -> m T.Text-getActionName obj = liftIO $ getObjectPropertyString obj "name"+getActionName obj = liftIO $ checkUnexpectedNothing "getActionName" $ getObjectPropertyString obj "name" constructActionName :: T.Text -> IO ([Char], GValue)-constructActionName val = constructObjectPropertyString "name" val+constructActionName val = constructObjectPropertyString "name" (Just val) data ActionNamePropertyInfo instance AttrInfo ActionNamePropertyInfo where- type AttrAllowedOps ActionNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ActionNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ActionNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ActionNamePropertyInfo = ActionK type AttrGetType ActionNamePropertyInfo = T.Text@@ -700,10 +735,12 @@ attrGet _ = getActionName attrSet _ = undefined attrConstruct _ = constructActionName+ attrClear _ = undefined -- VVV Prop "sensitive" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getActionSensitive :: (MonadIO m, ActionK o) => o -> m Bool getActionSensitive obj = liftIO $ getObjectPropertyBool obj "sensitive"@@ -724,19 +761,21 @@ attrGet _ = getActionSensitive attrSet _ = setActionSensitive attrConstruct _ = constructActionSensitive+ attrClear _ = undefined -- VVV Prop "short-label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getActionShortLabel :: (MonadIO m, ActionK o) => o -> m T.Text-getActionShortLabel obj = liftIO $ getObjectPropertyString obj "short-label"+getActionShortLabel obj = liftIO $ checkUnexpectedNothing "getActionShortLabel" $ getObjectPropertyString obj "short-label" setActionShortLabel :: (MonadIO m, ActionK o) => o -> T.Text -> m ()-setActionShortLabel obj val = liftIO $ setObjectPropertyString obj "short-label" val+setActionShortLabel obj val = liftIO $ setObjectPropertyString obj "short-label" (Just val) constructActionShortLabel :: T.Text -> IO ([Char], GValue)-constructActionShortLabel val = constructObjectPropertyString "short-label" val+constructActionShortLabel val = constructObjectPropertyString "short-label" (Just val) data ActionShortLabelPropertyInfo instance AttrInfo ActionShortLabelPropertyInfo where@@ -748,19 +787,21 @@ attrGet _ = getActionShortLabel attrSet _ = setActionShortLabel attrConstruct _ = constructActionShortLabel+ attrClear _ = undefined -- VVV Prop "stock-id" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getActionStockId :: (MonadIO m, ActionK o) => o -> m T.Text-getActionStockId obj = liftIO $ getObjectPropertyString obj "stock-id"+getActionStockId obj = liftIO $ checkUnexpectedNothing "getActionStockId" $ getObjectPropertyString obj "stock-id" setActionStockId :: (MonadIO m, ActionK o) => o -> T.Text -> m ()-setActionStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" val+setActionStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" (Just val) constructActionStockId :: T.Text -> IO ([Char], GValue)-constructActionStockId val = constructObjectPropertyString "stock-id" val+constructActionStockId val = constructObjectPropertyString "stock-id" (Just val) data ActionStockIdPropertyInfo instance AttrInfo ActionStockIdPropertyInfo where@@ -772,19 +813,21 @@ attrGet _ = getActionStockId attrSet _ = setActionStockId attrConstruct _ = constructActionStockId+ attrClear _ = undefined -- VVV Prop "tooltip" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getActionTooltip :: (MonadIO m, ActionK o) => o -> m T.Text-getActionTooltip obj = liftIO $ getObjectPropertyString obj "tooltip"+getActionTooltip obj = liftIO $ checkUnexpectedNothing "getActionTooltip" $ getObjectPropertyString obj "tooltip" setActionTooltip :: (MonadIO m, ActionK o) => o -> T.Text -> m ()-setActionTooltip obj val = liftIO $ setObjectPropertyString obj "tooltip" val+setActionTooltip obj val = liftIO $ setObjectPropertyString obj "tooltip" (Just val) constructActionTooltip :: T.Text -> IO ([Char], GValue)-constructActionTooltip val = constructObjectPropertyString "tooltip" val+constructActionTooltip val = constructObjectPropertyString "tooltip" (Just val) data ActionTooltipPropertyInfo instance AttrInfo ActionTooltipPropertyInfo where@@ -796,10 +839,12 @@ attrGet _ = getActionTooltip attrSet _ = setActionTooltip attrConstruct _ = constructActionTooltip+ attrClear _ = undefined -- VVV Prop "visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getActionVisible :: (MonadIO m, ActionK o) => o -> m Bool getActionVisible obj = liftIO $ getObjectPropertyBool obj "visible"@@ -820,10 +865,12 @@ attrGet _ = getActionVisible attrSet _ = setActionVisible attrConstruct _ = constructActionVisible+ attrClear _ = undefined -- VVV Prop "visible-horizontal" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getActionVisibleHorizontal :: (MonadIO m, ActionK o) => o -> m Bool getActionVisibleHorizontal obj = liftIO $ getObjectPropertyBool obj "visible-horizontal"@@ -844,10 +891,12 @@ attrGet _ = getActionVisibleHorizontal attrSet _ = setActionVisibleHorizontal attrConstruct _ = constructActionVisibleHorizontal+ attrClear _ = undefined -- VVV Prop "visible-overflown" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getActionVisibleOverflown :: (MonadIO m, ActionK o) => o -> m Bool getActionVisibleOverflown obj = liftIO $ getObjectPropertyBool obj "visible-overflown"@@ -868,10 +917,12 @@ attrGet _ = getActionVisibleOverflown attrSet _ = setActionVisibleOverflown attrConstruct _ = constructActionVisibleOverflown+ attrClear _ = undefined -- VVV Prop "visible-vertical" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getActionVisibleVertical :: (MonadIO m, ActionK o) => o -> m Bool getActionVisibleVertical obj = liftIO $ getObjectPropertyBool obj "visible-vertical"@@ -892,10 +943,59 @@ attrGet _ = getActionVisibleVertical attrSet _ = setActionVisibleVertical attrConstruct _ = constructActionVisibleVertical+ attrClear _ = undefined type instance AttributeList Action = ActionAttributeList type ActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hideIfEmpty", ActionHideIfEmptyPropertyInfo), '("iconName", ActionIconNamePropertyInfo), '("isImportant", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("shortLabel", ActionShortLabelPropertyInfo), '("stockId", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visibleHorizontal", ActionVisibleHorizontalPropertyInfo), '("visibleOverflown", ActionVisibleOverflownPropertyInfo), '("visibleVertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) +actionActionGroup :: AttrLabelProxy "actionGroup"+actionActionGroup = AttrLabelProxy++actionAlwaysShowImage :: AttrLabelProxy "alwaysShowImage"+actionAlwaysShowImage = AttrLabelProxy++actionGicon :: AttrLabelProxy "gicon"+actionGicon = AttrLabelProxy++actionHideIfEmpty :: AttrLabelProxy "hideIfEmpty"+actionHideIfEmpty = AttrLabelProxy++actionIconName :: AttrLabelProxy "iconName"+actionIconName = AttrLabelProxy++actionIsImportant :: AttrLabelProxy "isImportant"+actionIsImportant = AttrLabelProxy++actionLabel :: AttrLabelProxy "label"+actionLabel = AttrLabelProxy++actionName :: AttrLabelProxy "name"+actionName = AttrLabelProxy++actionSensitive :: AttrLabelProxy "sensitive"+actionSensitive = AttrLabelProxy++actionShortLabel :: AttrLabelProxy "shortLabel"+actionShortLabel = AttrLabelProxy++actionStockId :: AttrLabelProxy "stockId"+actionStockId = AttrLabelProxy++actionTooltip :: AttrLabelProxy "tooltip"+actionTooltip = AttrLabelProxy++actionVisible :: AttrLabelProxy "visible"+actionVisible = AttrLabelProxy++actionVisibleHorizontal :: AttrLabelProxy "visibleHorizontal"+actionVisibleHorizontal = AttrLabelProxy++actionVisibleOverflown :: AttrLabelProxy "visibleOverflown"+actionVisibleOverflown = AttrLabelProxy++actionVisibleVertical :: AttrLabelProxy "visibleVertical"+actionVisibleVertical = AttrLabelProxy+ data ActionActivateSignalInfo instance SignalInfo ActionActivateSignalInfo where type HaskellCallbackType ActionActivateSignalInfo = ActionActivateCallback@@ -908,7 +1008,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Action"+-- returnType : Just (TInterface "Gtk" "Action") -- throws : False -- Skip return : False @@ -957,7 +1057,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -984,7 +1084,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1011,7 +1111,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1036,15 +1136,15 @@ -- method Action::create_icon -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False foreign import ccall "gtk_action_create_icon" gtk_action_create_icon :: Ptr Action -> -- _obj : TInterface "Gtk" "Action"- Int32 -> -- icon_size : TBasicType TInt32+ Int32 -> -- icon_size : TBasicType TInt IO (Ptr Widget) {-# DEPRECATED actionCreateIcon ["(Since version 3.10)","Use g_menu_item_set_icon() to set an icon on a #GMenuItem,","or gtk_container_add() to add a #GtkImage to a #GtkButton"]#-}@@ -1069,7 +1169,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1098,7 +1198,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1127,7 +1227,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1156,7 +1256,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1183,7 +1283,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GObject" "Closure"+-- returnType : Just (TInterface "GObject" "Closure") -- throws : False -- Skip return : False @@ -1212,7 +1312,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1241,7 +1341,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1269,7 +1369,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "Icon"+-- returnType : Just (TInterface "Gio" "Icon") -- throws : False -- Skip return : False @@ -1298,7 +1398,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1327,7 +1427,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1355,7 +1455,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1384,7 +1484,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1413,7 +1513,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TInterface "Gtk" "Widget")+-- returnType : Just (TGSList (TInterface "Gtk" "Widget")) -- throws : False -- Skip return : False @@ -1429,7 +1529,6 @@ actionGetProxies _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_get_proxies _obj'- checkUnexpectedReturnNULL "gtk_action_get_proxies" result result' <- unpackGSList result result'' <- mapM (newObject Widget) result' touchManagedPtr _obj@@ -1443,7 +1542,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1471,7 +1570,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1500,7 +1599,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1529,7 +1628,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1558,7 +1657,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1586,7 +1685,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1614,7 +1713,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1642,7 +1741,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1670,7 +1769,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1698,7 +1797,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1733,7 +1832,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1764,7 +1863,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1794,7 +1893,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1825,7 +1924,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1856,7 +1955,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_important", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1886,7 +1985,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1917,7 +2016,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1947,7 +2046,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "short_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1978,7 +2077,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2009,7 +2108,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2040,7 +2139,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2070,7 +2169,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2100,7 +2199,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_vertical", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2130,7 +2229,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Action where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -45,9 +45,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -415,7 +415,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "ActionBar"+-- returnType : Just (TInterface "Gtk" "ActionBar") -- throws : False -- Skip return : False @@ -436,7 +436,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -465,7 +465,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -496,7 +496,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -527,7 +527,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "center_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ActionBar where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -101,6 +101,8 @@ -- * Properties -- ** AccelGroup ActionGroupAccelGroupPropertyInfo ,+ actionGroupAccelGroup ,+ clearActionGroupAccelGroup , constructActionGroupAccelGroup , getActionGroupAccelGroup , setActionGroupAccelGroup ,@@ -108,12 +110,14 @@ -- ** Name ActionGroupNamePropertyInfo ,+ actionGroupName , constructActionGroupName , getActionGroupName , -- ** Sensitive ActionGroupSensitivePropertyInfo ,+ actionGroupSensitive , constructActionGroupSensitive , getActionGroupSensitive , setActionGroupSensitive ,@@ -121,6 +125,7 @@ -- ** Visible ActionGroupVisiblePropertyInfo ,+ actionGroupVisible , constructActionGroupVisible , getActionGroupVisible , setActionGroupVisible ,@@ -181,9 +186,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -449,19 +454,23 @@ -- VVV Prop "accel-group" -- Type: TInterface "Gtk" "AccelGroup" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getActionGroupAccelGroup :: (MonadIO m, ActionGroupK o) => o -> m AccelGroup-getActionGroupAccelGroup obj = liftIO $ getObjectPropertyObject obj "accel-group" AccelGroup+getActionGroupAccelGroup obj = liftIO $ checkUnexpectedNothing "getActionGroupAccelGroup" $ getObjectPropertyObject obj "accel-group" AccelGroup setActionGroupAccelGroup :: (MonadIO m, ActionGroupK o, AccelGroupK a) => o -> a -> m ()-setActionGroupAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" val+setActionGroupAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" (Just val) constructActionGroupAccelGroup :: (AccelGroupK a) => a -> IO ([Char], GValue)-constructActionGroupAccelGroup val = constructObjectPropertyObject "accel-group" val+constructActionGroupAccelGroup val = constructObjectPropertyObject "accel-group" (Just val) +clearActionGroupAccelGroup :: (MonadIO m, ActionGroupK o) => o -> m ()+clearActionGroupAccelGroup obj = liftIO $ setObjectPropertyObject obj "accel-group" (Nothing :: Maybe AccelGroup)+ data ActionGroupAccelGroupPropertyInfo instance AttrInfo ActionGroupAccelGroupPropertyInfo where- type AttrAllowedOps ActionGroupAccelGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ActionGroupAccelGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ActionGroupAccelGroupPropertyInfo = AccelGroupK type AttrBaseTypeConstraint ActionGroupAccelGroupPropertyInfo = ActionGroupK type AttrGetType ActionGroupAccelGroupPropertyInfo = AccelGroup@@ -469,20 +478,22 @@ attrGet _ = getActionGroupAccelGroup attrSet _ = setActionGroupAccelGroup attrConstruct _ = constructActionGroupAccelGroup+ attrClear _ = clearActionGroupAccelGroup -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+ -- Nullable: (Just False,Nothing) getActionGroupName :: (MonadIO m, ActionGroupK o) => o -> m T.Text-getActionGroupName obj = liftIO $ getObjectPropertyString obj "name"+getActionGroupName obj = liftIO $ checkUnexpectedNothing "getActionGroupName" $ getObjectPropertyString obj "name" constructActionGroupName :: T.Text -> IO ([Char], GValue)-constructActionGroupName val = constructObjectPropertyString "name" val+constructActionGroupName val = constructObjectPropertyString "name" (Just val) data ActionGroupNamePropertyInfo instance AttrInfo ActionGroupNamePropertyInfo where- type AttrAllowedOps ActionGroupNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ActionGroupNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ActionGroupNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ActionGroupNamePropertyInfo = ActionGroupK type AttrGetType ActionGroupNamePropertyInfo = T.Text@@ -490,10 +501,12 @@ attrGet _ = getActionGroupName attrSet _ = undefined attrConstruct _ = constructActionGroupName+ attrClear _ = undefined -- VVV Prop "sensitive" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getActionGroupSensitive :: (MonadIO m, ActionGroupK o) => o -> m Bool getActionGroupSensitive obj = liftIO $ getObjectPropertyBool obj "sensitive"@@ -514,10 +527,12 @@ attrGet _ = getActionGroupSensitive attrSet _ = setActionGroupSensitive attrConstruct _ = constructActionGroupSensitive+ attrClear _ = undefined -- VVV Prop "visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getActionGroupVisible :: (MonadIO m, ActionGroupK o) => o -> m Bool getActionGroupVisible obj = liftIO $ getObjectPropertyBool obj "visible"@@ -538,10 +553,23 @@ attrGet _ = getActionGroupVisible attrSet _ = setActionGroupVisible attrConstruct _ = constructActionGroupVisible+ attrClear _ = undefined type instance AttributeList ActionGroup = ActionGroupAttributeList type ActionGroupAttributeList = ('[ '("accelGroup", ActionGroupAccelGroupPropertyInfo), '("name", ActionGroupNamePropertyInfo), '("sensitive", ActionGroupSensitivePropertyInfo), '("visible", ActionGroupVisiblePropertyInfo)] :: [(Symbol, *)]) +actionGroupAccelGroup :: AttrLabelProxy "accelGroup"+actionGroupAccelGroup = AttrLabelProxy++actionGroupName :: AttrLabelProxy "name"+actionGroupName = AttrLabelProxy++actionGroupSensitive :: AttrLabelProxy "sensitive"+actionGroupSensitive = AttrLabelProxy++actionGroupVisible :: AttrLabelProxy "visible"+actionGroupVisible = AttrLabelProxy+ data ActionGroupConnectProxySignalInfo instance SignalInfo ActionGroupConnectProxySignalInfo where type HaskellCallbackType ActionGroupConnectProxySignalInfo = ActionGroupConnectProxyCallback@@ -569,7 +597,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ActionGroup"+-- returnType : Just (TInterface "Gtk" "ActionGroup") -- throws : False -- Skip return : False @@ -594,7 +622,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -625,7 +653,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -664,7 +692,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "AccelGroup"+-- returnType : Just (TInterface "Gtk" "AccelGroup") -- throws : False -- Skip return : False @@ -693,7 +721,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Action"+-- returnType : Just (TInterface "Gtk" "Action") -- throws : False -- Skip return : False @@ -726,7 +754,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -755,7 +783,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -783,7 +811,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -811,7 +839,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Gtk" "Action")+-- returnType : Just (TGList (TInterface "Gtk" "Action")) -- throws : False -- Skip return : False @@ -827,7 +855,6 @@ actionGroupListActions _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_group_list_actions _obj'- checkUnexpectedReturnNULL "gtk_action_group_list_actions" result result' <- unpackGList result result'' <- mapM (newObject Action) result' g_list_free result@@ -842,7 +869,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -873,7 +900,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -908,7 +935,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -936,16 +963,16 @@ -- method ActionGroup::set_translate_func -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_action_group_set_translate_func" gtk_action_group_set_translate_func :: Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup" FunPtr TranslateFuncC -> -- func : TInterface "Gtk" "TranslateFunc"- Ptr () -> -- data : TBasicType TVoid+ Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" IO () @@ -972,7 +999,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1007,7 +1034,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1037,7 +1064,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ActionGroup where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -111,6 +111,7 @@ -- * Properties -- ** Lower AdjustmentLowerPropertyInfo ,+ adjustmentLower , constructAdjustmentLower , getAdjustmentLower , setAdjustmentLower ,@@ -118,6 +119,7 @@ -- ** PageIncrement AdjustmentPageIncrementPropertyInfo ,+ adjustmentPageIncrement , constructAdjustmentPageIncrement , getAdjustmentPageIncrement , setAdjustmentPageIncrement ,@@ -125,6 +127,7 @@ -- ** PageSize AdjustmentPageSizePropertyInfo ,+ adjustmentPageSize , constructAdjustmentPageSize , getAdjustmentPageSize , setAdjustmentPageSize ,@@ -132,6 +135,7 @@ -- ** StepIncrement AdjustmentStepIncrementPropertyInfo ,+ adjustmentStepIncrement , constructAdjustmentStepIncrement , getAdjustmentStepIncrement , setAdjustmentStepIncrement ,@@ -139,6 +143,7 @@ -- ** Upper AdjustmentUpperPropertyInfo ,+ adjustmentUpper , constructAdjustmentUpper , getAdjustmentUpper , setAdjustmentUpper ,@@ -146,6 +151,7 @@ -- ** Value AdjustmentValuePropertyInfo ,+ adjustmentValue , constructAdjustmentValue , getAdjustmentValue , setAdjustmentValue ,@@ -182,9 +188,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -343,6 +349,7 @@ -- VVV Prop "lower" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getAdjustmentLower :: (MonadIO m, AdjustmentK o) => o -> m Double getAdjustmentLower obj = liftIO $ getObjectPropertyDouble obj "lower"@@ -363,10 +370,12 @@ attrGet _ = getAdjustmentLower attrSet _ = setAdjustmentLower attrConstruct _ = constructAdjustmentLower+ attrClear _ = undefined -- VVV Prop "page-increment" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getAdjustmentPageIncrement :: (MonadIO m, AdjustmentK o) => o -> m Double getAdjustmentPageIncrement obj = liftIO $ getObjectPropertyDouble obj "page-increment"@@ -387,10 +396,12 @@ attrGet _ = getAdjustmentPageIncrement attrSet _ = setAdjustmentPageIncrement attrConstruct _ = constructAdjustmentPageIncrement+ attrClear _ = undefined -- VVV Prop "page-size" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getAdjustmentPageSize :: (MonadIO m, AdjustmentK o) => o -> m Double getAdjustmentPageSize obj = liftIO $ getObjectPropertyDouble obj "page-size"@@ -411,10 +422,12 @@ attrGet _ = getAdjustmentPageSize attrSet _ = setAdjustmentPageSize attrConstruct _ = constructAdjustmentPageSize+ attrClear _ = undefined -- VVV Prop "step-increment" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getAdjustmentStepIncrement :: (MonadIO m, AdjustmentK o) => o -> m Double getAdjustmentStepIncrement obj = liftIO $ getObjectPropertyDouble obj "step-increment"@@ -435,10 +448,12 @@ attrGet _ = getAdjustmentStepIncrement attrSet _ = setAdjustmentStepIncrement attrConstruct _ = constructAdjustmentStepIncrement+ attrClear _ = undefined -- VVV Prop "upper" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getAdjustmentUpper :: (MonadIO m, AdjustmentK o) => o -> m Double getAdjustmentUpper obj = liftIO $ getObjectPropertyDouble obj "upper"@@ -459,10 +474,12 @@ attrGet _ = getAdjustmentUpper attrSet _ = setAdjustmentUpper attrConstruct _ = constructAdjustmentUpper+ attrClear _ = undefined -- VVV Prop "value" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getAdjustmentValue :: (MonadIO m, AdjustmentK o) => o -> m Double getAdjustmentValue obj = liftIO $ getObjectPropertyDouble obj "value"@@ -483,10 +500,29 @@ attrGet _ = getAdjustmentValue attrSet _ = setAdjustmentValue attrConstruct _ = constructAdjustmentValue+ attrClear _ = undefined type instance AttributeList Adjustment = AdjustmentAttributeList type AdjustmentAttributeList = ('[ '("lower", AdjustmentLowerPropertyInfo), '("pageIncrement", AdjustmentPageIncrementPropertyInfo), '("pageSize", AdjustmentPageSizePropertyInfo), '("stepIncrement", AdjustmentStepIncrementPropertyInfo), '("upper", AdjustmentUpperPropertyInfo), '("value", AdjustmentValuePropertyInfo)] :: [(Symbol, *)]) +adjustmentLower :: AttrLabelProxy "lower"+adjustmentLower = AttrLabelProxy++adjustmentPageIncrement :: AttrLabelProxy "pageIncrement"+adjustmentPageIncrement = AttrLabelProxy++adjustmentPageSize :: AttrLabelProxy "pageSize"+adjustmentPageSize = AttrLabelProxy++adjustmentStepIncrement :: AttrLabelProxy "stepIncrement"+adjustmentStepIncrement = AttrLabelProxy++adjustmentUpper :: AttrLabelProxy "upper"+adjustmentUpper = AttrLabelProxy++adjustmentValue :: AttrLabelProxy "value"+adjustmentValue = AttrLabelProxy+ data AdjustmentChangedSignalInfo instance SignalInfo AdjustmentChangedSignalInfo where type HaskellCallbackType AdjustmentChangedSignalInfo = AdjustmentChangedCallback@@ -504,7 +540,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Adjustment"+-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -543,7 +579,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -570,7 +606,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -603,7 +639,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -648,7 +684,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -676,7 +712,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -704,7 +740,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -732,7 +768,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -760,7 +796,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -788,7 +824,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -816,7 +852,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -844,7 +880,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -874,7 +910,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -904,7 +940,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -934,7 +970,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -964,7 +1000,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -994,7 +1030,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1024,7 +1060,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Adjustment where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -41,6 +41,7 @@ -- * Properties -- ** BottomPadding AlignmentBottomPaddingPropertyInfo ,+ alignmentBottomPadding , constructAlignmentBottomPadding , getAlignmentBottomPadding , setAlignmentBottomPadding ,@@ -48,6 +49,7 @@ -- ** LeftPadding AlignmentLeftPaddingPropertyInfo ,+ alignmentLeftPadding , constructAlignmentLeftPadding , getAlignmentLeftPadding , setAlignmentLeftPadding ,@@ -55,6 +57,7 @@ -- ** RightPadding AlignmentRightPaddingPropertyInfo ,+ alignmentRightPadding , constructAlignmentRightPadding , getAlignmentRightPadding , setAlignmentRightPadding ,@@ -62,6 +65,7 @@ -- ** TopPadding AlignmentTopPaddingPropertyInfo ,+ alignmentTopPadding , constructAlignmentTopPadding , getAlignmentTopPadding , setAlignmentTopPadding ,@@ -69,6 +73,7 @@ -- ** Xalign AlignmentXalignPropertyInfo ,+ alignmentXalign , constructAlignmentXalign , getAlignmentXalign , setAlignmentXalign ,@@ -76,6 +81,7 @@ -- ** Xscale AlignmentXscalePropertyInfo ,+ alignmentXscale , constructAlignmentXscale , getAlignmentXscale , setAlignmentXscale ,@@ -83,6 +89,7 @@ -- ** Yalign AlignmentYalignPropertyInfo ,+ alignmentYalign , constructAlignmentYalign , getAlignmentYalign , setAlignmentYalign ,@@ -90,6 +97,7 @@ -- ** Yscale AlignmentYscalePropertyInfo ,+ alignmentYscale , constructAlignmentYscale , getAlignmentYscale , setAlignmentYscale ,@@ -99,9 +107,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -459,17 +467,18 @@ #endif -- VVV Prop "bottom-padding"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getAlignmentBottomPadding :: (MonadIO m, AlignmentK o) => o -> m Word32-getAlignmentBottomPadding obj = liftIO $ getObjectPropertyCUInt obj "bottom-padding"+getAlignmentBottomPadding obj = liftIO $ getObjectPropertyUInt32 obj "bottom-padding" setAlignmentBottomPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m ()-setAlignmentBottomPadding obj val = liftIO $ setObjectPropertyCUInt obj "bottom-padding" val+setAlignmentBottomPadding obj val = liftIO $ setObjectPropertyUInt32 obj "bottom-padding" val constructAlignmentBottomPadding :: Word32 -> IO ([Char], GValue)-constructAlignmentBottomPadding val = constructObjectPropertyCUInt "bottom-padding" val+constructAlignmentBottomPadding val = constructObjectPropertyUInt32 "bottom-padding" val data AlignmentBottomPaddingPropertyInfo instance AttrInfo AlignmentBottomPaddingPropertyInfo where@@ -481,19 +490,21 @@ attrGet _ = getAlignmentBottomPadding attrSet _ = setAlignmentBottomPadding attrConstruct _ = constructAlignmentBottomPadding+ attrClear _ = undefined -- VVV Prop "left-padding"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getAlignmentLeftPadding :: (MonadIO m, AlignmentK o) => o -> m Word32-getAlignmentLeftPadding obj = liftIO $ getObjectPropertyCUInt obj "left-padding"+getAlignmentLeftPadding obj = liftIO $ getObjectPropertyUInt32 obj "left-padding" setAlignmentLeftPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m ()-setAlignmentLeftPadding obj val = liftIO $ setObjectPropertyCUInt obj "left-padding" val+setAlignmentLeftPadding obj val = liftIO $ setObjectPropertyUInt32 obj "left-padding" val constructAlignmentLeftPadding :: Word32 -> IO ([Char], GValue)-constructAlignmentLeftPadding val = constructObjectPropertyCUInt "left-padding" val+constructAlignmentLeftPadding val = constructObjectPropertyUInt32 "left-padding" val data AlignmentLeftPaddingPropertyInfo instance AttrInfo AlignmentLeftPaddingPropertyInfo where@@ -505,19 +516,21 @@ attrGet _ = getAlignmentLeftPadding attrSet _ = setAlignmentLeftPadding attrConstruct _ = constructAlignmentLeftPadding+ attrClear _ = undefined -- VVV Prop "right-padding"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getAlignmentRightPadding :: (MonadIO m, AlignmentK o) => o -> m Word32-getAlignmentRightPadding obj = liftIO $ getObjectPropertyCUInt obj "right-padding"+getAlignmentRightPadding obj = liftIO $ getObjectPropertyUInt32 obj "right-padding" setAlignmentRightPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m ()-setAlignmentRightPadding obj val = liftIO $ setObjectPropertyCUInt obj "right-padding" val+setAlignmentRightPadding obj val = liftIO $ setObjectPropertyUInt32 obj "right-padding" val constructAlignmentRightPadding :: Word32 -> IO ([Char], GValue)-constructAlignmentRightPadding val = constructObjectPropertyCUInt "right-padding" val+constructAlignmentRightPadding val = constructObjectPropertyUInt32 "right-padding" val data AlignmentRightPaddingPropertyInfo instance AttrInfo AlignmentRightPaddingPropertyInfo where@@ -529,19 +542,21 @@ attrGet _ = getAlignmentRightPadding attrSet _ = setAlignmentRightPadding attrConstruct _ = constructAlignmentRightPadding+ attrClear _ = undefined -- VVV Prop "top-padding"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getAlignmentTopPadding :: (MonadIO m, AlignmentK o) => o -> m Word32-getAlignmentTopPadding obj = liftIO $ getObjectPropertyCUInt obj "top-padding"+getAlignmentTopPadding obj = liftIO $ getObjectPropertyUInt32 obj "top-padding" setAlignmentTopPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m ()-setAlignmentTopPadding obj val = liftIO $ setObjectPropertyCUInt obj "top-padding" val+setAlignmentTopPadding obj val = liftIO $ setObjectPropertyUInt32 obj "top-padding" val constructAlignmentTopPadding :: Word32 -> IO ([Char], GValue)-constructAlignmentTopPadding val = constructObjectPropertyCUInt "top-padding" val+constructAlignmentTopPadding val = constructObjectPropertyUInt32 "top-padding" val data AlignmentTopPaddingPropertyInfo instance AttrInfo AlignmentTopPaddingPropertyInfo where@@ -553,10 +568,12 @@ attrGet _ = getAlignmentTopPadding attrSet _ = setAlignmentTopPadding attrConstruct _ = constructAlignmentTopPadding+ attrClear _ = undefined -- VVV Prop "xalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getAlignmentXalign :: (MonadIO m, AlignmentK o) => o -> m Float getAlignmentXalign obj = liftIO $ getObjectPropertyFloat obj "xalign"@@ -577,10 +594,12 @@ attrGet _ = getAlignmentXalign attrSet _ = setAlignmentXalign attrConstruct _ = constructAlignmentXalign+ attrClear _ = undefined -- VVV Prop "xscale" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getAlignmentXscale :: (MonadIO m, AlignmentK o) => o -> m Float getAlignmentXscale obj = liftIO $ getObjectPropertyFloat obj "xscale"@@ -601,10 +620,12 @@ attrGet _ = getAlignmentXscale attrSet _ = setAlignmentXscale attrConstruct _ = constructAlignmentXscale+ attrClear _ = undefined -- VVV Prop "yalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getAlignmentYalign :: (MonadIO m, AlignmentK o) => o -> m Float getAlignmentYalign obj = liftIO $ getObjectPropertyFloat obj "yalign"@@ -625,10 +646,12 @@ attrGet _ = getAlignmentYalign attrSet _ = setAlignmentYalign attrConstruct _ = constructAlignmentYalign+ attrClear _ = undefined -- VVV Prop "yscale" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getAlignmentYscale :: (MonadIO m, AlignmentK o) => o -> m Float getAlignmentYscale obj = liftIO $ getObjectPropertyFloat obj "yscale"@@ -649,10 +672,35 @@ attrGet _ = getAlignmentYscale attrSet _ = setAlignmentYscale attrConstruct _ = constructAlignmentYscale+ attrClear _ = undefined type instance AttributeList Alignment = AlignmentAttributeList type AlignmentAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("bottomPadding", AlignmentBottomPaddingPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("leftPadding", AlignmentLeftPaddingPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightPadding", AlignmentRightPaddingPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("topPadding", AlignmentTopPaddingPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", AlignmentXalignPropertyInfo), '("xscale", AlignmentXscalePropertyInfo), '("yalign", AlignmentYalignPropertyInfo), '("yscale", AlignmentYscalePropertyInfo)] :: [(Symbol, *)]) +alignmentBottomPadding :: AttrLabelProxy "bottomPadding"+alignmentBottomPadding = AttrLabelProxy++alignmentLeftPadding :: AttrLabelProxy "leftPadding"+alignmentLeftPadding = AttrLabelProxy++alignmentRightPadding :: AttrLabelProxy "rightPadding"+alignmentRightPadding = AttrLabelProxy++alignmentTopPadding :: AttrLabelProxy "topPadding"+alignmentTopPadding = AttrLabelProxy++alignmentXalign :: AttrLabelProxy "xalign"+alignmentXalign = AttrLabelProxy++alignmentXscale :: AttrLabelProxy "xscale"+alignmentXscale = AttrLabelProxy++alignmentYalign :: AttrLabelProxy "yalign"+alignmentYalign = AttrLabelProxy++alignmentYscale :: AttrLabelProxy "yscale"+alignmentYscale = AttrLabelProxy+ type instance SignalList Alignment = AlignmentSignalList type AlignmentSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -660,7 +708,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Alignment"+-- returnType : Just (TInterface "Gtk" "Alignment") -- throws : False -- Skip return : False @@ -691,18 +739,18 @@ -- method Alignment::get_padding -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_top", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_bottom", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_left", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_right", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_top", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_bottom", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_left", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_right", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_alignment_get_padding" gtk_alignment_get_padding :: Ptr Alignment -> -- _obj : TInterface "Gtk" "Alignment"- Ptr Word32 -> -- padding_top : TBasicType TUInt32- Ptr Word32 -> -- padding_bottom : TBasicType TUInt32- Ptr Word32 -> -- padding_left : TBasicType TUInt32- Ptr Word32 -> -- padding_right : TBasicType TUInt32+ Ptr Word32 -> -- padding_top : TBasicType TUInt+ Ptr Word32 -> -- padding_bottom : TBasicType TUInt+ Ptr Word32 -> -- padding_left : TBasicType TUInt+ Ptr Word32 -> -- padding_right : TBasicType TUInt IO () {-# DEPRECATED alignmentGetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties"]#-}@@ -736,7 +784,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -773,18 +821,18 @@ -- method Alignment::set_padding -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_top", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_bottom", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_left", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_right", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_top", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_bottom", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_left", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_right", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_alignment_set_padding" gtk_alignment_set_padding :: Ptr Alignment -> -- _obj : TInterface "Gtk" "Alignment"- Word32 -> -- padding_top : TBasicType TUInt32- Word32 -> -- padding_bottom : TBasicType TUInt32- Word32 -> -- padding_left : TBasicType TUInt32- Word32 -> -- padding_right : TBasicType TUInt32+ Word32 -> -- padding_top : TBasicType TUInt+ Word32 -> -- padding_bottom : TBasicType TUInt+ Word32 -> -- padding_left : TBasicType TUInt+ Word32 -> -- padding_right : TBasicType TUInt IO () {-# DEPRECATED alignmentSetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties"]#-}
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Alignment where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -71,6 +71,7 @@ -- * Properties -- ** Heading AppChooserButtonHeadingPropertyInfo ,+ appChooserButtonHeading , constructAppChooserButtonHeading , getAppChooserButtonHeading , setAppChooserButtonHeading ,@@ -78,6 +79,7 @@ -- ** ShowDefaultItem AppChooserButtonShowDefaultItemPropertyInfo,+ appChooserButtonShowDefaultItem , constructAppChooserButtonShowDefaultItem, getAppChooserButtonShowDefaultItem , setAppChooserButtonShowDefaultItem ,@@ -85,6 +87,7 @@ -- ** ShowDialogItem AppChooserButtonShowDialogItemPropertyInfo,+ appChooserButtonShowDialogItem , constructAppChooserButtonShowDialogItem , getAppChooserButtonShowDialogItem , setAppChooserButtonShowDialogItem ,@@ -109,9 +112,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -569,15 +572,16 @@ -- VVV Prop "heading" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getAppChooserButtonHeading :: (MonadIO m, AppChooserButtonK o) => o -> m T.Text-getAppChooserButtonHeading obj = liftIO $ getObjectPropertyString obj "heading"+getAppChooserButtonHeading obj = liftIO $ checkUnexpectedNothing "getAppChooserButtonHeading" $ getObjectPropertyString obj "heading" setAppChooserButtonHeading :: (MonadIO m, AppChooserButtonK o) => o -> T.Text -> m ()-setAppChooserButtonHeading obj val = liftIO $ setObjectPropertyString obj "heading" val+setAppChooserButtonHeading obj val = liftIO $ setObjectPropertyString obj "heading" (Just val) constructAppChooserButtonHeading :: T.Text -> IO ([Char], GValue)-constructAppChooserButtonHeading val = constructObjectPropertyString "heading" val+constructAppChooserButtonHeading val = constructObjectPropertyString "heading" (Just val) data AppChooserButtonHeadingPropertyInfo instance AttrInfo AppChooserButtonHeadingPropertyInfo where@@ -589,10 +593,12 @@ attrGet _ = getAppChooserButtonHeading attrSet _ = setAppChooserButtonHeading attrConstruct _ = constructAppChooserButtonHeading+ attrClear _ = undefined -- VVV Prop "show-default-item" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getAppChooserButtonShowDefaultItem :: (MonadIO m, AppChooserButtonK o) => o -> m Bool getAppChooserButtonShowDefaultItem obj = liftIO $ getObjectPropertyBool obj "show-default-item"@@ -613,10 +619,12 @@ attrGet _ = getAppChooserButtonShowDefaultItem attrSet _ = setAppChooserButtonShowDefaultItem attrConstruct _ = constructAppChooserButtonShowDefaultItem+ attrClear _ = undefined -- VVV Prop "show-dialog-item" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getAppChooserButtonShowDialogItem :: (MonadIO m, AppChooserButtonK o) => o -> m Bool getAppChooserButtonShowDialogItem obj = liftIO $ getObjectPropertyBool obj "show-dialog-item"@@ -637,10 +645,20 @@ attrGet _ = getAppChooserButtonShowDialogItem attrSet _ = setAppChooserButtonShowDialogItem attrConstruct _ = constructAppChooserButtonShowDialogItem+ attrClear _ = undefined type instance AttributeList AppChooserButton = AppChooserButtonAttributeList type AppChooserButtonAttributeList = ('[ '("active", ComboBoxActivePropertyInfo), '("activeId", ComboBoxActiveIdPropertyInfo), '("addTearoffs", ComboBoxAddTearoffsPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("buttonSensitivity", ComboBoxButtonSensitivityPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cellArea", ComboBoxCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpanColumn", ComboBoxColumnSpanColumnPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("contentType", AppChooserContentTypePropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("entryTextColumn", ComboBoxEntryTextColumnPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ComboBoxFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasEntry", ComboBoxHasEntryPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasFrame", ComboBoxHasFramePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heading", AppChooserButtonHeadingPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("idColumn", ComboBoxIdColumnPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popupFixedWidth", ComboBoxPopupFixedWidthPropertyInfo), '("popupShown", ComboBoxPopupShownPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpanColumn", ComboBoxRowSpanColumnPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showDefaultItem", AppChooserButtonShowDefaultItemPropertyInfo), '("showDialogItem", AppChooserButtonShowDialogItemPropertyInfo), '("style", WidgetStylePropertyInfo), '("tearoffTitle", ComboBoxTearoffTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrapWidth", ComboBoxWrapWidthPropertyInfo)] :: [(Symbol, *)]) +appChooserButtonHeading :: AttrLabelProxy "heading"+appChooserButtonHeading = AttrLabelProxy++appChooserButtonShowDefaultItem :: AttrLabelProxy "showDefaultItem"+appChooserButtonShowDefaultItem = AttrLabelProxy++appChooserButtonShowDialogItem :: AttrLabelProxy "showDialogItem"+appChooserButtonShowDialogItem = AttrLabelProxy+ data AppChooserButtonCustomItemActivatedSignalInfo instance SignalInfo AppChooserButtonCustomItemActivatedSignalInfo where type HaskellCallbackType AppChooserButtonCustomItemActivatedSignalInfo = AppChooserButtonCustomItemActivatedCallback@@ -653,7 +671,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "AppChooserButton"+-- returnType : Just (TInterface "Gtk" "AppChooserButton") -- throws : False -- Skip return : False @@ -678,7 +696,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -717,7 +735,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -744,7 +762,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -773,7 +791,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -801,7 +819,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -829,7 +847,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -860,7 +878,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -891,7 +909,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -921,7 +939,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.AppChooserButton where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -45,12 +45,14 @@ -- * Properties -- ** Gfile AppChooserDialogGfilePropertyInfo ,+ appChooserDialogGfile , constructAppChooserDialogGfile , getAppChooserDialogGfile , -- ** Heading AppChooserDialogHeadingPropertyInfo ,+ appChooserDialogHeading , constructAppChooserDialogHeading , getAppChooserDialogHeading , setAppChooserDialogHeading ,@@ -60,9 +62,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -539,36 +541,39 @@ -- VVV Prop "gfile" -- Type: TInterface "Gio" "File" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+ -- Nullable: (Nothing,Nothing) -getAppChooserDialogGfile :: (MonadIO m, AppChooserDialogK o) => o -> m Gio.File+getAppChooserDialogGfile :: (MonadIO m, AppChooserDialogK o) => o -> m (Maybe Gio.File) getAppChooserDialogGfile obj = liftIO $ getObjectPropertyObject obj "gfile" Gio.File constructAppChooserDialogGfile :: (Gio.FileK a) => a -> IO ([Char], GValue)-constructAppChooserDialogGfile val = constructObjectPropertyObject "gfile" val+constructAppChooserDialogGfile val = constructObjectPropertyObject "gfile" (Just val) data AppChooserDialogGfilePropertyInfo instance AttrInfo AppChooserDialogGfilePropertyInfo where- type AttrAllowedOps AppChooserDialogGfilePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps AppChooserDialogGfilePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AppChooserDialogGfilePropertyInfo = Gio.FileK type AttrBaseTypeConstraint AppChooserDialogGfilePropertyInfo = AppChooserDialogK- type AttrGetType AppChooserDialogGfilePropertyInfo = Gio.File+ type AttrGetType AppChooserDialogGfilePropertyInfo = (Maybe Gio.File) type AttrLabel AppChooserDialogGfilePropertyInfo = "gfile" attrGet _ = getAppChooserDialogGfile attrSet _ = undefined attrConstruct _ = constructAppChooserDialogGfile+ attrClear _ = undefined -- VVV Prop "heading" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getAppChooserDialogHeading :: (MonadIO m, AppChooserDialogK o) => o -> m T.Text-getAppChooserDialogHeading obj = liftIO $ getObjectPropertyString obj "heading"+getAppChooserDialogHeading obj = liftIO $ checkUnexpectedNothing "getAppChooserDialogHeading" $ getObjectPropertyString obj "heading" setAppChooserDialogHeading :: (MonadIO m, AppChooserDialogK o) => o -> T.Text -> m ()-setAppChooserDialogHeading obj val = liftIO $ setObjectPropertyString obj "heading" val+setAppChooserDialogHeading obj val = liftIO $ setObjectPropertyString obj "heading" (Just val) constructAppChooserDialogHeading :: T.Text -> IO ([Char], GValue)-constructAppChooserDialogHeading val = constructObjectPropertyString "heading" val+constructAppChooserDialogHeading val = constructObjectPropertyString "heading" (Just val) data AppChooserDialogHeadingPropertyInfo instance AttrInfo AppChooserDialogHeadingPropertyInfo where@@ -580,10 +585,17 @@ attrGet _ = getAppChooserDialogHeading attrSet _ = setAppChooserDialogHeading attrConstruct _ = constructAppChooserDialogHeading+ attrClear _ = undefined type instance AttributeList AppChooserDialog = AppChooserDialogAttributeList type AppChooserDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("contentType", AppChooserContentTypePropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gfile", AppChooserDialogGfilePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heading", AppChooserDialogHeadingPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +appChooserDialogGfile :: AttrLabelProxy "gfile"+appChooserDialogGfile = AttrLabelProxy++appChooserDialogHeading :: AttrLabelProxy "heading"+appChooserDialogHeading = AttrLabelProxy+ type instance SignalList AppChooserDialog = AppChooserDialogSignalList type AppChooserDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -591,7 +603,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "AppChooserDialog"+-- returnType : Just (TInterface "Gtk" "AppChooserDialog") -- throws : False -- Skip return : False @@ -627,7 +639,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "AppChooserDialog"+-- returnType : Just (TInterface "Gtk" "AppChooserDialog") -- throws : False -- Skip return : False @@ -663,7 +675,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -692,7 +704,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -721,7 +733,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.AppChooserDialog where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -86,6 +86,7 @@ -- * Properties -- ** DefaultText AppChooserWidgetDefaultTextPropertyInfo ,+ appChooserWidgetDefaultText , constructAppChooserWidgetDefaultText , getAppChooserWidgetDefaultText , setAppChooserWidgetDefaultText ,@@ -93,6 +94,7 @@ -- ** ShowAll AppChooserWidgetShowAllPropertyInfo ,+ appChooserWidgetShowAll , constructAppChooserWidgetShowAll , getAppChooserWidgetShowAll , setAppChooserWidgetShowAll ,@@ -100,6 +102,7 @@ -- ** ShowDefault AppChooserWidgetShowDefaultPropertyInfo ,+ appChooserWidgetShowDefault , constructAppChooserWidgetShowDefault , getAppChooserWidgetShowDefault , setAppChooserWidgetShowDefault ,@@ -107,6 +110,7 @@ -- ** ShowFallback AppChooserWidgetShowFallbackPropertyInfo,+ appChooserWidgetShowFallback , constructAppChooserWidgetShowFallback , getAppChooserWidgetShowFallback , setAppChooserWidgetShowFallback ,@@ -114,6 +118,7 @@ -- ** ShowOther AppChooserWidgetShowOtherPropertyInfo ,+ appChooserWidgetShowOther , constructAppChooserWidgetShowOther , getAppChooserWidgetShowOther , setAppChooserWidgetShowOther ,@@ -121,6 +126,7 @@ -- ** ShowRecommended AppChooserWidgetShowRecommendedPropertyInfo,+ appChooserWidgetShowRecommended , constructAppChooserWidgetShowRecommended, getAppChooserWidgetShowRecommended , setAppChooserWidgetShowRecommended ,@@ -169,9 +175,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -688,15 +694,16 @@ -- VVV Prop "default-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getAppChooserWidgetDefaultText :: (MonadIO m, AppChooserWidgetK o) => o -> m T.Text-getAppChooserWidgetDefaultText obj = liftIO $ getObjectPropertyString obj "default-text"+getAppChooserWidgetDefaultText obj = liftIO $ checkUnexpectedNothing "getAppChooserWidgetDefaultText" $ getObjectPropertyString obj "default-text" setAppChooserWidgetDefaultText :: (MonadIO m, AppChooserWidgetK o) => o -> T.Text -> m ()-setAppChooserWidgetDefaultText obj val = liftIO $ setObjectPropertyString obj "default-text" val+setAppChooserWidgetDefaultText obj val = liftIO $ setObjectPropertyString obj "default-text" (Just val) constructAppChooserWidgetDefaultText :: T.Text -> IO ([Char], GValue)-constructAppChooserWidgetDefaultText val = constructObjectPropertyString "default-text" val+constructAppChooserWidgetDefaultText val = constructObjectPropertyString "default-text" (Just val) data AppChooserWidgetDefaultTextPropertyInfo instance AttrInfo AppChooserWidgetDefaultTextPropertyInfo where@@ -708,10 +715,12 @@ attrGet _ = getAppChooserWidgetDefaultText attrSet _ = setAppChooserWidgetDefaultText attrConstruct _ = constructAppChooserWidgetDefaultText+ attrClear _ = undefined -- VVV Prop "show-all" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getAppChooserWidgetShowAll :: (MonadIO m, AppChooserWidgetK o) => o -> m Bool getAppChooserWidgetShowAll obj = liftIO $ getObjectPropertyBool obj "show-all"@@ -732,10 +741,12 @@ attrGet _ = getAppChooserWidgetShowAll attrSet _ = setAppChooserWidgetShowAll attrConstruct _ = constructAppChooserWidgetShowAll+ attrClear _ = undefined -- VVV Prop "show-default" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getAppChooserWidgetShowDefault :: (MonadIO m, AppChooserWidgetK o) => o -> m Bool getAppChooserWidgetShowDefault obj = liftIO $ getObjectPropertyBool obj "show-default"@@ -756,10 +767,12 @@ attrGet _ = getAppChooserWidgetShowDefault attrSet _ = setAppChooserWidgetShowDefault attrConstruct _ = constructAppChooserWidgetShowDefault+ attrClear _ = undefined -- VVV Prop "show-fallback" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getAppChooserWidgetShowFallback :: (MonadIO m, AppChooserWidgetK o) => o -> m Bool getAppChooserWidgetShowFallback obj = liftIO $ getObjectPropertyBool obj "show-fallback"@@ -780,10 +793,12 @@ attrGet _ = getAppChooserWidgetShowFallback attrSet _ = setAppChooserWidgetShowFallback attrConstruct _ = constructAppChooserWidgetShowFallback+ attrClear _ = undefined -- VVV Prop "show-other" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getAppChooserWidgetShowOther :: (MonadIO m, AppChooserWidgetK o) => o -> m Bool getAppChooserWidgetShowOther obj = liftIO $ getObjectPropertyBool obj "show-other"@@ -804,10 +819,12 @@ attrGet _ = getAppChooserWidgetShowOther attrSet _ = setAppChooserWidgetShowOther attrConstruct _ = constructAppChooserWidgetShowOther+ attrClear _ = undefined -- VVV Prop "show-recommended" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getAppChooserWidgetShowRecommended :: (MonadIO m, AppChooserWidgetK o) => o -> m Bool getAppChooserWidgetShowRecommended obj = liftIO $ getObjectPropertyBool obj "show-recommended"@@ -828,10 +845,29 @@ attrGet _ = getAppChooserWidgetShowRecommended attrSet _ = setAppChooserWidgetShowRecommended attrConstruct _ = constructAppChooserWidgetShowRecommended+ attrClear _ = undefined type instance AttributeList AppChooserWidget = AppChooserWidgetAttributeList type AppChooserWidgetAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("contentType", AppChooserContentTypePropertyInfo), '("defaultText", AppChooserWidgetDefaultTextPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showAll", AppChooserWidgetShowAllPropertyInfo), '("showDefault", AppChooserWidgetShowDefaultPropertyInfo), '("showFallback", AppChooserWidgetShowFallbackPropertyInfo), '("showOther", AppChooserWidgetShowOtherPropertyInfo), '("showRecommended", AppChooserWidgetShowRecommendedPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +appChooserWidgetDefaultText :: AttrLabelProxy "defaultText"+appChooserWidgetDefaultText = AttrLabelProxy++appChooserWidgetShowAll :: AttrLabelProxy "showAll"+appChooserWidgetShowAll = AttrLabelProxy++appChooserWidgetShowDefault :: AttrLabelProxy "showDefault"+appChooserWidgetShowDefault = AttrLabelProxy++appChooserWidgetShowFallback :: AttrLabelProxy "showFallback"+appChooserWidgetShowFallback = AttrLabelProxy++appChooserWidgetShowOther :: AttrLabelProxy "showOther"+appChooserWidgetShowOther = AttrLabelProxy++appChooserWidgetShowRecommended :: AttrLabelProxy "showRecommended"+appChooserWidgetShowRecommended = AttrLabelProxy+ data AppChooserWidgetApplicationActivatedSignalInfo instance SignalInfo AppChooserWidgetApplicationActivatedSignalInfo where type HaskellCallbackType AppChooserWidgetApplicationActivatedSignalInfo = AppChooserWidgetApplicationActivatedCallback@@ -854,7 +890,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "AppChooserWidget"+-- returnType : Just (TInterface "Gtk" "AppChooserWidget") -- throws : False -- Skip return : False @@ -879,7 +915,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -908,7 +944,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -936,7 +972,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -964,7 +1000,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -992,7 +1028,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1020,7 +1056,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1048,7 +1084,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1079,7 +1115,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1109,7 +1145,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1139,7 +1175,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1169,7 +1205,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1199,7 +1235,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.AppChooserWidget where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -126,11 +126,14 @@ -- * Properties -- ** ActiveWindow ApplicationActiveWindowPropertyInfo ,+ applicationActiveWindow , getApplicationActiveWindow , -- ** AppMenu ApplicationAppMenuPropertyInfo ,+ applicationAppMenu ,+ clearApplicationAppMenu , constructApplicationAppMenu , getApplicationAppMenu , setApplicationAppMenu ,@@ -138,6 +141,8 @@ -- ** Menubar ApplicationMenubarPropertyInfo ,+ applicationMenubar ,+ clearApplicationMenubar , constructApplicationMenubar , getApplicationMenubar , setApplicationMenubar ,@@ -145,6 +150,7 @@ -- ** RegisterSession ApplicationRegisterSessionPropertyInfo ,+ applicationRegisterSession , constructApplicationRegisterSession , getApplicationRegisterSession , setApplicationRegisterSession ,@@ -181,9 +187,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -403,13 +409,14 @@ -- VVV Prop "active-window" -- Type: TInterface "Gtk" "Window" -- Flags: [PropertyReadable]+ -- Nullable: (Just False,Nothing) getApplicationActiveWindow :: (MonadIO m, ApplicationK o) => o -> m Window-getApplicationActiveWindow obj = liftIO $ getObjectPropertyObject obj "active-window" Window+getApplicationActiveWindow obj = liftIO $ checkUnexpectedNothing "getApplicationActiveWindow" $ getObjectPropertyObject obj "active-window" Window data ApplicationActiveWindowPropertyInfo instance AttrInfo ApplicationActiveWindowPropertyInfo where- type AttrAllowedOps ApplicationActiveWindowPropertyInfo = '[ 'AttrGet]+ type AttrAllowedOps ApplicationActiveWindowPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ApplicationActiveWindowPropertyInfo = (~) () type AttrBaseTypeConstraint ApplicationActiveWindowPropertyInfo = ApplicationK type AttrGetType ApplicationActiveWindowPropertyInfo = Window@@ -417,23 +424,28 @@ attrGet _ = getApplicationActiveWindow attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "app-menu" -- Type: TInterface "Gio" "MenuModel" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getApplicationAppMenu :: (MonadIO m, ApplicationK o) => o -> m Gio.MenuModel-getApplicationAppMenu obj = liftIO $ getObjectPropertyObject obj "app-menu" Gio.MenuModel+getApplicationAppMenu obj = liftIO $ checkUnexpectedNothing "getApplicationAppMenu" $ getObjectPropertyObject obj "app-menu" Gio.MenuModel setApplicationAppMenu :: (MonadIO m, ApplicationK o, Gio.MenuModelK a) => o -> a -> m ()-setApplicationAppMenu obj val = liftIO $ setObjectPropertyObject obj "app-menu" val+setApplicationAppMenu obj val = liftIO $ setObjectPropertyObject obj "app-menu" (Just val) constructApplicationAppMenu :: (Gio.MenuModelK a) => a -> IO ([Char], GValue)-constructApplicationAppMenu val = constructObjectPropertyObject "app-menu" val+constructApplicationAppMenu val = constructObjectPropertyObject "app-menu" (Just val) +clearApplicationAppMenu :: (MonadIO m, ApplicationK o) => o -> m ()+clearApplicationAppMenu obj = liftIO $ setObjectPropertyObject obj "app-menu" (Nothing :: Maybe Gio.MenuModel)+ data ApplicationAppMenuPropertyInfo instance AttrInfo ApplicationAppMenuPropertyInfo where- type AttrAllowedOps ApplicationAppMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ApplicationAppMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ApplicationAppMenuPropertyInfo = Gio.MenuModelK type AttrBaseTypeConstraint ApplicationAppMenuPropertyInfo = ApplicationK type AttrGetType ApplicationAppMenuPropertyInfo = Gio.MenuModel@@ -441,23 +453,28 @@ attrGet _ = getApplicationAppMenu attrSet _ = setApplicationAppMenu attrConstruct _ = constructApplicationAppMenu+ attrClear _ = clearApplicationAppMenu -- VVV Prop "menubar" -- Type: TInterface "Gio" "MenuModel" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getApplicationMenubar :: (MonadIO m, ApplicationK o) => o -> m Gio.MenuModel-getApplicationMenubar obj = liftIO $ getObjectPropertyObject obj "menubar" Gio.MenuModel+getApplicationMenubar obj = liftIO $ checkUnexpectedNothing "getApplicationMenubar" $ getObjectPropertyObject obj "menubar" Gio.MenuModel setApplicationMenubar :: (MonadIO m, ApplicationK o, Gio.MenuModelK a) => o -> a -> m ()-setApplicationMenubar obj val = liftIO $ setObjectPropertyObject obj "menubar" val+setApplicationMenubar obj val = liftIO $ setObjectPropertyObject obj "menubar" (Just val) constructApplicationMenubar :: (Gio.MenuModelK a) => a -> IO ([Char], GValue)-constructApplicationMenubar val = constructObjectPropertyObject "menubar" val+constructApplicationMenubar val = constructObjectPropertyObject "menubar" (Just val) +clearApplicationMenubar :: (MonadIO m, ApplicationK o) => o -> m ()+clearApplicationMenubar obj = liftIO $ setObjectPropertyObject obj "menubar" (Nothing :: Maybe Gio.MenuModel)+ data ApplicationMenubarPropertyInfo instance AttrInfo ApplicationMenubarPropertyInfo where- type AttrAllowedOps ApplicationMenubarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ApplicationMenubarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ApplicationMenubarPropertyInfo = Gio.MenuModelK type AttrBaseTypeConstraint ApplicationMenubarPropertyInfo = ApplicationK type AttrGetType ApplicationMenubarPropertyInfo = Gio.MenuModel@@ -465,10 +482,12 @@ attrGet _ = getApplicationMenubar attrSet _ = setApplicationMenubar attrConstruct _ = constructApplicationMenubar+ attrClear _ = clearApplicationMenubar -- VVV Prop "register-session" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getApplicationRegisterSession :: (MonadIO m, ApplicationK o) => o -> m Bool getApplicationRegisterSession obj = liftIO $ getObjectPropertyBool obj "register-session"@@ -489,10 +508,23 @@ attrGet _ = getApplicationRegisterSession attrSet _ = setApplicationRegisterSession attrConstruct _ = constructApplicationRegisterSession+ attrClear _ = undefined type instance AttributeList Application = ApplicationAttributeList type ApplicationAttributeList = ('[ '("actionGroup", Gio.ApplicationActionGroupPropertyInfo), '("activeWindow", ApplicationActiveWindowPropertyInfo), '("appMenu", ApplicationAppMenuPropertyInfo), '("applicationId", Gio.ApplicationApplicationIdPropertyInfo), '("flags", Gio.ApplicationFlagsPropertyInfo), '("inactivityTimeout", Gio.ApplicationInactivityTimeoutPropertyInfo), '("isBusy", Gio.ApplicationIsBusyPropertyInfo), '("isRegistered", Gio.ApplicationIsRegisteredPropertyInfo), '("isRemote", Gio.ApplicationIsRemotePropertyInfo), '("menubar", ApplicationMenubarPropertyInfo), '("registerSession", ApplicationRegisterSessionPropertyInfo), '("resourceBasePath", Gio.ApplicationResourceBasePathPropertyInfo)] :: [(Symbol, *)]) +applicationActiveWindow :: AttrLabelProxy "activeWindow"+applicationActiveWindow = AttrLabelProxy++applicationAppMenu :: AttrLabelProxy "appMenu"+applicationAppMenu = AttrLabelProxy++applicationMenubar :: AttrLabelProxy "menubar"+applicationMenubar = AttrLabelProxy++applicationRegisterSession :: AttrLabelProxy "registerSession"+applicationRegisterSession = AttrLabelProxy+ data ApplicationWindowAddedSignalInfo instance SignalInfo ApplicationWindowAddedSignalInfo where type HaskellCallbackType ApplicationWindowAddedSignalInfo = ApplicationWindowAddedCallback@@ -510,7 +542,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "ApplicationFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Application"+-- returnType : Just (TInterface "Gtk" "Application") -- throws : False -- Skip return : False @@ -542,7 +574,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -584,7 +616,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -615,7 +647,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -650,7 +682,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -685,7 +717,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Window"+-- returnType : Just (TInterface "Gtk" "Window") -- throws : False -- Skip return : False @@ -714,7 +746,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "MenuModel"+-- returnType : Just (TInterface "Gio" "MenuModel") -- throws : False -- Skip return : False @@ -743,7 +775,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "Menu"+-- returnType : Just (TInterface "Gio" "Menu") -- throws : False -- Skip return : False @@ -776,7 +808,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "MenuModel"+-- returnType : Just (TInterface "Gio" "MenuModel") -- throws : False -- Skip return : False @@ -803,15 +835,15 @@ -- method Application::get_window_by_id -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Window"+-- returnType : Just (TInterface "Gtk" "Window") -- throws : False -- Skip return : False foreign import ccall "gtk_application_get_window_by_id" gtk_application_get_window_by_id :: Ptr Application -> -- _obj : TInterface "Gtk" "Application"- Word32 -> -- id : TBasicType TUInt32+ Word32 -> -- id : TBasicType TUInt IO (Ptr Window) @@ -836,7 +868,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Gtk" "Window")+-- returnType : Just (TGList (TInterface "Gtk" "Window")) -- throws : False -- Skip return : False @@ -852,7 +884,6 @@ applicationGetWindows _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_application_get_windows _obj'- checkUnexpectedReturnNULL "gtk_application_get_windows" result result' <- unpackGList result result'' <- mapM (newObject Window) result' touchManagedPtr _obj@@ -866,7 +897,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reason", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -912,7 +943,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -943,7 +974,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -974,7 +1005,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1002,7 +1033,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1040,7 +1071,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1071,7 +1102,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accels", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1107,7 +1138,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_menu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1142,7 +1173,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menubar", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1175,15 +1206,15 @@ -- method Application::uninhibit -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_application_uninhibit" gtk_application_uninhibit :: Ptr Application -> -- _obj : TInterface "Gtk" "Application"- Word32 -> -- cookie : TBasicType TUInt32+ Word32 -> -- cookie : TBasicType TUInt IO ()
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Application where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -41,6 +41,7 @@ -- * Properties -- ** ShowMenubar ApplicationWindowShowMenubarPropertyInfo,+ applicationWindowShowMenubar , constructApplicationWindowShowMenubar , getApplicationWindowShowMenubar , setApplicationWindowShowMenubar ,@@ -50,9 +51,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -532,6 +533,7 @@ -- VVV Prop "show-menubar" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getApplicationWindowShowMenubar :: (MonadIO m, ApplicationWindowK o) => o -> m Bool getApplicationWindowShowMenubar obj = liftIO $ getObjectPropertyBool obj "show-menubar"@@ -552,10 +554,14 @@ attrGet _ = getApplicationWindowShowMenubar attrSet _ = setApplicationWindowShowMenubar attrConstruct _ = constructApplicationWindowShowMenubar+ attrClear _ = undefined type instance AttributeList ApplicationWindow = ApplicationWindowAttributeList type ApplicationWindowAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showMenubar", ApplicationWindowShowMenubarPropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +applicationWindowShowMenubar :: AttrLabelProxy "showMenubar"+applicationWindowShowMenubar = AttrLabelProxy+ type instance SignalList ApplicationWindow = ApplicationWindowSignalList type ApplicationWindowSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("actionAdded", Gio.ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", Gio.ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", Gio.ActionGroupActionRemovedSignalInfo), '("actionStateChanged", Gio.ActionGroupActionStateChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -563,7 +569,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ApplicationWindow"+-- returnType : Just (TInterface "Gtk" "ApplicationWindow") -- throws : False -- Skip return : False @@ -588,7 +594,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -615,7 +621,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -643,7 +649,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_menubar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ApplicationWindow where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -31,6 +31,7 @@ -- * Properties -- ** ArrowType ArrowArrowTypePropertyInfo ,+ arrowArrowType , constructArrowArrowType , getArrowArrowType , setArrowArrowType ,@@ -38,6 +39,7 @@ -- ** ShadowType ArrowShadowTypePropertyInfo ,+ arrowShadowType , constructArrowShadowType , getArrowShadowType , setArrowShadowType ,@@ -47,9 +49,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -384,6 +386,7 @@ -- VVV Prop "arrow-type" -- Type: TInterface "Gtk" "ArrowType" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getArrowArrowType :: (MonadIO m, ArrowK o) => o -> m ArrowType getArrowArrowType obj = liftIO $ getObjectPropertyEnum obj "arrow-type"@@ -404,10 +407,12 @@ attrGet _ = getArrowArrowType attrSet _ = setArrowArrowType attrConstruct _ = constructArrowArrowType+ attrClear _ = undefined -- VVV Prop "shadow-type" -- Type: TInterface "Gtk" "ShadowType" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getArrowShadowType :: (MonadIO m, ArrowK o) => o -> m ShadowType getArrowShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type"@@ -428,10 +433,17 @@ attrGet _ = getArrowShadowType attrSet _ = setArrowShadowType attrConstruct _ = constructArrowShadowType+ attrClear _ = undefined type instance AttributeList Arrow = ArrowAttributeList type ArrowAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("arrowType", ArrowArrowTypePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", ArrowShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) +arrowArrowType :: AttrLabelProxy "arrowType"+arrowArrowType = AttrLabelProxy++arrowShadowType :: AttrLabelProxy "shadowType"+arrowShadowType = AttrLabelProxy+ type instance SignalList Arrow = ArrowSignalList type ArrowSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -439,7 +451,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Arrow"+-- returnType : Just (TInterface "Gtk" "Arrow") -- throws : False -- Skip return : False @@ -466,7 +478,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Arrow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Arrow where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ArrowAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -31,6 +31,7 @@ -- * Properties -- ** ObeyChild AspectFrameObeyChildPropertyInfo ,+ aspectFrameObeyChild , constructAspectFrameObeyChild , getAspectFrameObeyChild , setAspectFrameObeyChild ,@@ -38,6 +39,7 @@ -- ** Ratio AspectFrameRatioPropertyInfo ,+ aspectFrameRatio , constructAspectFrameRatio , getAspectFrameRatio , setAspectFrameRatio ,@@ -45,6 +47,7 @@ -- ** Xalign AspectFrameXalignPropertyInfo ,+ aspectFrameXalign , constructAspectFrameXalign , getAspectFrameXalign , setAspectFrameXalign ,@@ -52,6 +55,7 @@ -- ** Yalign AspectFrameYalignPropertyInfo ,+ aspectFrameYalign , constructAspectFrameYalign , getAspectFrameYalign , setAspectFrameYalign ,@@ -61,9 +65,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -429,6 +433,7 @@ -- VVV Prop "obey-child" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getAspectFrameObeyChild :: (MonadIO m, AspectFrameK o) => o -> m Bool getAspectFrameObeyChild obj = liftIO $ getObjectPropertyBool obj "obey-child"@@ -449,10 +454,12 @@ attrGet _ = getAspectFrameObeyChild attrSet _ = setAspectFrameObeyChild attrConstruct _ = constructAspectFrameObeyChild+ attrClear _ = undefined -- VVV Prop "ratio" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getAspectFrameRatio :: (MonadIO m, AspectFrameK o) => o -> m Float getAspectFrameRatio obj = liftIO $ getObjectPropertyFloat obj "ratio"@@ -473,10 +480,12 @@ attrGet _ = getAspectFrameRatio attrSet _ = setAspectFrameRatio attrConstruct _ = constructAspectFrameRatio+ attrClear _ = undefined -- VVV Prop "xalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getAspectFrameXalign :: (MonadIO m, AspectFrameK o) => o -> m Float getAspectFrameXalign obj = liftIO $ getObjectPropertyFloat obj "xalign"@@ -497,10 +506,12 @@ attrGet _ = getAspectFrameXalign attrSet _ = setAspectFrameXalign attrConstruct _ = constructAspectFrameXalign+ attrClear _ = undefined -- VVV Prop "yalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getAspectFrameYalign :: (MonadIO m, AspectFrameK o) => o -> m Float getAspectFrameYalign obj = liftIO $ getObjectPropertyFloat obj "yalign"@@ -521,10 +532,23 @@ attrGet _ = getAspectFrameYalign attrSet _ = setAspectFrameYalign attrConstruct _ = constructAspectFrameYalign+ attrClear _ = undefined type instance AttributeList AspectFrame = AspectFrameAttributeList type AspectFrameAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", FrameLabelPropertyInfo), '("labelWidget", FrameLabelWidgetPropertyInfo), '("labelXalign", FrameLabelXalignPropertyInfo), '("labelYalign", FrameLabelYalignPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("obeyChild", AspectFrameObeyChildPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("ratio", AspectFrameRatioPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", FrameShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", AspectFrameXalignPropertyInfo), '("yalign", AspectFrameYalignPropertyInfo)] :: [(Symbol, *)]) +aspectFrameObeyChild :: AttrLabelProxy "obeyChild"+aspectFrameObeyChild = AttrLabelProxy++aspectFrameRatio :: AttrLabelProxy "ratio"+aspectFrameRatio = AttrLabelProxy++aspectFrameXalign :: AttrLabelProxy "xalign"+aspectFrameXalign = AttrLabelProxy++aspectFrameYalign :: AttrLabelProxy "yalign"+aspectFrameYalign = AttrLabelProxy+ type instance SignalList AspectFrame = AspectFrameSignalList type AspectFrameSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -532,7 +556,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "AspectFrame"+-- returnType : Just (TInterface "Gtk" "AspectFrame") -- throws : False -- Skip return : False @@ -573,7 +597,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AspectFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.AspectFrame where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -161,6 +161,7 @@ -- * Properties -- ** UseHeaderBar AssistantUseHeaderBarPropertyInfo ,+ assistantUseHeaderBar , constructAssistantUseHeaderBar , getAssistantUseHeaderBar , @@ -232,9 +233,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -913,14 +914,15 @@ connectSignalFunPtr obj "prepare" cb' after -- VVV Prop "use-header-bar"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+ -- Nullable: (Nothing,Nothing) getAssistantUseHeaderBar :: (MonadIO m, AssistantK o) => o -> m Int32-getAssistantUseHeaderBar obj = liftIO $ getObjectPropertyCInt obj "use-header-bar"+getAssistantUseHeaderBar obj = liftIO $ getObjectPropertyInt32 obj "use-header-bar" constructAssistantUseHeaderBar :: Int32 -> IO ([Char], GValue)-constructAssistantUseHeaderBar val = constructObjectPropertyCInt "use-header-bar" val+constructAssistantUseHeaderBar val = constructObjectPropertyInt32 "use-header-bar" val data AssistantUseHeaderBarPropertyInfo instance AttrInfo AssistantUseHeaderBarPropertyInfo where@@ -932,10 +934,14 @@ attrGet _ = getAssistantUseHeaderBar attrSet _ = undefined attrConstruct _ = constructAssistantUseHeaderBar+ attrClear _ = undefined type instance AttributeList Assistant = AssistantAttributeList type AssistantAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", AssistantUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +assistantUseHeaderBar :: AttrLabelProxy "useHeaderBar"+assistantUseHeaderBar = AttrLabelProxy+ data AssistantApplySignalInfo instance SignalInfo AssistantApplySignalInfo where type HaskellCallbackType AssistantApplySignalInfo = AssistantApplyCallback@@ -968,7 +974,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "Assistant"+-- returnType : Just (TInterface "Gtk" "Assistant") -- throws : False -- Skip return : False @@ -989,7 +995,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1020,7 +1026,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1051,7 +1057,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1078,7 +1084,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1105,7 +1111,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1130,15 +1136,15 @@ -- method Assistant::get_nth_page -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False foreign import ccall "gtk_assistant_get_nth_page" gtk_assistant_get_nth_page :: Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"- Int32 -> -- page_num : TBasicType TInt32+ Int32 -> -- page_num : TBasicType TInt IO (Ptr Widget) @@ -1163,7 +1169,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1195,7 +1201,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1227,7 +1233,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -1260,7 +1266,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -1293,7 +1299,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1326,7 +1332,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "AssistantPageType"+-- returnType : Just (TInterface "Gtk" "AssistantPageType") -- throws : False -- Skip return : False @@ -1356,16 +1362,16 @@ -- method Assistant::insert_page -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_assistant_insert_page" gtk_assistant_insert_page :: Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" Ptr Widget -> -- page : TInterface "Gtk" "Widget"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt IO Int32 @@ -1391,7 +1397,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1418,7 +1424,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1449,7 +1455,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1476,7 +1482,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1505,15 +1511,15 @@ -- method Assistant::remove_page -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_assistant_remove_page" gtk_assistant_remove_page :: Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"- Int32 -> -- page_num : TBasicType TInt32+ Int32 -> -- page_num : TBasicType TInt IO () @@ -1534,15 +1540,15 @@ -- method Assistant::set_current_page -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_assistant_set_current_page" gtk_assistant_set_current_page :: Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"- Int32 -> -- page_num : TBasicType TInt32+ Int32 -> -- page_num : TBasicType TInt IO () @@ -1563,16 +1569,16 @@ -- method Assistant::set_forward_page_func -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_func", argType = TInterface "Gtk" "AssistantPageFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_func", argType = TInterface "Gtk" "AssistantPageFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_assistant_set_forward_page_func" gtk_assistant_set_forward_page_func :: Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" FunPtr AssistantPageFuncC -> -- page_func : TInterface "Gtk" "AssistantPageFunc"- Ptr () -> -- data : TBasicType TVoid+ Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -1603,7 +1609,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "complete", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1637,7 +1643,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_padding", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1671,7 +1677,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1710,7 +1716,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1749,7 +1755,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1784,7 +1790,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "AssistantPageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1818,7 +1824,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Assistant where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -26,9 +26,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -392,7 +392,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Bin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Bin where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.BooleanCellAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -91,6 +91,7 @@ -- * Properties -- ** BaselinePosition BoxBaselinePositionPropertyInfo ,+ boxBaselinePosition , constructBoxBaselinePosition , getBoxBaselinePosition , setBoxBaselinePosition ,@@ -98,6 +99,7 @@ -- ** Homogeneous BoxHomogeneousPropertyInfo ,+ boxHomogeneous , constructBoxHomogeneous , getBoxHomogeneous , setBoxHomogeneous ,@@ -105,6 +107,7 @@ -- ** Spacing BoxSpacingPropertyInfo ,+ boxSpacing , constructBoxSpacing , getBoxSpacing , setBoxSpacing ,@@ -114,9 +117,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -487,6 +490,7 @@ -- VVV Prop "baseline-position" -- Type: TInterface "Gtk" "BaselinePosition" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getBoxBaselinePosition :: (MonadIO m, BoxK o) => o -> m BaselinePosition getBoxBaselinePosition obj = liftIO $ getObjectPropertyEnum obj "baseline-position"@@ -507,10 +511,12 @@ attrGet _ = getBoxBaselinePosition attrSet _ = setBoxBaselinePosition attrConstruct _ = constructBoxBaselinePosition+ attrClear _ = undefined -- VVV Prop "homogeneous" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getBoxHomogeneous :: (MonadIO m, BoxK o) => o -> m Bool getBoxHomogeneous obj = liftIO $ getObjectPropertyBool obj "homogeneous"@@ -531,19 +537,21 @@ attrGet _ = getBoxHomogeneous attrSet _ = setBoxHomogeneous attrConstruct _ = constructBoxHomogeneous+ attrClear _ = undefined -- VVV Prop "spacing"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getBoxSpacing :: (MonadIO m, BoxK o) => o -> m Int32-getBoxSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing"+getBoxSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing" setBoxSpacing :: (MonadIO m, BoxK o) => o -> Int32 -> m ()-setBoxSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val+setBoxSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val constructBoxSpacing :: Int32 -> IO ([Char], GValue)-constructBoxSpacing val = constructObjectPropertyCInt "spacing" val+constructBoxSpacing val = constructObjectPropertyInt32 "spacing" val data BoxSpacingPropertyInfo instance AttrInfo BoxSpacingPropertyInfo where@@ -555,24 +563,34 @@ attrGet _ = getBoxSpacing attrSet _ = setBoxSpacing attrConstruct _ = constructBoxSpacing+ attrClear _ = undefined type instance AttributeList Box = BoxAttributeList type BoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +boxBaselinePosition :: AttrLabelProxy "baselinePosition"+boxBaselinePosition = AttrLabelProxy++boxHomogeneous :: AttrLabelProxy "homogeneous"+boxHomogeneous = AttrLabelProxy++boxSpacing :: AttrLabelProxy "spacing"+boxSpacing = AttrLabelProxy+ type instance SignalList Box = BoxSignalList type BoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Box::new -- method type : Constructor--- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Box"+-- returnType : Just (TInterface "Gtk" "Box") -- throws : False -- Skip return : False foreign import ccall "gtk_box_new" gtk_box_new :: CUInt -> -- orientation : TInterface "Gtk" "Orientation"- Int32 -> -- spacing : TBasicType TInt32+ Int32 -> -- spacing : TBasicType TInt IO (Ptr Box) @@ -592,7 +610,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "BaselinePosition"+-- returnType : Just (TInterface "Gtk" "BaselinePosition") -- throws : False -- Skip return : False @@ -620,7 +638,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -649,7 +667,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -677,7 +695,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -702,9 +720,9 @@ -- method Box::pack_end -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -713,7 +731,7 @@ Ptr Widget -> -- child : TInterface "Gtk" "Widget" CInt -> -- expand : TBasicType TBoolean CInt -> -- fill : TBasicType TBoolean- Word32 -> -- padding : TBasicType TUInt32+ Word32 -> -- padding : TBasicType TUInt IO () @@ -741,9 +759,9 @@ -- method Box::pack_start -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -752,7 +770,7 @@ Ptr Widget -> -- child : TInterface "Gtk" "Widget" CInt -> -- expand : TBasicType TBoolean CInt -> -- fill : TBasicType TBoolean- Word32 -> -- padding : TBasicType TUInt32+ Word32 -> -- padding : TBasicType TUInt IO () @@ -780,9 +798,9 @@ -- method Box::query_child_packing -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -791,7 +809,7 @@ Ptr Widget -> -- child : TInterface "Gtk" "Widget" Ptr CInt -> -- expand : TBasicType TBoolean Ptr CInt -> -- fill : TBasicType TBoolean- Ptr Word32 -> -- padding : TBasicType TUInt32+ Ptr Word32 -> -- padding : TBasicType TUInt Ptr CUInt -> -- pack_type : TInterface "Gtk" "PackType" IO () @@ -830,16 +848,16 @@ -- method Box::reorder_child -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_box_reorder_child" gtk_box_reorder_child :: Ptr Box -> -- _obj : TInterface "Gtk" "Box" Ptr Widget -> -- child : TInterface "Gtk" "Widget"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt IO () @@ -865,7 +883,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -895,7 +913,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -928,9 +946,9 @@ -- method Box::set_child_packing -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -939,7 +957,7 @@ Ptr Widget -> -- child : TInterface "Gtk" "Widget" CInt -> -- expand : TBasicType TBoolean CInt -> -- fill : TBasicType TBoolean- Word32 -> -- padding : TBasicType TUInt32+ Word32 -> -- padding : TBasicType TUInt CUInt -> -- pack_type : TInterface "Gtk" "PackType" IO () @@ -972,7 +990,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1000,15 +1018,15 @@ -- method Box::set_spacing -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_box_set_spacing" gtk_box_set_spacing :: Ptr Box -> -- _obj : TInterface "Gtk" "Box"- Int32 -> -- spacing : TBasicType TInt32+ Int32 -> -- spacing : TBasicType TInt IO ()
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Box where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -133,6 +133,8 @@ -- * Properties -- ** TranslationDomain BuilderTranslationDomainPropertyInfo ,+ builderTranslationDomain ,+ clearBuilderTranslationDomain , constructBuilderTranslationDomain , getBuilderTranslationDomain , setBuilderTranslationDomain ,@@ -142,9 +144,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -229,19 +231,23 @@ -- VVV Prop "translation-domain" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getBuilderTranslationDomain :: (MonadIO m, BuilderK o) => o -> m T.Text-getBuilderTranslationDomain obj = liftIO $ getObjectPropertyString obj "translation-domain"+getBuilderTranslationDomain obj = liftIO $ checkUnexpectedNothing "getBuilderTranslationDomain" $ getObjectPropertyString obj "translation-domain" setBuilderTranslationDomain :: (MonadIO m, BuilderK o) => o -> T.Text -> m ()-setBuilderTranslationDomain obj val = liftIO $ setObjectPropertyString obj "translation-domain" val+setBuilderTranslationDomain obj val = liftIO $ setObjectPropertyString obj "translation-domain" (Just val) constructBuilderTranslationDomain :: T.Text -> IO ([Char], GValue)-constructBuilderTranslationDomain val = constructObjectPropertyString "translation-domain" val+constructBuilderTranslationDomain val = constructObjectPropertyString "translation-domain" (Just val) +clearBuilderTranslationDomain :: (MonadIO m, BuilderK o) => o -> m ()+clearBuilderTranslationDomain obj = liftIO $ setObjectPropertyString obj "translation-domain" (Nothing :: Maybe T.Text)+ data BuilderTranslationDomainPropertyInfo instance AttrInfo BuilderTranslationDomainPropertyInfo where- type AttrAllowedOps BuilderTranslationDomainPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps BuilderTranslationDomainPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint BuilderTranslationDomainPropertyInfo = (~) T.Text type AttrBaseTypeConstraint BuilderTranslationDomainPropertyInfo = BuilderK type AttrGetType BuilderTranslationDomainPropertyInfo = T.Text@@ -249,10 +255,14 @@ attrGet _ = getBuilderTranslationDomain attrSet _ = setBuilderTranslationDomain attrConstruct _ = constructBuilderTranslationDomain+ attrClear _ = clearBuilderTranslationDomain type instance AttributeList Builder = BuilderAttributeList type BuilderAttributeList = ('[ '("translationDomain", BuilderTranslationDomainPropertyInfo)] :: [(Symbol, *)]) +builderTranslationDomain :: AttrLabelProxy "translationDomain"+builderTranslationDomain = AttrLabelProxy+ type instance SignalList Builder = BuilderSignalList type BuilderSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -260,7 +270,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "Builder"+-- returnType : Just (TInterface "Gtk" "Builder") -- throws : False -- Skip return : False @@ -281,7 +291,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Builder"+-- returnType : Just (TInterface "Gtk" "Builder") -- throws : False -- Skip return : False @@ -306,7 +316,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Builder"+-- returnType : Just (TInterface "Gtk" "Builder") -- throws : False -- Skip return : False @@ -331,7 +341,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Builder"+-- returnType : Just (TInterface "Gtk" "Builder") -- throws : False -- Skip return : False @@ -358,7 +368,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_symbol", argType = TInterface "GObject" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -394,7 +404,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : True -- Skip return : False @@ -430,7 +440,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : True -- Skip return : False @@ -466,7 +476,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : True -- Skip return : False @@ -504,7 +514,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : True -- Skip return : False @@ -547,7 +557,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : True -- Skip return : False @@ -590,7 +600,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : True -- Skip return : False @@ -633,15 +643,15 @@ -- method Builder::connect_signals -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_builder_connect_signals" gtk_builder_connect_signals :: Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr IO () @@ -662,16 +672,16 @@ -- method Builder::connect_signals_full -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "BuilderConnectFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "BuilderConnectFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_builder_connect_signals_full" gtk_builder_connect_signals_full :: Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" FunPtr BuilderConnectFuncC -> -- func : TInterface "Gtk" "BuilderConnectFunc"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr IO () @@ -697,7 +707,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -732,7 +742,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Application"+-- returnType : Just (TInterface "Gtk" "Application") -- throws : False -- Skip return : False @@ -761,7 +771,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GObject" "Object"+-- returnType : Just (TInterface "GObject" "Object") -- throws : False -- Skip return : False @@ -794,7 +804,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TInterface "GObject" "Object")+-- returnType : Just (TGSList (TInterface "GObject" "Object")) -- throws : False -- Skip return : False @@ -810,7 +820,6 @@ builderGetObjects _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_builder_get_objects _obj'- checkUnexpectedReturnNULL "gtk_builder_get_objects" result result' <- unpackGSList result result'' <- mapM (newObject GObject.Object) result' g_slist_free result@@ -825,7 +834,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -854,7 +863,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TGType+-- returnType : Just (TBasicType TGType) -- throws : False -- Skip return : False @@ -886,7 +895,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -917,7 +926,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -952,7 +961,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -995,7 +1004,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Builder where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -162,6 +162,7 @@ -- * Properties -- ** AlwaysShowImage ButtonAlwaysShowImagePropertyInfo ,+ buttonAlwaysShowImage , constructButtonAlwaysShowImage , getButtonAlwaysShowImage , setButtonAlwaysShowImage ,@@ -169,6 +170,7 @@ -- ** FocusOnClick ButtonFocusOnClickPropertyInfo ,+ buttonFocusOnClick , constructButtonFocusOnClick , getButtonFocusOnClick , setButtonFocusOnClick ,@@ -176,6 +178,7 @@ -- ** Image ButtonImagePropertyInfo ,+ buttonImage , constructButtonImage , getButtonImage , setButtonImage ,@@ -183,6 +186,7 @@ -- ** ImagePosition ButtonImagePositionPropertyInfo ,+ buttonImagePosition , constructButtonImagePosition , getButtonImagePosition , setButtonImagePosition ,@@ -190,6 +194,7 @@ -- ** Label ButtonLabelPropertyInfo ,+ buttonLabel , constructButtonLabel , getButtonLabel , setButtonLabel ,@@ -197,6 +202,7 @@ -- ** Relief ButtonReliefPropertyInfo ,+ buttonRelief , constructButtonRelief , getButtonRelief , setButtonRelief ,@@ -204,6 +210,7 @@ -- ** UseStock ButtonUseStockPropertyInfo ,+ buttonUseStock , constructButtonUseStock , getButtonUseStock , setButtonUseStock ,@@ -211,6 +218,7 @@ -- ** UseUnderline ButtonUseUnderlinePropertyInfo ,+ buttonUseUnderline , constructButtonUseUnderline , getButtonUseUnderline , setButtonUseUnderline ,@@ -218,6 +226,7 @@ -- ** Xalign ButtonXalignPropertyInfo ,+ buttonXalign , constructButtonXalign , getButtonXalign , setButtonXalign ,@@ -225,6 +234,7 @@ -- ** Yalign ButtonYalignPropertyInfo ,+ buttonYalign , constructButtonYalign , getButtonYalign , setButtonYalign ,@@ -309,9 +319,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -932,6 +942,7 @@ -- VVV Prop "always-show-image" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getButtonAlwaysShowImage :: (MonadIO m, ButtonK o) => o -> m Bool getButtonAlwaysShowImage obj = liftIO $ getObjectPropertyBool obj "always-show-image"@@ -952,10 +963,12 @@ attrGet _ = getButtonAlwaysShowImage attrSet _ = setButtonAlwaysShowImage attrConstruct _ = constructButtonAlwaysShowImage+ attrClear _ = undefined -- VVV Prop "focus-on-click" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getButtonFocusOnClick :: (MonadIO m, ButtonK o) => o -> m Bool getButtonFocusOnClick obj = liftIO $ getObjectPropertyBool obj "focus-on-click"@@ -976,19 +989,21 @@ attrGet _ = getButtonFocusOnClick attrSet _ = setButtonFocusOnClick attrConstruct _ = constructButtonFocusOnClick+ attrClear _ = undefined -- VVV Prop "image" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getButtonImage :: (MonadIO m, ButtonK o) => o -> m Widget-getButtonImage obj = liftIO $ getObjectPropertyObject obj "image" Widget+getButtonImage obj = liftIO $ checkUnexpectedNothing "getButtonImage" $ getObjectPropertyObject obj "image" Widget setButtonImage :: (MonadIO m, ButtonK o, WidgetK a) => o -> a -> m ()-setButtonImage obj val = liftIO $ setObjectPropertyObject obj "image" val+setButtonImage obj val = liftIO $ setObjectPropertyObject obj "image" (Just val) constructButtonImage :: (WidgetK a) => a -> IO ([Char], GValue)-constructButtonImage val = constructObjectPropertyObject "image" val+constructButtonImage val = constructObjectPropertyObject "image" (Just val) data ButtonImagePropertyInfo instance AttrInfo ButtonImagePropertyInfo where@@ -1000,10 +1015,12 @@ attrGet _ = getButtonImage attrSet _ = setButtonImage attrConstruct _ = constructButtonImage+ attrClear _ = undefined -- VVV Prop "image-position" -- Type: TInterface "Gtk" "PositionType" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getButtonImagePosition :: (MonadIO m, ButtonK o) => o -> m PositionType getButtonImagePosition obj = liftIO $ getObjectPropertyEnum obj "image-position"@@ -1024,19 +1041,21 @@ attrGet _ = getButtonImagePosition attrSet _ = setButtonImagePosition attrConstruct _ = constructButtonImagePosition+ attrClear _ = undefined -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getButtonLabel :: (MonadIO m, ButtonK o) => o -> m T.Text-getButtonLabel obj = liftIO $ getObjectPropertyString obj "label"+getButtonLabel obj = liftIO $ checkUnexpectedNothing "getButtonLabel" $ getObjectPropertyString obj "label" setButtonLabel :: (MonadIO m, ButtonK o) => o -> T.Text -> m ()-setButtonLabel obj val = liftIO $ setObjectPropertyString obj "label" val+setButtonLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) constructButtonLabel :: T.Text -> IO ([Char], GValue)-constructButtonLabel val = constructObjectPropertyString "label" val+constructButtonLabel val = constructObjectPropertyString "label" (Just val) data ButtonLabelPropertyInfo instance AttrInfo ButtonLabelPropertyInfo where@@ -1048,10 +1067,12 @@ attrGet _ = getButtonLabel attrSet _ = setButtonLabel attrConstruct _ = constructButtonLabel+ attrClear _ = undefined -- VVV Prop "relief" -- Type: TInterface "Gtk" "ReliefStyle" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getButtonRelief :: (MonadIO m, ButtonK o) => o -> m ReliefStyle getButtonRelief obj = liftIO $ getObjectPropertyEnum obj "relief"@@ -1072,10 +1093,12 @@ attrGet _ = getButtonRelief attrSet _ = setButtonRelief attrConstruct _ = constructButtonRelief+ attrClear _ = undefined -- VVV Prop "use-stock" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getButtonUseStock :: (MonadIO m, ButtonK o) => o -> m Bool getButtonUseStock obj = liftIO $ getObjectPropertyBool obj "use-stock"@@ -1096,10 +1119,12 @@ attrGet _ = getButtonUseStock attrSet _ = setButtonUseStock attrConstruct _ = constructButtonUseStock+ attrClear _ = undefined -- VVV Prop "use-underline" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getButtonUseUnderline :: (MonadIO m, ButtonK o) => o -> m Bool getButtonUseUnderline obj = liftIO $ getObjectPropertyBool obj "use-underline"@@ -1120,10 +1145,12 @@ attrGet _ = getButtonUseUnderline attrSet _ = setButtonUseUnderline attrConstruct _ = constructButtonUseUnderline+ attrClear _ = undefined -- VVV Prop "xalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getButtonXalign :: (MonadIO m, ButtonK o) => o -> m Float getButtonXalign obj = liftIO $ getObjectPropertyFloat obj "xalign"@@ -1144,10 +1171,12 @@ attrGet _ = getButtonXalign attrSet _ = setButtonXalign attrConstruct _ = constructButtonXalign+ attrClear _ = undefined -- VVV Prop "yalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getButtonYalign :: (MonadIO m, ButtonK o) => o -> m Float getButtonYalign obj = liftIO $ getObjectPropertyFloat obj "yalign"@@ -1168,10 +1197,41 @@ attrGet _ = getButtonYalign attrSet _ = setButtonYalign attrConstruct _ = constructButtonYalign+ attrClear _ = undefined type instance AttributeList Button = ButtonAttributeList type ButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +buttonAlwaysShowImage :: AttrLabelProxy "alwaysShowImage"+buttonAlwaysShowImage = AttrLabelProxy++buttonFocusOnClick :: AttrLabelProxy "focusOnClick"+buttonFocusOnClick = AttrLabelProxy++buttonImage :: AttrLabelProxy "image"+buttonImage = AttrLabelProxy++buttonImagePosition :: AttrLabelProxy "imagePosition"+buttonImagePosition = AttrLabelProxy++buttonLabel :: AttrLabelProxy "label"+buttonLabel = AttrLabelProxy++buttonRelief :: AttrLabelProxy "relief"+buttonRelief = AttrLabelProxy++buttonUseStock :: AttrLabelProxy "useStock"+buttonUseStock = AttrLabelProxy++buttonUseUnderline :: AttrLabelProxy "useUnderline"+buttonUseUnderline = AttrLabelProxy++buttonXalign :: AttrLabelProxy "xalign"+buttonXalign = AttrLabelProxy++buttonYalign :: AttrLabelProxy "yalign"+buttonYalign = AttrLabelProxy+ data ButtonActivateSignalInfo instance SignalInfo ButtonActivateSignalInfo where type HaskellCallbackType ButtonActivateSignalInfo = ButtonActivateCallback@@ -1209,7 +1269,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "Button"+-- returnType : Just (TInterface "Gtk" "Button") -- throws : False -- Skip return : False @@ -1228,15 +1288,15 @@ -- method Button::new_from_icon_name -- method type : Constructor--- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Button"+-- returnType : Just (TInterface "Gtk" "Button") -- throws : False -- Skip return : False foreign import ccall "gtk_button_new_from_icon_name" gtk_button_new_from_icon_name :: CString -> -- icon_name : TBasicType TUTF8- Int32 -> -- size : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt IO (Ptr Button) @@ -1257,7 +1317,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Button"+-- returnType : Just (TInterface "Gtk" "Button") -- throws : False -- Skip return : False @@ -1282,7 +1342,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Button"+-- returnType : Just (TInterface "Gtk" "Button") -- throws : False -- Skip return : False @@ -1307,7 +1367,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Button"+-- returnType : Just (TInterface "Gtk" "Button") -- throws : False -- Skip return : False @@ -1332,7 +1392,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1359,7 +1419,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1386,7 +1446,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1423,7 +1483,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1451,7 +1511,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Window"+-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -1480,7 +1540,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1508,7 +1568,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1537,7 +1597,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PositionType"+-- returnType : Just (TInterface "Gtk" "PositionType") -- throws : False -- Skip return : False @@ -1565,7 +1625,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1594,7 +1654,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ReliefStyle"+-- returnType : Just (TInterface "Gtk" "ReliefStyle") -- throws : False -- Skip return : False @@ -1622,7 +1682,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1650,7 +1710,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1678,7 +1738,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1705,7 +1765,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1732,7 +1792,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1759,7 +1819,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1792,7 +1852,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1822,7 +1882,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1852,7 +1912,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1883,7 +1943,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1913,7 +1973,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1944,7 +2004,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relief", argType = TInterface "Gtk" "ReliefStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1974,7 +2034,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_stock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2004,7 +2064,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Button where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ButtonAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -56,6 +56,7 @@ -- * Properties -- ** LayoutStyle ButtonBoxLayoutStylePropertyInfo ,+ buttonBoxLayoutStyle , constructButtonBoxLayoutStyle , getButtonBoxLayoutStyle , setButtonBoxLayoutStyle ,@@ -65,9 +66,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -444,6 +445,7 @@ -- VVV Prop "layout-style" -- Type: TInterface "Gtk" "ButtonBoxStyle" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getButtonBoxLayoutStyle :: (MonadIO m, ButtonBoxK o) => o -> m ButtonBoxStyle getButtonBoxLayoutStyle obj = liftIO $ getObjectPropertyEnum obj "layout-style"@@ -464,10 +466,14 @@ attrGet _ = getButtonBoxLayoutStyle attrSet _ = setButtonBoxLayoutStyle attrConstruct _ = constructButtonBoxLayoutStyle+ attrClear _ = undefined type instance AttributeList ButtonBox = ButtonBoxAttributeList type ButtonBoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("layoutStyle", ButtonBoxLayoutStylePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +buttonBoxLayoutStyle :: AttrLabelProxy "layoutStyle"+buttonBoxLayoutStyle = AttrLabelProxy+ type instance SignalList ButtonBox = ButtonBoxSignalList type ButtonBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -475,7 +481,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ButtonBox"+-- returnType : Just (TInterface "Gtk" "ButtonBox") -- throws : False -- Skip return : False @@ -499,7 +505,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -531,7 +537,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -563,7 +569,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ButtonBoxStyle"+-- returnType : Just (TInterface "Gtk" "ButtonBoxStyle") -- throws : False -- Skip return : False @@ -591,7 +597,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "non_homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -625,7 +631,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_secondary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -659,7 +665,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout_style", argType = TInterface "Gtk" "ButtonBoxStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ButtonBox where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -96,6 +96,7 @@ -- * Properties -- ** Day CalendarDayPropertyInfo ,+ calendarDay , constructCalendarDay , getCalendarDay , setCalendarDay ,@@ -103,6 +104,7 @@ -- ** DetailHeightRows CalendarDetailHeightRowsPropertyInfo ,+ calendarDetailHeightRows , constructCalendarDetailHeightRows , getCalendarDetailHeightRows , setCalendarDetailHeightRows ,@@ -110,6 +112,7 @@ -- ** DetailWidthChars CalendarDetailWidthCharsPropertyInfo ,+ calendarDetailWidthChars , constructCalendarDetailWidthChars , getCalendarDetailWidthChars , setCalendarDetailWidthChars ,@@ -117,6 +120,7 @@ -- ** Month CalendarMonthPropertyInfo ,+ calendarMonth , constructCalendarMonth , getCalendarMonth , setCalendarMonth ,@@ -124,6 +128,7 @@ -- ** NoMonthChange CalendarNoMonthChangePropertyInfo ,+ calendarNoMonthChange , constructCalendarNoMonthChange , getCalendarNoMonthChange , setCalendarNoMonthChange ,@@ -131,6 +136,7 @@ -- ** ShowDayNames CalendarShowDayNamesPropertyInfo ,+ calendarShowDayNames , constructCalendarShowDayNames , getCalendarShowDayNames , setCalendarShowDayNames ,@@ -138,6 +144,7 @@ -- ** ShowDetails CalendarShowDetailsPropertyInfo ,+ calendarShowDetails , constructCalendarShowDetails , getCalendarShowDetails , setCalendarShowDetails ,@@ -145,6 +152,7 @@ -- ** ShowHeading CalendarShowHeadingPropertyInfo ,+ calendarShowHeading , constructCalendarShowHeading , getCalendarShowHeading , setCalendarShowHeading ,@@ -152,6 +160,7 @@ -- ** ShowWeekNumbers CalendarShowWeekNumbersPropertyInfo ,+ calendarShowWeekNumbers , constructCalendarShowWeekNumbers , getCalendarShowWeekNumbers , setCalendarShowWeekNumbers ,@@ -159,6 +168,7 @@ -- ** Year CalendarYearPropertyInfo ,+ calendarYear , constructCalendarYear , getCalendarYear , setCalendarYear ,@@ -255,9 +265,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -866,17 +876,18 @@ connectSignalFunPtr obj "prev-year" cb' after -- VVV Prop "day"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCalendarDay :: (MonadIO m, CalendarK o) => o -> m Int32-getCalendarDay obj = liftIO $ getObjectPropertyCInt obj "day"+getCalendarDay obj = liftIO $ getObjectPropertyInt32 obj "day" setCalendarDay :: (MonadIO m, CalendarK o) => o -> Int32 -> m ()-setCalendarDay obj val = liftIO $ setObjectPropertyCInt obj "day" val+setCalendarDay obj val = liftIO $ setObjectPropertyInt32 obj "day" val constructCalendarDay :: Int32 -> IO ([Char], GValue)-constructCalendarDay val = constructObjectPropertyCInt "day" val+constructCalendarDay val = constructObjectPropertyInt32 "day" val data CalendarDayPropertyInfo instance AttrInfo CalendarDayPropertyInfo where@@ -888,19 +899,21 @@ attrGet _ = getCalendarDay attrSet _ = setCalendarDay attrConstruct _ = constructCalendarDay+ attrClear _ = undefined -- VVV Prop "detail-height-rows"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getCalendarDetailHeightRows :: (MonadIO m, CalendarK o) => o -> m Int32-getCalendarDetailHeightRows obj = liftIO $ getObjectPropertyCInt obj "detail-height-rows"+getCalendarDetailHeightRows obj = liftIO $ getObjectPropertyInt32 obj "detail-height-rows" setCalendarDetailHeightRows :: (MonadIO m, CalendarK o) => o -> Int32 -> m ()-setCalendarDetailHeightRows obj val = liftIO $ setObjectPropertyCInt obj "detail-height-rows" val+setCalendarDetailHeightRows obj val = liftIO $ setObjectPropertyInt32 obj "detail-height-rows" val constructCalendarDetailHeightRows :: Int32 -> IO ([Char], GValue)-constructCalendarDetailHeightRows val = constructObjectPropertyCInt "detail-height-rows" val+constructCalendarDetailHeightRows val = constructObjectPropertyInt32 "detail-height-rows" val data CalendarDetailHeightRowsPropertyInfo instance AttrInfo CalendarDetailHeightRowsPropertyInfo where@@ -912,19 +925,21 @@ attrGet _ = getCalendarDetailHeightRows attrSet _ = setCalendarDetailHeightRows attrConstruct _ = constructCalendarDetailHeightRows+ attrClear _ = undefined -- VVV Prop "detail-width-chars"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getCalendarDetailWidthChars :: (MonadIO m, CalendarK o) => o -> m Int32-getCalendarDetailWidthChars obj = liftIO $ getObjectPropertyCInt obj "detail-width-chars"+getCalendarDetailWidthChars obj = liftIO $ getObjectPropertyInt32 obj "detail-width-chars" setCalendarDetailWidthChars :: (MonadIO m, CalendarK o) => o -> Int32 -> m ()-setCalendarDetailWidthChars obj val = liftIO $ setObjectPropertyCInt obj "detail-width-chars" val+setCalendarDetailWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "detail-width-chars" val constructCalendarDetailWidthChars :: Int32 -> IO ([Char], GValue)-constructCalendarDetailWidthChars val = constructObjectPropertyCInt "detail-width-chars" val+constructCalendarDetailWidthChars val = constructObjectPropertyInt32 "detail-width-chars" val data CalendarDetailWidthCharsPropertyInfo instance AttrInfo CalendarDetailWidthCharsPropertyInfo where@@ -936,19 +951,21 @@ attrGet _ = getCalendarDetailWidthChars attrSet _ = setCalendarDetailWidthChars attrConstruct _ = constructCalendarDetailWidthChars+ attrClear _ = undefined -- VVV Prop "month"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCalendarMonth :: (MonadIO m, CalendarK o) => o -> m Int32-getCalendarMonth obj = liftIO $ getObjectPropertyCInt obj "month"+getCalendarMonth obj = liftIO $ getObjectPropertyInt32 obj "month" setCalendarMonth :: (MonadIO m, CalendarK o) => o -> Int32 -> m ()-setCalendarMonth obj val = liftIO $ setObjectPropertyCInt obj "month" val+setCalendarMonth obj val = liftIO $ setObjectPropertyInt32 obj "month" val constructCalendarMonth :: Int32 -> IO ([Char], GValue)-constructCalendarMonth val = constructObjectPropertyCInt "month" val+constructCalendarMonth val = constructObjectPropertyInt32 "month" val data CalendarMonthPropertyInfo instance AttrInfo CalendarMonthPropertyInfo where@@ -960,10 +977,12 @@ attrGet _ = getCalendarMonth attrSet _ = setCalendarMonth attrConstruct _ = constructCalendarMonth+ attrClear _ = undefined -- VVV Prop "no-month-change" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCalendarNoMonthChange :: (MonadIO m, CalendarK o) => o -> m Bool getCalendarNoMonthChange obj = liftIO $ getObjectPropertyBool obj "no-month-change"@@ -984,10 +1003,12 @@ attrGet _ = getCalendarNoMonthChange attrSet _ = setCalendarNoMonthChange attrConstruct _ = constructCalendarNoMonthChange+ attrClear _ = undefined -- VVV Prop "show-day-names" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCalendarShowDayNames :: (MonadIO m, CalendarK o) => o -> m Bool getCalendarShowDayNames obj = liftIO $ getObjectPropertyBool obj "show-day-names"@@ -1008,10 +1029,12 @@ attrGet _ = getCalendarShowDayNames attrSet _ = setCalendarShowDayNames attrConstruct _ = constructCalendarShowDayNames+ attrClear _ = undefined -- VVV Prop "show-details" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCalendarShowDetails :: (MonadIO m, CalendarK o) => o -> m Bool getCalendarShowDetails obj = liftIO $ getObjectPropertyBool obj "show-details"@@ -1032,10 +1055,12 @@ attrGet _ = getCalendarShowDetails attrSet _ = setCalendarShowDetails attrConstruct _ = constructCalendarShowDetails+ attrClear _ = undefined -- VVV Prop "show-heading" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCalendarShowHeading :: (MonadIO m, CalendarK o) => o -> m Bool getCalendarShowHeading obj = liftIO $ getObjectPropertyBool obj "show-heading"@@ -1056,10 +1081,12 @@ attrGet _ = getCalendarShowHeading attrSet _ = setCalendarShowHeading attrConstruct _ = constructCalendarShowHeading+ attrClear _ = undefined -- VVV Prop "show-week-numbers" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCalendarShowWeekNumbers :: (MonadIO m, CalendarK o) => o -> m Bool getCalendarShowWeekNumbers obj = liftIO $ getObjectPropertyBool obj "show-week-numbers"@@ -1080,19 +1107,21 @@ attrGet _ = getCalendarShowWeekNumbers attrSet _ = setCalendarShowWeekNumbers attrConstruct _ = constructCalendarShowWeekNumbers+ attrClear _ = undefined -- VVV Prop "year"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCalendarYear :: (MonadIO m, CalendarK o) => o -> m Int32-getCalendarYear obj = liftIO $ getObjectPropertyCInt obj "year"+getCalendarYear obj = liftIO $ getObjectPropertyInt32 obj "year" setCalendarYear :: (MonadIO m, CalendarK o) => o -> Int32 -> m ()-setCalendarYear obj val = liftIO $ setObjectPropertyCInt obj "year" val+setCalendarYear obj val = liftIO $ setObjectPropertyInt32 obj "year" val constructCalendarYear :: Int32 -> IO ([Char], GValue)-constructCalendarYear val = constructObjectPropertyCInt "year" val+constructCalendarYear val = constructObjectPropertyInt32 "year" val data CalendarYearPropertyInfo instance AttrInfo CalendarYearPropertyInfo where@@ -1104,10 +1133,41 @@ attrGet _ = getCalendarYear attrSet _ = setCalendarYear attrConstruct _ = constructCalendarYear+ attrClear _ = undefined type instance AttributeList Calendar = CalendarAttributeList type CalendarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("day", CalendarDayPropertyInfo), '("detailHeightRows", CalendarDetailHeightRowsPropertyInfo), '("detailWidthChars", CalendarDetailWidthCharsPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("month", CalendarMonthPropertyInfo), '("name", WidgetNamePropertyInfo), '("noMonthChange", CalendarNoMonthChangePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showDayNames", CalendarShowDayNamesPropertyInfo), '("showDetails", CalendarShowDetailsPropertyInfo), '("showHeading", CalendarShowHeadingPropertyInfo), '("showWeekNumbers", CalendarShowWeekNumbersPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("year", CalendarYearPropertyInfo)] :: [(Symbol, *)]) +calendarDay :: AttrLabelProxy "day"+calendarDay = AttrLabelProxy++calendarDetailHeightRows :: AttrLabelProxy "detailHeightRows"+calendarDetailHeightRows = AttrLabelProxy++calendarDetailWidthChars :: AttrLabelProxy "detailWidthChars"+calendarDetailWidthChars = AttrLabelProxy++calendarMonth :: AttrLabelProxy "month"+calendarMonth = AttrLabelProxy++calendarNoMonthChange :: AttrLabelProxy "noMonthChange"+calendarNoMonthChange = AttrLabelProxy++calendarShowDayNames :: AttrLabelProxy "showDayNames"+calendarShowDayNames = AttrLabelProxy++calendarShowDetails :: AttrLabelProxy "showDetails"+calendarShowDetails = AttrLabelProxy++calendarShowHeading :: AttrLabelProxy "showHeading"+calendarShowHeading = AttrLabelProxy++calendarShowWeekNumbers :: AttrLabelProxy "showWeekNumbers"+calendarShowWeekNumbers = AttrLabelProxy++calendarYear :: AttrLabelProxy "year"+calendarYear = AttrLabelProxy+ data CalendarDaySelectedSignalInfo instance SignalInfo CalendarDaySelectedSignalInfo where type HaskellCallbackType CalendarDaySelectedSignalInfo = CalendarDaySelectedCallback@@ -1150,7 +1210,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "Calendar"+-- returnType : Just (TInterface "Gtk" "Calendar") -- throws : False -- Skip return : False @@ -1171,7 +1231,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1196,17 +1256,17 @@ -- method Calendar::get_date -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "month", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "day", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "month", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "day", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_calendar_get_date" gtk_calendar_get_date :: Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"- Ptr Word32 -> -- year : TBasicType TUInt32- Ptr Word32 -> -- month : TBasicType TUInt32- Ptr Word32 -> -- day : TBasicType TUInt32+ Ptr Word32 -> -- year : TBasicType TUInt+ Ptr Word32 -> -- month : TBasicType TUInt+ Ptr Word32 -> -- day : TBasicType TUInt IO () @@ -1235,15 +1295,15 @@ -- method Calendar::get_day_is_marked -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_calendar_get_day_is_marked" gtk_calendar_get_day_is_marked :: Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"- Word32 -> -- day : TBasicType TUInt32+ Word32 -> -- day : TBasicType TUInt IO CInt @@ -1267,7 +1327,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1294,7 +1354,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1321,7 +1381,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CalendarDisplayOptions"+-- returnType : Just (TInterface "Gtk" "CalendarDisplayOptions") -- throws : False -- Skip return : False @@ -1347,15 +1407,15 @@ -- method Calendar::mark_day -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_calendar_mark_day" gtk_calendar_mark_day :: Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"- Word32 -> -- day : TBasicType TUInt32+ Word32 -> -- day : TBasicType TUInt IO () @@ -1376,15 +1436,15 @@ -- method Calendar::select_day -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_calendar_select_day" gtk_calendar_select_day :: Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"- Word32 -> -- day : TBasicType TUInt32+ Word32 -> -- day : TBasicType TUInt IO () @@ -1405,16 +1465,16 @@ -- method Calendar::select_month -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "month", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "month", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_calendar_select_month" gtk_calendar_select_month :: Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"- Word32 -> -- month : TBasicType TUInt32- Word32 -> -- year : TBasicType TUInt32+ Word32 -> -- month : TBasicType TUInt+ Word32 -> -- year : TBasicType TUInt IO () @@ -1436,16 +1496,16 @@ -- method Calendar::set_detail_func -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "CalendarDetailFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "CalendarDetailFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_calendar_set_detail_func" gtk_calendar_set_detail_func :: Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" FunPtr CalendarDetailFuncC -> -- func : TInterface "Gtk" "CalendarDetailFunc"- Ptr () -> -- data : TBasicType TVoid+ Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -1470,15 +1530,15 @@ -- method Calendar::set_detail_height_rows -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rows", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rows", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_calendar_set_detail_height_rows" gtk_calendar_set_detail_height_rows :: Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"- Int32 -> -- rows : TBasicType TInt32+ Int32 -> -- rows : TBasicType TInt IO () @@ -1499,15 +1559,15 @@ -- method Calendar::set_detail_width_chars -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_calendar_set_detail_width_chars" gtk_calendar_set_detail_width_chars :: Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"- Int32 -> -- chars : TBasicType TInt32+ Int32 -> -- chars : TBasicType TInt IO () @@ -1530,7 +1590,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CalendarDisplayOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1558,15 +1618,15 @@ -- method Calendar::unmark_day -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_calendar_unmark_day" gtk_calendar_unmark_day :: Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"- Word32 -> -- day : TBasicType TUInt32+ Word32 -> -- day : TBasicType TUInt IO ()
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Calendar where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -217,16 +217,19 @@ -- * Properties -- ** EditWidget CellAreaEditWidgetPropertyInfo ,+ cellAreaEditWidget , getCellAreaEditWidget , -- ** EditedCell CellAreaEditedCellPropertyInfo ,+ cellAreaEditedCell , getCellAreaEditedCell , -- ** FocusCell CellAreaFocusCellPropertyInfo ,+ cellAreaFocusCell , constructCellAreaFocusCell , getCellAreaFocusCell , setCellAreaFocusCell ,@@ -287,9 +290,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -615,13 +618,14 @@ -- VVV Prop "edit-widget" -- Type: TInterface "Gtk" "CellEditable" -- Flags: [PropertyReadable]+ -- Nullable: (Just False,Nothing) getCellAreaEditWidget :: (MonadIO m, CellAreaK o) => o -> m CellEditable-getCellAreaEditWidget obj = liftIO $ getObjectPropertyObject obj "edit-widget" CellEditable+getCellAreaEditWidget obj = liftIO $ checkUnexpectedNothing "getCellAreaEditWidget" $ getObjectPropertyObject obj "edit-widget" CellEditable data CellAreaEditWidgetPropertyInfo instance AttrInfo CellAreaEditWidgetPropertyInfo where- type AttrAllowedOps CellAreaEditWidgetPropertyInfo = '[ 'AttrGet]+ type AttrAllowedOps CellAreaEditWidgetPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellAreaEditWidgetPropertyInfo = (~) () type AttrBaseTypeConstraint CellAreaEditWidgetPropertyInfo = CellAreaK type AttrGetType CellAreaEditWidgetPropertyInfo = CellEditable@@ -629,17 +633,19 @@ attrGet _ = getCellAreaEditWidget attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "edited-cell" -- Type: TInterface "Gtk" "CellRenderer" -- Flags: [PropertyReadable]+ -- Nullable: (Just False,Nothing) getCellAreaEditedCell :: (MonadIO m, CellAreaK o) => o -> m CellRenderer-getCellAreaEditedCell obj = liftIO $ getObjectPropertyObject obj "edited-cell" CellRenderer+getCellAreaEditedCell obj = liftIO $ checkUnexpectedNothing "getCellAreaEditedCell" $ getObjectPropertyObject obj "edited-cell" CellRenderer data CellAreaEditedCellPropertyInfo instance AttrInfo CellAreaEditedCellPropertyInfo where- type AttrAllowedOps CellAreaEditedCellPropertyInfo = '[ 'AttrGet]+ type AttrAllowedOps CellAreaEditedCellPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellAreaEditedCellPropertyInfo = (~) () type AttrBaseTypeConstraint CellAreaEditedCellPropertyInfo = CellAreaK type AttrGetType CellAreaEditedCellPropertyInfo = CellRenderer@@ -647,19 +653,21 @@ attrGet _ = getCellAreaEditedCell attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "focus-cell" -- Type: TInterface "Gtk" "CellRenderer" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getCellAreaFocusCell :: (MonadIO m, CellAreaK o) => o -> m CellRenderer-getCellAreaFocusCell obj = liftIO $ getObjectPropertyObject obj "focus-cell" CellRenderer+getCellAreaFocusCell obj = liftIO $ checkUnexpectedNothing "getCellAreaFocusCell" $ getObjectPropertyObject obj "focus-cell" CellRenderer setCellAreaFocusCell :: (MonadIO m, CellAreaK o, CellRendererK a) => o -> a -> m ()-setCellAreaFocusCell obj val = liftIO $ setObjectPropertyObject obj "focus-cell" val+setCellAreaFocusCell obj val = liftIO $ setObjectPropertyObject obj "focus-cell" (Just val) constructCellAreaFocusCell :: (CellRendererK a) => a -> IO ([Char], GValue)-constructCellAreaFocusCell val = constructObjectPropertyObject "focus-cell" val+constructCellAreaFocusCell val = constructObjectPropertyObject "focus-cell" (Just val) data CellAreaFocusCellPropertyInfo instance AttrInfo CellAreaFocusCellPropertyInfo where@@ -671,10 +679,20 @@ attrGet _ = getCellAreaFocusCell attrSet _ = setCellAreaFocusCell attrConstruct _ = constructCellAreaFocusCell+ attrClear _ = undefined type instance AttributeList CellArea = CellAreaAttributeList type CellAreaAttributeList = ('[ '("editWidget", CellAreaEditWidgetPropertyInfo), '("editedCell", CellAreaEditedCellPropertyInfo), '("focusCell", CellAreaFocusCellPropertyInfo)] :: [(Symbol, *)]) +cellAreaEditWidget :: AttrLabelProxy "editWidget"+cellAreaEditWidget = AttrLabelProxy++cellAreaEditedCell :: AttrLabelProxy "editedCell"+cellAreaEditedCell = AttrLabelProxy++cellAreaFocusCell :: AttrLabelProxy "focusCell"+cellAreaFocusCell = AttrLabelProxy+ data CellAreaAddEditableSignalInfo instance SignalInfo CellAreaAddEditableSignalInfo where type HaskellCallbackType CellAreaAddEditableSignalInfo = CellAreaAddEditableCallback@@ -702,7 +720,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edit_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -748,7 +766,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -795,7 +813,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -826,7 +844,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -861,7 +879,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -900,9 +918,9 @@ -- method CellArea::attribute_connect -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -910,7 +928,7 @@ Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" CString -> -- attribute : TBasicType TUTF8- Int32 -> -- column : TBasicType TInt32+ Int32 -> -- column : TBasicType TInt IO () @@ -939,7 +957,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -974,7 +992,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1009,7 +1027,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1048,7 +1066,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1087,7 +1105,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CellAreaContext"+-- returnType : Just (TInterface "Gtk" "CellAreaContext") -- throws : False -- Skip return : False @@ -1120,7 +1138,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CellAreaContext"+-- returnType : Just (TInterface "Gtk" "CellAreaContext") -- throws : False -- Skip return : False @@ -1149,7 +1167,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1195,7 +1213,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1224,16 +1242,16 @@ -- method CellArea::foreach -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "CellCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "CellCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_foreach" gtk_cell_area_foreach :: Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" FunPtr CellCallbackC -> -- callback : TInterface "Gtk" "CellCallback"- Ptr () -> -- callback_data : TBasicType TVoid+ Ptr () -> -- callback_data : TBasicType TPtr IO () @@ -1257,9 +1275,9 @@ -- method CellArea::foreach_alloc -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "CellAllocCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "CellAllocCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1270,7 +1288,7 @@ Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" Ptr Gdk.Rectangle -> -- background_area : TInterface "Gdk" "Rectangle" FunPtr CellAllocCallbackC -> -- callback : TInterface "Gtk" "CellAllocCallback"- Ptr () -> -- callback_data : TBasicType TVoid+ Ptr () -> -- callback_data : TBasicType TPtr IO () @@ -1308,7 +1326,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1352,9 +1370,9 @@ -- method CellArea::get_cell_at_position -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alloc_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alloc_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CellRenderer"+-- returnType : Just (TInterface "Gtk" "CellRenderer") -- throws : False -- Skip return : False @@ -1363,8 +1381,8 @@ Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt Ptr Gdk.Rectangle -> -- alloc_area : TInterface "Gdk" "Rectangle" IO (Ptr CellRenderer) @@ -1402,7 +1420,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1431,7 +1449,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CellEditable"+-- returnType : Just (TInterface "Gtk" "CellEditable") -- throws : False -- Skip return : False @@ -1460,7 +1478,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CellRenderer"+-- returnType : Just (TInterface "Gtk" "CellRenderer") -- throws : False -- Skip return : False @@ -1489,7 +1507,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CellRenderer"+-- returnType : Just (TInterface "Gtk" "CellRenderer") -- throws : False -- Skip return : False @@ -1518,7 +1536,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CellRenderer"+-- returnType : Just (TInterface "Gtk" "CellRenderer") -- throws : False -- Skip return : False @@ -1551,7 +1569,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Gtk" "CellRenderer")+-- returnType : Just (TGList (TInterface "Gtk" "CellRenderer")) -- throws : False -- Skip return : False @@ -1570,7 +1588,6 @@ let _obj' = unsafeManagedPtrCastPtr _obj let renderer' = unsafeManagedPtrCastPtr renderer result <- gtk_cell_area_get_focus_siblings _obj' renderer'- checkUnexpectedReturnNULL "gtk_cell_area_get_focus_siblings" result result' <- unpackGList result result'' <- mapM (newObject CellRenderer) result' touchManagedPtr _obj@@ -1583,9 +1600,9 @@ -- method CellArea::get_preferred_height -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1593,8 +1610,8 @@ Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" Ptr Widget -> -- widget : TInterface "Gtk" "Widget"- Ptr Int32 -> -- minimum_height : TBasicType TInt32- Ptr Int32 -> -- natural_height : TBasicType TInt32+ Ptr Int32 -> -- minimum_height : TBasicType TInt+ Ptr Int32 -> -- natural_height : TBasicType TInt IO () @@ -1626,9 +1643,9 @@ -- method CellArea::get_preferred_height_for_width -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1636,9 +1653,9 @@ Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" Ptr Widget -> -- widget : TInterface "Gtk" "Widget"- Int32 -> -- width : TBasicType TInt32- Ptr Int32 -> -- minimum_height : TBasicType TInt32- Ptr Int32 -> -- natural_height : TBasicType TInt32+ Int32 -> -- width : TBasicType TInt+ Ptr Int32 -> -- minimum_height : TBasicType TInt+ Ptr Int32 -> -- natural_height : TBasicType TInt IO () @@ -1671,9 +1688,9 @@ -- method CellArea::get_preferred_width -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1681,8 +1698,8 @@ Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" Ptr Widget -> -- widget : TInterface "Gtk" "Widget"- Ptr Int32 -> -- minimum_width : TBasicType TInt32- Ptr Int32 -> -- natural_width : TBasicType TInt32+ Ptr Int32 -> -- minimum_width : TBasicType TInt+ Ptr Int32 -> -- natural_width : TBasicType TInt IO () @@ -1714,9 +1731,9 @@ -- method CellArea::get_preferred_width_for_height -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1724,9 +1741,9 @@ Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" Ptr Widget -> -- widget : TInterface "Gtk" "Widget"- Int32 -> -- height : TBasicType TInt32- Ptr Int32 -> -- minimum_width : TBasicType TInt32- Ptr Int32 -> -- natural_width : TBasicType TInt32+ Int32 -> -- height : TBasicType TInt+ Ptr Int32 -> -- minimum_width : TBasicType TInt+ Ptr Int32 -> -- natural_width : TBasicType TInt IO () @@ -1761,7 +1778,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "SizeRequestMode"+-- returnType : Just (TInterface "Gtk" "SizeRequestMode") -- throws : False -- Skip return : False @@ -1789,7 +1806,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1821,7 +1838,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inner_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1859,7 +1876,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1887,7 +1904,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1923,7 +1940,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1954,7 +1971,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1989,7 +2006,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paint_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2040,9 +2057,9 @@ -- method CellArea::request_renderer -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2051,9 +2068,9 @@ Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" CUInt -> -- orientation : TInterface "Gtk" "Orientation" Ptr Widget -> -- widget : TInterface "Gtk" "Widget"- Int32 -> -- for_size : TBasicType TInt32- Ptr Int32 -> -- minimum_size : TBasicType TInt32- Ptr Int32 -> -- natural_size : TBasicType TInt32+ Int32 -> -- for_size : TBasicType TInt+ Ptr Int32 -> -- minimum_size : TBasicType TInt+ Ptr Int32 -> -- natural_size : TBasicType TInt IO () @@ -2090,7 +2107,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2121,7 +2138,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canceled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellArea where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -46,6 +46,7 @@ -- * Properties -- ** Spacing CellAreaBoxSpacingPropertyInfo ,+ cellAreaBoxSpacing , constructCellAreaBoxSpacing , getCellAreaBoxSpacing , setCellAreaBoxSpacing ,@@ -55,9 +56,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -181,17 +182,18 @@ #endif -- VVV Prop "spacing"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getCellAreaBoxSpacing :: (MonadIO m, CellAreaBoxK o) => o -> m Int32-getCellAreaBoxSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing"+getCellAreaBoxSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing" setCellAreaBoxSpacing :: (MonadIO m, CellAreaBoxK o) => o -> Int32 -> m ()-setCellAreaBoxSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val+setCellAreaBoxSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val constructCellAreaBoxSpacing :: Int32 -> IO ([Char], GValue)-constructCellAreaBoxSpacing val = constructObjectPropertyCInt "spacing" val+constructCellAreaBoxSpacing val = constructObjectPropertyInt32 "spacing" val data CellAreaBoxSpacingPropertyInfo instance AttrInfo CellAreaBoxSpacingPropertyInfo where@@ -203,10 +205,14 @@ attrGet _ = getCellAreaBoxSpacing attrSet _ = setCellAreaBoxSpacing attrConstruct _ = constructCellAreaBoxSpacing+ attrClear _ = undefined type instance AttributeList CellAreaBox = CellAreaBoxAttributeList type CellAreaBoxAttributeList = ('[ '("editWidget", CellAreaEditWidgetPropertyInfo), '("editedCell", CellAreaEditedCellPropertyInfo), '("focusCell", CellAreaFocusCellPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("spacing", CellAreaBoxSpacingPropertyInfo)] :: [(Symbol, *)]) +cellAreaBoxSpacing :: AttrLabelProxy "spacing"+cellAreaBoxSpacing = AttrLabelProxy+ type instance SignalList CellAreaBox = CellAreaBoxSignalList type CellAreaBoxSignalList = ('[ '("addEditable", CellAreaAddEditableSignalInfo), '("applyAttributes", CellAreaApplyAttributesSignalInfo), '("focusChanged", CellAreaFocusChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("removeEditable", CellAreaRemoveEditableSignalInfo)] :: [(Symbol, *)]) @@ -214,7 +220,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "CellAreaBox"+-- returnType : Just (TInterface "Gtk" "CellAreaBox") -- throws : False -- Skip return : False @@ -235,7 +241,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -262,7 +268,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -302,7 +308,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -340,15 +346,15 @@ -- method CellAreaBox::set_spacing -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_box_set_spacing" gtk_cell_area_box_set_spacing :: Ptr CellAreaBox -> -- _obj : TInterface "Gtk" "CellAreaBox"- Int32 -> -- spacing : TBasicType TInt32+ Int32 -> -- spacing : TBasicType TInt IO ()
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellAreaBox where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -72,27 +72,32 @@ -- * Properties -- ** Area CellAreaContextAreaPropertyInfo ,+ cellAreaContextArea , constructCellAreaContextArea , getCellAreaContextArea , -- ** MinimumHeight CellAreaContextMinimumHeightPropertyInfo,+ cellAreaContextMinimumHeight , getCellAreaContextMinimumHeight , -- ** MinimumWidth CellAreaContextMinimumWidthPropertyInfo ,+ cellAreaContextMinimumWidth , getCellAreaContextMinimumWidth , -- ** NaturalHeight CellAreaContextNaturalHeightPropertyInfo,+ cellAreaContextNaturalHeight , getCellAreaContextNaturalHeight , -- ** NaturalWidth CellAreaContextNaturalWidthPropertyInfo ,+ cellAreaContextNaturalWidth , getCellAreaContextNaturalWidth , @@ -100,9 +105,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -178,16 +183,17 @@ -- VVV Prop "area" -- Type: TInterface "Gtk" "CellArea" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+ -- Nullable: (Just False,Nothing) getCellAreaContextArea :: (MonadIO m, CellAreaContextK o) => o -> m CellArea-getCellAreaContextArea obj = liftIO $ getObjectPropertyObject obj "area" CellArea+getCellAreaContextArea obj = liftIO $ checkUnexpectedNothing "getCellAreaContextArea" $ getObjectPropertyObject obj "area" CellArea constructCellAreaContextArea :: (CellAreaK a) => a -> IO ([Char], GValue)-constructCellAreaContextArea val = constructObjectPropertyObject "area" val+constructCellAreaContextArea val = constructObjectPropertyObject "area" (Just val) data CellAreaContextAreaPropertyInfo instance AttrInfo CellAreaContextAreaPropertyInfo where- type AttrAllowedOps CellAreaContextAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellAreaContextAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellAreaContextAreaPropertyInfo = CellAreaK type AttrBaseTypeConstraint CellAreaContextAreaPropertyInfo = CellAreaContextK type AttrGetType CellAreaContextAreaPropertyInfo = CellArea@@ -195,13 +201,15 @@ attrGet _ = getCellAreaContextArea attrSet _ = undefined attrConstruct _ = constructCellAreaContextArea+ attrClear _ = undefined -- VVV Prop "minimum-height"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) getCellAreaContextMinimumHeight :: (MonadIO m, CellAreaContextK o) => o -> m Int32-getCellAreaContextMinimumHeight obj = liftIO $ getObjectPropertyCInt obj "minimum-height"+getCellAreaContextMinimumHeight obj = liftIO $ getObjectPropertyInt32 obj "minimum-height" data CellAreaContextMinimumHeightPropertyInfo instance AttrInfo CellAreaContextMinimumHeightPropertyInfo where@@ -213,13 +221,15 @@ attrGet _ = getCellAreaContextMinimumHeight attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "minimum-width"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) getCellAreaContextMinimumWidth :: (MonadIO m, CellAreaContextK o) => o -> m Int32-getCellAreaContextMinimumWidth obj = liftIO $ getObjectPropertyCInt obj "minimum-width"+getCellAreaContextMinimumWidth obj = liftIO $ getObjectPropertyInt32 obj "minimum-width" data CellAreaContextMinimumWidthPropertyInfo instance AttrInfo CellAreaContextMinimumWidthPropertyInfo where@@ -231,13 +241,15 @@ attrGet _ = getCellAreaContextMinimumWidth attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "natural-height"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) getCellAreaContextNaturalHeight :: (MonadIO m, CellAreaContextK o) => o -> m Int32-getCellAreaContextNaturalHeight obj = liftIO $ getObjectPropertyCInt obj "natural-height"+getCellAreaContextNaturalHeight obj = liftIO $ getObjectPropertyInt32 obj "natural-height" data CellAreaContextNaturalHeightPropertyInfo instance AttrInfo CellAreaContextNaturalHeightPropertyInfo where@@ -249,13 +261,15 @@ attrGet _ = getCellAreaContextNaturalHeight attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "natural-width"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) getCellAreaContextNaturalWidth :: (MonadIO m, CellAreaContextK o) => o -> m Int32-getCellAreaContextNaturalWidth obj = liftIO $ getObjectPropertyCInt obj "natural-width"+getCellAreaContextNaturalWidth obj = liftIO $ getObjectPropertyInt32 obj "natural-width" data CellAreaContextNaturalWidthPropertyInfo instance AttrInfo CellAreaContextNaturalWidthPropertyInfo where@@ -267,25 +281,41 @@ attrGet _ = getCellAreaContextNaturalWidth attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined type instance AttributeList CellAreaContext = CellAreaContextAttributeList type CellAreaContextAttributeList = ('[ '("area", CellAreaContextAreaPropertyInfo), '("minimumHeight", CellAreaContextMinimumHeightPropertyInfo), '("minimumWidth", CellAreaContextMinimumWidthPropertyInfo), '("naturalHeight", CellAreaContextNaturalHeightPropertyInfo), '("naturalWidth", CellAreaContextNaturalWidthPropertyInfo)] :: [(Symbol, *)]) +cellAreaContextArea :: AttrLabelProxy "area"+cellAreaContextArea = AttrLabelProxy++cellAreaContextMinimumHeight :: AttrLabelProxy "minimumHeight"+cellAreaContextMinimumHeight = AttrLabelProxy++cellAreaContextMinimumWidth :: AttrLabelProxy "minimumWidth"+cellAreaContextMinimumWidth = AttrLabelProxy++cellAreaContextNaturalHeight :: AttrLabelProxy "naturalHeight"+cellAreaContextNaturalHeight = AttrLabelProxy++cellAreaContextNaturalWidth :: AttrLabelProxy "naturalWidth"+cellAreaContextNaturalWidth = AttrLabelProxy+ type instance SignalList CellAreaContext = CellAreaContextSignalList type CellAreaContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method CellAreaContext::allocate -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_context_allocate" gtk_cell_area_context_allocate :: Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext"- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt IO () @@ -307,16 +337,16 @@ -- method CellAreaContext::get_allocation -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_context_get_allocation" gtk_cell_area_context_get_allocation :: Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext"- Ptr Int32 -> -- width : TBasicType TInt32- Ptr Int32 -> -- height : TBasicType TInt32+ Ptr Int32 -> -- width : TBasicType TInt+ Ptr Int32 -> -- height : TBasicType TInt IO () @@ -344,7 +374,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CellArea"+-- returnType : Just (TInterface "Gtk" "CellArea") -- throws : False -- Skip return : False @@ -371,16 +401,16 @@ -- method CellAreaContext::get_preferred_height -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_context_get_preferred_height" gtk_cell_area_context_get_preferred_height :: Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext"- Ptr Int32 -> -- minimum_height : TBasicType TInt32- Ptr Int32 -> -- natural_height : TBasicType TInt32+ Ptr Int32 -> -- minimum_height : TBasicType TInt+ Ptr Int32 -> -- natural_height : TBasicType TInt IO () @@ -406,17 +436,17 @@ -- method CellAreaContext::get_preferred_height_for_width -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_context_get_preferred_height_for_width" gtk_cell_area_context_get_preferred_height_for_width :: Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext"- Int32 -> -- width : TBasicType TInt32- Ptr Int32 -> -- minimum_height : TBasicType TInt32- Ptr Int32 -> -- natural_height : TBasicType TInt32+ Int32 -> -- width : TBasicType TInt+ Ptr Int32 -> -- minimum_height : TBasicType TInt+ Ptr Int32 -> -- natural_height : TBasicType TInt IO () @@ -443,16 +473,16 @@ -- method CellAreaContext::get_preferred_width -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_context_get_preferred_width" gtk_cell_area_context_get_preferred_width :: Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext"- Ptr Int32 -> -- minimum_width : TBasicType TInt32- Ptr Int32 -> -- natural_width : TBasicType TInt32+ Ptr Int32 -> -- minimum_width : TBasicType TInt+ Ptr Int32 -> -- natural_width : TBasicType TInt IO () @@ -478,17 +508,17 @@ -- method CellAreaContext::get_preferred_width_for_height -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_context_get_preferred_width_for_height" gtk_cell_area_context_get_preferred_width_for_height :: Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext"- Int32 -> -- height : TBasicType TInt32- Ptr Int32 -> -- minimum_width : TBasicType TInt32- Ptr Int32 -> -- natural_width : TBasicType TInt32+ Int32 -> -- height : TBasicType TInt+ Ptr Int32 -> -- minimum_width : TBasicType TInt+ Ptr Int32 -> -- natural_width : TBasicType TInt IO () @@ -515,16 +545,16 @@ -- method CellAreaContext::push_preferred_height -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "natural_height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_context_push_preferred_height" gtk_cell_area_context_push_preferred_height :: Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext"- Int32 -> -- minimum_height : TBasicType TInt32- Int32 -> -- natural_height : TBasicType TInt32+ Int32 -> -- minimum_height : TBasicType TInt+ Int32 -> -- natural_height : TBasicType TInt IO () @@ -546,16 +576,16 @@ -- method CellAreaContext::push_preferred_width -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "natural_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_context_push_preferred_width" gtk_cell_area_context_push_preferred_width :: Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext"- Int32 -> -- minimum_width : TBasicType TInt32- Int32 -> -- natural_width : TBasicType TInt32+ Int32 -> -- minimum_width : TBasicType TInt+ Int32 -> -- natural_width : TBasicType TInt IO () @@ -579,7 +609,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellAreaContext where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -142,12 +142,16 @@ -- * Properties -- ** CellBackground CellRendererCellBackgroundPropertyInfo ,+ cellRendererCellBackground ,+ clearCellRendererCellBackground , constructCellRendererCellBackground , setCellRendererCellBackground , -- ** CellBackgroundGdk CellRendererCellBackgroundGdkPropertyInfo,+ cellRendererCellBackgroundGdk ,+ clearCellRendererCellBackgroundGdk , constructCellRendererCellBackgroundGdk , getCellRendererCellBackgroundGdk , setCellRendererCellBackgroundGdk ,@@ -155,6 +159,8 @@ -- ** CellBackgroundRgba CellRendererCellBackgroundRgbaPropertyInfo,+ cellRendererCellBackgroundRgba ,+ clearCellRendererCellBackgroundRgba , constructCellRendererCellBackgroundRgba , getCellRendererCellBackgroundRgba , setCellRendererCellBackgroundRgba ,@@ -162,6 +168,7 @@ -- ** CellBackgroundSet CellRendererCellBackgroundSetPropertyInfo,+ cellRendererCellBackgroundSet , constructCellRendererCellBackgroundSet , getCellRendererCellBackgroundSet , setCellRendererCellBackgroundSet ,@@ -169,11 +176,13 @@ -- ** Editing CellRendererEditingPropertyInfo ,+ cellRendererEditing , getCellRendererEditing , -- ** Height CellRendererHeightPropertyInfo ,+ cellRendererHeight , constructCellRendererHeight , getCellRendererHeight , setCellRendererHeight ,@@ -181,6 +190,7 @@ -- ** IsExpanded CellRendererIsExpandedPropertyInfo ,+ cellRendererIsExpanded , constructCellRendererIsExpanded , getCellRendererIsExpanded , setCellRendererIsExpanded ,@@ -188,6 +198,7 @@ -- ** IsExpander CellRendererIsExpanderPropertyInfo ,+ cellRendererIsExpander , constructCellRendererIsExpander , getCellRendererIsExpander , setCellRendererIsExpander ,@@ -195,6 +206,7 @@ -- ** Mode CellRendererModePropertyInfo ,+ cellRendererMode , constructCellRendererMode , getCellRendererMode , setCellRendererMode ,@@ -202,6 +214,7 @@ -- ** Sensitive CellRendererSensitivePropertyInfo ,+ cellRendererSensitive , constructCellRendererSensitive , getCellRendererSensitive , setCellRendererSensitive ,@@ -209,6 +222,7 @@ -- ** Visible CellRendererVisiblePropertyInfo ,+ cellRendererVisible , constructCellRendererVisible , getCellRendererVisible , setCellRendererVisible ,@@ -216,6 +230,7 @@ -- ** Width CellRendererWidthPropertyInfo ,+ cellRendererWidth , constructCellRendererWidth , getCellRendererWidth , setCellRendererWidth ,@@ -223,6 +238,7 @@ -- ** Xalign CellRendererXalignPropertyInfo ,+ cellRendererXalign , constructCellRendererXalign , getCellRendererXalign , setCellRendererXalign ,@@ -230,6 +246,7 @@ -- ** Xpad CellRendererXpadPropertyInfo ,+ cellRendererXpad , constructCellRendererXpad , getCellRendererXpad , setCellRendererXpad ,@@ -237,6 +254,7 @@ -- ** Yalign CellRendererYalignPropertyInfo ,+ cellRendererYalign , constructCellRendererYalign , getCellRendererYalign , setCellRendererYalign ,@@ -244,6 +262,7 @@ -- ** Ypad CellRendererYpadPropertyInfo ,+ cellRendererYpad , constructCellRendererYpad , getCellRendererYpad , setCellRendererYpad ,@@ -280,9 +299,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -458,16 +477,20 @@ -- VVV Prop "cell-background" -- Type: TBasicType TUTF8 -- Flags: [PropertyWritable]+ -- Nullable: (Nothing,Nothing) setCellRendererCellBackground :: (MonadIO m, CellRendererK o) => o -> T.Text -> m ()-setCellRendererCellBackground obj val = liftIO $ setObjectPropertyString obj "cell-background" val+setCellRendererCellBackground obj val = liftIO $ setObjectPropertyString obj "cell-background" (Just val) constructCellRendererCellBackground :: T.Text -> IO ([Char], GValue)-constructCellRendererCellBackground val = constructObjectPropertyString "cell-background" val+constructCellRendererCellBackground val = constructObjectPropertyString "cell-background" (Just val) +clearCellRendererCellBackground :: (MonadIO m, CellRendererK o) => o -> m ()+clearCellRendererCellBackground obj = liftIO $ setObjectPropertyString obj "cell-background" (Nothing :: Maybe T.Text)+ data CellRendererCellBackgroundPropertyInfo instance AttrInfo CellRendererCellBackgroundPropertyInfo where- type AttrAllowedOps CellRendererCellBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct]+ type AttrAllowedOps CellRendererCellBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint CellRendererCellBackgroundPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererCellBackgroundPropertyInfo = CellRendererK type AttrGetType CellRendererCellBackgroundPropertyInfo = ()@@ -475,58 +498,70 @@ attrGet _ = undefined attrSet _ = setCellRendererCellBackground attrConstruct _ = constructCellRendererCellBackground+ attrClear _ = clearCellRendererCellBackground -- VVV Prop "cell-background-gdk" -- Type: TInterface "Gdk" "Color" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererCellBackgroundGdk :: (MonadIO m, CellRendererK o) => o -> m Gdk.Color+getCellRendererCellBackgroundGdk :: (MonadIO m, CellRendererK o) => o -> m (Maybe Gdk.Color) getCellRendererCellBackgroundGdk obj = liftIO $ getObjectPropertyBoxed obj "cell-background-gdk" Gdk.Color setCellRendererCellBackgroundGdk :: (MonadIO m, CellRendererK o) => o -> Gdk.Color -> m ()-setCellRendererCellBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "cell-background-gdk" val+setCellRendererCellBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "cell-background-gdk" (Just val) constructCellRendererCellBackgroundGdk :: Gdk.Color -> IO ([Char], GValue)-constructCellRendererCellBackgroundGdk val = constructObjectPropertyBoxed "cell-background-gdk" val+constructCellRendererCellBackgroundGdk val = constructObjectPropertyBoxed "cell-background-gdk" (Just val) +clearCellRendererCellBackgroundGdk :: (MonadIO m, CellRendererK o) => o -> m ()+clearCellRendererCellBackgroundGdk obj = liftIO $ setObjectPropertyBoxed obj "cell-background-gdk" (Nothing :: Maybe Gdk.Color)+ data CellRendererCellBackgroundGdkPropertyInfo instance AttrInfo CellRendererCellBackgroundGdkPropertyInfo where- type AttrAllowedOps CellRendererCellBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererCellBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererCellBackgroundGdkPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint CellRendererCellBackgroundGdkPropertyInfo = CellRendererK- type AttrGetType CellRendererCellBackgroundGdkPropertyInfo = Gdk.Color+ type AttrGetType CellRendererCellBackgroundGdkPropertyInfo = (Maybe Gdk.Color) type AttrLabel CellRendererCellBackgroundGdkPropertyInfo = "cell-background-gdk" attrGet _ = getCellRendererCellBackgroundGdk attrSet _ = setCellRendererCellBackgroundGdk attrConstruct _ = constructCellRendererCellBackgroundGdk+ attrClear _ = clearCellRendererCellBackgroundGdk -- VVV Prop "cell-background-rgba" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererCellBackgroundRgba :: (MonadIO m, CellRendererK o) => o -> m Gdk.RGBA+getCellRendererCellBackgroundRgba :: (MonadIO m, CellRendererK o) => o -> m (Maybe Gdk.RGBA) getCellRendererCellBackgroundRgba obj = liftIO $ getObjectPropertyBoxed obj "cell-background-rgba" Gdk.RGBA setCellRendererCellBackgroundRgba :: (MonadIO m, CellRendererK o) => o -> Gdk.RGBA -> m ()-setCellRendererCellBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "cell-background-rgba" val+setCellRendererCellBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "cell-background-rgba" (Just val) constructCellRendererCellBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue)-constructCellRendererCellBackgroundRgba val = constructObjectPropertyBoxed "cell-background-rgba" val+constructCellRendererCellBackgroundRgba val = constructObjectPropertyBoxed "cell-background-rgba" (Just val) +clearCellRendererCellBackgroundRgba :: (MonadIO m, CellRendererK o) => o -> m ()+clearCellRendererCellBackgroundRgba obj = liftIO $ setObjectPropertyBoxed obj "cell-background-rgba" (Nothing :: Maybe Gdk.RGBA)+ data CellRendererCellBackgroundRgbaPropertyInfo instance AttrInfo CellRendererCellBackgroundRgbaPropertyInfo where- type AttrAllowedOps CellRendererCellBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererCellBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererCellBackgroundRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint CellRendererCellBackgroundRgbaPropertyInfo = CellRendererK- type AttrGetType CellRendererCellBackgroundRgbaPropertyInfo = Gdk.RGBA+ type AttrGetType CellRendererCellBackgroundRgbaPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel CellRendererCellBackgroundRgbaPropertyInfo = "cell-background-rgba" attrGet _ = getCellRendererCellBackgroundRgba attrSet _ = setCellRendererCellBackgroundRgba attrConstruct _ = constructCellRendererCellBackgroundRgba+ attrClear _ = clearCellRendererCellBackgroundRgba -- VVV Prop "cell-background-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererCellBackgroundSet :: (MonadIO m, CellRendererK o) => o -> m Bool getCellRendererCellBackgroundSet obj = liftIO $ getObjectPropertyBool obj "cell-background-set"@@ -547,10 +582,12 @@ attrGet _ = getCellRendererCellBackgroundSet attrSet _ = setCellRendererCellBackgroundSet attrConstruct _ = constructCellRendererCellBackgroundSet+ attrClear _ = undefined -- VVV Prop "editing" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) getCellRendererEditing :: (MonadIO m, CellRendererK o) => o -> m Bool getCellRendererEditing obj = liftIO $ getObjectPropertyBool obj "editing"@@ -565,19 +602,21 @@ attrGet _ = getCellRendererEditing attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "height"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererHeight :: (MonadIO m, CellRendererK o) => o -> m Int32-getCellRendererHeight obj = liftIO $ getObjectPropertyCInt obj "height"+getCellRendererHeight obj = liftIO $ getObjectPropertyInt32 obj "height" setCellRendererHeight :: (MonadIO m, CellRendererK o) => o -> Int32 -> m ()-setCellRendererHeight obj val = liftIO $ setObjectPropertyCInt obj "height" val+setCellRendererHeight obj val = liftIO $ setObjectPropertyInt32 obj "height" val constructCellRendererHeight :: Int32 -> IO ([Char], GValue)-constructCellRendererHeight val = constructObjectPropertyCInt "height" val+constructCellRendererHeight val = constructObjectPropertyInt32 "height" val data CellRendererHeightPropertyInfo instance AttrInfo CellRendererHeightPropertyInfo where@@ -589,10 +628,12 @@ attrGet _ = getCellRendererHeight attrSet _ = setCellRendererHeight attrConstruct _ = constructCellRendererHeight+ attrClear _ = undefined -- VVV Prop "is-expanded" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererIsExpanded :: (MonadIO m, CellRendererK o) => o -> m Bool getCellRendererIsExpanded obj = liftIO $ getObjectPropertyBool obj "is-expanded"@@ -613,10 +654,12 @@ attrGet _ = getCellRendererIsExpanded attrSet _ = setCellRendererIsExpanded attrConstruct _ = constructCellRendererIsExpanded+ attrClear _ = undefined -- VVV Prop "is-expander" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererIsExpander :: (MonadIO m, CellRendererK o) => o -> m Bool getCellRendererIsExpander obj = liftIO $ getObjectPropertyBool obj "is-expander"@@ -637,10 +680,12 @@ attrGet _ = getCellRendererIsExpander attrSet _ = setCellRendererIsExpander attrConstruct _ = constructCellRendererIsExpander+ attrClear _ = undefined -- VVV Prop "mode" -- Type: TInterface "Gtk" "CellRendererMode" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererMode :: (MonadIO m, CellRendererK o) => o -> m CellRendererMode getCellRendererMode obj = liftIO $ getObjectPropertyEnum obj "mode"@@ -661,10 +706,12 @@ attrGet _ = getCellRendererMode attrSet _ = setCellRendererMode attrConstruct _ = constructCellRendererMode+ attrClear _ = undefined -- VVV Prop "sensitive" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getCellRendererSensitive :: (MonadIO m, CellRendererK o) => o -> m Bool getCellRendererSensitive obj = liftIO $ getObjectPropertyBool obj "sensitive"@@ -685,10 +732,12 @@ attrGet _ = getCellRendererSensitive attrSet _ = setCellRendererSensitive attrConstruct _ = constructCellRendererSensitive+ attrClear _ = undefined -- VVV Prop "visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getCellRendererVisible :: (MonadIO m, CellRendererK o) => o -> m Bool getCellRendererVisible obj = liftIO $ getObjectPropertyBool obj "visible"@@ -709,19 +758,21 @@ attrGet _ = getCellRendererVisible attrSet _ = setCellRendererVisible attrConstruct _ = constructCellRendererVisible+ attrClear _ = undefined -- VVV Prop "width"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererWidth :: (MonadIO m, CellRendererK o) => o -> m Int32-getCellRendererWidth obj = liftIO $ getObjectPropertyCInt obj "width"+getCellRendererWidth obj = liftIO $ getObjectPropertyInt32 obj "width" setCellRendererWidth :: (MonadIO m, CellRendererK o) => o -> Int32 -> m ()-setCellRendererWidth obj val = liftIO $ setObjectPropertyCInt obj "width" val+setCellRendererWidth obj val = liftIO $ setObjectPropertyInt32 obj "width" val constructCellRendererWidth :: Int32 -> IO ([Char], GValue)-constructCellRendererWidth val = constructObjectPropertyCInt "width" val+constructCellRendererWidth val = constructObjectPropertyInt32 "width" val data CellRendererWidthPropertyInfo instance AttrInfo CellRendererWidthPropertyInfo where@@ -733,10 +784,12 @@ attrGet _ = getCellRendererWidth attrSet _ = setCellRendererWidth attrConstruct _ = constructCellRendererWidth+ attrClear _ = undefined -- VVV Prop "xalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererXalign :: (MonadIO m, CellRendererK o) => o -> m Float getCellRendererXalign obj = liftIO $ getObjectPropertyFloat obj "xalign"@@ -757,19 +810,21 @@ attrGet _ = getCellRendererXalign attrSet _ = setCellRendererXalign attrConstruct _ = constructCellRendererXalign+ attrClear _ = undefined -- VVV Prop "xpad"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererXpad :: (MonadIO m, CellRendererK o) => o -> m Word32-getCellRendererXpad obj = liftIO $ getObjectPropertyCUInt obj "xpad"+getCellRendererXpad obj = liftIO $ getObjectPropertyUInt32 obj "xpad" setCellRendererXpad :: (MonadIO m, CellRendererK o) => o -> Word32 -> m ()-setCellRendererXpad obj val = liftIO $ setObjectPropertyCUInt obj "xpad" val+setCellRendererXpad obj val = liftIO $ setObjectPropertyUInt32 obj "xpad" val constructCellRendererXpad :: Word32 -> IO ([Char], GValue)-constructCellRendererXpad val = constructObjectPropertyCUInt "xpad" val+constructCellRendererXpad val = constructObjectPropertyUInt32 "xpad" val data CellRendererXpadPropertyInfo instance AttrInfo CellRendererXpadPropertyInfo where@@ -781,10 +836,12 @@ attrGet _ = getCellRendererXpad attrSet _ = setCellRendererXpad attrConstruct _ = constructCellRendererXpad+ attrClear _ = undefined -- VVV Prop "yalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererYalign :: (MonadIO m, CellRendererK o) => o -> m Float getCellRendererYalign obj = liftIO $ getObjectPropertyFloat obj "yalign"@@ -805,19 +862,21 @@ attrGet _ = getCellRendererYalign attrSet _ = setCellRendererYalign attrConstruct _ = constructCellRendererYalign+ attrClear _ = undefined -- VVV Prop "ypad"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererYpad :: (MonadIO m, CellRendererK o) => o -> m Word32-getCellRendererYpad obj = liftIO $ getObjectPropertyCUInt obj "ypad"+getCellRendererYpad obj = liftIO $ getObjectPropertyUInt32 obj "ypad" setCellRendererYpad :: (MonadIO m, CellRendererK o) => o -> Word32 -> m ()-setCellRendererYpad obj val = liftIO $ setObjectPropertyCUInt obj "ypad" val+setCellRendererYpad obj val = liftIO $ setObjectPropertyUInt32 obj "ypad" val constructCellRendererYpad :: Word32 -> IO ([Char], GValue)-constructCellRendererYpad val = constructObjectPropertyCUInt "ypad" val+constructCellRendererYpad val = constructObjectPropertyUInt32 "ypad" val data CellRendererYpadPropertyInfo instance AttrInfo CellRendererYpadPropertyInfo where@@ -829,10 +888,59 @@ attrGet _ = getCellRendererYpad attrSet _ = setCellRendererYpad attrConstruct _ = constructCellRendererYpad+ attrClear _ = undefined type instance AttributeList CellRenderer = CellRendererAttributeList type CellRendererAttributeList = ('[ '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +cellRendererCellBackground :: AttrLabelProxy "cellBackground"+cellRendererCellBackground = AttrLabelProxy++cellRendererCellBackgroundGdk :: AttrLabelProxy "cellBackgroundGdk"+cellRendererCellBackgroundGdk = AttrLabelProxy++cellRendererCellBackgroundRgba :: AttrLabelProxy "cellBackgroundRgba"+cellRendererCellBackgroundRgba = AttrLabelProxy++cellRendererCellBackgroundSet :: AttrLabelProxy "cellBackgroundSet"+cellRendererCellBackgroundSet = AttrLabelProxy++cellRendererEditing :: AttrLabelProxy "editing"+cellRendererEditing = AttrLabelProxy++cellRendererHeight :: AttrLabelProxy "height"+cellRendererHeight = AttrLabelProxy++cellRendererIsExpanded :: AttrLabelProxy "isExpanded"+cellRendererIsExpanded = AttrLabelProxy++cellRendererIsExpander :: AttrLabelProxy "isExpander"+cellRendererIsExpander = AttrLabelProxy++cellRendererMode :: AttrLabelProxy "mode"+cellRendererMode = AttrLabelProxy++cellRendererSensitive :: AttrLabelProxy "sensitive"+cellRendererSensitive = AttrLabelProxy++cellRendererVisible :: AttrLabelProxy "visible"+cellRendererVisible = AttrLabelProxy++cellRendererWidth :: AttrLabelProxy "width"+cellRendererWidth = AttrLabelProxy++cellRendererXalign :: AttrLabelProxy "xalign"+cellRendererXalign = AttrLabelProxy++cellRendererXpad :: AttrLabelProxy "xpad"+cellRendererXpad = AttrLabelProxy++cellRendererYalign :: AttrLabelProxy "yalign"+cellRendererYalign = AttrLabelProxy++cellRendererYpad :: AttrLabelProxy "ypad"+cellRendererYpad = AttrLabelProxy+ data CellRendererEditingCanceledSignalInfo instance SignalInfo CellRendererEditingCanceledSignalInfo where type HaskellCallbackType CellRendererEditingCanceledSignalInfo = CellRendererEditingCanceledCallback@@ -850,7 +958,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -901,7 +1009,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "aligned_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -942,7 +1050,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -977,16 +1085,16 @@ -- method CellRenderer::get_fixed_size -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_renderer_get_fixed_size" gtk_cell_renderer_get_fixed_size :: Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"- Ptr Int32 -> -- width : TBasicType TInt32- Ptr Int32 -> -- height : TBasicType TInt32+ Ptr Int32 -> -- width : TBasicType TInt+ Ptr Int32 -> -- height : TBasicType TInt IO () @@ -1012,16 +1120,16 @@ -- method CellRenderer::get_padding -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ypad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ypad", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_renderer_get_padding" gtk_cell_renderer_get_padding :: Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"- Ptr Int32 -> -- xpad : TBasicType TInt32- Ptr Int32 -> -- ypad : TBasicType TInt32+ Ptr Int32 -> -- xpad : TBasicType TInt+ Ptr Int32 -> -- ypad : TBasicType TInt IO () @@ -1047,17 +1155,17 @@ -- method CellRenderer::get_preferred_height -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_renderer_get_preferred_height" gtk_cell_renderer_get_preferred_height :: Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" Ptr Widget -> -- widget : TInterface "Gtk" "Widget"- Ptr Int32 -> -- minimum_size : TBasicType TInt32- Ptr Int32 -> -- natural_size : TBasicType TInt32+ Ptr Int32 -> -- minimum_size : TBasicType TInt+ Ptr Int32 -> -- natural_size : TBasicType TInt IO () @@ -1086,18 +1194,18 @@ -- method CellRenderer::get_preferred_height_for_width -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_renderer_get_preferred_height_for_width" gtk_cell_renderer_get_preferred_height_for_width :: Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" Ptr Widget -> -- widget : TInterface "Gtk" "Widget"- Int32 -> -- width : TBasicType TInt32- Ptr Int32 -> -- minimum_height : TBasicType TInt32- Ptr Int32 -> -- natural_height : TBasicType TInt32+ Int32 -> -- width : TBasicType TInt+ Ptr Int32 -> -- minimum_height : TBasicType TInt+ Ptr Int32 -> -- natural_height : TBasicType TInt IO () @@ -1129,7 +1237,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "natural_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1164,17 +1272,17 @@ -- method CellRenderer::get_preferred_width -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_renderer_get_preferred_width" gtk_cell_renderer_get_preferred_width :: Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" Ptr Widget -> -- widget : TInterface "Gtk" "Widget"- Ptr Int32 -> -- minimum_size : TBasicType TInt32- Ptr Int32 -> -- natural_size : TBasicType TInt32+ Ptr Int32 -> -- minimum_size : TBasicType TInt+ Ptr Int32 -> -- natural_size : TBasicType TInt IO () @@ -1203,18 +1311,18 @@ -- method CellRenderer::get_preferred_width_for_height -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_renderer_get_preferred_width_for_height" gtk_cell_renderer_get_preferred_width_for_height :: Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" Ptr Widget -> -- widget : TInterface "Gtk" "Widget"- Int32 -> -- height : TBasicType TInt32- Ptr Int32 -> -- minimum_width : TBasicType TInt32- Ptr Int32 -> -- natural_width : TBasicType TInt32+ Int32 -> -- height : TBasicType TInt+ Ptr Int32 -> -- minimum_width : TBasicType TInt+ Ptr Int32 -> -- natural_width : TBasicType TInt IO () @@ -1246,7 +1354,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "SizeRequestMode"+-- returnType : Just (TInterface "Gtk" "SizeRequestMode") -- throws : False -- Skip return : False @@ -1274,7 +1382,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1300,9 +1408,9 @@ -- method CellRenderer::get_size -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1310,10 +1418,10 @@ Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"- Ptr Int32 -> -- x_offset : TBasicType TInt32- Ptr Int32 -> -- y_offset : TBasicType TInt32- Ptr Int32 -> -- width : TBasicType TInt32- Ptr Int32 -> -- height : TBasicType TInt32+ Ptr Int32 -> -- x_offset : TBasicType TInt+ Ptr Int32 -> -- y_offset : TBasicType TInt+ Ptr Int32 -> -- width : TBasicType TInt+ Ptr Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED cellRendererGetSize ["(Since version 3.0)","Use gtk_cell_renderer_get_preferred_size() instead."]#-}@@ -1357,7 +1465,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_state", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "StateFlags"+-- returnType : Just (TInterface "Gtk" "StateFlags") -- throws : False -- Skip return : False @@ -1392,7 +1500,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1420,7 +1528,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1448,7 +1556,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1494,7 +1602,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1525,16 +1633,16 @@ -- method CellRenderer::set_fixed_size -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_renderer_set_fixed_size" gtk_cell_renderer_set_fixed_size :: Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt IO () @@ -1556,16 +1664,16 @@ -- method CellRenderer::set_padding -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypad", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_renderer_set_padding" gtk_cell_renderer_set_padding :: Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"- Int32 -> -- xpad : TBasicType TInt32- Int32 -> -- ypad : TBasicType TInt32+ Int32 -> -- xpad : TBasicType TInt+ Int32 -> -- ypad : TBasicType TInt IO () @@ -1589,7 +1697,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1619,7 +1727,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1649,7 +1757,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CellEditable"+-- returnType : Just (TInterface "Gtk" "CellEditable") -- throws : False -- Skip return : False @@ -1701,7 +1809,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canceled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellRenderer where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -26,6 +26,7 @@ -- * Properties -- ** AccelKey CellRendererAccelAccelKeyPropertyInfo ,+ cellRendererAccelAccelKey , constructCellRendererAccelAccelKey , getCellRendererAccelAccelKey , setCellRendererAccelAccelKey ,@@ -33,6 +34,7 @@ -- ** AccelMode CellRendererAccelAccelModePropertyInfo ,+ cellRendererAccelAccelMode , constructCellRendererAccelAccelMode , getCellRendererAccelAccelMode , setCellRendererAccelAccelMode ,@@ -40,6 +42,7 @@ -- ** AccelMods CellRendererAccelAccelModsPropertyInfo ,+ cellRendererAccelAccelMods , constructCellRendererAccelAccelMods , getCellRendererAccelAccelMods , setCellRendererAccelAccelMods ,@@ -47,6 +50,7 @@ -- ** Keycode CellRendererAccelKeycodePropertyInfo ,+ cellRendererAccelKeycode , constructCellRendererAccelKeycode , getCellRendererAccelKeycode , setCellRendererAccelKeycode ,@@ -83,9 +87,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -269,17 +273,18 @@ connectSignalFunPtr obj "accel-edited" cb' after -- VVV Prop "accel-key"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererAccelAccelKey :: (MonadIO m, CellRendererAccelK o) => o -> m Word32-getCellRendererAccelAccelKey obj = liftIO $ getObjectPropertyCUInt obj "accel-key"+getCellRendererAccelAccelKey obj = liftIO $ getObjectPropertyUInt32 obj "accel-key" setCellRendererAccelAccelKey :: (MonadIO m, CellRendererAccelK o) => o -> Word32 -> m ()-setCellRendererAccelAccelKey obj val = liftIO $ setObjectPropertyCUInt obj "accel-key" val+setCellRendererAccelAccelKey obj val = liftIO $ setObjectPropertyUInt32 obj "accel-key" val constructCellRendererAccelAccelKey :: Word32 -> IO ([Char], GValue)-constructCellRendererAccelAccelKey val = constructObjectPropertyCUInt "accel-key" val+constructCellRendererAccelAccelKey val = constructObjectPropertyUInt32 "accel-key" val data CellRendererAccelAccelKeyPropertyInfo instance AttrInfo CellRendererAccelAccelKeyPropertyInfo where@@ -291,10 +296,12 @@ attrGet _ = getCellRendererAccelAccelKey attrSet _ = setCellRendererAccelAccelKey attrConstruct _ = constructCellRendererAccelAccelKey+ attrClear _ = undefined -- VVV Prop "accel-mode" -- Type: TInterface "Gtk" "CellRendererAccelMode" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererAccelAccelMode :: (MonadIO m, CellRendererAccelK o) => o -> m CellRendererAccelMode getCellRendererAccelAccelMode obj = liftIO $ getObjectPropertyEnum obj "accel-mode"@@ -315,10 +322,12 @@ attrGet _ = getCellRendererAccelAccelMode attrSet _ = setCellRendererAccelAccelMode attrConstruct _ = constructCellRendererAccelAccelMode+ attrClear _ = undefined -- VVV Prop "accel-mods" -- Type: TInterface "Gdk" "ModifierType" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererAccelAccelMods :: (MonadIO m, CellRendererAccelK o) => o -> m [Gdk.ModifierType] getCellRendererAccelAccelMods obj = liftIO $ getObjectPropertyFlags obj "accel-mods"@@ -339,19 +348,21 @@ attrGet _ = getCellRendererAccelAccelMods attrSet _ = setCellRendererAccelAccelMods attrConstruct _ = constructCellRendererAccelAccelMods+ attrClear _ = undefined -- VVV Prop "keycode"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererAccelKeycode :: (MonadIO m, CellRendererAccelK o) => o -> m Word32-getCellRendererAccelKeycode obj = liftIO $ getObjectPropertyCUInt obj "keycode"+getCellRendererAccelKeycode obj = liftIO $ getObjectPropertyUInt32 obj "keycode" setCellRendererAccelKeycode :: (MonadIO m, CellRendererAccelK o) => o -> Word32 -> m ()-setCellRendererAccelKeycode obj val = liftIO $ setObjectPropertyCUInt obj "keycode" val+setCellRendererAccelKeycode obj val = liftIO $ setObjectPropertyUInt32 obj "keycode" val constructCellRendererAccelKeycode :: Word32 -> IO ([Char], GValue)-constructCellRendererAccelKeycode val = constructObjectPropertyCUInt "keycode" val+constructCellRendererAccelKeycode val = constructObjectPropertyUInt32 "keycode" val data CellRendererAccelKeycodePropertyInfo instance AttrInfo CellRendererAccelKeycodePropertyInfo where@@ -363,10 +374,23 @@ attrGet _ = getCellRendererAccelKeycode attrSet _ = setCellRendererAccelKeycode attrConstruct _ = constructCellRendererAccelKeycode+ attrClear _ = undefined type instance AttributeList CellRendererAccel = CellRendererAccelAttributeList type CellRendererAccelAttributeList = ('[ '("accelKey", CellRendererAccelAccelKeyPropertyInfo), '("accelMode", CellRendererAccelAccelModePropertyInfo), '("accelMods", CellRendererAccelAccelModsPropertyInfo), '("alignSet", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("backgroundGdk", CellRendererTextBackgroundGdkPropertyInfo), '("backgroundRgba", CellRendererTextBackgroundRgbaPropertyInfo), '("backgroundSet", CellRendererTextBackgroundSetPropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editableSet", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsizeSet", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("familySet", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("fontDesc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foregroundGdk", CellRendererTextForegroundGdkPropertyInfo), '("foregroundRgba", CellRendererTextForegroundRgbaPropertyInfo), '("foregroundSet", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("keycode", CellRendererAccelKeycodePropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("languageSet", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("maxWidthChars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholderText", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("riseSet", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scaleSet", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("singleParagraphMode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("sizePoints", CellRendererTextSizePointsPropertyInfo), '("sizeSet", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretchSet", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethroughSet", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("styleSet", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underlineSet", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variantSet", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weightSet", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("widthChars", CellRendererTextWidthCharsPropertyInfo), '("wrapMode", CellRendererTextWrapModePropertyInfo), '("wrapWidth", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +cellRendererAccelAccelKey :: AttrLabelProxy "accelKey"+cellRendererAccelAccelKey = AttrLabelProxy++cellRendererAccelAccelMode :: AttrLabelProxy "accelMode"+cellRendererAccelAccelMode = AttrLabelProxy++cellRendererAccelAccelMods :: AttrLabelProxy "accelMods"+cellRendererAccelAccelMods = AttrLabelProxy++cellRendererAccelKeycode :: AttrLabelProxy "keycode"+cellRendererAccelKeycode = AttrLabelProxy+ data CellRendererAccelAccelClearedSignalInfo instance SignalInfo CellRendererAccelAccelClearedSignalInfo where type HaskellCallbackType CellRendererAccelAccelClearedSignalInfo = CellRendererAccelAccelClearedCallback@@ -384,7 +408,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "CellRendererAccel"+-- returnType : Just (TInterface "Gtk" "CellRendererAccel") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellRendererAccel where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -26,6 +26,7 @@ -- * Properties -- ** HasEntry CellRendererComboHasEntryPropertyInfo ,+ cellRendererComboHasEntry , constructCellRendererComboHasEntry , getCellRendererComboHasEntry , setCellRendererComboHasEntry ,@@ -33,6 +34,8 @@ -- ** Model CellRendererComboModelPropertyInfo ,+ cellRendererComboModel ,+ clearCellRendererComboModel , constructCellRendererComboModel , getCellRendererComboModel , setCellRendererComboModel ,@@ -40,6 +43,7 @@ -- ** TextColumn CellRendererComboTextColumnPropertyInfo ,+ cellRendererComboTextColumn , constructCellRendererComboTextColumn , getCellRendererComboTextColumn , setCellRendererComboTextColumn ,@@ -64,9 +68,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -203,6 +207,7 @@ -- VVV Prop "has-entry" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererComboHasEntry :: (MonadIO m, CellRendererComboK o) => o -> m Bool getCellRendererComboHasEntry obj = liftIO $ getObjectPropertyBool obj "has-entry"@@ -223,43 +228,50 @@ attrGet _ = getCellRendererComboHasEntry attrSet _ = setCellRendererComboHasEntry attrConstruct _ = constructCellRendererComboHasEntry+ attrClear _ = undefined -- VVV Prop "model" -- Type: TInterface "Gtk" "TreeModel" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererComboModel :: (MonadIO m, CellRendererComboK o) => o -> m TreeModel+getCellRendererComboModel :: (MonadIO m, CellRendererComboK o) => o -> m (Maybe TreeModel) getCellRendererComboModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel setCellRendererComboModel :: (MonadIO m, CellRendererComboK o, TreeModelK a) => o -> a -> m ()-setCellRendererComboModel obj val = liftIO $ setObjectPropertyObject obj "model" val+setCellRendererComboModel obj val = liftIO $ setObjectPropertyObject obj "model" (Just val) constructCellRendererComboModel :: (TreeModelK a) => a -> IO ([Char], GValue)-constructCellRendererComboModel val = constructObjectPropertyObject "model" val+constructCellRendererComboModel val = constructObjectPropertyObject "model" (Just val) +clearCellRendererComboModel :: (MonadIO m, CellRendererComboK o) => o -> m ()+clearCellRendererComboModel obj = liftIO $ setObjectPropertyObject obj "model" (Nothing :: Maybe TreeModel)+ data CellRendererComboModelPropertyInfo instance AttrInfo CellRendererComboModelPropertyInfo where- type AttrAllowedOps CellRendererComboModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererComboModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererComboModelPropertyInfo = TreeModelK type AttrBaseTypeConstraint CellRendererComboModelPropertyInfo = CellRendererComboK- type AttrGetType CellRendererComboModelPropertyInfo = TreeModel+ type AttrGetType CellRendererComboModelPropertyInfo = (Maybe TreeModel) type AttrLabel CellRendererComboModelPropertyInfo = "model" attrGet _ = getCellRendererComboModel attrSet _ = setCellRendererComboModel attrConstruct _ = constructCellRendererComboModel+ attrClear _ = clearCellRendererComboModel -- VVV Prop "text-column"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererComboTextColumn :: (MonadIO m, CellRendererComboK o) => o -> m Int32-getCellRendererComboTextColumn obj = liftIO $ getObjectPropertyCInt obj "text-column"+getCellRendererComboTextColumn obj = liftIO $ getObjectPropertyInt32 obj "text-column" setCellRendererComboTextColumn :: (MonadIO m, CellRendererComboK o) => o -> Int32 -> m ()-setCellRendererComboTextColumn obj val = liftIO $ setObjectPropertyCInt obj "text-column" val+setCellRendererComboTextColumn obj val = liftIO $ setObjectPropertyInt32 obj "text-column" val constructCellRendererComboTextColumn :: Int32 -> IO ([Char], GValue)-constructCellRendererComboTextColumn val = constructObjectPropertyCInt "text-column" val+constructCellRendererComboTextColumn val = constructObjectPropertyInt32 "text-column" val data CellRendererComboTextColumnPropertyInfo instance AttrInfo CellRendererComboTextColumnPropertyInfo where@@ -271,10 +283,20 @@ attrGet _ = getCellRendererComboTextColumn attrSet _ = setCellRendererComboTextColumn attrConstruct _ = constructCellRendererComboTextColumn+ attrClear _ = undefined type instance AttributeList CellRendererCombo = CellRendererComboAttributeList type CellRendererComboAttributeList = ('[ '("alignSet", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("backgroundGdk", CellRendererTextBackgroundGdkPropertyInfo), '("backgroundRgba", CellRendererTextBackgroundRgbaPropertyInfo), '("backgroundSet", CellRendererTextBackgroundSetPropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editableSet", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsizeSet", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("familySet", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("fontDesc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foregroundGdk", CellRendererTextForegroundGdkPropertyInfo), '("foregroundRgba", CellRendererTextForegroundRgbaPropertyInfo), '("foregroundSet", CellRendererTextForegroundSetPropertyInfo), '("hasEntry", CellRendererComboHasEntryPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("languageSet", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("maxWidthChars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("model", CellRendererComboModelPropertyInfo), '("placeholderText", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("riseSet", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scaleSet", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("singleParagraphMode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("sizePoints", CellRendererTextSizePointsPropertyInfo), '("sizeSet", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretchSet", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethroughSet", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("styleSet", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("textColumn", CellRendererComboTextColumnPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underlineSet", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variantSet", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weightSet", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("widthChars", CellRendererTextWidthCharsPropertyInfo), '("wrapMode", CellRendererTextWrapModePropertyInfo), '("wrapWidth", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +cellRendererComboHasEntry :: AttrLabelProxy "hasEntry"+cellRendererComboHasEntry = AttrLabelProxy++cellRendererComboModel :: AttrLabelProxy "model"+cellRendererComboModel = AttrLabelProxy++cellRendererComboTextColumn :: AttrLabelProxy "textColumn"+cellRendererComboTextColumn = AttrLabelProxy+ data CellRendererComboChangedSignalInfo instance SignalInfo CellRendererComboChangedSignalInfo where type HaskellCallbackType CellRendererComboChangedSignalInfo = CellRendererComboChangedCallback@@ -287,7 +309,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "CellRendererCombo"+-- returnType : Just (TInterface "Gtk" "CellRendererCombo") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellRendererCombo where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -26,6 +26,7 @@ -- * Properties -- ** FollowState CellRendererPixbufFollowStatePropertyInfo,+ cellRendererPixbufFollowState , constructCellRendererPixbufFollowState , getCellRendererPixbufFollowState , setCellRendererPixbufFollowState ,@@ -33,6 +34,8 @@ -- ** Gicon CellRendererPixbufGiconPropertyInfo ,+ cellRendererPixbufGicon ,+ clearCellRendererPixbufGicon , constructCellRendererPixbufGicon , getCellRendererPixbufGicon , setCellRendererPixbufGicon ,@@ -40,6 +43,8 @@ -- ** IconName CellRendererPixbufIconNamePropertyInfo ,+ cellRendererPixbufIconName ,+ clearCellRendererPixbufIconName , constructCellRendererPixbufIconName , getCellRendererPixbufIconName , setCellRendererPixbufIconName ,@@ -47,6 +52,8 @@ -- ** Pixbuf CellRendererPixbufPixbufPropertyInfo ,+ cellRendererPixbufPixbuf ,+ clearCellRendererPixbufPixbuf , constructCellRendererPixbufPixbuf , getCellRendererPixbufPixbuf , setCellRendererPixbufPixbuf ,@@ -54,6 +61,8 @@ -- ** PixbufExpanderClosed CellRendererPixbufPixbufExpanderClosedPropertyInfo,+ cellRendererPixbufPixbufExpanderClosed ,+ clearCellRendererPixbufPixbufExpanderClosed, constructCellRendererPixbufPixbufExpanderClosed, getCellRendererPixbufPixbufExpanderClosed, setCellRendererPixbufPixbufExpanderClosed,@@ -61,6 +70,8 @@ -- ** PixbufExpanderOpen CellRendererPixbufPixbufExpanderOpenPropertyInfo,+ cellRendererPixbufPixbufExpanderOpen ,+ clearCellRendererPixbufPixbufExpanderOpen, constructCellRendererPixbufPixbufExpanderOpen, getCellRendererPixbufPixbufExpanderOpen , setCellRendererPixbufPixbufExpanderOpen ,@@ -68,6 +79,8 @@ -- ** StockDetail CellRendererPixbufStockDetailPropertyInfo,+ cellRendererPixbufStockDetail ,+ clearCellRendererPixbufStockDetail , constructCellRendererPixbufStockDetail , getCellRendererPixbufStockDetail , setCellRendererPixbufStockDetail ,@@ -75,6 +88,8 @@ -- ** StockId CellRendererPixbufStockIdPropertyInfo ,+ cellRendererPixbufStockId ,+ clearCellRendererPixbufStockId , constructCellRendererPixbufStockId , getCellRendererPixbufStockId , setCellRendererPixbufStockId ,@@ -82,6 +97,7 @@ -- ** StockSize CellRendererPixbufStockSizePropertyInfo ,+ cellRendererPixbufStockSize , constructCellRendererPixbufStockSize , getCellRendererPixbufStockSize , setCellRendererPixbufStockSize ,@@ -89,6 +105,8 @@ -- ** Surface CellRendererPixbufSurfacePropertyInfo ,+ cellRendererPixbufSurface ,+ clearCellRendererPixbufSurface , constructCellRendererPixbufSurface , getCellRendererPixbufSurface , setCellRendererPixbufSurface ,@@ -98,9 +116,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -193,6 +211,7 @@ -- VVV Prop "follow-state" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererPixbufFollowState :: (MonadIO m, CellRendererPixbufK o) => o -> m Bool getCellRendererPixbufFollowState obj = liftIO $ getObjectPropertyBool obj "follow-state"@@ -213,187 +232,224 @@ attrGet _ = getCellRendererPixbufFollowState attrSet _ = setCellRendererPixbufFollowState attrConstruct _ = constructCellRendererPixbufFollowState+ attrClear _ = undefined -- VVV Prop "gicon" -- Type: TInterface "Gio" "Icon" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererPixbufGicon :: (MonadIO m, CellRendererPixbufK o) => o -> m Gio.Icon+getCellRendererPixbufGicon :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe Gio.Icon) getCellRendererPixbufGicon obj = liftIO $ getObjectPropertyObject obj "gicon" Gio.Icon setCellRendererPixbufGicon :: (MonadIO m, CellRendererPixbufK o, Gio.IconK a) => o -> a -> m ()-setCellRendererPixbufGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" val+setCellRendererPixbufGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" (Just val) constructCellRendererPixbufGicon :: (Gio.IconK a) => a -> IO ([Char], GValue)-constructCellRendererPixbufGicon val = constructObjectPropertyObject "gicon" val+constructCellRendererPixbufGicon val = constructObjectPropertyObject "gicon" (Just val) +clearCellRendererPixbufGicon :: (MonadIO m, CellRendererPixbufK o) => o -> m ()+clearCellRendererPixbufGicon obj = liftIO $ setObjectPropertyObject obj "gicon" (Nothing :: Maybe Gio.Icon)+ data CellRendererPixbufGiconPropertyInfo instance AttrInfo CellRendererPixbufGiconPropertyInfo where- type AttrAllowedOps CellRendererPixbufGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererPixbufGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererPixbufGiconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint CellRendererPixbufGiconPropertyInfo = CellRendererPixbufK- type AttrGetType CellRendererPixbufGiconPropertyInfo = Gio.Icon+ type AttrGetType CellRendererPixbufGiconPropertyInfo = (Maybe Gio.Icon) type AttrLabel CellRendererPixbufGiconPropertyInfo = "gicon" attrGet _ = getCellRendererPixbufGicon attrSet _ = setCellRendererPixbufGicon attrConstruct _ = constructCellRendererPixbufGicon+ attrClear _ = clearCellRendererPixbufGicon -- VVV Prop "icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererPixbufIconName :: (MonadIO m, CellRendererPixbufK o) => o -> m T.Text+getCellRendererPixbufIconName :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe T.Text) getCellRendererPixbufIconName obj = liftIO $ getObjectPropertyString obj "icon-name" setCellRendererPixbufIconName :: (MonadIO m, CellRendererPixbufK o) => o -> T.Text -> m ()-setCellRendererPixbufIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val+setCellRendererPixbufIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" (Just val) constructCellRendererPixbufIconName :: T.Text -> IO ([Char], GValue)-constructCellRendererPixbufIconName val = constructObjectPropertyString "icon-name" val+constructCellRendererPixbufIconName val = constructObjectPropertyString "icon-name" (Just val) +clearCellRendererPixbufIconName :: (MonadIO m, CellRendererPixbufK o) => o -> m ()+clearCellRendererPixbufIconName obj = liftIO $ setObjectPropertyString obj "icon-name" (Nothing :: Maybe T.Text)+ data CellRendererPixbufIconNamePropertyInfo instance AttrInfo CellRendererPixbufIconNamePropertyInfo where- type AttrAllowedOps CellRendererPixbufIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererPixbufIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererPixbufIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererPixbufIconNamePropertyInfo = CellRendererPixbufK- type AttrGetType CellRendererPixbufIconNamePropertyInfo = T.Text+ type AttrGetType CellRendererPixbufIconNamePropertyInfo = (Maybe T.Text) type AttrLabel CellRendererPixbufIconNamePropertyInfo = "icon-name" attrGet _ = getCellRendererPixbufIconName attrSet _ = setCellRendererPixbufIconName attrConstruct _ = constructCellRendererPixbufIconName+ attrClear _ = clearCellRendererPixbufIconName -- VVV Prop "pixbuf" -- Type: TInterface "GdkPixbuf" "Pixbuf" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererPixbufPixbuf :: (MonadIO m, CellRendererPixbufK o) => o -> m GdkPixbuf.Pixbuf+getCellRendererPixbufPixbuf :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe GdkPixbuf.Pixbuf) getCellRendererPixbufPixbuf obj = liftIO $ getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf setCellRendererPixbufPixbuf :: (MonadIO m, CellRendererPixbufK o, GdkPixbuf.PixbufK a) => o -> a -> m ()-setCellRendererPixbufPixbuf obj val = liftIO $ setObjectPropertyObject obj "pixbuf" val+setCellRendererPixbufPixbuf obj val = liftIO $ setObjectPropertyObject obj "pixbuf" (Just val) constructCellRendererPixbufPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue)-constructCellRendererPixbufPixbuf val = constructObjectPropertyObject "pixbuf" val+constructCellRendererPixbufPixbuf val = constructObjectPropertyObject "pixbuf" (Just val) +clearCellRendererPixbufPixbuf :: (MonadIO m, CellRendererPixbufK o) => o -> m ()+clearCellRendererPixbufPixbuf obj = liftIO $ setObjectPropertyObject obj "pixbuf" (Nothing :: Maybe GdkPixbuf.Pixbuf)+ data CellRendererPixbufPixbufPropertyInfo instance AttrInfo CellRendererPixbufPixbufPropertyInfo where- type AttrAllowedOps CellRendererPixbufPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererPixbufPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererPixbufPixbufPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint CellRendererPixbufPixbufPropertyInfo = CellRendererPixbufK- type AttrGetType CellRendererPixbufPixbufPropertyInfo = GdkPixbuf.Pixbuf+ type AttrGetType CellRendererPixbufPixbufPropertyInfo = (Maybe GdkPixbuf.Pixbuf) type AttrLabel CellRendererPixbufPixbufPropertyInfo = "pixbuf" attrGet _ = getCellRendererPixbufPixbuf attrSet _ = setCellRendererPixbufPixbuf attrConstruct _ = constructCellRendererPixbufPixbuf+ attrClear _ = clearCellRendererPixbufPixbuf -- VVV Prop "pixbuf-expander-closed" -- Type: TInterface "GdkPixbuf" "Pixbuf" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererPixbufPixbufExpanderClosed :: (MonadIO m, CellRendererPixbufK o) => o -> m GdkPixbuf.Pixbuf+getCellRendererPixbufPixbufExpanderClosed :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe GdkPixbuf.Pixbuf) getCellRendererPixbufPixbufExpanderClosed obj = liftIO $ getObjectPropertyObject obj "pixbuf-expander-closed" GdkPixbuf.Pixbuf setCellRendererPixbufPixbufExpanderClosed :: (MonadIO m, CellRendererPixbufK o, GdkPixbuf.PixbufK a) => o -> a -> m ()-setCellRendererPixbufPixbufExpanderClosed obj val = liftIO $ setObjectPropertyObject obj "pixbuf-expander-closed" val+setCellRendererPixbufPixbufExpanderClosed obj val = liftIO $ setObjectPropertyObject obj "pixbuf-expander-closed" (Just val) constructCellRendererPixbufPixbufExpanderClosed :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue)-constructCellRendererPixbufPixbufExpanderClosed val = constructObjectPropertyObject "pixbuf-expander-closed" val+constructCellRendererPixbufPixbufExpanderClosed val = constructObjectPropertyObject "pixbuf-expander-closed" (Just val) +clearCellRendererPixbufPixbufExpanderClosed :: (MonadIO m, CellRendererPixbufK o) => o -> m ()+clearCellRendererPixbufPixbufExpanderClosed obj = liftIO $ setObjectPropertyObject obj "pixbuf-expander-closed" (Nothing :: Maybe GdkPixbuf.Pixbuf)+ data CellRendererPixbufPixbufExpanderClosedPropertyInfo instance AttrInfo CellRendererPixbufPixbufExpanderClosedPropertyInfo where- type AttrAllowedOps CellRendererPixbufPixbufExpanderClosedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererPixbufPixbufExpanderClosedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererPixbufPixbufExpanderClosedPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint CellRendererPixbufPixbufExpanderClosedPropertyInfo = CellRendererPixbufK- type AttrGetType CellRendererPixbufPixbufExpanderClosedPropertyInfo = GdkPixbuf.Pixbuf+ type AttrGetType CellRendererPixbufPixbufExpanderClosedPropertyInfo = (Maybe GdkPixbuf.Pixbuf) type AttrLabel CellRendererPixbufPixbufExpanderClosedPropertyInfo = "pixbuf-expander-closed" attrGet _ = getCellRendererPixbufPixbufExpanderClosed attrSet _ = setCellRendererPixbufPixbufExpanderClosed attrConstruct _ = constructCellRendererPixbufPixbufExpanderClosed+ attrClear _ = clearCellRendererPixbufPixbufExpanderClosed -- VVV Prop "pixbuf-expander-open" -- Type: TInterface "GdkPixbuf" "Pixbuf" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererPixbufPixbufExpanderOpen :: (MonadIO m, CellRendererPixbufK o) => o -> m GdkPixbuf.Pixbuf+getCellRendererPixbufPixbufExpanderOpen :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe GdkPixbuf.Pixbuf) getCellRendererPixbufPixbufExpanderOpen obj = liftIO $ getObjectPropertyObject obj "pixbuf-expander-open" GdkPixbuf.Pixbuf setCellRendererPixbufPixbufExpanderOpen :: (MonadIO m, CellRendererPixbufK o, GdkPixbuf.PixbufK a) => o -> a -> m ()-setCellRendererPixbufPixbufExpanderOpen obj val = liftIO $ setObjectPropertyObject obj "pixbuf-expander-open" val+setCellRendererPixbufPixbufExpanderOpen obj val = liftIO $ setObjectPropertyObject obj "pixbuf-expander-open" (Just val) constructCellRendererPixbufPixbufExpanderOpen :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue)-constructCellRendererPixbufPixbufExpanderOpen val = constructObjectPropertyObject "pixbuf-expander-open" val+constructCellRendererPixbufPixbufExpanderOpen val = constructObjectPropertyObject "pixbuf-expander-open" (Just val) +clearCellRendererPixbufPixbufExpanderOpen :: (MonadIO m, CellRendererPixbufK o) => o -> m ()+clearCellRendererPixbufPixbufExpanderOpen obj = liftIO $ setObjectPropertyObject obj "pixbuf-expander-open" (Nothing :: Maybe GdkPixbuf.Pixbuf)+ data CellRendererPixbufPixbufExpanderOpenPropertyInfo instance AttrInfo CellRendererPixbufPixbufExpanderOpenPropertyInfo where- type AttrAllowedOps CellRendererPixbufPixbufExpanderOpenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererPixbufPixbufExpanderOpenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererPixbufPixbufExpanderOpenPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint CellRendererPixbufPixbufExpanderOpenPropertyInfo = CellRendererPixbufK- type AttrGetType CellRendererPixbufPixbufExpanderOpenPropertyInfo = GdkPixbuf.Pixbuf+ type AttrGetType CellRendererPixbufPixbufExpanderOpenPropertyInfo = (Maybe GdkPixbuf.Pixbuf) type AttrLabel CellRendererPixbufPixbufExpanderOpenPropertyInfo = "pixbuf-expander-open" attrGet _ = getCellRendererPixbufPixbufExpanderOpen attrSet _ = setCellRendererPixbufPixbufExpanderOpen attrConstruct _ = constructCellRendererPixbufPixbufExpanderOpen+ attrClear _ = clearCellRendererPixbufPixbufExpanderOpen -- VVV Prop "stock-detail" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererPixbufStockDetail :: (MonadIO m, CellRendererPixbufK o) => o -> m T.Text+getCellRendererPixbufStockDetail :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe T.Text) getCellRendererPixbufStockDetail obj = liftIO $ getObjectPropertyString obj "stock-detail" setCellRendererPixbufStockDetail :: (MonadIO m, CellRendererPixbufK o) => o -> T.Text -> m ()-setCellRendererPixbufStockDetail obj val = liftIO $ setObjectPropertyString obj "stock-detail" val+setCellRendererPixbufStockDetail obj val = liftIO $ setObjectPropertyString obj "stock-detail" (Just val) constructCellRendererPixbufStockDetail :: T.Text -> IO ([Char], GValue)-constructCellRendererPixbufStockDetail val = constructObjectPropertyString "stock-detail" val+constructCellRendererPixbufStockDetail val = constructObjectPropertyString "stock-detail" (Just val) +clearCellRendererPixbufStockDetail :: (MonadIO m, CellRendererPixbufK o) => o -> m ()+clearCellRendererPixbufStockDetail obj = liftIO $ setObjectPropertyString obj "stock-detail" (Nothing :: Maybe T.Text)+ data CellRendererPixbufStockDetailPropertyInfo instance AttrInfo CellRendererPixbufStockDetailPropertyInfo where- type AttrAllowedOps CellRendererPixbufStockDetailPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererPixbufStockDetailPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererPixbufStockDetailPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererPixbufStockDetailPropertyInfo = CellRendererPixbufK- type AttrGetType CellRendererPixbufStockDetailPropertyInfo = T.Text+ type AttrGetType CellRendererPixbufStockDetailPropertyInfo = (Maybe T.Text) type AttrLabel CellRendererPixbufStockDetailPropertyInfo = "stock-detail" attrGet _ = getCellRendererPixbufStockDetail attrSet _ = setCellRendererPixbufStockDetail attrConstruct _ = constructCellRendererPixbufStockDetail+ attrClear _ = clearCellRendererPixbufStockDetail -- VVV Prop "stock-id" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererPixbufStockId :: (MonadIO m, CellRendererPixbufK o) => o -> m T.Text+getCellRendererPixbufStockId :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe T.Text) getCellRendererPixbufStockId obj = liftIO $ getObjectPropertyString obj "stock-id" setCellRendererPixbufStockId :: (MonadIO m, CellRendererPixbufK o) => o -> T.Text -> m ()-setCellRendererPixbufStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" val+setCellRendererPixbufStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" (Just val) constructCellRendererPixbufStockId :: T.Text -> IO ([Char], GValue)-constructCellRendererPixbufStockId val = constructObjectPropertyString "stock-id" val+constructCellRendererPixbufStockId val = constructObjectPropertyString "stock-id" (Just val) +clearCellRendererPixbufStockId :: (MonadIO m, CellRendererPixbufK o) => o -> m ()+clearCellRendererPixbufStockId obj = liftIO $ setObjectPropertyString obj "stock-id" (Nothing :: Maybe T.Text)+ data CellRendererPixbufStockIdPropertyInfo instance AttrInfo CellRendererPixbufStockIdPropertyInfo where- type AttrAllowedOps CellRendererPixbufStockIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererPixbufStockIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererPixbufStockIdPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererPixbufStockIdPropertyInfo = CellRendererPixbufK- type AttrGetType CellRendererPixbufStockIdPropertyInfo = T.Text+ type AttrGetType CellRendererPixbufStockIdPropertyInfo = (Maybe T.Text) type AttrLabel CellRendererPixbufStockIdPropertyInfo = "stock-id" attrGet _ = getCellRendererPixbufStockId attrSet _ = setCellRendererPixbufStockId attrConstruct _ = constructCellRendererPixbufStockId+ attrClear _ = clearCellRendererPixbufStockId -- VVV Prop "stock-size"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererPixbufStockSize :: (MonadIO m, CellRendererPixbufK o) => o -> m Word32-getCellRendererPixbufStockSize obj = liftIO $ getObjectPropertyCUInt obj "stock-size"+getCellRendererPixbufStockSize obj = liftIO $ getObjectPropertyUInt32 obj "stock-size" setCellRendererPixbufStockSize :: (MonadIO m, CellRendererPixbufK o) => o -> Word32 -> m ()-setCellRendererPixbufStockSize obj val = liftIO $ setObjectPropertyCUInt obj "stock-size" val+setCellRendererPixbufStockSize obj val = liftIO $ setObjectPropertyUInt32 obj "stock-size" val constructCellRendererPixbufStockSize :: Word32 -> IO ([Char], GValue)-constructCellRendererPixbufStockSize val = constructObjectPropertyCUInt "stock-size" val+constructCellRendererPixbufStockSize val = constructObjectPropertyUInt32 "stock-size" val data CellRendererPixbufStockSizePropertyInfo instance AttrInfo CellRendererPixbufStockSizePropertyInfo where@@ -405,34 +461,70 @@ attrGet _ = getCellRendererPixbufStockSize attrSet _ = setCellRendererPixbufStockSize attrConstruct _ = constructCellRendererPixbufStockSize+ attrClear _ = undefined -- VVV Prop "surface" -- Type: TInterface "cairo" "Surface" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererPixbufSurface :: (MonadIO m, CellRendererPixbufK o) => o -> m Cairo.Surface+getCellRendererPixbufSurface :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe Cairo.Surface) getCellRendererPixbufSurface obj = liftIO $ getObjectPropertyBoxed obj "surface" Cairo.Surface setCellRendererPixbufSurface :: (MonadIO m, CellRendererPixbufK o) => o -> Cairo.Surface -> m ()-setCellRendererPixbufSurface obj val = liftIO $ setObjectPropertyBoxed obj "surface" val+setCellRendererPixbufSurface obj val = liftIO $ setObjectPropertyBoxed obj "surface" (Just val) constructCellRendererPixbufSurface :: Cairo.Surface -> IO ([Char], GValue)-constructCellRendererPixbufSurface val = constructObjectPropertyBoxed "surface" val+constructCellRendererPixbufSurface val = constructObjectPropertyBoxed "surface" (Just val) +clearCellRendererPixbufSurface :: (MonadIO m, CellRendererPixbufK o) => o -> m ()+clearCellRendererPixbufSurface obj = liftIO $ setObjectPropertyBoxed obj "surface" (Nothing :: Maybe Cairo.Surface)+ data CellRendererPixbufSurfacePropertyInfo instance AttrInfo CellRendererPixbufSurfacePropertyInfo where- type AttrAllowedOps CellRendererPixbufSurfacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererPixbufSurfacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererPixbufSurfacePropertyInfo = (~) Cairo.Surface type AttrBaseTypeConstraint CellRendererPixbufSurfacePropertyInfo = CellRendererPixbufK- type AttrGetType CellRendererPixbufSurfacePropertyInfo = Cairo.Surface+ type AttrGetType CellRendererPixbufSurfacePropertyInfo = (Maybe Cairo.Surface) type AttrLabel CellRendererPixbufSurfacePropertyInfo = "surface" attrGet _ = getCellRendererPixbufSurface attrSet _ = setCellRendererPixbufSurface attrConstruct _ = constructCellRendererPixbufSurface+ attrClear _ = clearCellRendererPixbufSurface type instance AttributeList CellRendererPixbuf = CellRendererPixbufAttributeList type CellRendererPixbufAttributeList = ('[ '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("followState", CellRendererPixbufFollowStatePropertyInfo), '("gicon", CellRendererPixbufGiconPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("iconName", CellRendererPixbufIconNamePropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("pixbuf", CellRendererPixbufPixbufPropertyInfo), '("pixbufExpanderClosed", CellRendererPixbufPixbufExpanderClosedPropertyInfo), '("pixbufExpanderOpen", CellRendererPixbufPixbufExpanderOpenPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("stockDetail", CellRendererPixbufStockDetailPropertyInfo), '("stockId", CellRendererPixbufStockIdPropertyInfo), '("stockSize", CellRendererPixbufStockSizePropertyInfo), '("surface", CellRendererPixbufSurfacePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +cellRendererPixbufFollowState :: AttrLabelProxy "followState"+cellRendererPixbufFollowState = AttrLabelProxy++cellRendererPixbufGicon :: AttrLabelProxy "gicon"+cellRendererPixbufGicon = AttrLabelProxy++cellRendererPixbufIconName :: AttrLabelProxy "iconName"+cellRendererPixbufIconName = AttrLabelProxy++cellRendererPixbufPixbuf :: AttrLabelProxy "pixbuf"+cellRendererPixbufPixbuf = AttrLabelProxy++cellRendererPixbufPixbufExpanderClosed :: AttrLabelProxy "pixbufExpanderClosed"+cellRendererPixbufPixbufExpanderClosed = AttrLabelProxy++cellRendererPixbufPixbufExpanderOpen :: AttrLabelProxy "pixbufExpanderOpen"+cellRendererPixbufPixbufExpanderOpen = AttrLabelProxy++cellRendererPixbufStockDetail :: AttrLabelProxy "stockDetail"+cellRendererPixbufStockDetail = AttrLabelProxy++cellRendererPixbufStockId :: AttrLabelProxy "stockId"+cellRendererPixbufStockId = AttrLabelProxy++cellRendererPixbufStockSize :: AttrLabelProxy "stockSize"+cellRendererPixbufStockSize = AttrLabelProxy++cellRendererPixbufSurface :: AttrLabelProxy "surface"+cellRendererPixbufSurface = AttrLabelProxy+ type instance SignalList CellRendererPixbuf = CellRendererPixbufSignalList type CellRendererPixbufSignalList = ('[ '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -440,7 +532,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "CellRendererPixbuf"+-- returnType : Just (TInterface "Gtk" "CellRendererPixbuf") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellRendererPixbuf where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -26,6 +26,7 @@ -- * Properties -- ** Inverted CellRendererProgressInvertedPropertyInfo,+ cellRendererProgressInverted , constructCellRendererProgressInverted , getCellRendererProgressInverted , setCellRendererProgressInverted ,@@ -33,6 +34,7 @@ -- ** Pulse CellRendererProgressPulsePropertyInfo ,+ cellRendererProgressPulse , constructCellRendererProgressPulse , getCellRendererProgressPulse , setCellRendererProgressPulse ,@@ -40,6 +42,8 @@ -- ** Text CellRendererProgressTextPropertyInfo ,+ cellRendererProgressText ,+ clearCellRendererProgressText , constructCellRendererProgressText , getCellRendererProgressText , setCellRendererProgressText ,@@ -47,6 +51,7 @@ -- ** TextXalign CellRendererProgressTextXalignPropertyInfo,+ cellRendererProgressTextXalign , constructCellRendererProgressTextXalign , getCellRendererProgressTextXalign , setCellRendererProgressTextXalign ,@@ -54,6 +59,7 @@ -- ** TextYalign CellRendererProgressTextYalignPropertyInfo,+ cellRendererProgressTextYalign , constructCellRendererProgressTextYalign , getCellRendererProgressTextYalign , setCellRendererProgressTextYalign ,@@ -61,6 +67,7 @@ -- ** Value CellRendererProgressValuePropertyInfo ,+ cellRendererProgressValue , constructCellRendererProgressValue , getCellRendererProgressValue , setCellRendererProgressValue ,@@ -70,9 +77,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -164,6 +171,7 @@ -- VVV Prop "inverted" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererProgressInverted :: (MonadIO m, CellRendererProgressK o) => o -> m Bool getCellRendererProgressInverted obj = liftIO $ getObjectPropertyBool obj "inverted"@@ -184,19 +192,21 @@ attrGet _ = getCellRendererProgressInverted attrSet _ = setCellRendererProgressInverted attrConstruct _ = constructCellRendererProgressInverted+ attrClear _ = undefined -- VVV Prop "pulse"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererProgressPulse :: (MonadIO m, CellRendererProgressK o) => o -> m Int32-getCellRendererProgressPulse obj = liftIO $ getObjectPropertyCInt obj "pulse"+getCellRendererProgressPulse obj = liftIO $ getObjectPropertyInt32 obj "pulse" setCellRendererProgressPulse :: (MonadIO m, CellRendererProgressK o) => o -> Int32 -> m ()-setCellRendererProgressPulse obj val = liftIO $ setObjectPropertyCInt obj "pulse" val+setCellRendererProgressPulse obj val = liftIO $ setObjectPropertyInt32 obj "pulse" val constructCellRendererProgressPulse :: Int32 -> IO ([Char], GValue)-constructCellRendererProgressPulse val = constructObjectPropertyCInt "pulse" val+constructCellRendererProgressPulse val = constructObjectPropertyInt32 "pulse" val data CellRendererProgressPulsePropertyInfo instance AttrInfo CellRendererProgressPulsePropertyInfo where@@ -208,34 +218,41 @@ attrGet _ = getCellRendererProgressPulse attrSet _ = setCellRendererProgressPulse attrConstruct _ = constructCellRendererProgressPulse+ attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererProgressText :: (MonadIO m, CellRendererProgressK o) => o -> m T.Text+getCellRendererProgressText :: (MonadIO m, CellRendererProgressK o) => o -> m (Maybe T.Text) getCellRendererProgressText obj = liftIO $ getObjectPropertyString obj "text" setCellRendererProgressText :: (MonadIO m, CellRendererProgressK o) => o -> T.Text -> m ()-setCellRendererProgressText obj val = liftIO $ setObjectPropertyString obj "text" val+setCellRendererProgressText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructCellRendererProgressText :: T.Text -> IO ([Char], GValue)-constructCellRendererProgressText val = constructObjectPropertyString "text" val+constructCellRendererProgressText val = constructObjectPropertyString "text" (Just val) +clearCellRendererProgressText :: (MonadIO m, CellRendererProgressK o) => o -> m ()+clearCellRendererProgressText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text)+ data CellRendererProgressTextPropertyInfo instance AttrInfo CellRendererProgressTextPropertyInfo where- type AttrAllowedOps CellRendererProgressTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererProgressTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererProgressTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererProgressTextPropertyInfo = CellRendererProgressK- type AttrGetType CellRendererProgressTextPropertyInfo = T.Text+ type AttrGetType CellRendererProgressTextPropertyInfo = (Maybe T.Text) type AttrLabel CellRendererProgressTextPropertyInfo = "text" attrGet _ = getCellRendererProgressText attrSet _ = setCellRendererProgressText attrConstruct _ = constructCellRendererProgressText+ attrClear _ = clearCellRendererProgressText -- VVV Prop "text-xalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererProgressTextXalign :: (MonadIO m, CellRendererProgressK o) => o -> m Float getCellRendererProgressTextXalign obj = liftIO $ getObjectPropertyFloat obj "text-xalign"@@ -256,10 +273,12 @@ attrGet _ = getCellRendererProgressTextXalign attrSet _ = setCellRendererProgressTextXalign attrConstruct _ = constructCellRendererProgressTextXalign+ attrClear _ = undefined -- VVV Prop "text-yalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererProgressTextYalign :: (MonadIO m, CellRendererProgressK o) => o -> m Float getCellRendererProgressTextYalign obj = liftIO $ getObjectPropertyFloat obj "text-yalign"@@ -280,19 +299,21 @@ attrGet _ = getCellRendererProgressTextYalign attrSet _ = setCellRendererProgressTextYalign attrConstruct _ = constructCellRendererProgressTextYalign+ attrClear _ = undefined -- VVV Prop "value"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererProgressValue :: (MonadIO m, CellRendererProgressK o) => o -> m Int32-getCellRendererProgressValue obj = liftIO $ getObjectPropertyCInt obj "value"+getCellRendererProgressValue obj = liftIO $ getObjectPropertyInt32 obj "value" setCellRendererProgressValue :: (MonadIO m, CellRendererProgressK o) => o -> Int32 -> m ()-setCellRendererProgressValue obj val = liftIO $ setObjectPropertyCInt obj "value" val+setCellRendererProgressValue obj val = liftIO $ setObjectPropertyInt32 obj "value" val constructCellRendererProgressValue :: Int32 -> IO ([Char], GValue)-constructCellRendererProgressValue val = constructObjectPropertyCInt "value" val+constructCellRendererProgressValue val = constructObjectPropertyInt32 "value" val data CellRendererProgressValuePropertyInfo instance AttrInfo CellRendererProgressValuePropertyInfo where@@ -304,10 +325,29 @@ attrGet _ = getCellRendererProgressValue attrSet _ = setCellRendererProgressValue attrConstruct _ = constructCellRendererProgressValue+ attrClear _ = undefined type instance AttributeList CellRendererProgress = CellRendererProgressAttributeList type CellRendererProgressAttributeList = ('[ '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("inverted", CellRendererProgressInvertedPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("pulse", CellRendererProgressPulsePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("text", CellRendererProgressTextPropertyInfo), '("textXalign", CellRendererProgressTextXalignPropertyInfo), '("textYalign", CellRendererProgressTextYalignPropertyInfo), '("value", CellRendererProgressValuePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +cellRendererProgressInverted :: AttrLabelProxy "inverted"+cellRendererProgressInverted = AttrLabelProxy++cellRendererProgressPulse :: AttrLabelProxy "pulse"+cellRendererProgressPulse = AttrLabelProxy++cellRendererProgressText :: AttrLabelProxy "text"+cellRendererProgressText = AttrLabelProxy++cellRendererProgressTextXalign :: AttrLabelProxy "textXalign"+cellRendererProgressTextXalign = AttrLabelProxy++cellRendererProgressTextYalign :: AttrLabelProxy "textYalign"+cellRendererProgressTextYalign = AttrLabelProxy++cellRendererProgressValue :: AttrLabelProxy "value"+cellRendererProgressValue = AttrLabelProxy+ type instance SignalList CellRendererProgress = CellRendererProgressSignalList type CellRendererProgressSignalList = ('[ '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -315,7 +355,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "CellRendererProgress"+-- returnType : Just (TInterface "Gtk" "CellRendererProgress") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellRendererProgress where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -26,6 +26,8 @@ -- * Properties -- ** Adjustment CellRendererSpinAdjustmentPropertyInfo ,+ cellRendererSpinAdjustment ,+ clearCellRendererSpinAdjustment , constructCellRendererSpinAdjustment , getCellRendererSpinAdjustment , setCellRendererSpinAdjustment ,@@ -33,6 +35,7 @@ -- ** ClimbRate CellRendererSpinClimbRatePropertyInfo ,+ cellRendererSpinClimbRate , constructCellRendererSpinClimbRate , getCellRendererSpinClimbRate , setCellRendererSpinClimbRate ,@@ -40,6 +43,7 @@ -- ** Digits CellRendererSpinDigitsPropertyInfo ,+ cellRendererSpinDigits , constructCellRendererSpinDigits , getCellRendererSpinDigits , setCellRendererSpinDigits ,@@ -49,9 +53,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -142,30 +146,36 @@ -- VVV Prop "adjustment" -- Type: TInterface "Gtk" "Adjustment" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererSpinAdjustment :: (MonadIO m, CellRendererSpinK o) => o -> m Adjustment+getCellRendererSpinAdjustment :: (MonadIO m, CellRendererSpinK o) => o -> m (Maybe Adjustment) getCellRendererSpinAdjustment obj = liftIO $ getObjectPropertyObject obj "adjustment" Adjustment setCellRendererSpinAdjustment :: (MonadIO m, CellRendererSpinK o, AdjustmentK a) => o -> a -> m ()-setCellRendererSpinAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" val+setCellRendererSpinAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" (Just val) constructCellRendererSpinAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue)-constructCellRendererSpinAdjustment val = constructObjectPropertyObject "adjustment" val+constructCellRendererSpinAdjustment val = constructObjectPropertyObject "adjustment" (Just val) +clearCellRendererSpinAdjustment :: (MonadIO m, CellRendererSpinK o) => o -> m ()+clearCellRendererSpinAdjustment obj = liftIO $ setObjectPropertyObject obj "adjustment" (Nothing :: Maybe Adjustment)+ data CellRendererSpinAdjustmentPropertyInfo instance AttrInfo CellRendererSpinAdjustmentPropertyInfo where- type AttrAllowedOps CellRendererSpinAdjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererSpinAdjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererSpinAdjustmentPropertyInfo = AdjustmentK type AttrBaseTypeConstraint CellRendererSpinAdjustmentPropertyInfo = CellRendererSpinK- type AttrGetType CellRendererSpinAdjustmentPropertyInfo = Adjustment+ type AttrGetType CellRendererSpinAdjustmentPropertyInfo = (Maybe Adjustment) type AttrLabel CellRendererSpinAdjustmentPropertyInfo = "adjustment" attrGet _ = getCellRendererSpinAdjustment attrSet _ = setCellRendererSpinAdjustment attrConstruct _ = constructCellRendererSpinAdjustment+ attrClear _ = clearCellRendererSpinAdjustment -- VVV Prop "climb-rate" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererSpinClimbRate :: (MonadIO m, CellRendererSpinK o) => o -> m Double getCellRendererSpinClimbRate obj = liftIO $ getObjectPropertyDouble obj "climb-rate"@@ -186,19 +196,21 @@ attrGet _ = getCellRendererSpinClimbRate attrSet _ = setCellRendererSpinClimbRate attrConstruct _ = constructCellRendererSpinClimbRate+ attrClear _ = undefined -- VVV Prop "digits"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererSpinDigits :: (MonadIO m, CellRendererSpinK o) => o -> m Word32-getCellRendererSpinDigits obj = liftIO $ getObjectPropertyCUInt obj "digits"+getCellRendererSpinDigits obj = liftIO $ getObjectPropertyUInt32 obj "digits" setCellRendererSpinDigits :: (MonadIO m, CellRendererSpinK o) => o -> Word32 -> m ()-setCellRendererSpinDigits obj val = liftIO $ setObjectPropertyCUInt obj "digits" val+setCellRendererSpinDigits obj val = liftIO $ setObjectPropertyUInt32 obj "digits" val constructCellRendererSpinDigits :: Word32 -> IO ([Char], GValue)-constructCellRendererSpinDigits val = constructObjectPropertyCUInt "digits" val+constructCellRendererSpinDigits val = constructObjectPropertyUInt32 "digits" val data CellRendererSpinDigitsPropertyInfo instance AttrInfo CellRendererSpinDigitsPropertyInfo where@@ -210,10 +222,20 @@ attrGet _ = getCellRendererSpinDigits attrSet _ = setCellRendererSpinDigits attrConstruct _ = constructCellRendererSpinDigits+ attrClear _ = undefined type instance AttributeList CellRendererSpin = CellRendererSpinAttributeList type CellRendererSpinAttributeList = ('[ '("adjustment", CellRendererSpinAdjustmentPropertyInfo), '("alignSet", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("backgroundGdk", CellRendererTextBackgroundGdkPropertyInfo), '("backgroundRgba", CellRendererTextBackgroundRgbaPropertyInfo), '("backgroundSet", CellRendererTextBackgroundSetPropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("climbRate", CellRendererSpinClimbRatePropertyInfo), '("digits", CellRendererSpinDigitsPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editableSet", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsizeSet", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("familySet", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("fontDesc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foregroundGdk", CellRendererTextForegroundGdkPropertyInfo), '("foregroundRgba", CellRendererTextForegroundRgbaPropertyInfo), '("foregroundSet", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("languageSet", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("maxWidthChars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholderText", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("riseSet", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scaleSet", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("singleParagraphMode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("sizePoints", CellRendererTextSizePointsPropertyInfo), '("sizeSet", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretchSet", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethroughSet", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("styleSet", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underlineSet", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variantSet", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weightSet", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("widthChars", CellRendererTextWidthCharsPropertyInfo), '("wrapMode", CellRendererTextWrapModePropertyInfo), '("wrapWidth", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +cellRendererSpinAdjustment :: AttrLabelProxy "adjustment"+cellRendererSpinAdjustment = AttrLabelProxy++cellRendererSpinClimbRate :: AttrLabelProxy "climbRate"+cellRendererSpinClimbRate = AttrLabelProxy++cellRendererSpinDigits :: AttrLabelProxy "digits"+cellRendererSpinDigits = AttrLabelProxy+ type instance SignalList CellRendererSpin = CellRendererSpinSignalList type CellRendererSpinSignalList = ('[ '("edited", CellRendererTextEditedSignalInfo), '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -221,7 +243,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "CellRendererSpin"+-- returnType : Just (TInterface "Gtk" "CellRendererSpin") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellRendererSpin where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -26,6 +26,7 @@ -- * Properties -- ** Active CellRendererSpinnerActivePropertyInfo ,+ cellRendererSpinnerActive , constructCellRendererSpinnerActive , getCellRendererSpinnerActive , setCellRendererSpinnerActive ,@@ -33,6 +34,7 @@ -- ** Pulse CellRendererSpinnerPulsePropertyInfo ,+ cellRendererSpinnerPulse , constructCellRendererSpinnerPulse , getCellRendererSpinnerPulse , setCellRendererSpinnerPulse ,@@ -40,6 +42,7 @@ -- ** Size CellRendererSpinnerSizePropertyInfo ,+ cellRendererSpinnerSize , constructCellRendererSpinnerSize , getCellRendererSpinnerSize , setCellRendererSpinnerSize ,@@ -49,9 +52,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -141,6 +144,7 @@ -- VVV Prop "active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererSpinnerActive :: (MonadIO m, CellRendererSpinnerK o) => o -> m Bool getCellRendererSpinnerActive obj = liftIO $ getObjectPropertyBool obj "active"@@ -161,19 +165,21 @@ attrGet _ = getCellRendererSpinnerActive attrSet _ = setCellRendererSpinnerActive attrConstruct _ = constructCellRendererSpinnerActive+ attrClear _ = undefined -- VVV Prop "pulse"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererSpinnerPulse :: (MonadIO m, CellRendererSpinnerK o) => o -> m Word32-getCellRendererSpinnerPulse obj = liftIO $ getObjectPropertyCUInt obj "pulse"+getCellRendererSpinnerPulse obj = liftIO $ getObjectPropertyUInt32 obj "pulse" setCellRendererSpinnerPulse :: (MonadIO m, CellRendererSpinnerK o) => o -> Word32 -> m ()-setCellRendererSpinnerPulse obj val = liftIO $ setObjectPropertyCUInt obj "pulse" val+setCellRendererSpinnerPulse obj val = liftIO $ setObjectPropertyUInt32 obj "pulse" val constructCellRendererSpinnerPulse :: Word32 -> IO ([Char], GValue)-constructCellRendererSpinnerPulse val = constructObjectPropertyCUInt "pulse" val+constructCellRendererSpinnerPulse val = constructObjectPropertyUInt32 "pulse" val data CellRendererSpinnerPulsePropertyInfo instance AttrInfo CellRendererSpinnerPulsePropertyInfo where@@ -185,10 +191,12 @@ attrGet _ = getCellRendererSpinnerPulse attrSet _ = setCellRendererSpinnerPulse attrConstruct _ = constructCellRendererSpinnerPulse+ attrClear _ = undefined -- VVV Prop "size" -- Type: TInterface "Gtk" "IconSize" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererSpinnerSize :: (MonadIO m, CellRendererSpinnerK o) => o -> m IconSize getCellRendererSpinnerSize obj = liftIO $ getObjectPropertyEnum obj "size"@@ -209,10 +217,20 @@ attrGet _ = getCellRendererSpinnerSize attrSet _ = setCellRendererSpinnerSize attrConstruct _ = constructCellRendererSpinnerSize+ attrClear _ = undefined type instance AttributeList CellRendererSpinner = CellRendererSpinnerAttributeList type CellRendererSpinnerAttributeList = ('[ '("active", CellRendererSpinnerActivePropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("pulse", CellRendererSpinnerPulsePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("size", CellRendererSpinnerSizePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +cellRendererSpinnerActive :: AttrLabelProxy "active"+cellRendererSpinnerActive = AttrLabelProxy++cellRendererSpinnerPulse :: AttrLabelProxy "pulse"+cellRendererSpinnerPulse = AttrLabelProxy++cellRendererSpinnerSize :: AttrLabelProxy "size"+cellRendererSpinnerSize = AttrLabelProxy+ type instance SignalList CellRendererSpinner = CellRendererSpinnerSignalList type CellRendererSpinnerSignalList = ('[ '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -220,7 +238,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "CellRendererSpinner"+-- returnType : Just (TInterface "Gtk" "CellRendererSpinner") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellRendererSpinner where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -31,6 +31,7 @@ -- * Properties -- ** AlignSet CellRendererTextAlignSetPropertyInfo ,+ cellRendererTextAlignSet , constructCellRendererTextAlignSet , getCellRendererTextAlignSet , setCellRendererTextAlignSet ,@@ -38,6 +39,7 @@ -- ** Alignment CellRendererTextAlignmentPropertyInfo ,+ cellRendererTextAlignment , constructCellRendererTextAlignment , getCellRendererTextAlignment , setCellRendererTextAlignment ,@@ -45,6 +47,8 @@ -- ** Attributes CellRendererTextAttributesPropertyInfo ,+ cellRendererTextAttributes ,+ clearCellRendererTextAttributes , constructCellRendererTextAttributes , getCellRendererTextAttributes , setCellRendererTextAttributes ,@@ -52,12 +56,16 @@ -- ** Background CellRendererTextBackgroundPropertyInfo ,+ cellRendererTextBackground ,+ clearCellRendererTextBackground , constructCellRendererTextBackground , setCellRendererTextBackground , -- ** BackgroundGdk CellRendererTextBackgroundGdkPropertyInfo,+ cellRendererTextBackgroundGdk ,+ clearCellRendererTextBackgroundGdk , constructCellRendererTextBackgroundGdk , getCellRendererTextBackgroundGdk , setCellRendererTextBackgroundGdk ,@@ -65,6 +73,8 @@ -- ** BackgroundRgba CellRendererTextBackgroundRgbaPropertyInfo,+ cellRendererTextBackgroundRgba ,+ clearCellRendererTextBackgroundRgba , constructCellRendererTextBackgroundRgba , getCellRendererTextBackgroundRgba , setCellRendererTextBackgroundRgba ,@@ -72,6 +82,7 @@ -- ** BackgroundSet CellRendererTextBackgroundSetPropertyInfo,+ cellRendererTextBackgroundSet , constructCellRendererTextBackgroundSet , getCellRendererTextBackgroundSet , setCellRendererTextBackgroundSet ,@@ -79,6 +90,7 @@ -- ** Editable CellRendererTextEditablePropertyInfo ,+ cellRendererTextEditable , constructCellRendererTextEditable , getCellRendererTextEditable , setCellRendererTextEditable ,@@ -86,6 +98,7 @@ -- ** EditableSet CellRendererTextEditableSetPropertyInfo ,+ cellRendererTextEditableSet , constructCellRendererTextEditableSet , getCellRendererTextEditableSet , setCellRendererTextEditableSet ,@@ -93,6 +106,7 @@ -- ** Ellipsize CellRendererTextEllipsizePropertyInfo ,+ cellRendererTextEllipsize , constructCellRendererTextEllipsize , getCellRendererTextEllipsize , setCellRendererTextEllipsize ,@@ -100,6 +114,7 @@ -- ** EllipsizeSet CellRendererTextEllipsizeSetPropertyInfo,+ cellRendererTextEllipsizeSet , constructCellRendererTextEllipsizeSet , getCellRendererTextEllipsizeSet , setCellRendererTextEllipsizeSet ,@@ -107,6 +122,8 @@ -- ** Family CellRendererTextFamilyPropertyInfo ,+ cellRendererTextFamily ,+ clearCellRendererTextFamily , constructCellRendererTextFamily , getCellRendererTextFamily , setCellRendererTextFamily ,@@ -114,6 +131,7 @@ -- ** FamilySet CellRendererTextFamilySetPropertyInfo ,+ cellRendererTextFamilySet , constructCellRendererTextFamilySet , getCellRendererTextFamilySet , setCellRendererTextFamilySet ,@@ -121,6 +139,8 @@ -- ** Font CellRendererTextFontPropertyInfo ,+ cellRendererTextFont ,+ clearCellRendererTextFont , constructCellRendererTextFont , getCellRendererTextFont , setCellRendererTextFont ,@@ -128,6 +148,8 @@ -- ** FontDesc CellRendererTextFontDescPropertyInfo ,+ cellRendererTextFontDesc ,+ clearCellRendererTextFontDesc , constructCellRendererTextFontDesc , getCellRendererTextFontDesc , setCellRendererTextFontDesc ,@@ -135,12 +157,16 @@ -- ** Foreground CellRendererTextForegroundPropertyInfo ,+ cellRendererTextForeground ,+ clearCellRendererTextForeground , constructCellRendererTextForeground , setCellRendererTextForeground , -- ** ForegroundGdk CellRendererTextForegroundGdkPropertyInfo,+ cellRendererTextForegroundGdk ,+ clearCellRendererTextForegroundGdk , constructCellRendererTextForegroundGdk , getCellRendererTextForegroundGdk , setCellRendererTextForegroundGdk ,@@ -148,6 +174,8 @@ -- ** ForegroundRgba CellRendererTextForegroundRgbaPropertyInfo,+ cellRendererTextForegroundRgba ,+ clearCellRendererTextForegroundRgba , constructCellRendererTextForegroundRgba , getCellRendererTextForegroundRgba , setCellRendererTextForegroundRgba ,@@ -155,6 +183,7 @@ -- ** ForegroundSet CellRendererTextForegroundSetPropertyInfo,+ cellRendererTextForegroundSet , constructCellRendererTextForegroundSet , getCellRendererTextForegroundSet , setCellRendererTextForegroundSet ,@@ -162,6 +191,8 @@ -- ** Language CellRendererTextLanguagePropertyInfo ,+ cellRendererTextLanguage ,+ clearCellRendererTextLanguage , constructCellRendererTextLanguage , getCellRendererTextLanguage , setCellRendererTextLanguage ,@@ -169,6 +200,7 @@ -- ** LanguageSet CellRendererTextLanguageSetPropertyInfo ,+ cellRendererTextLanguageSet , constructCellRendererTextLanguageSet , getCellRendererTextLanguageSet , setCellRendererTextLanguageSet ,@@ -176,12 +208,15 @@ -- ** Markup CellRendererTextMarkupPropertyInfo ,+ cellRendererTextMarkup ,+ clearCellRendererTextMarkup , constructCellRendererTextMarkup , setCellRendererTextMarkup , -- ** MaxWidthChars CellRendererTextMaxWidthCharsPropertyInfo,+ cellRendererTextMaxWidthChars , constructCellRendererTextMaxWidthChars , getCellRendererTextMaxWidthChars , setCellRendererTextMaxWidthChars ,@@ -189,6 +224,8 @@ -- ** PlaceholderText CellRendererTextPlaceholderTextPropertyInfo,+ cellRendererTextPlaceholderText ,+ clearCellRendererTextPlaceholderText , constructCellRendererTextPlaceholderText, getCellRendererTextPlaceholderText , setCellRendererTextPlaceholderText ,@@ -196,6 +233,7 @@ -- ** Rise CellRendererTextRisePropertyInfo ,+ cellRendererTextRise , constructCellRendererTextRise , getCellRendererTextRise , setCellRendererTextRise ,@@ -203,6 +241,7 @@ -- ** RiseSet CellRendererTextRiseSetPropertyInfo ,+ cellRendererTextRiseSet , constructCellRendererTextRiseSet , getCellRendererTextRiseSet , setCellRendererTextRiseSet ,@@ -210,6 +249,7 @@ -- ** Scale CellRendererTextScalePropertyInfo ,+ cellRendererTextScale , constructCellRendererTextScale , getCellRendererTextScale , setCellRendererTextScale ,@@ -217,6 +257,7 @@ -- ** ScaleSet CellRendererTextScaleSetPropertyInfo ,+ cellRendererTextScaleSet , constructCellRendererTextScaleSet , getCellRendererTextScaleSet , setCellRendererTextScaleSet ,@@ -224,6 +265,7 @@ -- ** SingleParagraphMode CellRendererTextSingleParagraphModePropertyInfo,+ cellRendererTextSingleParagraphMode , constructCellRendererTextSingleParagraphMode, getCellRendererTextSingleParagraphMode , setCellRendererTextSingleParagraphMode ,@@ -231,6 +273,7 @@ -- ** Size CellRendererTextSizePropertyInfo ,+ cellRendererTextSize , constructCellRendererTextSize , getCellRendererTextSize , setCellRendererTextSize ,@@ -238,6 +281,7 @@ -- ** SizePoints CellRendererTextSizePointsPropertyInfo ,+ cellRendererTextSizePoints , constructCellRendererTextSizePoints , getCellRendererTextSizePoints , setCellRendererTextSizePoints ,@@ -245,6 +289,7 @@ -- ** SizeSet CellRendererTextSizeSetPropertyInfo ,+ cellRendererTextSizeSet , constructCellRendererTextSizeSet , getCellRendererTextSizeSet , setCellRendererTextSizeSet ,@@ -252,6 +297,7 @@ -- ** Stretch CellRendererTextStretchPropertyInfo ,+ cellRendererTextStretch , constructCellRendererTextStretch , getCellRendererTextStretch , setCellRendererTextStretch ,@@ -259,6 +305,7 @@ -- ** StretchSet CellRendererTextStretchSetPropertyInfo ,+ cellRendererTextStretchSet , constructCellRendererTextStretchSet , getCellRendererTextStretchSet , setCellRendererTextStretchSet ,@@ -266,6 +313,7 @@ -- ** Strikethrough CellRendererTextStrikethroughPropertyInfo,+ cellRendererTextStrikethrough , constructCellRendererTextStrikethrough , getCellRendererTextStrikethrough , setCellRendererTextStrikethrough ,@@ -273,6 +321,7 @@ -- ** StrikethroughSet CellRendererTextStrikethroughSetPropertyInfo,+ cellRendererTextStrikethroughSet , constructCellRendererTextStrikethroughSet, getCellRendererTextStrikethroughSet , setCellRendererTextStrikethroughSet ,@@ -280,6 +329,7 @@ -- ** Style CellRendererTextStylePropertyInfo ,+ cellRendererTextStyle , constructCellRendererTextStyle , getCellRendererTextStyle , setCellRendererTextStyle ,@@ -287,6 +337,7 @@ -- ** StyleSet CellRendererTextStyleSetPropertyInfo ,+ cellRendererTextStyleSet , constructCellRendererTextStyleSet , getCellRendererTextStyleSet , setCellRendererTextStyleSet ,@@ -294,6 +345,8 @@ -- ** Text CellRendererTextTextPropertyInfo ,+ cellRendererTextText ,+ clearCellRendererTextText , constructCellRendererTextText , getCellRendererTextText , setCellRendererTextText ,@@ -301,6 +354,7 @@ -- ** Underline CellRendererTextUnderlinePropertyInfo ,+ cellRendererTextUnderline , constructCellRendererTextUnderline , getCellRendererTextUnderline , setCellRendererTextUnderline ,@@ -308,6 +362,7 @@ -- ** UnderlineSet CellRendererTextUnderlineSetPropertyInfo,+ cellRendererTextUnderlineSet , constructCellRendererTextUnderlineSet , getCellRendererTextUnderlineSet , setCellRendererTextUnderlineSet ,@@ -315,6 +370,7 @@ -- ** Variant CellRendererTextVariantPropertyInfo ,+ cellRendererTextVariant , constructCellRendererTextVariant , getCellRendererTextVariant , setCellRendererTextVariant ,@@ -322,6 +378,7 @@ -- ** VariantSet CellRendererTextVariantSetPropertyInfo ,+ cellRendererTextVariantSet , constructCellRendererTextVariantSet , getCellRendererTextVariantSet , setCellRendererTextVariantSet ,@@ -329,6 +386,7 @@ -- ** Weight CellRendererTextWeightPropertyInfo ,+ cellRendererTextWeight , constructCellRendererTextWeight , getCellRendererTextWeight , setCellRendererTextWeight ,@@ -336,6 +394,7 @@ -- ** WeightSet CellRendererTextWeightSetPropertyInfo ,+ cellRendererTextWeightSet , constructCellRendererTextWeightSet , getCellRendererTextWeightSet , setCellRendererTextWeightSet ,@@ -343,6 +402,7 @@ -- ** WidthChars CellRendererTextWidthCharsPropertyInfo ,+ cellRendererTextWidthChars , constructCellRendererTextWidthChars , getCellRendererTextWidthChars , setCellRendererTextWidthChars ,@@ -350,6 +410,7 @@ -- ** WrapMode CellRendererTextWrapModePropertyInfo ,+ cellRendererTextWrapMode , constructCellRendererTextWrapMode , getCellRendererTextWrapMode , setCellRendererTextWrapMode ,@@ -357,6 +418,7 @@ -- ** WrapWidth CellRendererTextWrapWidthPropertyInfo ,+ cellRendererTextWrapWidth , constructCellRendererTextWrapWidth , getCellRendererTextWrapWidth , setCellRendererTextWrapWidth ,@@ -381,9 +443,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -522,6 +584,7 @@ -- VVV Prop "align-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextAlignSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextAlignSet obj = liftIO $ getObjectPropertyBool obj "align-set"@@ -542,10 +605,12 @@ attrGet _ = getCellRendererTextAlignSet attrSet _ = setCellRendererTextAlignSet attrConstruct _ = constructCellRendererTextAlignSet+ attrClear _ = undefined -- VVV Prop "alignment" -- Type: TInterface "Pango" "Alignment" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextAlignment :: (MonadIO m, CellRendererTextK o) => o -> m Pango.Alignment getCellRendererTextAlignment obj = liftIO $ getObjectPropertyEnum obj "alignment"@@ -566,44 +631,54 @@ attrGet _ = getCellRendererTextAlignment attrSet _ = setCellRendererTextAlignment attrConstruct _ = constructCellRendererTextAlignment+ attrClear _ = undefined -- VVV Prop "attributes" -- Type: TInterface "Pango" "AttrList" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererTextAttributes :: (MonadIO m, CellRendererTextK o) => o -> m Pango.AttrList+getCellRendererTextAttributes :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe Pango.AttrList) getCellRendererTextAttributes obj = liftIO $ getObjectPropertyBoxed obj "attributes" Pango.AttrList setCellRendererTextAttributes :: (MonadIO m, CellRendererTextK o) => o -> Pango.AttrList -> m ()-setCellRendererTextAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" val+setCellRendererTextAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" (Just val) constructCellRendererTextAttributes :: Pango.AttrList -> IO ([Char], GValue)-constructCellRendererTextAttributes val = constructObjectPropertyBoxed "attributes" val+constructCellRendererTextAttributes val = constructObjectPropertyBoxed "attributes" (Just val) +clearCellRendererTextAttributes :: (MonadIO m, CellRendererTextK o) => o -> m ()+clearCellRendererTextAttributes obj = liftIO $ setObjectPropertyBoxed obj "attributes" (Nothing :: Maybe Pango.AttrList)+ data CellRendererTextAttributesPropertyInfo instance AttrInfo CellRendererTextAttributesPropertyInfo where- type AttrAllowedOps CellRendererTextAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererTextAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextAttributesPropertyInfo = (~) Pango.AttrList type AttrBaseTypeConstraint CellRendererTextAttributesPropertyInfo = CellRendererTextK- type AttrGetType CellRendererTextAttributesPropertyInfo = Pango.AttrList+ type AttrGetType CellRendererTextAttributesPropertyInfo = (Maybe Pango.AttrList) type AttrLabel CellRendererTextAttributesPropertyInfo = "attributes" attrGet _ = getCellRendererTextAttributes attrSet _ = setCellRendererTextAttributes attrConstruct _ = constructCellRendererTextAttributes+ attrClear _ = clearCellRendererTextAttributes -- VVV Prop "background" -- Type: TBasicType TUTF8 -- Flags: [PropertyWritable]+ -- Nullable: (Nothing,Nothing) setCellRendererTextBackground :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m ()-setCellRendererTextBackground obj val = liftIO $ setObjectPropertyString obj "background" val+setCellRendererTextBackground obj val = liftIO $ setObjectPropertyString obj "background" (Just val) constructCellRendererTextBackground :: T.Text -> IO ([Char], GValue)-constructCellRendererTextBackground val = constructObjectPropertyString "background" val+constructCellRendererTextBackground val = constructObjectPropertyString "background" (Just val) +clearCellRendererTextBackground :: (MonadIO m, CellRendererTextK o) => o -> m ()+clearCellRendererTextBackground obj = liftIO $ setObjectPropertyString obj "background" (Nothing :: Maybe T.Text)+ data CellRendererTextBackgroundPropertyInfo instance AttrInfo CellRendererTextBackgroundPropertyInfo where- type AttrAllowedOps CellRendererTextBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct]+ type AttrAllowedOps CellRendererTextBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint CellRendererTextBackgroundPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextBackgroundPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextBackgroundPropertyInfo = ()@@ -611,58 +686,70 @@ attrGet _ = undefined attrSet _ = setCellRendererTextBackground attrConstruct _ = constructCellRendererTextBackground+ attrClear _ = clearCellRendererTextBackground -- VVV Prop "background-gdk" -- Type: TInterface "Gdk" "Color" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererTextBackgroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m Gdk.Color+getCellRendererTextBackgroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe Gdk.Color) getCellRendererTextBackgroundGdk obj = liftIO $ getObjectPropertyBoxed obj "background-gdk" Gdk.Color setCellRendererTextBackgroundGdk :: (MonadIO m, CellRendererTextK o) => o -> Gdk.Color -> m ()-setCellRendererTextBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "background-gdk" val+setCellRendererTextBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "background-gdk" (Just val) constructCellRendererTextBackgroundGdk :: Gdk.Color -> IO ([Char], GValue)-constructCellRendererTextBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" val+constructCellRendererTextBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" (Just val) +clearCellRendererTextBackgroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m ()+clearCellRendererTextBackgroundGdk obj = liftIO $ setObjectPropertyBoxed obj "background-gdk" (Nothing :: Maybe Gdk.Color)+ data CellRendererTextBackgroundGdkPropertyInfo instance AttrInfo CellRendererTextBackgroundGdkPropertyInfo where- type AttrAllowedOps CellRendererTextBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererTextBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextBackgroundGdkPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint CellRendererTextBackgroundGdkPropertyInfo = CellRendererTextK- type AttrGetType CellRendererTextBackgroundGdkPropertyInfo = Gdk.Color+ type AttrGetType CellRendererTextBackgroundGdkPropertyInfo = (Maybe Gdk.Color) type AttrLabel CellRendererTextBackgroundGdkPropertyInfo = "background-gdk" attrGet _ = getCellRendererTextBackgroundGdk attrSet _ = setCellRendererTextBackgroundGdk attrConstruct _ = constructCellRendererTextBackgroundGdk+ attrClear _ = clearCellRendererTextBackgroundGdk -- VVV Prop "background-rgba" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererTextBackgroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m Gdk.RGBA+getCellRendererTextBackgroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe Gdk.RGBA) getCellRendererTextBackgroundRgba obj = liftIO $ getObjectPropertyBoxed obj "background-rgba" Gdk.RGBA setCellRendererTextBackgroundRgba :: (MonadIO m, CellRendererTextK o) => o -> Gdk.RGBA -> m ()-setCellRendererTextBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "background-rgba" val+setCellRendererTextBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "background-rgba" (Just val) constructCellRendererTextBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue)-constructCellRendererTextBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" val+constructCellRendererTextBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" (Just val) +clearCellRendererTextBackgroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m ()+clearCellRendererTextBackgroundRgba obj = liftIO $ setObjectPropertyBoxed obj "background-rgba" (Nothing :: Maybe Gdk.RGBA)+ data CellRendererTextBackgroundRgbaPropertyInfo instance AttrInfo CellRendererTextBackgroundRgbaPropertyInfo where- type AttrAllowedOps CellRendererTextBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererTextBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextBackgroundRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint CellRendererTextBackgroundRgbaPropertyInfo = CellRendererTextK- type AttrGetType CellRendererTextBackgroundRgbaPropertyInfo = Gdk.RGBA+ type AttrGetType CellRendererTextBackgroundRgbaPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel CellRendererTextBackgroundRgbaPropertyInfo = "background-rgba" attrGet _ = getCellRendererTextBackgroundRgba attrSet _ = setCellRendererTextBackgroundRgba attrConstruct _ = constructCellRendererTextBackgroundRgba+ attrClear _ = clearCellRendererTextBackgroundRgba -- VVV Prop "background-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextBackgroundSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextBackgroundSet obj = liftIO $ getObjectPropertyBool obj "background-set"@@ -683,10 +770,12 @@ attrGet _ = getCellRendererTextBackgroundSet attrSet _ = setCellRendererTextBackgroundSet attrConstruct _ = constructCellRendererTextBackgroundSet+ attrClear _ = undefined -- VVV Prop "editable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextEditable :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextEditable obj = liftIO $ getObjectPropertyBool obj "editable"@@ -707,10 +796,12 @@ attrGet _ = getCellRendererTextEditable attrSet _ = setCellRendererTextEditable attrConstruct _ = constructCellRendererTextEditable+ attrClear _ = undefined -- VVV Prop "editable-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextEditableSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextEditableSet obj = liftIO $ getObjectPropertyBool obj "editable-set"@@ -731,10 +822,12 @@ attrGet _ = getCellRendererTextEditableSet attrSet _ = setCellRendererTextEditableSet attrConstruct _ = constructCellRendererTextEditableSet+ attrClear _ = undefined -- VVV Prop "ellipsize" -- Type: TInterface "Pango" "EllipsizeMode" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextEllipsize :: (MonadIO m, CellRendererTextK o) => o -> m Pango.EllipsizeMode getCellRendererTextEllipsize obj = liftIO $ getObjectPropertyEnum obj "ellipsize"@@ -755,10 +848,12 @@ attrGet _ = getCellRendererTextEllipsize attrSet _ = setCellRendererTextEllipsize attrConstruct _ = constructCellRendererTextEllipsize+ attrClear _ = undefined -- VVV Prop "ellipsize-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextEllipsizeSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextEllipsizeSet obj = liftIO $ getObjectPropertyBool obj "ellipsize-set"@@ -779,34 +874,41 @@ attrGet _ = getCellRendererTextEllipsizeSet attrSet _ = setCellRendererTextEllipsizeSet attrConstruct _ = constructCellRendererTextEllipsizeSet+ attrClear _ = undefined -- VVV Prop "family" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererTextFamily :: (MonadIO m, CellRendererTextK o) => o -> m T.Text+getCellRendererTextFamily :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe T.Text) getCellRendererTextFamily obj = liftIO $ getObjectPropertyString obj "family" setCellRendererTextFamily :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m ()-setCellRendererTextFamily obj val = liftIO $ setObjectPropertyString obj "family" val+setCellRendererTextFamily obj val = liftIO $ setObjectPropertyString obj "family" (Just val) constructCellRendererTextFamily :: T.Text -> IO ([Char], GValue)-constructCellRendererTextFamily val = constructObjectPropertyString "family" val+constructCellRendererTextFamily val = constructObjectPropertyString "family" (Just val) +clearCellRendererTextFamily :: (MonadIO m, CellRendererTextK o) => o -> m ()+clearCellRendererTextFamily obj = liftIO $ setObjectPropertyString obj "family" (Nothing :: Maybe T.Text)+ data CellRendererTextFamilyPropertyInfo instance AttrInfo CellRendererTextFamilyPropertyInfo where- type AttrAllowedOps CellRendererTextFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererTextFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextFamilyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextFamilyPropertyInfo = CellRendererTextK- type AttrGetType CellRendererTextFamilyPropertyInfo = T.Text+ type AttrGetType CellRendererTextFamilyPropertyInfo = (Maybe T.Text) type AttrLabel CellRendererTextFamilyPropertyInfo = "family" attrGet _ = getCellRendererTextFamily attrSet _ = setCellRendererTextFamily attrConstruct _ = constructCellRendererTextFamily+ attrClear _ = clearCellRendererTextFamily -- VVV Prop "family-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextFamilySet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextFamilySet obj = liftIO $ getObjectPropertyBool obj "family-set"@@ -827,68 +929,83 @@ attrGet _ = getCellRendererTextFamilySet attrSet _ = setCellRendererTextFamilySet attrConstruct _ = constructCellRendererTextFamilySet+ attrClear _ = undefined -- VVV Prop "font" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererTextFont :: (MonadIO m, CellRendererTextK o) => o -> m T.Text+getCellRendererTextFont :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe T.Text) getCellRendererTextFont obj = liftIO $ getObjectPropertyString obj "font" setCellRendererTextFont :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m ()-setCellRendererTextFont obj val = liftIO $ setObjectPropertyString obj "font" val+setCellRendererTextFont obj val = liftIO $ setObjectPropertyString obj "font" (Just val) constructCellRendererTextFont :: T.Text -> IO ([Char], GValue)-constructCellRendererTextFont val = constructObjectPropertyString "font" val+constructCellRendererTextFont val = constructObjectPropertyString "font" (Just val) +clearCellRendererTextFont :: (MonadIO m, CellRendererTextK o) => o -> m ()+clearCellRendererTextFont obj = liftIO $ setObjectPropertyString obj "font" (Nothing :: Maybe T.Text)+ data CellRendererTextFontPropertyInfo instance AttrInfo CellRendererTextFontPropertyInfo where- type AttrAllowedOps CellRendererTextFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererTextFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextFontPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextFontPropertyInfo = CellRendererTextK- type AttrGetType CellRendererTextFontPropertyInfo = T.Text+ type AttrGetType CellRendererTextFontPropertyInfo = (Maybe T.Text) type AttrLabel CellRendererTextFontPropertyInfo = "font" attrGet _ = getCellRendererTextFont attrSet _ = setCellRendererTextFont attrConstruct _ = constructCellRendererTextFont+ attrClear _ = clearCellRendererTextFont -- VVV Prop "font-desc" -- Type: TInterface "Pango" "FontDescription" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererTextFontDesc :: (MonadIO m, CellRendererTextK o) => o -> m Pango.FontDescription+getCellRendererTextFontDesc :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe Pango.FontDescription) getCellRendererTextFontDesc obj = liftIO $ getObjectPropertyBoxed obj "font-desc" Pango.FontDescription setCellRendererTextFontDesc :: (MonadIO m, CellRendererTextK o) => o -> Pango.FontDescription -> m ()-setCellRendererTextFontDesc obj val = liftIO $ setObjectPropertyBoxed obj "font-desc" val+setCellRendererTextFontDesc obj val = liftIO $ setObjectPropertyBoxed obj "font-desc" (Just val) constructCellRendererTextFontDesc :: Pango.FontDescription -> IO ([Char], GValue)-constructCellRendererTextFontDesc val = constructObjectPropertyBoxed "font-desc" val+constructCellRendererTextFontDesc val = constructObjectPropertyBoxed "font-desc" (Just val) +clearCellRendererTextFontDesc :: (MonadIO m, CellRendererTextK o) => o -> m ()+clearCellRendererTextFontDesc obj = liftIO $ setObjectPropertyBoxed obj "font-desc" (Nothing :: Maybe Pango.FontDescription)+ data CellRendererTextFontDescPropertyInfo instance AttrInfo CellRendererTextFontDescPropertyInfo where- type AttrAllowedOps CellRendererTextFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererTextFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextFontDescPropertyInfo = (~) Pango.FontDescription type AttrBaseTypeConstraint CellRendererTextFontDescPropertyInfo = CellRendererTextK- type AttrGetType CellRendererTextFontDescPropertyInfo = Pango.FontDescription+ type AttrGetType CellRendererTextFontDescPropertyInfo = (Maybe Pango.FontDescription) type AttrLabel CellRendererTextFontDescPropertyInfo = "font-desc" attrGet _ = getCellRendererTextFontDesc attrSet _ = setCellRendererTextFontDesc attrConstruct _ = constructCellRendererTextFontDesc+ attrClear _ = clearCellRendererTextFontDesc -- VVV Prop "foreground" -- Type: TBasicType TUTF8 -- Flags: [PropertyWritable]+ -- Nullable: (Nothing,Nothing) setCellRendererTextForeground :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m ()-setCellRendererTextForeground obj val = liftIO $ setObjectPropertyString obj "foreground" val+setCellRendererTextForeground obj val = liftIO $ setObjectPropertyString obj "foreground" (Just val) constructCellRendererTextForeground :: T.Text -> IO ([Char], GValue)-constructCellRendererTextForeground val = constructObjectPropertyString "foreground" val+constructCellRendererTextForeground val = constructObjectPropertyString "foreground" (Just val) +clearCellRendererTextForeground :: (MonadIO m, CellRendererTextK o) => o -> m ()+clearCellRendererTextForeground obj = liftIO $ setObjectPropertyString obj "foreground" (Nothing :: Maybe T.Text)+ data CellRendererTextForegroundPropertyInfo instance AttrInfo CellRendererTextForegroundPropertyInfo where- type AttrAllowedOps CellRendererTextForegroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct]+ type AttrAllowedOps CellRendererTextForegroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint CellRendererTextForegroundPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextForegroundPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextForegroundPropertyInfo = ()@@ -896,58 +1013,70 @@ attrGet _ = undefined attrSet _ = setCellRendererTextForeground attrConstruct _ = constructCellRendererTextForeground+ attrClear _ = clearCellRendererTextForeground -- VVV Prop "foreground-gdk" -- Type: TInterface "Gdk" "Color" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererTextForegroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m Gdk.Color+getCellRendererTextForegroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe Gdk.Color) getCellRendererTextForegroundGdk obj = liftIO $ getObjectPropertyBoxed obj "foreground-gdk" Gdk.Color setCellRendererTextForegroundGdk :: (MonadIO m, CellRendererTextK o) => o -> Gdk.Color -> m ()-setCellRendererTextForegroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "foreground-gdk" val+setCellRendererTextForegroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "foreground-gdk" (Just val) constructCellRendererTextForegroundGdk :: Gdk.Color -> IO ([Char], GValue)-constructCellRendererTextForegroundGdk val = constructObjectPropertyBoxed "foreground-gdk" val+constructCellRendererTextForegroundGdk val = constructObjectPropertyBoxed "foreground-gdk" (Just val) +clearCellRendererTextForegroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m ()+clearCellRendererTextForegroundGdk obj = liftIO $ setObjectPropertyBoxed obj "foreground-gdk" (Nothing :: Maybe Gdk.Color)+ data CellRendererTextForegroundGdkPropertyInfo instance AttrInfo CellRendererTextForegroundGdkPropertyInfo where- type AttrAllowedOps CellRendererTextForegroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererTextForegroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextForegroundGdkPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint CellRendererTextForegroundGdkPropertyInfo = CellRendererTextK- type AttrGetType CellRendererTextForegroundGdkPropertyInfo = Gdk.Color+ type AttrGetType CellRendererTextForegroundGdkPropertyInfo = (Maybe Gdk.Color) type AttrLabel CellRendererTextForegroundGdkPropertyInfo = "foreground-gdk" attrGet _ = getCellRendererTextForegroundGdk attrSet _ = setCellRendererTextForegroundGdk attrConstruct _ = constructCellRendererTextForegroundGdk+ attrClear _ = clearCellRendererTextForegroundGdk -- VVV Prop "foreground-rgba" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererTextForegroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m Gdk.RGBA+getCellRendererTextForegroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe Gdk.RGBA) getCellRendererTextForegroundRgba obj = liftIO $ getObjectPropertyBoxed obj "foreground-rgba" Gdk.RGBA setCellRendererTextForegroundRgba :: (MonadIO m, CellRendererTextK o) => o -> Gdk.RGBA -> m ()-setCellRendererTextForegroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "foreground-rgba" val+setCellRendererTextForegroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "foreground-rgba" (Just val) constructCellRendererTextForegroundRgba :: Gdk.RGBA -> IO ([Char], GValue)-constructCellRendererTextForegroundRgba val = constructObjectPropertyBoxed "foreground-rgba" val+constructCellRendererTextForegroundRgba val = constructObjectPropertyBoxed "foreground-rgba" (Just val) +clearCellRendererTextForegroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m ()+clearCellRendererTextForegroundRgba obj = liftIO $ setObjectPropertyBoxed obj "foreground-rgba" (Nothing :: Maybe Gdk.RGBA)+ data CellRendererTextForegroundRgbaPropertyInfo instance AttrInfo CellRendererTextForegroundRgbaPropertyInfo where- type AttrAllowedOps CellRendererTextForegroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererTextForegroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextForegroundRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint CellRendererTextForegroundRgbaPropertyInfo = CellRendererTextK- type AttrGetType CellRendererTextForegroundRgbaPropertyInfo = Gdk.RGBA+ type AttrGetType CellRendererTextForegroundRgbaPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel CellRendererTextForegroundRgbaPropertyInfo = "foreground-rgba" attrGet _ = getCellRendererTextForegroundRgba attrSet _ = setCellRendererTextForegroundRgba attrConstruct _ = constructCellRendererTextForegroundRgba+ attrClear _ = clearCellRendererTextForegroundRgba -- VVV Prop "foreground-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextForegroundSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextForegroundSet obj = liftIO $ getObjectPropertyBool obj "foreground-set"@@ -968,34 +1097,41 @@ attrGet _ = getCellRendererTextForegroundSet attrSet _ = setCellRendererTextForegroundSet attrConstruct _ = constructCellRendererTextForegroundSet+ attrClear _ = undefined -- VVV Prop "language" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererTextLanguage :: (MonadIO m, CellRendererTextK o) => o -> m T.Text+getCellRendererTextLanguage :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe T.Text) getCellRendererTextLanguage obj = liftIO $ getObjectPropertyString obj "language" setCellRendererTextLanguage :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m ()-setCellRendererTextLanguage obj val = liftIO $ setObjectPropertyString obj "language" val+setCellRendererTextLanguage obj val = liftIO $ setObjectPropertyString obj "language" (Just val) constructCellRendererTextLanguage :: T.Text -> IO ([Char], GValue)-constructCellRendererTextLanguage val = constructObjectPropertyString "language" val+constructCellRendererTextLanguage val = constructObjectPropertyString "language" (Just val) +clearCellRendererTextLanguage :: (MonadIO m, CellRendererTextK o) => o -> m ()+clearCellRendererTextLanguage obj = liftIO $ setObjectPropertyString obj "language" (Nothing :: Maybe T.Text)+ data CellRendererTextLanguagePropertyInfo instance AttrInfo CellRendererTextLanguagePropertyInfo where- type AttrAllowedOps CellRendererTextLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererTextLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextLanguagePropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextLanguagePropertyInfo = CellRendererTextK- type AttrGetType CellRendererTextLanguagePropertyInfo = T.Text+ type AttrGetType CellRendererTextLanguagePropertyInfo = (Maybe T.Text) type AttrLabel CellRendererTextLanguagePropertyInfo = "language" attrGet _ = getCellRendererTextLanguage attrSet _ = setCellRendererTextLanguage attrConstruct _ = constructCellRendererTextLanguage+ attrClear _ = clearCellRendererTextLanguage -- VVV Prop "language-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextLanguageSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextLanguageSet obj = liftIO $ getObjectPropertyBool obj "language-set"@@ -1016,20 +1152,25 @@ attrGet _ = getCellRendererTextLanguageSet attrSet _ = setCellRendererTextLanguageSet attrConstruct _ = constructCellRendererTextLanguageSet+ attrClear _ = undefined -- VVV Prop "markup" -- Type: TBasicType TUTF8 -- Flags: [PropertyWritable]+ -- Nullable: (Nothing,Nothing) setCellRendererTextMarkup :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m ()-setCellRendererTextMarkup obj val = liftIO $ setObjectPropertyString obj "markup" val+setCellRendererTextMarkup obj val = liftIO $ setObjectPropertyString obj "markup" (Just val) constructCellRendererTextMarkup :: T.Text -> IO ([Char], GValue)-constructCellRendererTextMarkup val = constructObjectPropertyString "markup" val+constructCellRendererTextMarkup val = constructObjectPropertyString "markup" (Just val) +clearCellRendererTextMarkup :: (MonadIO m, CellRendererTextK o) => o -> m ()+clearCellRendererTextMarkup obj = liftIO $ setObjectPropertyString obj "markup" (Nothing :: Maybe T.Text)+ data CellRendererTextMarkupPropertyInfo instance AttrInfo CellRendererTextMarkupPropertyInfo where- type AttrAllowedOps CellRendererTextMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct]+ type AttrAllowedOps CellRendererTextMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint CellRendererTextMarkupPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextMarkupPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextMarkupPropertyInfo = ()@@ -1037,19 +1178,21 @@ attrGet _ = undefined attrSet _ = setCellRendererTextMarkup attrConstruct _ = constructCellRendererTextMarkup+ attrClear _ = clearCellRendererTextMarkup -- VVV Prop "max-width-chars"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextMaxWidthChars :: (MonadIO m, CellRendererTextK o) => o -> m Int32-getCellRendererTextMaxWidthChars obj = liftIO $ getObjectPropertyCInt obj "max-width-chars"+getCellRendererTextMaxWidthChars obj = liftIO $ getObjectPropertyInt32 obj "max-width-chars" setCellRendererTextMaxWidthChars :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m ()-setCellRendererTextMaxWidthChars obj val = liftIO $ setObjectPropertyCInt obj "max-width-chars" val+setCellRendererTextMaxWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "max-width-chars" val constructCellRendererTextMaxWidthChars :: Int32 -> IO ([Char], GValue)-constructCellRendererTextMaxWidthChars val = constructObjectPropertyCInt "max-width-chars" val+constructCellRendererTextMaxWidthChars val = constructObjectPropertyInt32 "max-width-chars" val data CellRendererTextMaxWidthCharsPropertyInfo instance AttrInfo CellRendererTextMaxWidthCharsPropertyInfo where@@ -1061,43 +1204,50 @@ attrGet _ = getCellRendererTextMaxWidthChars attrSet _ = setCellRendererTextMaxWidthChars attrConstruct _ = constructCellRendererTextMaxWidthChars+ attrClear _ = undefined -- VVV Prop "placeholder-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererTextPlaceholderText :: (MonadIO m, CellRendererTextK o) => o -> m T.Text+getCellRendererTextPlaceholderText :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe T.Text) getCellRendererTextPlaceholderText obj = liftIO $ getObjectPropertyString obj "placeholder-text" setCellRendererTextPlaceholderText :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m ()-setCellRendererTextPlaceholderText obj val = liftIO $ setObjectPropertyString obj "placeholder-text" val+setCellRendererTextPlaceholderText obj val = liftIO $ setObjectPropertyString obj "placeholder-text" (Just val) constructCellRendererTextPlaceholderText :: T.Text -> IO ([Char], GValue)-constructCellRendererTextPlaceholderText val = constructObjectPropertyString "placeholder-text" val+constructCellRendererTextPlaceholderText val = constructObjectPropertyString "placeholder-text" (Just val) +clearCellRendererTextPlaceholderText :: (MonadIO m, CellRendererTextK o) => o -> m ()+clearCellRendererTextPlaceholderText obj = liftIO $ setObjectPropertyString obj "placeholder-text" (Nothing :: Maybe T.Text)+ data CellRendererTextPlaceholderTextPropertyInfo instance AttrInfo CellRendererTextPlaceholderTextPropertyInfo where- type AttrAllowedOps CellRendererTextPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererTextPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextPlaceholderTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextPlaceholderTextPropertyInfo = CellRendererTextK- type AttrGetType CellRendererTextPlaceholderTextPropertyInfo = T.Text+ type AttrGetType CellRendererTextPlaceholderTextPropertyInfo = (Maybe T.Text) type AttrLabel CellRendererTextPlaceholderTextPropertyInfo = "placeholder-text" attrGet _ = getCellRendererTextPlaceholderText attrSet _ = setCellRendererTextPlaceholderText attrConstruct _ = constructCellRendererTextPlaceholderText+ attrClear _ = clearCellRendererTextPlaceholderText -- VVV Prop "rise"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextRise :: (MonadIO m, CellRendererTextK o) => o -> m Int32-getCellRendererTextRise obj = liftIO $ getObjectPropertyCInt obj "rise"+getCellRendererTextRise obj = liftIO $ getObjectPropertyInt32 obj "rise" setCellRendererTextRise :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m ()-setCellRendererTextRise obj val = liftIO $ setObjectPropertyCInt obj "rise" val+setCellRendererTextRise obj val = liftIO $ setObjectPropertyInt32 obj "rise" val constructCellRendererTextRise :: Int32 -> IO ([Char], GValue)-constructCellRendererTextRise val = constructObjectPropertyCInt "rise" val+constructCellRendererTextRise val = constructObjectPropertyInt32 "rise" val data CellRendererTextRisePropertyInfo instance AttrInfo CellRendererTextRisePropertyInfo where@@ -1109,10 +1259,12 @@ attrGet _ = getCellRendererTextRise attrSet _ = setCellRendererTextRise attrConstruct _ = constructCellRendererTextRise+ attrClear _ = undefined -- VVV Prop "rise-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextRiseSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextRiseSet obj = liftIO $ getObjectPropertyBool obj "rise-set"@@ -1133,10 +1285,12 @@ attrGet _ = getCellRendererTextRiseSet attrSet _ = setCellRendererTextRiseSet attrConstruct _ = constructCellRendererTextRiseSet+ attrClear _ = undefined -- VVV Prop "scale" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextScale :: (MonadIO m, CellRendererTextK o) => o -> m Double getCellRendererTextScale obj = liftIO $ getObjectPropertyDouble obj "scale"@@ -1157,10 +1311,12 @@ attrGet _ = getCellRendererTextScale attrSet _ = setCellRendererTextScale attrConstruct _ = constructCellRendererTextScale+ attrClear _ = undefined -- VVV Prop "scale-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextScaleSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextScaleSet obj = liftIO $ getObjectPropertyBool obj "scale-set"@@ -1181,10 +1337,12 @@ attrGet _ = getCellRendererTextScaleSet attrSet _ = setCellRendererTextScaleSet attrConstruct _ = constructCellRendererTextScaleSet+ attrClear _ = undefined -- VVV Prop "single-paragraph-mode" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextSingleParagraphMode :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextSingleParagraphMode obj = liftIO $ getObjectPropertyBool obj "single-paragraph-mode"@@ -1205,19 +1363,21 @@ attrGet _ = getCellRendererTextSingleParagraphMode attrSet _ = setCellRendererTextSingleParagraphMode attrConstruct _ = constructCellRendererTextSingleParagraphMode+ attrClear _ = undefined -- VVV Prop "size"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextSize :: (MonadIO m, CellRendererTextK o) => o -> m Int32-getCellRendererTextSize obj = liftIO $ getObjectPropertyCInt obj "size"+getCellRendererTextSize obj = liftIO $ getObjectPropertyInt32 obj "size" setCellRendererTextSize :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m ()-setCellRendererTextSize obj val = liftIO $ setObjectPropertyCInt obj "size" val+setCellRendererTextSize obj val = liftIO $ setObjectPropertyInt32 obj "size" val constructCellRendererTextSize :: Int32 -> IO ([Char], GValue)-constructCellRendererTextSize val = constructObjectPropertyCInt "size" val+constructCellRendererTextSize val = constructObjectPropertyInt32 "size" val data CellRendererTextSizePropertyInfo instance AttrInfo CellRendererTextSizePropertyInfo where@@ -1229,10 +1389,12 @@ attrGet _ = getCellRendererTextSize attrSet _ = setCellRendererTextSize attrConstruct _ = constructCellRendererTextSize+ attrClear _ = undefined -- VVV Prop "size-points" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextSizePoints :: (MonadIO m, CellRendererTextK o) => o -> m Double getCellRendererTextSizePoints obj = liftIO $ getObjectPropertyDouble obj "size-points"@@ -1253,10 +1415,12 @@ attrGet _ = getCellRendererTextSizePoints attrSet _ = setCellRendererTextSizePoints attrConstruct _ = constructCellRendererTextSizePoints+ attrClear _ = undefined -- VVV Prop "size-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextSizeSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextSizeSet obj = liftIO $ getObjectPropertyBool obj "size-set"@@ -1277,10 +1441,12 @@ attrGet _ = getCellRendererTextSizeSet attrSet _ = setCellRendererTextSizeSet attrConstruct _ = constructCellRendererTextSizeSet+ attrClear _ = undefined -- VVV Prop "stretch" -- Type: TInterface "Pango" "Stretch" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextStretch :: (MonadIO m, CellRendererTextK o) => o -> m Pango.Stretch getCellRendererTextStretch obj = liftIO $ getObjectPropertyEnum obj "stretch"@@ -1301,10 +1467,12 @@ attrGet _ = getCellRendererTextStretch attrSet _ = setCellRendererTextStretch attrConstruct _ = constructCellRendererTextStretch+ attrClear _ = undefined -- VVV Prop "stretch-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextStretchSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextStretchSet obj = liftIO $ getObjectPropertyBool obj "stretch-set"@@ -1325,10 +1493,12 @@ attrGet _ = getCellRendererTextStretchSet attrSet _ = setCellRendererTextStretchSet attrConstruct _ = constructCellRendererTextStretchSet+ attrClear _ = undefined -- VVV Prop "strikethrough" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextStrikethrough :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextStrikethrough obj = liftIO $ getObjectPropertyBool obj "strikethrough"@@ -1349,10 +1519,12 @@ attrGet _ = getCellRendererTextStrikethrough attrSet _ = setCellRendererTextStrikethrough attrConstruct _ = constructCellRendererTextStrikethrough+ attrClear _ = undefined -- VVV Prop "strikethrough-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextStrikethroughSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextStrikethroughSet obj = liftIO $ getObjectPropertyBool obj "strikethrough-set"@@ -1373,10 +1545,12 @@ attrGet _ = getCellRendererTextStrikethroughSet attrSet _ = setCellRendererTextStrikethroughSet attrConstruct _ = constructCellRendererTextStrikethroughSet+ attrClear _ = undefined -- VVV Prop "style" -- Type: TInterface "Pango" "Style" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextStyle :: (MonadIO m, CellRendererTextK o) => o -> m Pango.Style getCellRendererTextStyle obj = liftIO $ getObjectPropertyEnum obj "style"@@ -1397,10 +1571,12 @@ attrGet _ = getCellRendererTextStyle attrSet _ = setCellRendererTextStyle attrConstruct _ = constructCellRendererTextStyle+ attrClear _ = undefined -- VVV Prop "style-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextStyleSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextStyleSet obj = liftIO $ getObjectPropertyBool obj "style-set"@@ -1421,34 +1597,41 @@ attrGet _ = getCellRendererTextStyleSet attrSet _ = setCellRendererTextStyleSet attrConstruct _ = constructCellRendererTextStyleSet+ attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellRendererTextText :: (MonadIO m, CellRendererTextK o) => o -> m T.Text+getCellRendererTextText :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe T.Text) getCellRendererTextText obj = liftIO $ getObjectPropertyString obj "text" setCellRendererTextText :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m ()-setCellRendererTextText obj val = liftIO $ setObjectPropertyString obj "text" val+setCellRendererTextText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructCellRendererTextText :: T.Text -> IO ([Char], GValue)-constructCellRendererTextText val = constructObjectPropertyString "text" val+constructCellRendererTextText val = constructObjectPropertyString "text" (Just val) +clearCellRendererTextText :: (MonadIO m, CellRendererTextK o) => o -> m ()+clearCellRendererTextText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text)+ data CellRendererTextTextPropertyInfo instance AttrInfo CellRendererTextTextPropertyInfo where- type AttrAllowedOps CellRendererTextTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellRendererTextTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextTextPropertyInfo = CellRendererTextK- type AttrGetType CellRendererTextTextPropertyInfo = T.Text+ type AttrGetType CellRendererTextTextPropertyInfo = (Maybe T.Text) type AttrLabel CellRendererTextTextPropertyInfo = "text" attrGet _ = getCellRendererTextText attrSet _ = setCellRendererTextText attrConstruct _ = constructCellRendererTextText+ attrClear _ = clearCellRendererTextText -- VVV Prop "underline" -- Type: TInterface "Pango" "Underline" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextUnderline :: (MonadIO m, CellRendererTextK o) => o -> m Pango.Underline getCellRendererTextUnderline obj = liftIO $ getObjectPropertyEnum obj "underline"@@ -1469,10 +1652,12 @@ attrGet _ = getCellRendererTextUnderline attrSet _ = setCellRendererTextUnderline attrConstruct _ = constructCellRendererTextUnderline+ attrClear _ = undefined -- VVV Prop "underline-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextUnderlineSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextUnderlineSet obj = liftIO $ getObjectPropertyBool obj "underline-set"@@ -1493,10 +1678,12 @@ attrGet _ = getCellRendererTextUnderlineSet attrSet _ = setCellRendererTextUnderlineSet attrConstruct _ = constructCellRendererTextUnderlineSet+ attrClear _ = undefined -- VVV Prop "variant" -- Type: TInterface "Pango" "Variant" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextVariant :: (MonadIO m, CellRendererTextK o) => o -> m Pango.Variant getCellRendererTextVariant obj = liftIO $ getObjectPropertyEnum obj "variant"@@ -1517,10 +1704,12 @@ attrGet _ = getCellRendererTextVariant attrSet _ = setCellRendererTextVariant attrConstruct _ = constructCellRendererTextVariant+ attrClear _ = undefined -- VVV Prop "variant-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextVariantSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextVariantSet obj = liftIO $ getObjectPropertyBool obj "variant-set"@@ -1541,19 +1730,21 @@ attrGet _ = getCellRendererTextVariantSet attrSet _ = setCellRendererTextVariantSet attrConstruct _ = constructCellRendererTextVariantSet+ attrClear _ = undefined -- VVV Prop "weight"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextWeight :: (MonadIO m, CellRendererTextK o) => o -> m Int32-getCellRendererTextWeight obj = liftIO $ getObjectPropertyCInt obj "weight"+getCellRendererTextWeight obj = liftIO $ getObjectPropertyInt32 obj "weight" setCellRendererTextWeight :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m ()-setCellRendererTextWeight obj val = liftIO $ setObjectPropertyCInt obj "weight" val+setCellRendererTextWeight obj val = liftIO $ setObjectPropertyInt32 obj "weight" val constructCellRendererTextWeight :: Int32 -> IO ([Char], GValue)-constructCellRendererTextWeight val = constructObjectPropertyCInt "weight" val+constructCellRendererTextWeight val = constructObjectPropertyInt32 "weight" val data CellRendererTextWeightPropertyInfo instance AttrInfo CellRendererTextWeightPropertyInfo where@@ -1565,10 +1756,12 @@ attrGet _ = getCellRendererTextWeight attrSet _ = setCellRendererTextWeight attrConstruct _ = constructCellRendererTextWeight+ attrClear _ = undefined -- VVV Prop "weight-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextWeightSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextWeightSet obj = liftIO $ getObjectPropertyBool obj "weight-set"@@ -1589,19 +1782,21 @@ attrGet _ = getCellRendererTextWeightSet attrSet _ = setCellRendererTextWeightSet attrConstruct _ = constructCellRendererTextWeightSet+ attrClear _ = undefined -- VVV Prop "width-chars"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextWidthChars :: (MonadIO m, CellRendererTextK o) => o -> m Int32-getCellRendererTextWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars"+getCellRendererTextWidthChars obj = liftIO $ getObjectPropertyInt32 obj "width-chars" setCellRendererTextWidthChars :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m ()-setCellRendererTextWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val+setCellRendererTextWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "width-chars" val constructCellRendererTextWidthChars :: Int32 -> IO ([Char], GValue)-constructCellRendererTextWidthChars val = constructObjectPropertyCInt "width-chars" val+constructCellRendererTextWidthChars val = constructObjectPropertyInt32 "width-chars" val data CellRendererTextWidthCharsPropertyInfo instance AttrInfo CellRendererTextWidthCharsPropertyInfo where@@ -1613,10 +1808,12 @@ attrGet _ = getCellRendererTextWidthChars attrSet _ = setCellRendererTextWidthChars attrConstruct _ = constructCellRendererTextWidthChars+ attrClear _ = undefined -- VVV Prop "wrap-mode" -- Type: TInterface "Pango" "WrapMode" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextWrapMode :: (MonadIO m, CellRendererTextK o) => o -> m Pango.WrapMode getCellRendererTextWrapMode obj = liftIO $ getObjectPropertyEnum obj "wrap-mode"@@ -1637,19 +1834,21 @@ attrGet _ = getCellRendererTextWrapMode attrSet _ = setCellRendererTextWrapMode attrConstruct _ = constructCellRendererTextWrapMode+ attrClear _ = undefined -- VVV Prop "wrap-width"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererTextWrapWidth :: (MonadIO m, CellRendererTextK o) => o -> m Int32-getCellRendererTextWrapWidth obj = liftIO $ getObjectPropertyCInt obj "wrap-width"+getCellRendererTextWrapWidth obj = liftIO $ getObjectPropertyInt32 obj "wrap-width" setCellRendererTextWrapWidth :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m ()-setCellRendererTextWrapWidth obj val = liftIO $ setObjectPropertyCInt obj "wrap-width" val+setCellRendererTextWrapWidth obj val = liftIO $ setObjectPropertyInt32 obj "wrap-width" val constructCellRendererTextWrapWidth :: Int32 -> IO ([Char], GValue)-constructCellRendererTextWrapWidth val = constructObjectPropertyCInt "wrap-width" val+constructCellRendererTextWrapWidth val = constructObjectPropertyInt32 "wrap-width" val data CellRendererTextWrapWidthPropertyInfo instance AttrInfo CellRendererTextWrapWidthPropertyInfo where@@ -1661,10 +1860,155 @@ attrGet _ = getCellRendererTextWrapWidth attrSet _ = setCellRendererTextWrapWidth attrConstruct _ = constructCellRendererTextWrapWidth+ attrClear _ = undefined type instance AttributeList CellRendererText = CellRendererTextAttributeList type CellRendererTextAttributeList = ('[ '("alignSet", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("backgroundGdk", CellRendererTextBackgroundGdkPropertyInfo), '("backgroundRgba", CellRendererTextBackgroundRgbaPropertyInfo), '("backgroundSet", CellRendererTextBackgroundSetPropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editableSet", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsizeSet", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("familySet", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("fontDesc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foregroundGdk", CellRendererTextForegroundGdkPropertyInfo), '("foregroundRgba", CellRendererTextForegroundRgbaPropertyInfo), '("foregroundSet", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("languageSet", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("maxWidthChars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholderText", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("riseSet", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scaleSet", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("singleParagraphMode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("sizePoints", CellRendererTextSizePointsPropertyInfo), '("sizeSet", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretchSet", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethroughSet", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("styleSet", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underlineSet", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variantSet", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weightSet", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("widthChars", CellRendererTextWidthCharsPropertyInfo), '("wrapMode", CellRendererTextWrapModePropertyInfo), '("wrapWidth", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +cellRendererTextAlignSet :: AttrLabelProxy "alignSet"+cellRendererTextAlignSet = AttrLabelProxy++cellRendererTextAlignment :: AttrLabelProxy "alignment"+cellRendererTextAlignment = AttrLabelProxy++cellRendererTextAttributes :: AttrLabelProxy "attributes"+cellRendererTextAttributes = AttrLabelProxy++cellRendererTextBackground :: AttrLabelProxy "background"+cellRendererTextBackground = AttrLabelProxy++cellRendererTextBackgroundGdk :: AttrLabelProxy "backgroundGdk"+cellRendererTextBackgroundGdk = AttrLabelProxy++cellRendererTextBackgroundRgba :: AttrLabelProxy "backgroundRgba"+cellRendererTextBackgroundRgba = AttrLabelProxy++cellRendererTextBackgroundSet :: AttrLabelProxy "backgroundSet"+cellRendererTextBackgroundSet = AttrLabelProxy++cellRendererTextEditable :: AttrLabelProxy "editable"+cellRendererTextEditable = AttrLabelProxy++cellRendererTextEditableSet :: AttrLabelProxy "editableSet"+cellRendererTextEditableSet = AttrLabelProxy++cellRendererTextEllipsize :: AttrLabelProxy "ellipsize"+cellRendererTextEllipsize = AttrLabelProxy++cellRendererTextEllipsizeSet :: AttrLabelProxy "ellipsizeSet"+cellRendererTextEllipsizeSet = AttrLabelProxy++cellRendererTextFamily :: AttrLabelProxy "family"+cellRendererTextFamily = AttrLabelProxy++cellRendererTextFamilySet :: AttrLabelProxy "familySet"+cellRendererTextFamilySet = AttrLabelProxy++cellRendererTextFont :: AttrLabelProxy "font"+cellRendererTextFont = AttrLabelProxy++cellRendererTextFontDesc :: AttrLabelProxy "fontDesc"+cellRendererTextFontDesc = AttrLabelProxy++cellRendererTextForeground :: AttrLabelProxy "foreground"+cellRendererTextForeground = AttrLabelProxy++cellRendererTextForegroundGdk :: AttrLabelProxy "foregroundGdk"+cellRendererTextForegroundGdk = AttrLabelProxy++cellRendererTextForegroundRgba :: AttrLabelProxy "foregroundRgba"+cellRendererTextForegroundRgba = AttrLabelProxy++cellRendererTextForegroundSet :: AttrLabelProxy "foregroundSet"+cellRendererTextForegroundSet = AttrLabelProxy++cellRendererTextLanguage :: AttrLabelProxy "language"+cellRendererTextLanguage = AttrLabelProxy++cellRendererTextLanguageSet :: AttrLabelProxy "languageSet"+cellRendererTextLanguageSet = AttrLabelProxy++cellRendererTextMarkup :: AttrLabelProxy "markup"+cellRendererTextMarkup = AttrLabelProxy++cellRendererTextMaxWidthChars :: AttrLabelProxy "maxWidthChars"+cellRendererTextMaxWidthChars = AttrLabelProxy++cellRendererTextPlaceholderText :: AttrLabelProxy "placeholderText"+cellRendererTextPlaceholderText = AttrLabelProxy++cellRendererTextRise :: AttrLabelProxy "rise"+cellRendererTextRise = AttrLabelProxy++cellRendererTextRiseSet :: AttrLabelProxy "riseSet"+cellRendererTextRiseSet = AttrLabelProxy++cellRendererTextScale :: AttrLabelProxy "scale"+cellRendererTextScale = AttrLabelProxy++cellRendererTextScaleSet :: AttrLabelProxy "scaleSet"+cellRendererTextScaleSet = AttrLabelProxy++cellRendererTextSingleParagraphMode :: AttrLabelProxy "singleParagraphMode"+cellRendererTextSingleParagraphMode = AttrLabelProxy++cellRendererTextSize :: AttrLabelProxy "size"+cellRendererTextSize = AttrLabelProxy++cellRendererTextSizePoints :: AttrLabelProxy "sizePoints"+cellRendererTextSizePoints = AttrLabelProxy++cellRendererTextSizeSet :: AttrLabelProxy "sizeSet"+cellRendererTextSizeSet = AttrLabelProxy++cellRendererTextStretch :: AttrLabelProxy "stretch"+cellRendererTextStretch = AttrLabelProxy++cellRendererTextStretchSet :: AttrLabelProxy "stretchSet"+cellRendererTextStretchSet = AttrLabelProxy++cellRendererTextStrikethrough :: AttrLabelProxy "strikethrough"+cellRendererTextStrikethrough = AttrLabelProxy++cellRendererTextStrikethroughSet :: AttrLabelProxy "strikethroughSet"+cellRendererTextStrikethroughSet = AttrLabelProxy++cellRendererTextStyle :: AttrLabelProxy "style"+cellRendererTextStyle = AttrLabelProxy++cellRendererTextStyleSet :: AttrLabelProxy "styleSet"+cellRendererTextStyleSet = AttrLabelProxy++cellRendererTextText :: AttrLabelProxy "text"+cellRendererTextText = AttrLabelProxy++cellRendererTextUnderline :: AttrLabelProxy "underline"+cellRendererTextUnderline = AttrLabelProxy++cellRendererTextUnderlineSet :: AttrLabelProxy "underlineSet"+cellRendererTextUnderlineSet = AttrLabelProxy++cellRendererTextVariant :: AttrLabelProxy "variant"+cellRendererTextVariant = AttrLabelProxy++cellRendererTextVariantSet :: AttrLabelProxy "variantSet"+cellRendererTextVariantSet = AttrLabelProxy++cellRendererTextWeight :: AttrLabelProxy "weight"+cellRendererTextWeight = AttrLabelProxy++cellRendererTextWeightSet :: AttrLabelProxy "weightSet"+cellRendererTextWeightSet = AttrLabelProxy++cellRendererTextWidthChars :: AttrLabelProxy "widthChars"+cellRendererTextWidthChars = AttrLabelProxy++cellRendererTextWrapMode :: AttrLabelProxy "wrapMode"+cellRendererTextWrapMode = AttrLabelProxy++cellRendererTextWrapWidth :: AttrLabelProxy "wrapWidth"+cellRendererTextWrapWidth = AttrLabelProxy+ data CellRendererTextEditedSignalInfo instance SignalInfo CellRendererTextEditedSignalInfo where type HaskellCallbackType CellRendererTextEditedSignalInfo = CellRendererTextEditedCallback@@ -1677,7 +2021,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "CellRendererText"+-- returnType : Just (TInterface "Gtk" "CellRendererText") -- throws : False -- Skip return : False @@ -1696,15 +2040,15 @@ -- method CellRendererText::set_fixed_height_from_font -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "number_of_rows", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "number_of_rows", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_renderer_text_set_fixed_height_from_font" gtk_cell_renderer_text_set_fixed_height_from_font :: Ptr CellRendererText -> -- _obj : TInterface "Gtk" "CellRendererText"- Int32 -> -- number_of_rows : TBasicType TInt32+ Int32 -> -- number_of_rows : TBasicType TInt IO ()
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellRendererText where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -56,6 +56,7 @@ -- * Properties -- ** Activatable CellRendererToggleActivatablePropertyInfo,+ cellRendererToggleActivatable , constructCellRendererToggleActivatable , getCellRendererToggleActivatable , setCellRendererToggleActivatable ,@@ -63,6 +64,7 @@ -- ** Active CellRendererToggleActivePropertyInfo ,+ cellRendererToggleActive , constructCellRendererToggleActive , getCellRendererToggleActive , setCellRendererToggleActive ,@@ -70,6 +72,7 @@ -- ** Inconsistent CellRendererToggleInconsistentPropertyInfo,+ cellRendererToggleInconsistent , constructCellRendererToggleInconsistent , getCellRendererToggleInconsistent , setCellRendererToggleInconsistent ,@@ -77,6 +80,7 @@ -- ** IndicatorSize CellRendererToggleIndicatorSizePropertyInfo,+ cellRendererToggleIndicatorSize , constructCellRendererToggleIndicatorSize, getCellRendererToggleIndicatorSize , setCellRendererToggleIndicatorSize ,@@ -84,6 +88,7 @@ -- ** Radio CellRendererToggleRadioPropertyInfo ,+ cellRendererToggleRadio , constructCellRendererToggleRadio , getCellRendererToggleRadio , setCellRendererToggleRadio ,@@ -108,9 +113,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -248,6 +253,7 @@ -- VVV Prop "activatable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getCellRendererToggleActivatable :: (MonadIO m, CellRendererToggleK o) => o -> m Bool getCellRendererToggleActivatable obj = liftIO $ getObjectPropertyBool obj "activatable"@@ -268,10 +274,12 @@ attrGet _ = getCellRendererToggleActivatable attrSet _ = setCellRendererToggleActivatable attrConstruct _ = constructCellRendererToggleActivatable+ attrClear _ = undefined -- VVV Prop "active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getCellRendererToggleActive :: (MonadIO m, CellRendererToggleK o) => o -> m Bool getCellRendererToggleActive obj = liftIO $ getObjectPropertyBool obj "active"@@ -292,10 +300,12 @@ attrGet _ = getCellRendererToggleActive attrSet _ = setCellRendererToggleActive attrConstruct _ = constructCellRendererToggleActive+ attrClear _ = undefined -- VVV Prop "inconsistent" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererToggleInconsistent :: (MonadIO m, CellRendererToggleK o) => o -> m Bool getCellRendererToggleInconsistent obj = liftIO $ getObjectPropertyBool obj "inconsistent"@@ -316,19 +326,21 @@ attrGet _ = getCellRendererToggleInconsistent attrSet _ = setCellRendererToggleInconsistent attrConstruct _ = constructCellRendererToggleInconsistent+ attrClear _ = undefined -- VVV Prop "indicator-size"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellRendererToggleIndicatorSize :: (MonadIO m, CellRendererToggleK o) => o -> m Int32-getCellRendererToggleIndicatorSize obj = liftIO $ getObjectPropertyCInt obj "indicator-size"+getCellRendererToggleIndicatorSize obj = liftIO $ getObjectPropertyInt32 obj "indicator-size" setCellRendererToggleIndicatorSize :: (MonadIO m, CellRendererToggleK o) => o -> Int32 -> m ()-setCellRendererToggleIndicatorSize obj val = liftIO $ setObjectPropertyCInt obj "indicator-size" val+setCellRendererToggleIndicatorSize obj val = liftIO $ setObjectPropertyInt32 obj "indicator-size" val constructCellRendererToggleIndicatorSize :: Int32 -> IO ([Char], GValue)-constructCellRendererToggleIndicatorSize val = constructObjectPropertyCInt "indicator-size" val+constructCellRendererToggleIndicatorSize val = constructObjectPropertyInt32 "indicator-size" val data CellRendererToggleIndicatorSizePropertyInfo instance AttrInfo CellRendererToggleIndicatorSizePropertyInfo where@@ -340,10 +352,12 @@ attrGet _ = getCellRendererToggleIndicatorSize attrSet _ = setCellRendererToggleIndicatorSize attrConstruct _ = constructCellRendererToggleIndicatorSize+ attrClear _ = undefined -- VVV Prop "radio" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getCellRendererToggleRadio :: (MonadIO m, CellRendererToggleK o) => o -> m Bool getCellRendererToggleRadio obj = liftIO $ getObjectPropertyBool obj "radio"@@ -364,10 +378,26 @@ attrGet _ = getCellRendererToggleRadio attrSet _ = setCellRendererToggleRadio attrConstruct _ = constructCellRendererToggleRadio+ attrClear _ = undefined type instance AttributeList CellRendererToggle = CellRendererToggleAttributeList type CellRendererToggleAttributeList = ('[ '("activatable", CellRendererToggleActivatablePropertyInfo), '("active", CellRendererToggleActivePropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("inconsistent", CellRendererToggleInconsistentPropertyInfo), '("indicatorSize", CellRendererToggleIndicatorSizePropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("radio", CellRendererToggleRadioPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +cellRendererToggleActivatable :: AttrLabelProxy "activatable"+cellRendererToggleActivatable = AttrLabelProxy++cellRendererToggleActive :: AttrLabelProxy "active"+cellRendererToggleActive = AttrLabelProxy++cellRendererToggleInconsistent :: AttrLabelProxy "inconsistent"+cellRendererToggleInconsistent = AttrLabelProxy++cellRendererToggleIndicatorSize :: AttrLabelProxy "indicatorSize"+cellRendererToggleIndicatorSize = AttrLabelProxy++cellRendererToggleRadio :: AttrLabelProxy "radio"+cellRendererToggleRadio = AttrLabelProxy+ data CellRendererToggleToggledSignalInfo instance SignalInfo CellRendererToggleToggledSignalInfo where type HaskellCallbackType CellRendererToggleToggledSignalInfo = CellRendererToggleToggledCallback@@ -380,7 +410,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "CellRendererToggle"+-- returnType : Just (TInterface "Gtk" "CellRendererToggle") -- throws : False -- Skip return : False @@ -401,7 +431,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -429,7 +459,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -457,7 +487,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -485,7 +515,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -515,7 +545,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -545,7 +575,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellRendererToggle where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -97,12 +97,16 @@ -- * Properties -- ** Background CellViewBackgroundPropertyInfo ,+ cellViewBackground ,+ clearCellViewBackground , constructCellViewBackground , setCellViewBackground , -- ** BackgroundGdk CellViewBackgroundGdkPropertyInfo ,+ cellViewBackgroundGdk ,+ clearCellViewBackgroundGdk , constructCellViewBackgroundGdk , getCellViewBackgroundGdk , setCellViewBackgroundGdk ,@@ -110,6 +114,7 @@ -- ** BackgroundRgba CellViewBackgroundRgbaPropertyInfo ,+ cellViewBackgroundRgba , constructCellViewBackgroundRgba , getCellViewBackgroundRgba , setCellViewBackgroundRgba ,@@ -117,6 +122,7 @@ -- ** BackgroundSet CellViewBackgroundSetPropertyInfo ,+ cellViewBackgroundSet , constructCellViewBackgroundSet , getCellViewBackgroundSet , setCellViewBackgroundSet ,@@ -124,18 +130,21 @@ -- ** CellArea CellViewCellAreaPropertyInfo ,+ cellViewCellArea , constructCellViewCellArea , getCellViewCellArea , -- ** CellAreaContext CellViewCellAreaContextPropertyInfo ,+ cellViewCellAreaContext , constructCellViewCellAreaContext , getCellViewCellAreaContext , -- ** DrawSensitive CellViewDrawSensitivePropertyInfo ,+ cellViewDrawSensitive , constructCellViewDrawSensitive , getCellViewDrawSensitive , setCellViewDrawSensitive ,@@ -143,6 +152,7 @@ -- ** FitModel CellViewFitModelPropertyInfo ,+ cellViewFitModel , constructCellViewFitModel , getCellViewFitModel , setCellViewFitModel ,@@ -150,6 +160,8 @@ -- ** Model CellViewModelPropertyInfo ,+ cellViewModel ,+ clearCellViewModel , constructCellViewModel , getCellViewModel , setCellViewModel ,@@ -159,9 +171,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -515,16 +527,20 @@ -- VVV Prop "background" -- Type: TBasicType TUTF8 -- Flags: [PropertyWritable]+ -- Nullable: (Nothing,Nothing) setCellViewBackground :: (MonadIO m, CellViewK o) => o -> T.Text -> m ()-setCellViewBackground obj val = liftIO $ setObjectPropertyString obj "background" val+setCellViewBackground obj val = liftIO $ setObjectPropertyString obj "background" (Just val) constructCellViewBackground :: T.Text -> IO ([Char], GValue)-constructCellViewBackground val = constructObjectPropertyString "background" val+constructCellViewBackground val = constructObjectPropertyString "background" (Just val) +clearCellViewBackground :: (MonadIO m, CellViewK o) => o -> m ()+clearCellViewBackground obj = liftIO $ setObjectPropertyString obj "background" (Nothing :: Maybe T.Text)+ data CellViewBackgroundPropertyInfo instance AttrInfo CellViewBackgroundPropertyInfo where- type AttrAllowedOps CellViewBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct]+ type AttrAllowedOps CellViewBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint CellViewBackgroundPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellViewBackgroundPropertyInfo = CellViewK type AttrGetType CellViewBackgroundPropertyInfo = ()@@ -532,58 +548,67 @@ attrGet _ = undefined attrSet _ = setCellViewBackground attrConstruct _ = constructCellViewBackground+ attrClear _ = clearCellViewBackground -- VVV Prop "background-gdk" -- Type: TInterface "Gdk" "Color" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getCellViewBackgroundGdk :: (MonadIO m, CellViewK o) => o -> m Gdk.Color+getCellViewBackgroundGdk :: (MonadIO m, CellViewK o) => o -> m (Maybe Gdk.Color) getCellViewBackgroundGdk obj = liftIO $ getObjectPropertyBoxed obj "background-gdk" Gdk.Color setCellViewBackgroundGdk :: (MonadIO m, CellViewK o) => o -> Gdk.Color -> m ()-setCellViewBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "background-gdk" val+setCellViewBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "background-gdk" (Just val) constructCellViewBackgroundGdk :: Gdk.Color -> IO ([Char], GValue)-constructCellViewBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" val+constructCellViewBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" (Just val) +clearCellViewBackgroundGdk :: (MonadIO m, CellViewK o) => o -> m ()+clearCellViewBackgroundGdk obj = liftIO $ setObjectPropertyBoxed obj "background-gdk" (Nothing :: Maybe Gdk.Color)+ data CellViewBackgroundGdkPropertyInfo instance AttrInfo CellViewBackgroundGdkPropertyInfo where- type AttrAllowedOps CellViewBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellViewBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellViewBackgroundGdkPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint CellViewBackgroundGdkPropertyInfo = CellViewK- type AttrGetType CellViewBackgroundGdkPropertyInfo = Gdk.Color+ type AttrGetType CellViewBackgroundGdkPropertyInfo = (Maybe Gdk.Color) type AttrLabel CellViewBackgroundGdkPropertyInfo = "background-gdk" attrGet _ = getCellViewBackgroundGdk attrSet _ = setCellViewBackgroundGdk attrConstruct _ = constructCellViewBackgroundGdk+ attrClear _ = clearCellViewBackgroundGdk -- VVV Prop "background-rgba" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just False) -getCellViewBackgroundRgba :: (MonadIO m, CellViewK o) => o -> m Gdk.RGBA+getCellViewBackgroundRgba :: (MonadIO m, CellViewK o) => o -> m (Maybe Gdk.RGBA) getCellViewBackgroundRgba obj = liftIO $ getObjectPropertyBoxed obj "background-rgba" Gdk.RGBA setCellViewBackgroundRgba :: (MonadIO m, CellViewK o) => o -> Gdk.RGBA -> m ()-setCellViewBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "background-rgba" val+setCellViewBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "background-rgba" (Just val) constructCellViewBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue)-constructCellViewBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" val+constructCellViewBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" (Just val) data CellViewBackgroundRgbaPropertyInfo instance AttrInfo CellViewBackgroundRgbaPropertyInfo where type AttrAllowedOps CellViewBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint CellViewBackgroundRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint CellViewBackgroundRgbaPropertyInfo = CellViewK- type AttrGetType CellViewBackgroundRgbaPropertyInfo = Gdk.RGBA+ type AttrGetType CellViewBackgroundRgbaPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel CellViewBackgroundRgbaPropertyInfo = "background-rgba" attrGet _ = getCellViewBackgroundRgba attrSet _ = setCellViewBackgroundRgba attrConstruct _ = constructCellViewBackgroundRgba+ attrClear _ = undefined -- VVV Prop "background-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getCellViewBackgroundSet :: (MonadIO m, CellViewK o) => o -> m Bool getCellViewBackgroundSet obj = liftIO $ getObjectPropertyBool obj "background-set"@@ -604,52 +629,58 @@ attrGet _ = getCellViewBackgroundSet attrSet _ = setCellViewBackgroundSet attrConstruct _ = constructCellViewBackgroundSet+ attrClear _ = undefined -- VVV Prop "cell-area" -- Type: TInterface "Gtk" "CellArea" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+ -- Nullable: (Nothing,Nothing) -getCellViewCellArea :: (MonadIO m, CellViewK o) => o -> m CellArea+getCellViewCellArea :: (MonadIO m, CellViewK o) => o -> m (Maybe CellArea) getCellViewCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea constructCellViewCellArea :: (CellAreaK a) => a -> IO ([Char], GValue)-constructCellViewCellArea val = constructObjectPropertyObject "cell-area" val+constructCellViewCellArea val = constructObjectPropertyObject "cell-area" (Just val) data CellViewCellAreaPropertyInfo instance AttrInfo CellViewCellAreaPropertyInfo where- type AttrAllowedOps CellViewCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellViewCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellViewCellAreaPropertyInfo = CellAreaK type AttrBaseTypeConstraint CellViewCellAreaPropertyInfo = CellViewK- type AttrGetType CellViewCellAreaPropertyInfo = CellArea+ type AttrGetType CellViewCellAreaPropertyInfo = (Maybe CellArea) type AttrLabel CellViewCellAreaPropertyInfo = "cell-area" attrGet _ = getCellViewCellArea attrSet _ = undefined attrConstruct _ = constructCellViewCellArea+ attrClear _ = undefined -- VVV Prop "cell-area-context" -- Type: TInterface "Gtk" "CellAreaContext" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+ -- Nullable: (Nothing,Nothing) -getCellViewCellAreaContext :: (MonadIO m, CellViewK o) => o -> m CellAreaContext+getCellViewCellAreaContext :: (MonadIO m, CellViewK o) => o -> m (Maybe CellAreaContext) getCellViewCellAreaContext obj = liftIO $ getObjectPropertyObject obj "cell-area-context" CellAreaContext constructCellViewCellAreaContext :: (CellAreaContextK a) => a -> IO ([Char], GValue)-constructCellViewCellAreaContext val = constructObjectPropertyObject "cell-area-context" val+constructCellViewCellAreaContext val = constructObjectPropertyObject "cell-area-context" (Just val) data CellViewCellAreaContextPropertyInfo instance AttrInfo CellViewCellAreaContextPropertyInfo where- type AttrAllowedOps CellViewCellAreaContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellViewCellAreaContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellViewCellAreaContextPropertyInfo = CellAreaContextK type AttrBaseTypeConstraint CellViewCellAreaContextPropertyInfo = CellViewK- type AttrGetType CellViewCellAreaContextPropertyInfo = CellAreaContext+ type AttrGetType CellViewCellAreaContextPropertyInfo = (Maybe CellAreaContext) type AttrLabel CellViewCellAreaContextPropertyInfo = "cell-area-context" attrGet _ = getCellViewCellAreaContext attrSet _ = undefined attrConstruct _ = constructCellViewCellAreaContext+ attrClear _ = undefined -- VVV Prop "draw-sensitive" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getCellViewDrawSensitive :: (MonadIO m, CellViewK o) => o -> m Bool getCellViewDrawSensitive obj = liftIO $ getObjectPropertyBool obj "draw-sensitive"@@ -670,10 +701,12 @@ attrGet _ = getCellViewDrawSensitive attrSet _ = setCellViewDrawSensitive attrConstruct _ = constructCellViewDrawSensitive+ attrClear _ = undefined -- VVV Prop "fit-model" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getCellViewFitModel :: (MonadIO m, CellViewK o) => o -> m Bool getCellViewFitModel obj = liftIO $ getObjectPropertyBool obj "fit-model"@@ -694,23 +727,28 @@ attrGet _ = getCellViewFitModel attrSet _ = setCellViewFitModel attrConstruct _ = constructCellViewFitModel+ attrClear _ = undefined -- VVV Prop "model" -- Type: TInterface "Gtk" "TreeModel" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getCellViewModel :: (MonadIO m, CellViewK o) => o -> m TreeModel-getCellViewModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel+getCellViewModel obj = liftIO $ checkUnexpectedNothing "getCellViewModel" $ getObjectPropertyObject obj "model" TreeModel setCellViewModel :: (MonadIO m, CellViewK o, TreeModelK a) => o -> a -> m ()-setCellViewModel obj val = liftIO $ setObjectPropertyObject obj "model" val+setCellViewModel obj val = liftIO $ setObjectPropertyObject obj "model" (Just val) constructCellViewModel :: (TreeModelK a) => a -> IO ([Char], GValue)-constructCellViewModel val = constructObjectPropertyObject "model" val+constructCellViewModel val = constructObjectPropertyObject "model" (Just val) +clearCellViewModel :: (MonadIO m, CellViewK o) => o -> m ()+clearCellViewModel obj = liftIO $ setObjectPropertyObject obj "model" (Nothing :: Maybe TreeModel)+ data CellViewModelPropertyInfo instance AttrInfo CellViewModelPropertyInfo where- type AttrAllowedOps CellViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps CellViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellViewModelPropertyInfo = TreeModelK type AttrBaseTypeConstraint CellViewModelPropertyInfo = CellViewK type AttrGetType CellViewModelPropertyInfo = TreeModel@@ -718,10 +756,38 @@ attrGet _ = getCellViewModel attrSet _ = setCellViewModel attrConstruct _ = constructCellViewModel+ attrClear _ = clearCellViewModel type instance AttributeList CellView = CellViewAttributeList type CellViewAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("background", CellViewBackgroundPropertyInfo), '("backgroundGdk", CellViewBackgroundGdkPropertyInfo), '("backgroundRgba", CellViewBackgroundRgbaPropertyInfo), '("backgroundSet", CellViewBackgroundSetPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cellArea", CellViewCellAreaPropertyInfo), '("cellAreaContext", CellViewCellAreaContextPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawSensitive", CellViewDrawSensitivePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fitModel", CellViewFitModelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("model", CellViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +cellViewBackground :: AttrLabelProxy "background"+cellViewBackground = AttrLabelProxy++cellViewBackgroundGdk :: AttrLabelProxy "backgroundGdk"+cellViewBackgroundGdk = AttrLabelProxy++cellViewBackgroundRgba :: AttrLabelProxy "backgroundRgba"+cellViewBackgroundRgba = AttrLabelProxy++cellViewBackgroundSet :: AttrLabelProxy "backgroundSet"+cellViewBackgroundSet = AttrLabelProxy++cellViewCellArea :: AttrLabelProxy "cellArea"+cellViewCellArea = AttrLabelProxy++cellViewCellAreaContext :: AttrLabelProxy "cellAreaContext"+cellViewCellAreaContext = AttrLabelProxy++cellViewDrawSensitive :: AttrLabelProxy "drawSensitive"+cellViewDrawSensitive = AttrLabelProxy++cellViewFitModel :: AttrLabelProxy "fitModel"+cellViewFitModel = AttrLabelProxy++cellViewModel :: AttrLabelProxy "model"+cellViewModel = AttrLabelProxy+ type instance SignalList CellView = CellViewSignalList type CellViewSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -729,7 +795,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "CellView"+-- returnType : Just (TInterface "Gtk" "CellView") -- throws : False -- Skip return : False @@ -750,7 +816,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CellView"+-- returnType : Just (TInterface "Gtk" "CellView") -- throws : False -- Skip return : False @@ -779,7 +845,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CellView"+-- returnType : Just (TInterface "Gtk" "CellView") -- throws : False -- Skip return : False @@ -804,7 +870,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CellView"+-- returnType : Just (TInterface "Gtk" "CellView") -- throws : False -- Skip return : False @@ -829,7 +895,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CellView"+-- returnType : Just (TInterface "Gtk" "CellView") -- throws : False -- Skip return : False @@ -854,7 +920,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "TreePath"+-- returnType : Just (TInterface "Gtk" "TreePath") -- throws : False -- Skip return : False @@ -883,7 +949,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -911,7 +977,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -939,7 +1005,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "TreeModel"+-- returnType : Just (TInterface "Gtk" "TreeModel") -- throws : False -- Skip return : False @@ -968,7 +1034,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1003,7 +1069,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1034,7 +1100,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1065,7 +1131,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1100,7 +1166,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1130,7 +1196,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fit_model", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1160,7 +1226,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellView where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -33,9 +33,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -441,7 +441,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "CheckButton"+-- returnType : Just (TInterface "Gtk" "CheckButton") -- throws : False -- Skip return : False @@ -462,7 +462,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CheckButton"+-- returnType : Just (TInterface "Gtk" "CheckButton") -- throws : False -- Skip return : False @@ -487,7 +487,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CheckButton"+-- returnType : Just (TInterface "Gtk" "CheckButton") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.CheckButton where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -69,6 +69,7 @@ -- * Properties -- ** Active CheckMenuItemActivePropertyInfo ,+ checkMenuItemActive , constructCheckMenuItemActive , getCheckMenuItemActive , setCheckMenuItemActive ,@@ -76,6 +77,7 @@ -- ** DrawAsRadio CheckMenuItemDrawAsRadioPropertyInfo ,+ checkMenuItemDrawAsRadio , constructCheckMenuItemDrawAsRadio , getCheckMenuItemDrawAsRadio , setCheckMenuItemDrawAsRadio ,@@ -83,6 +85,7 @@ -- ** Inconsistent CheckMenuItemInconsistentPropertyInfo ,+ checkMenuItemInconsistent , constructCheckMenuItemInconsistent , getCheckMenuItemInconsistent , setCheckMenuItemInconsistent ,@@ -107,9 +110,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -535,6 +538,7 @@ -- VVV Prop "active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getCheckMenuItemActive :: (MonadIO m, CheckMenuItemK o) => o -> m Bool getCheckMenuItemActive obj = liftIO $ getObjectPropertyBool obj "active"@@ -555,10 +559,12 @@ attrGet _ = getCheckMenuItemActive attrSet _ = setCheckMenuItemActive attrConstruct _ = constructCheckMenuItemActive+ attrClear _ = undefined -- VVV Prop "draw-as-radio" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getCheckMenuItemDrawAsRadio :: (MonadIO m, CheckMenuItemK o) => o -> m Bool getCheckMenuItemDrawAsRadio obj = liftIO $ getObjectPropertyBool obj "draw-as-radio"@@ -579,10 +585,12 @@ attrGet _ = getCheckMenuItemDrawAsRadio attrSet _ = setCheckMenuItemDrawAsRadio attrConstruct _ = constructCheckMenuItemDrawAsRadio+ attrClear _ = undefined -- VVV Prop "inconsistent" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getCheckMenuItemInconsistent :: (MonadIO m, CheckMenuItemK o) => o -> m Bool getCheckMenuItemInconsistent obj = liftIO $ getObjectPropertyBool obj "inconsistent"@@ -603,10 +611,20 @@ attrGet _ = getCheckMenuItemInconsistent attrSet _ = setCheckMenuItemInconsistent attrConstruct _ = constructCheckMenuItemInconsistent+ attrClear _ = undefined type instance AttributeList CheckMenuItem = CheckMenuItemAttributeList type CheckMenuItemAttributeList = ('[ '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", CheckMenuItemActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawAsRadio", CheckMenuItemDrawAsRadioPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inconsistent", CheckMenuItemInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +checkMenuItemActive :: AttrLabelProxy "active"+checkMenuItemActive = AttrLabelProxy++checkMenuItemDrawAsRadio :: AttrLabelProxy "drawAsRadio"+checkMenuItemDrawAsRadio = AttrLabelProxy++checkMenuItemInconsistent :: AttrLabelProxy "inconsistent"+checkMenuItemInconsistent = AttrLabelProxy+ data CheckMenuItemToggledSignalInfo instance SignalInfo CheckMenuItemToggledSignalInfo where type HaskellCallbackType CheckMenuItemToggledSignalInfo = CheckMenuItemToggledCallback@@ -619,7 +637,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "CheckMenuItem"+-- returnType : Just (TInterface "Gtk" "CheckMenuItem") -- throws : False -- Skip return : False @@ -640,7 +658,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CheckMenuItem"+-- returnType : Just (TInterface "Gtk" "CheckMenuItem") -- throws : False -- Skip return : False @@ -665,7 +683,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CheckMenuItem"+-- returnType : Just (TInterface "Gtk" "CheckMenuItem") -- throws : False -- Skip return : False @@ -690,7 +708,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -718,7 +736,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -746,7 +764,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -774,7 +792,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -804,7 +822,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_as_radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -834,7 +852,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -864,7 +882,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.CheckMenuItem where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.CheckMenuItemAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -168,9 +168,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -316,7 +316,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -343,7 +343,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Display"+-- returnType : Just (TInterface "Gdk" "Display") -- throws : False -- Skip return : False @@ -372,7 +372,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GObject" "Object"+-- returnType : Just (TInterface "GObject" "Object") -- throws : False -- Skip return : False @@ -399,9 +399,9 @@ -- method Clipboard::request_contents -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -409,7 +409,7 @@ Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom" FunPtr ClipboardReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardReceivedFunc"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr IO () @@ -437,16 +437,16 @@ -- method Clipboard::request_image -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardImageReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardImageReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_clipboard_request_image" gtk_clipboard_request_image :: Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" FunPtr ClipboardImageReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardImageReceivedFunc"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr IO () @@ -471,9 +471,9 @@ -- method Clipboard::request_rich_text -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardRichTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardRichTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -481,7 +481,7 @@ Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer" FunPtr ClipboardRichTextReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardRichTextReceivedFunc"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr IO () @@ -509,16 +509,16 @@ -- method Clipboard::request_targets -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardTargetsReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardTargetsReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_clipboard_request_targets" gtk_clipboard_request_targets :: Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" FunPtr ClipboardTargetsReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardTargetsReceivedFunc"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr IO () @@ -543,16 +543,16 @@ -- method Clipboard::request_text -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_clipboard_request_text" gtk_clipboard_request_text :: Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" FunPtr ClipboardTextReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardTextReceivedFunc"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr IO () @@ -577,16 +577,16 @@ -- method Clipboard::request_uris -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardURIReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardURIReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_clipboard_request_uris" gtk_clipboard_request_uris :: Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" FunPtr ClipboardURIReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardURIReceivedFunc"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr IO () @@ -611,16 +611,16 @@ -- method Clipboard::set_can_store -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TVoid+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_clipboard_set_can_store" gtk_clipboard_set_can_store :: Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" Ptr TargetEntry -> -- targets : TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry")- Int32 -> -- n_targets : TBasicType TInt32+ Int32 -> -- n_targets : TBasicType TInt IO () @@ -654,7 +654,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -683,16 +683,16 @@ -- method Clipboard::set_text -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_clipboard_set_text" gtk_clipboard_set_text :: Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" CString -> -- text : TBasicType TUTF8- Int32 -> -- len : TBasicType TInt32+ Int32 -> -- len : TBasicType TInt IO () @@ -718,7 +718,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -745,7 +745,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "SelectionData"+-- returnType : Just (TInterface "Gtk" "SelectionData") -- throws : False -- Skip return : False @@ -759,26 +759,27 @@ (MonadIO m, ClipboardK a) => a -- _obj -> Gdk.Atom -- target- -> m SelectionData -- result+ -> m (Maybe SelectionData) -- result clipboardWaitForContents _obj target = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let target' = unsafeManagedPtrGetPtr target result <- gtk_clipboard_wait_for_contents _obj' target'- checkUnexpectedReturnNULL "gtk_clipboard_wait_for_contents" result- result' <- (wrapBoxed SelectionData) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (wrapBoxed SelectionData) result'+ return result'' touchManagedPtr _obj touchManagedPtr target- return result'+ return maybeResult data ClipboardWaitForContentsMethodInfo-instance (signature ~ (Gdk.Atom -> m SelectionData), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForContentsMethodInfo a signature where+instance (signature ~ (Gdk.Atom -> m (Maybe SelectionData)), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForContentsMethodInfo a signature where overloadedMethod _ = clipboardWaitForContents -- method Clipboard::wait_for_image -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -790,24 +791,25 @@ clipboardWaitForImage :: (MonadIO m, ClipboardK a) => a -- _obj- -> m GdkPixbuf.Pixbuf -- result+ -> m (Maybe GdkPixbuf.Pixbuf) -- result clipboardWaitForImage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_clipboard_wait_for_image _obj'- checkUnexpectedReturnNULL "gtk_clipboard_wait_for_image" result- result' <- (wrapObject GdkPixbuf.Pixbuf) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (wrapObject GdkPixbuf.Pixbuf) result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data ClipboardWaitForImageMethodInfo-instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForImageMethodInfo a signature where+instance (signature ~ (m (Maybe GdkPixbuf.Pixbuf)), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForImageMethodInfo a signature where overloadedMethod _ = clipboardWaitForImage -- method Clipboard::wait_for_rich_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : TCArray False (-1) 3 (TBasicType TUInt8)+-- returnType : Just (TCArray False (-1) 3 (TBasicType TUInt8)) -- throws : False -- Skip return : False @@ -823,7 +825,7 @@ (MonadIO m, ClipboardK a, TextBufferK b) => a -- _obj -> b -- buffer- -> m (ByteString,Gdk.Atom) -- result+ -> m ((Maybe ByteString),Gdk.Atom) -- result clipboardWaitForRichText _obj buffer = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let buffer' = unsafeManagedPtrCastPtr buffer@@ -831,9 +833,10 @@ length_ <- allocMem :: IO (Ptr Word64) result <- gtk_clipboard_wait_for_rich_text _obj' buffer' format length_ length_' <- peek length_- checkUnexpectedReturnNULL "gtk_clipboard_wait_for_rich_text" result- result' <- (unpackByteStringWithLength length_') result- freeMem result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (unpackByteStringWithLength length_') result'+ freeMem result'+ return result'' format' <- peek format -- XXX Wrapping a foreign struct/union with no known destructor, leak? format'' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) format'@@ -841,24 +844,24 @@ touchManagedPtr buffer freeMem format freeMem length_- return (result', format'')+ return (maybeResult, format'') data ClipboardWaitForRichTextMethodInfo-instance (signature ~ (b -> m (ByteString,Gdk.Atom)), MonadIO m, ClipboardK a, TextBufferK b) => MethodInfo ClipboardWaitForRichTextMethodInfo a signature where+instance (signature ~ (b -> m ((Maybe ByteString),Gdk.Atom)), MonadIO m, ClipboardK a, TextBufferK b) => MethodInfo ClipboardWaitForRichTextMethodInfo a signature where overloadedMethod _ = clipboardWaitForRichText -- method Clipboard::wait_for_targets -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gdk" "Atom"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : TBasicType TBoolean+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gdk" "Atom"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_clipboard_wait_for_targets" gtk_clipboard_wait_for_targets :: Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" Ptr (Ptr (Ptr Gdk.Atom)) -> -- targets : TCArray False (-1) 2 (TInterface "Gdk" "Atom")- Ptr Int32 -> -- n_targets : TBasicType TInt32+ Ptr Int32 -> -- n_targets : TBasicType TInt IO CInt @@ -891,7 +894,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -903,25 +906,26 @@ clipboardWaitForText :: (MonadIO m, ClipboardK a) => a -- _obj- -> m T.Text -- result+ -> m (Maybe T.Text) -- result clipboardWaitForText _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_clipboard_wait_for_text _obj'- checkUnexpectedReturnNULL "gtk_clipboard_wait_for_text" result- result' <- cstringToText result- freeMem result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- cstringToText result'+ freeMem result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data ClipboardWaitForTextMethodInfo-instance (signature ~ (m T.Text), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForTextMethodInfo a signature where+instance (signature ~ (m (Maybe T.Text)), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForTextMethodInfo a signature where overloadedMethod _ = clipboardWaitForText -- method Clipboard::wait_for_uris -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -933,26 +937,27 @@ clipboardWaitForUris :: (MonadIO m, ClipboardK a) => a -- _obj- -> m [T.Text] -- result+ -> m (Maybe [T.Text]) -- result clipboardWaitForUris _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_clipboard_wait_for_uris _obj'- checkUnexpectedReturnNULL "gtk_clipboard_wait_for_uris" result- result' <- unpackZeroTerminatedUTF8CArray result- mapZeroTerminatedCArray freeMem result- freeMem result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- unpackZeroTerminatedUTF8CArray result'+ mapZeroTerminatedCArray freeMem result'+ freeMem result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data ClipboardWaitForUrisMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForUrisMethodInfo a signature where+instance (signature ~ (m (Maybe [T.Text])), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForUrisMethodInfo a signature where overloadedMethod _ = clipboardWaitForUris -- method Clipboard::wait_is_image_available -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -980,7 +985,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1012,7 +1017,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1044,7 +1049,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1072,7 +1077,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1100,7 +1105,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Clipboard"+-- returnType : Just (TInterface "Gtk" "Clipboard") -- throws : False -- Skip return : False @@ -1125,7 +1130,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Clipboard"+-- returnType : Just (TInterface "Gtk" "Clipboard") -- throws : False -- Skip return : False @@ -1150,7 +1155,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Clipboard"+-- returnType : Just (TInterface "Gtk" "Clipboard") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Clipboard where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -74,6 +74,7 @@ -- * Properties -- ** Alpha ColorButtonAlphaPropertyInfo ,+ colorButtonAlpha , constructColorButtonAlpha , getColorButtonAlpha , setColorButtonAlpha ,@@ -81,6 +82,7 @@ -- ** Color ColorButtonColorPropertyInfo ,+ colorButtonColor , constructColorButtonColor , getColorButtonColor , setColorButtonColor ,@@ -88,6 +90,8 @@ -- ** Rgba ColorButtonRgbaPropertyInfo ,+ clearColorButtonRgba ,+ colorButtonRgba , constructColorButtonRgba , getColorButtonRgba , setColorButtonRgba ,@@ -95,6 +99,7 @@ -- ** Title ColorButtonTitlePropertyInfo ,+ colorButtonTitle , constructColorButtonTitle , getColorButtonTitle , setColorButtonTitle ,@@ -102,6 +107,7 @@ -- ** UseAlpha ColorButtonUseAlphaPropertyInfo ,+ colorButtonUseAlpha , constructColorButtonUseAlpha , getColorButtonUseAlpha , setColorButtonUseAlpha ,@@ -126,9 +132,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -566,17 +572,18 @@ connectSignalFunPtr obj "color-set" cb' after -- VVV Prop "alpha"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getColorButtonAlpha :: (MonadIO m, ColorButtonK o) => o -> m Word32-getColorButtonAlpha obj = liftIO $ getObjectPropertyCUInt obj "alpha"+getColorButtonAlpha obj = liftIO $ getObjectPropertyUInt32 obj "alpha" setColorButtonAlpha :: (MonadIO m, ColorButtonK o) => o -> Word32 -> m ()-setColorButtonAlpha obj val = liftIO $ setObjectPropertyCUInt obj "alpha" val+setColorButtonAlpha obj val = liftIO $ setObjectPropertyUInt32 obj "alpha" val constructColorButtonAlpha :: Word32 -> IO ([Char], GValue)-constructColorButtonAlpha val = constructObjectPropertyCUInt "alpha" val+constructColorButtonAlpha val = constructObjectPropertyUInt32 "alpha" val data ColorButtonAlphaPropertyInfo instance AttrInfo ColorButtonAlphaPropertyInfo where@@ -588,67 +595,76 @@ attrGet _ = getColorButtonAlpha attrSet _ = setColorButtonAlpha attrConstruct _ = constructColorButtonAlpha+ attrClear _ = undefined -- VVV Prop "color" -- Type: TInterface "Gdk" "Color" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just False) -getColorButtonColor :: (MonadIO m, ColorButtonK o) => o -> m Gdk.Color+getColorButtonColor :: (MonadIO m, ColorButtonK o) => o -> m (Maybe Gdk.Color) getColorButtonColor obj = liftIO $ getObjectPropertyBoxed obj "color" Gdk.Color setColorButtonColor :: (MonadIO m, ColorButtonK o) => o -> Gdk.Color -> m ()-setColorButtonColor obj val = liftIO $ setObjectPropertyBoxed obj "color" val+setColorButtonColor obj val = liftIO $ setObjectPropertyBoxed obj "color" (Just val) constructColorButtonColor :: Gdk.Color -> IO ([Char], GValue)-constructColorButtonColor val = constructObjectPropertyBoxed "color" val+constructColorButtonColor val = constructObjectPropertyBoxed "color" (Just val) data ColorButtonColorPropertyInfo instance AttrInfo ColorButtonColorPropertyInfo where type AttrAllowedOps ColorButtonColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint ColorButtonColorPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint ColorButtonColorPropertyInfo = ColorButtonK- type AttrGetType ColorButtonColorPropertyInfo = Gdk.Color+ type AttrGetType ColorButtonColorPropertyInfo = (Maybe Gdk.Color) type AttrLabel ColorButtonColorPropertyInfo = "color" attrGet _ = getColorButtonColor attrSet _ = setColorButtonColor attrConstruct _ = constructColorButtonColor+ attrClear _ = undefined -- VVV Prop "rgba" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getColorButtonRgba :: (MonadIO m, ColorButtonK o) => o -> m Gdk.RGBA+getColorButtonRgba :: (MonadIO m, ColorButtonK o) => o -> m (Maybe Gdk.RGBA) getColorButtonRgba obj = liftIO $ getObjectPropertyBoxed obj "rgba" Gdk.RGBA setColorButtonRgba :: (MonadIO m, ColorButtonK o) => o -> Gdk.RGBA -> m ()-setColorButtonRgba obj val = liftIO $ setObjectPropertyBoxed obj "rgba" val+setColorButtonRgba obj val = liftIO $ setObjectPropertyBoxed obj "rgba" (Just val) constructColorButtonRgba :: Gdk.RGBA -> IO ([Char], GValue)-constructColorButtonRgba val = constructObjectPropertyBoxed "rgba" val+constructColorButtonRgba val = constructObjectPropertyBoxed "rgba" (Just val) +clearColorButtonRgba :: (MonadIO m, ColorButtonK o) => o -> m ()+clearColorButtonRgba obj = liftIO $ setObjectPropertyBoxed obj "rgba" (Nothing :: Maybe Gdk.RGBA)+ data ColorButtonRgbaPropertyInfo instance AttrInfo ColorButtonRgbaPropertyInfo where- type AttrAllowedOps ColorButtonRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ColorButtonRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ColorButtonRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint ColorButtonRgbaPropertyInfo = ColorButtonK- type AttrGetType ColorButtonRgbaPropertyInfo = Gdk.RGBA+ type AttrGetType ColorButtonRgbaPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel ColorButtonRgbaPropertyInfo = "rgba" attrGet _ = getColorButtonRgba attrSet _ = setColorButtonRgba attrConstruct _ = constructColorButtonRgba+ attrClear _ = clearColorButtonRgba -- VVV Prop "title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getColorButtonTitle :: (MonadIO m, ColorButtonK o) => o -> m T.Text-getColorButtonTitle obj = liftIO $ getObjectPropertyString obj "title"+getColorButtonTitle obj = liftIO $ checkUnexpectedNothing "getColorButtonTitle" $ getObjectPropertyString obj "title" setColorButtonTitle :: (MonadIO m, ColorButtonK o) => o -> T.Text -> m ()-setColorButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" val+setColorButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) constructColorButtonTitle :: T.Text -> IO ([Char], GValue)-constructColorButtonTitle val = constructObjectPropertyString "title" val+constructColorButtonTitle val = constructObjectPropertyString "title" (Just val) data ColorButtonTitlePropertyInfo instance AttrInfo ColorButtonTitlePropertyInfo where@@ -660,10 +676,12 @@ attrGet _ = getColorButtonTitle attrSet _ = setColorButtonTitle attrConstruct _ = constructColorButtonTitle+ attrClear _ = undefined -- VVV Prop "use-alpha" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getColorButtonUseAlpha :: (MonadIO m, ColorButtonK o) => o -> m Bool getColorButtonUseAlpha obj = liftIO $ getObjectPropertyBool obj "use-alpha"@@ -684,10 +702,26 @@ attrGet _ = getColorButtonUseAlpha attrSet _ = setColorButtonUseAlpha attrConstruct _ = constructColorButtonUseAlpha+ attrClear _ = undefined type instance AttributeList ColorButton = ColorButtonAttributeList type ColorButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alpha", ColorButtonAlphaPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("color", ColorButtonColorPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rgba", ColorButtonRgbaPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("title", ColorButtonTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useAlpha", ColorButtonUseAlphaPropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +colorButtonAlpha :: AttrLabelProxy "alpha"+colorButtonAlpha = AttrLabelProxy++colorButtonColor :: AttrLabelProxy "color"+colorButtonColor = AttrLabelProxy++colorButtonRgba :: AttrLabelProxy "rgba"+colorButtonRgba = AttrLabelProxy++colorButtonTitle :: AttrLabelProxy "title"+colorButtonTitle = AttrLabelProxy++colorButtonUseAlpha :: AttrLabelProxy "useAlpha"+colorButtonUseAlpha = AttrLabelProxy+ data ColorButtonColorSetSignalInfo instance SignalInfo ColorButtonColorSetSignalInfo where type HaskellCallbackType ColorButtonColorSetSignalInfo = ColorButtonColorSetCallback@@ -700,7 +734,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "ColorButton"+-- returnType : Just (TInterface "Gtk" "ColorButton") -- throws : False -- Skip return : False @@ -721,7 +755,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ColorButton"+-- returnType : Just (TInterface "Gtk" "ColorButton") -- throws : False -- Skip return : False @@ -746,7 +780,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ColorButton"+-- returnType : Just (TInterface "Gtk" "ColorButton") -- throws : False -- Skip return : False @@ -771,7 +805,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt16+-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -798,7 +832,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -828,7 +862,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -857,7 +891,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -885,7 +919,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -914,7 +948,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -945,7 +979,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -976,7 +1010,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ColorButton where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -26,6 +26,7 @@ -- * Properties -- ** ShowEditor ColorChooserDialogShowEditorPropertyInfo,+ colorChooserDialogShowEditor , constructColorChooserDialogShowEditor , getColorChooserDialogShowEditor , setColorChooserDialogShowEditor ,@@ -35,9 +36,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -512,6 +513,7 @@ -- VVV Prop "show-editor" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getColorChooserDialogShowEditor :: (MonadIO m, ColorChooserDialogK o) => o -> m Bool getColorChooserDialogShowEditor obj = liftIO $ getObjectPropertyBool obj "show-editor"@@ -532,10 +534,14 @@ attrGet _ = getColorChooserDialogShowEditor attrSet _ = setColorChooserDialogShowEditor attrConstruct _ = constructColorChooserDialogShowEditor+ attrClear _ = undefined type instance AttributeList ColorChooserDialog = ColorChooserDialogAttributeList type ColorChooserDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rgba", ColorChooserRgbaPropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showEditor", ColorChooserDialogShowEditorPropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useAlpha", ColorChooserUseAlphaPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +colorChooserDialogShowEditor :: AttrLabelProxy "showEditor"+colorChooserDialogShowEditor = AttrLabelProxy+ type instance SignalList ColorChooserDialog = ColorChooserDialogSignalList type ColorChooserDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("colorActivated", ColorChooserColorActivatedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -543,7 +549,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ColorChooserDialog"+-- returnType : Just (TInterface "Gtk" "ColorChooserDialog") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ColorChooserDialog where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -26,6 +26,7 @@ -- * Properties -- ** ShowEditor ColorChooserWidgetShowEditorPropertyInfo,+ colorChooserWidgetShowEditor , constructColorChooserWidgetShowEditor , getColorChooserWidgetShowEditor , setColorChooserWidgetShowEditor ,@@ -35,9 +36,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -413,6 +414,7 @@ -- VVV Prop "show-editor" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getColorChooserWidgetShowEditor :: (MonadIO m, ColorChooserWidgetK o) => o -> m Bool getColorChooserWidgetShowEditor obj = liftIO $ getObjectPropertyBool obj "show-editor"@@ -433,10 +435,14 @@ attrGet _ = getColorChooserWidgetShowEditor attrSet _ = setColorChooserWidgetShowEditor attrConstruct _ = constructColorChooserWidgetShowEditor+ attrClear _ = undefined type instance AttributeList ColorChooserWidget = ColorChooserWidgetAttributeList type ColorChooserWidgetAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rgba", ColorChooserRgbaPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showEditor", ColorChooserWidgetShowEditorPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useAlpha", ColorChooserUseAlphaPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +colorChooserWidgetShowEditor :: AttrLabelProxy "showEditor"+colorChooserWidgetShowEditor = AttrLabelProxy+ type instance SignalList ColorChooserWidget = ColorChooserWidgetSignalList type ColorChooserWidgetSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("colorActivated", ColorChooserColorActivatedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -444,7 +450,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "ColorChooserWidget"+-- returnType : Just (TInterface "Gtk" "ColorChooserWidget") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ColorChooserWidget where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -119,6 +119,7 @@ -- * Properties -- ** CurrentAlpha ColorSelectionCurrentAlphaPropertyInfo ,+ colorSelectionCurrentAlpha , constructColorSelectionCurrentAlpha , getColorSelectionCurrentAlpha , setColorSelectionCurrentAlpha ,@@ -126,6 +127,7 @@ -- ** CurrentColor ColorSelectionCurrentColorPropertyInfo ,+ colorSelectionCurrentColor , constructColorSelectionCurrentColor , getColorSelectionCurrentColor , setColorSelectionCurrentColor ,@@ -133,6 +135,7 @@ -- ** CurrentRgba ColorSelectionCurrentRgbaPropertyInfo ,+ colorSelectionCurrentRgba , constructColorSelectionCurrentRgba , getColorSelectionCurrentRgba , setColorSelectionCurrentRgba ,@@ -140,6 +143,7 @@ -- ** HasOpacityControl ColorSelectionHasOpacityControlPropertyInfo,+ colorSelectionHasOpacityControl , constructColorSelectionHasOpacityControl, getColorSelectionHasOpacityControl , setColorSelectionHasOpacityControl ,@@ -147,6 +151,7 @@ -- ** HasPalette ColorSelectionHasPalettePropertyInfo ,+ colorSelectionHasPalette , constructColorSelectionHasPalette , getColorSelectionHasPalette , setColorSelectionHasPalette ,@@ -171,9 +176,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -598,17 +603,18 @@ connectSignalFunPtr obj "color-changed" cb' after -- VVV Prop "current-alpha"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getColorSelectionCurrentAlpha :: (MonadIO m, ColorSelectionK o) => o -> m Word32-getColorSelectionCurrentAlpha obj = liftIO $ getObjectPropertyCUInt obj "current-alpha"+getColorSelectionCurrentAlpha obj = liftIO $ getObjectPropertyUInt32 obj "current-alpha" setColorSelectionCurrentAlpha :: (MonadIO m, ColorSelectionK o) => o -> Word32 -> m ()-setColorSelectionCurrentAlpha obj val = liftIO $ setObjectPropertyCUInt obj "current-alpha" val+setColorSelectionCurrentAlpha obj val = liftIO $ setObjectPropertyUInt32 obj "current-alpha" val constructColorSelectionCurrentAlpha :: Word32 -> IO ([Char], GValue)-constructColorSelectionCurrentAlpha val = constructObjectPropertyCUInt "current-alpha" val+constructColorSelectionCurrentAlpha val = constructObjectPropertyUInt32 "current-alpha" val data ColorSelectionCurrentAlphaPropertyInfo instance AttrInfo ColorSelectionCurrentAlphaPropertyInfo where@@ -620,58 +626,64 @@ attrGet _ = getColorSelectionCurrentAlpha attrSet _ = setColorSelectionCurrentAlpha attrConstruct _ = constructColorSelectionCurrentAlpha+ attrClear _ = undefined -- VVV Prop "current-color" -- Type: TInterface "Gdk" "Color" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just False) -getColorSelectionCurrentColor :: (MonadIO m, ColorSelectionK o) => o -> m Gdk.Color+getColorSelectionCurrentColor :: (MonadIO m, ColorSelectionK o) => o -> m (Maybe Gdk.Color) getColorSelectionCurrentColor obj = liftIO $ getObjectPropertyBoxed obj "current-color" Gdk.Color setColorSelectionCurrentColor :: (MonadIO m, ColorSelectionK o) => o -> Gdk.Color -> m ()-setColorSelectionCurrentColor obj val = liftIO $ setObjectPropertyBoxed obj "current-color" val+setColorSelectionCurrentColor obj val = liftIO $ setObjectPropertyBoxed obj "current-color" (Just val) constructColorSelectionCurrentColor :: Gdk.Color -> IO ([Char], GValue)-constructColorSelectionCurrentColor val = constructObjectPropertyBoxed "current-color" val+constructColorSelectionCurrentColor val = constructObjectPropertyBoxed "current-color" (Just val) data ColorSelectionCurrentColorPropertyInfo instance AttrInfo ColorSelectionCurrentColorPropertyInfo where type AttrAllowedOps ColorSelectionCurrentColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint ColorSelectionCurrentColorPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint ColorSelectionCurrentColorPropertyInfo = ColorSelectionK- type AttrGetType ColorSelectionCurrentColorPropertyInfo = Gdk.Color+ type AttrGetType ColorSelectionCurrentColorPropertyInfo = (Maybe Gdk.Color) type AttrLabel ColorSelectionCurrentColorPropertyInfo = "current-color" attrGet _ = getColorSelectionCurrentColor attrSet _ = setColorSelectionCurrentColor attrConstruct _ = constructColorSelectionCurrentColor+ attrClear _ = undefined -- VVV Prop "current-rgba" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just False) -getColorSelectionCurrentRgba :: (MonadIO m, ColorSelectionK o) => o -> m Gdk.RGBA+getColorSelectionCurrentRgba :: (MonadIO m, ColorSelectionK o) => o -> m (Maybe Gdk.RGBA) getColorSelectionCurrentRgba obj = liftIO $ getObjectPropertyBoxed obj "current-rgba" Gdk.RGBA setColorSelectionCurrentRgba :: (MonadIO m, ColorSelectionK o) => o -> Gdk.RGBA -> m ()-setColorSelectionCurrentRgba obj val = liftIO $ setObjectPropertyBoxed obj "current-rgba" val+setColorSelectionCurrentRgba obj val = liftIO $ setObjectPropertyBoxed obj "current-rgba" (Just val) constructColorSelectionCurrentRgba :: Gdk.RGBA -> IO ([Char], GValue)-constructColorSelectionCurrentRgba val = constructObjectPropertyBoxed "current-rgba" val+constructColorSelectionCurrentRgba val = constructObjectPropertyBoxed "current-rgba" (Just val) data ColorSelectionCurrentRgbaPropertyInfo instance AttrInfo ColorSelectionCurrentRgbaPropertyInfo where type AttrAllowedOps ColorSelectionCurrentRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint ColorSelectionCurrentRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint ColorSelectionCurrentRgbaPropertyInfo = ColorSelectionK- type AttrGetType ColorSelectionCurrentRgbaPropertyInfo = Gdk.RGBA+ type AttrGetType ColorSelectionCurrentRgbaPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel ColorSelectionCurrentRgbaPropertyInfo = "current-rgba" attrGet _ = getColorSelectionCurrentRgba attrSet _ = setColorSelectionCurrentRgba attrConstruct _ = constructColorSelectionCurrentRgba+ attrClear _ = undefined -- VVV Prop "has-opacity-control" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getColorSelectionHasOpacityControl :: (MonadIO m, ColorSelectionK o) => o -> m Bool getColorSelectionHasOpacityControl obj = liftIO $ getObjectPropertyBool obj "has-opacity-control"@@ -692,10 +704,12 @@ attrGet _ = getColorSelectionHasOpacityControl attrSet _ = setColorSelectionHasOpacityControl attrConstruct _ = constructColorSelectionHasOpacityControl+ attrClear _ = undefined -- VVV Prop "has-palette" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getColorSelectionHasPalette :: (MonadIO m, ColorSelectionK o) => o -> m Bool getColorSelectionHasPalette obj = liftIO $ getObjectPropertyBool obj "has-palette"@@ -716,10 +730,26 @@ attrGet _ = getColorSelectionHasPalette attrSet _ = setColorSelectionHasPalette attrConstruct _ = constructColorSelectionHasPalette+ attrClear _ = undefined type instance AttributeList ColorSelection = ColorSelectionAttributeList type ColorSelectionAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("currentAlpha", ColorSelectionCurrentAlphaPropertyInfo), '("currentColor", ColorSelectionCurrentColorPropertyInfo), '("currentRgba", ColorSelectionCurrentRgbaPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasOpacityControl", ColorSelectionHasOpacityControlPropertyInfo), '("hasPalette", ColorSelectionHasPalettePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +colorSelectionCurrentAlpha :: AttrLabelProxy "currentAlpha"+colorSelectionCurrentAlpha = AttrLabelProxy++colorSelectionCurrentColor :: AttrLabelProxy "currentColor"+colorSelectionCurrentColor = AttrLabelProxy++colorSelectionCurrentRgba :: AttrLabelProxy "currentRgba"+colorSelectionCurrentRgba = AttrLabelProxy++colorSelectionHasOpacityControl :: AttrLabelProxy "hasOpacityControl"+colorSelectionHasOpacityControl = AttrLabelProxy++colorSelectionHasPalette :: AttrLabelProxy "hasPalette"+colorSelectionHasPalette = AttrLabelProxy+ data ColorSelectionColorChangedSignalInfo instance SignalInfo ColorSelectionColorChangedSignalInfo where type HaskellCallbackType ColorSelectionColorChangedSignalInfo = ColorSelectionColorChangedCallback@@ -732,7 +762,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "ColorSelection"+-- returnType : Just (TInterface "Gtk" "ColorSelection") -- throws : False -- Skip return : False @@ -753,7 +783,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt16+-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -780,7 +810,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -810,7 +840,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -840,7 +870,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -868,7 +898,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -896,7 +926,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt16+-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -923,7 +953,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -953,7 +983,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -983,7 +1013,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1011,7 +1041,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1040,7 +1070,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1071,7 +1101,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1102,7 +1132,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_opacity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1132,7 +1162,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_palette", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1162,7 +1192,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1191,7 +1221,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1222,7 +1252,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1251,16 +1281,16 @@ -- method ColorSelection::palette_from_string -- method type : MemberFunction--- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors", argType = TCArray False (-1) 2 (TInterface "Gdk" "Color"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_colors", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "n_colors", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : TBasicType TBoolean+-- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors", argType = TCArray False (-1) 2 (TInterface "Gdk" "Color"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_color_selection_palette_from_string" gtk_color_selection_palette_from_string :: CString -> -- str : TBasicType TUTF8 Ptr (Ptr Gdk.Color) -> -- colors : TCArray False (-1) 2 (TInterface "Gdk" "Color")- Ptr Int32 -> -- n_colors : TBasicType TInt32+ Ptr Int32 -> -- n_colors : TBasicType TInt IO CInt @@ -1286,15 +1316,15 @@ -- method ColorSelection::palette_to_string -- method type : MemberFunction--- Args : [Arg {argCName = "colors", argType = TCArray False (-1) 1 (TInterface "Gdk" "Color"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TUTF8+-- Args : [Arg {argCName = "colors", argType = TCArray False (-1) 1 (TInterface "Gdk" "Color"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_color_selection_palette_to_string" gtk_color_selection_palette_to_string :: Ptr Gdk.Color -> -- colors : TCArray False (-1) 1 (TInterface "Gdk" "Color")- Int32 -> -- n_colors : TBasicType TInt32+ Int32 -> -- n_colors : TBasicType TInt IO CString
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ColorSelection where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -31,21 +31,25 @@ -- * Properties -- ** CancelButton ColorSelectionDialogCancelButtonPropertyInfo,+ colorSelectionDialogCancelButton , getColorSelectionDialogCancelButton , -- ** ColorSelection ColorSelectionDialogColorSelectionPropertyInfo,+ colorSelectionDialogColorSelection , getColorSelectionDialogColorSelection , -- ** HelpButton ColorSelectionDialogHelpButtonPropertyInfo,+ colorSelectionDialogHelpButton , getColorSelectionDialogHelpButton , -- ** OkButton ColorSelectionDialogOkButtonPropertyInfo,+ colorSelectionDialogOkButton , getColorSelectionDialogOkButton , @@ -53,9 +57,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -526,31 +530,34 @@ -- VVV Prop "cancel-button" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) -getColorSelectionDialogCancelButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m Widget+getColorSelectionDialogCancelButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m (Maybe Widget) getColorSelectionDialogCancelButton obj = liftIO $ getObjectPropertyObject obj "cancel-button" Widget data ColorSelectionDialogCancelButtonPropertyInfo instance AttrInfo ColorSelectionDialogCancelButtonPropertyInfo where- type AttrAllowedOps ColorSelectionDialogCancelButtonPropertyInfo = '[ 'AttrGet]+ type AttrAllowedOps ColorSelectionDialogCancelButtonPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ColorSelectionDialogCancelButtonPropertyInfo = (~) () type AttrBaseTypeConstraint ColorSelectionDialogCancelButtonPropertyInfo = ColorSelectionDialogK- type AttrGetType ColorSelectionDialogCancelButtonPropertyInfo = Widget+ type AttrGetType ColorSelectionDialogCancelButtonPropertyInfo = (Maybe Widget) type AttrLabel ColorSelectionDialogCancelButtonPropertyInfo = "cancel-button" attrGet _ = getColorSelectionDialogCancelButton attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "color-selection" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable]+ -- Nullable: (Just False,Nothing) getColorSelectionDialogColorSelection :: (MonadIO m, ColorSelectionDialogK o) => o -> m Widget-getColorSelectionDialogColorSelection obj = liftIO $ getObjectPropertyObject obj "color-selection" Widget+getColorSelectionDialogColorSelection obj = liftIO $ checkUnexpectedNothing "getColorSelectionDialogColorSelection" $ getObjectPropertyObject obj "color-selection" Widget data ColorSelectionDialogColorSelectionPropertyInfo instance AttrInfo ColorSelectionDialogColorSelectionPropertyInfo where- type AttrAllowedOps ColorSelectionDialogColorSelectionPropertyInfo = '[ 'AttrGet]+ type AttrAllowedOps ColorSelectionDialogColorSelectionPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ColorSelectionDialogColorSelectionPropertyInfo = (~) () type AttrBaseTypeConstraint ColorSelectionDialogColorSelectionPropertyInfo = ColorSelectionDialogK type AttrGetType ColorSelectionDialogColorSelectionPropertyInfo = Widget@@ -558,46 +565,63 @@ attrGet _ = getColorSelectionDialogColorSelection attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "help-button" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) -getColorSelectionDialogHelpButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m Widget+getColorSelectionDialogHelpButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m (Maybe Widget) getColorSelectionDialogHelpButton obj = liftIO $ getObjectPropertyObject obj "help-button" Widget data ColorSelectionDialogHelpButtonPropertyInfo instance AttrInfo ColorSelectionDialogHelpButtonPropertyInfo where- type AttrAllowedOps ColorSelectionDialogHelpButtonPropertyInfo = '[ 'AttrGet]+ type AttrAllowedOps ColorSelectionDialogHelpButtonPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ColorSelectionDialogHelpButtonPropertyInfo = (~) () type AttrBaseTypeConstraint ColorSelectionDialogHelpButtonPropertyInfo = ColorSelectionDialogK- type AttrGetType ColorSelectionDialogHelpButtonPropertyInfo = Widget+ type AttrGetType ColorSelectionDialogHelpButtonPropertyInfo = (Maybe Widget) type AttrLabel ColorSelectionDialogHelpButtonPropertyInfo = "help-button" attrGet _ = getColorSelectionDialogHelpButton attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "ok-button" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) -getColorSelectionDialogOkButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m Widget+getColorSelectionDialogOkButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m (Maybe Widget) getColorSelectionDialogOkButton obj = liftIO $ getObjectPropertyObject obj "ok-button" Widget data ColorSelectionDialogOkButtonPropertyInfo instance AttrInfo ColorSelectionDialogOkButtonPropertyInfo where- type AttrAllowedOps ColorSelectionDialogOkButtonPropertyInfo = '[ 'AttrGet]+ type AttrAllowedOps ColorSelectionDialogOkButtonPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ColorSelectionDialogOkButtonPropertyInfo = (~) () type AttrBaseTypeConstraint ColorSelectionDialogOkButtonPropertyInfo = ColorSelectionDialogK- type AttrGetType ColorSelectionDialogOkButtonPropertyInfo = Widget+ type AttrGetType ColorSelectionDialogOkButtonPropertyInfo = (Maybe Widget) type AttrLabel ColorSelectionDialogOkButtonPropertyInfo = "ok-button" attrGet _ = getColorSelectionDialogOkButton attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined type instance AttributeList ColorSelectionDialog = ColorSelectionDialogAttributeList type ColorSelectionDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cancelButton", ColorSelectionDialogCancelButtonPropertyInfo), '("child", ContainerChildPropertyInfo), '("colorSelection", ColorSelectionDialogColorSelectionPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("helpButton", ColorSelectionDialogHelpButtonPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("okButton", ColorSelectionDialogOkButtonPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +colorSelectionDialogCancelButton :: AttrLabelProxy "cancelButton"+colorSelectionDialogCancelButton = AttrLabelProxy++colorSelectionDialogColorSelection :: AttrLabelProxy "colorSelection"+colorSelectionDialogColorSelection = AttrLabelProxy++colorSelectionDialogHelpButton :: AttrLabelProxy "helpButton"+colorSelectionDialogHelpButton = AttrLabelProxy++colorSelectionDialogOkButton :: AttrLabelProxy "okButton"+colorSelectionDialogOkButton = AttrLabelProxy+ type instance SignalList ColorSelectionDialog = ColorSelectionDialogSignalList type ColorSelectionDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -605,7 +629,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ColorSelectionDialog"+-- returnType : Just (TInterface "Gtk" "ColorSelectionDialog") -- throws : False -- Skip return : False @@ -630,7 +654,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ColorSelectionDialog where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -216,6 +216,7 @@ -- * Properties -- ** Active ComboBoxActivePropertyInfo ,+ comboBoxActive , constructComboBoxActive , getComboBoxActive , setComboBoxActive ,@@ -223,6 +224,8 @@ -- ** ActiveId ComboBoxActiveIdPropertyInfo ,+ clearComboBoxActiveId ,+ comboBoxActiveId , constructComboBoxActiveId , getComboBoxActiveId , setComboBoxActiveId ,@@ -230,6 +233,7 @@ -- ** AddTearoffs ComboBoxAddTearoffsPropertyInfo ,+ comboBoxAddTearoffs , constructComboBoxAddTearoffs , getComboBoxAddTearoffs , setComboBoxAddTearoffs ,@@ -237,6 +241,7 @@ -- ** ButtonSensitivity ComboBoxButtonSensitivityPropertyInfo ,+ comboBoxButtonSensitivity , constructComboBoxButtonSensitivity , getComboBoxButtonSensitivity , setComboBoxButtonSensitivity ,@@ -244,12 +249,14 @@ -- ** CellArea ComboBoxCellAreaPropertyInfo ,+ comboBoxCellArea , constructComboBoxCellArea , getComboBoxCellArea , -- ** ColumnSpanColumn ComboBoxColumnSpanColumnPropertyInfo ,+ comboBoxColumnSpanColumn , constructComboBoxColumnSpanColumn , getComboBoxColumnSpanColumn , setComboBoxColumnSpanColumn ,@@ -257,6 +264,7 @@ -- ** EntryTextColumn ComboBoxEntryTextColumnPropertyInfo ,+ comboBoxEntryTextColumn , constructComboBoxEntryTextColumn , getComboBoxEntryTextColumn , setComboBoxEntryTextColumn ,@@ -264,6 +272,7 @@ -- ** FocusOnClick ComboBoxFocusOnClickPropertyInfo ,+ comboBoxFocusOnClick , constructComboBoxFocusOnClick , getComboBoxFocusOnClick , setComboBoxFocusOnClick ,@@ -271,12 +280,14 @@ -- ** HasEntry ComboBoxHasEntryPropertyInfo ,+ comboBoxHasEntry , constructComboBoxHasEntry , getComboBoxHasEntry , -- ** HasFrame ComboBoxHasFramePropertyInfo ,+ comboBoxHasFrame , constructComboBoxHasFrame , getComboBoxHasFrame , setComboBoxHasFrame ,@@ -284,6 +295,7 @@ -- ** IdColumn ComboBoxIdColumnPropertyInfo ,+ comboBoxIdColumn , constructComboBoxIdColumn , getComboBoxIdColumn , setComboBoxIdColumn ,@@ -291,6 +303,8 @@ -- ** Model ComboBoxModelPropertyInfo ,+ clearComboBoxModel ,+ comboBoxModel , constructComboBoxModel , getComboBoxModel , setComboBoxModel ,@@ -298,6 +312,7 @@ -- ** PopupFixedWidth ComboBoxPopupFixedWidthPropertyInfo ,+ comboBoxPopupFixedWidth , constructComboBoxPopupFixedWidth , getComboBoxPopupFixedWidth , setComboBoxPopupFixedWidth ,@@ -305,11 +320,13 @@ -- ** PopupShown ComboBoxPopupShownPropertyInfo ,+ comboBoxPopupShown , getComboBoxPopupShown , -- ** RowSpanColumn ComboBoxRowSpanColumnPropertyInfo ,+ comboBoxRowSpanColumn , constructComboBoxRowSpanColumn , getComboBoxRowSpanColumn , setComboBoxRowSpanColumn ,@@ -317,6 +334,8 @@ -- ** TearoffTitle ComboBoxTearoffTitlePropertyInfo ,+ clearComboBoxTearoffTitle ,+ comboBoxTearoffTitle , constructComboBoxTearoffTitle , getComboBoxTearoffTitle , setComboBoxTearoffTitle ,@@ -324,6 +343,7 @@ -- ** WrapWidth ComboBoxWrapWidthPropertyInfo ,+ comboBoxWrapWidth , constructComboBoxWrapWidth , getComboBoxWrapWidth , setComboBoxWrapWidth ,@@ -396,9 +416,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -1003,17 +1023,18 @@ connectSignalFunPtr obj "popup" cb' after -- VVV Prop "active"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getComboBoxActive :: (MonadIO m, ComboBoxK o) => o -> m Int32-getComboBoxActive obj = liftIO $ getObjectPropertyCInt obj "active"+getComboBoxActive obj = liftIO $ getObjectPropertyInt32 obj "active" setComboBoxActive :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m ()-setComboBoxActive obj val = liftIO $ setObjectPropertyCInt obj "active" val+setComboBoxActive obj val = liftIO $ setObjectPropertyInt32 obj "active" val constructComboBoxActive :: Int32 -> IO ([Char], GValue)-constructComboBoxActive val = constructObjectPropertyCInt "active" val+constructComboBoxActive val = constructObjectPropertyInt32 "active" val data ComboBoxActivePropertyInfo instance AttrInfo ComboBoxActivePropertyInfo where@@ -1025,34 +1046,41 @@ attrGet _ = getComboBoxActive attrSet _ = setComboBoxActive attrConstruct _ = constructComboBoxActive+ attrClear _ = undefined -- VVV Prop "active-id" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just True,Nothing) -getComboBoxActiveId :: (MonadIO m, ComboBoxK o) => o -> m T.Text+getComboBoxActiveId :: (MonadIO m, ComboBoxK o) => o -> m (Maybe T.Text) getComboBoxActiveId obj = liftIO $ getObjectPropertyString obj "active-id" setComboBoxActiveId :: (MonadIO m, ComboBoxK o) => o -> T.Text -> m ()-setComboBoxActiveId obj val = liftIO $ setObjectPropertyString obj "active-id" val+setComboBoxActiveId obj val = liftIO $ setObjectPropertyString obj "active-id" (Just val) constructComboBoxActiveId :: T.Text -> IO ([Char], GValue)-constructComboBoxActiveId val = constructObjectPropertyString "active-id" val+constructComboBoxActiveId val = constructObjectPropertyString "active-id" (Just val) +clearComboBoxActiveId :: (MonadIO m, ComboBoxK o) => o -> m ()+clearComboBoxActiveId obj = liftIO $ setObjectPropertyString obj "active-id" (Nothing :: Maybe T.Text)+ data ComboBoxActiveIdPropertyInfo instance AttrInfo ComboBoxActiveIdPropertyInfo where- type AttrAllowedOps ComboBoxActiveIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ComboBoxActiveIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ComboBoxActiveIdPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ComboBoxActiveIdPropertyInfo = ComboBoxK- type AttrGetType ComboBoxActiveIdPropertyInfo = T.Text+ type AttrGetType ComboBoxActiveIdPropertyInfo = (Maybe T.Text) type AttrLabel ComboBoxActiveIdPropertyInfo = "active-id" attrGet _ = getComboBoxActiveId attrSet _ = setComboBoxActiveId attrConstruct _ = constructComboBoxActiveId+ attrClear _ = clearComboBoxActiveId -- VVV Prop "add-tearoffs" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getComboBoxAddTearoffs :: (MonadIO m, ComboBoxK o) => o -> m Bool getComboBoxAddTearoffs obj = liftIO $ getObjectPropertyBool obj "add-tearoffs"@@ -1073,10 +1101,12 @@ attrGet _ = getComboBoxAddTearoffs attrSet _ = setComboBoxAddTearoffs attrConstruct _ = constructComboBoxAddTearoffs+ attrClear _ = undefined -- VVV Prop "button-sensitivity" -- Type: TInterface "Gtk" "SensitivityType" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getComboBoxButtonSensitivity :: (MonadIO m, ComboBoxK o) => o -> m SensitivityType getComboBoxButtonSensitivity obj = liftIO $ getObjectPropertyEnum obj "button-sensitivity"@@ -1097,40 +1127,44 @@ attrGet _ = getComboBoxButtonSensitivity attrSet _ = setComboBoxButtonSensitivity attrConstruct _ = constructComboBoxButtonSensitivity+ attrClear _ = undefined -- VVV Prop "cell-area" -- Type: TInterface "Gtk" "CellArea" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+ -- Nullable: (Nothing,Nothing) -getComboBoxCellArea :: (MonadIO m, ComboBoxK o) => o -> m CellArea+getComboBoxCellArea :: (MonadIO m, ComboBoxK o) => o -> m (Maybe CellArea) getComboBoxCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea constructComboBoxCellArea :: (CellAreaK a) => a -> IO ([Char], GValue)-constructComboBoxCellArea val = constructObjectPropertyObject "cell-area" val+constructComboBoxCellArea val = constructObjectPropertyObject "cell-area" (Just val) data ComboBoxCellAreaPropertyInfo instance AttrInfo ComboBoxCellAreaPropertyInfo where- type AttrAllowedOps ComboBoxCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ComboBoxCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ComboBoxCellAreaPropertyInfo = CellAreaK type AttrBaseTypeConstraint ComboBoxCellAreaPropertyInfo = ComboBoxK- type AttrGetType ComboBoxCellAreaPropertyInfo = CellArea+ type AttrGetType ComboBoxCellAreaPropertyInfo = (Maybe CellArea) type AttrLabel ComboBoxCellAreaPropertyInfo = "cell-area" attrGet _ = getComboBoxCellArea attrSet _ = undefined attrConstruct _ = constructComboBoxCellArea+ attrClear _ = undefined -- VVV Prop "column-span-column"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getComboBoxColumnSpanColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32-getComboBoxColumnSpanColumn obj = liftIO $ getObjectPropertyCInt obj "column-span-column"+getComboBoxColumnSpanColumn obj = liftIO $ getObjectPropertyInt32 obj "column-span-column" setComboBoxColumnSpanColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m ()-setComboBoxColumnSpanColumn obj val = liftIO $ setObjectPropertyCInt obj "column-span-column" val+setComboBoxColumnSpanColumn obj val = liftIO $ setObjectPropertyInt32 obj "column-span-column" val constructComboBoxColumnSpanColumn :: Int32 -> IO ([Char], GValue)-constructComboBoxColumnSpanColumn val = constructObjectPropertyCInt "column-span-column" val+constructComboBoxColumnSpanColumn val = constructObjectPropertyInt32 "column-span-column" val data ComboBoxColumnSpanColumnPropertyInfo instance AttrInfo ComboBoxColumnSpanColumnPropertyInfo where@@ -1142,19 +1176,21 @@ attrGet _ = getComboBoxColumnSpanColumn attrSet _ = setComboBoxColumnSpanColumn attrConstruct _ = constructComboBoxColumnSpanColumn+ attrClear _ = undefined -- VVV Prop "entry-text-column"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getComboBoxEntryTextColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32-getComboBoxEntryTextColumn obj = liftIO $ getObjectPropertyCInt obj "entry-text-column"+getComboBoxEntryTextColumn obj = liftIO $ getObjectPropertyInt32 obj "entry-text-column" setComboBoxEntryTextColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m ()-setComboBoxEntryTextColumn obj val = liftIO $ setObjectPropertyCInt obj "entry-text-column" val+setComboBoxEntryTextColumn obj val = liftIO $ setObjectPropertyInt32 obj "entry-text-column" val constructComboBoxEntryTextColumn :: Int32 -> IO ([Char], GValue)-constructComboBoxEntryTextColumn val = constructObjectPropertyCInt "entry-text-column" val+constructComboBoxEntryTextColumn val = constructObjectPropertyInt32 "entry-text-column" val data ComboBoxEntryTextColumnPropertyInfo instance AttrInfo ComboBoxEntryTextColumnPropertyInfo where@@ -1166,10 +1202,12 @@ attrGet _ = getComboBoxEntryTextColumn attrSet _ = setComboBoxEntryTextColumn attrConstruct _ = constructComboBoxEntryTextColumn+ attrClear _ = undefined -- VVV Prop "focus-on-click" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getComboBoxFocusOnClick :: (MonadIO m, ComboBoxK o) => o -> m Bool getComboBoxFocusOnClick obj = liftIO $ getObjectPropertyBool obj "focus-on-click"@@ -1190,10 +1228,12 @@ attrGet _ = getComboBoxFocusOnClick attrSet _ = setComboBoxFocusOnClick attrConstruct _ = constructComboBoxFocusOnClick+ attrClear _ = undefined -- VVV Prop "has-entry" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+ -- Nullable: (Just False,Nothing) getComboBoxHasEntry :: (MonadIO m, ComboBoxK o) => o -> m Bool getComboBoxHasEntry obj = liftIO $ getObjectPropertyBool obj "has-entry"@@ -1211,10 +1251,12 @@ attrGet _ = getComboBoxHasEntry attrSet _ = undefined attrConstruct _ = constructComboBoxHasEntry+ attrClear _ = undefined -- VVV Prop "has-frame" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getComboBoxHasFrame :: (MonadIO m, ComboBoxK o) => o -> m Bool getComboBoxHasFrame obj = liftIO $ getObjectPropertyBool obj "has-frame"@@ -1235,19 +1277,21 @@ attrGet _ = getComboBoxHasFrame attrSet _ = setComboBoxHasFrame attrConstruct _ = constructComboBoxHasFrame+ attrClear _ = undefined -- VVV Prop "id-column"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getComboBoxIdColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32-getComboBoxIdColumn obj = liftIO $ getObjectPropertyCInt obj "id-column"+getComboBoxIdColumn obj = liftIO $ getObjectPropertyInt32 obj "id-column" setComboBoxIdColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m ()-setComboBoxIdColumn obj val = liftIO $ setObjectPropertyCInt obj "id-column" val+setComboBoxIdColumn obj val = liftIO $ setObjectPropertyInt32 obj "id-column" val constructComboBoxIdColumn :: Int32 -> IO ([Char], GValue)-constructComboBoxIdColumn val = constructObjectPropertyCInt "id-column" val+constructComboBoxIdColumn val = constructObjectPropertyInt32 "id-column" val data ComboBoxIdColumnPropertyInfo instance AttrInfo ComboBoxIdColumnPropertyInfo where@@ -1259,23 +1303,28 @@ attrGet _ = getComboBoxIdColumn attrSet _ = setComboBoxIdColumn attrConstruct _ = constructComboBoxIdColumn+ attrClear _ = undefined -- VVV Prop "model" -- Type: TInterface "Gtk" "TreeModel" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getComboBoxModel :: (MonadIO m, ComboBoxK o) => o -> m TreeModel-getComboBoxModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel+getComboBoxModel obj = liftIO $ checkUnexpectedNothing "getComboBoxModel" $ getObjectPropertyObject obj "model" TreeModel setComboBoxModel :: (MonadIO m, ComboBoxK o, TreeModelK a) => o -> a -> m ()-setComboBoxModel obj val = liftIO $ setObjectPropertyObject obj "model" val+setComboBoxModel obj val = liftIO $ setObjectPropertyObject obj "model" (Just val) constructComboBoxModel :: (TreeModelK a) => a -> IO ([Char], GValue)-constructComboBoxModel val = constructObjectPropertyObject "model" val+constructComboBoxModel val = constructObjectPropertyObject "model" (Just val) +clearComboBoxModel :: (MonadIO m, ComboBoxK o) => o -> m ()+clearComboBoxModel obj = liftIO $ setObjectPropertyObject obj "model" (Nothing :: Maybe TreeModel)+ data ComboBoxModelPropertyInfo instance AttrInfo ComboBoxModelPropertyInfo where- type AttrAllowedOps ComboBoxModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ComboBoxModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ComboBoxModelPropertyInfo = TreeModelK type AttrBaseTypeConstraint ComboBoxModelPropertyInfo = ComboBoxK type AttrGetType ComboBoxModelPropertyInfo = TreeModel@@ -1283,10 +1332,12 @@ attrGet _ = getComboBoxModel attrSet _ = setComboBoxModel attrConstruct _ = constructComboBoxModel+ attrClear _ = clearComboBoxModel -- VVV Prop "popup-fixed-width" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getComboBoxPopupFixedWidth :: (MonadIO m, ComboBoxK o) => o -> m Bool getComboBoxPopupFixedWidth obj = liftIO $ getObjectPropertyBool obj "popup-fixed-width"@@ -1307,10 +1358,12 @@ attrGet _ = getComboBoxPopupFixedWidth attrSet _ = setComboBoxPopupFixedWidth attrConstruct _ = constructComboBoxPopupFixedWidth+ attrClear _ = undefined -- VVV Prop "popup-shown" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) getComboBoxPopupShown :: (MonadIO m, ComboBoxK o) => o -> m Bool getComboBoxPopupShown obj = liftIO $ getObjectPropertyBool obj "popup-shown"@@ -1325,19 +1378,21 @@ attrGet _ = getComboBoxPopupShown attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "row-span-column"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getComboBoxRowSpanColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32-getComboBoxRowSpanColumn obj = liftIO $ getObjectPropertyCInt obj "row-span-column"+getComboBoxRowSpanColumn obj = liftIO $ getObjectPropertyInt32 obj "row-span-column" setComboBoxRowSpanColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m ()-setComboBoxRowSpanColumn obj val = liftIO $ setObjectPropertyCInt obj "row-span-column" val+setComboBoxRowSpanColumn obj val = liftIO $ setObjectPropertyInt32 obj "row-span-column" val constructComboBoxRowSpanColumn :: Int32 -> IO ([Char], GValue)-constructComboBoxRowSpanColumn val = constructObjectPropertyCInt "row-span-column" val+constructComboBoxRowSpanColumn val = constructObjectPropertyInt32 "row-span-column" val data ComboBoxRowSpanColumnPropertyInfo instance AttrInfo ComboBoxRowSpanColumnPropertyInfo where@@ -1349,43 +1404,50 @@ attrGet _ = getComboBoxRowSpanColumn attrSet _ = setComboBoxRowSpanColumn attrConstruct _ = constructComboBoxRowSpanColumn+ attrClear _ = undefined -- VVV Prop "tearoff-title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getComboBoxTearoffTitle :: (MonadIO m, ComboBoxK o) => o -> m T.Text+getComboBoxTearoffTitle :: (MonadIO m, ComboBoxK o) => o -> m (Maybe T.Text) getComboBoxTearoffTitle obj = liftIO $ getObjectPropertyString obj "tearoff-title" setComboBoxTearoffTitle :: (MonadIO m, ComboBoxK o) => o -> T.Text -> m ()-setComboBoxTearoffTitle obj val = liftIO $ setObjectPropertyString obj "tearoff-title" val+setComboBoxTearoffTitle obj val = liftIO $ setObjectPropertyString obj "tearoff-title" (Just val) constructComboBoxTearoffTitle :: T.Text -> IO ([Char], GValue)-constructComboBoxTearoffTitle val = constructObjectPropertyString "tearoff-title" val+constructComboBoxTearoffTitle val = constructObjectPropertyString "tearoff-title" (Just val) +clearComboBoxTearoffTitle :: (MonadIO m, ComboBoxK o) => o -> m ()+clearComboBoxTearoffTitle obj = liftIO $ setObjectPropertyString obj "tearoff-title" (Nothing :: Maybe T.Text)+ data ComboBoxTearoffTitlePropertyInfo instance AttrInfo ComboBoxTearoffTitlePropertyInfo where- type AttrAllowedOps ComboBoxTearoffTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ComboBoxTearoffTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ComboBoxTearoffTitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ComboBoxTearoffTitlePropertyInfo = ComboBoxK- type AttrGetType ComboBoxTearoffTitlePropertyInfo = T.Text+ type AttrGetType ComboBoxTearoffTitlePropertyInfo = (Maybe T.Text) type AttrLabel ComboBoxTearoffTitlePropertyInfo = "tearoff-title" attrGet _ = getComboBoxTearoffTitle attrSet _ = setComboBoxTearoffTitle attrConstruct _ = constructComboBoxTearoffTitle+ attrClear _ = clearComboBoxTearoffTitle -- VVV Prop "wrap-width"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getComboBoxWrapWidth :: (MonadIO m, ComboBoxK o) => o -> m Int32-getComboBoxWrapWidth obj = liftIO $ getObjectPropertyCInt obj "wrap-width"+getComboBoxWrapWidth obj = liftIO $ getObjectPropertyInt32 obj "wrap-width" setComboBoxWrapWidth :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m ()-setComboBoxWrapWidth obj val = liftIO $ setObjectPropertyCInt obj "wrap-width" val+setComboBoxWrapWidth obj val = liftIO $ setObjectPropertyInt32 obj "wrap-width" val constructComboBoxWrapWidth :: Int32 -> IO ([Char], GValue)-constructComboBoxWrapWidth val = constructObjectPropertyCInt "wrap-width" val+constructComboBoxWrapWidth val = constructObjectPropertyInt32 "wrap-width" val data ComboBoxWrapWidthPropertyInfo instance AttrInfo ComboBoxWrapWidthPropertyInfo where@@ -1397,10 +1459,62 @@ attrGet _ = getComboBoxWrapWidth attrSet _ = setComboBoxWrapWidth attrConstruct _ = constructComboBoxWrapWidth+ attrClear _ = undefined type instance AttributeList ComboBox = ComboBoxAttributeList type ComboBoxAttributeList = ('[ '("active", ComboBoxActivePropertyInfo), '("activeId", ComboBoxActiveIdPropertyInfo), '("addTearoffs", ComboBoxAddTearoffsPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("buttonSensitivity", ComboBoxButtonSensitivityPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cellArea", ComboBoxCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpanColumn", ComboBoxColumnSpanColumnPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("entryTextColumn", ComboBoxEntryTextColumnPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ComboBoxFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasEntry", ComboBoxHasEntryPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasFrame", ComboBoxHasFramePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("idColumn", ComboBoxIdColumnPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popupFixedWidth", ComboBoxPopupFixedWidthPropertyInfo), '("popupShown", ComboBoxPopupShownPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpanColumn", ComboBoxRowSpanColumnPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tearoffTitle", ComboBoxTearoffTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrapWidth", ComboBoxWrapWidthPropertyInfo)] :: [(Symbol, *)]) +comboBoxActive :: AttrLabelProxy "active"+comboBoxActive = AttrLabelProxy++comboBoxActiveId :: AttrLabelProxy "activeId"+comboBoxActiveId = AttrLabelProxy++comboBoxAddTearoffs :: AttrLabelProxy "addTearoffs"+comboBoxAddTearoffs = AttrLabelProxy++comboBoxButtonSensitivity :: AttrLabelProxy "buttonSensitivity"+comboBoxButtonSensitivity = AttrLabelProxy++comboBoxCellArea :: AttrLabelProxy "cellArea"+comboBoxCellArea = AttrLabelProxy++comboBoxColumnSpanColumn :: AttrLabelProxy "columnSpanColumn"+comboBoxColumnSpanColumn = AttrLabelProxy++comboBoxEntryTextColumn :: AttrLabelProxy "entryTextColumn"+comboBoxEntryTextColumn = AttrLabelProxy++comboBoxFocusOnClick :: AttrLabelProxy "focusOnClick"+comboBoxFocusOnClick = AttrLabelProxy++comboBoxHasEntry :: AttrLabelProxy "hasEntry"+comboBoxHasEntry = AttrLabelProxy++comboBoxHasFrame :: AttrLabelProxy "hasFrame"+comboBoxHasFrame = AttrLabelProxy++comboBoxIdColumn :: AttrLabelProxy "idColumn"+comboBoxIdColumn = AttrLabelProxy++comboBoxModel :: AttrLabelProxy "model"+comboBoxModel = AttrLabelProxy++comboBoxPopupFixedWidth :: AttrLabelProxy "popupFixedWidth"+comboBoxPopupFixedWidth = AttrLabelProxy++comboBoxPopupShown :: AttrLabelProxy "popupShown"+comboBoxPopupShown = AttrLabelProxy++comboBoxRowSpanColumn :: AttrLabelProxy "rowSpanColumn"+comboBoxRowSpanColumn = AttrLabelProxy++comboBoxTearoffTitle :: AttrLabelProxy "tearoffTitle"+comboBoxTearoffTitle = AttrLabelProxy++comboBoxWrapWidth :: AttrLabelProxy "wrapWidth"+comboBoxWrapWidth = AttrLabelProxy+ data ComboBoxChangedSignalInfo instance SignalInfo ComboBoxChangedSignalInfo where type HaskellCallbackType ComboBoxChangedSignalInfo = ComboBoxChangedCallback@@ -1433,7 +1547,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "ComboBox"+-- returnType : Just (TInterface "Gtk" "ComboBox") -- throws : False -- Skip return : False @@ -1454,7 +1568,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ComboBox"+-- returnType : Just (TInterface "Gtk" "ComboBox") -- throws : False -- Skip return : False @@ -1479,7 +1593,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ComboBox"+-- returnType : Just (TInterface "Gtk" "ComboBox") -- throws : False -- Skip return : False @@ -1504,7 +1618,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "ComboBox"+-- returnType : Just (TInterface "Gtk" "ComboBox") -- throws : False -- Skip return : False @@ -1525,7 +1639,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ComboBox"+-- returnType : Just (TInterface "Gtk" "ComboBox") -- throws : False -- Skip return : False @@ -1550,7 +1664,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ComboBox"+-- returnType : Just (TInterface "Gtk" "ComboBox") -- throws : False -- Skip return : False @@ -1575,7 +1689,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1602,7 +1716,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1614,24 +1728,25 @@ comboBoxGetActiveId :: (MonadIO m, ComboBoxK a) => a -- _obj- -> m T.Text -- result+ -> m (Maybe T.Text) -- result comboBoxGetActiveId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_combo_box_get_active_id _obj'- checkUnexpectedReturnNULL "gtk_combo_box_get_active_id" result- result' <- cstringToText result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- cstringToText result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data ComboBoxGetActiveIdMethodInfo-instance (signature ~ (m T.Text), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetActiveIdMethodInfo a signature where+instance (signature ~ (m (Maybe T.Text)), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetActiveIdMethodInfo a signature where overloadedMethod _ = comboBoxGetActiveId -- method ComboBox::get_active_iter -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1662,7 +1777,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1690,7 +1805,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "SensitivityType"+-- returnType : Just (TInterface "Gtk" "SensitivityType") -- throws : False -- Skip return : False @@ -1718,7 +1833,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1745,7 +1860,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1772,7 +1887,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1800,7 +1915,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1828,7 +1943,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1855,7 +1970,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "TreeModel"+-- returnType : Just (TInterface "Gtk" "TreeModel") -- throws : False -- Skip return : False @@ -1884,7 +1999,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Atk" "Object"+-- returnType : Just (TInterface "Atk" "Object") -- throws : False -- Skip return : False @@ -1913,7 +2028,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1941,7 +2056,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1968,7 +2083,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1997,7 +2112,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2024,7 +2139,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2051,7 +2166,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2078,7 +2193,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2107,26 +2222,26 @@ -- method ComboBox::set_active -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_set_active" gtk_combo_box_set_active :: Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"- Int32 -> -- index_ : TBasicType TInt32+ Int32 -> -- index_ : TBasicType TInt IO () comboBoxSetActive :: (MonadIO m, ComboBoxK a) => a -- _obj- -> Int32 -- index+ -> Int32 -- index_ -> m () -- result-comboBoxSetActive _obj index = liftIO $ do+comboBoxSetActive _obj index_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj- gtk_combo_box_set_active _obj' index+ gtk_combo_box_set_active _obj' index_ touchManagedPtr _obj return () @@ -2138,7 +2253,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "active_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2174,7 +2289,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2209,7 +2324,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2239,7 +2354,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2267,15 +2382,15 @@ -- method ComboBox::set_column_span_column -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column_span", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column_span", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_set_column_span_column" gtk_combo_box_set_column_span_column :: Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"- Int32 -> -- column_span : TBasicType TInt32+ Int32 -> -- column_span : TBasicType TInt IO () @@ -2296,15 +2411,15 @@ -- method ComboBox::set_entry_text_column -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text_column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text_column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_set_entry_text_column" gtk_combo_box_set_entry_text_column :: Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"- Int32 -> -- text_column : TBasicType TInt32+ Int32 -> -- text_column : TBasicType TInt IO () @@ -2327,7 +2442,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2355,15 +2470,15 @@ -- method ComboBox::set_id_column -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id_column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id_column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_set_id_column" gtk_combo_box_set_id_column :: Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"- Int32 -> -- id_column : TBasicType TInt32+ Int32 -> -- id_column : TBasicType TInt IO () @@ -2386,7 +2501,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2421,7 +2536,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2449,16 +2564,16 @@ -- method ComboBox::set_row_separator_func -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_set_row_separator_func" gtk_combo_box_set_row_separator_func :: Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" FunPtr TreeViewRowSeparatorFuncC -> -- func : TInterface "Gtk" "TreeViewRowSeparatorFunc"- Ptr () -> -- data : TBasicType TVoid+ Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -2483,15 +2598,15 @@ -- method ComboBox::set_row_span_column -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row_span", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row_span", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_set_row_span_column" gtk_combo_box_set_row_span_column :: Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"- Int32 -> -- row_span : TBasicType TInt32+ Int32 -> -- row_span : TBasicType TInt IO () @@ -2514,7 +2629,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2543,15 +2658,15 @@ -- method ComboBox::set_wrap_width -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_set_wrap_width" gtk_combo_box_set_wrap_width :: Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"- Int32 -> -- width : TBasicType TInt32+ Int32 -> -- width : TBasicType TInt IO ()
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ComboBox where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ComboBoxAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -74,9 +74,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -493,7 +493,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "ComboBoxText"+-- returnType : Just (TInterface "Gtk" "ComboBoxText") -- throws : False -- Skip return : False @@ -514,7 +514,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "ComboBoxText"+-- returnType : Just (TInterface "Gtk" "ComboBoxText") -- throws : False -- Skip return : False @@ -535,7 +535,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -574,7 +574,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -605,7 +605,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -633,15 +633,15 @@ -- method ComboBoxText::insert -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_text_insert" gtk_combo_box_text_insert :: Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt CString -> -- id : TBasicType TUTF8 CString -> -- text : TBasicType TUTF8 IO ()@@ -674,15 +674,15 @@ -- method ComboBoxText::insert_text -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_text_insert_text" gtk_combo_box_text_insert_text :: Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt CString -> -- text : TBasicType TUTF8 IO () @@ -709,7 +709,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -748,7 +748,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -777,15 +777,15 @@ -- method ComboBoxText::remove -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_text_remove" gtk_combo_box_text_remove :: Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt IO () @@ -808,7 +808,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ComboBoxText where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -163,19 +163,23 @@ -- ** BorderWidth ContainerBorderWidthPropertyInfo , constructContainerBorderWidth ,+ containerBorderWidth , getContainerBorderWidth , setContainerBorderWidth , -- ** Child ContainerChildPropertyInfo ,+ clearContainerChild , constructContainerChild ,+ containerChild , setContainerChild , -- ** ResizeMode ContainerResizeModePropertyInfo , constructContainerResizeMode ,+ containerResizeMode , getContainerResizeMode , setContainerResizeMode , @@ -235,9 +239,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -756,17 +760,18 @@ connectSignalFunPtr obj "set-focus-child" cb' after -- VVV Prop "border-width"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getContainerBorderWidth :: (MonadIO m, ContainerK o) => o -> m Word32-getContainerBorderWidth obj = liftIO $ getObjectPropertyCUInt obj "border-width"+getContainerBorderWidth obj = liftIO $ getObjectPropertyUInt32 obj "border-width" setContainerBorderWidth :: (MonadIO m, ContainerK o) => o -> Word32 -> m ()-setContainerBorderWidth obj val = liftIO $ setObjectPropertyCUInt obj "border-width" val+setContainerBorderWidth obj val = liftIO $ setObjectPropertyUInt32 obj "border-width" val constructContainerBorderWidth :: Word32 -> IO ([Char], GValue)-constructContainerBorderWidth val = constructObjectPropertyCUInt "border-width" val+constructContainerBorderWidth val = constructObjectPropertyUInt32 "border-width" val data ContainerBorderWidthPropertyInfo instance AttrInfo ContainerBorderWidthPropertyInfo where@@ -778,20 +783,25 @@ attrGet _ = getContainerBorderWidth attrSet _ = setContainerBorderWidth attrConstruct _ = constructContainerBorderWidth+ attrClear _ = undefined -- VVV Prop "child" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyWritable]+ -- Nullable: (Nothing,Nothing) setContainerChild :: (MonadIO m, ContainerK o, WidgetK a) => o -> a -> m ()-setContainerChild obj val = liftIO $ setObjectPropertyObject obj "child" val+setContainerChild obj val = liftIO $ setObjectPropertyObject obj "child" (Just val) constructContainerChild :: (WidgetK a) => a -> IO ([Char], GValue)-constructContainerChild val = constructObjectPropertyObject "child" val+constructContainerChild val = constructObjectPropertyObject "child" (Just val) +clearContainerChild :: (MonadIO m, ContainerK o) => o -> m ()+clearContainerChild obj = liftIO $ setObjectPropertyObject obj "child" (Nothing :: Maybe Widget)+ data ContainerChildPropertyInfo instance AttrInfo ContainerChildPropertyInfo where- type AttrAllowedOps ContainerChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct]+ type AttrAllowedOps ContainerChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint ContainerChildPropertyInfo = WidgetK type AttrBaseTypeConstraint ContainerChildPropertyInfo = ContainerK type AttrGetType ContainerChildPropertyInfo = ()@@ -799,10 +809,12 @@ attrGet _ = undefined attrSet _ = setContainerChild attrConstruct _ = constructContainerChild+ attrClear _ = clearContainerChild -- VVV Prop "resize-mode" -- Type: TInterface "Gtk" "ResizeMode" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getContainerResizeMode :: (MonadIO m, ContainerK o) => o -> m ResizeMode getContainerResizeMode obj = liftIO $ getObjectPropertyEnum obj "resize-mode"@@ -823,10 +835,20 @@ attrGet _ = getContainerResizeMode attrSet _ = setContainerResizeMode attrConstruct _ = constructContainerResizeMode+ attrClear _ = undefined type instance AttributeList Container = ContainerAttributeList type ContainerAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +containerBorderWidth :: AttrLabelProxy "borderWidth"+containerBorderWidth = AttrLabelProxy++containerChild :: AttrLabelProxy "child"+containerChild = AttrLabelProxy++containerResizeMode :: AttrLabelProxy "resizeMode"+containerResizeMode = AttrLabelProxy+ data ContainerAddSignalInfo instance SignalInfo ContainerAddSignalInfo where type HaskellCallbackType ContainerAddSignalInfo = ContainerAddCallback@@ -854,7 +876,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -885,7 +907,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -912,7 +934,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -951,7 +973,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -986,7 +1008,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1020,7 +1042,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1059,7 +1081,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TGType+-- returnType : Just (TBasicType TGType) -- throws : False -- Skip return : False @@ -1085,16 +1107,16 @@ -- method Container::forall -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_container_forall" gtk_container_forall :: Ptr Container -> -- _obj : TInterface "Gtk" "Container" FunPtr CallbackC -> -- callback : TInterface "Gtk" "Callback"- Ptr () -> -- callback_data : TBasicType TVoid+ Ptr () -> -- callback_data : TBasicType TPtr IO () @@ -1118,16 +1140,16 @@ -- method Container::foreach -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_container_foreach" gtk_container_foreach :: Ptr Container -> -- _obj : TInterface "Gtk" "Container" FunPtr CallbackC -> -- callback : TInterface "Gtk" "Callback"- Ptr () -> -- callback_data : TBasicType TVoid+ Ptr () -> -- callback_data : TBasicType TPtr IO () @@ -1153,7 +1175,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -1180,7 +1202,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Gtk" "Widget")+-- returnType : Just (TGList (TInterface "Gtk" "Widget")) -- throws : False -- Skip return : False @@ -1196,7 +1218,6 @@ containerGetChildren _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_container_get_children _obj'- checkUnexpectedReturnNULL "gtk_container_get_children" result result' <- unpackGList result result'' <- mapM (newObject Widget) result' g_list_free result@@ -1211,7 +1232,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focusable_widgets", argType = TGList (TInterface "Gtk" "Widget"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1246,7 +1267,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1275,7 +1296,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Adjustment"+-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -1304,7 +1325,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Adjustment"+-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -1333,7 +1354,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "WidgetPath"+-- returnType : Just (TInterface "Gtk" "WidgetPath") -- throws : False -- Skip return : False @@ -1366,7 +1387,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ResizeMode"+-- returnType : Just (TInterface "Gtk" "ResizeMode") -- throws : False -- Skip return : False @@ -1394,7 +1415,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1429,7 +1450,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1460,7 +1481,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1485,15 +1506,15 @@ -- method Container::set_border_width -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border_width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border_width", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_container_set_border_width" gtk_container_set_border_width :: Ptr Container -> -- _obj : TInterface "Gtk" "Container"- Word32 -> -- border_width : TBasicType TUInt32+ Word32 -> -- border_width : TBasicType TUInt IO () @@ -1516,7 +1537,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focusable_widgets", argType = TGList (TInterface "Gtk" "Widget"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1549,7 +1570,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1584,7 +1605,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1615,7 +1636,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1646,7 +1667,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "needs_redraws", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1676,7 +1697,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resize_mode", argType = TInterface "Gtk" "ResizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1706,7 +1727,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Container where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ContainerAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -40,9 +40,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -155,7 +155,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "ContainerCellAccessible"+-- returnType : Just (TInterface "Gtk" "ContainerCellAccessible") -- throws : False -- Skip return : False @@ -176,7 +176,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -207,7 +207,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Gtk" "CellAccessible")+-- returnType : Just (TGList (TInterface "Gtk" "CellAccessible")) -- throws : False -- Skip return : False @@ -223,7 +223,6 @@ containerCellAccessibleGetChildren _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_container_cell_accessible_get_children _obj'- checkUnexpectedReturnNULL "gtk_container_cell_accessible_get_children" result result' <- unpackGList result result'' <- mapM (newObject CellAccessible) result' touchManagedPtr _obj@@ -237,7 +236,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ContainerCellAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -73,9 +73,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -208,7 +208,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "CssProvider"+-- returnType : Just (TInterface "Gtk" "CssProvider") -- throws : False -- Skip return : False @@ -229,7 +229,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -267,7 +267,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -303,7 +303,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -339,7 +339,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -370,7 +370,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -400,7 +400,7 @@ -- method type : MemberFunction -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "CssProvider"+-- returnType : Just (TInterface "Gtk" "CssProvider") -- throws : False -- Skip return : False @@ -421,7 +421,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variant", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "CssProvider"+-- returnType : Just (TInterface "Gtk" "CssProvider") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.CssProvider where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -87,6 +87,7 @@ -- ** UseHeaderBar DialogUseHeaderBarPropertyInfo , constructDialogUseHeaderBar ,+ dialogUseHeaderBar , getDialogUseHeaderBar , @@ -121,9 +122,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -670,14 +671,15 @@ connectSignalFunPtr obj "response" cb' after -- VVV Prop "use-header-bar"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+ -- Nullable: (Nothing,Nothing) getDialogUseHeaderBar :: (MonadIO m, DialogK o) => o -> m Int32-getDialogUseHeaderBar obj = liftIO $ getObjectPropertyCInt obj "use-header-bar"+getDialogUseHeaderBar obj = liftIO $ getObjectPropertyInt32 obj "use-header-bar" constructDialogUseHeaderBar :: Int32 -> IO ([Char], GValue)-constructDialogUseHeaderBar val = constructObjectPropertyCInt "use-header-bar" val+constructDialogUseHeaderBar val = constructObjectPropertyInt32 "use-header-bar" val data DialogUseHeaderBarPropertyInfo instance AttrInfo DialogUseHeaderBarPropertyInfo where@@ -689,10 +691,14 @@ attrGet _ = getDialogUseHeaderBar attrSet _ = undefined attrConstruct _ = constructDialogUseHeaderBar+ attrClear _ = undefined type instance AttributeList Dialog = DialogAttributeList type DialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +dialogUseHeaderBar :: AttrLabelProxy "useHeaderBar"+dialogUseHeaderBar = AttrLabelProxy+ data DialogCloseSignalInfo instance SignalInfo DialogCloseSignalInfo where type HaskellCallbackType DialogCloseSignalInfo = DialogCloseCallback@@ -710,7 +716,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "Dialog"+-- returnType : Just (TInterface "Gtk" "Dialog") -- throws : False -- Skip return : False @@ -729,16 +735,16 @@ -- method Dialog::add_action_widget -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_dialog_add_action_widget" gtk_dialog_add_action_widget :: Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" Ptr Widget -> -- child : TInterface "Gtk" "Widget"- Int32 -> -- response_id : TBasicType TInt32+ Int32 -> -- response_id : TBasicType TInt IO () @@ -762,16 +768,16 @@ -- method Dialog::add_button -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False foreign import ccall "gtk_dialog_add_button" gtk_dialog_add_button :: Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" CString -> -- button_text : TBasicType TUTF8- Int32 -> -- response_id : TBasicType TInt32+ Int32 -> -- response_id : TBasicType TInt IO (Ptr Widget) @@ -799,7 +805,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -828,7 +834,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Box"+-- returnType : Just (TInterface "Gtk" "Box") -- throws : False -- Skip return : False @@ -857,7 +863,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -886,7 +892,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -915,15 +921,15 @@ -- method Dialog::get_widget_for_response -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False foreign import ccall "gtk_dialog_get_widget_for_response" gtk_dialog_get_widget_for_response :: Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog"- Int32 -> -- response_id : TBasicType TInt32+ Int32 -> -- response_id : TBasicType TInt IO (Ptr Widget) @@ -946,15 +952,15 @@ -- method Dialog::response -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_dialog_response" gtk_dialog_response :: Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog"- Int32 -> -- response_id : TBasicType TInt32+ Int32 -> -- response_id : TBasicType TInt IO () @@ -977,7 +983,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1002,16 +1008,16 @@ -- method Dialog::set_alternative_button_order_from_array -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TVoid+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_params", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray False (-1) 1 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_params", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_dialog_set_alternative_button_order_from_array" gtk_dialog_set_alternative_button_order_from_array :: Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog"- Int32 -> -- n_params : TBasicType TInt32- Ptr Int32 -> -- new_order : TCArray False (-1) 1 (TBasicType TInt32)+ Int32 -> -- n_params : TBasicType TInt+ Ptr Int32 -> -- new_order : TCArray False (-1) 1 (TBasicType TInt) IO () {-# DEPRECATED dialogSetAlternativeButtonOrderFromArray ["(Since version 3.10)","Deprecated"]#-}@@ -1035,15 +1041,15 @@ -- method Dialog::set_default_response -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_dialog_set_default_response" gtk_dialog_set_default_response :: Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog"- Int32 -> -- response_id : TBasicType TInt32+ Int32 -> -- response_id : TBasicType TInt IO () @@ -1064,15 +1070,15 @@ -- method Dialog::set_response_sensitive -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_dialog_set_response_sensitive" gtk_dialog_set_response_sensitive :: Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog"- Int32 -> -- response_id : TBasicType TInt32+ Int32 -> -- response_id : TBasicType TInt CInt -> -- setting : TBasicType TBoolean IO ()
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Dialog where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -25,9 +25,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -364,7 +364,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "DrawingArea"+-- returnType : Just (TInterface "Gtk" "DrawingArea") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.DrawingArea where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -401,6 +401,7 @@ -- ** ActivatesDefault EntryActivatesDefaultPropertyInfo , constructEntryActivatesDefault ,+ entryActivatesDefault , getEntryActivatesDefault , setEntryActivatesDefault , @@ -408,6 +409,7 @@ -- ** Attributes EntryAttributesPropertyInfo , constructEntryAttributes ,+ entryAttributes , getEntryAttributes , setEntryAttributes , @@ -415,6 +417,7 @@ -- ** Buffer EntryBufferPropertyInfo , constructEntryBuffer ,+ entryBuffer , getEntryBuffer , setEntryBuffer , @@ -422,25 +425,30 @@ -- ** CapsLockWarning EntryCapsLockWarningPropertyInfo , constructEntryCapsLockWarning ,+ entryCapsLockWarning , getEntryCapsLockWarning , setEntryCapsLockWarning , -- ** Completion EntryCompletionPropertyInfo ,+ clearEntryCompletion , constructEntryCompletion ,+ entryCompletion , getEntryCompletion , setEntryCompletion , -- ** CursorPosition EntryCursorPositionPropertyInfo ,+ entryCursorPosition , getEntryCursorPosition , -- ** Editable EntryEditablePropertyInfo , constructEntryEditable ,+ entryEditable , getEntryEditable , setEntryEditable , @@ -448,20 +456,25 @@ -- ** HasFrame EntryHasFramePropertyInfo , constructEntryHasFrame ,+ entryHasFrame , getEntryHasFrame , setEntryHasFrame , -- ** ImModule EntryImModulePropertyInfo ,+ clearEntryImModule , constructEntryImModule ,+ entryImModule , getEntryImModule , setEntryImModule , -- ** InnerBorder EntryInnerBorderPropertyInfo ,+ clearEntryInnerBorder , constructEntryInnerBorder ,+ entryInnerBorder , getEntryInnerBorder , setEntryInnerBorder , @@ -469,6 +482,7 @@ -- ** InputHints EntryInputHintsPropertyInfo , constructEntryInputHints ,+ entryInputHints , getEntryInputHints , setEntryInputHints , @@ -476,6 +490,7 @@ -- ** InputPurpose EntryInputPurposePropertyInfo , constructEntryInputPurpose ,+ entryInputPurpose , getEntryInputPurpose , setEntryInputPurpose , @@ -483,6 +498,7 @@ -- ** InvisibleChar EntryInvisibleCharPropertyInfo , constructEntryInvisibleChar ,+ entryInvisibleChar , getEntryInvisibleChar , setEntryInvisibleChar , @@ -490,6 +506,7 @@ -- ** InvisibleCharSet EntryInvisibleCharSetPropertyInfo , constructEntryInvisibleCharSet ,+ entryInvisibleCharSet , getEntryInvisibleCharSet , setEntryInvisibleCharSet , @@ -497,6 +514,7 @@ -- ** MaxLength EntryMaxLengthPropertyInfo , constructEntryMaxLength ,+ entryMaxLength , getEntryMaxLength , setEntryMaxLength , @@ -504,6 +522,7 @@ -- ** MaxWidthChars EntryMaxWidthCharsPropertyInfo , constructEntryMaxWidthChars ,+ entryMaxWidthChars , getEntryMaxWidthChars , setEntryMaxWidthChars , @@ -511,13 +530,16 @@ -- ** OverwriteMode EntryOverwriteModePropertyInfo , constructEntryOverwriteMode ,+ entryOverwriteMode , getEntryOverwriteMode , setEntryOverwriteMode , -- ** PlaceholderText EntryPlaceholderTextPropertyInfo ,+ clearEntryPlaceholderText , constructEntryPlaceholderText ,+ entryPlaceholderText , getEntryPlaceholderText , setEntryPlaceholderText , @@ -525,6 +547,7 @@ -- ** PopulateAll EntryPopulateAllPropertyInfo , constructEntryPopulateAll ,+ entryPopulateAll , getEntryPopulateAll , setEntryPopulateAll , @@ -532,27 +555,34 @@ -- ** PrimaryIconActivatable EntryPrimaryIconActivatablePropertyInfo , constructEntryPrimaryIconActivatable ,+ entryPrimaryIconActivatable , getEntryPrimaryIconActivatable , setEntryPrimaryIconActivatable , -- ** PrimaryIconGicon EntryPrimaryIconGiconPropertyInfo ,+ clearEntryPrimaryIconGicon , constructEntryPrimaryIconGicon ,+ entryPrimaryIconGicon , getEntryPrimaryIconGicon , setEntryPrimaryIconGicon , -- ** PrimaryIconName EntryPrimaryIconNamePropertyInfo ,+ clearEntryPrimaryIconName , constructEntryPrimaryIconName ,+ entryPrimaryIconName , getEntryPrimaryIconName , setEntryPrimaryIconName , -- ** PrimaryIconPixbuf EntryPrimaryIconPixbufPropertyInfo ,+ clearEntryPrimaryIconPixbuf , constructEntryPrimaryIconPixbuf ,+ entryPrimaryIconPixbuf , getEntryPrimaryIconPixbuf , setEntryPrimaryIconPixbuf , @@ -560,32 +590,40 @@ -- ** PrimaryIconSensitive EntryPrimaryIconSensitivePropertyInfo , constructEntryPrimaryIconSensitive ,+ entryPrimaryIconSensitive , getEntryPrimaryIconSensitive , setEntryPrimaryIconSensitive , -- ** PrimaryIconStock EntryPrimaryIconStockPropertyInfo ,+ clearEntryPrimaryIconStock , constructEntryPrimaryIconStock ,+ entryPrimaryIconStock , getEntryPrimaryIconStock , setEntryPrimaryIconStock , -- ** PrimaryIconStorageType EntryPrimaryIconStorageTypePropertyInfo ,+ entryPrimaryIconStorageType , getEntryPrimaryIconStorageType , -- ** PrimaryIconTooltipMarkup EntryPrimaryIconTooltipMarkupPropertyInfo,+ clearEntryPrimaryIconTooltipMarkup , constructEntryPrimaryIconTooltipMarkup ,+ entryPrimaryIconTooltipMarkup , getEntryPrimaryIconTooltipMarkup , setEntryPrimaryIconTooltipMarkup , -- ** PrimaryIconTooltipText EntryPrimaryIconTooltipTextPropertyInfo ,+ clearEntryPrimaryIconTooltipText , constructEntryPrimaryIconTooltipText ,+ entryPrimaryIconTooltipText , getEntryPrimaryIconTooltipText , setEntryPrimaryIconTooltipText , @@ -593,6 +631,7 @@ -- ** ProgressFraction EntryProgressFractionPropertyInfo , constructEntryProgressFraction ,+ entryProgressFraction , getEntryProgressFraction , setEntryProgressFraction , @@ -600,39 +639,48 @@ -- ** ProgressPulseStep EntryProgressPulseStepPropertyInfo , constructEntryProgressPulseStep ,+ entryProgressPulseStep , getEntryProgressPulseStep , setEntryProgressPulseStep , -- ** ScrollOffset EntryScrollOffsetPropertyInfo ,+ entryScrollOffset , getEntryScrollOffset , -- ** SecondaryIconActivatable EntrySecondaryIconActivatablePropertyInfo, constructEntrySecondaryIconActivatable ,+ entrySecondaryIconActivatable , getEntrySecondaryIconActivatable , setEntrySecondaryIconActivatable , -- ** SecondaryIconGicon EntrySecondaryIconGiconPropertyInfo ,+ clearEntrySecondaryIconGicon , constructEntrySecondaryIconGicon ,+ entrySecondaryIconGicon , getEntrySecondaryIconGicon , setEntrySecondaryIconGicon , -- ** SecondaryIconName EntrySecondaryIconNamePropertyInfo ,+ clearEntrySecondaryIconName , constructEntrySecondaryIconName ,+ entrySecondaryIconName , getEntrySecondaryIconName , setEntrySecondaryIconName , -- ** SecondaryIconPixbuf EntrySecondaryIconPixbufPropertyInfo ,+ clearEntrySecondaryIconPixbuf , constructEntrySecondaryIconPixbuf ,+ entrySecondaryIconPixbuf , getEntrySecondaryIconPixbuf , setEntrySecondaryIconPixbuf , @@ -640,44 +688,54 @@ -- ** SecondaryIconSensitive EntrySecondaryIconSensitivePropertyInfo , constructEntrySecondaryIconSensitive ,+ entrySecondaryIconSensitive , getEntrySecondaryIconSensitive , setEntrySecondaryIconSensitive , -- ** SecondaryIconStock EntrySecondaryIconStockPropertyInfo ,+ clearEntrySecondaryIconStock , constructEntrySecondaryIconStock ,+ entrySecondaryIconStock , getEntrySecondaryIconStock , setEntrySecondaryIconStock , -- ** SecondaryIconStorageType EntrySecondaryIconStorageTypePropertyInfo,+ entrySecondaryIconStorageType , getEntrySecondaryIconStorageType , -- ** SecondaryIconTooltipMarkup EntrySecondaryIconTooltipMarkupPropertyInfo,+ clearEntrySecondaryIconTooltipMarkup , constructEntrySecondaryIconTooltipMarkup,+ entrySecondaryIconTooltipMarkup , getEntrySecondaryIconTooltipMarkup , setEntrySecondaryIconTooltipMarkup , -- ** SecondaryIconTooltipText EntrySecondaryIconTooltipTextPropertyInfo,+ clearEntrySecondaryIconTooltipText , constructEntrySecondaryIconTooltipText ,+ entrySecondaryIconTooltipText , getEntrySecondaryIconTooltipText , setEntrySecondaryIconTooltipText , -- ** SelectionBound EntrySelectionBoundPropertyInfo ,+ entrySelectionBound , getEntrySelectionBound , -- ** ShadowType EntryShadowTypePropertyInfo , constructEntryShadowType ,+ entryShadowType , getEntryShadowType , setEntryShadowType , @@ -685,6 +743,7 @@ -- ** Tabs EntryTabsPropertyInfo , constructEntryTabs ,+ entryTabs , getEntryTabs , setEntryTabs , @@ -692,18 +751,21 @@ -- ** Text EntryTextPropertyInfo , constructEntryText ,+ entryText , getEntryText , setEntryText , -- ** TextLength EntryTextLengthPropertyInfo ,+ entryTextLength , getEntryTextLength , -- ** TruncateMultiline EntryTruncateMultilinePropertyInfo , constructEntryTruncateMultiline ,+ entryTruncateMultiline , getEntryTruncateMultiline , setEntryTruncateMultiline , @@ -711,6 +773,7 @@ -- ** Visibility EntryVisibilityPropertyInfo , constructEntryVisibility ,+ entryVisibility , getEntryVisibility , setEntryVisibility , @@ -718,6 +781,7 @@ -- ** WidthChars EntryWidthCharsPropertyInfo , constructEntryWidthChars ,+ entryWidthChars , getEntryWidthChars , setEntryWidthChars , @@ -725,6 +789,7 @@ -- ** Xalign EntryXalignPropertyInfo , constructEntryXalign ,+ entryXalign , getEntryXalign , setEntryXalign , @@ -892,9 +957,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -1858,6 +1923,7 @@ -- VVV Prop "activates-default" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryActivatesDefault :: (MonadIO m, EntryK o) => o -> m Bool getEntryActivatesDefault obj = liftIO $ getObjectPropertyBool obj "activates-default"@@ -1878,43 +1944,47 @@ attrGet _ = getEntryActivatesDefault attrSet _ = setEntryActivatesDefault attrConstruct _ = constructEntryActivatesDefault+ attrClear _ = undefined -- VVV Prop "attributes" -- Type: TInterface "Pango" "AttrList" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just True,Just False) -getEntryAttributes :: (MonadIO m, EntryK o) => o -> m Pango.AttrList+getEntryAttributes :: (MonadIO m, EntryK o) => o -> m (Maybe Pango.AttrList) getEntryAttributes obj = liftIO $ getObjectPropertyBoxed obj "attributes" Pango.AttrList setEntryAttributes :: (MonadIO m, EntryK o) => o -> Pango.AttrList -> m ()-setEntryAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" val+setEntryAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" (Just val) constructEntryAttributes :: Pango.AttrList -> IO ([Char], GValue)-constructEntryAttributes val = constructObjectPropertyBoxed "attributes" val+constructEntryAttributes val = constructObjectPropertyBoxed "attributes" (Just val) data EntryAttributesPropertyInfo instance AttrInfo EntryAttributesPropertyInfo where type AttrAllowedOps EntryAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint EntryAttributesPropertyInfo = (~) Pango.AttrList type AttrBaseTypeConstraint EntryAttributesPropertyInfo = EntryK- type AttrGetType EntryAttributesPropertyInfo = Pango.AttrList+ type AttrGetType EntryAttributesPropertyInfo = (Maybe Pango.AttrList) type AttrLabel EntryAttributesPropertyInfo = "attributes" attrGet _ = getEntryAttributes attrSet _ = setEntryAttributes attrConstruct _ = constructEntryAttributes+ attrClear _ = undefined -- VVV Prop "buffer" -- Type: TInterface "Gtk" "EntryBuffer" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getEntryBuffer :: (MonadIO m, EntryK o) => o -> m EntryBuffer-getEntryBuffer obj = liftIO $ getObjectPropertyObject obj "buffer" EntryBuffer+getEntryBuffer obj = liftIO $ checkUnexpectedNothing "getEntryBuffer" $ getObjectPropertyObject obj "buffer" EntryBuffer setEntryBuffer :: (MonadIO m, EntryK o, EntryBufferK a) => o -> a -> m ()-setEntryBuffer obj val = liftIO $ setObjectPropertyObject obj "buffer" val+setEntryBuffer obj val = liftIO $ setObjectPropertyObject obj "buffer" (Just val) constructEntryBuffer :: (EntryBufferK a) => a -> IO ([Char], GValue)-constructEntryBuffer val = constructObjectPropertyObject "buffer" val+constructEntryBuffer val = constructObjectPropertyObject "buffer" (Just val) data EntryBufferPropertyInfo instance AttrInfo EntryBufferPropertyInfo where@@ -1926,10 +1996,12 @@ attrGet _ = getEntryBuffer attrSet _ = setEntryBuffer attrConstruct _ = constructEntryBuffer+ attrClear _ = undefined -- VVV Prop "caps-lock-warning" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getEntryCapsLockWarning :: (MonadIO m, EntryK o) => o -> m Bool getEntryCapsLockWarning obj = liftIO $ getObjectPropertyBool obj "caps-lock-warning"@@ -1950,23 +2022,28 @@ attrGet _ = getEntryCapsLockWarning attrSet _ = setEntryCapsLockWarning attrConstruct _ = constructEntryCapsLockWarning+ attrClear _ = undefined -- VVV Prop "completion" -- Type: TInterface "Gtk" "EntryCompletion" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getEntryCompletion :: (MonadIO m, EntryK o) => o -> m EntryCompletion-getEntryCompletion obj = liftIO $ getObjectPropertyObject obj "completion" EntryCompletion+getEntryCompletion obj = liftIO $ checkUnexpectedNothing "getEntryCompletion" $ getObjectPropertyObject obj "completion" EntryCompletion setEntryCompletion :: (MonadIO m, EntryK o, EntryCompletionK a) => o -> a -> m ()-setEntryCompletion obj val = liftIO $ setObjectPropertyObject obj "completion" val+setEntryCompletion obj val = liftIO $ setObjectPropertyObject obj "completion" (Just val) constructEntryCompletion :: (EntryCompletionK a) => a -> IO ([Char], GValue)-constructEntryCompletion val = constructObjectPropertyObject "completion" val+constructEntryCompletion val = constructObjectPropertyObject "completion" (Just val) +clearEntryCompletion :: (MonadIO m, EntryK o) => o -> m ()+clearEntryCompletion obj = liftIO $ setObjectPropertyObject obj "completion" (Nothing :: Maybe EntryCompletion)+ data EntryCompletionPropertyInfo instance AttrInfo EntryCompletionPropertyInfo where- type AttrAllowedOps EntryCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EntryCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryCompletionPropertyInfo = EntryCompletionK type AttrBaseTypeConstraint EntryCompletionPropertyInfo = EntryK type AttrGetType EntryCompletionPropertyInfo = EntryCompletion@@ -1974,13 +2051,15 @@ attrGet _ = getEntryCompletion attrSet _ = setEntryCompletion attrConstruct _ = constructEntryCompletion+ attrClear _ = clearEntryCompletion -- VVV Prop "cursor-position"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) getEntryCursorPosition :: (MonadIO m, EntryK o) => o -> m Int32-getEntryCursorPosition obj = liftIO $ getObjectPropertyCInt obj "cursor-position"+getEntryCursorPosition obj = liftIO $ getObjectPropertyInt32 obj "cursor-position" data EntryCursorPositionPropertyInfo instance AttrInfo EntryCursorPositionPropertyInfo where@@ -1992,10 +2071,12 @@ attrGet _ = getEntryCursorPosition attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "editable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getEntryEditable :: (MonadIO m, EntryK o) => o -> m Bool getEntryEditable obj = liftIO $ getObjectPropertyBool obj "editable"@@ -2016,10 +2097,12 @@ attrGet _ = getEntryEditable attrSet _ = setEntryEditable attrConstruct _ = constructEntryEditable+ attrClear _ = undefined -- VVV Prop "has-frame" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryHasFrame :: (MonadIO m, EntryK o) => o -> m Bool getEntryHasFrame obj = liftIO $ getObjectPropertyBool obj "has-frame"@@ -2040,58 +2123,70 @@ attrGet _ = getEntryHasFrame attrSet _ = setEntryHasFrame attrConstruct _ = constructEntryHasFrame+ attrClear _ = undefined -- VVV Prop "im-module" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getEntryImModule :: (MonadIO m, EntryK o) => o -> m T.Text+getEntryImModule :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) getEntryImModule obj = liftIO $ getObjectPropertyString obj "im-module" setEntryImModule :: (MonadIO m, EntryK o) => o -> T.Text -> m ()-setEntryImModule obj val = liftIO $ setObjectPropertyString obj "im-module" val+setEntryImModule obj val = liftIO $ setObjectPropertyString obj "im-module" (Just val) constructEntryImModule :: T.Text -> IO ([Char], GValue)-constructEntryImModule val = constructObjectPropertyString "im-module" val+constructEntryImModule val = constructObjectPropertyString "im-module" (Just val) +clearEntryImModule :: (MonadIO m, EntryK o) => o -> m ()+clearEntryImModule obj = liftIO $ setObjectPropertyString obj "im-module" (Nothing :: Maybe T.Text)+ data EntryImModulePropertyInfo instance AttrInfo EntryImModulePropertyInfo where- type AttrAllowedOps EntryImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EntryImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryImModulePropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntryImModulePropertyInfo = EntryK- type AttrGetType EntryImModulePropertyInfo = T.Text+ type AttrGetType EntryImModulePropertyInfo = (Maybe T.Text) type AttrLabel EntryImModulePropertyInfo = "im-module" attrGet _ = getEntryImModule attrSet _ = setEntryImModule attrConstruct _ = constructEntryImModule+ attrClear _ = clearEntryImModule -- VVV Prop "inner-border" -- Type: TInterface "Gtk" "Border" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just True,Just True) -getEntryInnerBorder :: (MonadIO m, EntryK o) => o -> m Border+getEntryInnerBorder :: (MonadIO m, EntryK o) => o -> m (Maybe Border) getEntryInnerBorder obj = liftIO $ getObjectPropertyBoxed obj "inner-border" Border setEntryInnerBorder :: (MonadIO m, EntryK o) => o -> Border -> m ()-setEntryInnerBorder obj val = liftIO $ setObjectPropertyBoxed obj "inner-border" val+setEntryInnerBorder obj val = liftIO $ setObjectPropertyBoxed obj "inner-border" (Just val) constructEntryInnerBorder :: Border -> IO ([Char], GValue)-constructEntryInnerBorder val = constructObjectPropertyBoxed "inner-border" val+constructEntryInnerBorder val = constructObjectPropertyBoxed "inner-border" (Just val) +clearEntryInnerBorder :: (MonadIO m, EntryK o) => o -> m ()+clearEntryInnerBorder obj = liftIO $ setObjectPropertyBoxed obj "inner-border" (Nothing :: Maybe Border)+ data EntryInnerBorderPropertyInfo instance AttrInfo EntryInnerBorderPropertyInfo where- type AttrAllowedOps EntryInnerBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EntryInnerBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryInnerBorderPropertyInfo = (~) Border type AttrBaseTypeConstraint EntryInnerBorderPropertyInfo = EntryK- type AttrGetType EntryInnerBorderPropertyInfo = Border+ type AttrGetType EntryInnerBorderPropertyInfo = (Maybe Border) type AttrLabel EntryInnerBorderPropertyInfo = "inner-border" attrGet _ = getEntryInnerBorder attrSet _ = setEntryInnerBorder attrConstruct _ = constructEntryInnerBorder+ attrClear _ = clearEntryInnerBorder -- VVV Prop "input-hints" -- Type: TInterface "Gtk" "InputHints" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryInputHints :: (MonadIO m, EntryK o) => o -> m [InputHints] getEntryInputHints obj = liftIO $ getObjectPropertyFlags obj "input-hints"@@ -2112,10 +2207,12 @@ attrGet _ = getEntryInputHints attrSet _ = setEntryInputHints attrConstruct _ = constructEntryInputHints+ attrClear _ = undefined -- VVV Prop "input-purpose" -- Type: TInterface "Gtk" "InputPurpose" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryInputPurpose :: (MonadIO m, EntryK o) => o -> m InputPurpose getEntryInputPurpose obj = liftIO $ getObjectPropertyEnum obj "input-purpose"@@ -2136,19 +2233,21 @@ attrGet _ = getEntryInputPurpose attrSet _ = setEntryInputPurpose attrConstruct _ = constructEntryInputPurpose+ attrClear _ = undefined -- VVV Prop "invisible-char"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getEntryInvisibleChar :: (MonadIO m, EntryK o) => o -> m Word32-getEntryInvisibleChar obj = liftIO $ getObjectPropertyCUInt obj "invisible-char"+getEntryInvisibleChar obj = liftIO $ getObjectPropertyUInt32 obj "invisible-char" setEntryInvisibleChar :: (MonadIO m, EntryK o) => o -> Word32 -> m ()-setEntryInvisibleChar obj val = liftIO $ setObjectPropertyCUInt obj "invisible-char" val+setEntryInvisibleChar obj val = liftIO $ setObjectPropertyUInt32 obj "invisible-char" val constructEntryInvisibleChar :: Word32 -> IO ([Char], GValue)-constructEntryInvisibleChar val = constructObjectPropertyCUInt "invisible-char" val+constructEntryInvisibleChar val = constructObjectPropertyUInt32 "invisible-char" val data EntryInvisibleCharPropertyInfo instance AttrInfo EntryInvisibleCharPropertyInfo where@@ -2160,10 +2259,12 @@ attrGet _ = getEntryInvisibleChar attrSet _ = setEntryInvisibleChar attrConstruct _ = constructEntryInvisibleChar+ attrClear _ = undefined -- VVV Prop "invisible-char-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getEntryInvisibleCharSet :: (MonadIO m, EntryK o) => o -> m Bool getEntryInvisibleCharSet obj = liftIO $ getObjectPropertyBool obj "invisible-char-set"@@ -2184,19 +2285,21 @@ attrGet _ = getEntryInvisibleCharSet attrSet _ = setEntryInvisibleCharSet attrConstruct _ = constructEntryInvisibleCharSet+ attrClear _ = undefined -- VVV Prop "max-length"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryMaxLength :: (MonadIO m, EntryK o) => o -> m Int32-getEntryMaxLength obj = liftIO $ getObjectPropertyCInt obj "max-length"+getEntryMaxLength obj = liftIO $ getObjectPropertyInt32 obj "max-length" setEntryMaxLength :: (MonadIO m, EntryK o) => o -> Int32 -> m ()-setEntryMaxLength obj val = liftIO $ setObjectPropertyCInt obj "max-length" val+setEntryMaxLength obj val = liftIO $ setObjectPropertyInt32 obj "max-length" val constructEntryMaxLength :: Int32 -> IO ([Char], GValue)-constructEntryMaxLength val = constructObjectPropertyCInt "max-length" val+constructEntryMaxLength val = constructObjectPropertyInt32 "max-length" val data EntryMaxLengthPropertyInfo instance AttrInfo EntryMaxLengthPropertyInfo where@@ -2208,19 +2311,21 @@ attrGet _ = getEntryMaxLength attrSet _ = setEntryMaxLength attrConstruct _ = constructEntryMaxLength+ attrClear _ = undefined -- VVV Prop "max-width-chars"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryMaxWidthChars :: (MonadIO m, EntryK o) => o -> m Int32-getEntryMaxWidthChars obj = liftIO $ getObjectPropertyCInt obj "max-width-chars"+getEntryMaxWidthChars obj = liftIO $ getObjectPropertyInt32 obj "max-width-chars" setEntryMaxWidthChars :: (MonadIO m, EntryK o) => o -> Int32 -> m ()-setEntryMaxWidthChars obj val = liftIO $ setObjectPropertyCInt obj "max-width-chars" val+setEntryMaxWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "max-width-chars" val constructEntryMaxWidthChars :: Int32 -> IO ([Char], GValue)-constructEntryMaxWidthChars val = constructObjectPropertyCInt "max-width-chars" val+constructEntryMaxWidthChars val = constructObjectPropertyInt32 "max-width-chars" val data EntryMaxWidthCharsPropertyInfo instance AttrInfo EntryMaxWidthCharsPropertyInfo where@@ -2232,10 +2337,12 @@ attrGet _ = getEntryMaxWidthChars attrSet _ = setEntryMaxWidthChars attrConstruct _ = constructEntryMaxWidthChars+ attrClear _ = undefined -- VVV Prop "overwrite-mode" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryOverwriteMode :: (MonadIO m, EntryK o) => o -> m Bool getEntryOverwriteMode obj = liftIO $ getObjectPropertyBool obj "overwrite-mode"@@ -2256,23 +2363,28 @@ attrGet _ = getEntryOverwriteMode attrSet _ = setEntryOverwriteMode attrConstruct _ = constructEntryOverwriteMode+ attrClear _ = undefined -- VVV Prop "placeholder-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getEntryPlaceholderText :: (MonadIO m, EntryK o) => o -> m T.Text-getEntryPlaceholderText obj = liftIO $ getObjectPropertyString obj "placeholder-text"+getEntryPlaceholderText obj = liftIO $ checkUnexpectedNothing "getEntryPlaceholderText" $ getObjectPropertyString obj "placeholder-text" setEntryPlaceholderText :: (MonadIO m, EntryK o) => o -> T.Text -> m ()-setEntryPlaceholderText obj val = liftIO $ setObjectPropertyString obj "placeholder-text" val+setEntryPlaceholderText obj val = liftIO $ setObjectPropertyString obj "placeholder-text" (Just val) constructEntryPlaceholderText :: T.Text -> IO ([Char], GValue)-constructEntryPlaceholderText val = constructObjectPropertyString "placeholder-text" val+constructEntryPlaceholderText val = constructObjectPropertyString "placeholder-text" (Just val) +clearEntryPlaceholderText :: (MonadIO m, EntryK o) => o -> m ()+clearEntryPlaceholderText obj = liftIO $ setObjectPropertyString obj "placeholder-text" (Nothing :: Maybe T.Text)+ data EntryPlaceholderTextPropertyInfo instance AttrInfo EntryPlaceholderTextPropertyInfo where- type AttrAllowedOps EntryPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EntryPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryPlaceholderTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntryPlaceholderTextPropertyInfo = EntryK type AttrGetType EntryPlaceholderTextPropertyInfo = T.Text@@ -2280,10 +2392,12 @@ attrGet _ = getEntryPlaceholderText attrSet _ = setEntryPlaceholderText attrConstruct _ = constructEntryPlaceholderText+ attrClear _ = clearEntryPlaceholderText -- VVV Prop "populate-all" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getEntryPopulateAll :: (MonadIO m, EntryK o) => o -> m Bool getEntryPopulateAll obj = liftIO $ getObjectPropertyBool obj "populate-all"@@ -2304,10 +2418,12 @@ attrGet _ = getEntryPopulateAll attrSet _ = setEntryPopulateAll attrConstruct _ = constructEntryPopulateAll+ attrClear _ = undefined -- VVV Prop "primary-icon-activatable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getEntryPrimaryIconActivatable :: (MonadIO m, EntryK o) => o -> m Bool getEntryPrimaryIconActivatable obj = liftIO $ getObjectPropertyBool obj "primary-icon-activatable"@@ -2328,82 +2444,99 @@ attrGet _ = getEntryPrimaryIconActivatable attrSet _ = setEntryPrimaryIconActivatable attrConstruct _ = constructEntryPrimaryIconActivatable+ attrClear _ = undefined -- VVV Prop "primary-icon-gicon" -- Type: TInterface "Gio" "Icon" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getEntryPrimaryIconGicon :: (MonadIO m, EntryK o) => o -> m Gio.Icon+getEntryPrimaryIconGicon :: (MonadIO m, EntryK o) => o -> m (Maybe Gio.Icon) getEntryPrimaryIconGicon obj = liftIO $ getObjectPropertyObject obj "primary-icon-gicon" Gio.Icon setEntryPrimaryIconGicon :: (MonadIO m, EntryK o, Gio.IconK a) => o -> a -> m ()-setEntryPrimaryIconGicon obj val = liftIO $ setObjectPropertyObject obj "primary-icon-gicon" val+setEntryPrimaryIconGicon obj val = liftIO $ setObjectPropertyObject obj "primary-icon-gicon" (Just val) constructEntryPrimaryIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue)-constructEntryPrimaryIconGicon val = constructObjectPropertyObject "primary-icon-gicon" val+constructEntryPrimaryIconGicon val = constructObjectPropertyObject "primary-icon-gicon" (Just val) +clearEntryPrimaryIconGicon :: (MonadIO m, EntryK o) => o -> m ()+clearEntryPrimaryIconGicon obj = liftIO $ setObjectPropertyObject obj "primary-icon-gicon" (Nothing :: Maybe Gio.Icon)+ data EntryPrimaryIconGiconPropertyInfo instance AttrInfo EntryPrimaryIconGiconPropertyInfo where- type AttrAllowedOps EntryPrimaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EntryPrimaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryPrimaryIconGiconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint EntryPrimaryIconGiconPropertyInfo = EntryK- type AttrGetType EntryPrimaryIconGiconPropertyInfo = Gio.Icon+ type AttrGetType EntryPrimaryIconGiconPropertyInfo = (Maybe Gio.Icon) type AttrLabel EntryPrimaryIconGiconPropertyInfo = "primary-icon-gicon" attrGet _ = getEntryPrimaryIconGicon attrSet _ = setEntryPrimaryIconGicon attrConstruct _ = constructEntryPrimaryIconGicon+ attrClear _ = clearEntryPrimaryIconGicon -- VVV Prop "primary-icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getEntryPrimaryIconName :: (MonadIO m, EntryK o) => o -> m T.Text+getEntryPrimaryIconName :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) getEntryPrimaryIconName obj = liftIO $ getObjectPropertyString obj "primary-icon-name" setEntryPrimaryIconName :: (MonadIO m, EntryK o) => o -> T.Text -> m ()-setEntryPrimaryIconName obj val = liftIO $ setObjectPropertyString obj "primary-icon-name" val+setEntryPrimaryIconName obj val = liftIO $ setObjectPropertyString obj "primary-icon-name" (Just val) constructEntryPrimaryIconName :: T.Text -> IO ([Char], GValue)-constructEntryPrimaryIconName val = constructObjectPropertyString "primary-icon-name" val+constructEntryPrimaryIconName val = constructObjectPropertyString "primary-icon-name" (Just val) +clearEntryPrimaryIconName :: (MonadIO m, EntryK o) => o -> m ()+clearEntryPrimaryIconName obj = liftIO $ setObjectPropertyString obj "primary-icon-name" (Nothing :: Maybe T.Text)+ data EntryPrimaryIconNamePropertyInfo instance AttrInfo EntryPrimaryIconNamePropertyInfo where- type AttrAllowedOps EntryPrimaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EntryPrimaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryPrimaryIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntryPrimaryIconNamePropertyInfo = EntryK- type AttrGetType EntryPrimaryIconNamePropertyInfo = T.Text+ type AttrGetType EntryPrimaryIconNamePropertyInfo = (Maybe T.Text) type AttrLabel EntryPrimaryIconNamePropertyInfo = "primary-icon-name" attrGet _ = getEntryPrimaryIconName attrSet _ = setEntryPrimaryIconName attrConstruct _ = constructEntryPrimaryIconName+ attrClear _ = clearEntryPrimaryIconName -- VVV Prop "primary-icon-pixbuf" -- Type: TInterface "GdkPixbuf" "Pixbuf" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getEntryPrimaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m GdkPixbuf.Pixbuf+getEntryPrimaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m (Maybe GdkPixbuf.Pixbuf) getEntryPrimaryIconPixbuf obj = liftIO $ getObjectPropertyObject obj "primary-icon-pixbuf" GdkPixbuf.Pixbuf setEntryPrimaryIconPixbuf :: (MonadIO m, EntryK o, GdkPixbuf.PixbufK a) => o -> a -> m ()-setEntryPrimaryIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "primary-icon-pixbuf" val+setEntryPrimaryIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "primary-icon-pixbuf" (Just val) constructEntryPrimaryIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue)-constructEntryPrimaryIconPixbuf val = constructObjectPropertyObject "primary-icon-pixbuf" val+constructEntryPrimaryIconPixbuf val = constructObjectPropertyObject "primary-icon-pixbuf" (Just val) +clearEntryPrimaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m ()+clearEntryPrimaryIconPixbuf obj = liftIO $ setObjectPropertyObject obj "primary-icon-pixbuf" (Nothing :: Maybe GdkPixbuf.Pixbuf)+ data EntryPrimaryIconPixbufPropertyInfo instance AttrInfo EntryPrimaryIconPixbufPropertyInfo where- type AttrAllowedOps EntryPrimaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EntryPrimaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryPrimaryIconPixbufPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint EntryPrimaryIconPixbufPropertyInfo = EntryK- type AttrGetType EntryPrimaryIconPixbufPropertyInfo = GdkPixbuf.Pixbuf+ type AttrGetType EntryPrimaryIconPixbufPropertyInfo = (Maybe GdkPixbuf.Pixbuf) type AttrLabel EntryPrimaryIconPixbufPropertyInfo = "primary-icon-pixbuf" attrGet _ = getEntryPrimaryIconPixbuf attrSet _ = setEntryPrimaryIconPixbuf attrConstruct _ = constructEntryPrimaryIconPixbuf+ attrClear _ = clearEntryPrimaryIconPixbuf -- VVV Prop "primary-icon-sensitive" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getEntryPrimaryIconSensitive :: (MonadIO m, EntryK o) => o -> m Bool getEntryPrimaryIconSensitive obj = liftIO $ getObjectPropertyBool obj "primary-icon-sensitive"@@ -2424,34 +2557,41 @@ attrGet _ = getEntryPrimaryIconSensitive attrSet _ = setEntryPrimaryIconSensitive attrConstruct _ = constructEntryPrimaryIconSensitive+ attrClear _ = undefined -- VVV Prop "primary-icon-stock" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getEntryPrimaryIconStock :: (MonadIO m, EntryK o) => o -> m T.Text+getEntryPrimaryIconStock :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) getEntryPrimaryIconStock obj = liftIO $ getObjectPropertyString obj "primary-icon-stock" setEntryPrimaryIconStock :: (MonadIO m, EntryK o) => o -> T.Text -> m ()-setEntryPrimaryIconStock obj val = liftIO $ setObjectPropertyString obj "primary-icon-stock" val+setEntryPrimaryIconStock obj val = liftIO $ setObjectPropertyString obj "primary-icon-stock" (Just val) constructEntryPrimaryIconStock :: T.Text -> IO ([Char], GValue)-constructEntryPrimaryIconStock val = constructObjectPropertyString "primary-icon-stock" val+constructEntryPrimaryIconStock val = constructObjectPropertyString "primary-icon-stock" (Just val) +clearEntryPrimaryIconStock :: (MonadIO m, EntryK o) => o -> m ()+clearEntryPrimaryIconStock obj = liftIO $ setObjectPropertyString obj "primary-icon-stock" (Nothing :: Maybe T.Text)+ data EntryPrimaryIconStockPropertyInfo instance AttrInfo EntryPrimaryIconStockPropertyInfo where- type AttrAllowedOps EntryPrimaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EntryPrimaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryPrimaryIconStockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntryPrimaryIconStockPropertyInfo = EntryK- type AttrGetType EntryPrimaryIconStockPropertyInfo = T.Text+ type AttrGetType EntryPrimaryIconStockPropertyInfo = (Maybe T.Text) type AttrLabel EntryPrimaryIconStockPropertyInfo = "primary-icon-stock" attrGet _ = getEntryPrimaryIconStock attrSet _ = setEntryPrimaryIconStock attrConstruct _ = constructEntryPrimaryIconStock+ attrClear _ = clearEntryPrimaryIconStock -- VVV Prop "primary-icon-storage-type" -- Type: TInterface "Gtk" "ImageType" -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) getEntryPrimaryIconStorageType :: (MonadIO m, EntryK o) => o -> m ImageType getEntryPrimaryIconStorageType obj = liftIO $ getObjectPropertyEnum obj "primary-icon-storage-type"@@ -2466,58 +2606,70 @@ attrGet _ = getEntryPrimaryIconStorageType attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "primary-icon-tooltip-markup" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getEntryPrimaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m T.Text+getEntryPrimaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) getEntryPrimaryIconTooltipMarkup obj = liftIO $ getObjectPropertyString obj "primary-icon-tooltip-markup" setEntryPrimaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> T.Text -> m ()-setEntryPrimaryIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-markup" val+setEntryPrimaryIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-markup" (Just val) constructEntryPrimaryIconTooltipMarkup :: T.Text -> IO ([Char], GValue)-constructEntryPrimaryIconTooltipMarkup val = constructObjectPropertyString "primary-icon-tooltip-markup" val+constructEntryPrimaryIconTooltipMarkup val = constructObjectPropertyString "primary-icon-tooltip-markup" (Just val) +clearEntryPrimaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m ()+clearEntryPrimaryIconTooltipMarkup obj = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-markup" (Nothing :: Maybe T.Text)+ data EntryPrimaryIconTooltipMarkupPropertyInfo instance AttrInfo EntryPrimaryIconTooltipMarkupPropertyInfo where- type AttrAllowedOps EntryPrimaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EntryPrimaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryPrimaryIconTooltipMarkupPropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntryPrimaryIconTooltipMarkupPropertyInfo = EntryK- type AttrGetType EntryPrimaryIconTooltipMarkupPropertyInfo = T.Text+ type AttrGetType EntryPrimaryIconTooltipMarkupPropertyInfo = (Maybe T.Text) type AttrLabel EntryPrimaryIconTooltipMarkupPropertyInfo = "primary-icon-tooltip-markup" attrGet _ = getEntryPrimaryIconTooltipMarkup attrSet _ = setEntryPrimaryIconTooltipMarkup attrConstruct _ = constructEntryPrimaryIconTooltipMarkup+ attrClear _ = clearEntryPrimaryIconTooltipMarkup -- VVV Prop "primary-icon-tooltip-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getEntryPrimaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m T.Text+getEntryPrimaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) getEntryPrimaryIconTooltipText obj = liftIO $ getObjectPropertyString obj "primary-icon-tooltip-text" setEntryPrimaryIconTooltipText :: (MonadIO m, EntryK o) => o -> T.Text -> m ()-setEntryPrimaryIconTooltipText obj val = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-text" val+setEntryPrimaryIconTooltipText obj val = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-text" (Just val) constructEntryPrimaryIconTooltipText :: T.Text -> IO ([Char], GValue)-constructEntryPrimaryIconTooltipText val = constructObjectPropertyString "primary-icon-tooltip-text" val+constructEntryPrimaryIconTooltipText val = constructObjectPropertyString "primary-icon-tooltip-text" (Just val) +clearEntryPrimaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m ()+clearEntryPrimaryIconTooltipText obj = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-text" (Nothing :: Maybe T.Text)+ data EntryPrimaryIconTooltipTextPropertyInfo instance AttrInfo EntryPrimaryIconTooltipTextPropertyInfo where- type AttrAllowedOps EntryPrimaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EntryPrimaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryPrimaryIconTooltipTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntryPrimaryIconTooltipTextPropertyInfo = EntryK- type AttrGetType EntryPrimaryIconTooltipTextPropertyInfo = T.Text+ type AttrGetType EntryPrimaryIconTooltipTextPropertyInfo = (Maybe T.Text) type AttrLabel EntryPrimaryIconTooltipTextPropertyInfo = "primary-icon-tooltip-text" attrGet _ = getEntryPrimaryIconTooltipText attrSet _ = setEntryPrimaryIconTooltipText attrConstruct _ = constructEntryPrimaryIconTooltipText+ attrClear _ = clearEntryPrimaryIconTooltipText -- VVV Prop "progress-fraction" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryProgressFraction :: (MonadIO m, EntryK o) => o -> m Double getEntryProgressFraction obj = liftIO $ getObjectPropertyDouble obj "progress-fraction"@@ -2538,10 +2690,12 @@ attrGet _ = getEntryProgressFraction attrSet _ = setEntryProgressFraction attrConstruct _ = constructEntryProgressFraction+ attrClear _ = undefined -- VVV Prop "progress-pulse-step" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryProgressPulseStep :: (MonadIO m, EntryK o) => o -> m Double getEntryProgressPulseStep obj = liftIO $ getObjectPropertyDouble obj "progress-pulse-step"@@ -2562,13 +2716,15 @@ attrGet _ = getEntryProgressPulseStep attrSet _ = setEntryProgressPulseStep attrConstruct _ = constructEntryProgressPulseStep+ attrClear _ = undefined -- VVV Prop "scroll-offset"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) getEntryScrollOffset :: (MonadIO m, EntryK o) => o -> m Int32-getEntryScrollOffset obj = liftIO $ getObjectPropertyCInt obj "scroll-offset"+getEntryScrollOffset obj = liftIO $ getObjectPropertyInt32 obj "scroll-offset" data EntryScrollOffsetPropertyInfo instance AttrInfo EntryScrollOffsetPropertyInfo where@@ -2580,10 +2736,12 @@ attrGet _ = getEntryScrollOffset attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "secondary-icon-activatable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getEntrySecondaryIconActivatable :: (MonadIO m, EntryK o) => o -> m Bool getEntrySecondaryIconActivatable obj = liftIO $ getObjectPropertyBool obj "secondary-icon-activatable"@@ -2604,82 +2762,99 @@ attrGet _ = getEntrySecondaryIconActivatable attrSet _ = setEntrySecondaryIconActivatable attrConstruct _ = constructEntrySecondaryIconActivatable+ attrClear _ = undefined -- VVV Prop "secondary-icon-gicon" -- Type: TInterface "Gio" "Icon" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getEntrySecondaryIconGicon :: (MonadIO m, EntryK o) => o -> m Gio.Icon+getEntrySecondaryIconGicon :: (MonadIO m, EntryK o) => o -> m (Maybe Gio.Icon) getEntrySecondaryIconGicon obj = liftIO $ getObjectPropertyObject obj "secondary-icon-gicon" Gio.Icon setEntrySecondaryIconGicon :: (MonadIO m, EntryK o, Gio.IconK a) => o -> a -> m ()-setEntrySecondaryIconGicon obj val = liftIO $ setObjectPropertyObject obj "secondary-icon-gicon" val+setEntrySecondaryIconGicon obj val = liftIO $ setObjectPropertyObject obj "secondary-icon-gicon" (Just val) constructEntrySecondaryIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue)-constructEntrySecondaryIconGicon val = constructObjectPropertyObject "secondary-icon-gicon" val+constructEntrySecondaryIconGicon val = constructObjectPropertyObject "secondary-icon-gicon" (Just val) +clearEntrySecondaryIconGicon :: (MonadIO m, EntryK o) => o -> m ()+clearEntrySecondaryIconGicon obj = liftIO $ setObjectPropertyObject obj "secondary-icon-gicon" (Nothing :: Maybe Gio.Icon)+ data EntrySecondaryIconGiconPropertyInfo instance AttrInfo EntrySecondaryIconGiconPropertyInfo where- type AttrAllowedOps EntrySecondaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EntrySecondaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntrySecondaryIconGiconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint EntrySecondaryIconGiconPropertyInfo = EntryK- type AttrGetType EntrySecondaryIconGiconPropertyInfo = Gio.Icon+ type AttrGetType EntrySecondaryIconGiconPropertyInfo = (Maybe Gio.Icon) type AttrLabel EntrySecondaryIconGiconPropertyInfo = "secondary-icon-gicon" attrGet _ = getEntrySecondaryIconGicon attrSet _ = setEntrySecondaryIconGicon attrConstruct _ = constructEntrySecondaryIconGicon+ attrClear _ = clearEntrySecondaryIconGicon -- VVV Prop "secondary-icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getEntrySecondaryIconName :: (MonadIO m, EntryK o) => o -> m T.Text+getEntrySecondaryIconName :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) getEntrySecondaryIconName obj = liftIO $ getObjectPropertyString obj "secondary-icon-name" setEntrySecondaryIconName :: (MonadIO m, EntryK o) => o -> T.Text -> m ()-setEntrySecondaryIconName obj val = liftIO $ setObjectPropertyString obj "secondary-icon-name" val+setEntrySecondaryIconName obj val = liftIO $ setObjectPropertyString obj "secondary-icon-name" (Just val) constructEntrySecondaryIconName :: T.Text -> IO ([Char], GValue)-constructEntrySecondaryIconName val = constructObjectPropertyString "secondary-icon-name" val+constructEntrySecondaryIconName val = constructObjectPropertyString "secondary-icon-name" (Just val) +clearEntrySecondaryIconName :: (MonadIO m, EntryK o) => o -> m ()+clearEntrySecondaryIconName obj = liftIO $ setObjectPropertyString obj "secondary-icon-name" (Nothing :: Maybe T.Text)+ data EntrySecondaryIconNamePropertyInfo instance AttrInfo EntrySecondaryIconNamePropertyInfo where- type AttrAllowedOps EntrySecondaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EntrySecondaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntrySecondaryIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntrySecondaryIconNamePropertyInfo = EntryK- type AttrGetType EntrySecondaryIconNamePropertyInfo = T.Text+ type AttrGetType EntrySecondaryIconNamePropertyInfo = (Maybe T.Text) type AttrLabel EntrySecondaryIconNamePropertyInfo = "secondary-icon-name" attrGet _ = getEntrySecondaryIconName attrSet _ = setEntrySecondaryIconName attrConstruct _ = constructEntrySecondaryIconName+ attrClear _ = clearEntrySecondaryIconName -- VVV Prop "secondary-icon-pixbuf" -- Type: TInterface "GdkPixbuf" "Pixbuf" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getEntrySecondaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m GdkPixbuf.Pixbuf+getEntrySecondaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m (Maybe GdkPixbuf.Pixbuf) getEntrySecondaryIconPixbuf obj = liftIO $ getObjectPropertyObject obj "secondary-icon-pixbuf" GdkPixbuf.Pixbuf setEntrySecondaryIconPixbuf :: (MonadIO m, EntryK o, GdkPixbuf.PixbufK a) => o -> a -> m ()-setEntrySecondaryIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "secondary-icon-pixbuf" val+setEntrySecondaryIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "secondary-icon-pixbuf" (Just val) constructEntrySecondaryIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue)-constructEntrySecondaryIconPixbuf val = constructObjectPropertyObject "secondary-icon-pixbuf" val+constructEntrySecondaryIconPixbuf val = constructObjectPropertyObject "secondary-icon-pixbuf" (Just val) +clearEntrySecondaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m ()+clearEntrySecondaryIconPixbuf obj = liftIO $ setObjectPropertyObject obj "secondary-icon-pixbuf" (Nothing :: Maybe GdkPixbuf.Pixbuf)+ data EntrySecondaryIconPixbufPropertyInfo instance AttrInfo EntrySecondaryIconPixbufPropertyInfo where- type AttrAllowedOps EntrySecondaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EntrySecondaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntrySecondaryIconPixbufPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint EntrySecondaryIconPixbufPropertyInfo = EntryK- type AttrGetType EntrySecondaryIconPixbufPropertyInfo = GdkPixbuf.Pixbuf+ type AttrGetType EntrySecondaryIconPixbufPropertyInfo = (Maybe GdkPixbuf.Pixbuf) type AttrLabel EntrySecondaryIconPixbufPropertyInfo = "secondary-icon-pixbuf" attrGet _ = getEntrySecondaryIconPixbuf attrSet _ = setEntrySecondaryIconPixbuf attrConstruct _ = constructEntrySecondaryIconPixbuf+ attrClear _ = clearEntrySecondaryIconPixbuf -- VVV Prop "secondary-icon-sensitive" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getEntrySecondaryIconSensitive :: (MonadIO m, EntryK o) => o -> m Bool getEntrySecondaryIconSensitive obj = liftIO $ getObjectPropertyBool obj "secondary-icon-sensitive"@@ -2700,34 +2875,41 @@ attrGet _ = getEntrySecondaryIconSensitive attrSet _ = setEntrySecondaryIconSensitive attrConstruct _ = constructEntrySecondaryIconSensitive+ attrClear _ = undefined -- VVV Prop "secondary-icon-stock" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getEntrySecondaryIconStock :: (MonadIO m, EntryK o) => o -> m T.Text+getEntrySecondaryIconStock :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) getEntrySecondaryIconStock obj = liftIO $ getObjectPropertyString obj "secondary-icon-stock" setEntrySecondaryIconStock :: (MonadIO m, EntryK o) => o -> T.Text -> m ()-setEntrySecondaryIconStock obj val = liftIO $ setObjectPropertyString obj "secondary-icon-stock" val+setEntrySecondaryIconStock obj val = liftIO $ setObjectPropertyString obj "secondary-icon-stock" (Just val) constructEntrySecondaryIconStock :: T.Text -> IO ([Char], GValue)-constructEntrySecondaryIconStock val = constructObjectPropertyString "secondary-icon-stock" val+constructEntrySecondaryIconStock val = constructObjectPropertyString "secondary-icon-stock" (Just val) +clearEntrySecondaryIconStock :: (MonadIO m, EntryK o) => o -> m ()+clearEntrySecondaryIconStock obj = liftIO $ setObjectPropertyString obj "secondary-icon-stock" (Nothing :: Maybe T.Text)+ data EntrySecondaryIconStockPropertyInfo instance AttrInfo EntrySecondaryIconStockPropertyInfo where- type AttrAllowedOps EntrySecondaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EntrySecondaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntrySecondaryIconStockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntrySecondaryIconStockPropertyInfo = EntryK- type AttrGetType EntrySecondaryIconStockPropertyInfo = T.Text+ type AttrGetType EntrySecondaryIconStockPropertyInfo = (Maybe T.Text) type AttrLabel EntrySecondaryIconStockPropertyInfo = "secondary-icon-stock" attrGet _ = getEntrySecondaryIconStock attrSet _ = setEntrySecondaryIconStock attrConstruct _ = constructEntrySecondaryIconStock+ attrClear _ = clearEntrySecondaryIconStock -- VVV Prop "secondary-icon-storage-type" -- Type: TInterface "Gtk" "ImageType" -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) getEntrySecondaryIconStorageType :: (MonadIO m, EntryK o) => o -> m ImageType getEntrySecondaryIconStorageType obj = liftIO $ getObjectPropertyEnum obj "secondary-icon-storage-type"@@ -2742,61 +2924,73 @@ attrGet _ = getEntrySecondaryIconStorageType attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "secondary-icon-tooltip-markup" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getEntrySecondaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m T.Text+getEntrySecondaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) getEntrySecondaryIconTooltipMarkup obj = liftIO $ getObjectPropertyString obj "secondary-icon-tooltip-markup" setEntrySecondaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> T.Text -> m ()-setEntrySecondaryIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-markup" val+setEntrySecondaryIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-markup" (Just val) constructEntrySecondaryIconTooltipMarkup :: T.Text -> IO ([Char], GValue)-constructEntrySecondaryIconTooltipMarkup val = constructObjectPropertyString "secondary-icon-tooltip-markup" val+constructEntrySecondaryIconTooltipMarkup val = constructObjectPropertyString "secondary-icon-tooltip-markup" (Just val) +clearEntrySecondaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m ()+clearEntrySecondaryIconTooltipMarkup obj = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-markup" (Nothing :: Maybe T.Text)+ data EntrySecondaryIconTooltipMarkupPropertyInfo instance AttrInfo EntrySecondaryIconTooltipMarkupPropertyInfo where- type AttrAllowedOps EntrySecondaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EntrySecondaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntrySecondaryIconTooltipMarkupPropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntrySecondaryIconTooltipMarkupPropertyInfo = EntryK- type AttrGetType EntrySecondaryIconTooltipMarkupPropertyInfo = T.Text+ type AttrGetType EntrySecondaryIconTooltipMarkupPropertyInfo = (Maybe T.Text) type AttrLabel EntrySecondaryIconTooltipMarkupPropertyInfo = "secondary-icon-tooltip-markup" attrGet _ = getEntrySecondaryIconTooltipMarkup attrSet _ = setEntrySecondaryIconTooltipMarkup attrConstruct _ = constructEntrySecondaryIconTooltipMarkup+ attrClear _ = clearEntrySecondaryIconTooltipMarkup -- VVV Prop "secondary-icon-tooltip-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getEntrySecondaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m T.Text+getEntrySecondaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) getEntrySecondaryIconTooltipText obj = liftIO $ getObjectPropertyString obj "secondary-icon-tooltip-text" setEntrySecondaryIconTooltipText :: (MonadIO m, EntryK o) => o -> T.Text -> m ()-setEntrySecondaryIconTooltipText obj val = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-text" val+setEntrySecondaryIconTooltipText obj val = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-text" (Just val) constructEntrySecondaryIconTooltipText :: T.Text -> IO ([Char], GValue)-constructEntrySecondaryIconTooltipText val = constructObjectPropertyString "secondary-icon-tooltip-text" val+constructEntrySecondaryIconTooltipText val = constructObjectPropertyString "secondary-icon-tooltip-text" (Just val) +clearEntrySecondaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m ()+clearEntrySecondaryIconTooltipText obj = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-text" (Nothing :: Maybe T.Text)+ data EntrySecondaryIconTooltipTextPropertyInfo instance AttrInfo EntrySecondaryIconTooltipTextPropertyInfo where- type AttrAllowedOps EntrySecondaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EntrySecondaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntrySecondaryIconTooltipTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntrySecondaryIconTooltipTextPropertyInfo = EntryK- type AttrGetType EntrySecondaryIconTooltipTextPropertyInfo = T.Text+ type AttrGetType EntrySecondaryIconTooltipTextPropertyInfo = (Maybe T.Text) type AttrLabel EntrySecondaryIconTooltipTextPropertyInfo = "secondary-icon-tooltip-text" attrGet _ = getEntrySecondaryIconTooltipText attrSet _ = setEntrySecondaryIconTooltipText attrConstruct _ = constructEntrySecondaryIconTooltipText+ attrClear _ = clearEntrySecondaryIconTooltipText -- VVV Prop "selection-bound"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) getEntrySelectionBound :: (MonadIO m, EntryK o) => o -> m Int32-getEntrySelectionBound obj = liftIO $ getObjectPropertyCInt obj "selection-bound"+getEntrySelectionBound obj = liftIO $ getObjectPropertyInt32 obj "selection-bound" data EntrySelectionBoundPropertyInfo instance AttrInfo EntrySelectionBoundPropertyInfo where@@ -2808,10 +3002,12 @@ attrGet _ = getEntrySelectionBound attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "shadow-type" -- Type: TInterface "Gtk" "ShadowType" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getEntryShadowType :: (MonadIO m, EntryK o) => o -> m ShadowType getEntryShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type"@@ -2832,43 +3028,47 @@ attrGet _ = getEntryShadowType attrSet _ = setEntryShadowType attrConstruct _ = constructEntryShadowType+ attrClear _ = undefined -- VVV Prop "tabs" -- Type: TInterface "Pango" "TabArray" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just True,Just False) -getEntryTabs :: (MonadIO m, EntryK o) => o -> m Pango.TabArray+getEntryTabs :: (MonadIO m, EntryK o) => o -> m (Maybe Pango.TabArray) getEntryTabs obj = liftIO $ getObjectPropertyBoxed obj "tabs" Pango.TabArray setEntryTabs :: (MonadIO m, EntryK o) => o -> Pango.TabArray -> m ()-setEntryTabs obj val = liftIO $ setObjectPropertyBoxed obj "tabs" val+setEntryTabs obj val = liftIO $ setObjectPropertyBoxed obj "tabs" (Just val) constructEntryTabs :: Pango.TabArray -> IO ([Char], GValue)-constructEntryTabs val = constructObjectPropertyBoxed "tabs" val+constructEntryTabs val = constructObjectPropertyBoxed "tabs" (Just val) data EntryTabsPropertyInfo instance AttrInfo EntryTabsPropertyInfo where type AttrAllowedOps EntryTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint EntryTabsPropertyInfo = (~) Pango.TabArray type AttrBaseTypeConstraint EntryTabsPropertyInfo = EntryK- type AttrGetType EntryTabsPropertyInfo = Pango.TabArray+ type AttrGetType EntryTabsPropertyInfo = (Maybe Pango.TabArray) type AttrLabel EntryTabsPropertyInfo = "tabs" attrGet _ = getEntryTabs attrSet _ = setEntryTabs attrConstruct _ = constructEntryTabs+ attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryText :: (MonadIO m, EntryK o) => o -> m T.Text-getEntryText obj = liftIO $ getObjectPropertyString obj "text"+getEntryText obj = liftIO $ checkUnexpectedNothing "getEntryText" $ getObjectPropertyString obj "text" setEntryText :: (MonadIO m, EntryK o) => o -> T.Text -> m ()-setEntryText obj val = liftIO $ setObjectPropertyString obj "text" val+setEntryText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructEntryText :: T.Text -> IO ([Char], GValue)-constructEntryText val = constructObjectPropertyString "text" val+constructEntryText val = constructObjectPropertyString "text" (Just val) data EntryTextPropertyInfo instance AttrInfo EntryTextPropertyInfo where@@ -2880,13 +3080,15 @@ attrGet _ = getEntryText attrSet _ = setEntryText attrConstruct _ = constructEntryText+ attrClear _ = undefined -- VVV Prop "text-length"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) getEntryTextLength :: (MonadIO m, EntryK o) => o -> m Word32-getEntryTextLength obj = liftIO $ getObjectPropertyCUInt obj "text-length"+getEntryTextLength obj = liftIO $ getObjectPropertyUInt32 obj "text-length" data EntryTextLengthPropertyInfo instance AttrInfo EntryTextLengthPropertyInfo where@@ -2898,10 +3100,12 @@ attrGet _ = getEntryTextLength attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "truncate-multiline" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getEntryTruncateMultiline :: (MonadIO m, EntryK o) => o -> m Bool getEntryTruncateMultiline obj = liftIO $ getObjectPropertyBool obj "truncate-multiline"@@ -2922,10 +3126,12 @@ attrGet _ = getEntryTruncateMultiline attrSet _ = setEntryTruncateMultiline attrConstruct _ = constructEntryTruncateMultiline+ attrClear _ = undefined -- VVV Prop "visibility" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryVisibility :: (MonadIO m, EntryK o) => o -> m Bool getEntryVisibility obj = liftIO $ getObjectPropertyBool obj "visibility"@@ -2946,19 +3152,21 @@ attrGet _ = getEntryVisibility attrSet _ = setEntryVisibility attrConstruct _ = constructEntryVisibility+ attrClear _ = undefined -- VVV Prop "width-chars"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryWidthChars :: (MonadIO m, EntryK o) => o -> m Int32-getEntryWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars"+getEntryWidthChars obj = liftIO $ getObjectPropertyInt32 obj "width-chars" setEntryWidthChars :: (MonadIO m, EntryK o) => o -> Int32 -> m ()-setEntryWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val+setEntryWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "width-chars" val constructEntryWidthChars :: Int32 -> IO ([Char], GValue)-constructEntryWidthChars val = constructObjectPropertyCInt "width-chars" val+constructEntryWidthChars val = constructObjectPropertyInt32 "width-chars" val data EntryWidthCharsPropertyInfo instance AttrInfo EntryWidthCharsPropertyInfo where@@ -2970,10 +3178,12 @@ attrGet _ = getEntryWidthChars attrSet _ = setEntryWidthChars attrConstruct _ = constructEntryWidthChars+ attrClear _ = undefined -- VVV Prop "xalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getEntryXalign :: (MonadIO m, EntryK o) => o -> m Float getEntryXalign obj = liftIO $ getObjectPropertyFloat obj "xalign"@@ -2994,10 +3204,158 @@ attrGet _ = getEntryXalign attrSet _ = setEntryXalign attrConstruct _ = constructEntryXalign+ attrClear _ = undefined type instance AttributeList Entry = EntryAttributeList type EntryAttributeList = ('[ '("activatesDefault", EntryActivatesDefaultPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("capsLockWarning", EntryCapsLockWarningPropertyInfo), '("completion", EntryCompletionPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorPosition", EntryCursorPositionPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasFrame", EntryHasFramePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("imModule", EntryImModulePropertyInfo), '("innerBorder", EntryInnerBorderPropertyInfo), '("inputHints", EntryInputHintsPropertyInfo), '("inputPurpose", EntryInputPurposePropertyInfo), '("invisibleChar", EntryInvisibleCharPropertyInfo), '("invisibleCharSet", EntryInvisibleCharSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxLength", EntryMaxLengthPropertyInfo), '("maxWidthChars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overwriteMode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholderText", EntryPlaceholderTextPropertyInfo), '("populateAll", EntryPopulateAllPropertyInfo), '("primaryIconActivatable", EntryPrimaryIconActivatablePropertyInfo), '("primaryIconGicon", EntryPrimaryIconGiconPropertyInfo), '("primaryIconName", EntryPrimaryIconNamePropertyInfo), '("primaryIconPixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primaryIconSensitive", EntryPrimaryIconSensitivePropertyInfo), '("primaryIconStock", EntryPrimaryIconStockPropertyInfo), '("primaryIconStorageType", EntryPrimaryIconStorageTypePropertyInfo), '("primaryIconTooltipMarkup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primaryIconTooltipText", EntryPrimaryIconTooltipTextPropertyInfo), '("progressFraction", EntryProgressFractionPropertyInfo), '("progressPulseStep", EntryProgressPulseStepPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("scrollOffset", EntryScrollOffsetPropertyInfo), '("secondaryIconActivatable", EntrySecondaryIconActivatablePropertyInfo), '("secondaryIconGicon", EntrySecondaryIconGiconPropertyInfo), '("secondaryIconName", EntrySecondaryIconNamePropertyInfo), '("secondaryIconPixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondaryIconSensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondaryIconStock", EntrySecondaryIconStockPropertyInfo), '("secondaryIconStorageType", EntrySecondaryIconStorageTypePropertyInfo), '("secondaryIconTooltipMarkup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondaryIconTooltipText", EntrySecondaryIconTooltipTextPropertyInfo), '("selectionBound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", EntryShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("textLength", EntryTextLengthPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("truncateMultiline", EntryTruncateMultilinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", EntryWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", EntryXalignPropertyInfo)] :: [(Symbol, *)]) +entryActivatesDefault :: AttrLabelProxy "activatesDefault"+entryActivatesDefault = AttrLabelProxy++entryAttributes :: AttrLabelProxy "attributes"+entryAttributes = AttrLabelProxy++entryBuffer :: AttrLabelProxy "buffer"+entryBuffer = AttrLabelProxy++entryCapsLockWarning :: AttrLabelProxy "capsLockWarning"+entryCapsLockWarning = AttrLabelProxy++entryCompletion :: AttrLabelProxy "completion"+entryCompletion = AttrLabelProxy++entryCursorPosition :: AttrLabelProxy "cursorPosition"+entryCursorPosition = AttrLabelProxy++entryEditable :: AttrLabelProxy "editable"+entryEditable = AttrLabelProxy++entryHasFrame :: AttrLabelProxy "hasFrame"+entryHasFrame = AttrLabelProxy++entryImModule :: AttrLabelProxy "imModule"+entryImModule = AttrLabelProxy++entryInnerBorder :: AttrLabelProxy "innerBorder"+entryInnerBorder = AttrLabelProxy++entryInputHints :: AttrLabelProxy "inputHints"+entryInputHints = AttrLabelProxy++entryInputPurpose :: AttrLabelProxy "inputPurpose"+entryInputPurpose = AttrLabelProxy++entryInvisibleChar :: AttrLabelProxy "invisibleChar"+entryInvisibleChar = AttrLabelProxy++entryInvisibleCharSet :: AttrLabelProxy "invisibleCharSet"+entryInvisibleCharSet = AttrLabelProxy++entryMaxLength :: AttrLabelProxy "maxLength"+entryMaxLength = AttrLabelProxy++entryMaxWidthChars :: AttrLabelProxy "maxWidthChars"+entryMaxWidthChars = AttrLabelProxy++entryOverwriteMode :: AttrLabelProxy "overwriteMode"+entryOverwriteMode = AttrLabelProxy++entryPlaceholderText :: AttrLabelProxy "placeholderText"+entryPlaceholderText = AttrLabelProxy++entryPopulateAll :: AttrLabelProxy "populateAll"+entryPopulateAll = AttrLabelProxy++entryPrimaryIconActivatable :: AttrLabelProxy "primaryIconActivatable"+entryPrimaryIconActivatable = AttrLabelProxy++entryPrimaryIconGicon :: AttrLabelProxy "primaryIconGicon"+entryPrimaryIconGicon = AttrLabelProxy++entryPrimaryIconName :: AttrLabelProxy "primaryIconName"+entryPrimaryIconName = AttrLabelProxy++entryPrimaryIconPixbuf :: AttrLabelProxy "primaryIconPixbuf"+entryPrimaryIconPixbuf = AttrLabelProxy++entryPrimaryIconSensitive :: AttrLabelProxy "primaryIconSensitive"+entryPrimaryIconSensitive = AttrLabelProxy++entryPrimaryIconStock :: AttrLabelProxy "primaryIconStock"+entryPrimaryIconStock = AttrLabelProxy++entryPrimaryIconStorageType :: AttrLabelProxy "primaryIconStorageType"+entryPrimaryIconStorageType = AttrLabelProxy++entryPrimaryIconTooltipMarkup :: AttrLabelProxy "primaryIconTooltipMarkup"+entryPrimaryIconTooltipMarkup = AttrLabelProxy++entryPrimaryIconTooltipText :: AttrLabelProxy "primaryIconTooltipText"+entryPrimaryIconTooltipText = AttrLabelProxy++entryProgressFraction :: AttrLabelProxy "progressFraction"+entryProgressFraction = AttrLabelProxy++entryProgressPulseStep :: AttrLabelProxy "progressPulseStep"+entryProgressPulseStep = AttrLabelProxy++entryScrollOffset :: AttrLabelProxy "scrollOffset"+entryScrollOffset = AttrLabelProxy++entrySecondaryIconActivatable :: AttrLabelProxy "secondaryIconActivatable"+entrySecondaryIconActivatable = AttrLabelProxy++entrySecondaryIconGicon :: AttrLabelProxy "secondaryIconGicon"+entrySecondaryIconGicon = AttrLabelProxy++entrySecondaryIconName :: AttrLabelProxy "secondaryIconName"+entrySecondaryIconName = AttrLabelProxy++entrySecondaryIconPixbuf :: AttrLabelProxy "secondaryIconPixbuf"+entrySecondaryIconPixbuf = AttrLabelProxy++entrySecondaryIconSensitive :: AttrLabelProxy "secondaryIconSensitive"+entrySecondaryIconSensitive = AttrLabelProxy++entrySecondaryIconStock :: AttrLabelProxy "secondaryIconStock"+entrySecondaryIconStock = AttrLabelProxy++entrySecondaryIconStorageType :: AttrLabelProxy "secondaryIconStorageType"+entrySecondaryIconStorageType = AttrLabelProxy++entrySecondaryIconTooltipMarkup :: AttrLabelProxy "secondaryIconTooltipMarkup"+entrySecondaryIconTooltipMarkup = AttrLabelProxy++entrySecondaryIconTooltipText :: AttrLabelProxy "secondaryIconTooltipText"+entrySecondaryIconTooltipText = AttrLabelProxy++entrySelectionBound :: AttrLabelProxy "selectionBound"+entrySelectionBound = AttrLabelProxy++entryShadowType :: AttrLabelProxy "shadowType"+entryShadowType = AttrLabelProxy++entryTabs :: AttrLabelProxy "tabs"+entryTabs = AttrLabelProxy++entryText :: AttrLabelProxy "text"+entryText = AttrLabelProxy++entryTextLength :: AttrLabelProxy "textLength"+entryTextLength = AttrLabelProxy++entryTruncateMultiline :: AttrLabelProxy "truncateMultiline"+entryTruncateMultiline = AttrLabelProxy++entryVisibility :: AttrLabelProxy "visibility"+entryVisibility = AttrLabelProxy++entryWidthChars :: AttrLabelProxy "widthChars"+entryWidthChars = AttrLabelProxy++entryXalign :: AttrLabelProxy "xalign"+entryXalign = AttrLabelProxy+ data EntryActivateSignalInfo instance SignalInfo EntryActivateSignalInfo where type HaskellCallbackType EntryActivateSignalInfo = EntryActivateCallback@@ -3070,7 +3428,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "Entry"+-- returnType : Just (TInterface "Gtk" "Entry") -- throws : False -- Skip return : False @@ -3091,7 +3449,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "buffer", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Entry"+-- returnType : Just (TInterface "Gtk" "Entry") -- throws : False -- Skip return : False @@ -3116,7 +3474,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3144,7 +3502,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TFloat+-- returnType : Just (TBasicType TFloat) -- throws : False -- Skip return : False @@ -3172,7 +3530,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "AttrList"+-- returnType : Just (TInterface "Pango" "AttrList") -- throws : False -- Skip return : False @@ -3184,24 +3542,25 @@ entryGetAttributes :: (MonadIO m, EntryK a) => a -- _obj- -> m Pango.AttrList -- result+ -> m (Maybe Pango.AttrList) -- result entryGetAttributes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_get_attributes _obj'- checkUnexpectedReturnNULL "gtk_entry_get_attributes" result- result' <- (newBoxed Pango.AttrList) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (newBoxed Pango.AttrList) result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data EntryGetAttributesMethodInfo-instance (signature ~ (m Pango.AttrList), MonadIO m, EntryK a) => MethodInfo EntryGetAttributesMethodInfo a signature where+instance (signature ~ (m (Maybe Pango.AttrList)), MonadIO m, EntryK a) => MethodInfo EntryGetAttributesMethodInfo a signature where overloadedMethod _ = entryGetAttributes -- method Entry::get_buffer -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "EntryBuffer"+-- returnType : Just (TInterface "Gtk" "EntryBuffer") -- throws : False -- Skip return : False @@ -3230,7 +3589,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "EntryCompletion"+-- returnType : Just (TInterface "Gtk" "EntryCompletion") -- throws : False -- Skip return : False @@ -3259,7 +3618,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -3286,7 +3645,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Adjustment"+-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -3298,24 +3657,25 @@ entryGetCursorHadjustment :: (MonadIO m, EntryK a) => a -- _obj- -> m Adjustment -- result+ -> m (Maybe Adjustment) -- result entryGetCursorHadjustment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_get_cursor_hadjustment _obj'- checkUnexpectedReturnNULL "gtk_entry_get_cursor_hadjustment" result- result' <- (newObject Adjustment) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (newObject Adjustment) result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data EntryGetCursorHadjustmentMethodInfo-instance (signature ~ (m Adjustment), MonadIO m, EntryK a) => MethodInfo EntryGetCursorHadjustmentMethodInfo a signature where+instance (signature ~ (m (Maybe Adjustment)), MonadIO m, EntryK a) => MethodInfo EntryGetCursorHadjustmentMethodInfo a signature where overloadedMethod _ = entryGetCursorHadjustment -- method Entry::get_has_frame -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3343,7 +3703,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3374,7 +3734,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3405,16 +3765,16 @@ -- method Entry::get_icon_at_pos -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_entry_get_icon_at_pos" gtk_entry_get_icon_at_pos :: Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt IO Int32 @@ -3438,7 +3798,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "Icon"+-- returnType : Just (TInterface "Gio" "Icon") -- throws : False -- Skip return : False @@ -3452,25 +3812,26 @@ (MonadIO m, EntryK a) => a -- _obj -> EntryIconPosition -- iconPos- -> m Gio.Icon -- result+ -> m (Maybe Gio.Icon) -- result entryGetIconGicon _obj iconPos = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iconPos' = (fromIntegral . fromEnum) iconPos result <- gtk_entry_get_icon_gicon _obj' iconPos'- checkUnexpectedReturnNULL "gtk_entry_get_icon_gicon" result- result' <- (newObject Gio.Icon) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (newObject Gio.Icon) result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data EntryGetIconGiconMethodInfo-instance (signature ~ (EntryIconPosition -> m Gio.Icon), MonadIO m, EntryK a) => MethodInfo EntryGetIconGiconMethodInfo a signature where+instance (signature ~ (EntryIconPosition -> m (Maybe Gio.Icon)), MonadIO m, EntryK a) => MethodInfo EntryGetIconGiconMethodInfo a signature where overloadedMethod _ = entryGetIconGicon -- method Entry::get_icon_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3484,25 +3845,26 @@ (MonadIO m, EntryK a) => a -- _obj -> EntryIconPosition -- iconPos- -> m T.Text -- result+ -> m (Maybe T.Text) -- result entryGetIconName _obj iconPos = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iconPos' = (fromIntegral . fromEnum) iconPos result <- gtk_entry_get_icon_name _obj' iconPos'- checkUnexpectedReturnNULL "gtk_entry_get_icon_name" result- result' <- cstringToText result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- cstringToText result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data EntryGetIconNameMethodInfo-instance (signature ~ (EntryIconPosition -> m T.Text), MonadIO m, EntryK a) => MethodInfo EntryGetIconNameMethodInfo a signature where+instance (signature ~ (EntryIconPosition -> m (Maybe T.Text)), MonadIO m, EntryK a) => MethodInfo EntryGetIconNameMethodInfo a signature where overloadedMethod _ = entryGetIconName -- method Entry::get_icon_pixbuf -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -3516,25 +3878,26 @@ (MonadIO m, EntryK a) => a -- _obj -> EntryIconPosition -- iconPos- -> m GdkPixbuf.Pixbuf -- result+ -> m (Maybe GdkPixbuf.Pixbuf) -- result entryGetIconPixbuf _obj iconPos = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iconPos' = (fromIntegral . fromEnum) iconPos result <- gtk_entry_get_icon_pixbuf _obj' iconPos'- checkUnexpectedReturnNULL "gtk_entry_get_icon_pixbuf" result- result' <- (newObject GdkPixbuf.Pixbuf) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (newObject GdkPixbuf.Pixbuf) result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data EntryGetIconPixbufMethodInfo-instance (signature ~ (EntryIconPosition -> m GdkPixbuf.Pixbuf), MonadIO m, EntryK a) => MethodInfo EntryGetIconPixbufMethodInfo a signature where+instance (signature ~ (EntryIconPosition -> m (Maybe GdkPixbuf.Pixbuf)), MonadIO m, EntryK a) => MethodInfo EntryGetIconPixbufMethodInfo a signature where overloadedMethod _ = entryGetIconPixbuf -- method Entry::get_icon_sensitive -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3565,7 +3928,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3597,7 +3960,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ImageType"+-- returnType : Just (TInterface "Gtk" "ImageType") -- throws : False -- Skip return : False @@ -3628,7 +3991,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3642,26 +4005,27 @@ (MonadIO m, EntryK a) => a -- _obj -> EntryIconPosition -- iconPos- -> m T.Text -- result+ -> m (Maybe T.Text) -- result entryGetIconTooltipMarkup _obj iconPos = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iconPos' = (fromIntegral . fromEnum) iconPos result <- gtk_entry_get_icon_tooltip_markup _obj' iconPos'- checkUnexpectedReturnNULL "gtk_entry_get_icon_tooltip_markup" result- result' <- cstringToText result- freeMem result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- cstringToText result'+ freeMem result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data EntryGetIconTooltipMarkupMethodInfo-instance (signature ~ (EntryIconPosition -> m T.Text), MonadIO m, EntryK a) => MethodInfo EntryGetIconTooltipMarkupMethodInfo a signature where+instance (signature ~ (EntryIconPosition -> m (Maybe T.Text)), MonadIO m, EntryK a) => MethodInfo EntryGetIconTooltipMarkupMethodInfo a signature where overloadedMethod _ = entryGetIconTooltipMarkup -- method Entry::get_icon_tooltip_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3675,26 +4039,27 @@ (MonadIO m, EntryK a) => a -- _obj -> EntryIconPosition -- iconPos- -> m T.Text -- result+ -> m (Maybe T.Text) -- result entryGetIconTooltipText _obj iconPos = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iconPos' = (fromIntegral . fromEnum) iconPos result <- gtk_entry_get_icon_tooltip_text _obj' iconPos'- checkUnexpectedReturnNULL "gtk_entry_get_icon_tooltip_text" result- result' <- cstringToText result- freeMem result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- cstringToText result'+ freeMem result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data EntryGetIconTooltipTextMethodInfo-instance (signature ~ (EntryIconPosition -> m T.Text), MonadIO m, EntryK a) => MethodInfo EntryGetIconTooltipTextMethodInfo a signature where+instance (signature ~ (EntryIconPosition -> m (Maybe T.Text)), MonadIO m, EntryK a) => MethodInfo EntryGetIconTooltipTextMethodInfo a signature where overloadedMethod _ = entryGetIconTooltipText -- method Entry::get_inner_border -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Border"+-- returnType : Just (TInterface "Gtk" "Border") -- throws : False -- Skip return : False @@ -3706,24 +4071,25 @@ entryGetInnerBorder :: (MonadIO m, EntryK a) => a -- _obj- -> m Border -- result+ -> m (Maybe Border) -- result entryGetInnerBorder _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_get_inner_border _obj'- checkUnexpectedReturnNULL "gtk_entry_get_inner_border" result- result' <- (newBoxed Border) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (newBoxed Border) result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data EntryGetInnerBorderMethodInfo-instance (signature ~ (m Border), MonadIO m, EntryK a) => MethodInfo EntryGetInnerBorderMethodInfo a signature where+instance (signature ~ (m (Maybe Border)), MonadIO m, EntryK a) => MethodInfo EntryGetInnerBorderMethodInfo a signature where overloadedMethod _ = entryGetInnerBorder -- method Entry::get_input_hints -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "InputHints"+-- returnType : Just (TInterface "Gtk" "InputHints") -- throws : False -- Skip return : False @@ -3751,7 +4117,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "InputPurpose"+-- returnType : Just (TInterface "Gtk" "InputPurpose") -- throws : False -- Skip return : False @@ -3779,7 +4145,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUniChar+-- returnType : Just (TBasicType TUniChar) -- throws : False -- Skip return : False @@ -3807,7 +4173,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Layout"+-- returnType : Just (TInterface "Pango" "Layout") -- throws : False -- Skip return : False @@ -3834,16 +4200,16 @@ -- method Entry::get_layout_offsets -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_get_layout_offsets" gtk_entry_get_layout_offsets :: Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"- Ptr Int32 -> -- x : TBasicType TInt32- Ptr Int32 -> -- y : TBasicType TInt32+ Ptr Int32 -> -- x : TBasicType TInt+ Ptr Int32 -> -- y : TBasicType TInt IO () @@ -3871,7 +4237,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -3898,7 +4264,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -3925,7 +4291,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3953,7 +4319,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3982,7 +4348,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -4010,7 +4376,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -4038,7 +4404,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "TabArray"+-- returnType : Just (TInterface "Pango" "TabArray") -- throws : False -- Skip return : False @@ -4050,24 +4416,25 @@ entryGetTabs :: (MonadIO m, EntryK a) => a -- _obj- -> m Pango.TabArray -- result+ -> m (Maybe Pango.TabArray) -- result entryGetTabs _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_get_tabs _obj'- checkUnexpectedReturnNULL "gtk_entry_get_tabs" result- result' <- (newBoxed Pango.TabArray) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (newBoxed Pango.TabArray) result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data EntryGetTabsMethodInfo-instance (signature ~ (m Pango.TabArray), MonadIO m, EntryK a) => MethodInfo EntryGetTabsMethodInfo a signature where+instance (signature ~ (m (Maybe Pango.TabArray)), MonadIO m, EntryK a) => MethodInfo EntryGetTabsMethodInfo a signature where overloadedMethod _ = entryGetTabs -- method Entry::get_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -4096,7 +4463,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4126,7 +4493,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt16+-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -4153,7 +4520,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4181,7 +4548,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -4208,7 +4575,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4235,7 +4602,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4265,15 +4632,15 @@ -- method Entry::layout_index_to_text_index -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_entry_layout_index_to_text_index" gtk_entry_layout_index_to_text_index :: Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"- Int32 -> -- layout_index : TBasicType TInt32+ Int32 -> -- layout_index : TBasicType TInt IO Int32 @@ -4296,7 +4663,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4323,7 +4690,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4350,7 +4717,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4380,7 +4747,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4410,7 +4777,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4441,7 +4808,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4472,7 +4839,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "completion", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4507,7 +4874,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4542,7 +4909,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4572,7 +4939,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "activatable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4605,7 +4972,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4642,7 +5009,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4680,7 +5047,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4718,7 +5085,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4756,7 +5123,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4794,7 +5161,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4827,7 +5194,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4865,7 +5232,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4903,7 +5270,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4938,7 +5305,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hints", argType = TInterface "Gtk" "InputHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4968,7 +5335,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "purpose", argType = TInterface "Gtk" "InputPurpose", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -4998,7 +5365,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -5026,15 +5393,15 @@ -- method Entry::set_max_length -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_set_max_length" gtk_entry_set_max_length :: Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"- Int32 -> -- max : TBasicType TInt32+ Int32 -> -- max : TBasicType TInt IO () @@ -5055,15 +5422,15 @@ -- method Entry::set_max_width_chars -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_set_max_width_chars" gtk_entry_set_max_width_chars :: Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"- Int32 -> -- n_chars : TBasicType TInt32+ Int32 -> -- n_chars : TBasicType TInt IO () @@ -5086,7 +5453,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -5116,7 +5483,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -5151,7 +5518,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -5181,7 +5548,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -5211,7 +5578,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -5242,7 +5609,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -5273,7 +5640,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -5301,15 +5668,15 @@ -- method Entry::set_width_chars -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_set_width_chars" gtk_entry_set_width_chars :: Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"- Int32 -> -- n_chars : TBasicType TInt32+ Int32 -> -- n_chars : TBasicType TInt IO () @@ -5330,15 +5697,15 @@ -- method Entry::text_index_to_layout_index -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_entry_text_index_to_layout_index" gtk_entry_text_index_to_layout_index :: Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"- Int32 -> -- text_index : TBasicType TInt32+ Int32 -> -- text_index : TBasicType TInt IO Int32 @@ -5361,7 +5728,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Entry where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.EntryAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -76,19 +76,23 @@ -- * Properties -- ** Length EntryBufferLengthPropertyInfo ,+ entryBufferLength , getEntryBufferLength , -- ** MaxLength EntryBufferMaxLengthPropertyInfo , constructEntryBufferMaxLength ,+ entryBufferMaxLength , getEntryBufferMaxLength , setEntryBufferMaxLength , -- ** Text EntryBufferTextPropertyInfo ,+ clearEntryBufferText , constructEntryBufferText ,+ entryBufferText , getEntryBufferText , setEntryBufferText , @@ -124,9 +128,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -292,11 +296,12 @@ connectSignalFunPtr obj "inserted-text" cb' after -- VVV Prop "length"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable]+ -- Nullable: (Just False,Nothing) getEntryBufferLength :: (MonadIO m, EntryBufferK o) => o -> m Word32-getEntryBufferLength obj = liftIO $ getObjectPropertyCUInt obj "length"+getEntryBufferLength obj = liftIO $ getObjectPropertyUInt32 obj "length" data EntryBufferLengthPropertyInfo instance AttrInfo EntryBufferLengthPropertyInfo where@@ -308,19 +313,21 @@ attrGet _ = getEntryBufferLength attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "max-length"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryBufferMaxLength :: (MonadIO m, EntryBufferK o) => o -> m Int32-getEntryBufferMaxLength obj = liftIO $ getObjectPropertyCInt obj "max-length"+getEntryBufferMaxLength obj = liftIO $ getObjectPropertyInt32 obj "max-length" setEntryBufferMaxLength :: (MonadIO m, EntryBufferK o) => o -> Int32 -> m ()-setEntryBufferMaxLength obj val = liftIO $ setObjectPropertyCInt obj "max-length" val+setEntryBufferMaxLength obj val = liftIO $ setObjectPropertyInt32 obj "max-length" val constructEntryBufferMaxLength :: Int32 -> IO ([Char], GValue)-constructEntryBufferMaxLength val = constructObjectPropertyCInt "max-length" val+constructEntryBufferMaxLength val = constructObjectPropertyInt32 "max-length" val data EntryBufferMaxLengthPropertyInfo instance AttrInfo EntryBufferMaxLengthPropertyInfo where@@ -332,23 +339,28 @@ attrGet _ = getEntryBufferMaxLength attrSet _ = setEntryBufferMaxLength attrConstruct _ = constructEntryBufferMaxLength+ attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Nothing) getEntryBufferText :: (MonadIO m, EntryBufferK o) => o -> m T.Text-getEntryBufferText obj = liftIO $ getObjectPropertyString obj "text"+getEntryBufferText obj = liftIO $ checkUnexpectedNothing "getEntryBufferText" $ getObjectPropertyString obj "text" setEntryBufferText :: (MonadIO m, EntryBufferK o) => o -> T.Text -> m ()-setEntryBufferText obj val = liftIO $ setObjectPropertyString obj "text" val+setEntryBufferText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructEntryBufferText :: T.Text -> IO ([Char], GValue)-constructEntryBufferText val = constructObjectPropertyString "text" val+constructEntryBufferText val = constructObjectPropertyString "text" (Just val) +clearEntryBufferText :: (MonadIO m, EntryBufferK o) => o -> m ()+clearEntryBufferText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text)+ data EntryBufferTextPropertyInfo instance AttrInfo EntryBufferTextPropertyInfo where- type AttrAllowedOps EntryBufferTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EntryBufferTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryBufferTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntryBufferTextPropertyInfo = EntryBufferK type AttrGetType EntryBufferTextPropertyInfo = T.Text@@ -356,10 +368,20 @@ attrGet _ = getEntryBufferText attrSet _ = setEntryBufferText attrConstruct _ = constructEntryBufferText+ attrClear _ = clearEntryBufferText type instance AttributeList EntryBuffer = EntryBufferAttributeList type EntryBufferAttributeList = ('[ '("length", EntryBufferLengthPropertyInfo), '("maxLength", EntryBufferMaxLengthPropertyInfo), '("text", EntryBufferTextPropertyInfo)] :: [(Symbol, *)]) +entryBufferLength :: AttrLabelProxy "length"+entryBufferLength = AttrLabelProxy++entryBufferMaxLength :: AttrLabelProxy "maxLength"+entryBufferMaxLength = AttrLabelProxy++entryBufferText :: AttrLabelProxy "text"+entryBufferText = AttrLabelProxy+ data EntryBufferDeletedTextSignalInfo instance SignalInfo EntryBufferDeletedTextSignalInfo where type HaskellCallbackType EntryBufferDeletedTextSignalInfo = EntryBufferDeletedTextCallback@@ -375,15 +397,15 @@ -- method EntryBuffer::new -- method type : Constructor--- Args : [Arg {argCName = "initial_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_initial_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "initial_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_initial_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "EntryBuffer"+-- returnType : Just (TInterface "Gtk" "EntryBuffer") -- throws : False -- Skip return : False foreign import ccall "gtk_entry_buffer_new" gtk_entry_buffer_new :: CString -> -- initial_chars : TBasicType TUTF8- Int32 -> -- n_initial_chars : TBasicType TInt32+ Int32 -> -- n_initial_chars : TBasicType TInt IO (Ptr EntryBuffer) @@ -406,16 +428,16 @@ -- method EntryBuffer::delete_text -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False foreign import ccall "gtk_entry_buffer_delete_text" gtk_entry_buffer_delete_text :: Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer"- Word32 -> -- position : TBasicType TUInt32- Int32 -> -- n_chars : TBasicType TInt32+ Word32 -> -- position : TBasicType TUInt+ Int32 -> -- n_chars : TBasicType TInt IO Word32 @@ -437,16 +459,16 @@ -- method EntryBuffer::emit_deleted_text -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_buffer_emit_deleted_text" gtk_entry_buffer_emit_deleted_text :: Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer"- Word32 -> -- position : TBasicType TUInt32- Word32 -> -- n_chars : TBasicType TUInt32+ Word32 -> -- position : TBasicType TUInt+ Word32 -> -- n_chars : TBasicType TUInt IO () @@ -468,17 +490,17 @@ -- method EntryBuffer::emit_inserted_text -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_buffer_emit_inserted_text" gtk_entry_buffer_emit_inserted_text :: Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer"- Word32 -> -- position : TBasicType TUInt32+ Word32 -> -- position : TBasicType TUInt CString -> -- chars : TBasicType TUTF8- Word32 -> -- n_chars : TBasicType TUInt32+ Word32 -> -- n_chars : TBasicType TUInt IO () @@ -505,7 +527,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt64+-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -532,7 +554,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -559,7 +581,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -586,7 +608,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -613,17 +635,17 @@ -- method EntryBuffer::insert_text -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False foreign import ccall "gtk_entry_buffer_insert_text" gtk_entry_buffer_insert_text :: Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer"- Word32 -> -- position : TBasicType TUInt32+ Word32 -> -- position : TBasicType TUInt CString -> -- chars : TBasicType TUTF8- Int32 -> -- n_chars : TBasicType TInt32+ Int32 -> -- n_chars : TBasicType TInt IO Word32 @@ -648,15 +670,15 @@ -- method EntryBuffer::set_max_length -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_buffer_set_max_length" gtk_entry_buffer_set_max_length :: Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer"- Int32 -> -- max_length : TBasicType TInt32+ Int32 -> -- max_length : TBasicType TInt IO () @@ -677,16 +699,16 @@ -- method EntryBuffer::set_text -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_buffer_set_text" gtk_entry_buffer_set_text :: Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" CString -> -- chars : TBasicType TUTF8- Int32 -> -- n_chars : TBasicType TInt32+ Int32 -> -- n_chars : TBasicType TInt IO ()
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.EntryBuffer where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -156,12 +156,14 @@ -- ** CellArea EntryCompletionCellAreaPropertyInfo , constructEntryCompletionCellArea ,+ entryCompletionCellArea , getEntryCompletionCellArea , -- ** InlineCompletion EntryCompletionInlineCompletionPropertyInfo, constructEntryCompletionInlineCompletion,+ entryCompletionInlineCompletion , getEntryCompletionInlineCompletion , setEntryCompletionInlineCompletion , @@ -169,6 +171,7 @@ -- ** InlineSelection EntryCompletionInlineSelectionPropertyInfo, constructEntryCompletionInlineSelection ,+ entryCompletionInlineSelection , getEntryCompletionInlineSelection , setEntryCompletionInlineSelection , @@ -176,13 +179,16 @@ -- ** MinimumKeyLength EntryCompletionMinimumKeyLengthPropertyInfo, constructEntryCompletionMinimumKeyLength,+ entryCompletionMinimumKeyLength , getEntryCompletionMinimumKeyLength , setEntryCompletionMinimumKeyLength , -- ** Model EntryCompletionModelPropertyInfo ,+ clearEntryCompletionModel , constructEntryCompletionModel ,+ entryCompletionModel , getEntryCompletionModel , setEntryCompletionModel , @@ -190,6 +196,7 @@ -- ** PopupCompletion EntryCompletionPopupCompletionPropertyInfo, constructEntryCompletionPopupCompletion ,+ entryCompletionPopupCompletion , getEntryCompletionPopupCompletion , setEntryCompletionPopupCompletion , @@ -197,6 +204,7 @@ -- ** PopupSetWidth EntryCompletionPopupSetWidthPropertyInfo, constructEntryCompletionPopupSetWidth ,+ entryCompletionPopupSetWidth , getEntryCompletionPopupSetWidth , setEntryCompletionPopupSetWidth , @@ -204,6 +212,7 @@ -- ** PopupSingleMatch EntryCompletionPopupSingleMatchPropertyInfo, constructEntryCompletionPopupSingleMatch,+ entryCompletionPopupSingleMatch , getEntryCompletionPopupSingleMatch , setEntryCompletionPopupSingleMatch , @@ -211,6 +220,7 @@ -- ** TextColumn EntryCompletionTextColumnPropertyInfo , constructEntryCompletionTextColumn ,+ entryCompletionTextColumn , getEntryCompletionTextColumn , setEntryCompletionTextColumn , @@ -282,9 +292,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -614,27 +624,30 @@ -- VVV Prop "cell-area" -- Type: TInterface "Gtk" "CellArea" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+ -- Nullable: (Nothing,Nothing) -getEntryCompletionCellArea :: (MonadIO m, EntryCompletionK o) => o -> m CellArea+getEntryCompletionCellArea :: (MonadIO m, EntryCompletionK o) => o -> m (Maybe CellArea) getEntryCompletionCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea constructEntryCompletionCellArea :: (CellAreaK a) => a -> IO ([Char], GValue)-constructEntryCompletionCellArea val = constructObjectPropertyObject "cell-area" val+constructEntryCompletionCellArea val = constructObjectPropertyObject "cell-area" (Just val) data EntryCompletionCellAreaPropertyInfo instance AttrInfo EntryCompletionCellAreaPropertyInfo where- type AttrAllowedOps EntryCompletionCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EntryCompletionCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryCompletionCellAreaPropertyInfo = CellAreaK type AttrBaseTypeConstraint EntryCompletionCellAreaPropertyInfo = EntryCompletionK- type AttrGetType EntryCompletionCellAreaPropertyInfo = CellArea+ type AttrGetType EntryCompletionCellAreaPropertyInfo = (Maybe CellArea) type AttrLabel EntryCompletionCellAreaPropertyInfo = "cell-area" attrGet _ = getEntryCompletionCellArea attrSet _ = undefined attrConstruct _ = constructEntryCompletionCellArea+ attrClear _ = undefined -- VVV Prop "inline-completion" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryCompletionInlineCompletion :: (MonadIO m, EntryCompletionK o) => o -> m Bool getEntryCompletionInlineCompletion obj = liftIO $ getObjectPropertyBool obj "inline-completion"@@ -655,10 +668,12 @@ attrGet _ = getEntryCompletionInlineCompletion attrSet _ = setEntryCompletionInlineCompletion attrConstruct _ = constructEntryCompletionInlineCompletion+ attrClear _ = undefined -- VVV Prop "inline-selection" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryCompletionInlineSelection :: (MonadIO m, EntryCompletionK o) => o -> m Bool getEntryCompletionInlineSelection obj = liftIO $ getObjectPropertyBool obj "inline-selection"@@ -679,19 +694,21 @@ attrGet _ = getEntryCompletionInlineSelection attrSet _ = setEntryCompletionInlineSelection attrConstruct _ = constructEntryCompletionInlineSelection+ attrClear _ = undefined -- VVV Prop "minimum-key-length"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryCompletionMinimumKeyLength :: (MonadIO m, EntryCompletionK o) => o -> m Int32-getEntryCompletionMinimumKeyLength obj = liftIO $ getObjectPropertyCInt obj "minimum-key-length"+getEntryCompletionMinimumKeyLength obj = liftIO $ getObjectPropertyInt32 obj "minimum-key-length" setEntryCompletionMinimumKeyLength :: (MonadIO m, EntryCompletionK o) => o -> Int32 -> m ()-setEntryCompletionMinimumKeyLength obj val = liftIO $ setObjectPropertyCInt obj "minimum-key-length" val+setEntryCompletionMinimumKeyLength obj val = liftIO $ setObjectPropertyInt32 obj "minimum-key-length" val constructEntryCompletionMinimumKeyLength :: Int32 -> IO ([Char], GValue)-constructEntryCompletionMinimumKeyLength val = constructObjectPropertyCInt "minimum-key-length" val+constructEntryCompletionMinimumKeyLength val = constructObjectPropertyInt32 "minimum-key-length" val data EntryCompletionMinimumKeyLengthPropertyInfo instance AttrInfo EntryCompletionMinimumKeyLengthPropertyInfo where@@ -703,23 +720,28 @@ attrGet _ = getEntryCompletionMinimumKeyLength attrSet _ = setEntryCompletionMinimumKeyLength attrConstruct _ = constructEntryCompletionMinimumKeyLength+ attrClear _ = undefined -- VVV Prop "model" -- Type: TInterface "Gtk" "TreeModel" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getEntryCompletionModel :: (MonadIO m, EntryCompletionK o) => o -> m TreeModel-getEntryCompletionModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel+getEntryCompletionModel obj = liftIO $ checkUnexpectedNothing "getEntryCompletionModel" $ getObjectPropertyObject obj "model" TreeModel setEntryCompletionModel :: (MonadIO m, EntryCompletionK o, TreeModelK a) => o -> a -> m ()-setEntryCompletionModel obj val = liftIO $ setObjectPropertyObject obj "model" val+setEntryCompletionModel obj val = liftIO $ setObjectPropertyObject obj "model" (Just val) constructEntryCompletionModel :: (TreeModelK a) => a -> IO ([Char], GValue)-constructEntryCompletionModel val = constructObjectPropertyObject "model" val+constructEntryCompletionModel val = constructObjectPropertyObject "model" (Just val) +clearEntryCompletionModel :: (MonadIO m, EntryCompletionK o) => o -> m ()+clearEntryCompletionModel obj = liftIO $ setObjectPropertyObject obj "model" (Nothing :: Maybe TreeModel)+ data EntryCompletionModelPropertyInfo instance AttrInfo EntryCompletionModelPropertyInfo where- type AttrAllowedOps EntryCompletionModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EntryCompletionModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryCompletionModelPropertyInfo = TreeModelK type AttrBaseTypeConstraint EntryCompletionModelPropertyInfo = EntryCompletionK type AttrGetType EntryCompletionModelPropertyInfo = TreeModel@@ -727,10 +749,12 @@ attrGet _ = getEntryCompletionModel attrSet _ = setEntryCompletionModel attrConstruct _ = constructEntryCompletionModel+ attrClear _ = clearEntryCompletionModel -- VVV Prop "popup-completion" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryCompletionPopupCompletion :: (MonadIO m, EntryCompletionK o) => o -> m Bool getEntryCompletionPopupCompletion obj = liftIO $ getObjectPropertyBool obj "popup-completion"@@ -751,10 +775,12 @@ attrGet _ = getEntryCompletionPopupCompletion attrSet _ = setEntryCompletionPopupCompletion attrConstruct _ = constructEntryCompletionPopupCompletion+ attrClear _ = undefined -- VVV Prop "popup-set-width" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryCompletionPopupSetWidth :: (MonadIO m, EntryCompletionK o) => o -> m Bool getEntryCompletionPopupSetWidth obj = liftIO $ getObjectPropertyBool obj "popup-set-width"@@ -775,10 +801,12 @@ attrGet _ = getEntryCompletionPopupSetWidth attrSet _ = setEntryCompletionPopupSetWidth attrConstruct _ = constructEntryCompletionPopupSetWidth+ attrClear _ = undefined -- VVV Prop "popup-single-match" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryCompletionPopupSingleMatch :: (MonadIO m, EntryCompletionK o) => o -> m Bool getEntryCompletionPopupSingleMatch obj = liftIO $ getObjectPropertyBool obj "popup-single-match"@@ -799,19 +827,21 @@ attrGet _ = getEntryCompletionPopupSingleMatch attrSet _ = setEntryCompletionPopupSingleMatch attrConstruct _ = constructEntryCompletionPopupSingleMatch+ attrClear _ = undefined -- VVV Prop "text-column"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEntryCompletionTextColumn :: (MonadIO m, EntryCompletionK o) => o -> m Int32-getEntryCompletionTextColumn obj = liftIO $ getObjectPropertyCInt obj "text-column"+getEntryCompletionTextColumn obj = liftIO $ getObjectPropertyInt32 obj "text-column" setEntryCompletionTextColumn :: (MonadIO m, EntryCompletionK o) => o -> Int32 -> m ()-setEntryCompletionTextColumn obj val = liftIO $ setObjectPropertyCInt obj "text-column" val+setEntryCompletionTextColumn obj val = liftIO $ setObjectPropertyInt32 obj "text-column" val constructEntryCompletionTextColumn :: Int32 -> IO ([Char], GValue)-constructEntryCompletionTextColumn val = constructObjectPropertyCInt "text-column" val+constructEntryCompletionTextColumn val = constructObjectPropertyInt32 "text-column" val data EntryCompletionTextColumnPropertyInfo instance AttrInfo EntryCompletionTextColumnPropertyInfo where@@ -823,10 +853,38 @@ attrGet _ = getEntryCompletionTextColumn attrSet _ = setEntryCompletionTextColumn attrConstruct _ = constructEntryCompletionTextColumn+ attrClear _ = undefined type instance AttributeList EntryCompletion = EntryCompletionAttributeList type EntryCompletionAttributeList = ('[ '("cellArea", EntryCompletionCellAreaPropertyInfo), '("inlineCompletion", EntryCompletionInlineCompletionPropertyInfo), '("inlineSelection", EntryCompletionInlineSelectionPropertyInfo), '("minimumKeyLength", EntryCompletionMinimumKeyLengthPropertyInfo), '("model", EntryCompletionModelPropertyInfo), '("popupCompletion", EntryCompletionPopupCompletionPropertyInfo), '("popupSetWidth", EntryCompletionPopupSetWidthPropertyInfo), '("popupSingleMatch", EntryCompletionPopupSingleMatchPropertyInfo), '("textColumn", EntryCompletionTextColumnPropertyInfo)] :: [(Symbol, *)]) +entryCompletionCellArea :: AttrLabelProxy "cellArea"+entryCompletionCellArea = AttrLabelProxy++entryCompletionInlineCompletion :: AttrLabelProxy "inlineCompletion"+entryCompletionInlineCompletion = AttrLabelProxy++entryCompletionInlineSelection :: AttrLabelProxy "inlineSelection"+entryCompletionInlineSelection = AttrLabelProxy++entryCompletionMinimumKeyLength :: AttrLabelProxy "minimumKeyLength"+entryCompletionMinimumKeyLength = AttrLabelProxy++entryCompletionModel :: AttrLabelProxy "model"+entryCompletionModel = AttrLabelProxy++entryCompletionPopupCompletion :: AttrLabelProxy "popupCompletion"+entryCompletionPopupCompletion = AttrLabelProxy++entryCompletionPopupSetWidth :: AttrLabelProxy "popupSetWidth"+entryCompletionPopupSetWidth = AttrLabelProxy++entryCompletionPopupSingleMatch :: AttrLabelProxy "popupSingleMatch"+entryCompletionPopupSingleMatch = AttrLabelProxy++entryCompletionTextColumn :: AttrLabelProxy "textColumn"+entryCompletionTextColumn = AttrLabelProxy+ data EntryCompletionActionActivatedSignalInfo instance SignalInfo EntryCompletionActionActivatedSignalInfo where type HaskellCallbackType EntryCompletionActionActivatedSignalInfo = EntryCompletionActionActivatedCallback@@ -859,7 +917,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "EntryCompletion"+-- returnType : Just (TInterface "Gtk" "EntryCompletion") -- throws : False -- Skip return : False @@ -880,7 +938,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "EntryCompletion"+-- returnType : Just (TInterface "Gtk" "EntryCompletion") -- throws : False -- Skip return : False @@ -905,7 +963,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -932,7 +990,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -964,26 +1022,26 @@ -- method EntryCompletion::delete_action -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_completion_delete_action" gtk_entry_completion_delete_action :: Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"- Int32 -> -- index_ : TBasicType TInt32+ Int32 -> -- index_ : TBasicType TInt IO () entryCompletionDeleteAction :: (MonadIO m, EntryCompletionK a) => a -- _obj- -> Int32 -- index+ -> Int32 -- index_ -> m () -- result-entryCompletionDeleteAction _obj index = liftIO $ do+entryCompletionDeleteAction _obj index_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj- gtk_entry_completion_delete_action _obj' index+ gtk_entry_completion_delete_action _obj' index_ touchManagedPtr _obj return () @@ -995,7 +1053,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1024,7 +1082,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1053,7 +1111,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1081,7 +1139,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1109,7 +1167,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1136,7 +1194,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "TreeModel"+-- returnType : Just (TInterface "Gtk" "TreeModel") -- throws : False -- Skip return : False @@ -1165,7 +1223,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1193,7 +1251,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1221,7 +1279,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1249,7 +1307,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1274,15 +1332,15 @@ -- method EntryCompletion::insert_action_markup -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_completion_insert_action_markup" gtk_entry_completion_insert_action_markup :: Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"- Int32 -> -- index_ : TBasicType TInt32+ Int32 -> -- index_ : TBasicType TInt CString -> -- markup : TBasicType TUTF8 IO () @@ -1290,13 +1348,13 @@ entryCompletionInsertActionMarkup :: (MonadIO m, EntryCompletionK a) => a -- _obj- -> Int32 -- index+ -> Int32 -- index_ -> T.Text -- markup -> m () -- result-entryCompletionInsertActionMarkup _obj index markup = liftIO $ do+entryCompletionInsertActionMarkup _obj index_ markup = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj markup' <- textToCString markup- gtk_entry_completion_insert_action_markup _obj' index markup'+ gtk_entry_completion_insert_action_markup _obj' index_ markup' touchManagedPtr _obj freeMem markup' return ()@@ -1307,15 +1365,15 @@ -- method EntryCompletion::insert_action_text -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_completion_insert_action_text" gtk_entry_completion_insert_action_text :: Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"- Int32 -> -- index_ : TBasicType TInt32+ Int32 -> -- index_ : TBasicType TInt CString -> -- text : TBasicType TUTF8 IO () @@ -1323,13 +1381,13 @@ entryCompletionInsertActionText :: (MonadIO m, EntryCompletionK a) => a -- _obj- -> Int32 -- index+ -> Int32 -- index_ -> T.Text -- text -> m () -- result-entryCompletionInsertActionText _obj index text = liftIO $ do+entryCompletionInsertActionText _obj index_ text = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj text' <- textToCString text- gtk_entry_completion_insert_action_text _obj' index text'+ gtk_entry_completion_insert_action_text _obj' index_ text' touchManagedPtr _obj freeMem text' return ()@@ -1342,7 +1400,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1369,7 +1427,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inline_completion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1399,7 +1457,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inline_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1427,16 +1485,16 @@ -- method EntryCompletion::set_match_func -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "EntryCompletionMatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "EntryCompletionMatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_completion_set_match_func" gtk_entry_completion_set_match_func :: Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" FunPtr EntryCompletionMatchFuncC -> -- func : TInterface "Gtk" "EntryCompletionMatchFunc"- Ptr () -> -- func_data : TBasicType TVoid+ Ptr () -> -- func_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- func_notify : TInterface "GLib" "DestroyNotify" IO () @@ -1461,15 +1519,15 @@ -- method EntryCompletion::set_minimum_key_length -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_completion_set_minimum_key_length" gtk_entry_completion_set_minimum_key_length :: Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"- Int32 -> -- length : TBasicType TInt32+ Int32 -> -- length : TBasicType TInt IO () @@ -1492,7 +1550,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1527,7 +1585,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popup_completion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1557,7 +1615,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popup_set_width", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1587,7 +1645,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popup_single_match", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1615,15 +1673,15 @@ -- method EntryCompletion::set_text_column -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_completion_set_text_column" gtk_entry_completion_set_text_column :: Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"- Int32 -> -- column : TBasicType TInt32+ Int32 -> -- column : TBasicType TInt IO ()
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.EntryCompletion where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.EntryIconAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -47,6 +47,7 @@ -- ** AboveChild EventBoxAboveChildPropertyInfo , constructEventBoxAboveChild ,+ eventBoxAboveChild , getEventBoxAboveChild , setEventBoxAboveChild , @@ -54,6 +55,7 @@ -- ** VisibleWindow EventBoxVisibleWindowPropertyInfo , constructEventBoxVisibleWindow ,+ eventBoxVisibleWindow , getEventBoxVisibleWindow , setEventBoxVisibleWindow , @@ -62,9 +64,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -425,6 +427,7 @@ -- VVV Prop "above-child" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEventBoxAboveChild :: (MonadIO m, EventBoxK o) => o -> m Bool getEventBoxAboveChild obj = liftIO $ getObjectPropertyBool obj "above-child"@@ -445,10 +448,12 @@ attrGet _ = getEventBoxAboveChild attrSet _ = setEventBoxAboveChild attrConstruct _ = constructEventBoxAboveChild+ attrClear _ = undefined -- VVV Prop "visible-window" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEventBoxVisibleWindow :: (MonadIO m, EventBoxK o) => o -> m Bool getEventBoxVisibleWindow obj = liftIO $ getObjectPropertyBool obj "visible-window"@@ -469,10 +474,17 @@ attrGet _ = getEventBoxVisibleWindow attrSet _ = setEventBoxVisibleWindow attrConstruct _ = constructEventBoxVisibleWindow+ attrClear _ = undefined type instance AttributeList EventBox = EventBoxAttributeList type EventBoxAttributeList = ('[ '("aboveChild", EventBoxAboveChildPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleWindow", EventBoxVisibleWindowPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +eventBoxAboveChild :: AttrLabelProxy "aboveChild"+eventBoxAboveChild = AttrLabelProxy++eventBoxVisibleWindow :: AttrLabelProxy "visibleWindow"+eventBoxVisibleWindow = AttrLabelProxy+ type instance SignalList EventBox = EventBoxSignalList type EventBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -480,7 +492,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "EventBox"+-- returnType : Just (TInterface "Gtk" "EventBox") -- throws : False -- Skip return : False @@ -501,7 +513,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -529,7 +541,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -557,7 +569,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "above_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -587,7 +599,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.EventBox where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -48,6 +48,7 @@ -- ** PropagationPhase EventControllerPropagationPhasePropertyInfo, constructEventControllerPropagationPhase,+ eventControllerPropagationPhase , getEventControllerPropagationPhase , setEventControllerPropagationPhase , @@ -55,6 +56,7 @@ -- ** Widget EventControllerWidgetPropertyInfo , constructEventControllerWidget ,+ eventControllerWidget , getEventControllerWidget , @@ -62,9 +64,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -136,6 +138,7 @@ -- VVV Prop "propagation-phase" -- Type: TInterface "Gtk" "PropagationPhase" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getEventControllerPropagationPhase :: (MonadIO m, EventControllerK o) => o -> m PropagationPhase getEventControllerPropagationPhase obj = liftIO $ getObjectPropertyEnum obj "propagation-phase"@@ -156,20 +159,22 @@ attrGet _ = getEventControllerPropagationPhase attrSet _ = setEventControllerPropagationPhase attrConstruct _ = constructEventControllerPropagationPhase+ attrClear _ = undefined -- VVV Prop "widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+ -- Nullable: (Just False,Nothing) getEventControllerWidget :: (MonadIO m, EventControllerK o) => o -> m Widget-getEventControllerWidget obj = liftIO $ getObjectPropertyObject obj "widget" Widget+getEventControllerWidget obj = liftIO $ checkUnexpectedNothing "getEventControllerWidget" $ getObjectPropertyObject obj "widget" Widget constructEventControllerWidget :: (WidgetK a) => a -> IO ([Char], GValue)-constructEventControllerWidget val = constructObjectPropertyObject "widget" val+constructEventControllerWidget val = constructObjectPropertyObject "widget" (Just val) data EventControllerWidgetPropertyInfo instance AttrInfo EventControllerWidgetPropertyInfo where- type AttrAllowedOps EventControllerWidgetPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps EventControllerWidgetPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EventControllerWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint EventControllerWidgetPropertyInfo = EventControllerK type AttrGetType EventControllerWidgetPropertyInfo = Widget@@ -177,10 +182,17 @@ attrGet _ = getEventControllerWidget attrSet _ = undefined attrConstruct _ = constructEventControllerWidget+ attrClear _ = undefined type instance AttributeList EventController = EventControllerAttributeList type EventControllerAttributeList = ('[ '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo)] :: [(Symbol, *)]) +eventControllerPropagationPhase :: AttrLabelProxy "propagationPhase"+eventControllerPropagationPhase = AttrLabelProxy++eventControllerWidget :: AttrLabelProxy "widget"+eventControllerWidget = AttrLabelProxy+ type instance SignalList EventController = EventControllerSignalList type EventControllerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -188,7 +200,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PropagationPhase"+-- returnType : Just (TInterface "Gtk" "PropagationPhase") -- throws : False -- Skip return : False @@ -216,7 +228,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -245,7 +257,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -277,7 +289,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -304,7 +316,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "phase", argType = TInterface "Gtk" "PropagationPhase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.EventController where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -111,13 +111,16 @@ -- ** Expanded ExpanderExpandedPropertyInfo , constructExpanderExpanded ,+ expanderExpanded , getExpanderExpanded , setExpanderExpanded , -- ** Label ExpanderLabelPropertyInfo ,+ clearExpanderLabel , constructExpanderLabel ,+ expanderLabel , getExpanderLabel , setExpanderLabel , @@ -125,13 +128,16 @@ -- ** LabelFill ExpanderLabelFillPropertyInfo , constructExpanderLabelFill ,+ expanderLabelFill , getExpanderLabelFill , setExpanderLabelFill , -- ** LabelWidget ExpanderLabelWidgetPropertyInfo ,+ clearExpanderLabelWidget , constructExpanderLabelWidget ,+ expanderLabelWidget , getExpanderLabelWidget , setExpanderLabelWidget , @@ -139,6 +145,7 @@ -- ** ResizeToplevel ExpanderResizeToplevelPropertyInfo , constructExpanderResizeToplevel ,+ expanderResizeToplevel , getExpanderResizeToplevel , setExpanderResizeToplevel , @@ -146,6 +153,7 @@ -- ** Spacing ExpanderSpacingPropertyInfo , constructExpanderSpacing ,+ expanderSpacing , getExpanderSpacing , setExpanderSpacing , @@ -153,6 +161,7 @@ -- ** UseMarkup ExpanderUseMarkupPropertyInfo , constructExpanderUseMarkup ,+ expanderUseMarkup , getExpanderUseMarkup , setExpanderUseMarkup , @@ -160,6 +169,7 @@ -- ** UseUnderline ExpanderUseUnderlinePropertyInfo , constructExpanderUseUnderline ,+ expanderUseUnderline , getExpanderUseUnderline , setExpanderUseUnderline , @@ -183,9 +193,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -596,6 +606,7 @@ -- VVV Prop "expanded" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getExpanderExpanded :: (MonadIO m, ExpanderK o) => o -> m Bool getExpanderExpanded obj = liftIO $ getObjectPropertyBool obj "expanded"@@ -616,23 +627,28 @@ attrGet _ = getExpanderExpanded attrSet _ = setExpanderExpanded attrConstruct _ = constructExpanderExpanded+ attrClear _ = undefined -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just True) getExpanderLabel :: (MonadIO m, ExpanderK o) => o -> m T.Text-getExpanderLabel obj = liftIO $ getObjectPropertyString obj "label"+getExpanderLabel obj = liftIO $ checkUnexpectedNothing "getExpanderLabel" $ getObjectPropertyString obj "label" setExpanderLabel :: (MonadIO m, ExpanderK o) => o -> T.Text -> m ()-setExpanderLabel obj val = liftIO $ setObjectPropertyString obj "label" val+setExpanderLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) constructExpanderLabel :: T.Text -> IO ([Char], GValue)-constructExpanderLabel val = constructObjectPropertyString "label" val+constructExpanderLabel val = constructObjectPropertyString "label" (Just val) +clearExpanderLabel :: (MonadIO m, ExpanderK o) => o -> m ()+clearExpanderLabel obj = liftIO $ setObjectPropertyString obj "label" (Nothing :: Maybe T.Text)+ data ExpanderLabelPropertyInfo instance AttrInfo ExpanderLabelPropertyInfo where- type AttrAllowedOps ExpanderLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ExpanderLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ExpanderLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ExpanderLabelPropertyInfo = ExpanderK type AttrGetType ExpanderLabelPropertyInfo = T.Text@@ -640,10 +656,12 @@ attrGet _ = getExpanderLabel attrSet _ = setExpanderLabel attrConstruct _ = constructExpanderLabel+ attrClear _ = clearExpanderLabel -- VVV Prop "label-fill" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getExpanderLabelFill :: (MonadIO m, ExpanderK o) => o -> m Bool getExpanderLabelFill obj = liftIO $ getObjectPropertyBool obj "label-fill"@@ -664,23 +682,28 @@ attrGet _ = getExpanderLabelFill attrSet _ = setExpanderLabelFill attrConstruct _ = constructExpanderLabelFill+ attrClear _ = undefined -- VVV Prop "label-widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getExpanderLabelWidget :: (MonadIO m, ExpanderK o) => o -> m Widget-getExpanderLabelWidget obj = liftIO $ getObjectPropertyObject obj "label-widget" Widget+getExpanderLabelWidget obj = liftIO $ checkUnexpectedNothing "getExpanderLabelWidget" $ getObjectPropertyObject obj "label-widget" Widget setExpanderLabelWidget :: (MonadIO m, ExpanderK o, WidgetK a) => o -> a -> m ()-setExpanderLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" val+setExpanderLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" (Just val) constructExpanderLabelWidget :: (WidgetK a) => a -> IO ([Char], GValue)-constructExpanderLabelWidget val = constructObjectPropertyObject "label-widget" val+constructExpanderLabelWidget val = constructObjectPropertyObject "label-widget" (Just val) +clearExpanderLabelWidget :: (MonadIO m, ExpanderK o) => o -> m ()+clearExpanderLabelWidget obj = liftIO $ setObjectPropertyObject obj "label-widget" (Nothing :: Maybe Widget)+ data ExpanderLabelWidgetPropertyInfo instance AttrInfo ExpanderLabelWidgetPropertyInfo where- type AttrAllowedOps ExpanderLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ExpanderLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ExpanderLabelWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint ExpanderLabelWidgetPropertyInfo = ExpanderK type AttrGetType ExpanderLabelWidgetPropertyInfo = Widget@@ -688,10 +711,12 @@ attrGet _ = getExpanderLabelWidget attrSet _ = setExpanderLabelWidget attrConstruct _ = constructExpanderLabelWidget+ attrClear _ = clearExpanderLabelWidget -- VVV Prop "resize-toplevel" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getExpanderResizeToplevel :: (MonadIO m, ExpanderK o) => o -> m Bool getExpanderResizeToplevel obj = liftIO $ getObjectPropertyBool obj "resize-toplevel"@@ -712,19 +737,21 @@ attrGet _ = getExpanderResizeToplevel attrSet _ = setExpanderResizeToplevel attrConstruct _ = constructExpanderResizeToplevel+ attrClear _ = undefined -- VVV Prop "spacing"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getExpanderSpacing :: (MonadIO m, ExpanderK o) => o -> m Int32-getExpanderSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing"+getExpanderSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing" setExpanderSpacing :: (MonadIO m, ExpanderK o) => o -> Int32 -> m ()-setExpanderSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val+setExpanderSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val constructExpanderSpacing :: Int32 -> IO ([Char], GValue)-constructExpanderSpacing val = constructObjectPropertyCInt "spacing" val+constructExpanderSpacing val = constructObjectPropertyInt32 "spacing" val data ExpanderSpacingPropertyInfo instance AttrInfo ExpanderSpacingPropertyInfo where@@ -736,10 +763,12 @@ attrGet _ = getExpanderSpacing attrSet _ = setExpanderSpacing attrConstruct _ = constructExpanderSpacing+ attrClear _ = undefined -- VVV Prop "use-markup" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getExpanderUseMarkup :: (MonadIO m, ExpanderK o) => o -> m Bool getExpanderUseMarkup obj = liftIO $ getObjectPropertyBool obj "use-markup"@@ -760,10 +789,12 @@ attrGet _ = getExpanderUseMarkup attrSet _ = setExpanderUseMarkup attrConstruct _ = constructExpanderUseMarkup+ attrClear _ = undefined -- VVV Prop "use-underline" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getExpanderUseUnderline :: (MonadIO m, ExpanderK o) => o -> m Bool getExpanderUseUnderline obj = liftIO $ getObjectPropertyBool obj "use-underline"@@ -784,10 +815,35 @@ attrGet _ = getExpanderUseUnderline attrSet _ = setExpanderUseUnderline attrConstruct _ = constructExpanderUseUnderline+ attrClear _ = undefined type instance AttributeList Expander = ExpanderAttributeList type ExpanderAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("expanded", ExpanderExpandedPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ExpanderLabelPropertyInfo), '("labelFill", ExpanderLabelFillPropertyInfo), '("labelWidget", ExpanderLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("resizeToplevel", ExpanderResizeToplevelPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", ExpanderSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useMarkup", ExpanderUseMarkupPropertyInfo), '("useUnderline", ExpanderUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +expanderExpanded :: AttrLabelProxy "expanded"+expanderExpanded = AttrLabelProxy++expanderLabel :: AttrLabelProxy "label"+expanderLabel = AttrLabelProxy++expanderLabelFill :: AttrLabelProxy "labelFill"+expanderLabelFill = AttrLabelProxy++expanderLabelWidget :: AttrLabelProxy "labelWidget"+expanderLabelWidget = AttrLabelProxy++expanderResizeToplevel :: AttrLabelProxy "resizeToplevel"+expanderResizeToplevel = AttrLabelProxy++expanderSpacing :: AttrLabelProxy "spacing"+expanderSpacing = AttrLabelProxy++expanderUseMarkup :: AttrLabelProxy "useMarkup"+expanderUseMarkup = AttrLabelProxy++expanderUseUnderline :: AttrLabelProxy "useUnderline"+expanderUseUnderline = AttrLabelProxy+ data ExpanderActivateSignalInfo instance SignalInfo ExpanderActivateSignalInfo where type HaskellCallbackType ExpanderActivateSignalInfo = ExpanderActivateCallback@@ -800,7 +856,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Expander"+-- returnType : Just (TInterface "Gtk" "Expander") -- throws : False -- Skip return : False @@ -825,7 +881,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Expander"+-- returnType : Just (TInterface "Gtk" "Expander") -- throws : False -- Skip return : False @@ -854,7 +910,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -882,7 +938,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -911,7 +967,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -939,7 +995,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -968,7 +1024,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -996,7 +1052,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1023,7 +1079,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1051,7 +1107,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1079,7 +1135,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1109,7 +1165,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1144,7 +1200,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1174,7 +1230,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1209,7 +1265,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resize_toplevel", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1237,15 +1293,15 @@ -- method Expander::set_spacing -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_expander_set_spacing" gtk_expander_set_spacing :: Ptr Expander -> -- _obj : TInterface "Gtk" "Expander"- Int32 -> -- spacing : TBasicType TInt32+ Int32 -> -- spacing : TBasicType TInt IO () @@ -1268,7 +1324,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_markup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1298,7 +1354,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Expander where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ExpanderAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -61,11 +61,13 @@ -- ** Dialog FileChooserButtonDialogPropertyInfo , constructFileChooserButtonDialog ,+ fileChooserButtonDialog , -- ** FocusOnClick FileChooserButtonFocusOnClickPropertyInfo, constructFileChooserButtonFocusOnClick ,+ fileChooserButtonFocusOnClick , getFileChooserButtonFocusOnClick , setFileChooserButtonFocusOnClick , @@ -73,6 +75,7 @@ -- ** Title FileChooserButtonTitlePropertyInfo , constructFileChooserButtonTitle ,+ fileChooserButtonTitle , getFileChooserButtonTitle , setFileChooserButtonTitle , @@ -80,6 +83,7 @@ -- ** WidthChars FileChooserButtonWidthCharsPropertyInfo , constructFileChooserButtonWidthChars ,+ fileChooserButtonWidthChars , getFileChooserButtonWidthChars , setFileChooserButtonWidthChars , @@ -103,9 +107,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -579,13 +583,14 @@ -- VVV Prop "dialog" -- Type: TInterface "Gtk" "FileChooser" -- Flags: [PropertyWritable,PropertyConstructOnly]+ -- Nullable: (Nothing,Nothing) constructFileChooserButtonDialog :: (FileChooserK a) => a -> IO ([Char], GValue)-constructFileChooserButtonDialog val = constructObjectPropertyObject "dialog" val+constructFileChooserButtonDialog val = constructObjectPropertyObject "dialog" (Just val) data FileChooserButtonDialogPropertyInfo instance AttrInfo FileChooserButtonDialogPropertyInfo where- type AttrAllowedOps FileChooserButtonDialogPropertyInfo = '[ 'AttrConstruct]+ type AttrAllowedOps FileChooserButtonDialogPropertyInfo = '[ 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint FileChooserButtonDialogPropertyInfo = FileChooserK type AttrBaseTypeConstraint FileChooserButtonDialogPropertyInfo = FileChooserButtonK type AttrGetType FileChooserButtonDialogPropertyInfo = ()@@ -593,10 +598,12 @@ attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructFileChooserButtonDialog+ attrClear _ = undefined -- VVV Prop "focus-on-click" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFileChooserButtonFocusOnClick :: (MonadIO m, FileChooserButtonK o) => o -> m Bool getFileChooserButtonFocusOnClick obj = liftIO $ getObjectPropertyBool obj "focus-on-click"@@ -617,19 +624,21 @@ attrGet _ = getFileChooserButtonFocusOnClick attrSet _ = setFileChooserButtonFocusOnClick attrConstruct _ = constructFileChooserButtonFocusOnClick+ attrClear _ = undefined -- VVV Prop "title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFileChooserButtonTitle :: (MonadIO m, FileChooserButtonK o) => o -> m T.Text-getFileChooserButtonTitle obj = liftIO $ getObjectPropertyString obj "title"+getFileChooserButtonTitle obj = liftIO $ checkUnexpectedNothing "getFileChooserButtonTitle" $ getObjectPropertyString obj "title" setFileChooserButtonTitle :: (MonadIO m, FileChooserButtonK o) => o -> T.Text -> m ()-setFileChooserButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" val+setFileChooserButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) constructFileChooserButtonTitle :: T.Text -> IO ([Char], GValue)-constructFileChooserButtonTitle val = constructObjectPropertyString "title" val+constructFileChooserButtonTitle val = constructObjectPropertyString "title" (Just val) data FileChooserButtonTitlePropertyInfo instance AttrInfo FileChooserButtonTitlePropertyInfo where@@ -641,19 +650,21 @@ attrGet _ = getFileChooserButtonTitle attrSet _ = setFileChooserButtonTitle attrConstruct _ = constructFileChooserButtonTitle+ attrClear _ = undefined -- VVV Prop "width-chars"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFileChooserButtonWidthChars :: (MonadIO m, FileChooserButtonK o) => o -> m Int32-getFileChooserButtonWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars"+getFileChooserButtonWidthChars obj = liftIO $ getObjectPropertyInt32 obj "width-chars" setFileChooserButtonWidthChars :: (MonadIO m, FileChooserButtonK o) => o -> Int32 -> m ()-setFileChooserButtonWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val+setFileChooserButtonWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "width-chars" val constructFileChooserButtonWidthChars :: Int32 -> IO ([Char], GValue)-constructFileChooserButtonWidthChars val = constructObjectPropertyCInt "width-chars" val+constructFileChooserButtonWidthChars val = constructObjectPropertyInt32 "width-chars" val data FileChooserButtonWidthCharsPropertyInfo instance AttrInfo FileChooserButtonWidthCharsPropertyInfo where@@ -665,10 +676,23 @@ attrGet _ = getFileChooserButtonWidthChars attrSet _ = setFileChooserButtonWidthChars attrConstruct _ = constructFileChooserButtonWidthChars+ attrClear _ = undefined type instance AttributeList FileChooserButton = FileChooserButtonAttributeList type FileChooserButtonAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("createFolders", FileChooserCreateFoldersPropertyInfo), '("dialog", FileChooserButtonDialogPropertyInfo), '("doOverwriteConfirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extraWidget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("focusOnClick", FileChooserButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("localOnly", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewWidget", FileChooserPreviewWidgetPropertyInfo), '("previewWidgetActive", FileChooserPreviewWidgetActivePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectMultiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showHidden", FileChooserShowHiddenPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", FileChooserButtonTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("usePreviewLabel", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", FileChooserButtonWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +fileChooserButtonDialog :: AttrLabelProxy "dialog"+fileChooserButtonDialog = AttrLabelProxy++fileChooserButtonFocusOnClick :: AttrLabelProxy "focusOnClick"+fileChooserButtonFocusOnClick = AttrLabelProxy++fileChooserButtonTitle :: AttrLabelProxy "title"+fileChooserButtonTitle = AttrLabelProxy++fileChooserButtonWidthChars :: AttrLabelProxy "widthChars"+fileChooserButtonWidthChars = AttrLabelProxy+ data FileChooserButtonFileSetSignalInfo instance SignalInfo FileChooserButtonFileSetSignalInfo where type HaskellCallbackType FileChooserButtonFileSetSignalInfo = FileChooserButtonFileSetCallback@@ -681,7 +705,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "FileChooserButton"+-- returnType : Just (TInterface "Gtk" "FileChooserButton") -- throws : False -- Skip return : False @@ -709,7 +733,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "dialog", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "FileChooserButton"+-- returnType : Just (TInterface "Gtk" "FileChooserButton") -- throws : False -- Skip return : False @@ -734,7 +758,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -762,7 +786,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -791,7 +815,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -818,7 +842,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -848,7 +872,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -877,15 +901,15 @@ -- method FileChooserButton::set_width_chars -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_file_chooser_button_set_width_chars" gtk_file_chooser_button_set_width_chars :: Ptr FileChooserButton -> -- _obj : TInterface "Gtk" "FileChooserButton"- Int32 -> -- n_chars : TBasicType TInt32+ Int32 -> -- n_chars : TBasicType TInt IO ()
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.FileChooserButton where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.FileChooserDialog where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -27,12 +27,14 @@ -- ** SearchMode FileChooserWidgetSearchModePropertyInfo , constructFileChooserWidgetSearchMode ,+ fileChooserWidgetSearchMode , getFileChooserWidgetSearchMode , setFileChooserWidgetSearchMode , -- ** Subtitle FileChooserWidgetSubtitlePropertyInfo ,+ fileChooserWidgetSubtitle , getFileChooserWidgetSubtitle , @@ -187,9 +189,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -1082,6 +1084,7 @@ -- VVV Prop "search-mode" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getFileChooserWidgetSearchMode :: (MonadIO m, FileChooserWidgetK o) => o -> m Bool getFileChooserWidgetSearchMode obj = liftIO $ getObjectPropertyBool obj "search-mode"@@ -1102,28 +1105,37 @@ attrGet _ = getFileChooserWidgetSearchMode attrSet _ = setFileChooserWidgetSearchMode attrConstruct _ = constructFileChooserWidgetSearchMode+ attrClear _ = undefined -- VVV Prop "subtitle" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) -getFileChooserWidgetSubtitle :: (MonadIO m, FileChooserWidgetK o) => o -> m T.Text+getFileChooserWidgetSubtitle :: (MonadIO m, FileChooserWidgetK o) => o -> m (Maybe T.Text) getFileChooserWidgetSubtitle obj = liftIO $ getObjectPropertyString obj "subtitle" data FileChooserWidgetSubtitlePropertyInfo instance AttrInfo FileChooserWidgetSubtitlePropertyInfo where- type AttrAllowedOps FileChooserWidgetSubtitlePropertyInfo = '[ 'AttrGet]+ type AttrAllowedOps FileChooserWidgetSubtitlePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint FileChooserWidgetSubtitlePropertyInfo = (~) () type AttrBaseTypeConstraint FileChooserWidgetSubtitlePropertyInfo = FileChooserWidgetK- type AttrGetType FileChooserWidgetSubtitlePropertyInfo = T.Text+ type AttrGetType FileChooserWidgetSubtitlePropertyInfo = (Maybe T.Text) type AttrLabel FileChooserWidgetSubtitlePropertyInfo = "subtitle" attrGet _ = getFileChooserWidgetSubtitle attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined type instance AttributeList FileChooserWidget = FileChooserWidgetAttributeList type FileChooserWidgetAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("createFolders", FileChooserCreateFoldersPropertyInfo), '("doOverwriteConfirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extraWidget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("localOnly", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewWidget", FileChooserPreviewWidgetPropertyInfo), '("previewWidgetActive", FileChooserPreviewWidgetActivePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("searchMode", FileChooserWidgetSearchModePropertyInfo), '("selectMultiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showHidden", FileChooserShowHiddenPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("subtitle", FileChooserWidgetSubtitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("usePreviewLabel", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +fileChooserWidgetSearchMode :: AttrLabelProxy "searchMode"+fileChooserWidgetSearchMode = AttrLabelProxy++fileChooserWidgetSubtitle :: AttrLabelProxy "subtitle"+fileChooserWidgetSubtitle = AttrLabelProxy+ data FileChooserWidgetDesktopFolderSignalInfo instance SignalInfo FileChooserWidgetDesktopFolderSignalInfo where type HaskellCallbackType FileChooserWidgetDesktopFolderSignalInfo = FileChooserWidgetDesktopFolderCallback@@ -1191,7 +1203,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "FileChooserWidget"+-- returnType : Just (TInterface "Gtk" "FileChooserWidget") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.FileChooserWidget where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -65,9 +65,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -155,7 +155,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "FileFilter"+-- returnType : Just (TInterface "Gtk" "FileFilter") -- throws : False -- Skip return : False @@ -174,9 +174,9 @@ -- method FileFilter::add_custom -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "needed", argType = TInterface "Gtk" "FileFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "FileFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "needed", argType = TInterface "Gtk" "FileFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "FileFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -184,7 +184,7 @@ Ptr FileFilter -> -- _obj : TInterface "Gtk" "FileFilter" CUInt -> -- needed : TInterface "Gtk" "FileFilterFlags" FunPtr FileFilterFuncC -> -- func : TInterface "Gtk" "FileFilterFunc"- Ptr () -> -- data : TBasicType TVoid+ Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" IO () @@ -213,7 +213,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -244,7 +244,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -275,7 +275,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -302,7 +302,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_info", argType = TInterface "Gtk" "FileFilterInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -334,7 +334,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -363,7 +363,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "FileFilterFlags"+-- returnType : Just (TInterface "Gtk" "FileFilterFlags") -- throws : False -- Skip return : False @@ -391,7 +391,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.FileFilter where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -35,9 +35,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -402,7 +402,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "Fixed"+-- returnType : Just (TInterface "Gtk" "Fixed") -- throws : False -- Skip return : False @@ -421,17 +421,17 @@ -- method Fixed::move -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_fixed_move" gtk_fixed_move :: Ptr Fixed -> -- _obj : TInterface "Gtk" "Fixed" Ptr Widget -> -- widget : TInterface "Gtk" "Widget"- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt IO () @@ -456,17 +456,17 @@ -- method Fixed::put -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_fixed_put" gtk_fixed_put :: Ptr Fixed -> -- _obj : TInterface "Gtk" "Fixed" Ptr Widget -> -- widget : TInterface "Gtk" "Widget"- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt IO ()
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Fixed where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -167,6 +167,7 @@ -- ** ActivateOnSingleClick FlowBoxActivateOnSingleClickPropertyInfo, constructFlowBoxActivateOnSingleClick ,+ flowBoxActivateOnSingleClick , getFlowBoxActivateOnSingleClick , setFlowBoxActivateOnSingleClick , @@ -174,6 +175,7 @@ -- ** ColumnSpacing FlowBoxColumnSpacingPropertyInfo , constructFlowBoxColumnSpacing ,+ flowBoxColumnSpacing , getFlowBoxColumnSpacing , setFlowBoxColumnSpacing , @@ -181,6 +183,7 @@ -- ** Homogeneous FlowBoxHomogeneousPropertyInfo , constructFlowBoxHomogeneous ,+ flowBoxHomogeneous , getFlowBoxHomogeneous , setFlowBoxHomogeneous , @@ -188,6 +191,7 @@ -- ** MaxChildrenPerLine FlowBoxMaxChildrenPerLinePropertyInfo , constructFlowBoxMaxChildrenPerLine ,+ flowBoxMaxChildrenPerLine , getFlowBoxMaxChildrenPerLine , setFlowBoxMaxChildrenPerLine , @@ -195,6 +199,7 @@ -- ** MinChildrenPerLine FlowBoxMinChildrenPerLinePropertyInfo , constructFlowBoxMinChildrenPerLine ,+ flowBoxMinChildrenPerLine , getFlowBoxMinChildrenPerLine , setFlowBoxMinChildrenPerLine , @@ -202,6 +207,7 @@ -- ** RowSpacing FlowBoxRowSpacingPropertyInfo , constructFlowBoxRowSpacing ,+ flowBoxRowSpacing , getFlowBoxRowSpacing , setFlowBoxRowSpacing , @@ -209,6 +215,7 @@ -- ** SelectionMode FlowBoxSelectionModePropertyInfo , constructFlowBoxSelectionMode ,+ flowBoxSelectionMode , getFlowBoxSelectionMode , setFlowBoxSelectionMode , @@ -304,9 +311,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -972,6 +979,7 @@ -- VVV Prop "activate-on-single-click" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFlowBoxActivateOnSingleClick :: (MonadIO m, FlowBoxK o) => o -> m Bool getFlowBoxActivateOnSingleClick obj = liftIO $ getObjectPropertyBool obj "activate-on-single-click"@@ -992,19 +1000,21 @@ attrGet _ = getFlowBoxActivateOnSingleClick attrSet _ = setFlowBoxActivateOnSingleClick attrConstruct _ = constructFlowBoxActivateOnSingleClick+ attrClear _ = undefined -- VVV Prop "column-spacing"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFlowBoxColumnSpacing :: (MonadIO m, FlowBoxK o) => o -> m Word32-getFlowBoxColumnSpacing obj = liftIO $ getObjectPropertyCUInt obj "column-spacing"+getFlowBoxColumnSpacing obj = liftIO $ getObjectPropertyUInt32 obj "column-spacing" setFlowBoxColumnSpacing :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m ()-setFlowBoxColumnSpacing obj val = liftIO $ setObjectPropertyCUInt obj "column-spacing" val+setFlowBoxColumnSpacing obj val = liftIO $ setObjectPropertyUInt32 obj "column-spacing" val constructFlowBoxColumnSpacing :: Word32 -> IO ([Char], GValue)-constructFlowBoxColumnSpacing val = constructObjectPropertyCUInt "column-spacing" val+constructFlowBoxColumnSpacing val = constructObjectPropertyUInt32 "column-spacing" val data FlowBoxColumnSpacingPropertyInfo instance AttrInfo FlowBoxColumnSpacingPropertyInfo where@@ -1016,10 +1026,12 @@ attrGet _ = getFlowBoxColumnSpacing attrSet _ = setFlowBoxColumnSpacing attrConstruct _ = constructFlowBoxColumnSpacing+ attrClear _ = undefined -- VVV Prop "homogeneous" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFlowBoxHomogeneous :: (MonadIO m, FlowBoxK o) => o -> m Bool getFlowBoxHomogeneous obj = liftIO $ getObjectPropertyBool obj "homogeneous"@@ -1040,19 +1052,21 @@ attrGet _ = getFlowBoxHomogeneous attrSet _ = setFlowBoxHomogeneous attrConstruct _ = constructFlowBoxHomogeneous+ attrClear _ = undefined -- VVV Prop "max-children-per-line"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFlowBoxMaxChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> m Word32-getFlowBoxMaxChildrenPerLine obj = liftIO $ getObjectPropertyCUInt obj "max-children-per-line"+getFlowBoxMaxChildrenPerLine obj = liftIO $ getObjectPropertyUInt32 obj "max-children-per-line" setFlowBoxMaxChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m ()-setFlowBoxMaxChildrenPerLine obj val = liftIO $ setObjectPropertyCUInt obj "max-children-per-line" val+setFlowBoxMaxChildrenPerLine obj val = liftIO $ setObjectPropertyUInt32 obj "max-children-per-line" val constructFlowBoxMaxChildrenPerLine :: Word32 -> IO ([Char], GValue)-constructFlowBoxMaxChildrenPerLine val = constructObjectPropertyCUInt "max-children-per-line" val+constructFlowBoxMaxChildrenPerLine val = constructObjectPropertyUInt32 "max-children-per-line" val data FlowBoxMaxChildrenPerLinePropertyInfo instance AttrInfo FlowBoxMaxChildrenPerLinePropertyInfo where@@ -1064,19 +1078,21 @@ attrGet _ = getFlowBoxMaxChildrenPerLine attrSet _ = setFlowBoxMaxChildrenPerLine attrConstruct _ = constructFlowBoxMaxChildrenPerLine+ attrClear _ = undefined -- VVV Prop "min-children-per-line"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFlowBoxMinChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> m Word32-getFlowBoxMinChildrenPerLine obj = liftIO $ getObjectPropertyCUInt obj "min-children-per-line"+getFlowBoxMinChildrenPerLine obj = liftIO $ getObjectPropertyUInt32 obj "min-children-per-line" setFlowBoxMinChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m ()-setFlowBoxMinChildrenPerLine obj val = liftIO $ setObjectPropertyCUInt obj "min-children-per-line" val+setFlowBoxMinChildrenPerLine obj val = liftIO $ setObjectPropertyUInt32 obj "min-children-per-line" val constructFlowBoxMinChildrenPerLine :: Word32 -> IO ([Char], GValue)-constructFlowBoxMinChildrenPerLine val = constructObjectPropertyCUInt "min-children-per-line" val+constructFlowBoxMinChildrenPerLine val = constructObjectPropertyUInt32 "min-children-per-line" val data FlowBoxMinChildrenPerLinePropertyInfo instance AttrInfo FlowBoxMinChildrenPerLinePropertyInfo where@@ -1088,19 +1104,21 @@ attrGet _ = getFlowBoxMinChildrenPerLine attrSet _ = setFlowBoxMinChildrenPerLine attrConstruct _ = constructFlowBoxMinChildrenPerLine+ attrClear _ = undefined -- VVV Prop "row-spacing"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFlowBoxRowSpacing :: (MonadIO m, FlowBoxK o) => o -> m Word32-getFlowBoxRowSpacing obj = liftIO $ getObjectPropertyCUInt obj "row-spacing"+getFlowBoxRowSpacing obj = liftIO $ getObjectPropertyUInt32 obj "row-spacing" setFlowBoxRowSpacing :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m ()-setFlowBoxRowSpacing obj val = liftIO $ setObjectPropertyCUInt obj "row-spacing" val+setFlowBoxRowSpacing obj val = liftIO $ setObjectPropertyUInt32 obj "row-spacing" val constructFlowBoxRowSpacing :: Word32 -> IO ([Char], GValue)-constructFlowBoxRowSpacing val = constructObjectPropertyCUInt "row-spacing" val+constructFlowBoxRowSpacing val = constructObjectPropertyUInt32 "row-spacing" val data FlowBoxRowSpacingPropertyInfo instance AttrInfo FlowBoxRowSpacingPropertyInfo where@@ -1112,10 +1130,12 @@ attrGet _ = getFlowBoxRowSpacing attrSet _ = setFlowBoxRowSpacing attrConstruct _ = constructFlowBoxRowSpacing+ attrClear _ = undefined -- VVV Prop "selection-mode" -- Type: TInterface "Gtk" "SelectionMode" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFlowBoxSelectionMode :: (MonadIO m, FlowBoxK o) => o -> m SelectionMode getFlowBoxSelectionMode obj = liftIO $ getObjectPropertyEnum obj "selection-mode"@@ -1136,10 +1156,32 @@ attrGet _ = getFlowBoxSelectionMode attrSet _ = setFlowBoxSelectionMode attrConstruct _ = constructFlowBoxSelectionMode+ attrClear _ = undefined type instance AttributeList FlowBox = FlowBoxAttributeList type FlowBoxAttributeList = ('[ '("activateOnSingleClick", FlowBoxActivateOnSingleClickPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpacing", FlowBoxColumnSpacingPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", FlowBoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxChildrenPerLine", FlowBoxMaxChildrenPerLinePropertyInfo), '("minChildrenPerLine", FlowBoxMinChildrenPerLinePropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpacing", FlowBoxRowSpacingPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectionMode", FlowBoxSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +flowBoxActivateOnSingleClick :: AttrLabelProxy "activateOnSingleClick"+flowBoxActivateOnSingleClick = AttrLabelProxy++flowBoxColumnSpacing :: AttrLabelProxy "columnSpacing"+flowBoxColumnSpacing = AttrLabelProxy++flowBoxHomogeneous :: AttrLabelProxy "homogeneous"+flowBoxHomogeneous = AttrLabelProxy++flowBoxMaxChildrenPerLine :: AttrLabelProxy "maxChildrenPerLine"+flowBoxMaxChildrenPerLine = AttrLabelProxy++flowBoxMinChildrenPerLine :: AttrLabelProxy "minChildrenPerLine"+flowBoxMinChildrenPerLine = AttrLabelProxy++flowBoxRowSpacing :: AttrLabelProxy "rowSpacing"+flowBoxRowSpacing = AttrLabelProxy++flowBoxSelectionMode :: AttrLabelProxy "selectionMode"+flowBoxSelectionMode = AttrLabelProxy+ data FlowBoxActivateCursorChildSignalInfo instance SignalInfo FlowBoxActivateCursorChildSignalInfo where type HaskellCallbackType FlowBoxActivateCursorChildSignalInfo = FlowBoxActivateCursorChildCallback@@ -1182,7 +1224,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "FlowBox"+-- returnType : Just (TInterface "Gtk" "FlowBox") -- throws : False -- Skip return : False @@ -1203,7 +1245,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1229,15 +1271,15 @@ -- method FlowBox::get_child_at_index -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "idx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "idx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "FlowBoxChild"+-- returnType : Just (TInterface "Gtk" "FlowBoxChild") -- throws : False -- Skip return : False foreign import ccall "gtk_flow_box_get_child_at_index" gtk_flow_box_get_child_at_index :: Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"- Int32 -> -- idx : TBasicType TInt32+ Int32 -> -- idx : TBasicType TInt IO (Ptr FlowBoxChild) @@ -1245,24 +1287,25 @@ (MonadIO m, FlowBoxK a) => a -- _obj -> Int32 -- idx- -> m FlowBoxChild -- result+ -> m (Maybe FlowBoxChild) -- result flowBoxGetChildAtIndex _obj idx = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_flow_box_get_child_at_index _obj' idx- checkUnexpectedReturnNULL "gtk_flow_box_get_child_at_index" result- result' <- (newObject FlowBoxChild) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (newObject FlowBoxChild) result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data FlowBoxGetChildAtIndexMethodInfo-instance (signature ~ (Int32 -> m FlowBoxChild), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetChildAtIndexMethodInfo a signature where+instance (signature ~ (Int32 -> m (Maybe FlowBoxChild)), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetChildAtIndexMethodInfo a signature where overloadedMethod _ = flowBoxGetChildAtIndex -- method FlowBox::get_column_spacing -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -1289,7 +1332,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1317,7 +1360,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -1344,7 +1387,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -1371,7 +1414,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -1398,7 +1441,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Gtk" "FlowBoxChild")+-- returnType : Just (TGList (TInterface "Gtk" "FlowBoxChild")) -- throws : False -- Skip return : False @@ -1414,7 +1457,6 @@ flowBoxGetSelectedChildren _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_flow_box_get_selected_children _obj'- checkUnexpectedReturnNULL "gtk_flow_box_get_selected_children" result result' <- unpackGList result result'' <- mapM (newObject FlowBoxChild) result' g_list_free result@@ -1429,7 +1471,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "SelectionMode"+-- returnType : Just (TInterface "Gtk" "SelectionMode") -- throws : False -- Skip return : False @@ -1455,16 +1497,16 @@ -- method FlowBox::insert -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_flow_box_insert" gtk_flow_box_insert :: Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" Ptr Widget -> -- widget : TInterface "Gtk" "Widget"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt IO () @@ -1490,7 +1532,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1517,7 +1559,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1544,7 +1586,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1571,7 +1613,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1600,16 +1642,16 @@ -- method FlowBox::selected_foreach -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "FlowBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "FlowBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_flow_box_selected_foreach" gtk_flow_box_selected_foreach :: Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" FunPtr FlowBoxForeachFuncC -> -- func : TInterface "Gtk" "FlowBoxForeachFunc"- Ptr () -> -- data : TBasicType TVoid+ Ptr () -> -- data : TBasicType TPtr IO () @@ -1635,7 +1677,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1663,15 +1705,15 @@ -- method FlowBox::set_column_spacing -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_flow_box_set_column_spacing" gtk_flow_box_set_column_spacing :: Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"- Word32 -> -- spacing : TBasicType TUInt32+ Word32 -> -- spacing : TBasicType TUInt IO () @@ -1692,16 +1734,16 @@ -- method FlowBox::set_filter_func -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_func", argType = TInterface "Gtk" "FlowBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_func", argType = TInterface "Gtk" "FlowBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_flow_box_set_filter_func" gtk_flow_box_set_filter_func :: Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" FunPtr FlowBoxFilterFuncC -> -- filter_func : TInterface "Gtk" "FlowBoxFilterFunc"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -1732,7 +1774,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1763,7 +1805,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1791,15 +1833,15 @@ -- method FlowBox::set_max_children_per_line -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_children", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_children", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_flow_box_set_max_children_per_line" gtk_flow_box_set_max_children_per_line :: Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"- Word32 -> -- n_children : TBasicType TUInt32+ Word32 -> -- n_children : TBasicType TUInt IO () @@ -1820,15 +1862,15 @@ -- method FlowBox::set_min_children_per_line -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_children", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_children", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_flow_box_set_min_children_per_line" gtk_flow_box_set_min_children_per_line :: Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"- Word32 -> -- n_children : TBasicType TUInt32+ Word32 -> -- n_children : TBasicType TUInt IO () @@ -1849,15 +1891,15 @@ -- method FlowBox::set_row_spacing -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_flow_box_set_row_spacing" gtk_flow_box_set_row_spacing :: Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"- Word32 -> -- spacing : TBasicType TUInt32+ Word32 -> -- spacing : TBasicType TUInt IO () @@ -1880,7 +1922,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1908,16 +1950,16 @@ -- method FlowBox::set_sort_func -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "FlowBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "FlowBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_flow_box_set_sort_func" gtk_flow_box_set_sort_func :: Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" FunPtr FlowBoxSortFuncC -> -- sort_func : TInterface "Gtk" "FlowBoxSortFunc"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -1948,7 +1990,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1979,7 +2021,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2006,7 +2048,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.FlowBox where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.FlowBoxAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -55,9 +55,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -467,7 +467,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "FlowBoxChild"+-- returnType : Just (TInterface "Gtk" "FlowBoxChild") -- throws : False -- Skip return : False @@ -488,7 +488,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -515,7 +515,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -542,7 +542,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.FlowBoxChild where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.FlowBoxChildAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -90,7 +90,9 @@ -- * Properties -- ** FontName FontButtonFontNamePropertyInfo ,+ clearFontButtonFontName , constructFontButtonFontName ,+ fontButtonFontName , getFontButtonFontName , setFontButtonFontName , @@ -98,6 +100,7 @@ -- ** ShowSize FontButtonShowSizePropertyInfo , constructFontButtonShowSize ,+ fontButtonShowSize , getFontButtonShowSize , setFontButtonShowSize , @@ -105,6 +108,7 @@ -- ** ShowStyle FontButtonShowStylePropertyInfo , constructFontButtonShowStyle ,+ fontButtonShowStyle , getFontButtonShowStyle , setFontButtonShowStyle , @@ -112,6 +116,7 @@ -- ** Title FontButtonTitlePropertyInfo , constructFontButtonTitle ,+ fontButtonTitle , getFontButtonTitle , setFontButtonTitle , @@ -119,6 +124,7 @@ -- ** UseFont FontButtonUseFontPropertyInfo , constructFontButtonUseFont ,+ fontButtonUseFont , getFontButtonUseFont , setFontButtonUseFont , @@ -126,6 +132,7 @@ -- ** UseSize FontButtonUseSizePropertyInfo , constructFontButtonUseSize ,+ fontButtonUseSize , getFontButtonUseSize , setFontButtonUseSize , @@ -149,9 +156,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -603,19 +610,23 @@ -- VVV Prop "font-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Nothing) getFontButtonFontName :: (MonadIO m, FontButtonK o) => o -> m T.Text-getFontButtonFontName obj = liftIO $ getObjectPropertyString obj "font-name"+getFontButtonFontName obj = liftIO $ checkUnexpectedNothing "getFontButtonFontName" $ getObjectPropertyString obj "font-name" setFontButtonFontName :: (MonadIO m, FontButtonK o) => o -> T.Text -> m ()-setFontButtonFontName obj val = liftIO $ setObjectPropertyString obj "font-name" val+setFontButtonFontName obj val = liftIO $ setObjectPropertyString obj "font-name" (Just val) constructFontButtonFontName :: T.Text -> IO ([Char], GValue)-constructFontButtonFontName val = constructObjectPropertyString "font-name" val+constructFontButtonFontName val = constructObjectPropertyString "font-name" (Just val) +clearFontButtonFontName :: (MonadIO m, FontButtonK o) => o -> m ()+clearFontButtonFontName obj = liftIO $ setObjectPropertyString obj "font-name" (Nothing :: Maybe T.Text)+ data FontButtonFontNamePropertyInfo instance AttrInfo FontButtonFontNamePropertyInfo where- type AttrAllowedOps FontButtonFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps FontButtonFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint FontButtonFontNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint FontButtonFontNamePropertyInfo = FontButtonK type AttrGetType FontButtonFontNamePropertyInfo = T.Text@@ -623,10 +634,12 @@ attrGet _ = getFontButtonFontName attrSet _ = setFontButtonFontName attrConstruct _ = constructFontButtonFontName+ attrClear _ = clearFontButtonFontName -- VVV Prop "show-size" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFontButtonShowSize :: (MonadIO m, FontButtonK o) => o -> m Bool getFontButtonShowSize obj = liftIO $ getObjectPropertyBool obj "show-size"@@ -647,10 +660,12 @@ attrGet _ = getFontButtonShowSize attrSet _ = setFontButtonShowSize attrConstruct _ = constructFontButtonShowSize+ attrClear _ = undefined -- VVV Prop "show-style" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFontButtonShowStyle :: (MonadIO m, FontButtonK o) => o -> m Bool getFontButtonShowStyle obj = liftIO $ getObjectPropertyBool obj "show-style"@@ -671,19 +686,21 @@ attrGet _ = getFontButtonShowStyle attrSet _ = setFontButtonShowStyle attrConstruct _ = constructFontButtonShowStyle+ attrClear _ = undefined -- VVV Prop "title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFontButtonTitle :: (MonadIO m, FontButtonK o) => o -> m T.Text-getFontButtonTitle obj = liftIO $ getObjectPropertyString obj "title"+getFontButtonTitle obj = liftIO $ checkUnexpectedNothing "getFontButtonTitle" $ getObjectPropertyString obj "title" setFontButtonTitle :: (MonadIO m, FontButtonK o) => o -> T.Text -> m ()-setFontButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" val+setFontButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) constructFontButtonTitle :: T.Text -> IO ([Char], GValue)-constructFontButtonTitle val = constructObjectPropertyString "title" val+constructFontButtonTitle val = constructObjectPropertyString "title" (Just val) data FontButtonTitlePropertyInfo instance AttrInfo FontButtonTitlePropertyInfo where@@ -695,10 +712,12 @@ attrGet _ = getFontButtonTitle attrSet _ = setFontButtonTitle attrConstruct _ = constructFontButtonTitle+ attrClear _ = undefined -- VVV Prop "use-font" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFontButtonUseFont :: (MonadIO m, FontButtonK o) => o -> m Bool getFontButtonUseFont obj = liftIO $ getObjectPropertyBool obj "use-font"@@ -719,10 +738,12 @@ attrGet _ = getFontButtonUseFont attrSet _ = setFontButtonUseFont attrConstruct _ = constructFontButtonUseFont+ attrClear _ = undefined -- VVV Prop "use-size" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFontButtonUseSize :: (MonadIO m, FontButtonK o) => o -> m Bool getFontButtonUseSize obj = liftIO $ getObjectPropertyBool obj "use-size"@@ -743,10 +764,29 @@ attrGet _ = getFontButtonUseSize attrSet _ = setFontButtonUseSize attrConstruct _ = constructFontButtonUseSize+ attrClear _ = undefined type instance AttributeList FontButton = FontButtonAttributeList type FontButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("font", FontChooserFontPropertyInfo), '("fontDesc", FontChooserFontDescPropertyInfo), '("fontName", FontButtonFontNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewText", FontChooserPreviewTextPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showPreviewEntry", FontChooserShowPreviewEntryPropertyInfo), '("showSize", FontButtonShowSizePropertyInfo), '("showStyle", FontButtonShowStylePropertyInfo), '("style", WidgetStylePropertyInfo), '("title", FontButtonTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useFont", FontButtonUseFontPropertyInfo), '("useSize", FontButtonUseSizePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +fontButtonFontName :: AttrLabelProxy "fontName"+fontButtonFontName = AttrLabelProxy++fontButtonShowSize :: AttrLabelProxy "showSize"+fontButtonShowSize = AttrLabelProxy++fontButtonShowStyle :: AttrLabelProxy "showStyle"+fontButtonShowStyle = AttrLabelProxy++fontButtonTitle :: AttrLabelProxy "title"+fontButtonTitle = AttrLabelProxy++fontButtonUseFont :: AttrLabelProxy "useFont"+fontButtonUseFont = AttrLabelProxy++fontButtonUseSize :: AttrLabelProxy "useSize"+fontButtonUseSize = AttrLabelProxy+ data FontButtonFontSetSignalInfo instance SignalInfo FontButtonFontSetSignalInfo where type HaskellCallbackType FontButtonFontSetSignalInfo = FontButtonFontSetCallback@@ -759,7 +799,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "FontButton"+-- returnType : Just (TInterface "Gtk" "FontButton") -- throws : False -- Skip return : False @@ -780,7 +820,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "FontButton"+-- returnType : Just (TInterface "Gtk" "FontButton") -- throws : False -- Skip return : False @@ -805,7 +845,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -834,7 +874,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -862,7 +902,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -890,7 +930,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -919,7 +959,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -947,7 +987,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -975,7 +1015,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1007,7 +1047,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1037,7 +1077,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_style", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1067,7 +1107,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1098,7 +1138,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_font", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1128,7 +1168,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.FontButton where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -25,9 +25,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -514,7 +514,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "FontChooserDialog"+-- returnType : Just (TInterface "Gtk" "FontChooserDialog") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.FontChooserDialog where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -25,9 +25,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -415,7 +415,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "FontChooserWidget"+-- returnType : Just (TInterface "Gtk" "FontChooserWidget") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.FontChooserWidget where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -86,7 +86,9 @@ -- * Properties -- ** FontName FontSelectionFontNamePropertyInfo ,+ clearFontSelectionFontName , constructFontSelectionFontName ,+ fontSelectionFontName , getFontSelectionFontName , setFontSelectionFontName , @@ -94,6 +96,7 @@ -- ** PreviewText FontSelectionPreviewTextPropertyInfo , constructFontSelectionPreviewText ,+ fontSelectionPreviewText , getFontSelectionPreviewText , setFontSelectionPreviewText , @@ -102,9 +105,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -488,39 +491,45 @@ -- VVV Prop "font-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getFontSelectionFontName :: (MonadIO m, FontSelectionK o) => o -> m T.Text+getFontSelectionFontName :: (MonadIO m, FontSelectionK o) => o -> m (Maybe T.Text) getFontSelectionFontName obj = liftIO $ getObjectPropertyString obj "font-name" setFontSelectionFontName :: (MonadIO m, FontSelectionK o) => o -> T.Text -> m ()-setFontSelectionFontName obj val = liftIO $ setObjectPropertyString obj "font-name" val+setFontSelectionFontName obj val = liftIO $ setObjectPropertyString obj "font-name" (Just val) constructFontSelectionFontName :: T.Text -> IO ([Char], GValue)-constructFontSelectionFontName val = constructObjectPropertyString "font-name" val+constructFontSelectionFontName val = constructObjectPropertyString "font-name" (Just val) +clearFontSelectionFontName :: (MonadIO m, FontSelectionK o) => o -> m ()+clearFontSelectionFontName obj = liftIO $ setObjectPropertyString obj "font-name" (Nothing :: Maybe T.Text)+ data FontSelectionFontNamePropertyInfo instance AttrInfo FontSelectionFontNamePropertyInfo where- type AttrAllowedOps FontSelectionFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps FontSelectionFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint FontSelectionFontNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint FontSelectionFontNamePropertyInfo = FontSelectionK- type AttrGetType FontSelectionFontNamePropertyInfo = T.Text+ type AttrGetType FontSelectionFontNamePropertyInfo = (Maybe T.Text) type AttrLabel FontSelectionFontNamePropertyInfo = "font-name" attrGet _ = getFontSelectionFontName attrSet _ = setFontSelectionFontName attrConstruct _ = constructFontSelectionFontName+ attrClear _ = clearFontSelectionFontName -- VVV Prop "preview-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFontSelectionPreviewText :: (MonadIO m, FontSelectionK o) => o -> m T.Text-getFontSelectionPreviewText obj = liftIO $ getObjectPropertyString obj "preview-text"+getFontSelectionPreviewText obj = liftIO $ checkUnexpectedNothing "getFontSelectionPreviewText" $ getObjectPropertyString obj "preview-text" setFontSelectionPreviewText :: (MonadIO m, FontSelectionK o) => o -> T.Text -> m ()-setFontSelectionPreviewText obj val = liftIO $ setObjectPropertyString obj "preview-text" val+setFontSelectionPreviewText obj val = liftIO $ setObjectPropertyString obj "preview-text" (Just val) constructFontSelectionPreviewText :: T.Text -> IO ([Char], GValue)-constructFontSelectionPreviewText val = constructObjectPropertyString "preview-text" val+constructFontSelectionPreviewText val = constructObjectPropertyString "preview-text" (Just val) data FontSelectionPreviewTextPropertyInfo instance AttrInfo FontSelectionPreviewTextPropertyInfo where@@ -532,10 +541,17 @@ attrGet _ = getFontSelectionPreviewText attrSet _ = setFontSelectionPreviewText attrConstruct _ = constructFontSelectionPreviewText+ attrClear _ = undefined type instance AttributeList FontSelection = FontSelectionAttributeList type FontSelectionAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fontName", FontSelectionFontNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewText", FontSelectionPreviewTextPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +fontSelectionFontName :: AttrLabelProxy "fontName"+fontSelectionFontName = AttrLabelProxy++fontSelectionPreviewText :: AttrLabelProxy "previewText"+fontSelectionPreviewText = AttrLabelProxy+ type instance SignalList FontSelection = FontSelectionSignalList type FontSelectionSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -543,7 +559,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "FontSelection"+-- returnType : Just (TInterface "Gtk" "FontSelection") -- throws : False -- Skip return : False @@ -564,7 +580,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "FontFace"+-- returnType : Just (TInterface "Pango" "FontFace") -- throws : False -- Skip return : False @@ -593,7 +609,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -622,7 +638,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "FontFamily"+-- returnType : Just (TInterface "Pango" "FontFamily") -- throws : False -- Skip return : False @@ -651,7 +667,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -680,7 +696,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -710,7 +726,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -739,7 +755,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -768,7 +784,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -795,7 +811,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -824,7 +840,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -853,7 +869,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -885,7 +901,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.FontSelection where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -60,9 +60,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -546,7 +546,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "FontSelectionDialog"+-- returnType : Just (TInterface "Gtk" "FontSelectionDialog") -- throws : False -- Skip return : False @@ -571,7 +571,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -600,7 +600,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -630,7 +630,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -659,7 +659,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -688,7 +688,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -717,7 +717,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -749,7 +749,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.FontSelectionDialog where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -66,14 +66,18 @@ -- * Properties -- ** Label FrameLabelPropertyInfo ,+ clearFrameLabel , constructFrameLabel ,+ frameLabel , getFrameLabel , setFrameLabel , -- ** LabelWidget FrameLabelWidgetPropertyInfo ,+ clearFrameLabelWidget , constructFrameLabelWidget ,+ frameLabelWidget , getFrameLabelWidget , setFrameLabelWidget , @@ -81,6 +85,7 @@ -- ** LabelXalign FrameLabelXalignPropertyInfo , constructFrameLabelXalign ,+ frameLabelXalign , getFrameLabelXalign , setFrameLabelXalign , @@ -88,6 +93,7 @@ -- ** LabelYalign FrameLabelYalignPropertyInfo , constructFrameLabelYalign ,+ frameLabelYalign , getFrameLabelYalign , setFrameLabelYalign , @@ -95,6 +101,7 @@ -- ** ShadowType FrameShadowTypePropertyInfo , constructFrameShadowType ,+ frameShadowType , getFrameShadowType , setFrameShadowType , @@ -103,9 +110,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -470,19 +477,23 @@ -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getFrameLabel :: (MonadIO m, FrameK o) => o -> m T.Text-getFrameLabel obj = liftIO $ getObjectPropertyString obj "label"+getFrameLabel obj = liftIO $ checkUnexpectedNothing "getFrameLabel" $ getObjectPropertyString obj "label" setFrameLabel :: (MonadIO m, FrameK o) => o -> T.Text -> m ()-setFrameLabel obj val = liftIO $ setObjectPropertyString obj "label" val+setFrameLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) constructFrameLabel :: T.Text -> IO ([Char], GValue)-constructFrameLabel val = constructObjectPropertyString "label" val+constructFrameLabel val = constructObjectPropertyString "label" (Just val) +clearFrameLabel :: (MonadIO m, FrameK o) => o -> m ()+clearFrameLabel obj = liftIO $ setObjectPropertyString obj "label" (Nothing :: Maybe T.Text)+ data FrameLabelPropertyInfo instance AttrInfo FrameLabelPropertyInfo where- type AttrAllowedOps FrameLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps FrameLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint FrameLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint FrameLabelPropertyInfo = FrameK type AttrGetType FrameLabelPropertyInfo = T.Text@@ -490,34 +501,41 @@ attrGet _ = getFrameLabel attrSet _ = setFrameLabel attrConstruct _ = constructFrameLabel+ attrClear _ = clearFrameLabel -- VVV Prop "label-widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just True,Just True) -getFrameLabelWidget :: (MonadIO m, FrameK o) => o -> m Widget+getFrameLabelWidget :: (MonadIO m, FrameK o) => o -> m (Maybe Widget) getFrameLabelWidget obj = liftIO $ getObjectPropertyObject obj "label-widget" Widget setFrameLabelWidget :: (MonadIO m, FrameK o, WidgetK a) => o -> a -> m ()-setFrameLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" val+setFrameLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" (Just val) constructFrameLabelWidget :: (WidgetK a) => a -> IO ([Char], GValue)-constructFrameLabelWidget val = constructObjectPropertyObject "label-widget" val+constructFrameLabelWidget val = constructObjectPropertyObject "label-widget" (Just val) +clearFrameLabelWidget :: (MonadIO m, FrameK o) => o -> m ()+clearFrameLabelWidget obj = liftIO $ setObjectPropertyObject obj "label-widget" (Nothing :: Maybe Widget)+ data FrameLabelWidgetPropertyInfo instance AttrInfo FrameLabelWidgetPropertyInfo where- type AttrAllowedOps FrameLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps FrameLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint FrameLabelWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint FrameLabelWidgetPropertyInfo = FrameK- type AttrGetType FrameLabelWidgetPropertyInfo = Widget+ type AttrGetType FrameLabelWidgetPropertyInfo = (Maybe Widget) type AttrLabel FrameLabelWidgetPropertyInfo = "label-widget" attrGet _ = getFrameLabelWidget attrSet _ = setFrameLabelWidget attrConstruct _ = constructFrameLabelWidget+ attrClear _ = clearFrameLabelWidget -- VVV Prop "label-xalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getFrameLabelXalign :: (MonadIO m, FrameK o) => o -> m Float getFrameLabelXalign obj = liftIO $ getObjectPropertyFloat obj "label-xalign"@@ -538,10 +556,12 @@ attrGet _ = getFrameLabelXalign attrSet _ = setFrameLabelXalign attrConstruct _ = constructFrameLabelXalign+ attrClear _ = undefined -- VVV Prop "label-yalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getFrameLabelYalign :: (MonadIO m, FrameK o) => o -> m Float getFrameLabelYalign obj = liftIO $ getObjectPropertyFloat obj "label-yalign"@@ -562,10 +582,12 @@ attrGet _ = getFrameLabelYalign attrSet _ = setFrameLabelYalign attrConstruct _ = constructFrameLabelYalign+ attrClear _ = undefined -- VVV Prop "shadow-type" -- Type: TInterface "Gtk" "ShadowType" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getFrameShadowType :: (MonadIO m, FrameK o) => o -> m ShadowType getFrameShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type"@@ -586,10 +608,26 @@ attrGet _ = getFrameShadowType attrSet _ = setFrameShadowType attrConstruct _ = constructFrameShadowType+ attrClear _ = undefined type instance AttributeList Frame = FrameAttributeList type FrameAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", FrameLabelPropertyInfo), '("labelWidget", FrameLabelWidgetPropertyInfo), '("labelXalign", FrameLabelXalignPropertyInfo), '("labelYalign", FrameLabelYalignPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", FrameShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +frameLabel :: AttrLabelProxy "label"+frameLabel = AttrLabelProxy++frameLabelWidget :: AttrLabelProxy "labelWidget"+frameLabelWidget = AttrLabelProxy++frameLabelXalign :: AttrLabelProxy "labelXalign"+frameLabelXalign = AttrLabelProxy++frameLabelYalign :: AttrLabelProxy "labelYalign"+frameLabelYalign = AttrLabelProxy++frameShadowType :: AttrLabelProxy "shadowType"+frameShadowType = AttrLabelProxy+ type instance SignalList Frame = FrameSignalList type FrameSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -597,7 +635,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Frame"+-- returnType : Just (TInterface "Gtk" "Frame") -- throws : False -- Skip return : False @@ -626,7 +664,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -655,7 +693,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -692,7 +730,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -704,24 +742,25 @@ frameGetLabelWidget :: (MonadIO m, FrameK a) => a -- _obj- -> m Widget -- result+ -> m (Maybe Widget) -- result frameGetLabelWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_frame_get_label_widget _obj'- checkUnexpectedReturnNULL "gtk_frame_get_label_widget" result- result' <- (newObject Widget) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (newObject Widget) result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data FrameGetLabelWidgetMethodInfo-instance (signature ~ (m Widget), MonadIO m, FrameK a) => MethodInfo FrameGetLabelWidgetMethodInfo a signature where+instance (signature ~ (m (Maybe Widget)), MonadIO m, FrameK a) => MethodInfo FrameGetLabelWidgetMethodInfo a signature where overloadedMethod _ = frameGetLabelWidget -- method Frame::get_shadow_type -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ShadowType"+-- returnType : Just (TInterface "Gtk" "ShadowType") -- throws : False -- Skip return : False @@ -749,7 +788,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -784,7 +823,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -817,7 +856,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -852,7 +891,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Frame where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.FrameAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -107,18 +107,21 @@ -- ** AutoRender GLAreaAutoRenderPropertyInfo , constructGLAreaAutoRender ,+ gLAreaAutoRender , getGLAreaAutoRender , setGLAreaAutoRender , -- ** Context GLAreaContextPropertyInfo ,+ gLAreaContext , getGLAreaContext , -- ** HasAlpha GLAreaHasAlphaPropertyInfo , constructGLAreaHasAlpha ,+ gLAreaHasAlpha , getGLAreaHasAlpha , setGLAreaHasAlpha , @@ -126,6 +129,7 @@ -- ** HasDepthBuffer GLAreaHasDepthBufferPropertyInfo , constructGLAreaHasDepthBuffer ,+ gLAreaHasDepthBuffer , getGLAreaHasDepthBuffer , setGLAreaHasDepthBuffer , @@ -133,6 +137,7 @@ -- ** HasStencilBuffer GLAreaHasStencilBufferPropertyInfo , constructGLAreaHasStencilBuffer ,+ gLAreaHasStencilBuffer , getGLAreaHasStencilBuffer , setGLAreaHasStencilBuffer , @@ -180,9 +185,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -657,6 +662,7 @@ -- VVV Prop "auto-render" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getGLAreaAutoRender :: (MonadIO m, GLAreaK o) => o -> m Bool getGLAreaAutoRender obj = liftIO $ getObjectPropertyBool obj "auto-render"@@ -677,17 +683,19 @@ attrGet _ = getGLAreaAutoRender attrSet _ = setGLAreaAutoRender attrConstruct _ = constructGLAreaAutoRender+ attrClear _ = undefined -- VVV Prop "context" -- Type: TInterface "Gdk" "GLContext" -- Flags: [PropertyReadable]+ -- Nullable: (Just False,Nothing) getGLAreaContext :: (MonadIO m, GLAreaK o) => o -> m Gdk.GLContext-getGLAreaContext obj = liftIO $ getObjectPropertyObject obj "context" Gdk.GLContext+getGLAreaContext obj = liftIO $ checkUnexpectedNothing "getGLAreaContext" $ getObjectPropertyObject obj "context" Gdk.GLContext data GLAreaContextPropertyInfo instance AttrInfo GLAreaContextPropertyInfo where- type AttrAllowedOps GLAreaContextPropertyInfo = '[ 'AttrGet]+ type AttrAllowedOps GLAreaContextPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint GLAreaContextPropertyInfo = (~) () type AttrBaseTypeConstraint GLAreaContextPropertyInfo = GLAreaK type AttrGetType GLAreaContextPropertyInfo = Gdk.GLContext@@ -695,10 +703,12 @@ attrGet _ = getGLAreaContext attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "has-alpha" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getGLAreaHasAlpha :: (MonadIO m, GLAreaK o) => o -> m Bool getGLAreaHasAlpha obj = liftIO $ getObjectPropertyBool obj "has-alpha"@@ -719,10 +729,12 @@ attrGet _ = getGLAreaHasAlpha attrSet _ = setGLAreaHasAlpha attrConstruct _ = constructGLAreaHasAlpha+ attrClear _ = undefined -- VVV Prop "has-depth-buffer" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getGLAreaHasDepthBuffer :: (MonadIO m, GLAreaK o) => o -> m Bool getGLAreaHasDepthBuffer obj = liftIO $ getObjectPropertyBool obj "has-depth-buffer"@@ -743,10 +755,12 @@ attrGet _ = getGLAreaHasDepthBuffer attrSet _ = setGLAreaHasDepthBuffer attrConstruct _ = constructGLAreaHasDepthBuffer+ attrClear _ = undefined -- VVV Prop "has-stencil-buffer" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getGLAreaHasStencilBuffer :: (MonadIO m, GLAreaK o) => o -> m Bool getGLAreaHasStencilBuffer obj = liftIO $ getObjectPropertyBool obj "has-stencil-buffer"@@ -767,10 +781,26 @@ attrGet _ = getGLAreaHasStencilBuffer attrSet _ = setGLAreaHasStencilBuffer attrConstruct _ = constructGLAreaHasStencilBuffer+ attrClear _ = undefined type instance AttributeList GLArea = GLAreaAttributeList type GLAreaAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("autoRender", GLAreaAutoRenderPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("context", GLAreaContextPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasAlpha", GLAreaHasAlphaPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasDepthBuffer", GLAreaHasDepthBufferPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasStencilBuffer", GLAreaHasStencilBufferPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +gLAreaAutoRender :: AttrLabelProxy "autoRender"+gLAreaAutoRender = AttrLabelProxy++gLAreaContext :: AttrLabelProxy "context"+gLAreaContext = AttrLabelProxy++gLAreaHasAlpha :: AttrLabelProxy "hasAlpha"+gLAreaHasAlpha = AttrLabelProxy++gLAreaHasDepthBuffer :: AttrLabelProxy "hasDepthBuffer"+gLAreaHasDepthBuffer = AttrLabelProxy++gLAreaHasStencilBuffer :: AttrLabelProxy "hasStencilBuffer"+gLAreaHasStencilBuffer = AttrLabelProxy+ data GLAreaCreateContextSignalInfo instance SignalInfo GLAreaCreateContextSignalInfo where type HaskellCallbackType GLAreaCreateContextSignalInfo = GLAreaCreateContextCallback@@ -793,7 +823,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "GLArea"+-- returnType : Just (TInterface "Gtk" "GLArea") -- throws : False -- Skip return : False @@ -814,7 +844,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -841,7 +871,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -869,7 +899,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "GLContext"+-- returnType : Just (TInterface "Gdk" "GLContext") -- throws : False -- Skip return : False @@ -898,7 +928,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TError+-- returnType : Just TError -- throws : False -- Skip return : False @@ -927,7 +957,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -955,7 +985,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -983,7 +1013,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1009,16 +1039,16 @@ -- method GLArea::get_required_version -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minor", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minor", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_gl_area_get_required_version" gtk_gl_area_get_required_version :: Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea"- Ptr Int32 -> -- major : TBasicType TInt32- Ptr Int32 -> -- minor : TBasicType TInt32+ Ptr Int32 -> -- major : TBasicType TInt+ Ptr Int32 -> -- minor : TBasicType TInt IO () @@ -1046,7 +1076,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1073,7 +1103,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1100,7 +1130,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auto_render", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1130,7 +1160,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1165,7 +1195,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1195,7 +1225,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_depth_buffer", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1225,7 +1255,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_stencil_buffer", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1253,16 +1283,16 @@ -- method GLArea::set_required_version -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minor", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_gl_area_set_required_version" gtk_gl_area_set_required_version :: Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea"- Int32 -> -- major : TBasicType TInt32- Int32 -> -- minor : TBasicType TInt32+ Int32 -> -- major : TBasicType TInt+ Int32 -> -- minor : TBasicType TInt IO ()
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.GLArea where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -118,12 +118,15 @@ -- ** NPoints GestureNPointsPropertyInfo , constructGestureNPoints ,+ gestureNPoints , getGestureNPoints , -- ** Window GestureWindowPropertyInfo ,+ clearGestureWindow , constructGestureWindow ,+ gestureWindow , getGestureWindow , setGestureWindow , @@ -195,9 +198,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -500,14 +503,15 @@ connectSignalFunPtr obj "update" cb' after -- VVV Prop "n-points"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+ -- Nullable: (Nothing,Nothing) getGestureNPoints :: (MonadIO m, GestureK o) => o -> m Word32-getGestureNPoints obj = liftIO $ getObjectPropertyCUInt obj "n-points"+getGestureNPoints obj = liftIO $ getObjectPropertyUInt32 obj "n-points" constructGestureNPoints :: Word32 -> IO ([Char], GValue)-constructGestureNPoints val = constructObjectPropertyCUInt "n-points" val+constructGestureNPoints val = constructObjectPropertyUInt32 "n-points" val data GestureNPointsPropertyInfo instance AttrInfo GestureNPointsPropertyInfo where@@ -519,23 +523,28 @@ attrGet _ = getGestureNPoints attrSet _ = undefined attrConstruct _ = constructGestureNPoints+ attrClear _ = undefined -- VVV Prop "window" -- Type: TInterface "Gdk" "Window" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getGestureWindow :: (MonadIO m, GestureK o) => o -> m Gdk.Window-getGestureWindow obj = liftIO $ getObjectPropertyObject obj "window" Gdk.Window+getGestureWindow obj = liftIO $ checkUnexpectedNothing "getGestureWindow" $ getObjectPropertyObject obj "window" Gdk.Window setGestureWindow :: (MonadIO m, GestureK o, Gdk.WindowK a) => o -> a -> m ()-setGestureWindow obj val = liftIO $ setObjectPropertyObject obj "window" val+setGestureWindow obj val = liftIO $ setObjectPropertyObject obj "window" (Just val) constructGestureWindow :: (Gdk.WindowK a) => a -> IO ([Char], GValue)-constructGestureWindow val = constructObjectPropertyObject "window" val+constructGestureWindow val = constructObjectPropertyObject "window" (Just val) +clearGestureWindow :: (MonadIO m, GestureK o) => o -> m ()+clearGestureWindow obj = liftIO $ setObjectPropertyObject obj "window" (Nothing :: Maybe Gdk.Window)+ data GestureWindowPropertyInfo instance AttrInfo GestureWindowPropertyInfo where- type AttrAllowedOps GestureWindowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps GestureWindowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint GestureWindowPropertyInfo = Gdk.WindowK type AttrBaseTypeConstraint GestureWindowPropertyInfo = GestureK type AttrGetType GestureWindowPropertyInfo = Gdk.Window@@ -543,10 +552,17 @@ attrGet _ = getGestureWindow attrSet _ = setGestureWindow attrConstruct _ = constructGestureWindow+ attrClear _ = clearGestureWindow type instance AttributeList Gesture = GestureAttributeList type GestureAttributeList = ('[ '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) +gestureNPoints :: AttrLabelProxy "nPoints"+gestureNPoints = AttrLabelProxy++gestureWindow :: AttrLabelProxy "window"+gestureWindow = AttrLabelProxy+ data GestureBeginSignalInfo instance SignalInfo GestureBeginSignalInfo where type HaskellCallbackType GestureBeginSignalInfo = GestureBeginCallback@@ -579,7 +595,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -610,7 +626,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -648,7 +664,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Device"+-- returnType : Just (TInterface "Gdk" "Device") -- throws : False -- Skip return : False @@ -677,7 +693,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Gtk" "Gesture")+-- returnType : Just (TGList (TInterface "Gtk" "Gesture")) -- throws : False -- Skip return : False @@ -693,7 +709,6 @@ gestureGetGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_get_group _obj'- checkUnexpectedReturnNULL "gtk_gesture_get_group" result result' <- unpackGList result result'' <- mapM (newObject Gesture) result' g_list_free result@@ -708,7 +723,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Event"+-- returnType : Just (TInterface "Gdk" "Event") -- throws : False -- Skip return : False @@ -722,26 +737,27 @@ (MonadIO m, GestureK a) => a -- _obj -> Gdk.EventSequence -- sequence- -> m Gdk.Event -- result+ -> m (Maybe Gdk.Event) -- result gestureGetLastEvent _obj sequence = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let sequence' = unsafeManagedPtrGetPtr sequence result <- gtk_gesture_get_last_event _obj' sequence'- checkUnexpectedReturnNULL "gtk_gesture_get_last_event" result- result' <- (newBoxed Gdk.Event) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (newBoxed Gdk.Event) result'+ return result'' touchManagedPtr _obj touchManagedPtr sequence- return result'+ return maybeResult data GestureGetLastEventMethodInfo-instance (signature ~ (Gdk.EventSequence -> m Gdk.Event), MonadIO m, GestureK a) => MethodInfo GestureGetLastEventMethodInfo a signature where+instance (signature ~ (Gdk.EventSequence -> m (Maybe Gdk.Event)), MonadIO m, GestureK a) => MethodInfo GestureGetLastEventMethodInfo a signature where overloadedMethod _ = gestureGetLastEvent -- method Gesture::get_last_updated_sequence -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "EventSequence"+-- returnType : Just (TInterface "Gdk" "EventSequence") -- throws : False -- Skip return : False @@ -753,24 +769,25 @@ gestureGetLastUpdatedSequence :: (MonadIO m, GestureK a) => a -- _obj- -> m Gdk.EventSequence -- result+ -> m (Maybe Gdk.EventSequence) -- result gestureGetLastUpdatedSequence _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_get_last_updated_sequence _obj'- checkUnexpectedReturnNULL "gtk_gesture_get_last_updated_sequence" result- result' <- (wrapBoxed Gdk.EventSequence) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (wrapBoxed Gdk.EventSequence) result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data GestureGetLastUpdatedSequenceMethodInfo-instance (signature ~ (m Gdk.EventSequence), MonadIO m, GestureK a) => MethodInfo GestureGetLastUpdatedSequenceMethodInfo a signature where+instance (signature ~ (m (Maybe Gdk.EventSequence)), MonadIO m, GestureK a) => MethodInfo GestureGetLastUpdatedSequenceMethodInfo a signature where overloadedMethod _ = gestureGetLastUpdatedSequence -- method Gesture::get_point -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -816,7 +833,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "EventSequenceState"+-- returnType : Just (TInterface "Gtk" "EventSequenceState") -- throws : False -- Skip return : False @@ -848,7 +865,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Gdk" "EventSequence")+-- returnType : Just (TGList (TInterface "Gdk" "EventSequence")) -- throws : False -- Skip return : False @@ -864,7 +881,6 @@ gestureGetSequences _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_get_sequences _obj'- checkUnexpectedReturnNULL "gtk_gesture_get_sequences" result result' <- unpackGList result result'' <- mapM (newBoxed Gdk.EventSequence) result' g_list_free result@@ -879,7 +895,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Window"+-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -908,7 +924,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gesture", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -939,7 +955,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -971,7 +987,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -999,7 +1015,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1031,7 +1047,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1059,7 +1075,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "EventSequenceState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1094,7 +1110,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "EventSequenceState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1125,7 +1141,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1160,7 +1176,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Gesture where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -17,9 +17,14 @@ -- * Methods--- ** Unsupported methods+-- ** gestureDragGetOffset GestureDragGetOffsetMethodInfo ,+ gestureDragGetOffset ,+++-- ** gestureDragGetStartPoint GestureDragGetStartPointMethodInfo ,+ gestureDragGetStartPoint , -- ** gestureDragNew@@ -69,9 +74,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -331,7 +336,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "GestureDrag"+-- returnType : Just (TInterface "Gtk" "GestureDrag") -- throws : False -- Skip return : False @@ -352,18 +357,80 @@ touchManagedPtr widget return result' --- XXX Could not generate method GestureDrag::get_offset--- Error was : Bad introspection data: "argument \"x\" is not of nullable type (TBasicType TDouble), but it is marked as such."--- XXX: Dummy instance, since code generation failed.--- Please file a bug at http://github.com/haskell-gi/haskell-gi.+-- method GestureDrag::get_offset+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureDrag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "gtk_gesture_drag_get_offset" gtk_gesture_drag_get_offset :: + Ptr GestureDrag -> -- _obj : TInterface "Gtk" "GestureDrag"+ Ptr CDouble -> -- x : TBasicType TDouble+ Ptr CDouble -> -- y : TBasicType TDouble+ IO CInt+++gestureDragGetOffset ::+ (MonadIO m, GestureDragK a) =>+ a -- _obj+ -> m (Bool,Double,Double) -- result+gestureDragGetOffset _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ x <- allocMem :: IO (Ptr CDouble)+ y <- allocMem :: IO (Ptr CDouble)+ result <- gtk_gesture_drag_get_offset _obj' x y+ let result' = (/= 0) result+ x' <- peek x+ let x'' = realToFrac x'+ y' <- peek y+ let y'' = realToFrac y'+ touchManagedPtr _obj+ freeMem x+ freeMem y+ return (result', x'', y'')+ data GestureDragGetOffsetMethodInfo-instance (p ~ (), o ~ MethodResolutionFailed "getOffset" GestureDrag) => MethodInfo GestureDragGetOffsetMethodInfo o p where- overloadedMethod _ = undefined--- XXX Could not generate method GestureDrag::get_start_point--- Error was : Bad introspection data: "argument \"x\" is not of nullable type (TBasicType TDouble), but it is marked as such."--- XXX: Dummy instance, since code generation failed.--- Please file a bug at http://github.com/haskell-gi/haskell-gi.+instance (signature ~ (m (Bool,Double,Double)), MonadIO m, GestureDragK a) => MethodInfo GestureDragGetOffsetMethodInfo a signature where+ overloadedMethod _ = gestureDragGetOffset++-- method GestureDrag::get_start_point+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureDrag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "gtk_gesture_drag_get_start_point" gtk_gesture_drag_get_start_point :: + Ptr GestureDrag -> -- _obj : TInterface "Gtk" "GestureDrag"+ Ptr CDouble -> -- x : TBasicType TDouble+ Ptr CDouble -> -- y : TBasicType TDouble+ IO CInt+++gestureDragGetStartPoint ::+ (MonadIO m, GestureDragK a) =>+ a -- _obj+ -> m (Bool,Double,Double) -- result+gestureDragGetStartPoint _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ x <- allocMem :: IO (Ptr CDouble)+ y <- allocMem :: IO (Ptr CDouble)+ result <- gtk_gesture_drag_get_start_point _obj' x y+ let result' = (/= 0) result+ x' <- peek x+ let x'' = realToFrac x'+ y' <- peek y+ let y'' = realToFrac y'+ touchManagedPtr _obj+ freeMem x+ freeMem y+ return (result', x'', y'')+ data GestureDragGetStartPointMethodInfo-instance (p ~ (), o ~ MethodResolutionFailed "getStartPoint" GestureDrag) => MethodInfo GestureDragGetStartPointMethodInfo o p where- overloadedMethod _ = undefined+instance (signature ~ (m (Bool,Double,Double)), MonadIO m, GestureDragK a) => MethodInfo GestureDragGetStartPointMethodInfo a signature where+ overloadedMethod _ = gestureDragGetStartPoint+
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.GestureDrag where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -27,6 +27,7 @@ -- ** DelayFactor GestureLongPressDelayFactorPropertyInfo , constructGestureLongPressDelayFactor ,+ gestureLongPressDelayFactor , getGestureLongPressDelayFactor , setGestureLongPressDelayFactor , @@ -62,9 +63,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -246,6 +247,7 @@ -- VVV Prop "delay-factor" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getGestureLongPressDelayFactor :: (MonadIO m, GestureLongPressK o) => o -> m Double getGestureLongPressDelayFactor obj = liftIO $ getObjectPropertyDouble obj "delay-factor"@@ -266,10 +268,14 @@ attrGet _ = getGestureLongPressDelayFactor attrSet _ = setGestureLongPressDelayFactor attrConstruct _ = constructGestureLongPressDelayFactor+ attrClear _ = undefined type instance AttributeList GestureLongPress = GestureLongPressAttributeList type GestureLongPressAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("delayFactor", GestureLongPressDelayFactorPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("touchOnly", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) +gestureLongPressDelayFactor :: AttrLabelProxy "delayFactor"+gestureLongPressDelayFactor = AttrLabelProxy+ data GestureLongPressCancelledSignalInfo instance SignalInfo GestureLongPressCancelledSignalInfo where type HaskellCallbackType GestureLongPressCancelledSignalInfo = GestureLongPressCancelledCallback@@ -287,7 +293,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "GestureLongPress"+-- returnType : Just (TInterface "Gtk" "GestureLongPress") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.GestureLongPress where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -74,9 +74,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -335,7 +335,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "GestureMultiPress"+-- returnType : Just (TInterface "Gtk" "GestureMultiPress") -- throws : False -- Skip return : False @@ -360,7 +360,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -391,7 +391,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.GestureMultiPress where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -37,6 +37,7 @@ -- ** Orientation GesturePanOrientationPropertyInfo , constructGesturePanOrientation ,+ gesturePanOrientation , getGesturePanOrientation , setGesturePanOrientation , @@ -60,9 +61,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -210,6 +211,7 @@ -- VVV Prop "orientation" -- Type: TInterface "Gtk" "Orientation" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getGesturePanOrientation :: (MonadIO m, GesturePanK o) => o -> m Orientation getGesturePanOrientation obj = liftIO $ getObjectPropertyEnum obj "orientation"@@ -230,10 +232,14 @@ attrGet _ = getGesturePanOrientation attrSet _ = setGesturePanOrientation attrConstruct _ = constructGesturePanOrientation+ attrClear _ = undefined type instance AttributeList GesturePan = GesturePanAttributeList type GesturePanAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("nPoints", GestureNPointsPropertyInfo), '("orientation", GesturePanOrientationPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("touchOnly", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) +gesturePanOrientation :: AttrLabelProxy "orientation"+gesturePanOrientation = AttrLabelProxy+ data GesturePanPanSignalInfo instance SignalInfo GesturePanPanSignalInfo where type HaskellCallbackType GesturePanPanSignalInfo = GesturePanPanCallback@@ -246,7 +252,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "GesturePan"+-- returnType : Just (TInterface "Gtk" "GesturePan") -- throws : False -- Skip return : False @@ -274,7 +280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Orientation"+-- returnType : Just (TInterface "Gtk" "Orientation") -- throws : False -- Skip return : False @@ -302,7 +308,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.GesturePan where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -45,9 +45,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -196,7 +196,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "GestureRotate"+-- returnType : Just (TInterface "Gtk" "GestureRotate") -- throws : False -- Skip return : False @@ -221,7 +221,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureRotate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.GestureRotate where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -63,6 +63,7 @@ -- ** Button GestureSingleButtonPropertyInfo , constructGestureSingleButton ,+ gestureSingleButton , getGestureSingleButton , setGestureSingleButton , @@ -70,6 +71,7 @@ -- ** Exclusive GestureSingleExclusivePropertyInfo , constructGestureSingleExclusive ,+ gestureSingleExclusive , getGestureSingleExclusive , setGestureSingleExclusive , @@ -77,6 +79,7 @@ -- ** TouchOnly GestureSingleTouchOnlyPropertyInfo , constructGestureSingleTouchOnly ,+ gestureSingleTouchOnly , getGestureSingleTouchOnly , setGestureSingleTouchOnly , @@ -85,9 +88,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -184,17 +187,18 @@ #endif -- VVV Prop "button"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getGestureSingleButton :: (MonadIO m, GestureSingleK o) => o -> m Word32-getGestureSingleButton obj = liftIO $ getObjectPropertyCUInt obj "button"+getGestureSingleButton obj = liftIO $ getObjectPropertyUInt32 obj "button" setGestureSingleButton :: (MonadIO m, GestureSingleK o) => o -> Word32 -> m ()-setGestureSingleButton obj val = liftIO $ setObjectPropertyCUInt obj "button" val+setGestureSingleButton obj val = liftIO $ setObjectPropertyUInt32 obj "button" val constructGestureSingleButton :: Word32 -> IO ([Char], GValue)-constructGestureSingleButton val = constructObjectPropertyCUInt "button" val+constructGestureSingleButton val = constructObjectPropertyUInt32 "button" val data GestureSingleButtonPropertyInfo instance AttrInfo GestureSingleButtonPropertyInfo where@@ -206,10 +210,12 @@ attrGet _ = getGestureSingleButton attrSet _ = setGestureSingleButton attrConstruct _ = constructGestureSingleButton+ attrClear _ = undefined -- VVV Prop "exclusive" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getGestureSingleExclusive :: (MonadIO m, GestureSingleK o) => o -> m Bool getGestureSingleExclusive obj = liftIO $ getObjectPropertyBool obj "exclusive"@@ -230,10 +236,12 @@ attrGet _ = getGestureSingleExclusive attrSet _ = setGestureSingleExclusive attrConstruct _ = constructGestureSingleExclusive+ attrClear _ = undefined -- VVV Prop "touch-only" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getGestureSingleTouchOnly :: (MonadIO m, GestureSingleK o) => o -> m Bool getGestureSingleTouchOnly obj = liftIO $ getObjectPropertyBool obj "touch-only"@@ -254,10 +262,20 @@ attrGet _ = getGestureSingleTouchOnly attrSet _ = setGestureSingleTouchOnly attrConstruct _ = constructGestureSingleTouchOnly+ attrClear _ = undefined type instance AttributeList GestureSingle = GestureSingleAttributeList type GestureSingleAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("touchOnly", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) +gestureSingleButton :: AttrLabelProxy "button"+gestureSingleButton = AttrLabelProxy++gestureSingleExclusive :: AttrLabelProxy "exclusive"+gestureSingleExclusive = AttrLabelProxy++gestureSingleTouchOnly :: AttrLabelProxy "touchOnly"+gestureSingleTouchOnly = AttrLabelProxy+ type instance SignalList GestureSingle = GestureSingleSignalList type GestureSingleSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) @@ -265,7 +283,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -292,7 +310,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -319,7 +337,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "EventSequence"+-- returnType : Just (TInterface "Gdk" "EventSequence") -- throws : False -- Skip return : False @@ -331,24 +349,25 @@ gestureSingleGetCurrentSequence :: (MonadIO m, GestureSingleK a) => a -- _obj- -> m Gdk.EventSequence -- result+ -> m (Maybe Gdk.EventSequence) -- result gestureSingleGetCurrentSequence _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_single_get_current_sequence _obj'- checkUnexpectedReturnNULL "gtk_gesture_single_get_current_sequence" result- result' <- (wrapBoxed Gdk.EventSequence) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (wrapBoxed Gdk.EventSequence) result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data GestureSingleGetCurrentSequenceMethodInfo-instance (signature ~ (m Gdk.EventSequence), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleGetCurrentSequenceMethodInfo a signature where+instance (signature ~ (m (Maybe Gdk.EventSequence)), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleGetCurrentSequenceMethodInfo a signature where overloadedMethod _ = gestureSingleGetCurrentSequence -- method GestureSingle::get_exclusive -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -376,7 +395,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -402,15 +421,15 @@ -- method GestureSingle::set_button -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_gesture_single_set_button" gtk_gesture_single_set_button :: Ptr GestureSingle -> -- _obj : TInterface "Gtk" "GestureSingle"- Word32 -> -- button : TBasicType TUInt32+ Word32 -> -- button : TBasicType TUInt IO () @@ -433,7 +452,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "exclusive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -463,7 +482,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "touch_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.GestureSingle where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -45,9 +45,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -204,7 +204,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "GestureSwipe"+-- returnType : Just (TInterface "Gtk" "GestureSwipe") -- throws : False -- Skip return : False @@ -229,7 +229,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSwipe", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "velocity_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "velocity_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.GestureSwipe where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -45,9 +45,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -192,7 +192,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "GestureZoom"+-- returnType : Just (TInterface "Gtk" "GestureZoom") -- throws : False -- Skip return : False @@ -217,7 +217,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureZoom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.GestureZoom where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -128,6 +128,7 @@ GridBaselineRowPropertyInfo , constructGridBaselineRow , getGridBaselineRow ,+ gridBaselineRow , setGridBaselineRow , @@ -135,6 +136,7 @@ GridColumnHomogeneousPropertyInfo , constructGridColumnHomogeneous , getGridColumnHomogeneous ,+ gridColumnHomogeneous , setGridColumnHomogeneous , @@ -142,6 +144,7 @@ GridColumnSpacingPropertyInfo , constructGridColumnSpacing , getGridColumnSpacing ,+ gridColumnSpacing , setGridColumnSpacing , @@ -149,6 +152,7 @@ GridRowHomogeneousPropertyInfo , constructGridRowHomogeneous , getGridRowHomogeneous ,+ gridRowHomogeneous , setGridRowHomogeneous , @@ -156,6 +160,7 @@ GridRowSpacingPropertyInfo , constructGridRowSpacing , getGridRowSpacing ,+ gridRowSpacing , setGridRowSpacing , @@ -163,9 +168,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -541,17 +546,18 @@ #endif -- VVV Prop "baseline-row"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getGridBaselineRow :: (MonadIO m, GridK o) => o -> m Int32-getGridBaselineRow obj = liftIO $ getObjectPropertyCInt obj "baseline-row"+getGridBaselineRow obj = liftIO $ getObjectPropertyInt32 obj "baseline-row" setGridBaselineRow :: (MonadIO m, GridK o) => o -> Int32 -> m ()-setGridBaselineRow obj val = liftIO $ setObjectPropertyCInt obj "baseline-row" val+setGridBaselineRow obj val = liftIO $ setObjectPropertyInt32 obj "baseline-row" val constructGridBaselineRow :: Int32 -> IO ([Char], GValue)-constructGridBaselineRow val = constructObjectPropertyCInt "baseline-row" val+constructGridBaselineRow val = constructObjectPropertyInt32 "baseline-row" val data GridBaselineRowPropertyInfo instance AttrInfo GridBaselineRowPropertyInfo where@@ -563,10 +569,12 @@ attrGet _ = getGridBaselineRow attrSet _ = setGridBaselineRow attrConstruct _ = constructGridBaselineRow+ attrClear _ = undefined -- VVV Prop "column-homogeneous" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getGridColumnHomogeneous :: (MonadIO m, GridK o) => o -> m Bool getGridColumnHomogeneous obj = liftIO $ getObjectPropertyBool obj "column-homogeneous"@@ -587,19 +595,21 @@ attrGet _ = getGridColumnHomogeneous attrSet _ = setGridColumnHomogeneous attrConstruct _ = constructGridColumnHomogeneous+ attrClear _ = undefined -- VVV Prop "column-spacing"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getGridColumnSpacing :: (MonadIO m, GridK o) => o -> m Int32-getGridColumnSpacing obj = liftIO $ getObjectPropertyCInt obj "column-spacing"+getGridColumnSpacing obj = liftIO $ getObjectPropertyInt32 obj "column-spacing" setGridColumnSpacing :: (MonadIO m, GridK o) => o -> Int32 -> m ()-setGridColumnSpacing obj val = liftIO $ setObjectPropertyCInt obj "column-spacing" val+setGridColumnSpacing obj val = liftIO $ setObjectPropertyInt32 obj "column-spacing" val constructGridColumnSpacing :: Int32 -> IO ([Char], GValue)-constructGridColumnSpacing val = constructObjectPropertyCInt "column-spacing" val+constructGridColumnSpacing val = constructObjectPropertyInt32 "column-spacing" val data GridColumnSpacingPropertyInfo instance AttrInfo GridColumnSpacingPropertyInfo where@@ -611,10 +621,12 @@ attrGet _ = getGridColumnSpacing attrSet _ = setGridColumnSpacing attrConstruct _ = constructGridColumnSpacing+ attrClear _ = undefined -- VVV Prop "row-homogeneous" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getGridRowHomogeneous :: (MonadIO m, GridK o) => o -> m Bool getGridRowHomogeneous obj = liftIO $ getObjectPropertyBool obj "row-homogeneous"@@ -635,19 +647,21 @@ attrGet _ = getGridRowHomogeneous attrSet _ = setGridRowHomogeneous attrConstruct _ = constructGridRowHomogeneous+ attrClear _ = undefined -- VVV Prop "row-spacing"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getGridRowSpacing :: (MonadIO m, GridK o) => o -> m Int32-getGridRowSpacing obj = liftIO $ getObjectPropertyCInt obj "row-spacing"+getGridRowSpacing obj = liftIO $ getObjectPropertyInt32 obj "row-spacing" setGridRowSpacing :: (MonadIO m, GridK o) => o -> Int32 -> m ()-setGridRowSpacing obj val = liftIO $ setObjectPropertyCInt obj "row-spacing" val+setGridRowSpacing obj val = liftIO $ setObjectPropertyInt32 obj "row-spacing" val constructGridRowSpacing :: Int32 -> IO ([Char], GValue)-constructGridRowSpacing val = constructObjectPropertyCInt "row-spacing" val+constructGridRowSpacing val = constructObjectPropertyInt32 "row-spacing" val data GridRowSpacingPropertyInfo instance AttrInfo GridRowSpacingPropertyInfo where@@ -659,10 +673,26 @@ attrGet _ = getGridRowSpacing attrSet _ = setGridRowSpacing attrConstruct _ = constructGridRowSpacing+ attrClear _ = undefined type instance AttributeList Grid = GridAttributeList type GridAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselineRow", GridBaselineRowPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnHomogeneous", GridColumnHomogeneousPropertyInfo), '("columnSpacing", GridColumnSpacingPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowHomogeneous", GridRowHomogeneousPropertyInfo), '("rowSpacing", GridRowSpacingPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +gridBaselineRow :: AttrLabelProxy "baselineRow"+gridBaselineRow = AttrLabelProxy++gridColumnHomogeneous :: AttrLabelProxy "columnHomogeneous"+gridColumnHomogeneous = AttrLabelProxy++gridColumnSpacing :: AttrLabelProxy "columnSpacing"+gridColumnSpacing = AttrLabelProxy++gridRowHomogeneous :: AttrLabelProxy "rowHomogeneous"+gridRowHomogeneous = AttrLabelProxy++gridRowSpacing :: AttrLabelProxy "rowSpacing"+gridRowSpacing = AttrLabelProxy+ type instance SignalList Grid = GridSignalList type GridSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -670,7 +700,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "Grid"+-- returnType : Just (TInterface "Gtk" "Grid") -- throws : False -- Skip return : False @@ -689,19 +719,19 @@ -- method Grid::attach -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_grid_attach" gtk_grid_attach :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" Ptr Widget -> -- child : TInterface "Gtk" "Widget"- Int32 -> -- left : TBasicType TInt32- Int32 -> -- top : TBasicType TInt32- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- left : TBasicType TInt+ Int32 -> -- top : TBasicType TInt+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt IO () @@ -728,9 +758,9 @@ -- method Grid::attach_next_to -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -739,8 +769,8 @@ Ptr Widget -> -- child : TInterface "Gtk" "Widget" Ptr Widget -> -- sibling : TInterface "Gtk" "Widget" CUInt -> -- side : TInterface "Gtk" "PositionType"- Int32 -> -- width : TBasicType TInt32- Int32 -> -- height : TBasicType TInt32+ Int32 -> -- width : TBasicType TInt+ Int32 -> -- height : TBasicType TInt IO () @@ -776,7 +806,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -801,16 +831,16 @@ -- method Grid::get_child_at -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False foreign import ccall "gtk_grid_get_child_at" gtk_grid_get_child_at :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"- Int32 -> -- left : TBasicType TInt32- Int32 -> -- top : TBasicType TInt32+ Int32 -> -- left : TBasicType TInt+ Int32 -> -- top : TBasicType TInt IO (Ptr Widget) @@ -819,24 +849,25 @@ a -- _obj -> Int32 -- left -> Int32 -- top- -> m Widget -- result+ -> m (Maybe Widget) -- result gridGetChildAt _obj left top = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_grid_get_child_at _obj' left top- checkUnexpectedReturnNULL "gtk_grid_get_child_at" result- result' <- (newObject Widget) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (newObject Widget) result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data GridGetChildAtMethodInfo-instance (signature ~ (Int32 -> Int32 -> m Widget), MonadIO m, GridK a) => MethodInfo GridGetChildAtMethodInfo a signature where+instance (signature ~ (Int32 -> Int32 -> m (Maybe Widget)), MonadIO m, GridK a) => MethodInfo GridGetChildAtMethodInfo a signature where overloadedMethod _ = gridGetChildAt -- method Grid::get_column_homogeneous -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -864,7 +895,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -889,15 +920,15 @@ -- method Grid::get_row_baseline_position -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "BaselinePosition"+-- returnType : Just (TInterface "Gtk" "BaselinePosition") -- throws : False -- Skip return : False foreign import ccall "gtk_grid_get_row_baseline_position" gtk_grid_get_row_baseline_position :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"- Int32 -> -- row : TBasicType TInt32+ Int32 -> -- row : TBasicType TInt IO CUInt @@ -921,7 +952,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -949,7 +980,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -974,15 +1005,15 @@ -- method Grid::insert_column -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_grid_insert_column" gtk_grid_insert_column :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt IO () @@ -1005,7 +1036,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1037,15 +1068,15 @@ -- method Grid::insert_row -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_grid_insert_row" gtk_grid_insert_row :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt IO () @@ -1066,15 +1097,15 @@ -- method Grid::remove_column -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_grid_remove_column" gtk_grid_remove_column :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt IO () @@ -1095,15 +1126,15 @@ -- method Grid::remove_row -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_grid_remove_row" gtk_grid_remove_row :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt IO () @@ -1124,15 +1155,15 @@ -- method Grid::set_baseline_row -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_grid_set_baseline_row" gtk_grid_set_baseline_row :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"- Int32 -> -- row : TBasicType TInt32+ Int32 -> -- row : TBasicType TInt IO () @@ -1155,7 +1186,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1183,15 +1214,15 @@ -- method Grid::set_column_spacing -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_grid_set_column_spacing" gtk_grid_set_column_spacing :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"- Word32 -> -- spacing : TBasicType TUInt32+ Word32 -> -- spacing : TBasicType TUInt IO () @@ -1212,15 +1243,15 @@ -- method Grid::set_row_baseline_position -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_grid_set_row_baseline_position" gtk_grid_set_row_baseline_position :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"- Int32 -> -- row : TBasicType TInt32+ Int32 -> -- row : TBasicType TInt CUInt -> -- pos : TInterface "Gtk" "BaselinePosition" IO () @@ -1246,7 +1277,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1274,15 +1305,15 @@ -- method Grid::set_row_spacing -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_grid_set_row_spacing" gtk_grid_set_row_spacing :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"- Word32 -> -- spacing : TBasicType TUInt32+ Word32 -> -- spacing : TBasicType TUInt IO ()
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Grid where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -25,9 +25,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -403,15 +403,15 @@ -- method HBox::new -- method type : Constructor--- Args : [Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "HBox"+-- returnType : Just (TInterface "Gtk" "HBox") -- throws : False -- Skip return : False foreign import ccall "gtk_hbox_new" gtk_hbox_new :: CInt -> -- homogeneous : TBasicType TBoolean- Int32 -> -- spacing : TBasicType TInt32+ Int32 -> -- spacing : TBasicType TInt IO (Ptr HBox) {-# DEPRECATED hBoxNew ["(Since version 3.2)","You can use gtk_box_new() with %GTK_ORIENTATION_HORIZONTAL instead,"," which is a quick and easy change. But the recommendation is to switch to"," #GtkGrid, since #GtkBox is going to go away eventually."," See [Migrating from other containers to GtkGrid][gtk-migrating-GtkGrid]."]#-}
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.HBox where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -25,9 +25,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -411,7 +411,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "HButtonBox"+-- returnType : Just (TInterface "Gtk" "HButtonBox") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.HButtonBox where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -25,9 +25,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -403,7 +403,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "HPaned"+-- returnType : Just (TInterface "Gtk" "HPaned") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.HPaned where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -81,9 +81,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -515,7 +515,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "HSV"+-- returnType : Just (TInterface "Gtk" "HSV") -- throws : False -- Skip return : False @@ -536,7 +536,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "v", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -576,16 +576,16 @@ -- method HSV::get_metrics -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ring_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ring_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_hsv_get_metrics" gtk_hsv_get_metrics :: Ptr HSV -> -- _obj : TInterface "Gtk" "HSV"- Ptr Int32 -> -- size : TBasicType TInt32- Ptr Int32 -> -- ring_width : TBasicType TInt32+ Ptr Int32 -> -- size : TBasicType TInt+ Ptr Int32 -> -- ring_width : TBasicType TInt IO () @@ -613,7 +613,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -641,7 +641,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -675,16 +675,16 @@ -- method HSV::set_metrics -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ring_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ring_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_hsv_set_metrics" gtk_hsv_set_metrics :: Ptr HSV -> -- _obj : TInterface "Gtk" "HSV"- Int32 -> -- size : TBasicType TInt32- Int32 -> -- ring_width : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt+ Int32 -> -- ring_width : TBasicType TInt IO () @@ -708,7 +708,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "r", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "g", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "b", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.HSV where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -29,9 +29,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -410,7 +410,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "HScale"+-- returnType : Just (TInterface "Gtk" "HScale") -- throws : False -- Skip return : False @@ -439,7 +439,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "HScale"+-- returnType : Just (TInterface "Gtk" "HScale") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.HScale where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -25,9 +25,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -394,7 +394,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "HScrollbar"+-- returnType : Just (TInterface "Gtk" "HScrollbar") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.HScrollbar where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -25,9 +25,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -366,7 +366,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "HSeparator"+-- returnType : Just (TInterface "Gtk" "HSeparator") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.HSeparator where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -62,12 +62,14 @@ -- ** ChildDetached HandleBoxChildDetachedPropertyInfo , getHandleBoxChildDetached ,+ handleBoxChildDetached , -- ** HandlePosition HandleBoxHandlePositionPropertyInfo , constructHandleBoxHandlePosition , getHandleBoxHandlePosition ,+ handleBoxHandlePosition , setHandleBoxHandlePosition , @@ -75,6 +77,7 @@ HandleBoxShadowTypePropertyInfo , constructHandleBoxShadowType , getHandleBoxShadowType ,+ handleBoxShadowType , setHandleBoxShadowType , @@ -82,6 +85,7 @@ HandleBoxSnapEdgePropertyInfo , constructHandleBoxSnapEdge , getHandleBoxSnapEdge ,+ handleBoxSnapEdge , setHandleBoxSnapEdge , @@ -89,6 +93,7 @@ HandleBoxSnapEdgeSetPropertyInfo , constructHandleBoxSnapEdgeSet , getHandleBoxSnapEdgeSet ,+ handleBoxSnapEdgeSet , setHandleBoxSnapEdgeSet , @@ -123,9 +128,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -573,6 +578,7 @@ -- VVV Prop "child-detached" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable]+ -- Nullable: (Just False,Nothing) getHandleBoxChildDetached :: (MonadIO m, HandleBoxK o) => o -> m Bool getHandleBoxChildDetached obj = liftIO $ getObjectPropertyBool obj "child-detached"@@ -587,10 +593,12 @@ attrGet _ = getHandleBoxChildDetached attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "handle-position" -- Type: TInterface "Gtk" "PositionType" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getHandleBoxHandlePosition :: (MonadIO m, HandleBoxK o) => o -> m PositionType getHandleBoxHandlePosition obj = liftIO $ getObjectPropertyEnum obj "handle-position"@@ -611,10 +619,12 @@ attrGet _ = getHandleBoxHandlePosition attrSet _ = setHandleBoxHandlePosition attrConstruct _ = constructHandleBoxHandlePosition+ attrClear _ = undefined -- VVV Prop "shadow-type" -- Type: TInterface "Gtk" "ShadowType" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getHandleBoxShadowType :: (MonadIO m, HandleBoxK o) => o -> m ShadowType getHandleBoxShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type"@@ -635,10 +645,12 @@ attrGet _ = getHandleBoxShadowType attrSet _ = setHandleBoxShadowType attrConstruct _ = constructHandleBoxShadowType+ attrClear _ = undefined -- VVV Prop "snap-edge" -- Type: TInterface "Gtk" "PositionType" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getHandleBoxSnapEdge :: (MonadIO m, HandleBoxK o) => o -> m PositionType getHandleBoxSnapEdge obj = liftIO $ getObjectPropertyEnum obj "snap-edge"@@ -659,10 +671,12 @@ attrGet _ = getHandleBoxSnapEdge attrSet _ = setHandleBoxSnapEdge attrConstruct _ = constructHandleBoxSnapEdge+ attrClear _ = undefined -- VVV Prop "snap-edge-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getHandleBoxSnapEdgeSet :: (MonadIO m, HandleBoxK o) => o -> m Bool getHandleBoxSnapEdgeSet obj = liftIO $ getObjectPropertyBool obj "snap-edge-set"@@ -683,10 +697,26 @@ attrGet _ = getHandleBoxSnapEdgeSet attrSet _ = setHandleBoxSnapEdgeSet attrConstruct _ = constructHandleBoxSnapEdgeSet+ attrClear _ = undefined type instance AttributeList HandleBox = HandleBoxAttributeList type HandleBoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("childDetached", HandleBoxChildDetachedPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("handlePosition", HandleBoxHandlePositionPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", HandleBoxShadowTypePropertyInfo), '("snapEdge", HandleBoxSnapEdgePropertyInfo), '("snapEdgeSet", HandleBoxSnapEdgeSetPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +handleBoxChildDetached :: AttrLabelProxy "childDetached"+handleBoxChildDetached = AttrLabelProxy++handleBoxHandlePosition :: AttrLabelProxy "handlePosition"+handleBoxHandlePosition = AttrLabelProxy++handleBoxShadowType :: AttrLabelProxy "shadowType"+handleBoxShadowType = AttrLabelProxy++handleBoxSnapEdge :: AttrLabelProxy "snapEdge"+handleBoxSnapEdge = AttrLabelProxy++handleBoxSnapEdgeSet :: AttrLabelProxy "snapEdgeSet"+handleBoxSnapEdgeSet = AttrLabelProxy+ data HandleBoxChildAttachedSignalInfo instance SignalInfo HandleBoxChildAttachedSignalInfo where type HaskellCallbackType HandleBoxChildAttachedSignalInfo = HandleBoxChildAttachedCallback@@ -704,7 +734,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "HandleBox"+-- returnType : Just (TInterface "Gtk" "HandleBox") -- throws : False -- Skip return : False @@ -725,7 +755,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -753,7 +783,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PositionType"+-- returnType : Just (TInterface "Gtk" "PositionType") -- throws : False -- Skip return : False @@ -781,7 +811,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ShadowType"+-- returnType : Just (TInterface "Gtk" "ShadowType") -- throws : False -- Skip return : False @@ -809,7 +839,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PositionType"+-- returnType : Just (TInterface "Gtk" "PositionType") -- throws : False -- Skip return : False @@ -837,7 +867,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -867,7 +897,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -897,7 +927,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edge", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.HandleBox where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -96,15 +96,19 @@ -- * Properties -- ** CustomTitle HeaderBarCustomTitlePropertyInfo ,+ clearHeaderBarCustomTitle , constructHeaderBarCustomTitle , getHeaderBarCustomTitle ,+ headerBarCustomTitle , setHeaderBarCustomTitle , -- ** DecorationLayout HeaderBarDecorationLayoutPropertyInfo ,+ clearHeaderBarDecorationLayout , constructHeaderBarDecorationLayout , getHeaderBarDecorationLayout ,+ headerBarDecorationLayout , setHeaderBarDecorationLayout , @@ -112,6 +116,7 @@ HeaderBarDecorationLayoutSetPropertyInfo, constructHeaderBarDecorationLayoutSet , getHeaderBarDecorationLayoutSet ,+ headerBarDecorationLayoutSet , setHeaderBarDecorationLayoutSet , @@ -119,6 +124,7 @@ HeaderBarHasSubtitlePropertyInfo , constructHeaderBarHasSubtitle , getHeaderBarHasSubtitle ,+ headerBarHasSubtitle , setHeaderBarHasSubtitle , @@ -126,6 +132,7 @@ HeaderBarShowCloseButtonPropertyInfo , constructHeaderBarShowCloseButton , getHeaderBarShowCloseButton ,+ headerBarShowCloseButton , setHeaderBarShowCloseButton , @@ -133,20 +140,25 @@ HeaderBarSpacingPropertyInfo , constructHeaderBarSpacing , getHeaderBarSpacing ,+ headerBarSpacing , setHeaderBarSpacing , -- ** Subtitle HeaderBarSubtitlePropertyInfo ,+ clearHeaderBarSubtitle , constructHeaderBarSubtitle , getHeaderBarSubtitle ,+ headerBarSubtitle , setHeaderBarSubtitle , -- ** Title HeaderBarTitlePropertyInfo ,+ clearHeaderBarTitle , constructHeaderBarTitle , getHeaderBarTitle ,+ headerBarTitle , setHeaderBarTitle , @@ -154,9 +166,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -526,19 +538,23 @@ -- VVV Prop "custom-title" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getHeaderBarCustomTitle :: (MonadIO m, HeaderBarK o) => o -> m Widget-getHeaderBarCustomTitle obj = liftIO $ getObjectPropertyObject obj "custom-title" Widget+getHeaderBarCustomTitle obj = liftIO $ checkUnexpectedNothing "getHeaderBarCustomTitle" $ getObjectPropertyObject obj "custom-title" Widget setHeaderBarCustomTitle :: (MonadIO m, HeaderBarK o, WidgetK a) => o -> a -> m ()-setHeaderBarCustomTitle obj val = liftIO $ setObjectPropertyObject obj "custom-title" val+setHeaderBarCustomTitle obj val = liftIO $ setObjectPropertyObject obj "custom-title" (Just val) constructHeaderBarCustomTitle :: (WidgetK a) => a -> IO ([Char], GValue)-constructHeaderBarCustomTitle val = constructObjectPropertyObject "custom-title" val+constructHeaderBarCustomTitle val = constructObjectPropertyObject "custom-title" (Just val) +clearHeaderBarCustomTitle :: (MonadIO m, HeaderBarK o) => o -> m ()+clearHeaderBarCustomTitle obj = liftIO $ setObjectPropertyObject obj "custom-title" (Nothing :: Maybe Widget)+ data HeaderBarCustomTitlePropertyInfo instance AttrInfo HeaderBarCustomTitlePropertyInfo where- type AttrAllowedOps HeaderBarCustomTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps HeaderBarCustomTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint HeaderBarCustomTitlePropertyInfo = WidgetK type AttrBaseTypeConstraint HeaderBarCustomTitlePropertyInfo = HeaderBarK type AttrGetType HeaderBarCustomTitlePropertyInfo = Widget@@ -546,23 +562,28 @@ attrGet _ = getHeaderBarCustomTitle attrSet _ = setHeaderBarCustomTitle attrConstruct _ = constructHeaderBarCustomTitle+ attrClear _ = clearHeaderBarCustomTitle -- VVV Prop "decoration-layout" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getHeaderBarDecorationLayout :: (MonadIO m, HeaderBarK o) => o -> m T.Text-getHeaderBarDecorationLayout obj = liftIO $ getObjectPropertyString obj "decoration-layout"+getHeaderBarDecorationLayout obj = liftIO $ checkUnexpectedNothing "getHeaderBarDecorationLayout" $ getObjectPropertyString obj "decoration-layout" setHeaderBarDecorationLayout :: (MonadIO m, HeaderBarK o) => o -> T.Text -> m ()-setHeaderBarDecorationLayout obj val = liftIO $ setObjectPropertyString obj "decoration-layout" val+setHeaderBarDecorationLayout obj val = liftIO $ setObjectPropertyString obj "decoration-layout" (Just val) constructHeaderBarDecorationLayout :: T.Text -> IO ([Char], GValue)-constructHeaderBarDecorationLayout val = constructObjectPropertyString "decoration-layout" val+constructHeaderBarDecorationLayout val = constructObjectPropertyString "decoration-layout" (Just val) +clearHeaderBarDecorationLayout :: (MonadIO m, HeaderBarK o) => o -> m ()+clearHeaderBarDecorationLayout obj = liftIO $ setObjectPropertyString obj "decoration-layout" (Nothing :: Maybe T.Text)+ data HeaderBarDecorationLayoutPropertyInfo instance AttrInfo HeaderBarDecorationLayoutPropertyInfo where- type AttrAllowedOps HeaderBarDecorationLayoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps HeaderBarDecorationLayoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint HeaderBarDecorationLayoutPropertyInfo = (~) T.Text type AttrBaseTypeConstraint HeaderBarDecorationLayoutPropertyInfo = HeaderBarK type AttrGetType HeaderBarDecorationLayoutPropertyInfo = T.Text@@ -570,10 +591,12 @@ attrGet _ = getHeaderBarDecorationLayout attrSet _ = setHeaderBarDecorationLayout attrConstruct _ = constructHeaderBarDecorationLayout+ attrClear _ = clearHeaderBarDecorationLayout -- VVV Prop "decoration-layout-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getHeaderBarDecorationLayoutSet :: (MonadIO m, HeaderBarK o) => o -> m Bool getHeaderBarDecorationLayoutSet obj = liftIO $ getObjectPropertyBool obj "decoration-layout-set"@@ -594,10 +617,12 @@ attrGet _ = getHeaderBarDecorationLayoutSet attrSet _ = setHeaderBarDecorationLayoutSet attrConstruct _ = constructHeaderBarDecorationLayoutSet+ attrClear _ = undefined -- VVV Prop "has-subtitle" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getHeaderBarHasSubtitle :: (MonadIO m, HeaderBarK o) => o -> m Bool getHeaderBarHasSubtitle obj = liftIO $ getObjectPropertyBool obj "has-subtitle"@@ -618,10 +643,12 @@ attrGet _ = getHeaderBarHasSubtitle attrSet _ = setHeaderBarHasSubtitle attrConstruct _ = constructHeaderBarHasSubtitle+ attrClear _ = undefined -- VVV Prop "show-close-button" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getHeaderBarShowCloseButton :: (MonadIO m, HeaderBarK o) => o -> m Bool getHeaderBarShowCloseButton obj = liftIO $ getObjectPropertyBool obj "show-close-button"@@ -642,19 +669,21 @@ attrGet _ = getHeaderBarShowCloseButton attrSet _ = setHeaderBarShowCloseButton attrConstruct _ = constructHeaderBarShowCloseButton+ attrClear _ = undefined -- VVV Prop "spacing"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getHeaderBarSpacing :: (MonadIO m, HeaderBarK o) => o -> m Int32-getHeaderBarSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing"+getHeaderBarSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing" setHeaderBarSpacing :: (MonadIO m, HeaderBarK o) => o -> Int32 -> m ()-setHeaderBarSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val+setHeaderBarSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val constructHeaderBarSpacing :: Int32 -> IO ([Char], GValue)-constructHeaderBarSpacing val = constructObjectPropertyCInt "spacing" val+constructHeaderBarSpacing val = constructObjectPropertyInt32 "spacing" val data HeaderBarSpacingPropertyInfo instance AttrInfo HeaderBarSpacingPropertyInfo where@@ -666,23 +695,28 @@ attrGet _ = getHeaderBarSpacing attrSet _ = setHeaderBarSpacing attrConstruct _ = constructHeaderBarSpacing+ attrClear _ = undefined -- VVV Prop "subtitle" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getHeaderBarSubtitle :: (MonadIO m, HeaderBarK o) => o -> m T.Text-getHeaderBarSubtitle obj = liftIO $ getObjectPropertyString obj "subtitle"+getHeaderBarSubtitle obj = liftIO $ checkUnexpectedNothing "getHeaderBarSubtitle" $ getObjectPropertyString obj "subtitle" setHeaderBarSubtitle :: (MonadIO m, HeaderBarK o) => o -> T.Text -> m ()-setHeaderBarSubtitle obj val = liftIO $ setObjectPropertyString obj "subtitle" val+setHeaderBarSubtitle obj val = liftIO $ setObjectPropertyString obj "subtitle" (Just val) constructHeaderBarSubtitle :: T.Text -> IO ([Char], GValue)-constructHeaderBarSubtitle val = constructObjectPropertyString "subtitle" val+constructHeaderBarSubtitle val = constructObjectPropertyString "subtitle" (Just val) +clearHeaderBarSubtitle :: (MonadIO m, HeaderBarK o) => o -> m ()+clearHeaderBarSubtitle obj = liftIO $ setObjectPropertyString obj "subtitle" (Nothing :: Maybe T.Text)+ data HeaderBarSubtitlePropertyInfo instance AttrInfo HeaderBarSubtitlePropertyInfo where- type AttrAllowedOps HeaderBarSubtitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps HeaderBarSubtitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint HeaderBarSubtitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint HeaderBarSubtitlePropertyInfo = HeaderBarK type AttrGetType HeaderBarSubtitlePropertyInfo = T.Text@@ -690,23 +724,28 @@ attrGet _ = getHeaderBarSubtitle attrSet _ = setHeaderBarSubtitle attrConstruct _ = constructHeaderBarSubtitle+ attrClear _ = clearHeaderBarSubtitle -- VVV Prop "title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getHeaderBarTitle :: (MonadIO m, HeaderBarK o) => o -> m T.Text-getHeaderBarTitle obj = liftIO $ getObjectPropertyString obj "title"+getHeaderBarTitle obj = liftIO $ checkUnexpectedNothing "getHeaderBarTitle" $ getObjectPropertyString obj "title" setHeaderBarTitle :: (MonadIO m, HeaderBarK o) => o -> T.Text -> m ()-setHeaderBarTitle obj val = liftIO $ setObjectPropertyString obj "title" val+setHeaderBarTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) constructHeaderBarTitle :: T.Text -> IO ([Char], GValue)-constructHeaderBarTitle val = constructObjectPropertyString "title" val+constructHeaderBarTitle val = constructObjectPropertyString "title" (Just val) +clearHeaderBarTitle :: (MonadIO m, HeaderBarK o) => o -> m ()+clearHeaderBarTitle obj = liftIO $ setObjectPropertyString obj "title" (Nothing :: Maybe T.Text)+ data HeaderBarTitlePropertyInfo instance AttrInfo HeaderBarTitlePropertyInfo where- type AttrAllowedOps HeaderBarTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps HeaderBarTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint HeaderBarTitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint HeaderBarTitlePropertyInfo = HeaderBarK type AttrGetType HeaderBarTitlePropertyInfo = T.Text@@ -714,10 +753,35 @@ attrGet _ = getHeaderBarTitle attrSet _ = setHeaderBarTitle attrConstruct _ = constructHeaderBarTitle+ attrClear _ = clearHeaderBarTitle type instance AttributeList HeaderBar = HeaderBarAttributeList type HeaderBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("customTitle", HeaderBarCustomTitlePropertyInfo), '("decorationLayout", HeaderBarDecorationLayoutPropertyInfo), '("decorationLayoutSet", HeaderBarDecorationLayoutSetPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasSubtitle", HeaderBarHasSubtitlePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showCloseButton", HeaderBarShowCloseButtonPropertyInfo), '("spacing", HeaderBarSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("subtitle", HeaderBarSubtitlePropertyInfo), '("title", HeaderBarTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +headerBarCustomTitle :: AttrLabelProxy "customTitle"+headerBarCustomTitle = AttrLabelProxy++headerBarDecorationLayout :: AttrLabelProxy "decorationLayout"+headerBarDecorationLayout = AttrLabelProxy++headerBarDecorationLayoutSet :: AttrLabelProxy "decorationLayoutSet"+headerBarDecorationLayoutSet = AttrLabelProxy++headerBarHasSubtitle :: AttrLabelProxy "hasSubtitle"+headerBarHasSubtitle = AttrLabelProxy++headerBarShowCloseButton :: AttrLabelProxy "showCloseButton"+headerBarShowCloseButton = AttrLabelProxy++headerBarSpacing :: AttrLabelProxy "spacing"+headerBarSpacing = AttrLabelProxy++headerBarSubtitle :: AttrLabelProxy "subtitle"+headerBarSubtitle = AttrLabelProxy++headerBarTitle :: AttrLabelProxy "title"+headerBarTitle = AttrLabelProxy+ type instance SignalList HeaderBar = HeaderBarSignalList type HeaderBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -725,7 +789,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "HeaderBar"+-- returnType : Just (TInterface "Gtk" "HeaderBar") -- throws : False -- Skip return : False @@ -746,7 +810,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -775,7 +839,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -804,7 +868,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -832,7 +896,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -860,7 +924,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -889,7 +953,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -918,7 +982,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -949,7 +1013,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -980,7 +1044,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1015,7 +1079,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1050,7 +1114,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1080,7 +1144,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1110,7 +1174,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "subtitle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1145,7 +1209,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.HeaderBar where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -79,6 +79,7 @@ IMContextInputHintsPropertyInfo , constructIMContextInputHints , getIMContextInputHints ,+ iMContextInputHints , setIMContextInputHints , @@ -86,6 +87,7 @@ IMContextInputPurposePropertyInfo , constructIMContextInputPurpose , getIMContextInputPurpose ,+ iMContextInputPurpose , setIMContextInputPurpose , @@ -168,9 +170,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -491,6 +493,7 @@ -- VVV Prop "input-hints" -- Type: TInterface "Gtk" "InputHints" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getIMContextInputHints :: (MonadIO m, IMContextK o) => o -> m [InputHints] getIMContextInputHints obj = liftIO $ getObjectPropertyFlags obj "input-hints"@@ -511,10 +514,12 @@ attrGet _ = getIMContextInputHints attrSet _ = setIMContextInputHints attrConstruct _ = constructIMContextInputHints+ attrClear _ = undefined -- VVV Prop "input-purpose" -- Type: TInterface "Gtk" "InputPurpose" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getIMContextInputPurpose :: (MonadIO m, IMContextK o) => o -> m InputPurpose getIMContextInputPurpose obj = liftIO $ getObjectPropertyEnum obj "input-purpose"@@ -535,10 +540,17 @@ attrGet _ = getIMContextInputPurpose attrSet _ = setIMContextInputPurpose attrConstruct _ = constructIMContextInputPurpose+ attrClear _ = undefined type instance AttributeList IMContext = IMContextAttributeList type IMContextAttributeList = ('[ '("inputHints", IMContextInputHintsPropertyInfo), '("inputPurpose", IMContextInputPurposePropertyInfo)] :: [(Symbol, *)]) +iMContextInputHints :: AttrLabelProxy "inputHints"+iMContextInputHints = AttrLabelProxy++iMContextInputPurpose :: AttrLabelProxy "inputPurpose"+iMContextInputPurpose = AttrLabelProxy+ data IMContextCommitSignalInfo instance SignalInfo IMContextCommitSignalInfo where type HaskellCallbackType IMContextCommitSignalInfo = IMContextCommitCallback@@ -574,16 +586,16 @@ -- method IMContext::delete_surrounding -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_im_context_delete_surrounding" gtk_im_context_delete_surrounding :: Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext"- Int32 -> -- offset : TBasicType TInt32- Int32 -> -- n_chars : TBasicType TInt32+ Int32 -> -- offset : TBasicType TInt+ Int32 -> -- n_chars : TBasicType TInt IO CInt @@ -608,7 +620,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -640,7 +652,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -667,7 +679,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -692,9 +704,9 @@ -- method IMContext::get_preedit_string -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cursor_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cursor_pos", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -702,7 +714,7 @@ Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext" Ptr CString -> -- str : TBasicType TUTF8 Ptr (Ptr Pango.AttrList) -> -- attrs : TInterface "Pango" "AttrList"- Ptr Int32 -> -- cursor_pos : TBasicType TInt32+ Ptr Int32 -> -- cursor_pos : TBasicType TInt IO () @@ -734,16 +746,16 @@ -- method IMContext::get_surrounding -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cursor_index", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cursor_index", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_im_context_get_surrounding" gtk_im_context_get_surrounding :: Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext" Ptr CString -> -- text : TBasicType TUTF8- Ptr Int32 -> -- cursor_index : TBasicType TInt32+ Ptr Int32 -> -- cursor_index : TBasicType TInt IO CInt @@ -774,7 +786,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -801,7 +813,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -836,7 +848,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -865,17 +877,17 @@ -- method IMContext::set_surrounding -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_im_context_set_surrounding" gtk_im_context_set_surrounding :: Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext" CString -> -- text : TBasicType TUTF8- Int32 -> -- len : TBasicType TInt32- Int32 -> -- cursor_index : TBasicType TInt32+ Int32 -> -- len : TBasicType TInt+ Int32 -> -- cursor_index : TBasicType TInt IO () @@ -902,7 +914,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_preedit", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.IMContext where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -25,9 +25,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -111,7 +111,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "IMContextSimple"+-- returnType : Just (TInterface "Gtk" "IMContextSimple") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.IMContextSimple where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -40,9 +40,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -129,7 +129,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "IMMulticontext"+-- returnType : Just (TInterface "Gtk" "IMMulticontext") -- throws : False -- Skip return : False @@ -150,7 +150,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menushell", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -181,7 +181,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -210,7 +210,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.IMMulticontext where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -49,9 +49,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -138,7 +138,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "IconFactory"+-- returnType : Just (TInterface "Gtk" "IconFactory") -- throws : False -- Skip return : False @@ -159,7 +159,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -194,7 +194,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -221,7 +221,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "IconSet"+-- returnType : Just (TInterface "Gtk" "IconSet") -- throws : False -- Skip return : False @@ -254,7 +254,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -281,7 +281,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "IconSet"+-- returnType : Just (TInterface "Gtk" "IconSet") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.IconFactory where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -125,9 +125,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -224,7 +224,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "icon_theme", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "IconInfo"+-- returnType : Just (TInterface "Gtk" "IconInfo") -- throws : False -- Skip return : False @@ -251,16 +251,16 @@ -- method IconInfo::get_attach_points -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "points", argType = TCArray False (-1) 2 (TInterface "Gdk" "Point"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_points", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "n_points", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : TBasicType TBoolean+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "points", argType = TCArray False (-1) 2 (TInterface "Gdk" "Point"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_points", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_points", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_icon_info_get_attach_points" gtk_icon_info_get_attach_points :: Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" Ptr (Ptr Gdk.Point) -> -- points : TCArray False (-1) 2 (TInterface "Gdk" "Point")- Ptr Int32 -> -- n_points : TBasicType TInt32+ Ptr Int32 -> -- n_points : TBasicType TInt IO CInt {-# DEPRECATED iconInfoGetAttachPoints ["(Since version 3.14)","Attachment points are deprecated"]#-}@@ -292,7 +292,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -319,7 +319,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -346,7 +346,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -375,7 +375,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -404,7 +404,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rectangle", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -435,7 +435,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TFileName+-- returnType : Just (TBasicType TFileName) -- throws : False -- Skip return : False @@ -464,7 +464,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -492,7 +492,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -524,9 +524,9 @@ -- method IconInfo::load_icon_async -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -534,7 +534,7 @@ Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr IO () @@ -572,7 +572,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -610,7 +610,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "cairo" "Surface"+-- returnType : Just (TInterface "cairo" "Surface") -- throws : True -- Skip return : False @@ -652,7 +652,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -717,9 +717,9 @@ -- method IconInfo::load_symbolic_async -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -731,7 +731,7 @@ Ptr Gdk.RGBA -> -- error_color : TInterface "Gdk" "RGBA" Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr IO () @@ -793,7 +793,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -836,7 +836,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -877,9 +877,9 @@ -- method IconInfo::load_symbolic_for_context_async -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -888,7 +888,7 @@ Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr IO () @@ -929,7 +929,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -972,7 +972,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -1018,7 +1018,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "raw_coordinates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.IconInfo where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -162,9 +162,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -306,7 +306,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "IconTheme"+-- returnType : Just (TInterface "Gtk" "IconTheme") -- throws : False -- Skip return : False @@ -327,7 +327,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -358,7 +358,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -387,16 +387,16 @@ -- method IconTheme::choose_icon -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "IconInfo"+-- returnType : Just (TInterface "Gtk" "IconInfo") -- throws : False -- Skip return : False foreign import ccall "gtk_icon_theme_choose_icon" gtk_icon_theme_choose_icon :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" Ptr CString -> -- icon_names : TCArray True (-1) (-1) (TBasicType TUTF8)- Int32 -> -- size : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" IO (Ptr IconInfo) @@ -407,36 +407,37 @@ -> [T.Text] -- iconNames -> Int32 -- size -> [IconLookupFlags] -- flags- -> m IconInfo -- result+ -> m (Maybe IconInfo) -- result iconThemeChooseIcon _obj iconNames size flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iconNames' <- packZeroTerminatedUTF8CArray iconNames let flags' = gflagsToWord flags result <- gtk_icon_theme_choose_icon _obj' iconNames' size flags'- checkUnexpectedReturnNULL "gtk_icon_theme_choose_icon" result- result' <- (wrapObject IconInfo) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (wrapObject IconInfo) result'+ return result'' touchManagedPtr _obj mapZeroTerminatedCArray freeMem iconNames' freeMem iconNames'- return result'+ return maybeResult data IconThemeChooseIconMethodInfo-instance (signature ~ ([T.Text] -> Int32 -> [IconLookupFlags] -> m IconInfo), MonadIO m, IconThemeK a) => MethodInfo IconThemeChooseIconMethodInfo a signature where+instance (signature ~ ([T.Text] -> Int32 -> [IconLookupFlags] -> m (Maybe IconInfo)), MonadIO m, IconThemeK a) => MethodInfo IconThemeChooseIconMethodInfo a signature where overloadedMethod _ = iconThemeChooseIcon -- method IconTheme::choose_icon_for_scale -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "IconInfo"+-- returnType : Just (TInterface "Gtk" "IconInfo") -- throws : False -- Skip return : False foreign import ccall "gtk_icon_theme_choose_icon_for_scale" gtk_icon_theme_choose_icon_for_scale :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" Ptr CString -> -- icon_names : TCArray True (-1) (-1) (TBasicType TUTF8)- Int32 -> -- size : TBasicType TInt32- Int32 -> -- scale : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt+ Int32 -> -- scale : TBasicType TInt CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" IO (Ptr IconInfo) @@ -448,28 +449,29 @@ -> Int32 -- size -> Int32 -- scale -> [IconLookupFlags] -- flags- -> m IconInfo -- result+ -> m (Maybe IconInfo) -- result iconThemeChooseIconForScale _obj iconNames size scale flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iconNames' <- packZeroTerminatedUTF8CArray iconNames let flags' = gflagsToWord flags result <- gtk_icon_theme_choose_icon_for_scale _obj' iconNames' size scale flags'- checkUnexpectedReturnNULL "gtk_icon_theme_choose_icon_for_scale" result- result' <- (wrapObject IconInfo) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (wrapObject IconInfo) result'+ return result'' touchManagedPtr _obj mapZeroTerminatedCArray freeMem iconNames' freeMem iconNames'- return result'+ return maybeResult data IconThemeChooseIconForScaleMethodInfo-instance (signature ~ ([T.Text] -> Int32 -> Int32 -> [IconLookupFlags] -> m IconInfo), MonadIO m, IconThemeK a) => MethodInfo IconThemeChooseIconForScaleMethodInfo a signature where+instance (signature ~ ([T.Text] -> Int32 -> Int32 -> [IconLookupFlags] -> m (Maybe IconInfo)), MonadIO m, IconThemeK a) => MethodInfo IconThemeChooseIconForScaleMethodInfo a signature where overloadedMethod _ = iconThemeChooseIconForScale -- method IconTheme::get_example_icon_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -481,25 +483,26 @@ iconThemeGetExampleIconName :: (MonadIO m, IconThemeK a) => a -- _obj- -> m T.Text -- result+ -> m (Maybe T.Text) -- result iconThemeGetExampleIconName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_icon_theme_get_example_icon_name _obj'- checkUnexpectedReturnNULL "gtk_icon_theme_get_example_icon_name" result- result' <- cstringToText result- freeMem result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- cstringToText result'+ freeMem result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data IconThemeGetExampleIconNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IconThemeK a) => MethodInfo IconThemeGetExampleIconNameMethodInfo a signature where+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IconThemeK a) => MethodInfo IconThemeGetExampleIconNameMethodInfo a signature where overloadedMethod _ = iconThemeGetExampleIconName -- method IconTheme::get_icon_sizes -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TCArray True (-1) (-1) (TBasicType TInt32)+-- returnType : Just (TCArray True (-1) (-1) (TBasicType TInt)) -- throws : False -- Skip return : False @@ -531,16 +534,16 @@ -- method IconTheme::get_search_path -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_elements", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "n_elements", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : TBasicType TVoid+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_elements", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_elements", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_theme_get_search_path" gtk_icon_theme_get_search_path :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" Ptr (Ptr CString) -> -- path : TCArray False (-1) 2 (TBasicType TFileName)- Ptr Int32 -> -- n_elements : TBasicType TInt32+ Ptr Int32 -> -- n_elements : TBasicType TInt IO () @@ -571,7 +574,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -603,7 +606,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TBasicType TUTF8)+-- returnType : Just (TGList (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -619,7 +622,6 @@ iconThemeListContexts _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_icon_theme_list_contexts _obj'- checkUnexpectedReturnNULL "gtk_icon_theme_list_contexts" result result' <- unpackGList result result'' <- mapM cstringToText result' mapGList freeMem result@@ -635,7 +637,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TBasicType TUTF8)+-- returnType : Just (TGList (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -658,7 +660,6 @@ jContext' <- textToCString jContext return jContext' result <- gtk_icon_theme_list_icons _obj' maybeContext- checkUnexpectedReturnNULL "gtk_icon_theme_list_icons" result result' <- unpackGList result result'' <- mapM cstringToText result' mapGList freeMem result@@ -673,16 +674,16 @@ -- method IconTheme::load_icon -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False foreign import ccall "gtk_icon_theme_load_icon" gtk_icon_theme_load_icon :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" CString -> -- icon_name : TBasicType TUTF8- Int32 -> -- size : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" Ptr (Ptr GError) -> -- error IO (Ptr GdkPixbuf.Pixbuf)@@ -694,39 +695,40 @@ -> T.Text -- iconName -> Int32 -- size -> [IconLookupFlags] -- flags- -> m GdkPixbuf.Pixbuf -- result+ -> m (Maybe GdkPixbuf.Pixbuf) -- result iconThemeLoadIcon _obj iconName size flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iconName' <- textToCString iconName let flags' = gflagsToWord flags onException (do result <- propagateGError $ gtk_icon_theme_load_icon _obj' iconName' size flags'- checkUnexpectedReturnNULL "gtk_icon_theme_load_icon" result- result' <- (wrapObject GdkPixbuf.Pixbuf) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (wrapObject GdkPixbuf.Pixbuf) result'+ return result'' touchManagedPtr _obj freeMem iconName'- return result'+ return maybeResult ) (do freeMem iconName' ) data IconThemeLoadIconMethodInfo-instance (signature ~ (T.Text -> Int32 -> [IconLookupFlags] -> m GdkPixbuf.Pixbuf), MonadIO m, IconThemeK a) => MethodInfo IconThemeLoadIconMethodInfo a signature where+instance (signature ~ (T.Text -> Int32 -> [IconLookupFlags] -> m (Maybe GdkPixbuf.Pixbuf)), MonadIO m, IconThemeK a) => MethodInfo IconThemeLoadIconMethodInfo a signature where overloadedMethod _ = iconThemeLoadIcon -- method IconTheme::load_icon_for_scale -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False foreign import ccall "gtk_icon_theme_load_icon_for_scale" gtk_icon_theme_load_icon_for_scale :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" CString -> -- icon_name : TBasicType TUTF8- Int32 -> -- size : TBasicType TInt32- Int32 -> -- scale : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt+ Int32 -> -- scale : TBasicType TInt CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" Ptr (Ptr GError) -> -- error IO (Ptr GdkPixbuf.Pixbuf)@@ -739,39 +741,40 @@ -> Int32 -- size -> Int32 -- scale -> [IconLookupFlags] -- flags- -> m GdkPixbuf.Pixbuf -- result+ -> m (Maybe GdkPixbuf.Pixbuf) -- result iconThemeLoadIconForScale _obj iconName size scale flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iconName' <- textToCString iconName let flags' = gflagsToWord flags onException (do result <- propagateGError $ gtk_icon_theme_load_icon_for_scale _obj' iconName' size scale flags'- checkUnexpectedReturnNULL "gtk_icon_theme_load_icon_for_scale" result- result' <- (wrapObject GdkPixbuf.Pixbuf) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (wrapObject GdkPixbuf.Pixbuf) result'+ return result'' touchManagedPtr _obj freeMem iconName'- return result'+ return maybeResult ) (do freeMem iconName' ) data IconThemeLoadIconForScaleMethodInfo-instance (signature ~ (T.Text -> Int32 -> Int32 -> [IconLookupFlags] -> m GdkPixbuf.Pixbuf), MonadIO m, IconThemeK a) => MethodInfo IconThemeLoadIconForScaleMethodInfo a signature where+instance (signature ~ (T.Text -> Int32 -> Int32 -> [IconLookupFlags] -> m (Maybe GdkPixbuf.Pixbuf)), MonadIO m, IconThemeK a) => MethodInfo IconThemeLoadIconForScaleMethodInfo a signature where overloadedMethod _ = iconThemeLoadIconForScale -- method IconTheme::load_surface -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "cairo" "Surface"+-- returnType : Just (TInterface "cairo" "Surface") -- throws : True -- Skip return : False foreign import ccall "gtk_icon_theme_load_surface" gtk_icon_theme_load_surface :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" CString -> -- icon_name : TBasicType TUTF8- Int32 -> -- size : TBasicType TInt32- Int32 -> -- scale : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt+ Int32 -> -- scale : TBasicType TInt Ptr Gdk.Window -> -- for_window : TInterface "Gdk" "Window" CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" Ptr (Ptr GError) -> -- error@@ -786,7 +789,7 @@ -> Int32 -- scale -> Maybe (b) -- forWindow -> [IconLookupFlags] -- flags- -> m Cairo.Surface -- result+ -> m (Maybe Cairo.Surface) -- result iconThemeLoadSurface _obj iconName size scale forWindow flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iconName' <- textToCString iconName@@ -798,32 +801,33 @@ let flags' = gflagsToWord flags onException (do result <- propagateGError $ gtk_icon_theme_load_surface _obj' iconName' size scale maybeForWindow flags'- checkUnexpectedReturnNULL "gtk_icon_theme_load_surface" result- result' <- (wrapBoxed Cairo.Surface) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (wrapBoxed Cairo.Surface) result'+ return result'' touchManagedPtr _obj whenJust forWindow touchManagedPtr freeMem iconName'- return result'+ return maybeResult ) (do freeMem iconName' ) data IconThemeLoadSurfaceMethodInfo-instance (signature ~ (T.Text -> Int32 -> Int32 -> Maybe (b) -> [IconLookupFlags] -> m Cairo.Surface), MonadIO m, IconThemeK a, Gdk.WindowK b) => MethodInfo IconThemeLoadSurfaceMethodInfo a signature where+instance (signature ~ (T.Text -> Int32 -> Int32 -> Maybe (b) -> [IconLookupFlags] -> m (Maybe Cairo.Surface)), MonadIO m, IconThemeK a, Gdk.WindowK b) => MethodInfo IconThemeLoadSurfaceMethodInfo a signature where overloadedMethod _ = iconThemeLoadSurface -- method IconTheme::lookup_by_gicon -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "IconInfo"+-- returnType : Just (TInterface "Gtk" "IconInfo") -- throws : False -- Skip return : False foreign import ccall "gtk_icon_theme_lookup_by_gicon" gtk_icon_theme_lookup_by_gicon :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon"- Int32 -> -- size : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" IO (Ptr IconInfo) @@ -834,35 +838,36 @@ -> b -- icon -> Int32 -- size -> [IconLookupFlags] -- flags- -> m IconInfo -- result+ -> m (Maybe IconInfo) -- result iconThemeLookupByGicon _obj icon size flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let icon' = unsafeManagedPtrCastPtr icon let flags' = gflagsToWord flags result <- gtk_icon_theme_lookup_by_gicon _obj' icon' size flags'- checkUnexpectedReturnNULL "gtk_icon_theme_lookup_by_gicon" result- result' <- (wrapObject IconInfo) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (wrapObject IconInfo) result'+ return result'' touchManagedPtr _obj touchManagedPtr icon- return result'+ return maybeResult data IconThemeLookupByGiconMethodInfo-instance (signature ~ (b -> Int32 -> [IconLookupFlags] -> m IconInfo), MonadIO m, IconThemeK a, Gio.IconK b) => MethodInfo IconThemeLookupByGiconMethodInfo a signature where+instance (signature ~ (b -> Int32 -> [IconLookupFlags] -> m (Maybe IconInfo)), MonadIO m, IconThemeK a, Gio.IconK b) => MethodInfo IconThemeLookupByGiconMethodInfo a signature where overloadedMethod _ = iconThemeLookupByGicon -- method IconTheme::lookup_by_gicon_for_scale -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "IconInfo"+-- returnType : Just (TInterface "Gtk" "IconInfo") -- throws : False -- Skip return : False foreign import ccall "gtk_icon_theme_lookup_by_gicon_for_scale" gtk_icon_theme_lookup_by_gicon_for_scale :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon"- Int32 -> -- size : TBasicType TInt32- Int32 -> -- scale : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt+ Int32 -> -- scale : TBasicType TInt CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" IO (Ptr IconInfo) @@ -874,34 +879,35 @@ -> Int32 -- size -> Int32 -- scale -> [IconLookupFlags] -- flags- -> m IconInfo -- result+ -> m (Maybe IconInfo) -- result iconThemeLookupByGiconForScale _obj icon size scale flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let icon' = unsafeManagedPtrCastPtr icon let flags' = gflagsToWord flags result <- gtk_icon_theme_lookup_by_gicon_for_scale _obj' icon' size scale flags'- checkUnexpectedReturnNULL "gtk_icon_theme_lookup_by_gicon_for_scale" result- result' <- (wrapObject IconInfo) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (wrapObject IconInfo) result'+ return result'' touchManagedPtr _obj touchManagedPtr icon- return result'+ return maybeResult data IconThemeLookupByGiconForScaleMethodInfo-instance (signature ~ (b -> Int32 -> Int32 -> [IconLookupFlags] -> m IconInfo), MonadIO m, IconThemeK a, Gio.IconK b) => MethodInfo IconThemeLookupByGiconForScaleMethodInfo a signature where+instance (signature ~ (b -> Int32 -> Int32 -> [IconLookupFlags] -> m (Maybe IconInfo)), MonadIO m, IconThemeK a, Gio.IconK b) => MethodInfo IconThemeLookupByGiconForScaleMethodInfo a signature where overloadedMethod _ = iconThemeLookupByGiconForScale -- method IconTheme::lookup_icon -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "IconInfo"+-- returnType : Just (TInterface "Gtk" "IconInfo") -- throws : False -- Skip return : False foreign import ccall "gtk_icon_theme_lookup_icon" gtk_icon_theme_lookup_icon :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" CString -> -- icon_name : TBasicType TUTF8- Int32 -> -- size : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" IO (Ptr IconInfo) @@ -912,35 +918,36 @@ -> T.Text -- iconName -> Int32 -- size -> [IconLookupFlags] -- flags- -> m IconInfo -- result+ -> m (Maybe IconInfo) -- result iconThemeLookupIcon _obj iconName size flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iconName' <- textToCString iconName let flags' = gflagsToWord flags result <- gtk_icon_theme_lookup_icon _obj' iconName' size flags'- checkUnexpectedReturnNULL "gtk_icon_theme_lookup_icon" result- result' <- (wrapObject IconInfo) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (wrapObject IconInfo) result'+ return result'' touchManagedPtr _obj freeMem iconName'- return result'+ return maybeResult data IconThemeLookupIconMethodInfo-instance (signature ~ (T.Text -> Int32 -> [IconLookupFlags] -> m IconInfo), MonadIO m, IconThemeK a) => MethodInfo IconThemeLookupIconMethodInfo a signature where+instance (signature ~ (T.Text -> Int32 -> [IconLookupFlags] -> m (Maybe IconInfo)), MonadIO m, IconThemeK a) => MethodInfo IconThemeLookupIconMethodInfo a signature where overloadedMethod _ = iconThemeLookupIcon -- method IconTheme::lookup_icon_for_scale -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "IconInfo"+-- returnType : Just (TInterface "Gtk" "IconInfo") -- throws : False -- Skip return : False foreign import ccall "gtk_icon_theme_lookup_icon_for_scale" gtk_icon_theme_lookup_icon_for_scale :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" CString -> -- icon_name : TBasicType TUTF8- Int32 -> -- size : TBasicType TInt32- Int32 -> -- scale : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt+ Int32 -> -- scale : TBasicType TInt CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" IO (Ptr IconInfo) @@ -952,27 +959,28 @@ -> Int32 -- size -> Int32 -- scale -> [IconLookupFlags] -- flags- -> m IconInfo -- result+ -> m (Maybe IconInfo) -- result iconThemeLookupIconForScale _obj iconName size scale flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iconName' <- textToCString iconName let flags' = gflagsToWord flags result <- gtk_icon_theme_lookup_icon_for_scale _obj' iconName' size scale flags'- checkUnexpectedReturnNULL "gtk_icon_theme_lookup_icon_for_scale" result- result' <- (wrapObject IconInfo) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (wrapObject IconInfo) result'+ return result'' touchManagedPtr _obj freeMem iconName'- return result'+ return maybeResult data IconThemeLookupIconForScaleMethodInfo-instance (signature ~ (T.Text -> Int32 -> Int32 -> [IconLookupFlags] -> m IconInfo), MonadIO m, IconThemeK a) => MethodInfo IconThemeLookupIconForScaleMethodInfo a signature where+instance (signature ~ (T.Text -> Int32 -> Int32 -> [IconLookupFlags] -> m (Maybe IconInfo)), MonadIO m, IconThemeK a) => MethodInfo IconThemeLookupIconForScaleMethodInfo a signature where overloadedMethod _ = iconThemeLookupIconForScale -- method IconTheme::prepend_search_path -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1003,7 +1011,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1031,7 +1039,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "theme_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1066,7 +1074,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1095,16 +1103,16 @@ -- method IconTheme::set_search_path -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_elements", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_elements", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TVoid+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_elements", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_elements", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_theme_set_search_path" gtk_icon_theme_set_search_path :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" Ptr CString -> -- path : TCArray False (-1) 2 (TBasicType TFileName)- Int32 -> -- n_elements : TBasicType TInt32+ Int32 -> -- n_elements : TBasicType TInt IO () @@ -1129,15 +1137,15 @@ -- method IconTheme::add_builtin_icon -- method type : MemberFunction--- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_theme_add_builtin_icon" gtk_icon_theme_add_builtin_icon :: CString -> -- icon_name : TBasicType TUTF8- Int32 -> -- size : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" IO () @@ -1160,7 +1168,7 @@ -- method type : MemberFunction -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "IconTheme"+-- returnType : Just (TInterface "Gtk" "IconTheme") -- throws : False -- Skip return : False @@ -1181,7 +1189,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "IconTheme"+-- returnType : Just (TInterface "Gtk" "IconTheme") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.IconTheme where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -341,6 +341,7 @@ IconViewActivateOnSingleClickPropertyInfo, constructIconViewActivateOnSingleClick , getIconViewActivateOnSingleClick ,+ iconViewActivateOnSingleClick , setIconViewActivateOnSingleClick , @@ -348,12 +349,14 @@ IconViewCellAreaPropertyInfo , constructIconViewCellArea , getIconViewCellArea ,+ iconViewCellArea , -- ** ColumnSpacing IconViewColumnSpacingPropertyInfo , constructIconViewColumnSpacing , getIconViewColumnSpacing ,+ iconViewColumnSpacing , setIconViewColumnSpacing , @@ -361,6 +364,7 @@ IconViewColumnsPropertyInfo , constructIconViewColumns , getIconViewColumns ,+ iconViewColumns , setIconViewColumns , @@ -368,6 +372,7 @@ IconViewItemOrientationPropertyInfo , constructIconViewItemOrientation , getIconViewItemOrientation ,+ iconViewItemOrientation , setIconViewItemOrientation , @@ -375,6 +380,7 @@ IconViewItemPaddingPropertyInfo , constructIconViewItemPadding , getIconViewItemPadding ,+ iconViewItemPadding , setIconViewItemPadding , @@ -382,6 +388,7 @@ IconViewItemWidthPropertyInfo , constructIconViewItemWidth , getIconViewItemWidth ,+ iconViewItemWidth , setIconViewItemWidth , @@ -389,6 +396,7 @@ IconViewMarginPropertyInfo , constructIconViewMargin , getIconViewMargin ,+ iconViewMargin , setIconViewMargin , @@ -396,13 +404,16 @@ IconViewMarkupColumnPropertyInfo , constructIconViewMarkupColumn , getIconViewMarkupColumn ,+ iconViewMarkupColumn , setIconViewMarkupColumn , -- ** Model IconViewModelPropertyInfo ,+ clearIconViewModel , constructIconViewModel , getIconViewModel ,+ iconViewModel , setIconViewModel , @@ -410,6 +421,7 @@ IconViewPixbufColumnPropertyInfo , constructIconViewPixbufColumn , getIconViewPixbufColumn ,+ iconViewPixbufColumn , setIconViewPixbufColumn , @@ -417,6 +429,7 @@ IconViewReorderablePropertyInfo , constructIconViewReorderable , getIconViewReorderable ,+ iconViewReorderable , setIconViewReorderable , @@ -424,6 +437,7 @@ IconViewRowSpacingPropertyInfo , constructIconViewRowSpacing , getIconViewRowSpacing ,+ iconViewRowSpacing , setIconViewRowSpacing , @@ -431,6 +445,7 @@ IconViewSelectionModePropertyInfo , constructIconViewSelectionMode , getIconViewSelectionMode ,+ iconViewSelectionMode , setIconViewSelectionMode , @@ -438,6 +453,7 @@ IconViewSpacingPropertyInfo , constructIconViewSpacing , getIconViewSpacing ,+ iconViewSpacing , setIconViewSpacing , @@ -445,6 +461,7 @@ IconViewTextColumnPropertyInfo , constructIconViewTextColumn , getIconViewTextColumn ,+ iconViewTextColumn , setIconViewTextColumn , @@ -452,6 +469,7 @@ IconViewTooltipColumnPropertyInfo , constructIconViewTooltipColumn , getIconViewTooltipColumn ,+ iconViewTooltipColumn , setIconViewTooltipColumn , @@ -558,9 +576,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -1316,6 +1334,7 @@ -- VVV Prop "activate-on-single-click" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getIconViewActivateOnSingleClick :: (MonadIO m, IconViewK o) => o -> m Bool getIconViewActivateOnSingleClick obj = liftIO $ getObjectPropertyBool obj "activate-on-single-click"@@ -1336,40 +1355,44 @@ attrGet _ = getIconViewActivateOnSingleClick attrSet _ = setIconViewActivateOnSingleClick attrConstruct _ = constructIconViewActivateOnSingleClick+ attrClear _ = undefined -- VVV Prop "cell-area" -- Type: TInterface "Gtk" "CellArea" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+ -- Nullable: (Nothing,Nothing) -getIconViewCellArea :: (MonadIO m, IconViewK o) => o -> m CellArea+getIconViewCellArea :: (MonadIO m, IconViewK o) => o -> m (Maybe CellArea) getIconViewCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea constructIconViewCellArea :: (CellAreaK a) => a -> IO ([Char], GValue)-constructIconViewCellArea val = constructObjectPropertyObject "cell-area" val+constructIconViewCellArea val = constructObjectPropertyObject "cell-area" (Just val) data IconViewCellAreaPropertyInfo instance AttrInfo IconViewCellAreaPropertyInfo where- type AttrAllowedOps IconViewCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps IconViewCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint IconViewCellAreaPropertyInfo = CellAreaK type AttrBaseTypeConstraint IconViewCellAreaPropertyInfo = IconViewK- type AttrGetType IconViewCellAreaPropertyInfo = CellArea+ type AttrGetType IconViewCellAreaPropertyInfo = (Maybe CellArea) type AttrLabel IconViewCellAreaPropertyInfo = "cell-area" attrGet _ = getIconViewCellArea attrSet _ = undefined attrConstruct _ = constructIconViewCellArea+ attrClear _ = undefined -- VVV Prop "column-spacing"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getIconViewColumnSpacing :: (MonadIO m, IconViewK o) => o -> m Int32-getIconViewColumnSpacing obj = liftIO $ getObjectPropertyCInt obj "column-spacing"+getIconViewColumnSpacing obj = liftIO $ getObjectPropertyInt32 obj "column-spacing" setIconViewColumnSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m ()-setIconViewColumnSpacing obj val = liftIO $ setObjectPropertyCInt obj "column-spacing" val+setIconViewColumnSpacing obj val = liftIO $ setObjectPropertyInt32 obj "column-spacing" val constructIconViewColumnSpacing :: Int32 -> IO ([Char], GValue)-constructIconViewColumnSpacing val = constructObjectPropertyCInt "column-spacing" val+constructIconViewColumnSpacing val = constructObjectPropertyInt32 "column-spacing" val data IconViewColumnSpacingPropertyInfo instance AttrInfo IconViewColumnSpacingPropertyInfo where@@ -1381,19 +1404,21 @@ attrGet _ = getIconViewColumnSpacing attrSet _ = setIconViewColumnSpacing attrConstruct _ = constructIconViewColumnSpacing+ attrClear _ = undefined -- VVV Prop "columns"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getIconViewColumns :: (MonadIO m, IconViewK o) => o -> m Int32-getIconViewColumns obj = liftIO $ getObjectPropertyCInt obj "columns"+getIconViewColumns obj = liftIO $ getObjectPropertyInt32 obj "columns" setIconViewColumns :: (MonadIO m, IconViewK o) => o -> Int32 -> m ()-setIconViewColumns obj val = liftIO $ setObjectPropertyCInt obj "columns" val+setIconViewColumns obj val = liftIO $ setObjectPropertyInt32 obj "columns" val constructIconViewColumns :: Int32 -> IO ([Char], GValue)-constructIconViewColumns val = constructObjectPropertyCInt "columns" val+constructIconViewColumns val = constructObjectPropertyInt32 "columns" val data IconViewColumnsPropertyInfo instance AttrInfo IconViewColumnsPropertyInfo where@@ -1405,10 +1430,12 @@ attrGet _ = getIconViewColumns attrSet _ = setIconViewColumns attrConstruct _ = constructIconViewColumns+ attrClear _ = undefined -- VVV Prop "item-orientation" -- Type: TInterface "Gtk" "Orientation" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getIconViewItemOrientation :: (MonadIO m, IconViewK o) => o -> m Orientation getIconViewItemOrientation obj = liftIO $ getObjectPropertyEnum obj "item-orientation"@@ -1429,19 +1456,21 @@ attrGet _ = getIconViewItemOrientation attrSet _ = setIconViewItemOrientation attrConstruct _ = constructIconViewItemOrientation+ attrClear _ = undefined -- VVV Prop "item-padding"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getIconViewItemPadding :: (MonadIO m, IconViewK o) => o -> m Int32-getIconViewItemPadding obj = liftIO $ getObjectPropertyCInt obj "item-padding"+getIconViewItemPadding obj = liftIO $ getObjectPropertyInt32 obj "item-padding" setIconViewItemPadding :: (MonadIO m, IconViewK o) => o -> Int32 -> m ()-setIconViewItemPadding obj val = liftIO $ setObjectPropertyCInt obj "item-padding" val+setIconViewItemPadding obj val = liftIO $ setObjectPropertyInt32 obj "item-padding" val constructIconViewItemPadding :: Int32 -> IO ([Char], GValue)-constructIconViewItemPadding val = constructObjectPropertyCInt "item-padding" val+constructIconViewItemPadding val = constructObjectPropertyInt32 "item-padding" val data IconViewItemPaddingPropertyInfo instance AttrInfo IconViewItemPaddingPropertyInfo where@@ -1453,19 +1482,21 @@ attrGet _ = getIconViewItemPadding attrSet _ = setIconViewItemPadding attrConstruct _ = constructIconViewItemPadding+ attrClear _ = undefined -- VVV Prop "item-width"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getIconViewItemWidth :: (MonadIO m, IconViewK o) => o -> m Int32-getIconViewItemWidth obj = liftIO $ getObjectPropertyCInt obj "item-width"+getIconViewItemWidth obj = liftIO $ getObjectPropertyInt32 obj "item-width" setIconViewItemWidth :: (MonadIO m, IconViewK o) => o -> Int32 -> m ()-setIconViewItemWidth obj val = liftIO $ setObjectPropertyCInt obj "item-width" val+setIconViewItemWidth obj val = liftIO $ setObjectPropertyInt32 obj "item-width" val constructIconViewItemWidth :: Int32 -> IO ([Char], GValue)-constructIconViewItemWidth val = constructObjectPropertyCInt "item-width" val+constructIconViewItemWidth val = constructObjectPropertyInt32 "item-width" val data IconViewItemWidthPropertyInfo instance AttrInfo IconViewItemWidthPropertyInfo where@@ -1477,19 +1508,21 @@ attrGet _ = getIconViewItemWidth attrSet _ = setIconViewItemWidth attrConstruct _ = constructIconViewItemWidth+ attrClear _ = undefined -- VVV Prop "margin"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getIconViewMargin :: (MonadIO m, IconViewK o) => o -> m Int32-getIconViewMargin obj = liftIO $ getObjectPropertyCInt obj "margin"+getIconViewMargin obj = liftIO $ getObjectPropertyInt32 obj "margin" setIconViewMargin :: (MonadIO m, IconViewK o) => o -> Int32 -> m ()-setIconViewMargin obj val = liftIO $ setObjectPropertyCInt obj "margin" val+setIconViewMargin obj val = liftIO $ setObjectPropertyInt32 obj "margin" val constructIconViewMargin :: Int32 -> IO ([Char], GValue)-constructIconViewMargin val = constructObjectPropertyCInt "margin" val+constructIconViewMargin val = constructObjectPropertyInt32 "margin" val data IconViewMarginPropertyInfo instance AttrInfo IconViewMarginPropertyInfo where@@ -1501,19 +1534,21 @@ attrGet _ = getIconViewMargin attrSet _ = setIconViewMargin attrConstruct _ = constructIconViewMargin+ attrClear _ = undefined -- VVV Prop "markup-column"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getIconViewMarkupColumn :: (MonadIO m, IconViewK o) => o -> m Int32-getIconViewMarkupColumn obj = liftIO $ getObjectPropertyCInt obj "markup-column"+getIconViewMarkupColumn obj = liftIO $ getObjectPropertyInt32 obj "markup-column" setIconViewMarkupColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m ()-setIconViewMarkupColumn obj val = liftIO $ setObjectPropertyCInt obj "markup-column" val+setIconViewMarkupColumn obj val = liftIO $ setObjectPropertyInt32 obj "markup-column" val constructIconViewMarkupColumn :: Int32 -> IO ([Char], GValue)-constructIconViewMarkupColumn val = constructObjectPropertyCInt "markup-column" val+constructIconViewMarkupColumn val = constructObjectPropertyInt32 "markup-column" val data IconViewMarkupColumnPropertyInfo instance AttrInfo IconViewMarkupColumnPropertyInfo where@@ -1525,23 +1560,28 @@ attrGet _ = getIconViewMarkupColumn attrSet _ = setIconViewMarkupColumn attrConstruct _ = constructIconViewMarkupColumn+ attrClear _ = undefined -- VVV Prop "model" -- Type: TInterface "Gtk" "TreeModel" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getIconViewModel :: (MonadIO m, IconViewK o) => o -> m TreeModel-getIconViewModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel+getIconViewModel obj = liftIO $ checkUnexpectedNothing "getIconViewModel" $ getObjectPropertyObject obj "model" TreeModel setIconViewModel :: (MonadIO m, IconViewK o, TreeModelK a) => o -> a -> m ()-setIconViewModel obj val = liftIO $ setObjectPropertyObject obj "model" val+setIconViewModel obj val = liftIO $ setObjectPropertyObject obj "model" (Just val) constructIconViewModel :: (TreeModelK a) => a -> IO ([Char], GValue)-constructIconViewModel val = constructObjectPropertyObject "model" val+constructIconViewModel val = constructObjectPropertyObject "model" (Just val) +clearIconViewModel :: (MonadIO m, IconViewK o) => o -> m ()+clearIconViewModel obj = liftIO $ setObjectPropertyObject obj "model" (Nothing :: Maybe TreeModel)+ data IconViewModelPropertyInfo instance AttrInfo IconViewModelPropertyInfo where- type AttrAllowedOps IconViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps IconViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint IconViewModelPropertyInfo = TreeModelK type AttrBaseTypeConstraint IconViewModelPropertyInfo = IconViewK type AttrGetType IconViewModelPropertyInfo = TreeModel@@ -1549,19 +1589,21 @@ attrGet _ = getIconViewModel attrSet _ = setIconViewModel attrConstruct _ = constructIconViewModel+ attrClear _ = clearIconViewModel -- VVV Prop "pixbuf-column"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getIconViewPixbufColumn :: (MonadIO m, IconViewK o) => o -> m Int32-getIconViewPixbufColumn obj = liftIO $ getObjectPropertyCInt obj "pixbuf-column"+getIconViewPixbufColumn obj = liftIO $ getObjectPropertyInt32 obj "pixbuf-column" setIconViewPixbufColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m ()-setIconViewPixbufColumn obj val = liftIO $ setObjectPropertyCInt obj "pixbuf-column" val+setIconViewPixbufColumn obj val = liftIO $ setObjectPropertyInt32 obj "pixbuf-column" val constructIconViewPixbufColumn :: Int32 -> IO ([Char], GValue)-constructIconViewPixbufColumn val = constructObjectPropertyCInt "pixbuf-column" val+constructIconViewPixbufColumn val = constructObjectPropertyInt32 "pixbuf-column" val data IconViewPixbufColumnPropertyInfo instance AttrInfo IconViewPixbufColumnPropertyInfo where@@ -1573,10 +1615,12 @@ attrGet _ = getIconViewPixbufColumn attrSet _ = setIconViewPixbufColumn attrConstruct _ = constructIconViewPixbufColumn+ attrClear _ = undefined -- VVV Prop "reorderable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getIconViewReorderable :: (MonadIO m, IconViewK o) => o -> m Bool getIconViewReorderable obj = liftIO $ getObjectPropertyBool obj "reorderable"@@ -1597,19 +1641,21 @@ attrGet _ = getIconViewReorderable attrSet _ = setIconViewReorderable attrConstruct _ = constructIconViewReorderable+ attrClear _ = undefined -- VVV Prop "row-spacing"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getIconViewRowSpacing :: (MonadIO m, IconViewK o) => o -> m Int32-getIconViewRowSpacing obj = liftIO $ getObjectPropertyCInt obj "row-spacing"+getIconViewRowSpacing obj = liftIO $ getObjectPropertyInt32 obj "row-spacing" setIconViewRowSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m ()-setIconViewRowSpacing obj val = liftIO $ setObjectPropertyCInt obj "row-spacing" val+setIconViewRowSpacing obj val = liftIO $ setObjectPropertyInt32 obj "row-spacing" val constructIconViewRowSpacing :: Int32 -> IO ([Char], GValue)-constructIconViewRowSpacing val = constructObjectPropertyCInt "row-spacing" val+constructIconViewRowSpacing val = constructObjectPropertyInt32 "row-spacing" val data IconViewRowSpacingPropertyInfo instance AttrInfo IconViewRowSpacingPropertyInfo where@@ -1621,10 +1667,12 @@ attrGet _ = getIconViewRowSpacing attrSet _ = setIconViewRowSpacing attrConstruct _ = constructIconViewRowSpacing+ attrClear _ = undefined -- VVV Prop "selection-mode" -- Type: TInterface "Gtk" "SelectionMode" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getIconViewSelectionMode :: (MonadIO m, IconViewK o) => o -> m SelectionMode getIconViewSelectionMode obj = liftIO $ getObjectPropertyEnum obj "selection-mode"@@ -1645,19 +1693,21 @@ attrGet _ = getIconViewSelectionMode attrSet _ = setIconViewSelectionMode attrConstruct _ = constructIconViewSelectionMode+ attrClear _ = undefined -- VVV Prop "spacing"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getIconViewSpacing :: (MonadIO m, IconViewK o) => o -> m Int32-getIconViewSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing"+getIconViewSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing" setIconViewSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m ()-setIconViewSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val+setIconViewSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val constructIconViewSpacing :: Int32 -> IO ([Char], GValue)-constructIconViewSpacing val = constructObjectPropertyCInt "spacing" val+constructIconViewSpacing val = constructObjectPropertyInt32 "spacing" val data IconViewSpacingPropertyInfo instance AttrInfo IconViewSpacingPropertyInfo where@@ -1669,19 +1719,21 @@ attrGet _ = getIconViewSpacing attrSet _ = setIconViewSpacing attrConstruct _ = constructIconViewSpacing+ attrClear _ = undefined -- VVV Prop "text-column"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getIconViewTextColumn :: (MonadIO m, IconViewK o) => o -> m Int32-getIconViewTextColumn obj = liftIO $ getObjectPropertyCInt obj "text-column"+getIconViewTextColumn obj = liftIO $ getObjectPropertyInt32 obj "text-column" setIconViewTextColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m ()-setIconViewTextColumn obj val = liftIO $ setObjectPropertyCInt obj "text-column" val+setIconViewTextColumn obj val = liftIO $ setObjectPropertyInt32 obj "text-column" val constructIconViewTextColumn :: Int32 -> IO ([Char], GValue)-constructIconViewTextColumn val = constructObjectPropertyCInt "text-column" val+constructIconViewTextColumn val = constructObjectPropertyInt32 "text-column" val data IconViewTextColumnPropertyInfo instance AttrInfo IconViewTextColumnPropertyInfo where@@ -1693,19 +1745,21 @@ attrGet _ = getIconViewTextColumn attrSet _ = setIconViewTextColumn attrConstruct _ = constructIconViewTextColumn+ attrClear _ = undefined -- VVV Prop "tooltip-column"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getIconViewTooltipColumn :: (MonadIO m, IconViewK o) => o -> m Int32-getIconViewTooltipColumn obj = liftIO $ getObjectPropertyCInt obj "tooltip-column"+getIconViewTooltipColumn obj = liftIO $ getObjectPropertyInt32 obj "tooltip-column" setIconViewTooltipColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m ()-setIconViewTooltipColumn obj val = liftIO $ setObjectPropertyCInt obj "tooltip-column" val+setIconViewTooltipColumn obj val = liftIO $ setObjectPropertyInt32 obj "tooltip-column" val constructIconViewTooltipColumn :: Int32 -> IO ([Char], GValue)-constructIconViewTooltipColumn val = constructObjectPropertyCInt "tooltip-column" val+constructIconViewTooltipColumn val = constructObjectPropertyInt32 "tooltip-column" val data IconViewTooltipColumnPropertyInfo instance AttrInfo IconViewTooltipColumnPropertyInfo where@@ -1717,10 +1771,62 @@ attrGet _ = getIconViewTooltipColumn attrSet _ = setIconViewTooltipColumn attrConstruct _ = constructIconViewTooltipColumn+ attrClear _ = undefined type instance AttributeList IconView = IconViewAttributeList type IconViewAttributeList = ('[ '("activateOnSingleClick", IconViewActivateOnSingleClickPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cellArea", IconViewCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpacing", IconViewColumnSpacingPropertyInfo), '("columns", IconViewColumnsPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("itemOrientation", IconViewItemOrientationPropertyInfo), '("itemPadding", IconViewItemPaddingPropertyInfo), '("itemWidth", IconViewItemWidthPropertyInfo), '("margin", IconViewMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("markupColumn", IconViewMarkupColumnPropertyInfo), '("model", IconViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixbufColumn", IconViewPixbufColumnPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("reorderable", IconViewReorderablePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpacing", IconViewRowSpacingPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectionMode", IconViewSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", IconViewSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("textColumn", IconViewTextColumnPropertyInfo), '("tooltipColumn", IconViewTooltipColumnPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +iconViewActivateOnSingleClick :: AttrLabelProxy "activateOnSingleClick"+iconViewActivateOnSingleClick = AttrLabelProxy++iconViewCellArea :: AttrLabelProxy "cellArea"+iconViewCellArea = AttrLabelProxy++iconViewColumnSpacing :: AttrLabelProxy "columnSpacing"+iconViewColumnSpacing = AttrLabelProxy++iconViewColumns :: AttrLabelProxy "columns"+iconViewColumns = AttrLabelProxy++iconViewItemOrientation :: AttrLabelProxy "itemOrientation"+iconViewItemOrientation = AttrLabelProxy++iconViewItemPadding :: AttrLabelProxy "itemPadding"+iconViewItemPadding = AttrLabelProxy++iconViewItemWidth :: AttrLabelProxy "itemWidth"+iconViewItemWidth = AttrLabelProxy++iconViewMargin :: AttrLabelProxy "margin"+iconViewMargin = AttrLabelProxy++iconViewMarkupColumn :: AttrLabelProxy "markupColumn"+iconViewMarkupColumn = AttrLabelProxy++iconViewModel :: AttrLabelProxy "model"+iconViewModel = AttrLabelProxy++iconViewPixbufColumn :: AttrLabelProxy "pixbufColumn"+iconViewPixbufColumn = AttrLabelProxy++iconViewReorderable :: AttrLabelProxy "reorderable"+iconViewReorderable = AttrLabelProxy++iconViewRowSpacing :: AttrLabelProxy "rowSpacing"+iconViewRowSpacing = AttrLabelProxy++iconViewSelectionMode :: AttrLabelProxy "selectionMode"+iconViewSelectionMode = AttrLabelProxy++iconViewSpacing :: AttrLabelProxy "spacing"+iconViewSpacing = AttrLabelProxy++iconViewTextColumn :: AttrLabelProxy "textColumn"+iconViewTextColumn = AttrLabelProxy++iconViewTooltipColumn :: AttrLabelProxy "tooltipColumn"+iconViewTooltipColumn = AttrLabelProxy+ data IconViewActivateCursorItemSignalInfo instance SignalInfo IconViewActivateCursorItemSignalInfo where type HaskellCallbackType IconViewActivateCursorItemSignalInfo = IconViewActivateCursorItemCallback@@ -1768,7 +1874,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "IconView"+-- returnType : Just (TInterface "Gtk" "IconView") -- throws : False -- Skip return : False @@ -1789,7 +1895,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "IconView"+-- returnType : Just (TInterface "Gtk" "IconView") -- throws : False -- Skip return : False @@ -1814,7 +1920,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "IconView"+-- returnType : Just (TInterface "Gtk" "IconView") -- throws : False -- Skip return : False @@ -1837,18 +1943,18 @@ -- method IconView::convert_widget_to_bin_window_coords -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "by", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wy", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "by", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_convert_widget_to_bin_window_coords" gtk_icon_view_convert_widget_to_bin_window_coords :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"- Int32 -> -- wx : TBasicType TInt32- Int32 -> -- wy : TBasicType TInt32- Ptr Int32 -> -- bx : TBasicType TInt32- Ptr Int32 -> -- by : TBasicType TInt32+ Int32 -> -- wx : TBasicType TInt+ Int32 -> -- wy : TBasicType TInt+ Ptr Int32 -> -- bx : TBasicType TInt+ Ptr Int32 -> -- by : TBasicType TInt IO () @@ -1878,7 +1984,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "cairo" "Surface"+-- returnType : Just (TInterface "cairo" "Surface") -- throws : False -- Skip return : False @@ -1909,16 +2015,16 @@ -- method IconView::enable_model_drag_dest -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TVoid+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_enable_model_drag_dest" gtk_icon_view_enable_model_drag_dest :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" Ptr TargetEntry -> -- targets : TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry")- Int32 -> -- n_targets : TBasicType TInt32+ Int32 -> -- n_targets : TBasicType TInt CUInt -> -- actions : TInterface "Gdk" "DragAction" IO () @@ -1947,9 +2053,9 @@ -- method IconView::enable_model_drag_source -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TVoid+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1957,7 +2063,7 @@ Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" CUInt -> -- start_button_mask : TInterface "Gdk" "ModifierType" Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry")- Int32 -> -- n_targets : TBasicType TInt32+ Int32 -> -- n_targets : TBasicType TInt CUInt -> -- actions : TInterface "Gdk" "DragAction" IO () @@ -1990,7 +2096,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2018,7 +2124,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2061,7 +2167,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2088,7 +2194,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2115,7 +2221,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2151,16 +2257,16 @@ -- method IconView::get_dest_item_at_pos -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_get_dest_item_at_pos" gtk_icon_view_get_dest_item_at_pos :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"- Int32 -> -- drag_x : TBasicType TInt32- Int32 -> -- drag_y : TBasicType TInt32+ Int32 -> -- drag_x : TBasicType TInt+ Int32 -> -- drag_y : TBasicType TInt Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" Ptr CUInt -> -- pos : TInterface "Gtk" "IconViewDropPosition" IO CInt@@ -2195,7 +2301,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2230,16 +2336,16 @@ -- method IconView::get_item_at_pos -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_get_item_at_pos" gtk_icon_view_get_item_at_pos :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" Ptr (Ptr CellRenderer) -> -- cell : TInterface "Gtk" "CellRenderer" IO CInt@@ -2274,7 +2380,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2305,7 +2411,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Orientation"+-- returnType : Just (TInterface "Gtk" "Orientation") -- throws : False -- Skip return : False @@ -2333,7 +2439,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2360,7 +2466,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2391,7 +2497,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2418,7 +2524,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2445,7 +2551,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2472,7 +2578,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "TreeModel"+-- returnType : Just (TInterface "Gtk" "TreeModel") -- throws : False -- Skip return : False @@ -2499,16 +2605,16 @@ -- method IconView::get_path_at_pos -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "TreePath"+-- returnType : Just (TInterface "Gtk" "TreePath") -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_get_path_at_pos" gtk_icon_view_get_path_at_pos :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt IO (Ptr TreePath) @@ -2534,7 +2640,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2561,7 +2667,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2589,7 +2695,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2616,7 +2722,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Gtk" "TreePath")+-- returnType : Just (TGList (TInterface "Gtk" "TreePath")) -- throws : False -- Skip return : False @@ -2632,7 +2738,6 @@ iconViewGetSelectedItems _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_icon_view_get_selected_items _obj'- checkUnexpectedReturnNULL "gtk_icon_view_get_selected_items" result result' <- unpackGList result result'' <- mapM (wrapBoxed TreePath) result' g_list_free result@@ -2647,7 +2752,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "SelectionMode"+-- returnType : Just (TInterface "Gtk" "SelectionMode") -- throws : False -- Skip return : False @@ -2675,7 +2780,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2702,7 +2807,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2729,7 +2834,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2754,16 +2859,16 @@ -- method IconView::get_tooltip_context -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_get_tooltip_context" gtk_icon_view_get_tooltip_context :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"- Ptr Int32 -> -- x : TBasicType TInt32- Ptr Int32 -> -- y : TBasicType TInt32+ Ptr Int32 -> -- x : TBasicType TInt+ Ptr Int32 -> -- y : TBasicType TInt CInt -> -- keyboard_tip : TBasicType TBoolean Ptr (Ptr TreeModel) -> -- model : TInterface "Gtk" "TreeModel" Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath"@@ -2812,7 +2917,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2850,7 +2955,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2881,7 +2986,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2913,7 +3018,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "col_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2953,7 +3058,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2980,7 +3085,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3009,16 +3114,16 @@ -- method IconView::selected_foreach -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "IconViewForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "IconViewForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_selected_foreach" gtk_icon_view_selected_foreach :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" FunPtr IconViewForeachFuncC -> -- func : TInterface "Gtk" "IconViewForeachFunc"- Ptr () -> -- data : TBasicType TVoid+ Ptr () -> -- data : TBasicType TPtr IO () @@ -3044,7 +3149,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3072,15 +3177,15 @@ -- method IconView::set_column_spacing -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column_spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_column_spacing" gtk_icon_view_set_column_spacing :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"- Int32 -> -- column_spacing : TBasicType TInt32+ Int32 -> -- column_spacing : TBasicType TInt IO () @@ -3101,15 +3206,15 @@ -- method IconView::set_columns -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_columns" gtk_icon_view_set_columns :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"- Int32 -> -- columns : TBasicType TInt32+ Int32 -> -- columns : TBasicType TInt IO () @@ -3132,7 +3237,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3174,7 +3279,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3212,7 +3317,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3240,15 +3345,15 @@ -- method IconView::set_item_padding -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_padding", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_padding", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_item_padding" gtk_icon_view_set_item_padding :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"- Int32 -> -- item_padding : TBasicType TInt32+ Int32 -> -- item_padding : TBasicType TInt IO () @@ -3269,15 +3374,15 @@ -- method IconView::set_item_width -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_item_width" gtk_icon_view_set_item_width :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"- Int32 -> -- item_width : TBasicType TInt32+ Int32 -> -- item_width : TBasicType TInt IO () @@ -3298,15 +3403,15 @@ -- method IconView::set_margin -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_margin" gtk_icon_view_set_margin :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"- Int32 -> -- margin : TBasicType TInt32+ Int32 -> -- margin : TBasicType TInt IO () @@ -3327,15 +3432,15 @@ -- method IconView::set_markup_column -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_markup_column" gtk_icon_view_set_markup_column :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"- Int32 -> -- column : TBasicType TInt32+ Int32 -> -- column : TBasicType TInt IO () @@ -3358,7 +3463,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3391,15 +3496,15 @@ -- method IconView::set_pixbuf_column -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_pixbuf_column" gtk_icon_view_set_pixbuf_column :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"- Int32 -> -- column : TBasicType TInt32+ Int32 -> -- column : TBasicType TInt IO () @@ -3422,7 +3527,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3450,15 +3555,15 @@ -- method IconView::set_row_spacing -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row_spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_row_spacing" gtk_icon_view_set_row_spacing :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"- Int32 -> -- row_spacing : TBasicType TInt32+ Int32 -> -- row_spacing : TBasicType TInt IO () @@ -3481,7 +3586,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3509,15 +3614,15 @@ -- method IconView::set_spacing -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_spacing" gtk_icon_view_set_spacing :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"- Int32 -> -- spacing : TBasicType TInt32+ Int32 -> -- spacing : TBasicType TInt IO () @@ -3538,15 +3643,15 @@ -- method IconView::set_text_column -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_text_column" gtk_icon_view_set_text_column :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"- Int32 -> -- column : TBasicType TInt32+ Int32 -> -- column : TBasicType TInt IO () @@ -3569,7 +3674,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3610,15 +3715,15 @@ -- method IconView::set_tooltip_column -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_tooltip_column" gtk_icon_view_set_tooltip_column :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"- Int32 -> -- column : TBasicType TInt32+ Int32 -> -- column : TBasicType TInt IO () @@ -3641,7 +3746,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3676,7 +3781,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3703,7 +3808,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3734,7 +3839,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3761,7 +3866,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.IconView where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.IconViewAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -157,29 +157,37 @@ -- * Properties -- ** File ImageFilePropertyInfo ,+ clearImageFile , constructImageFile , getImageFile ,+ imageFile , setImageFile , -- ** Gicon ImageGiconPropertyInfo ,+ clearImageGicon , constructImageGicon , getImageGicon ,+ imageGicon , setImageGicon , -- ** IconName ImageIconNamePropertyInfo ,+ clearImageIconName , constructImageIconName , getImageIconName ,+ imageIconName , setImageIconName , -- ** IconSet ImageIconSetPropertyInfo ,+ clearImageIconSet , constructImageIconSet , getImageIconSet ,+ imageIconSet , setImageIconSet , @@ -187,20 +195,25 @@ ImageIconSizePropertyInfo , constructImageIconSize , getImageIconSize ,+ imageIconSize , setImageIconSize , -- ** Pixbuf ImagePixbufPropertyInfo ,+ clearImagePixbuf , constructImagePixbuf , getImagePixbuf ,+ imagePixbuf , setImagePixbuf , -- ** PixbufAnimation ImagePixbufAnimationPropertyInfo ,+ clearImagePixbufAnimation , constructImagePixbufAnimation , getImagePixbufAnimation ,+ imagePixbufAnimation , setImagePixbufAnimation , @@ -208,32 +221,40 @@ ImagePixelSizePropertyInfo , constructImagePixelSize , getImagePixelSize ,+ imagePixelSize , setImagePixelSize , -- ** Resource ImageResourcePropertyInfo ,+ clearImageResource , constructImageResource , getImageResource ,+ imageResource , setImageResource , -- ** Stock ImageStockPropertyInfo ,+ clearImageStock , constructImageStock , getImageStock ,+ imageStock , setImageStock , -- ** StorageType ImageStorageTypePropertyInfo , getImageStorageType ,+ imageStorageType , -- ** Surface ImageSurfacePropertyInfo ,+ clearImageSurface , constructImageSurface , getImageSurface ,+ imageSurface , setImageSurface , @@ -241,6 +262,7 @@ ImageUseFallbackPropertyInfo , constructImageUseFallback , getImageUseFallback ,+ imageUseFallback , setImageUseFallback , @@ -248,9 +270,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -606,111 +628,132 @@ -- VVV Prop "file" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getImageFile :: (MonadIO m, ImageK o) => o -> m T.Text+getImageFile :: (MonadIO m, ImageK o) => o -> m (Maybe T.Text) getImageFile obj = liftIO $ getObjectPropertyString obj "file" setImageFile :: (MonadIO m, ImageK o) => o -> T.Text -> m ()-setImageFile obj val = liftIO $ setObjectPropertyString obj "file" val+setImageFile obj val = liftIO $ setObjectPropertyString obj "file" (Just val) constructImageFile :: T.Text -> IO ([Char], GValue)-constructImageFile val = constructObjectPropertyString "file" val+constructImageFile val = constructObjectPropertyString "file" (Just val) +clearImageFile :: (MonadIO m, ImageK o) => o -> m ()+clearImageFile obj = liftIO $ setObjectPropertyString obj "file" (Nothing :: Maybe T.Text)+ data ImageFilePropertyInfo instance AttrInfo ImageFilePropertyInfo where- type AttrAllowedOps ImageFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ImageFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageFilePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ImageFilePropertyInfo = ImageK- type AttrGetType ImageFilePropertyInfo = T.Text+ type AttrGetType ImageFilePropertyInfo = (Maybe T.Text) type AttrLabel ImageFilePropertyInfo = "file" attrGet _ = getImageFile attrSet _ = setImageFile attrConstruct _ = constructImageFile+ attrClear _ = clearImageFile -- VVV Prop "gicon" -- Type: TInterface "Gio" "Icon" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getImageGicon :: (MonadIO m, ImageK o) => o -> m Gio.Icon+getImageGicon :: (MonadIO m, ImageK o) => o -> m (Maybe Gio.Icon) getImageGicon obj = liftIO $ getObjectPropertyObject obj "gicon" Gio.Icon setImageGicon :: (MonadIO m, ImageK o, Gio.IconK a) => o -> a -> m ()-setImageGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" val+setImageGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" (Just val) constructImageGicon :: (Gio.IconK a) => a -> IO ([Char], GValue)-constructImageGicon val = constructObjectPropertyObject "gicon" val+constructImageGicon val = constructObjectPropertyObject "gicon" (Just val) +clearImageGicon :: (MonadIO m, ImageK o) => o -> m ()+clearImageGicon obj = liftIO $ setObjectPropertyObject obj "gicon" (Nothing :: Maybe Gio.Icon)+ data ImageGiconPropertyInfo instance AttrInfo ImageGiconPropertyInfo where- type AttrAllowedOps ImageGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ImageGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageGiconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint ImageGiconPropertyInfo = ImageK- type AttrGetType ImageGiconPropertyInfo = Gio.Icon+ type AttrGetType ImageGiconPropertyInfo = (Maybe Gio.Icon) type AttrLabel ImageGiconPropertyInfo = "gicon" attrGet _ = getImageGicon attrSet _ = setImageGicon attrConstruct _ = constructImageGicon+ attrClear _ = clearImageGicon -- VVV Prop "icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getImageIconName :: (MonadIO m, ImageK o) => o -> m T.Text+getImageIconName :: (MonadIO m, ImageK o) => o -> m (Maybe T.Text) getImageIconName obj = liftIO $ getObjectPropertyString obj "icon-name" setImageIconName :: (MonadIO m, ImageK o) => o -> T.Text -> m ()-setImageIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val+setImageIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" (Just val) constructImageIconName :: T.Text -> IO ([Char], GValue)-constructImageIconName val = constructObjectPropertyString "icon-name" val+constructImageIconName val = constructObjectPropertyString "icon-name" (Just val) +clearImageIconName :: (MonadIO m, ImageK o) => o -> m ()+clearImageIconName obj = liftIO $ setObjectPropertyString obj "icon-name" (Nothing :: Maybe T.Text)+ data ImageIconNamePropertyInfo instance AttrInfo ImageIconNamePropertyInfo where- type AttrAllowedOps ImageIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ImageIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ImageIconNamePropertyInfo = ImageK- type AttrGetType ImageIconNamePropertyInfo = T.Text+ type AttrGetType ImageIconNamePropertyInfo = (Maybe T.Text) type AttrLabel ImageIconNamePropertyInfo = "icon-name" attrGet _ = getImageIconName attrSet _ = setImageIconName attrConstruct _ = constructImageIconName+ attrClear _ = clearImageIconName -- VVV Prop "icon-set" -- Type: TInterface "Gtk" "IconSet" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getImageIconSet :: (MonadIO m, ImageK o) => o -> m IconSet+getImageIconSet :: (MonadIO m, ImageK o) => o -> m (Maybe IconSet) getImageIconSet obj = liftIO $ getObjectPropertyBoxed obj "icon-set" IconSet setImageIconSet :: (MonadIO m, ImageK o) => o -> IconSet -> m ()-setImageIconSet obj val = liftIO $ setObjectPropertyBoxed obj "icon-set" val+setImageIconSet obj val = liftIO $ setObjectPropertyBoxed obj "icon-set" (Just val) constructImageIconSet :: IconSet -> IO ([Char], GValue)-constructImageIconSet val = constructObjectPropertyBoxed "icon-set" val+constructImageIconSet val = constructObjectPropertyBoxed "icon-set" (Just val) +clearImageIconSet :: (MonadIO m, ImageK o) => o -> m ()+clearImageIconSet obj = liftIO $ setObjectPropertyBoxed obj "icon-set" (Nothing :: Maybe IconSet)+ data ImageIconSetPropertyInfo instance AttrInfo ImageIconSetPropertyInfo where- type AttrAllowedOps ImageIconSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ImageIconSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageIconSetPropertyInfo = (~) IconSet type AttrBaseTypeConstraint ImageIconSetPropertyInfo = ImageK- type AttrGetType ImageIconSetPropertyInfo = IconSet+ type AttrGetType ImageIconSetPropertyInfo = (Maybe IconSet) type AttrLabel ImageIconSetPropertyInfo = "icon-set" attrGet _ = getImageIconSet attrSet _ = setImageIconSet attrConstruct _ = constructImageIconSet+ attrClear _ = clearImageIconSet -- VVV Prop "icon-size"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getImageIconSize :: (MonadIO m, ImageK o) => o -> m Int32-getImageIconSize obj = liftIO $ getObjectPropertyCInt obj "icon-size"+getImageIconSize obj = liftIO $ getObjectPropertyInt32 obj "icon-size" setImageIconSize :: (MonadIO m, ImageK o) => o -> Int32 -> m ()-setImageIconSize obj val = liftIO $ setObjectPropertyCInt obj "icon-size" val+setImageIconSize obj val = liftIO $ setObjectPropertyInt32 obj "icon-size" val constructImageIconSize :: Int32 -> IO ([Char], GValue)-constructImageIconSize val = constructObjectPropertyCInt "icon-size" val+constructImageIconSize val = constructObjectPropertyInt32 "icon-size" val data ImageIconSizePropertyInfo instance AttrInfo ImageIconSizePropertyInfo where@@ -722,23 +765,28 @@ attrGet _ = getImageIconSize attrSet _ = setImageIconSize attrConstruct _ = constructImageIconSize+ attrClear _ = undefined -- VVV Prop "pixbuf" -- Type: TInterface "GdkPixbuf" "Pixbuf" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Nothing) getImagePixbuf :: (MonadIO m, ImageK o) => o -> m GdkPixbuf.Pixbuf-getImagePixbuf obj = liftIO $ getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf+getImagePixbuf obj = liftIO $ checkUnexpectedNothing "getImagePixbuf" $ getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf setImagePixbuf :: (MonadIO m, ImageK o, GdkPixbuf.PixbufK a) => o -> a -> m ()-setImagePixbuf obj val = liftIO $ setObjectPropertyObject obj "pixbuf" val+setImagePixbuf obj val = liftIO $ setObjectPropertyObject obj "pixbuf" (Just val) constructImagePixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue)-constructImagePixbuf val = constructObjectPropertyObject "pixbuf" val+constructImagePixbuf val = constructObjectPropertyObject "pixbuf" (Just val) +clearImagePixbuf :: (MonadIO m, ImageK o) => o -> m ()+clearImagePixbuf obj = liftIO $ setObjectPropertyObject obj "pixbuf" (Nothing :: Maybe GdkPixbuf.Pixbuf)+ data ImagePixbufPropertyInfo instance AttrInfo ImagePixbufPropertyInfo where- type AttrAllowedOps ImagePixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ImagePixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImagePixbufPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint ImagePixbufPropertyInfo = ImageK type AttrGetType ImagePixbufPropertyInfo = GdkPixbuf.Pixbuf@@ -746,43 +794,50 @@ attrGet _ = getImagePixbuf attrSet _ = setImagePixbuf attrConstruct _ = constructImagePixbuf+ attrClear _ = clearImagePixbuf -- VVV Prop "pixbuf-animation" -- Type: TInterface "GdkPixbuf" "PixbufAnimation" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getImagePixbufAnimation :: (MonadIO m, ImageK o) => o -> m GdkPixbuf.PixbufAnimation+getImagePixbufAnimation :: (MonadIO m, ImageK o) => o -> m (Maybe GdkPixbuf.PixbufAnimation) getImagePixbufAnimation obj = liftIO $ getObjectPropertyObject obj "pixbuf-animation" GdkPixbuf.PixbufAnimation setImagePixbufAnimation :: (MonadIO m, ImageK o, GdkPixbuf.PixbufAnimationK a) => o -> a -> m ()-setImagePixbufAnimation obj val = liftIO $ setObjectPropertyObject obj "pixbuf-animation" val+setImagePixbufAnimation obj val = liftIO $ setObjectPropertyObject obj "pixbuf-animation" (Just val) constructImagePixbufAnimation :: (GdkPixbuf.PixbufAnimationK a) => a -> IO ([Char], GValue)-constructImagePixbufAnimation val = constructObjectPropertyObject "pixbuf-animation" val+constructImagePixbufAnimation val = constructObjectPropertyObject "pixbuf-animation" (Just val) +clearImagePixbufAnimation :: (MonadIO m, ImageK o) => o -> m ()+clearImagePixbufAnimation obj = liftIO $ setObjectPropertyObject obj "pixbuf-animation" (Nothing :: Maybe GdkPixbuf.PixbufAnimation)+ data ImagePixbufAnimationPropertyInfo instance AttrInfo ImagePixbufAnimationPropertyInfo where- type AttrAllowedOps ImagePixbufAnimationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ImagePixbufAnimationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImagePixbufAnimationPropertyInfo = GdkPixbuf.PixbufAnimationK type AttrBaseTypeConstraint ImagePixbufAnimationPropertyInfo = ImageK- type AttrGetType ImagePixbufAnimationPropertyInfo = GdkPixbuf.PixbufAnimation+ type AttrGetType ImagePixbufAnimationPropertyInfo = (Maybe GdkPixbuf.PixbufAnimation) type AttrLabel ImagePixbufAnimationPropertyInfo = "pixbuf-animation" attrGet _ = getImagePixbufAnimation attrSet _ = setImagePixbufAnimation attrConstruct _ = constructImagePixbufAnimation+ attrClear _ = clearImagePixbufAnimation -- VVV Prop "pixel-size"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getImagePixelSize :: (MonadIO m, ImageK o) => o -> m Int32-getImagePixelSize obj = liftIO $ getObjectPropertyCInt obj "pixel-size"+getImagePixelSize obj = liftIO $ getObjectPropertyInt32 obj "pixel-size" setImagePixelSize :: (MonadIO m, ImageK o) => o -> Int32 -> m ()-setImagePixelSize obj val = liftIO $ setObjectPropertyCInt obj "pixel-size" val+setImagePixelSize obj val = liftIO $ setObjectPropertyInt32 obj "pixel-size" val constructImagePixelSize :: Int32 -> IO ([Char], GValue)-constructImagePixelSize val = constructObjectPropertyCInt "pixel-size" val+constructImagePixelSize val = constructObjectPropertyInt32 "pixel-size" val data ImagePixelSizePropertyInfo instance AttrInfo ImagePixelSizePropertyInfo where@@ -794,58 +849,70 @@ attrGet _ = getImagePixelSize attrSet _ = setImagePixelSize attrConstruct _ = constructImagePixelSize+ attrClear _ = undefined -- VVV Prop "resource" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getImageResource :: (MonadIO m, ImageK o) => o -> m T.Text+getImageResource :: (MonadIO m, ImageK o) => o -> m (Maybe T.Text) getImageResource obj = liftIO $ getObjectPropertyString obj "resource" setImageResource :: (MonadIO m, ImageK o) => o -> T.Text -> m ()-setImageResource obj val = liftIO $ setObjectPropertyString obj "resource" val+setImageResource obj val = liftIO $ setObjectPropertyString obj "resource" (Just val) constructImageResource :: T.Text -> IO ([Char], GValue)-constructImageResource val = constructObjectPropertyString "resource" val+constructImageResource val = constructObjectPropertyString "resource" (Just val) +clearImageResource :: (MonadIO m, ImageK o) => o -> m ()+clearImageResource obj = liftIO $ setObjectPropertyString obj "resource" (Nothing :: Maybe T.Text)+ data ImageResourcePropertyInfo instance AttrInfo ImageResourcePropertyInfo where- type AttrAllowedOps ImageResourcePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ImageResourcePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageResourcePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ImageResourcePropertyInfo = ImageK- type AttrGetType ImageResourcePropertyInfo = T.Text+ type AttrGetType ImageResourcePropertyInfo = (Maybe T.Text) type AttrLabel ImageResourcePropertyInfo = "resource" attrGet _ = getImageResource attrSet _ = setImageResource attrConstruct _ = constructImageResource+ attrClear _ = clearImageResource -- VVV Prop "stock" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getImageStock :: (MonadIO m, ImageK o) => o -> m T.Text+getImageStock :: (MonadIO m, ImageK o) => o -> m (Maybe T.Text) getImageStock obj = liftIO $ getObjectPropertyString obj "stock" setImageStock :: (MonadIO m, ImageK o) => o -> T.Text -> m ()-setImageStock obj val = liftIO $ setObjectPropertyString obj "stock" val+setImageStock obj val = liftIO $ setObjectPropertyString obj "stock" (Just val) constructImageStock :: T.Text -> IO ([Char], GValue)-constructImageStock val = constructObjectPropertyString "stock" val+constructImageStock val = constructObjectPropertyString "stock" (Just val) +clearImageStock :: (MonadIO m, ImageK o) => o -> m ()+clearImageStock obj = liftIO $ setObjectPropertyString obj "stock" (Nothing :: Maybe T.Text)+ data ImageStockPropertyInfo instance AttrInfo ImageStockPropertyInfo where- type AttrAllowedOps ImageStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ImageStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageStockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ImageStockPropertyInfo = ImageK- type AttrGetType ImageStockPropertyInfo = T.Text+ type AttrGetType ImageStockPropertyInfo = (Maybe T.Text) type AttrLabel ImageStockPropertyInfo = "stock" attrGet _ = getImageStock attrSet _ = setImageStock attrConstruct _ = constructImageStock+ attrClear _ = clearImageStock -- VVV Prop "storage-type" -- Type: TInterface "Gtk" "ImageType" -- Flags: [PropertyReadable]+ -- Nullable: (Just False,Nothing) getImageStorageType :: (MonadIO m, ImageK o) => o -> m ImageType getImageStorageType obj = liftIO $ getObjectPropertyEnum obj "storage-type"@@ -860,34 +927,41 @@ attrGet _ = getImageStorageType attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "surface" -- Type: TInterface "cairo" "Surface" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getImageSurface :: (MonadIO m, ImageK o) => o -> m Cairo.Surface+getImageSurface :: (MonadIO m, ImageK o) => o -> m (Maybe Cairo.Surface) getImageSurface obj = liftIO $ getObjectPropertyBoxed obj "surface" Cairo.Surface setImageSurface :: (MonadIO m, ImageK o) => o -> Cairo.Surface -> m ()-setImageSurface obj val = liftIO $ setObjectPropertyBoxed obj "surface" val+setImageSurface obj val = liftIO $ setObjectPropertyBoxed obj "surface" (Just val) constructImageSurface :: Cairo.Surface -> IO ([Char], GValue)-constructImageSurface val = constructObjectPropertyBoxed "surface" val+constructImageSurface val = constructObjectPropertyBoxed "surface" (Just val) +clearImageSurface :: (MonadIO m, ImageK o) => o -> m ()+clearImageSurface obj = liftIO $ setObjectPropertyBoxed obj "surface" (Nothing :: Maybe Cairo.Surface)+ data ImageSurfacePropertyInfo instance AttrInfo ImageSurfacePropertyInfo where- type AttrAllowedOps ImageSurfacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ImageSurfacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageSurfacePropertyInfo = (~) Cairo.Surface type AttrBaseTypeConstraint ImageSurfacePropertyInfo = ImageK- type AttrGetType ImageSurfacePropertyInfo = Cairo.Surface+ type AttrGetType ImageSurfacePropertyInfo = (Maybe Cairo.Surface) type AttrLabel ImageSurfacePropertyInfo = "surface" attrGet _ = getImageSurface attrSet _ = setImageSurface attrConstruct _ = constructImageSurface+ attrClear _ = clearImageSurface -- VVV Prop "use-fallback" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getImageUseFallback :: (MonadIO m, ImageK o) => o -> m Bool getImageUseFallback obj = liftIO $ getObjectPropertyBool obj "use-fallback"@@ -908,10 +982,50 @@ attrGet _ = getImageUseFallback attrSet _ = setImageUseFallback attrConstruct _ = constructImageUseFallback+ attrClear _ = undefined type instance AttributeList Image = ImageAttributeList type ImageAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("file", ImageFilePropertyInfo), '("gicon", ImageGiconPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconName", ImageIconNamePropertyInfo), '("iconSet", ImageIconSetPropertyInfo), '("iconSize", ImageIconSizePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixbuf", ImagePixbufPropertyInfo), '("pixbufAnimation", ImagePixbufAnimationPropertyInfo), '("pixelSize", ImagePixelSizePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resource", ImageResourcePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stock", ImageStockPropertyInfo), '("storageType", ImageStorageTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("surface", ImageSurfacePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useFallback", ImageUseFallbackPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) +imageFile :: AttrLabelProxy "file"+imageFile = AttrLabelProxy++imageGicon :: AttrLabelProxy "gicon"+imageGicon = AttrLabelProxy++imageIconName :: AttrLabelProxy "iconName"+imageIconName = AttrLabelProxy++imageIconSet :: AttrLabelProxy "iconSet"+imageIconSet = AttrLabelProxy++imageIconSize :: AttrLabelProxy "iconSize"+imageIconSize = AttrLabelProxy++imagePixbuf :: AttrLabelProxy "pixbuf"+imagePixbuf = AttrLabelProxy++imagePixbufAnimation :: AttrLabelProxy "pixbufAnimation"+imagePixbufAnimation = AttrLabelProxy++imagePixelSize :: AttrLabelProxy "pixelSize"+imagePixelSize = AttrLabelProxy++imageResource :: AttrLabelProxy "resource"+imageResource = AttrLabelProxy++imageStock :: AttrLabelProxy "stock"+imageStock = AttrLabelProxy++imageStorageType :: AttrLabelProxy "storageType"+imageStorageType = AttrLabelProxy++imageSurface :: AttrLabelProxy "surface"+imageSurface = AttrLabelProxy++imageUseFallback :: AttrLabelProxy "useFallback"+imageUseFallback = AttrLabelProxy+ type instance SignalList Image = ImageSignalList type ImageSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -919,7 +1033,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "Image"+-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False @@ -940,7 +1054,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Image"+-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False @@ -965,7 +1079,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Image"+-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False @@ -988,15 +1102,15 @@ -- method Image::new_from_gicon -- method type : Constructor--- Args : [Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Image"+-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False foreign import ccall "gtk_image_new_from_gicon" gtk_image_new_from_gicon :: Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon"- Int32 -> -- size : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt IO (Ptr Image) @@ -1015,15 +1129,15 @@ -- method Image::new_from_icon_name -- method type : Constructor--- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Image"+-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False foreign import ccall "gtk_image_new_from_icon_name" gtk_image_new_from_icon_name :: CString -> -- icon_name : TBasicType TUTF8- Int32 -> -- size : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt IO (Ptr Image) @@ -1042,15 +1156,15 @@ -- method Image::new_from_icon_set -- method type : Constructor--- Args : [Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Image"+-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False foreign import ccall "gtk_image_new_from_icon_set" gtk_image_new_from_icon_set :: Ptr IconSet -> -- icon_set : TInterface "Gtk" "IconSet"- Int32 -> -- size : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt IO (Ptr Image) {-# DEPRECATED imageNewFromIconSet ["(Since version 3.10)","Use gtk_image_new_from_icon_name() instead."]#-}@@ -1071,7 +1185,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Image"+-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False @@ -1100,7 +1214,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Image"+-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False @@ -1123,15 +1237,15 @@ -- method Image::new_from_stock -- method type : Constructor--- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Image"+-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False foreign import ccall "gtk_image_new_from_stock" gtk_image_new_from_stock :: CString -> -- stock_id : TBasicType TUTF8- Int32 -> -- size : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt IO (Ptr Image) {-# DEPRECATED imageNewFromStock ["(Since version 3.10)","Use gtk_image_new_from_icon_name() instead."]#-}@@ -1152,7 +1266,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Image"+-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False @@ -1181,7 +1295,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1208,7 +1322,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "PixbufAnimation"+-- returnType : Just (TInterface "GdkPixbuf" "PixbufAnimation") -- throws : False -- Skip return : False @@ -1235,16 +1349,16 @@ -- method Image::get_gicon -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gicon", argType = TInterface "Gio" "Icon", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gicon", argType = TInterface "Gio" "Icon", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_get_gicon" gtk_image_get_gicon :: Ptr Image -> -- _obj : TInterface "Gtk" "Image" Ptr (Ptr Gio.Icon) -> -- gicon : TInterface "Gio" "Icon"- Ptr Int32 -> -- size : TBasicType TInt32+ Ptr Int32 -> -- size : TBasicType TInt IO () @@ -1271,16 +1385,16 @@ -- method Image::get_icon_name -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_get_icon_name" gtk_image_get_icon_name :: Ptr Image -> -- _obj : TInterface "Gtk" "Image" Ptr CString -> -- icon_name : TBasicType TUTF8- Ptr Int32 -> -- size : TBasicType TInt32+ Ptr Int32 -> -- size : TBasicType TInt IO () @@ -1307,16 +1421,16 @@ -- method Image::get_icon_set -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_get_icon_set" gtk_image_get_icon_set :: Ptr Image -> -- _obj : TInterface "Gtk" "Image" Ptr (Ptr IconSet) -> -- icon_set : TInterface "Gtk" "IconSet"- Ptr Int32 -> -- size : TBasicType TInt32+ Ptr Int32 -> -- size : TBasicType TInt IO () {-# DEPRECATED imageGetIconSet ["(Since version 3.10)","Use gtk_image_get_icon_name() instead."]#-}@@ -1345,7 +1459,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -1374,7 +1488,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1399,16 +1513,16 @@ -- method Image::get_stock -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_get_stock" gtk_image_get_stock :: Ptr Image -> -- _obj : TInterface "Gtk" "Image" Ptr CString -> -- stock_id : TBasicType TUTF8- Ptr Int32 -> -- size : TBasicType TInt32+ Ptr Int32 -> -- size : TBasicType TInt IO () {-# DEPRECATED imageGetStock ["(Since version 3.10)","Use gtk_image_get_icon_name() instead."]#-}@@ -1437,7 +1551,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ImageType"+-- returnType : Just (TInterface "Gtk" "ImageType") -- throws : False -- Skip return : False @@ -1465,7 +1579,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1496,7 +1610,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1529,16 +1643,16 @@ -- method Image::set_from_gicon -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_from_gicon" gtk_image_set_from_gicon :: Ptr Image -> -- _obj : TInterface "Gtk" "Image" Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon"- Int32 -> -- size : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt IO () @@ -1562,16 +1676,16 @@ -- method Image::set_from_icon_name -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_from_icon_name" gtk_image_set_from_icon_name :: Ptr Image -> -- _obj : TInterface "Gtk" "Image" CString -> -- icon_name : TBasicType TUTF8- Int32 -> -- size : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt IO () @@ -1595,16 +1709,16 @@ -- method Image::set_from_icon_set -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_from_icon_set" gtk_image_set_from_icon_set :: Ptr Image -> -- _obj : TInterface "Gtk" "Image" Ptr IconSet -> -- icon_set : TInterface "Gtk" "IconSet"- Int32 -> -- size : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt IO () {-# DEPRECATED imageSetFromIconSet ["(Since version 3.10)","Use gtk_image_set_from_icon_name() instead."]#-}@@ -1630,7 +1744,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1665,7 +1779,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1698,16 +1812,16 @@ -- method Image::set_from_stock -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_from_stock" gtk_image_set_from_stock :: Ptr Image -> -- _obj : TInterface "Gtk" "Image" CString -> -- stock_id : TBasicType TUTF8- Int32 -> -- size : TBasicType TInt32+ Int32 -> -- size : TBasicType TInt IO () {-# DEPRECATED imageSetFromStock ["(Since version 3.10)","Use gtk_image_set_from_icon_name() instead."]#-}@@ -1733,7 +1847,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1762,15 +1876,15 @@ -- method Image::set_pixel_size -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixel_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixel_size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_pixel_size" gtk_image_set_pixel_size :: Ptr Image -> -- _obj : TInterface "Gtk" "Image"- Int32 -> -- pixel_size : TBasicType TInt32+ Int32 -> -- pixel_size : TBasicType TInt IO ()
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Image where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ImageAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ImageCellAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -74,6 +74,7 @@ -- ** AccelGroup ImageMenuItemAccelGroupPropertyInfo , constructImageMenuItemAccelGroup ,+ imageMenuItemAccelGroup , setImageMenuItemAccelGroup , @@ -81,13 +82,16 @@ ImageMenuItemAlwaysShowImagePropertyInfo, constructImageMenuItemAlwaysShowImage , getImageMenuItemAlwaysShowImage ,+ imageMenuItemAlwaysShowImage , setImageMenuItemAlwaysShowImage , -- ** Image ImageMenuItemImagePropertyInfo ,+ clearImageMenuItemImage , constructImageMenuItemImage , getImageMenuItemImage ,+ imageMenuItemImage , setImageMenuItemImage , @@ -95,6 +99,7 @@ ImageMenuItemUseStockPropertyInfo , constructImageMenuItemUseStock , getImageMenuItemUseStock ,+ imageMenuItemUseStock , setImageMenuItemUseStock , @@ -102,9 +107,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -492,12 +497,13 @@ -- VVV Prop "accel-group" -- Type: TInterface "Gtk" "AccelGroup" -- Flags: [PropertyWritable]+ -- Nullable: (Nothing,Just False) setImageMenuItemAccelGroup :: (MonadIO m, ImageMenuItemK o, AccelGroupK a) => o -> a -> m ()-setImageMenuItemAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" val+setImageMenuItemAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" (Just val) constructImageMenuItemAccelGroup :: (AccelGroupK a) => a -> IO ([Char], GValue)-constructImageMenuItemAccelGroup val = constructObjectPropertyObject "accel-group" val+constructImageMenuItemAccelGroup val = constructObjectPropertyObject "accel-group" (Just val) data ImageMenuItemAccelGroupPropertyInfo instance AttrInfo ImageMenuItemAccelGroupPropertyInfo where@@ -509,10 +515,12 @@ attrGet _ = undefined attrSet _ = setImageMenuItemAccelGroup attrConstruct _ = constructImageMenuItemAccelGroup+ attrClear _ = undefined -- VVV Prop "always-show-image" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getImageMenuItemAlwaysShowImage :: (MonadIO m, ImageMenuItemK o) => o -> m Bool getImageMenuItemAlwaysShowImage obj = liftIO $ getObjectPropertyBool obj "always-show-image"@@ -533,23 +541,28 @@ attrGet _ = getImageMenuItemAlwaysShowImage attrSet _ = setImageMenuItemAlwaysShowImage attrConstruct _ = constructImageMenuItemAlwaysShowImage+ attrClear _ = undefined -- VVV Prop "image" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getImageMenuItemImage :: (MonadIO m, ImageMenuItemK o) => o -> m Widget-getImageMenuItemImage obj = liftIO $ getObjectPropertyObject obj "image" Widget+getImageMenuItemImage obj = liftIO $ checkUnexpectedNothing "getImageMenuItemImage" $ getObjectPropertyObject obj "image" Widget setImageMenuItemImage :: (MonadIO m, ImageMenuItemK o, WidgetK a) => o -> a -> m ()-setImageMenuItemImage obj val = liftIO $ setObjectPropertyObject obj "image" val+setImageMenuItemImage obj val = liftIO $ setObjectPropertyObject obj "image" (Just val) constructImageMenuItemImage :: (WidgetK a) => a -> IO ([Char], GValue)-constructImageMenuItemImage val = constructObjectPropertyObject "image" val+constructImageMenuItemImage val = constructObjectPropertyObject "image" (Just val) +clearImageMenuItemImage :: (MonadIO m, ImageMenuItemK o) => o -> m ()+clearImageMenuItemImage obj = liftIO $ setObjectPropertyObject obj "image" (Nothing :: Maybe Widget)+ data ImageMenuItemImagePropertyInfo instance AttrInfo ImageMenuItemImagePropertyInfo where- type AttrAllowedOps ImageMenuItemImagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ImageMenuItemImagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageMenuItemImagePropertyInfo = WidgetK type AttrBaseTypeConstraint ImageMenuItemImagePropertyInfo = ImageMenuItemK type AttrGetType ImageMenuItemImagePropertyInfo = Widget@@ -557,10 +570,12 @@ attrGet _ = getImageMenuItemImage attrSet _ = setImageMenuItemImage attrConstruct _ = constructImageMenuItemImage+ attrClear _ = clearImageMenuItemImage -- VVV Prop "use-stock" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getImageMenuItemUseStock :: (MonadIO m, ImageMenuItemK o) => o -> m Bool getImageMenuItemUseStock obj = liftIO $ getObjectPropertyBool obj "use-stock"@@ -581,10 +596,23 @@ attrGet _ = getImageMenuItemUseStock attrSet _ = setImageMenuItemUseStock attrConstruct _ = constructImageMenuItemUseStock+ attrClear _ = undefined type instance AttributeList ImageMenuItem = ImageMenuItemAttributeList type ImageMenuItemAttributeList = ('[ '("accelGroup", ImageMenuItemAccelGroupPropertyInfo), '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ImageMenuItemAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ImageMenuItemImagePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ImageMenuItemUseStockPropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +imageMenuItemAccelGroup :: AttrLabelProxy "accelGroup"+imageMenuItemAccelGroup = AttrLabelProxy++imageMenuItemAlwaysShowImage :: AttrLabelProxy "alwaysShowImage"+imageMenuItemAlwaysShowImage = AttrLabelProxy++imageMenuItemImage :: AttrLabelProxy "image"+imageMenuItemImage = AttrLabelProxy++imageMenuItemUseStock :: AttrLabelProxy "useStock"+imageMenuItemUseStock = AttrLabelProxy+ type instance SignalList ImageMenuItem = ImageMenuItemSignalList type ImageMenuItemSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activateItem", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleSizeAllocate", MenuItemToggleSizeAllocateSignalInfo), '("toggleSizeRequest", MenuItemToggleSizeRequestSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -592,7 +620,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "ImageMenuItem"+-- returnType : Just (TInterface "Gtk" "ImageMenuItem") -- throws : False -- Skip return : False @@ -613,7 +641,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ImageMenuItem"+-- returnType : Just (TInterface "Gtk" "ImageMenuItem") -- throws : False -- Skip return : False @@ -646,7 +674,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ImageMenuItem"+-- returnType : Just (TInterface "Gtk" "ImageMenuItem") -- throws : False -- Skip return : False @@ -671,7 +699,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ImageMenuItem"+-- returnType : Just (TInterface "Gtk" "ImageMenuItem") -- throws : False -- Skip return : False @@ -696,7 +724,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -724,7 +752,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -753,7 +781,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -781,7 +809,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -812,7 +840,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -842,7 +870,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -877,7 +905,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_stock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ImageMenuItem where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -83,6 +83,7 @@ InfoBarMessageTypePropertyInfo , constructInfoBarMessageType , getInfoBarMessageType ,+ infoBarMessageType , setInfoBarMessageType , @@ -90,6 +91,7 @@ InfoBarShowCloseButtonPropertyInfo , constructInfoBarShowCloseButton , getInfoBarShowCloseButton ,+ infoBarShowCloseButton , setInfoBarShowCloseButton , @@ -124,9 +126,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -587,6 +589,7 @@ -- VVV Prop "message-type" -- Type: TInterface "Gtk" "MessageType" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getInfoBarMessageType :: (MonadIO m, InfoBarK o) => o -> m MessageType getInfoBarMessageType obj = liftIO $ getObjectPropertyEnum obj "message-type"@@ -607,10 +610,12 @@ attrGet _ = getInfoBarMessageType attrSet _ = setInfoBarMessageType attrConstruct _ = constructInfoBarMessageType+ attrClear _ = undefined -- VVV Prop "show-close-button" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getInfoBarShowCloseButton :: (MonadIO m, InfoBarK o) => o -> m Bool getInfoBarShowCloseButton obj = liftIO $ getObjectPropertyBool obj "show-close-button"@@ -631,10 +636,17 @@ attrGet _ = getInfoBarShowCloseButton attrSet _ = setInfoBarShowCloseButton attrConstruct _ = constructInfoBarShowCloseButton+ attrClear _ = undefined type instance AttributeList InfoBar = InfoBarAttributeList type InfoBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("messageType", InfoBarMessageTypePropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showCloseButton", InfoBarShowCloseButtonPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +infoBarMessageType :: AttrLabelProxy "messageType"+infoBarMessageType = AttrLabelProxy++infoBarShowCloseButton :: AttrLabelProxy "showCloseButton"+infoBarShowCloseButton = AttrLabelProxy+ data InfoBarCloseSignalInfo instance SignalInfo InfoBarCloseSignalInfo where type HaskellCallbackType InfoBarCloseSignalInfo = InfoBarCloseCallback@@ -652,7 +664,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "InfoBar"+-- returnType : Just (TInterface "Gtk" "InfoBar") -- throws : False -- Skip return : False @@ -671,16 +683,16 @@ -- method InfoBar::add_action_widget -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_info_bar_add_action_widget" gtk_info_bar_add_action_widget :: Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" Ptr Widget -> -- child : TInterface "Gtk" "Widget"- Int32 -> -- response_id : TBasicType TInt32+ Int32 -> -- response_id : TBasicType TInt IO () @@ -704,16 +716,16 @@ -- method InfoBar::add_button -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Button"+-- returnType : Just (TInterface "Gtk" "Button") -- throws : False -- Skip return : False foreign import ccall "gtk_info_bar_add_button" gtk_info_bar_add_button :: Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" CString -> -- button_text : TBasicType TUTF8- Int32 -> -- response_id : TBasicType TInt32+ Int32 -> -- response_id : TBasicType TInt IO (Ptr Button) @@ -741,7 +753,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -770,7 +782,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -799,7 +811,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "MessageType"+-- returnType : Just (TInterface "Gtk" "MessageType") -- throws : False -- Skip return : False @@ -827,7 +839,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -853,15 +865,15 @@ -- method InfoBar::response -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_info_bar_response" gtk_info_bar_response :: Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar"- Int32 -> -- response_id : TBasicType TInt32+ Int32 -> -- response_id : TBasicType TInt IO () @@ -882,15 +894,15 @@ -- method InfoBar::set_default_response -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_info_bar_set_default_response" gtk_info_bar_set_default_response :: Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar"- Int32 -> -- response_id : TBasicType TInt32+ Int32 -> -- response_id : TBasicType TInt IO () @@ -913,7 +925,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message_type", argType = TInterface "Gtk" "MessageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -941,15 +953,15 @@ -- method InfoBar::set_response_sensitive -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_info_bar_set_response_sensitive" gtk_info_bar_set_response_sensitive :: Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar"- Int32 -> -- response_id : TBasicType TInt32+ Int32 -> -- response_id : TBasicType TInt CInt -> -- setting : TBasicType TBoolean IO () @@ -975,7 +987,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.InfoBar where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -42,6 +42,7 @@ InvisibleScreenPropertyInfo , constructInvisibleScreen , getInvisibleScreen ,+ invisibleScreen , setInvisibleScreen , @@ -49,9 +50,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -382,15 +383,16 @@ -- VVV Prop "screen" -- Type: TInterface "Gdk" "Screen" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getInvisibleScreen :: (MonadIO m, InvisibleK o) => o -> m Gdk.Screen-getInvisibleScreen obj = liftIO $ getObjectPropertyObject obj "screen" Gdk.Screen+getInvisibleScreen obj = liftIO $ checkUnexpectedNothing "getInvisibleScreen" $ getObjectPropertyObject obj "screen" Gdk.Screen setInvisibleScreen :: (MonadIO m, InvisibleK o, Gdk.ScreenK a) => o -> a -> m ()-setInvisibleScreen obj val = liftIO $ setObjectPropertyObject obj "screen" val+setInvisibleScreen obj val = liftIO $ setObjectPropertyObject obj "screen" (Just val) constructInvisibleScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue)-constructInvisibleScreen val = constructObjectPropertyObject "screen" val+constructInvisibleScreen val = constructObjectPropertyObject "screen" (Just val) data InvisibleScreenPropertyInfo instance AttrInfo InvisibleScreenPropertyInfo where@@ -402,10 +404,14 @@ attrGet _ = getInvisibleScreen attrSet _ = setInvisibleScreen attrConstruct _ = constructInvisibleScreen+ attrClear _ = undefined type instance AttributeList Invisible = InvisibleAttributeList type InvisibleAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", InvisibleScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +invisibleScreen :: AttrLabelProxy "screen"+invisibleScreen = AttrLabelProxy+ type instance SignalList Invisible = InvisibleSignalList type InvisibleSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -413,7 +419,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "Invisible"+-- returnType : Just (TInterface "Gtk" "Invisible") -- throws : False -- Skip return : False @@ -434,7 +440,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Invisible"+-- returnType : Just (TInterface "Gtk" "Invisible") -- throws : False -- Skip return : False @@ -459,7 +465,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Invisible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Screen"+-- returnType : Just (TInterface "Gdk" "Screen") -- throws : False -- Skip return : False @@ -488,7 +494,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Invisible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Invisible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -272,25 +272,30 @@ LabelAnglePropertyInfo , constructLabelAngle , getLabelAngle ,+ labelAngle , setLabelAngle , -- ** Attributes LabelAttributesPropertyInfo ,+ clearLabelAttributes , constructLabelAttributes , getLabelAttributes ,+ labelAttributes , setLabelAttributes , -- ** CursorPosition LabelCursorPositionPropertyInfo , getLabelCursorPosition ,+ labelCursorPosition , -- ** Ellipsize LabelEllipsizePropertyInfo , constructLabelEllipsize , getLabelEllipsize ,+ labelEllipsize , setLabelEllipsize , @@ -298,6 +303,7 @@ LabelJustifyPropertyInfo , constructLabelJustify , getLabelJustify ,+ labelJustify , setLabelJustify , @@ -305,6 +311,7 @@ LabelLabelPropertyInfo , constructLabelLabel , getLabelLabel ,+ labelLabel , setLabelLabel , @@ -312,6 +319,7 @@ LabelLinesPropertyInfo , constructLabelLines , getLabelLines ,+ labelLines , setLabelLines , @@ -319,24 +327,29 @@ LabelMaxWidthCharsPropertyInfo , constructLabelMaxWidthChars , getLabelMaxWidthChars ,+ labelMaxWidthChars , setLabelMaxWidthChars , -- ** MnemonicKeyval LabelMnemonicKeyvalPropertyInfo , getLabelMnemonicKeyval ,+ labelMnemonicKeyval , -- ** MnemonicWidget LabelMnemonicWidgetPropertyInfo ,+ clearLabelMnemonicWidget , constructLabelMnemonicWidget , getLabelMnemonicWidget ,+ labelMnemonicWidget , setLabelMnemonicWidget , -- ** Pattern LabelPatternPropertyInfo , constructLabelPattern ,+ labelPattern , setLabelPattern , @@ -344,18 +357,21 @@ LabelSelectablePropertyInfo , constructLabelSelectable , getLabelSelectable ,+ labelSelectable , setLabelSelectable , -- ** SelectionBound LabelSelectionBoundPropertyInfo , getLabelSelectionBound ,+ labelSelectionBound , -- ** SingleLineMode LabelSingleLineModePropertyInfo , constructLabelSingleLineMode , getLabelSingleLineMode ,+ labelSingleLineMode , setLabelSingleLineMode , @@ -363,6 +379,7 @@ LabelTrackVisitedLinksPropertyInfo , constructLabelTrackVisitedLinks , getLabelTrackVisitedLinks ,+ labelTrackVisitedLinks , setLabelTrackVisitedLinks , @@ -370,6 +387,7 @@ LabelUseMarkupPropertyInfo , constructLabelUseMarkup , getLabelUseMarkup ,+ labelUseMarkup , setLabelUseMarkup , @@ -377,6 +395,7 @@ LabelUseUnderlinePropertyInfo , constructLabelUseUnderline , getLabelUseUnderline ,+ labelUseUnderline , setLabelUseUnderline , @@ -384,6 +403,7 @@ LabelWidthCharsPropertyInfo , constructLabelWidthChars , getLabelWidthChars ,+ labelWidthChars , setLabelWidthChars , @@ -391,6 +411,7 @@ LabelWrapPropertyInfo , constructLabelWrap , getLabelWrap ,+ labelWrap , setLabelWrap , @@ -398,6 +419,7 @@ LabelWrapModePropertyInfo , constructLabelWrapMode , getLabelWrapMode ,+ labelWrapMode , setLabelWrapMode , @@ -405,6 +427,7 @@ LabelXalignPropertyInfo , constructLabelXalign , getLabelXalign ,+ labelXalign , setLabelXalign , @@ -412,6 +435,7 @@ LabelYalignPropertyInfo , constructLabelYalign , getLabelYalign ,+ labelYalign , setLabelYalign , @@ -482,9 +506,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -1076,14 +1100,15 @@ connectSignalFunPtr obj "populate-popup" cb' after --- XXX Duplicated object with different types:- --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Nothing}- --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Just DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_halign() instead. If you are using\n #GtkLabel, use #GtkLabel:xalign instead."}}+ --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing}+ --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_halign() instead. If you are using\n #GtkLabel, use #GtkLabel:xalign instead."})} --- XXX Duplicated object with different types:- --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Nothing}- --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Just DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_valign() instead. If you are using\n #GtkLabel, use #GtkLabel:yalign instead."}}+ --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing}+ --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_valign() instead. If you are using\n #GtkLabel, use #GtkLabel:yalign instead."})} -- VVV Prop "angle" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLabelAngle :: (MonadIO m, LabelK o) => o -> m Double getLabelAngle obj = liftIO $ getObjectPropertyDouble obj "angle"@@ -1104,23 +1129,28 @@ attrGet _ = getLabelAngle attrSet _ = setLabelAngle attrConstruct _ = constructLabelAngle+ attrClear _ = undefined -- VVV Prop "attributes" -- Type: TInterface "Pango" "AttrList" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getLabelAttributes :: (MonadIO m, LabelK o) => o -> m Pango.AttrList-getLabelAttributes obj = liftIO $ getObjectPropertyBoxed obj "attributes" Pango.AttrList+getLabelAttributes obj = liftIO $ checkUnexpectedNothing "getLabelAttributes" $ getObjectPropertyBoxed obj "attributes" Pango.AttrList setLabelAttributes :: (MonadIO m, LabelK o) => o -> Pango.AttrList -> m ()-setLabelAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" val+setLabelAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" (Just val) constructLabelAttributes :: Pango.AttrList -> IO ([Char], GValue)-constructLabelAttributes val = constructObjectPropertyBoxed "attributes" val+constructLabelAttributes val = constructObjectPropertyBoxed "attributes" (Just val) +clearLabelAttributes :: (MonadIO m, LabelK o) => o -> m ()+clearLabelAttributes obj = liftIO $ setObjectPropertyBoxed obj "attributes" (Nothing :: Maybe Pango.AttrList)+ data LabelAttributesPropertyInfo instance AttrInfo LabelAttributesPropertyInfo where- type AttrAllowedOps LabelAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps LabelAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint LabelAttributesPropertyInfo = (~) Pango.AttrList type AttrBaseTypeConstraint LabelAttributesPropertyInfo = LabelK type AttrGetType LabelAttributesPropertyInfo = Pango.AttrList@@ -1128,13 +1158,15 @@ attrGet _ = getLabelAttributes attrSet _ = setLabelAttributes attrConstruct _ = constructLabelAttributes+ attrClear _ = clearLabelAttributes -- VVV Prop "cursor-position"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) getLabelCursorPosition :: (MonadIO m, LabelK o) => o -> m Int32-getLabelCursorPosition obj = liftIO $ getObjectPropertyCInt obj "cursor-position"+getLabelCursorPosition obj = liftIO $ getObjectPropertyInt32 obj "cursor-position" data LabelCursorPositionPropertyInfo instance AttrInfo LabelCursorPositionPropertyInfo where@@ -1146,10 +1178,12 @@ attrGet _ = getLabelCursorPosition attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "ellipsize" -- Type: TInterface "Pango" "EllipsizeMode" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLabelEllipsize :: (MonadIO m, LabelK o) => o -> m Pango.EllipsizeMode getLabelEllipsize obj = liftIO $ getObjectPropertyEnum obj "ellipsize"@@ -1170,10 +1204,12 @@ attrGet _ = getLabelEllipsize attrSet _ = setLabelEllipsize attrConstruct _ = constructLabelEllipsize+ attrClear _ = undefined -- VVV Prop "justify" -- Type: TInterface "Gtk" "Justification" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLabelJustify :: (MonadIO m, LabelK o) => o -> m Justification getLabelJustify obj = liftIO $ getObjectPropertyEnum obj "justify"@@ -1194,19 +1230,21 @@ attrGet _ = getLabelJustify attrSet _ = setLabelJustify attrConstruct _ = constructLabelJustify+ attrClear _ = undefined -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLabelLabel :: (MonadIO m, LabelK o) => o -> m T.Text-getLabelLabel obj = liftIO $ getObjectPropertyString obj "label"+getLabelLabel obj = liftIO $ checkUnexpectedNothing "getLabelLabel" $ getObjectPropertyString obj "label" setLabelLabel :: (MonadIO m, LabelK o) => o -> T.Text -> m ()-setLabelLabel obj val = liftIO $ setObjectPropertyString obj "label" val+setLabelLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) constructLabelLabel :: T.Text -> IO ([Char], GValue)-constructLabelLabel val = constructObjectPropertyString "label" val+constructLabelLabel val = constructObjectPropertyString "label" (Just val) data LabelLabelPropertyInfo instance AttrInfo LabelLabelPropertyInfo where@@ -1218,19 +1256,21 @@ attrGet _ = getLabelLabel attrSet _ = setLabelLabel attrConstruct _ = constructLabelLabel+ attrClear _ = undefined -- VVV Prop "lines"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLabelLines :: (MonadIO m, LabelK o) => o -> m Int32-getLabelLines obj = liftIO $ getObjectPropertyCInt obj "lines"+getLabelLines obj = liftIO $ getObjectPropertyInt32 obj "lines" setLabelLines :: (MonadIO m, LabelK o) => o -> Int32 -> m ()-setLabelLines obj val = liftIO $ setObjectPropertyCInt obj "lines" val+setLabelLines obj val = liftIO $ setObjectPropertyInt32 obj "lines" val constructLabelLines :: Int32 -> IO ([Char], GValue)-constructLabelLines val = constructObjectPropertyCInt "lines" val+constructLabelLines val = constructObjectPropertyInt32 "lines" val data LabelLinesPropertyInfo instance AttrInfo LabelLinesPropertyInfo where@@ -1242,19 +1282,21 @@ attrGet _ = getLabelLines attrSet _ = setLabelLines attrConstruct _ = constructLabelLines+ attrClear _ = undefined -- VVV Prop "max-width-chars"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLabelMaxWidthChars :: (MonadIO m, LabelK o) => o -> m Int32-getLabelMaxWidthChars obj = liftIO $ getObjectPropertyCInt obj "max-width-chars"+getLabelMaxWidthChars obj = liftIO $ getObjectPropertyInt32 obj "max-width-chars" setLabelMaxWidthChars :: (MonadIO m, LabelK o) => o -> Int32 -> m ()-setLabelMaxWidthChars obj val = liftIO $ setObjectPropertyCInt obj "max-width-chars" val+setLabelMaxWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "max-width-chars" val constructLabelMaxWidthChars :: Int32 -> IO ([Char], GValue)-constructLabelMaxWidthChars val = constructObjectPropertyCInt "max-width-chars" val+constructLabelMaxWidthChars val = constructObjectPropertyInt32 "max-width-chars" val data LabelMaxWidthCharsPropertyInfo instance AttrInfo LabelMaxWidthCharsPropertyInfo where@@ -1266,13 +1308,15 @@ attrGet _ = getLabelMaxWidthChars attrSet _ = setLabelMaxWidthChars attrConstruct _ = constructLabelMaxWidthChars+ attrClear _ = undefined -- VVV Prop "mnemonic-keyval"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable]+ -- Nullable: (Just False,Nothing) getLabelMnemonicKeyval :: (MonadIO m, LabelK o) => o -> m Word32-getLabelMnemonicKeyval obj = liftIO $ getObjectPropertyCUInt obj "mnemonic-keyval"+getLabelMnemonicKeyval obj = liftIO $ getObjectPropertyUInt32 obj "mnemonic-keyval" data LabelMnemonicKeyvalPropertyInfo instance AttrInfo LabelMnemonicKeyvalPropertyInfo where@@ -1284,23 +1328,28 @@ attrGet _ = getLabelMnemonicKeyval attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "mnemonic-widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getLabelMnemonicWidget :: (MonadIO m, LabelK o) => o -> m Widget-getLabelMnemonicWidget obj = liftIO $ getObjectPropertyObject obj "mnemonic-widget" Widget+getLabelMnemonicWidget obj = liftIO $ checkUnexpectedNothing "getLabelMnemonicWidget" $ getObjectPropertyObject obj "mnemonic-widget" Widget setLabelMnemonicWidget :: (MonadIO m, LabelK o, WidgetK a) => o -> a -> m ()-setLabelMnemonicWidget obj val = liftIO $ setObjectPropertyObject obj "mnemonic-widget" val+setLabelMnemonicWidget obj val = liftIO $ setObjectPropertyObject obj "mnemonic-widget" (Just val) constructLabelMnemonicWidget :: (WidgetK a) => a -> IO ([Char], GValue)-constructLabelMnemonicWidget val = constructObjectPropertyObject "mnemonic-widget" val+constructLabelMnemonicWidget val = constructObjectPropertyObject "mnemonic-widget" (Just val) +clearLabelMnemonicWidget :: (MonadIO m, LabelK o) => o -> m ()+clearLabelMnemonicWidget obj = liftIO $ setObjectPropertyObject obj "mnemonic-widget" (Nothing :: Maybe Widget)+ data LabelMnemonicWidgetPropertyInfo instance AttrInfo LabelMnemonicWidgetPropertyInfo where- type AttrAllowedOps LabelMnemonicWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps LabelMnemonicWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint LabelMnemonicWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint LabelMnemonicWidgetPropertyInfo = LabelK type AttrGetType LabelMnemonicWidgetPropertyInfo = Widget@@ -1308,16 +1357,18 @@ attrGet _ = getLabelMnemonicWidget attrSet _ = setLabelMnemonicWidget attrConstruct _ = constructLabelMnemonicWidget+ attrClear _ = clearLabelMnemonicWidget -- VVV Prop "pattern" -- Type: TBasicType TUTF8 -- Flags: [PropertyWritable]+ -- Nullable: (Nothing,Just False) setLabelPattern :: (MonadIO m, LabelK o) => o -> T.Text -> m ()-setLabelPattern obj val = liftIO $ setObjectPropertyString obj "pattern" val+setLabelPattern obj val = liftIO $ setObjectPropertyString obj "pattern" (Just val) constructLabelPattern :: T.Text -> IO ([Char], GValue)-constructLabelPattern val = constructObjectPropertyString "pattern" val+constructLabelPattern val = constructObjectPropertyString "pattern" (Just val) data LabelPatternPropertyInfo instance AttrInfo LabelPatternPropertyInfo where@@ -1329,10 +1380,12 @@ attrGet _ = undefined attrSet _ = setLabelPattern attrConstruct _ = constructLabelPattern+ attrClear _ = undefined -- VVV Prop "selectable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLabelSelectable :: (MonadIO m, LabelK o) => o -> m Bool getLabelSelectable obj = liftIO $ getObjectPropertyBool obj "selectable"@@ -1353,13 +1406,15 @@ attrGet _ = getLabelSelectable attrSet _ = setLabelSelectable attrConstruct _ = constructLabelSelectable+ attrClear _ = undefined -- VVV Prop "selection-bound"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) getLabelSelectionBound :: (MonadIO m, LabelK o) => o -> m Int32-getLabelSelectionBound obj = liftIO $ getObjectPropertyCInt obj "selection-bound"+getLabelSelectionBound obj = liftIO $ getObjectPropertyInt32 obj "selection-bound" data LabelSelectionBoundPropertyInfo instance AttrInfo LabelSelectionBoundPropertyInfo where@@ -1371,10 +1426,12 @@ attrGet _ = getLabelSelectionBound attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "single-line-mode" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLabelSingleLineMode :: (MonadIO m, LabelK o) => o -> m Bool getLabelSingleLineMode obj = liftIO $ getObjectPropertyBool obj "single-line-mode"@@ -1395,10 +1452,12 @@ attrGet _ = getLabelSingleLineMode attrSet _ = setLabelSingleLineMode attrConstruct _ = constructLabelSingleLineMode+ attrClear _ = undefined -- VVV Prop "track-visited-links" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLabelTrackVisitedLinks :: (MonadIO m, LabelK o) => o -> m Bool getLabelTrackVisitedLinks obj = liftIO $ getObjectPropertyBool obj "track-visited-links"@@ -1419,10 +1478,12 @@ attrGet _ = getLabelTrackVisitedLinks attrSet _ = setLabelTrackVisitedLinks attrConstruct _ = constructLabelTrackVisitedLinks+ attrClear _ = undefined -- VVV Prop "use-markup" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLabelUseMarkup :: (MonadIO m, LabelK o) => o -> m Bool getLabelUseMarkup obj = liftIO $ getObjectPropertyBool obj "use-markup"@@ -1443,10 +1504,12 @@ attrGet _ = getLabelUseMarkup attrSet _ = setLabelUseMarkup attrConstruct _ = constructLabelUseMarkup+ attrClear _ = undefined -- VVV Prop "use-underline" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLabelUseUnderline :: (MonadIO m, LabelK o) => o -> m Bool getLabelUseUnderline obj = liftIO $ getObjectPropertyBool obj "use-underline"@@ -1467,19 +1530,21 @@ attrGet _ = getLabelUseUnderline attrSet _ = setLabelUseUnderline attrConstruct _ = constructLabelUseUnderline+ attrClear _ = undefined -- VVV Prop "width-chars"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLabelWidthChars :: (MonadIO m, LabelK o) => o -> m Int32-getLabelWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars"+getLabelWidthChars obj = liftIO $ getObjectPropertyInt32 obj "width-chars" setLabelWidthChars :: (MonadIO m, LabelK o) => o -> Int32 -> m ()-setLabelWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val+setLabelWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "width-chars" val constructLabelWidthChars :: Int32 -> IO ([Char], GValue)-constructLabelWidthChars val = constructObjectPropertyCInt "width-chars" val+constructLabelWidthChars val = constructObjectPropertyInt32 "width-chars" val data LabelWidthCharsPropertyInfo instance AttrInfo LabelWidthCharsPropertyInfo where@@ -1491,10 +1556,12 @@ attrGet _ = getLabelWidthChars attrSet _ = setLabelWidthChars attrConstruct _ = constructLabelWidthChars+ attrClear _ = undefined -- VVV Prop "wrap" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getLabelWrap :: (MonadIO m, LabelK o) => o -> m Bool getLabelWrap obj = liftIO $ getObjectPropertyBool obj "wrap"@@ -1515,10 +1582,12 @@ attrGet _ = getLabelWrap attrSet _ = setLabelWrap attrConstruct _ = constructLabelWrap+ attrClear _ = undefined -- VVV Prop "wrap-mode" -- Type: TInterface "Pango" "WrapMode" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getLabelWrapMode :: (MonadIO m, LabelK o) => o -> m Pango.WrapMode getLabelWrapMode obj = liftIO $ getObjectPropertyEnum obj "wrap-mode"@@ -1539,10 +1608,12 @@ attrGet _ = getLabelWrapMode attrSet _ = setLabelWrapMode attrConstruct _ = constructLabelWrapMode+ attrClear _ = undefined -- VVV Prop "xalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLabelXalign :: (MonadIO m, LabelK o) => o -> m Float getLabelXalign obj = liftIO $ getObjectPropertyFloat obj "xalign"@@ -1563,10 +1634,12 @@ attrGet _ = getLabelXalign attrSet _ = setLabelXalign attrConstruct _ = constructLabelXalign+ attrClear _ = undefined -- VVV Prop "yalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLabelYalign :: (MonadIO m, LabelK o) => o -> m Float getLabelYalign obj = liftIO $ getObjectPropertyFloat obj "yalign"@@ -1587,10 +1660,77 @@ attrGet _ = getLabelYalign attrSet _ = setLabelYalign attrConstruct _ = constructLabelYalign+ attrClear _ = undefined type instance AttributeList Label = LabelAttributeList type LabelAttributeList = ('[ '("angle", LabelAnglePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attributes", LabelAttributesPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorPosition", LabelCursorPositionPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", LabelEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("justify", LabelJustifyPropertyInfo), '("label", LabelLabelPropertyInfo), '("lines", LabelLinesPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxWidthChars", LabelMaxWidthCharsPropertyInfo), '("mnemonicKeyval", LabelMnemonicKeyvalPropertyInfo), '("mnemonicWidget", LabelMnemonicWidgetPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pattern", LabelPatternPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectable", LabelSelectablePropertyInfo), '("selectionBound", LabelSelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("singleLineMode", LabelSingleLineModePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("trackVisitedLinks", LabelTrackVisitedLinksPropertyInfo), '("useMarkup", LabelUseMarkupPropertyInfo), '("useUnderline", LabelUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", LabelWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", LabelWrapPropertyInfo), '("wrapMode", LabelWrapModePropertyInfo), '("xpad", MiscXpadPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) +labelAngle :: AttrLabelProxy "angle"+labelAngle = AttrLabelProxy++labelAttributes :: AttrLabelProxy "attributes"+labelAttributes = AttrLabelProxy++labelCursorPosition :: AttrLabelProxy "cursorPosition"+labelCursorPosition = AttrLabelProxy++labelEllipsize :: AttrLabelProxy "ellipsize"+labelEllipsize = AttrLabelProxy++labelJustify :: AttrLabelProxy "justify"+labelJustify = AttrLabelProxy++labelLabel :: AttrLabelProxy "label"+labelLabel = AttrLabelProxy++labelLines :: AttrLabelProxy "lines"+labelLines = AttrLabelProxy++labelMaxWidthChars :: AttrLabelProxy "maxWidthChars"+labelMaxWidthChars = AttrLabelProxy++labelMnemonicKeyval :: AttrLabelProxy "mnemonicKeyval"+labelMnemonicKeyval = AttrLabelProxy++labelMnemonicWidget :: AttrLabelProxy "mnemonicWidget"+labelMnemonicWidget = AttrLabelProxy++labelPattern :: AttrLabelProxy "pattern"+labelPattern = AttrLabelProxy++labelSelectable :: AttrLabelProxy "selectable"+labelSelectable = AttrLabelProxy++labelSelectionBound :: AttrLabelProxy "selectionBound"+labelSelectionBound = AttrLabelProxy++labelSingleLineMode :: AttrLabelProxy "singleLineMode"+labelSingleLineMode = AttrLabelProxy++labelTrackVisitedLinks :: AttrLabelProxy "trackVisitedLinks"+labelTrackVisitedLinks = AttrLabelProxy++labelUseMarkup :: AttrLabelProxy "useMarkup"+labelUseMarkup = AttrLabelProxy++labelUseUnderline :: AttrLabelProxy "useUnderline"+labelUseUnderline = AttrLabelProxy++labelWidthChars :: AttrLabelProxy "widthChars"+labelWidthChars = AttrLabelProxy++labelWrap :: AttrLabelProxy "wrap"+labelWrap = AttrLabelProxy++labelWrapMode :: AttrLabelProxy "wrapMode"+labelWrapMode = AttrLabelProxy++labelXalign :: AttrLabelProxy "xalign"+labelXalign = AttrLabelProxy++labelYalign :: AttrLabelProxy "yalign"+labelYalign = AttrLabelProxy+ data LabelActivateCurrentLinkSignalInfo instance SignalInfo LabelActivateCurrentLinkSignalInfo where type HaskellCallbackType LabelActivateCurrentLinkSignalInfo = LabelActivateCurrentLinkCallback@@ -1623,7 +1763,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Label"+-- returnType : Just (TInterface "Gtk" "Label") -- throws : False -- Skip return : False @@ -1652,7 +1792,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Label"+-- returnType : Just (TInterface "Gtk" "Label") -- throws : False -- Skip return : False @@ -1681,7 +1821,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1709,7 +1849,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "AttrList"+-- returnType : Just (TInterface "Pango" "AttrList") -- throws : False -- Skip return : False @@ -1738,7 +1878,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1767,7 +1907,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "EllipsizeMode"+-- returnType : Just (TInterface "Pango" "EllipsizeMode") -- throws : False -- Skip return : False @@ -1795,7 +1935,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Justification"+-- returnType : Just (TInterface "Gtk" "Justification") -- throws : False -- Skip return : False @@ -1823,7 +1963,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1852,7 +1992,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Layout"+-- returnType : Just (TInterface "Pango" "Layout") -- throws : False -- Skip return : False @@ -1879,16 +2019,16 @@ -- method Label::get_layout_offsets -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_label_get_layout_offsets" gtk_label_get_layout_offsets :: Ptr Label -> -- _obj : TInterface "Gtk" "Label"- Ptr Int32 -> -- x : TBasicType TInt32- Ptr Int32 -> -- y : TBasicType TInt32+ Ptr Int32 -> -- x : TBasicType TInt+ Ptr Int32 -> -- y : TBasicType TInt IO () @@ -1916,7 +2056,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1944,7 +2084,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "WrapMode"+-- returnType : Just (TInterface "Pango" "WrapMode") -- throws : False -- Skip return : False @@ -1972,7 +2112,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1999,7 +2139,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2026,7 +2166,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -2053,7 +2193,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -2082,7 +2222,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2108,16 +2248,16 @@ -- method Label::get_selection_bounds -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_label_get_selection_bounds" gtk_label_get_selection_bounds :: Ptr Label -> -- _obj : TInterface "Gtk" "Label"- Ptr Int32 -> -- start : TBasicType TInt32- Ptr Int32 -> -- end : TBasicType TInt32+ Ptr Int32 -> -- start : TBasicType TInt+ Ptr Int32 -> -- end : TBasicType TInt IO CInt @@ -2146,7 +2286,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2174,7 +2314,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2203,7 +2343,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2231,7 +2371,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2259,7 +2399,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2287,7 +2427,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2314,7 +2454,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TFloat+-- returnType : Just (TBasicType TFloat) -- throws : False -- Skip return : False @@ -2342,7 +2482,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TFloat+-- returnType : Just (TBasicType TFloat) -- throws : False -- Skip return : False @@ -2368,16 +2508,16 @@ -- method Label::select_region -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_offset", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_label_select_region" gtk_label_select_region :: Ptr Label -> -- _obj : TInterface "Gtk" "Label"- Int32 -> -- start_offset : TBasicType TInt32- Int32 -> -- end_offset : TBasicType TInt32+ Int32 -> -- start_offset : TBasicType TInt+ Int32 -> -- end_offset : TBasicType TInt IO () @@ -2401,7 +2541,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "angle", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2431,7 +2571,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2466,7 +2606,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2496,7 +2636,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "jtype", argType = TInterface "Gtk" "Justification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2526,7 +2666,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2557,7 +2697,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2587,7 +2727,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap_mode", argType = TInterface "Pango" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2615,15 +2755,15 @@ -- method Label::set_lines -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lines", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_label_set_lines" gtk_label_set_lines :: Ptr Label -> -- _obj : TInterface "Gtk" "Label"- Int32 -> -- lines : TBasicType TInt32+ Int32 -> -- lines : TBasicType TInt IO () @@ -2646,7 +2786,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2677,7 +2817,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2706,15 +2846,15 @@ -- method Label::set_max_width_chars -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_label_set_max_width_chars" gtk_label_set_max_width_chars :: Ptr Label -> -- _obj : TInterface "Gtk" "Label"- Int32 -> -- n_chars : TBasicType TInt32+ Int32 -> -- n_chars : TBasicType TInt IO () @@ -2737,7 +2877,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2772,7 +2912,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2803,7 +2943,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2833,7 +2973,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "single_line_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2863,7 +3003,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2894,7 +3034,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2925,7 +3065,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "track_links", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2955,7 +3095,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2985,7 +3125,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3013,15 +3153,15 @@ -- method Label::set_width_chars -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_label_set_width_chars" gtk_label_set_width_chars :: Ptr Label -> -- _obj : TInterface "Gtk" "Label"- Int32 -> -- n_chars : TBasicType TInt32+ Int32 -> -- n_chars : TBasicType TInt IO () @@ -3044,7 +3184,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -3074,7 +3214,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Label where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.LabelAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -73,6 +73,7 @@ LayoutHeightPropertyInfo , constructLayoutHeight , getLayoutHeight ,+ layoutHeight , setLayoutHeight , @@ -80,6 +81,7 @@ LayoutWidthPropertyInfo , constructLayoutWidth , getLayoutWidth ,+ layoutWidth , setLayoutWidth , @@ -87,9 +89,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -454,17 +456,18 @@ #endif -- VVV Prop "height"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getLayoutHeight :: (MonadIO m, LayoutK o) => o -> m Word32-getLayoutHeight obj = liftIO $ getObjectPropertyCUInt obj "height"+getLayoutHeight obj = liftIO $ getObjectPropertyUInt32 obj "height" setLayoutHeight :: (MonadIO m, LayoutK o) => o -> Word32 -> m ()-setLayoutHeight obj val = liftIO $ setObjectPropertyCUInt obj "height" val+setLayoutHeight obj val = liftIO $ setObjectPropertyUInt32 obj "height" val constructLayoutHeight :: Word32 -> IO ([Char], GValue)-constructLayoutHeight val = constructObjectPropertyCUInt "height" val+constructLayoutHeight val = constructObjectPropertyUInt32 "height" val data LayoutHeightPropertyInfo instance AttrInfo LayoutHeightPropertyInfo where@@ -476,19 +479,21 @@ attrGet _ = getLayoutHeight attrSet _ = setLayoutHeight attrConstruct _ = constructLayoutHeight+ attrClear _ = undefined -- VVV Prop "width"- -- Type: TBasicType TUInt32+ -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getLayoutWidth :: (MonadIO m, LayoutK o) => o -> m Word32-getLayoutWidth obj = liftIO $ getObjectPropertyCUInt obj "width"+getLayoutWidth obj = liftIO $ getObjectPropertyUInt32 obj "width" setLayoutWidth :: (MonadIO m, LayoutK o) => o -> Word32 -> m ()-setLayoutWidth obj val = liftIO $ setObjectPropertyCUInt obj "width" val+setLayoutWidth obj val = liftIO $ setObjectPropertyUInt32 obj "width" val constructLayoutWidth :: Word32 -> IO ([Char], GValue)-constructLayoutWidth val = constructObjectPropertyCUInt "width" val+constructLayoutWidth val = constructObjectPropertyUInt32 "width" val data LayoutWidthPropertyInfo instance AttrInfo LayoutWidthPropertyInfo where@@ -500,10 +505,17 @@ attrGet _ = getLayoutWidth attrSet _ = setLayoutWidth attrConstruct _ = constructLayoutWidth+ attrClear _ = undefined type instance AttributeList Layout = LayoutAttributeList type LayoutAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("height", LayoutHeightPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("width", LayoutWidthPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +layoutHeight :: AttrLabelProxy "height"+layoutHeight = AttrLabelProxy++layoutWidth :: AttrLabelProxy "width"+layoutWidth = AttrLabelProxy+ type instance SignalList Layout = LayoutSignalList type LayoutSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -511,7 +523,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Layout"+-- returnType : Just (TInterface "Gtk" "Layout") -- throws : False -- Skip return : False @@ -548,7 +560,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Window"+-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -577,7 +589,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Adjustment"+-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -604,16 +616,16 @@ -- method Layout::get_size -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_layout_get_size" gtk_layout_get_size :: Ptr Layout -> -- _obj : TInterface "Gtk" "Layout"- Ptr Word32 -> -- width : TBasicType TUInt32- Ptr Word32 -> -- height : TBasicType TUInt32+ Ptr Word32 -> -- width : TBasicType TUInt+ Ptr Word32 -> -- height : TBasicType TUInt IO () @@ -641,7 +653,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Adjustment"+-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -668,17 +680,17 @@ -- method Layout::move -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_layout_move" gtk_layout_move :: Ptr Layout -> -- _obj : TInterface "Gtk" "Layout" Ptr Widget -> -- child_widget : TInterface "Gtk" "Widget"- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt IO () @@ -703,17 +715,17 @@ -- method Layout::put -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_layout_put" gtk_layout_put :: Ptr Layout -> -- _obj : TInterface "Gtk" "Layout" Ptr Widget -> -- child_widget : TInterface "Gtk" "Widget"- Int32 -> -- x : TBasicType TInt32- Int32 -> -- y : TBasicType TInt32+ Int32 -> -- x : TBasicType TInt+ Int32 -> -- y : TBasicType TInt IO () @@ -740,7 +752,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -773,16 +785,16 @@ -- method Layout::set_size -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_layout_set_size" gtk_layout_set_size :: Ptr Layout -> -- _obj : TInterface "Gtk" "Layout"- Word32 -> -- width : TBasicType TUInt32- Word32 -> -- height : TBasicType TUInt32+ Word32 -> -- width : TBasicType TUInt+ Word32 -> -- height : TBasicType TUInt IO () @@ -806,7 +818,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Layout where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -97,6 +97,7 @@ LevelBarInvertedPropertyInfo , constructLevelBarInverted , getLevelBarInverted ,+ levelBarInverted , setLevelBarInverted , @@ -104,6 +105,7 @@ LevelBarMaxValuePropertyInfo , constructLevelBarMaxValue , getLevelBarMaxValue ,+ levelBarMaxValue , setLevelBarMaxValue , @@ -111,6 +113,7 @@ LevelBarMinValuePropertyInfo , constructLevelBarMinValue , getLevelBarMinValue ,+ levelBarMinValue , setLevelBarMinValue , @@ -118,6 +121,7 @@ LevelBarModePropertyInfo , constructLevelBarMode , getLevelBarMode ,+ levelBarMode , setLevelBarMode , @@ -125,6 +129,7 @@ LevelBarValuePropertyInfo , constructLevelBarValue , getLevelBarValue ,+ levelBarValue , setLevelBarValue , @@ -147,9 +152,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -536,6 +541,7 @@ -- VVV Prop "inverted" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLevelBarInverted :: (MonadIO m, LevelBarK o) => o -> m Bool getLevelBarInverted obj = liftIO $ getObjectPropertyBool obj "inverted"@@ -556,10 +562,12 @@ attrGet _ = getLevelBarInverted attrSet _ = setLevelBarInverted attrConstruct _ = constructLevelBarInverted+ attrClear _ = undefined -- VVV Prop "max-value" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLevelBarMaxValue :: (MonadIO m, LevelBarK o) => o -> m Double getLevelBarMaxValue obj = liftIO $ getObjectPropertyDouble obj "max-value"@@ -580,10 +588,12 @@ attrGet _ = getLevelBarMaxValue attrSet _ = setLevelBarMaxValue attrConstruct _ = constructLevelBarMaxValue+ attrClear _ = undefined -- VVV Prop "min-value" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLevelBarMinValue :: (MonadIO m, LevelBarK o) => o -> m Double getLevelBarMinValue obj = liftIO $ getObjectPropertyDouble obj "min-value"@@ -604,10 +614,12 @@ attrGet _ = getLevelBarMinValue attrSet _ = setLevelBarMinValue attrConstruct _ = constructLevelBarMinValue+ attrClear _ = undefined -- VVV Prop "mode" -- Type: TInterface "Gtk" "LevelBarMode" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLevelBarMode :: (MonadIO m, LevelBarK o) => o -> m LevelBarMode getLevelBarMode obj = liftIO $ getObjectPropertyEnum obj "mode"@@ -628,10 +640,12 @@ attrGet _ = getLevelBarMode attrSet _ = setLevelBarMode attrConstruct _ = constructLevelBarMode+ attrClear _ = undefined -- VVV Prop "value" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLevelBarValue :: (MonadIO m, LevelBarK o) => o -> m Double getLevelBarValue obj = liftIO $ getObjectPropertyDouble obj "value"@@ -652,10 +666,26 @@ attrGet _ = getLevelBarValue attrSet _ = setLevelBarValue attrConstruct _ = constructLevelBarValue+ attrClear _ = undefined type instance AttributeList LevelBar = LevelBarAttributeList type LevelBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", LevelBarInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxValue", LevelBarMaxValuePropertyInfo), '("minValue", LevelBarMinValuePropertyInfo), '("mode", LevelBarModePropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", LevelBarValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +levelBarInverted :: AttrLabelProxy "inverted"+levelBarInverted = AttrLabelProxy++levelBarMaxValue :: AttrLabelProxy "maxValue"+levelBarMaxValue = AttrLabelProxy++levelBarMinValue :: AttrLabelProxy "minValue"+levelBarMinValue = AttrLabelProxy++levelBarMode :: AttrLabelProxy "mode"+levelBarMode = AttrLabelProxy++levelBarValue :: AttrLabelProxy "value"+levelBarValue = AttrLabelProxy+ data LevelBarOffsetChangedSignalInfo instance SignalInfo LevelBarOffsetChangedSignalInfo where type HaskellCallbackType LevelBarOffsetChangedSignalInfo = LevelBarOffsetChangedCallback@@ -668,7 +698,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "LevelBar"+-- returnType : Just (TInterface "Gtk" "LevelBar") -- throws : False -- Skip return : False @@ -689,7 +719,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "min_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "LevelBar"+-- returnType : Just (TInterface "Gtk" "LevelBar") -- throws : False -- Skip return : False @@ -716,7 +746,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -750,7 +780,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -778,7 +808,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -806,7 +836,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -834,7 +864,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "LevelBarMode"+-- returnType : Just (TInterface "Gtk" "LevelBarMode") -- throws : False -- Skip return : False @@ -862,7 +892,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -903,7 +933,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -931,7 +961,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -966,7 +996,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -996,7 +1026,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1026,7 +1056,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1056,7 +1086,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gtk" "LevelBarMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1086,7 +1116,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.LevelBar where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.LevelBarAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -52,6 +52,7 @@ LinkButtonUriPropertyInfo , constructLinkButtonUri , getLinkButtonUri ,+ linkButtonUri , setLinkButtonUri , @@ -59,6 +60,7 @@ LinkButtonVisitedPropertyInfo , constructLinkButtonVisited , getLinkButtonVisited ,+ linkButtonVisited , setLinkButtonVisited , @@ -81,9 +83,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -519,15 +521,16 @@ -- VVV Prop "uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLinkButtonUri :: (MonadIO m, LinkButtonK o) => o -> m T.Text-getLinkButtonUri obj = liftIO $ getObjectPropertyString obj "uri"+getLinkButtonUri obj = liftIO $ checkUnexpectedNothing "getLinkButtonUri" $ getObjectPropertyString obj "uri" setLinkButtonUri :: (MonadIO m, LinkButtonK o) => o -> T.Text -> m ()-setLinkButtonUri obj val = liftIO $ setObjectPropertyString obj "uri" val+setLinkButtonUri obj val = liftIO $ setObjectPropertyString obj "uri" (Just val) constructLinkButtonUri :: T.Text -> IO ([Char], GValue)-constructLinkButtonUri val = constructObjectPropertyString "uri" val+constructLinkButtonUri val = constructObjectPropertyString "uri" (Just val) data LinkButtonUriPropertyInfo instance AttrInfo LinkButtonUriPropertyInfo where@@ -539,10 +542,12 @@ attrGet _ = getLinkButtonUri attrSet _ = setLinkButtonUri attrConstruct _ = constructLinkButtonUri+ attrClear _ = undefined -- VVV Prop "visited" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getLinkButtonVisited :: (MonadIO m, LinkButtonK o) => o -> m Bool getLinkButtonVisited obj = liftIO $ getObjectPropertyBool obj "visited"@@ -563,10 +568,17 @@ attrGet _ = getLinkButtonVisited attrSet _ = setLinkButtonVisited attrConstruct _ = constructLinkButtonVisited+ attrClear _ = undefined type instance AttributeList LinkButton = LinkButtonAttributeList type LinkButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("uri", LinkButtonUriPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visited", LinkButtonVisitedPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +linkButtonUri :: AttrLabelProxy "uri"+linkButtonUri = AttrLabelProxy++linkButtonVisited :: AttrLabelProxy "visited"+linkButtonVisited = AttrLabelProxy+ data LinkButtonActivateLinkSignalInfo instance SignalInfo LinkButtonActivateLinkSignalInfo where type HaskellCallbackType LinkButtonActivateLinkSignalInfo = LinkButtonActivateLinkCallback@@ -579,7 +591,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "LinkButton"+-- returnType : Just (TInterface "Gtk" "LinkButton") -- throws : False -- Skip return : False @@ -604,7 +616,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "LinkButton"+-- returnType : Just (TInterface "Gtk" "LinkButton") -- throws : False -- Skip return : False @@ -637,7 +649,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -666,7 +678,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -694,7 +706,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -725,7 +737,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.LinkButton where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.LinkButtonAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -163,6 +163,7 @@ ListBoxActivateOnSingleClickPropertyInfo, constructListBoxActivateOnSingleClick , getListBoxActivateOnSingleClick ,+ listBoxActivateOnSingleClick , setListBoxActivateOnSingleClick , @@ -170,6 +171,7 @@ ListBoxSelectionModePropertyInfo , constructListBoxSelectionMode , getListBoxSelectionMode ,+ listBoxSelectionMode , setListBoxSelectionMode , @@ -276,9 +278,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -987,6 +989,7 @@ -- VVV Prop "activate-on-single-click" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getListBoxActivateOnSingleClick :: (MonadIO m, ListBoxK o) => o -> m Bool getListBoxActivateOnSingleClick obj = liftIO $ getObjectPropertyBool obj "activate-on-single-click"@@ -1007,10 +1010,12 @@ attrGet _ = getListBoxActivateOnSingleClick attrSet _ = setListBoxActivateOnSingleClick attrConstruct _ = constructListBoxActivateOnSingleClick+ attrClear _ = undefined -- VVV Prop "selection-mode" -- Type: TInterface "Gtk" "SelectionMode" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getListBoxSelectionMode :: (MonadIO m, ListBoxK o) => o -> m SelectionMode getListBoxSelectionMode obj = liftIO $ getObjectPropertyEnum obj "selection-mode"@@ -1031,10 +1036,17 @@ attrGet _ = getListBoxSelectionMode attrSet _ = setListBoxSelectionMode attrConstruct _ = constructListBoxSelectionMode+ attrClear _ = undefined type instance AttributeList ListBox = ListBoxAttributeList type ListBoxAttributeList = ('[ '("activateOnSingleClick", ListBoxActivateOnSingleClickPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectionMode", ListBoxSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +listBoxActivateOnSingleClick :: AttrLabelProxy "activateOnSingleClick"+listBoxActivateOnSingleClick = AttrLabelProxy++listBoxSelectionMode :: AttrLabelProxy "selectionMode"+listBoxSelectionMode = AttrLabelProxy+ data ListBoxActivateCursorRowSignalInfo instance SignalInfo ListBoxActivateCursorRowSignalInfo where type HaskellCallbackType ListBoxActivateCursorRowSignalInfo = ListBoxActivateCursorRowCallback@@ -1082,7 +1094,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "ListBox"+-- returnType : Just (TInterface "Gtk" "ListBox") -- throws : False -- Skip return : False @@ -1101,9 +1113,9 @@ -- method ListBox::bind_model -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "create_widget_func", argType = TInterface "Gtk" "ListBoxCreateWidgetFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "create_widget_func", argType = TInterface "Gtk" "ListBoxCreateWidgetFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1111,7 +1123,7 @@ Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" Ptr Gio.ListModel -> -- model : TInterface "Gio" "ListModel" FunPtr ListBoxCreateWidgetFuncC -> -- create_widget_func : TInterface "Gtk" "ListBoxCreateWidgetFunc"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- user_data_free_func : TInterface "GLib" "DestroyNotify" IO () @@ -1149,7 +1161,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1180,7 +1192,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1207,7 +1219,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1235,7 +1247,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Adjustment"+-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -1262,46 +1274,47 @@ -- method ListBox::get_row_at_index -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ListBoxRow"+-- returnType : Just (TInterface "Gtk" "ListBoxRow") -- throws : False -- Skip return : False foreign import ccall "gtk_list_box_get_row_at_index" gtk_list_box_get_row_at_index :: Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"- Int32 -> -- index_ : TBasicType TInt32+ Int32 -> -- index_ : TBasicType TInt IO (Ptr ListBoxRow) listBoxGetRowAtIndex :: (MonadIO m, ListBoxK a) => a -- _obj- -> Int32 -- index- -> m ListBoxRow -- result-listBoxGetRowAtIndex _obj index = liftIO $ do+ -> Int32 -- index_+ -> m (Maybe ListBoxRow) -- result+listBoxGetRowAtIndex _obj index_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj- result <- gtk_list_box_get_row_at_index _obj' index- checkUnexpectedReturnNULL "gtk_list_box_get_row_at_index" result- result' <- (newObject ListBoxRow) result+ result <- gtk_list_box_get_row_at_index _obj' index_+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (newObject ListBoxRow) result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data ListBoxGetRowAtIndexMethodInfo-instance (signature ~ (Int32 -> m ListBoxRow), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetRowAtIndexMethodInfo a signature where+instance (signature ~ (Int32 -> m (Maybe ListBoxRow)), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetRowAtIndexMethodInfo a signature where overloadedMethod _ = listBoxGetRowAtIndex -- method ListBox::get_row_at_y -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ListBoxRow"+-- returnType : Just (TInterface "Gtk" "ListBoxRow") -- throws : False -- Skip return : False foreign import ccall "gtk_list_box_get_row_at_y" gtk_list_box_get_row_at_y :: Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"- Int32 -> -- y : TBasicType TInt32+ Int32 -> -- y : TBasicType TInt IO (Ptr ListBoxRow) @@ -1309,24 +1322,25 @@ (MonadIO m, ListBoxK a) => a -- _obj -> Int32 -- y- -> m ListBoxRow -- result+ -> m (Maybe ListBoxRow) -- result listBoxGetRowAtY _obj y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_list_box_get_row_at_y _obj' y- checkUnexpectedReturnNULL "gtk_list_box_get_row_at_y" result- result' <- (newObject ListBoxRow) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (newObject ListBoxRow) result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data ListBoxGetRowAtYMethodInfo-instance (signature ~ (Int32 -> m ListBoxRow), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetRowAtYMethodInfo a signature where+instance (signature ~ (Int32 -> m (Maybe ListBoxRow)), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetRowAtYMethodInfo a signature where overloadedMethod _ = listBoxGetRowAtY -- method ListBox::get_selected_row -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ListBoxRow"+-- returnType : Just (TInterface "Gtk" "ListBoxRow") -- throws : False -- Skip return : False @@ -1355,7 +1369,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Gtk" "ListBoxRow")+-- returnType : Just (TGList (TInterface "Gtk" "ListBoxRow")) -- throws : False -- Skip return : False @@ -1371,7 +1385,6 @@ listBoxGetSelectedRows _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_list_box_get_selected_rows _obj'- checkUnexpectedReturnNULL "gtk_list_box_get_selected_rows" result result' <- unpackGList result result'' <- mapM (newObject ListBoxRow) result' g_list_free result@@ -1386,7 +1399,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "SelectionMode"+-- returnType : Just (TInterface "Gtk" "SelectionMode") -- throws : False -- Skip return : False @@ -1412,16 +1425,16 @@ -- method ListBox::insert -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_list_box_insert" gtk_list_box_insert :: Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" Ptr Widget -> -- child : TInterface "Gtk" "Widget"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt IO () @@ -1447,7 +1460,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1474,7 +1487,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1501,7 +1514,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1528,7 +1541,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1559,7 +1572,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1586,7 +1599,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1619,16 +1632,16 @@ -- method ListBox::selected_foreach -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "ListBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "ListBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_list_box_selected_foreach" gtk_list_box_selected_foreach :: Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" FunPtr ListBoxForeachFuncC -> -- func : TInterface "Gtk" "ListBoxForeachFunc"- Ptr () -> -- data : TBasicType TVoid+ Ptr () -> -- data : TBasicType TPtr IO () @@ -1654,7 +1667,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1684,7 +1697,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1717,16 +1730,16 @@ -- method ListBox::set_filter_func -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_func", argType = TInterface "Gtk" "ListBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_func", argType = TInterface "Gtk" "ListBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_list_box_set_filter_func" gtk_list_box_set_filter_func :: Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" FunPtr ListBoxFilterFuncC -> -- filter_func : TInterface "Gtk" "ListBoxFilterFunc"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -1755,16 +1768,16 @@ -- method ListBox::set_header_func -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "update_header", argType = TInterface "Gtk" "ListBoxUpdateHeaderFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "update_header", argType = TInterface "Gtk" "ListBoxUpdateHeaderFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_list_box_set_header_func" gtk_list_box_set_header_func :: Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" FunPtr ListBoxUpdateHeaderFuncC -> -- update_header : TInterface "Gtk" "ListBoxUpdateHeaderFunc"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -1795,7 +1808,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "placeholder", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1830,7 +1843,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1858,16 +1871,16 @@ -- method ListBox::set_sort_func -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "ListBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "ListBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_list_box_set_sort_func" gtk_list_box_set_sort_func :: Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" FunPtr ListBoxSortFuncC -> -- sort_func : TInterface "Gtk" "ListBoxSortFunc"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -1898,7 +1911,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1925,7 +1938,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ListBox where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ListBoxAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -73,6 +73,7 @@ ListBoxRowActivatablePropertyInfo , constructListBoxRowActivatable , getListBoxRowActivatable ,+ listBoxRowActivatable , setListBoxRowActivatable , @@ -80,6 +81,7 @@ ListBoxRowSelectablePropertyInfo , constructListBoxRowSelectable , getListBoxRowSelectable ,+ listBoxRowSelectable , setListBoxRowSelectable , @@ -102,9 +104,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -508,6 +510,7 @@ -- VVV Prop "activatable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getListBoxRowActivatable :: (MonadIO m, ListBoxRowK o) => o -> m Bool getListBoxRowActivatable obj = liftIO $ getObjectPropertyBool obj "activatable"@@ -528,10 +531,12 @@ attrGet _ = getListBoxRowActivatable attrSet _ = setListBoxRowActivatable attrConstruct _ = constructListBoxRowActivatable+ attrClear _ = undefined -- VVV Prop "selectable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getListBoxRowSelectable :: (MonadIO m, ListBoxRowK o) => o -> m Bool getListBoxRowSelectable obj = liftIO $ getObjectPropertyBool obj "selectable"@@ -552,10 +557,17 @@ attrGet _ = getListBoxRowSelectable attrSet _ = setListBoxRowSelectable attrConstruct _ = constructListBoxRowSelectable+ attrClear _ = undefined type instance AttributeList ListBoxRow = ListBoxRowAttributeList type ListBoxRowAttributeList = ('[ '("activatable", ListBoxRowActivatablePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectable", ListBoxRowSelectablePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +listBoxRowActivatable :: AttrLabelProxy "activatable"+listBoxRowActivatable = AttrLabelProxy++listBoxRowSelectable :: AttrLabelProxy "selectable"+listBoxRowSelectable = AttrLabelProxy+ data ListBoxRowActivateSignalInfo instance SignalInfo ListBoxRowActivateSignalInfo where type HaskellCallbackType ListBoxRowActivateSignalInfo = ListBoxRowActivateCallback@@ -568,7 +580,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "ListBoxRow"+-- returnType : Just (TInterface "Gtk" "ListBoxRow") -- throws : False -- Skip return : False @@ -589,7 +601,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -616,7 +628,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -644,7 +656,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -656,24 +668,25 @@ listBoxRowGetHeader :: (MonadIO m, ListBoxRowK a) => a -- _obj- -> m Widget -- result+ -> m (Maybe Widget) -- result listBoxRowGetHeader _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_list_box_row_get_header _obj'- checkUnexpectedReturnNULL "gtk_list_box_row_get_header" result- result' <- (newObject Widget) result+ maybeResult <- convertIfNonNull result $ \result' -> do+ result'' <- (newObject Widget) result'+ return result'' touchManagedPtr _obj- return result'+ return maybeResult data ListBoxRowGetHeaderMethodInfo-instance (signature ~ (m Widget), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowGetHeaderMethodInfo a signature where+instance (signature ~ (m (Maybe Widget)), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowGetHeaderMethodInfo a signature where overloadedMethod _ = listBoxRowGetHeader -- method ListBoxRow::get_index -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -700,7 +713,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -728,7 +741,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -756,7 +769,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "activatable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -786,7 +799,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "header", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -821,7 +834,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selectable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ListBoxRow where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ListBoxRowAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -105,9 +105,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -241,14 +241,14 @@ -- method ListStore::new -- method type : Constructor--- Args : [Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TInterface "Gtk" "ListStore"+-- Args : [Arg {argCName = "n_columns", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_columns", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Just (TInterface "Gtk" "ListStore") -- throws : False -- Skip return : False foreign import ccall "gtk_list_store_newv" gtk_list_store_newv :: - Int32 -> -- n_columns : TBasicType TInt32+ Int32 -> -- n_columns : TBasicType TInt Ptr CGType -> -- types : TCArray False (-1) 0 (TBasicType TGType) IO (Ptr ListStore) @@ -270,7 +270,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -300,7 +300,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -325,16 +325,16 @@ -- method ListStore::insert -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_list_store_insert" gtk_list_store_insert :: Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt IO () @@ -359,7 +359,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -397,7 +397,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -433,19 +433,19 @@ -- method ListStore::insert_with_valuesv -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TCArray False (-1) 5 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 5 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TVoid+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TCArray False (-1) 5 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 5 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_list_store_insert_with_valuesv" gtk_list_store_insert_with_valuesv :: Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"- Int32 -> -- position : TBasicType TInt32- Ptr Int32 -> -- columns : TCArray False (-1) 5 (TBasicType TInt32)+ Int32 -> -- position : TBasicType TInt+ Ptr Int32 -> -- columns : TCArray False (-1) 5 (TBasicType TInt) Ptr GValue -> -- values : TCArray False (-1) 5 (TInterface "GObject" "Value")- Int32 -> -- n_values : TBasicType TInt32+ Int32 -> -- n_values : TBasicType TInt IO () @@ -482,7 +482,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -514,7 +514,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -553,7 +553,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -592,7 +592,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -622,7 +622,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -652,15 +652,15 @@ -- method ListStore::reorder -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray True (-1) (-1) (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray True (-1) (-1) (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_list_store_reorder" gtk_list_store_reorder :: Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore"- Ptr Int32 -> -- new_order : TCArray True (-1) (-1) (TBasicType TInt32)+ Ptr Int32 -> -- new_order : TCArray True (-1) (-1) (TBasicType TInt) IO () @@ -683,15 +683,15 @@ -- method ListStore::set_column_types -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TVoid+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_columns", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_columns", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_list_store_set_column_types" gtk_list_store_set_column_types :: Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore"- Int32 -> -- n_columns : TBasicType TInt32+ Int32 -> -- n_columns : TBasicType TInt Ptr CGType -> -- types : TCArray False (-1) 1 (TBasicType TGType) IO () @@ -716,16 +716,16 @@ -- method ListStore::set_value -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_list_store_set_value" gtk_list_store_set_value :: Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"- Int32 -> -- column : TBasicType TInt32+ Int32 -> -- column : TBasicType TInt Ptr GValue -> -- value : TInterface "GObject" "Value" IO () @@ -753,18 +753,18 @@ -- method ListStore::set -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TVoid+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_list_store_set_valuesv" gtk_list_store_set_valuesv :: Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"- Ptr Int32 -> -- columns : TCArray False (-1) 4 (TBasicType TInt32)+ Ptr Int32 -> -- columns : TCArray False (-1) 4 (TBasicType TInt) Ptr GValue -> -- values : TCArray False (-1) 4 (TInterface "GObject" "Value")- Int32 -> -- n_values : TBasicType TInt32+ Int32 -> -- n_values : TBasicType TInt IO () @@ -801,7 +801,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "a", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ListStore where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -36,43 +36,55 @@ -- * Properties -- ** Permission LockButtonPermissionPropertyInfo ,+ clearLockButtonPermission , constructLockButtonPermission , getLockButtonPermission ,+ lockButtonPermission , setLockButtonPermission , -- ** TextLock LockButtonTextLockPropertyInfo ,+ clearLockButtonTextLock , constructLockButtonTextLock , getLockButtonTextLock ,+ lockButtonTextLock , setLockButtonTextLock , -- ** TextUnlock LockButtonTextUnlockPropertyInfo ,+ clearLockButtonTextUnlock , constructLockButtonTextUnlock , getLockButtonTextUnlock ,+ lockButtonTextUnlock , setLockButtonTextUnlock , -- ** TooltipLock LockButtonTooltipLockPropertyInfo ,+ clearLockButtonTooltipLock , constructLockButtonTooltipLock , getLockButtonTooltipLock ,+ lockButtonTooltipLock , setLockButtonTooltipLock , -- ** TooltipNotAuthorized LockButtonTooltipNotAuthorizedPropertyInfo,+ clearLockButtonTooltipNotAuthorized , constructLockButtonTooltipNotAuthorized , getLockButtonTooltipNotAuthorized ,+ lockButtonTooltipNotAuthorized , setLockButtonTooltipNotAuthorized , -- ** TooltipUnlock LockButtonTooltipUnlockPropertyInfo ,+ clearLockButtonTooltipUnlock , constructLockButtonTooltipUnlock , getLockButtonTooltipUnlock ,+ lockButtonTooltipUnlock , setLockButtonTooltipUnlock , @@ -80,9 +92,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -477,19 +489,23 @@ -- VVV Prop "permission" -- Type: TInterface "Gio" "Permission" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getLockButtonPermission :: (MonadIO m, LockButtonK o) => o -> m Gio.Permission-getLockButtonPermission obj = liftIO $ getObjectPropertyObject obj "permission" Gio.Permission+getLockButtonPermission obj = liftIO $ checkUnexpectedNothing "getLockButtonPermission" $ getObjectPropertyObject obj "permission" Gio.Permission setLockButtonPermission :: (MonadIO m, LockButtonK o, Gio.PermissionK a) => o -> a -> m ()-setLockButtonPermission obj val = liftIO $ setObjectPropertyObject obj "permission" val+setLockButtonPermission obj val = liftIO $ setObjectPropertyObject obj "permission" (Just val) constructLockButtonPermission :: (Gio.PermissionK a) => a -> IO ([Char], GValue)-constructLockButtonPermission val = constructObjectPropertyObject "permission" val+constructLockButtonPermission val = constructObjectPropertyObject "permission" (Just val) +clearLockButtonPermission :: (MonadIO m, LockButtonK o) => o -> m ()+clearLockButtonPermission obj = liftIO $ setObjectPropertyObject obj "permission" (Nothing :: Maybe Gio.Permission)+ data LockButtonPermissionPropertyInfo instance AttrInfo LockButtonPermissionPropertyInfo where- type AttrAllowedOps LockButtonPermissionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps LockButtonPermissionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint LockButtonPermissionPropertyInfo = Gio.PermissionK type AttrBaseTypeConstraint LockButtonPermissionPropertyInfo = LockButtonK type AttrGetType LockButtonPermissionPropertyInfo = Gio.Permission@@ -497,130 +513,174 @@ attrGet _ = getLockButtonPermission attrSet _ = setLockButtonPermission attrConstruct _ = constructLockButtonPermission+ attrClear _ = clearLockButtonPermission -- VVV Prop "text-lock" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Nothing,Nothing) -getLockButtonTextLock :: (MonadIO m, LockButtonK o) => o -> m T.Text+getLockButtonTextLock :: (MonadIO m, LockButtonK o) => o -> m (Maybe T.Text) getLockButtonTextLock obj = liftIO $ getObjectPropertyString obj "text-lock" setLockButtonTextLock :: (MonadIO m, LockButtonK o) => o -> T.Text -> m ()-setLockButtonTextLock obj val = liftIO $ setObjectPropertyString obj "text-lock" val+setLockButtonTextLock obj val = liftIO $ setObjectPropertyString obj "text-lock" (Just val) constructLockButtonTextLock :: T.Text -> IO ([Char], GValue)-constructLockButtonTextLock val = constructObjectPropertyString "text-lock" val+constructLockButtonTextLock val = constructObjectPropertyString "text-lock" (Just val) +clearLockButtonTextLock :: (MonadIO m, LockButtonK o) => o -> m ()+clearLockButtonTextLock obj = liftIO $ setObjectPropertyString obj "text-lock" (Nothing :: Maybe T.Text)+ data LockButtonTextLockPropertyInfo instance AttrInfo LockButtonTextLockPropertyInfo where- type AttrAllowedOps LockButtonTextLockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps LockButtonTextLockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint LockButtonTextLockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint LockButtonTextLockPropertyInfo = LockButtonK- type AttrGetType LockButtonTextLockPropertyInfo = T.Text+ type AttrGetType LockButtonTextLockPropertyInfo = (Maybe T.Text) type AttrLabel LockButtonTextLockPropertyInfo = "text-lock" attrGet _ = getLockButtonTextLock attrSet _ = setLockButtonTextLock attrConstruct _ = constructLockButtonTextLock+ attrClear _ = clearLockButtonTextLock -- VVV Prop "text-unlock" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Nothing,Nothing) -getLockButtonTextUnlock :: (MonadIO m, LockButtonK o) => o -> m T.Text+getLockButtonTextUnlock :: (MonadIO m, LockButtonK o) => o -> m (Maybe T.Text) getLockButtonTextUnlock obj = liftIO $ getObjectPropertyString obj "text-unlock" setLockButtonTextUnlock :: (MonadIO m, LockButtonK o) => o -> T.Text -> m ()-setLockButtonTextUnlock obj val = liftIO $ setObjectPropertyString obj "text-unlock" val+setLockButtonTextUnlock obj val = liftIO $ setObjectPropertyString obj "text-unlock" (Just val) constructLockButtonTextUnlock :: T.Text -> IO ([Char], GValue)-constructLockButtonTextUnlock val = constructObjectPropertyString "text-unlock" val+constructLockButtonTextUnlock val = constructObjectPropertyString "text-unlock" (Just val) +clearLockButtonTextUnlock :: (MonadIO m, LockButtonK o) => o -> m ()+clearLockButtonTextUnlock obj = liftIO $ setObjectPropertyString obj "text-unlock" (Nothing :: Maybe T.Text)+ data LockButtonTextUnlockPropertyInfo instance AttrInfo LockButtonTextUnlockPropertyInfo where- type AttrAllowedOps LockButtonTextUnlockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps LockButtonTextUnlockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint LockButtonTextUnlockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint LockButtonTextUnlockPropertyInfo = LockButtonK- type AttrGetType LockButtonTextUnlockPropertyInfo = T.Text+ type AttrGetType LockButtonTextUnlockPropertyInfo = (Maybe T.Text) type AttrLabel LockButtonTextUnlockPropertyInfo = "text-unlock" attrGet _ = getLockButtonTextUnlock attrSet _ = setLockButtonTextUnlock attrConstruct _ = constructLockButtonTextUnlock+ attrClear _ = clearLockButtonTextUnlock -- VVV Prop "tooltip-lock" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Nothing,Nothing) -getLockButtonTooltipLock :: (MonadIO m, LockButtonK o) => o -> m T.Text+getLockButtonTooltipLock :: (MonadIO m, LockButtonK o) => o -> m (Maybe T.Text) getLockButtonTooltipLock obj = liftIO $ getObjectPropertyString obj "tooltip-lock" setLockButtonTooltipLock :: (MonadIO m, LockButtonK o) => o -> T.Text -> m ()-setLockButtonTooltipLock obj val = liftIO $ setObjectPropertyString obj "tooltip-lock" val+setLockButtonTooltipLock obj val = liftIO $ setObjectPropertyString obj "tooltip-lock" (Just val) constructLockButtonTooltipLock :: T.Text -> IO ([Char], GValue)-constructLockButtonTooltipLock val = constructObjectPropertyString "tooltip-lock" val+constructLockButtonTooltipLock val = constructObjectPropertyString "tooltip-lock" (Just val) +clearLockButtonTooltipLock :: (MonadIO m, LockButtonK o) => o -> m ()+clearLockButtonTooltipLock obj = liftIO $ setObjectPropertyString obj "tooltip-lock" (Nothing :: Maybe T.Text)+ data LockButtonTooltipLockPropertyInfo instance AttrInfo LockButtonTooltipLockPropertyInfo where- type AttrAllowedOps LockButtonTooltipLockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps LockButtonTooltipLockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint LockButtonTooltipLockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint LockButtonTooltipLockPropertyInfo = LockButtonK- type AttrGetType LockButtonTooltipLockPropertyInfo = T.Text+ type AttrGetType LockButtonTooltipLockPropertyInfo = (Maybe T.Text) type AttrLabel LockButtonTooltipLockPropertyInfo = "tooltip-lock" attrGet _ = getLockButtonTooltipLock attrSet _ = setLockButtonTooltipLock attrConstruct _ = constructLockButtonTooltipLock+ attrClear _ = clearLockButtonTooltipLock -- VVV Prop "tooltip-not-authorized" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Nothing,Nothing) -getLockButtonTooltipNotAuthorized :: (MonadIO m, LockButtonK o) => o -> m T.Text+getLockButtonTooltipNotAuthorized :: (MonadIO m, LockButtonK o) => o -> m (Maybe T.Text) getLockButtonTooltipNotAuthorized obj = liftIO $ getObjectPropertyString obj "tooltip-not-authorized" setLockButtonTooltipNotAuthorized :: (MonadIO m, LockButtonK o) => o -> T.Text -> m ()-setLockButtonTooltipNotAuthorized obj val = liftIO $ setObjectPropertyString obj "tooltip-not-authorized" val+setLockButtonTooltipNotAuthorized obj val = liftIO $ setObjectPropertyString obj "tooltip-not-authorized" (Just val) constructLockButtonTooltipNotAuthorized :: T.Text -> IO ([Char], GValue)-constructLockButtonTooltipNotAuthorized val = constructObjectPropertyString "tooltip-not-authorized" val+constructLockButtonTooltipNotAuthorized val = constructObjectPropertyString "tooltip-not-authorized" (Just val) +clearLockButtonTooltipNotAuthorized :: (MonadIO m, LockButtonK o) => o -> m ()+clearLockButtonTooltipNotAuthorized obj = liftIO $ setObjectPropertyString obj "tooltip-not-authorized" (Nothing :: Maybe T.Text)+ data LockButtonTooltipNotAuthorizedPropertyInfo instance AttrInfo LockButtonTooltipNotAuthorizedPropertyInfo where- type AttrAllowedOps LockButtonTooltipNotAuthorizedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps LockButtonTooltipNotAuthorizedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint LockButtonTooltipNotAuthorizedPropertyInfo = (~) T.Text type AttrBaseTypeConstraint LockButtonTooltipNotAuthorizedPropertyInfo = LockButtonK- type AttrGetType LockButtonTooltipNotAuthorizedPropertyInfo = T.Text+ type AttrGetType LockButtonTooltipNotAuthorizedPropertyInfo = (Maybe T.Text) type AttrLabel LockButtonTooltipNotAuthorizedPropertyInfo = "tooltip-not-authorized" attrGet _ = getLockButtonTooltipNotAuthorized attrSet _ = setLockButtonTooltipNotAuthorized attrConstruct _ = constructLockButtonTooltipNotAuthorized+ attrClear _ = clearLockButtonTooltipNotAuthorized -- VVV Prop "tooltip-unlock" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Nothing,Nothing) -getLockButtonTooltipUnlock :: (MonadIO m, LockButtonK o) => o -> m T.Text+getLockButtonTooltipUnlock :: (MonadIO m, LockButtonK o) => o -> m (Maybe T.Text) getLockButtonTooltipUnlock obj = liftIO $ getObjectPropertyString obj "tooltip-unlock" setLockButtonTooltipUnlock :: (MonadIO m, LockButtonK o) => o -> T.Text -> m ()-setLockButtonTooltipUnlock obj val = liftIO $ setObjectPropertyString obj "tooltip-unlock" val+setLockButtonTooltipUnlock obj val = liftIO $ setObjectPropertyString obj "tooltip-unlock" (Just val) constructLockButtonTooltipUnlock :: T.Text -> IO ([Char], GValue)-constructLockButtonTooltipUnlock val = constructObjectPropertyString "tooltip-unlock" val+constructLockButtonTooltipUnlock val = constructObjectPropertyString "tooltip-unlock" (Just val) +clearLockButtonTooltipUnlock :: (MonadIO m, LockButtonK o) => o -> m ()+clearLockButtonTooltipUnlock obj = liftIO $ setObjectPropertyString obj "tooltip-unlock" (Nothing :: Maybe T.Text)+ data LockButtonTooltipUnlockPropertyInfo instance AttrInfo LockButtonTooltipUnlockPropertyInfo where- type AttrAllowedOps LockButtonTooltipUnlockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps LockButtonTooltipUnlockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint LockButtonTooltipUnlockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint LockButtonTooltipUnlockPropertyInfo = LockButtonK- type AttrGetType LockButtonTooltipUnlockPropertyInfo = T.Text+ type AttrGetType LockButtonTooltipUnlockPropertyInfo = (Maybe T.Text) type AttrLabel LockButtonTooltipUnlockPropertyInfo = "tooltip-unlock" attrGet _ = getLockButtonTooltipUnlock attrSet _ = setLockButtonTooltipUnlock attrConstruct _ = constructLockButtonTooltipUnlock+ attrClear _ = clearLockButtonTooltipUnlock type instance AttributeList LockButton = LockButtonAttributeList type LockButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("permission", LockButtonPermissionPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("textLock", LockButtonTextLockPropertyInfo), '("textUnlock", LockButtonTextUnlockPropertyInfo), '("tooltipLock", LockButtonTooltipLockPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipNotAuthorized", LockButtonTooltipNotAuthorizedPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("tooltipUnlock", LockButtonTooltipUnlockPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +lockButtonPermission :: AttrLabelProxy "permission"+lockButtonPermission = AttrLabelProxy++lockButtonTextLock :: AttrLabelProxy "textLock"+lockButtonTextLock = AttrLabelProxy++lockButtonTextUnlock :: AttrLabelProxy "textUnlock"+lockButtonTextUnlock = AttrLabelProxy++lockButtonTooltipLock :: AttrLabelProxy "tooltipLock"+lockButtonTooltipLock = AttrLabelProxy++lockButtonTooltipNotAuthorized :: AttrLabelProxy "tooltipNotAuthorized"+lockButtonTooltipNotAuthorized = AttrLabelProxy++lockButtonTooltipUnlock :: AttrLabelProxy "tooltipUnlock"+lockButtonTooltipUnlock = AttrLabelProxy+ type instance SignalList LockButton = LockButtonSignalList type LockButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -628,7 +688,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "LockButton"+-- returnType : Just (TInterface "Gtk" "LockButton") -- throws : False -- Skip return : False @@ -657,7 +717,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "Permission"+-- returnType : Just (TInterface "Gio" "Permission") -- throws : False -- Skip return : False @@ -686,7 +746,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.LockButton where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.LockButtonAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -154,15 +154,19 @@ -- * Properties -- ** AccelGroup MenuAccelGroupPropertyInfo ,+ clearMenuAccelGroup , constructMenuAccelGroup , getMenuAccelGroup ,+ menuAccelGroup , setMenuAccelGroup , -- ** AccelPath MenuAccelPathPropertyInfo ,+ clearMenuAccelPath , constructMenuAccelPath , getMenuAccelPath ,+ menuAccelPath , setMenuAccelPath , @@ -170,13 +174,16 @@ MenuActivePropertyInfo , constructMenuActive , getMenuActive ,+ menuActive , setMenuActive , -- ** AttachWidget MenuAttachWidgetPropertyInfo ,+ clearMenuAttachWidget , constructMenuAttachWidget , getMenuAttachWidget ,+ menuAttachWidget , setMenuAttachWidget , @@ -184,6 +191,7 @@ MenuMonitorPropertyInfo , constructMenuMonitor , getMenuMonitor ,+ menuMonitor , setMenuMonitor , @@ -191,6 +199,7 @@ MenuReserveToggleSizePropertyInfo , constructMenuReserveToggleSize , getMenuReserveToggleSize ,+ menuReserveToggleSize , setMenuReserveToggleSize , @@ -198,13 +207,16 @@ MenuTearoffStatePropertyInfo , constructMenuTearoffState , getMenuTearoffState ,+ menuTearoffState , setMenuTearoffState , -- ** TearoffTitle MenuTearoffTitlePropertyInfo ,+ clearMenuTearoffTitle , constructMenuTearoffTitle , getMenuTearoffTitle ,+ menuTearoffTitle , setMenuTearoffTitle , @@ -227,9 +239,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -666,19 +678,23 @@ -- VVV Prop "accel-group" -- Type: TInterface "Gtk" "AccelGroup" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getMenuAccelGroup :: (MonadIO m, MenuK o) => o -> m AccelGroup-getMenuAccelGroup obj = liftIO $ getObjectPropertyObject obj "accel-group" AccelGroup+getMenuAccelGroup obj = liftIO $ checkUnexpectedNothing "getMenuAccelGroup" $ getObjectPropertyObject obj "accel-group" AccelGroup setMenuAccelGroup :: (MonadIO m, MenuK o, AccelGroupK a) => o -> a -> m ()-setMenuAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" val+setMenuAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" (Just val) constructMenuAccelGroup :: (AccelGroupK a) => a -> IO ([Char], GValue)-constructMenuAccelGroup val = constructObjectPropertyObject "accel-group" val+constructMenuAccelGroup val = constructObjectPropertyObject "accel-group" (Just val) +clearMenuAccelGroup :: (MonadIO m, MenuK o) => o -> m ()+clearMenuAccelGroup obj = liftIO $ setObjectPropertyObject obj "accel-group" (Nothing :: Maybe AccelGroup)+ data MenuAccelGroupPropertyInfo instance AttrInfo MenuAccelGroupPropertyInfo where- type AttrAllowedOps MenuAccelGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps MenuAccelGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuAccelGroupPropertyInfo = AccelGroupK type AttrBaseTypeConstraint MenuAccelGroupPropertyInfo = MenuK type AttrGetType MenuAccelGroupPropertyInfo = AccelGroup@@ -686,23 +702,28 @@ attrGet _ = getMenuAccelGroup attrSet _ = setMenuAccelGroup attrConstruct _ = constructMenuAccelGroup+ attrClear _ = clearMenuAccelGroup -- VVV Prop "accel-path" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getMenuAccelPath :: (MonadIO m, MenuK o) => o -> m T.Text-getMenuAccelPath obj = liftIO $ getObjectPropertyString obj "accel-path"+getMenuAccelPath obj = liftIO $ checkUnexpectedNothing "getMenuAccelPath" $ getObjectPropertyString obj "accel-path" setMenuAccelPath :: (MonadIO m, MenuK o) => o -> T.Text -> m ()-setMenuAccelPath obj val = liftIO $ setObjectPropertyString obj "accel-path" val+setMenuAccelPath obj val = liftIO $ setObjectPropertyString obj "accel-path" (Just val) constructMenuAccelPath :: T.Text -> IO ([Char], GValue)-constructMenuAccelPath val = constructObjectPropertyString "accel-path" val+constructMenuAccelPath val = constructObjectPropertyString "accel-path" (Just val) +clearMenuAccelPath :: (MonadIO m, MenuK o) => o -> m ()+clearMenuAccelPath obj = liftIO $ setObjectPropertyString obj "accel-path" (Nothing :: Maybe T.Text)+ data MenuAccelPathPropertyInfo instance AttrInfo MenuAccelPathPropertyInfo where- type AttrAllowedOps MenuAccelPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps MenuAccelPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuAccelPathPropertyInfo = (~) T.Text type AttrBaseTypeConstraint MenuAccelPathPropertyInfo = MenuK type AttrGetType MenuAccelPathPropertyInfo = T.Text@@ -710,19 +731,21 @@ attrGet _ = getMenuAccelPath attrSet _ = setMenuAccelPath attrConstruct _ = constructMenuAccelPath+ attrClear _ = clearMenuAccelPath -- VVV Prop "active"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getMenuActive :: (MonadIO m, MenuK o) => o -> m Int32-getMenuActive obj = liftIO $ getObjectPropertyCInt obj "active"+getMenuActive obj = liftIO $ getObjectPropertyInt32 obj "active" setMenuActive :: (MonadIO m, MenuK o) => o -> Int32 -> m ()-setMenuActive obj val = liftIO $ setObjectPropertyCInt obj "active" val+setMenuActive obj val = liftIO $ setObjectPropertyInt32 obj "active" val constructMenuActive :: Int32 -> IO ([Char], GValue)-constructMenuActive val = constructObjectPropertyCInt "active" val+constructMenuActive val = constructObjectPropertyInt32 "active" val data MenuActivePropertyInfo instance AttrInfo MenuActivePropertyInfo where@@ -734,23 +757,28 @@ attrGet _ = getMenuActive attrSet _ = setMenuActive attrConstruct _ = constructMenuActive+ attrClear _ = undefined -- VVV Prop "attach-widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Nothing) getMenuAttachWidget :: (MonadIO m, MenuK o) => o -> m Widget-getMenuAttachWidget obj = liftIO $ getObjectPropertyObject obj "attach-widget" Widget+getMenuAttachWidget obj = liftIO $ checkUnexpectedNothing "getMenuAttachWidget" $ getObjectPropertyObject obj "attach-widget" Widget setMenuAttachWidget :: (MonadIO m, MenuK o, WidgetK a) => o -> a -> m ()-setMenuAttachWidget obj val = liftIO $ setObjectPropertyObject obj "attach-widget" val+setMenuAttachWidget obj val = liftIO $ setObjectPropertyObject obj "attach-widget" (Just val) constructMenuAttachWidget :: (WidgetK a) => a -> IO ([Char], GValue)-constructMenuAttachWidget val = constructObjectPropertyObject "attach-widget" val+constructMenuAttachWidget val = constructObjectPropertyObject "attach-widget" (Just val) +clearMenuAttachWidget :: (MonadIO m, MenuK o) => o -> m ()+clearMenuAttachWidget obj = liftIO $ setObjectPropertyObject obj "attach-widget" (Nothing :: Maybe Widget)+ data MenuAttachWidgetPropertyInfo instance AttrInfo MenuAttachWidgetPropertyInfo where- type AttrAllowedOps MenuAttachWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps MenuAttachWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuAttachWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint MenuAttachWidgetPropertyInfo = MenuK type AttrGetType MenuAttachWidgetPropertyInfo = Widget@@ -758,19 +786,21 @@ attrGet _ = getMenuAttachWidget attrSet _ = setMenuAttachWidget attrConstruct _ = constructMenuAttachWidget+ attrClear _ = clearMenuAttachWidget -- VVV Prop "monitor"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getMenuMonitor :: (MonadIO m, MenuK o) => o -> m Int32-getMenuMonitor obj = liftIO $ getObjectPropertyCInt obj "monitor"+getMenuMonitor obj = liftIO $ getObjectPropertyInt32 obj "monitor" setMenuMonitor :: (MonadIO m, MenuK o) => o -> Int32 -> m ()-setMenuMonitor obj val = liftIO $ setObjectPropertyCInt obj "monitor" val+setMenuMonitor obj val = liftIO $ setObjectPropertyInt32 obj "monitor" val constructMenuMonitor :: Int32 -> IO ([Char], GValue)-constructMenuMonitor val = constructObjectPropertyCInt "monitor" val+constructMenuMonitor val = constructObjectPropertyInt32 "monitor" val data MenuMonitorPropertyInfo instance AttrInfo MenuMonitorPropertyInfo where@@ -782,10 +812,12 @@ attrGet _ = getMenuMonitor attrSet _ = setMenuMonitor attrConstruct _ = constructMenuMonitor+ attrClear _ = undefined -- VVV Prop "reserve-toggle-size" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getMenuReserveToggleSize :: (MonadIO m, MenuK o) => o -> m Bool getMenuReserveToggleSize obj = liftIO $ getObjectPropertyBool obj "reserve-toggle-size"@@ -806,10 +838,12 @@ attrGet _ = getMenuReserveToggleSize attrSet _ = setMenuReserveToggleSize attrConstruct _ = constructMenuReserveToggleSize+ attrClear _ = undefined -- VVV Prop "tearoff-state" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getMenuTearoffState :: (MonadIO m, MenuK o) => o -> m Bool getMenuTearoffState obj = liftIO $ getObjectPropertyBool obj "tearoff-state"@@ -830,34 +864,64 @@ attrGet _ = getMenuTearoffState attrSet _ = setMenuTearoffState attrConstruct _ = constructMenuTearoffState+ attrClear _ = undefined -- VVV Prop "tearoff-title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getMenuTearoffTitle :: (MonadIO m, MenuK o) => o -> m T.Text+getMenuTearoffTitle :: (MonadIO m, MenuK o) => o -> m (Maybe T.Text) getMenuTearoffTitle obj = liftIO $ getObjectPropertyString obj "tearoff-title" setMenuTearoffTitle :: (MonadIO m, MenuK o) => o -> T.Text -> m ()-setMenuTearoffTitle obj val = liftIO $ setObjectPropertyString obj "tearoff-title" val+setMenuTearoffTitle obj val = liftIO $ setObjectPropertyString obj "tearoff-title" (Just val) constructMenuTearoffTitle :: T.Text -> IO ([Char], GValue)-constructMenuTearoffTitle val = constructObjectPropertyString "tearoff-title" val+constructMenuTearoffTitle val = constructObjectPropertyString "tearoff-title" (Just val) +clearMenuTearoffTitle :: (MonadIO m, MenuK o) => o -> m ()+clearMenuTearoffTitle obj = liftIO $ setObjectPropertyString obj "tearoff-title" (Nothing :: Maybe T.Text)+ data MenuTearoffTitlePropertyInfo instance AttrInfo MenuTearoffTitlePropertyInfo where- type AttrAllowedOps MenuTearoffTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps MenuTearoffTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuTearoffTitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint MenuTearoffTitlePropertyInfo = MenuK- type AttrGetType MenuTearoffTitlePropertyInfo = T.Text+ type AttrGetType MenuTearoffTitlePropertyInfo = (Maybe T.Text) type AttrLabel MenuTearoffTitlePropertyInfo = "tearoff-title" attrGet _ = getMenuTearoffTitle attrSet _ = setMenuTearoffTitle attrConstruct _ = constructMenuTearoffTitle+ attrClear _ = clearMenuTearoffTitle type instance AttributeList Menu = MenuAttributeList type MenuAttributeList = ('[ '("accelGroup", MenuAccelGroupPropertyInfo), '("accelPath", MenuAccelPathPropertyInfo), '("active", MenuActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attachWidget", MenuAttachWidgetPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("monitor", MenuMonitorPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("reserveToggleSize", MenuReserveToggleSizePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("takeFocus", MenuShellTakeFocusPropertyInfo), '("tearoffState", MenuTearoffStatePropertyInfo), '("tearoffTitle", MenuTearoffTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +menuAccelGroup :: AttrLabelProxy "accelGroup"+menuAccelGroup = AttrLabelProxy++menuAccelPath :: AttrLabelProxy "accelPath"+menuAccelPath = AttrLabelProxy++menuActive :: AttrLabelProxy "active"+menuActive = AttrLabelProxy++menuAttachWidget :: AttrLabelProxy "attachWidget"+menuAttachWidget = AttrLabelProxy++menuMonitor :: AttrLabelProxy "monitor"+menuMonitor = AttrLabelProxy++menuReserveToggleSize :: AttrLabelProxy "reserveToggleSize"+menuReserveToggleSize = AttrLabelProxy++menuTearoffState :: AttrLabelProxy "tearoffState"+menuTearoffState = AttrLabelProxy++menuTearoffTitle :: AttrLabelProxy "tearoffTitle"+menuTearoffTitle = AttrLabelProxy+ data MenuMoveScrollSignalInfo instance SignalInfo MenuMoveScrollSignalInfo where type HaskellCallbackType MenuMoveScrollSignalInfo = MenuMoveScrollCallback@@ -870,7 +934,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "Menu"+-- returnType : Just (TInterface "Gtk" "Menu") -- throws : False -- Skip return : False @@ -891,7 +955,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Menu"+-- returnType : Just (TInterface "Gtk" "Menu") -- throws : False -- Skip return : False @@ -914,19 +978,19 @@ -- method Menu::attach -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_menu_attach" gtk_menu_attach :: Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" Ptr Widget -> -- child : TInterface "Gtk" "Widget"- Word32 -> -- left_attach : TBasicType TUInt32- Word32 -> -- right_attach : TBasicType TUInt32- Word32 -> -- top_attach : TBasicType TUInt32- Word32 -> -- bottom_attach : TBasicType TUInt32+ Word32 -> -- left_attach : TBasicType TUInt+ Word32 -> -- right_attach : TBasicType TUInt+ Word32 -> -- top_attach : TBasicType TUInt+ Word32 -> -- bottom_attach : TBasicType TUInt IO () @@ -955,7 +1019,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attach_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detacher", argType = TInterface "Gtk" "MenuDetachFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -995,7 +1059,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1022,7 +1086,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "AccelGroup"+-- returnType : Just (TInterface "Gtk" "AccelGroup") -- throws : False -- Skip return : False @@ -1051,7 +1115,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1080,7 +1144,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1109,7 +1173,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1138,7 +1202,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1165,7 +1229,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1193,7 +1257,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1221,7 +1285,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1250,7 +1314,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1275,9 +1339,9 @@ -- method Menu::popup -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1286,8 +1350,8 @@ Ptr Widget -> -- parent_menu_shell : TInterface "Gtk" "Widget" Ptr Widget -> -- parent_menu_item : TInterface "Gtk" "Widget" FunPtr MenuPositionFuncC -> -- func : TInterface "Gtk" "MenuPositionFunc"- Ptr () -> -- data : TBasicType TVoid- Word32 -> -- button : TBasicType TUInt32+ Ptr () -> -- data : TBasicType TPtr+ Word32 -> -- button : TBasicType TUInt Word32 -> -- activate_time : TBasicType TUInt32 IO () @@ -1333,9 +1397,9 @@ -- method Menu::popup_for_device -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1345,9 +1409,9 @@ Ptr Widget -> -- parent_menu_shell : TInterface "Gtk" "Widget" Ptr Widget -> -- parent_menu_item : TInterface "Gtk" "Widget" FunPtr MenuPositionFuncC -> -- func : TInterface "Gtk" "MenuPositionFunc"- Ptr () -> -- data : TBasicType TVoid+ Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"- Word32 -> -- button : TBasicType TUInt32+ Word32 -> -- button : TBasicType TUInt Word32 -> -- activate_time : TBasicType TUInt32 IO () @@ -1399,16 +1463,16 @@ -- method Menu::reorder_child -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_menu_reorder_child" gtk_menu_reorder_child :: Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" Ptr Widget -> -- child : TInterface "Gtk" "Widget"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt IO () @@ -1434,7 +1498,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1461,7 +1525,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1496,7 +1560,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1529,15 +1593,15 @@ -- method Menu::set_active -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_menu_set_active" gtk_menu_set_active :: Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"- Word32 -> -- index : TBasicType TUInt32+ Word32 -> -- index : TBasicType TUInt IO () @@ -1558,15 +1622,15 @@ -- method Menu::set_monitor -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_menu_set_monitor" gtk_menu_set_monitor :: Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"- Int32 -> -- monitor_num : TBasicType TInt32+ Int32 -> -- monitor_num : TBasicType TInt IO () @@ -1589,7 +1653,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reserve_toggle_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1619,7 +1683,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1654,7 +1718,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "torn_off", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1684,7 +1748,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1715,7 +1779,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Gtk" "Widget")+-- returnType : Just (TGList (TInterface "Gtk" "Widget")) -- throws : False -- Skip return : False @@ -1731,7 +1795,6 @@ menuGetForAttachWidget widget = liftIO $ do let widget' = unsafeManagedPtrCastPtr widget result <- gtk_menu_get_for_attach_widget widget'- checkUnexpectedReturnNULL "gtk_menu_get_for_attach_widget" result result' <- unpackGList result result'' <- mapM (newObject Widget) result' touchManagedPtr widget
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Menu where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.MenuAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -52,6 +52,7 @@ MenuBarChildPackDirectionPropertyInfo , constructMenuBarChildPackDirection , getMenuBarChildPackDirection ,+ menuBarChildPackDirection , setMenuBarChildPackDirection , @@ -59,6 +60,7 @@ MenuBarPackDirectionPropertyInfo , constructMenuBarPackDirection , getMenuBarPackDirection ,+ menuBarPackDirection , setMenuBarPackDirection , @@ -66,9 +68,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -443,6 +445,7 @@ -- VVV Prop "child-pack-direction" -- Type: TInterface "Gtk" "PackDirection" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getMenuBarChildPackDirection :: (MonadIO m, MenuBarK o) => o -> m PackDirection getMenuBarChildPackDirection obj = liftIO $ getObjectPropertyEnum obj "child-pack-direction"@@ -463,10 +466,12 @@ attrGet _ = getMenuBarChildPackDirection attrSet _ = setMenuBarChildPackDirection attrConstruct _ = constructMenuBarChildPackDirection+ attrClear _ = undefined -- VVV Prop "pack-direction" -- Type: TInterface "Gtk" "PackDirection" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getMenuBarPackDirection :: (MonadIO m, MenuBarK o) => o -> m PackDirection getMenuBarPackDirection obj = liftIO $ getObjectPropertyEnum obj "pack-direction"@@ -487,10 +492,17 @@ attrGet _ = getMenuBarPackDirection attrSet _ = setMenuBarPackDirection attrConstruct _ = constructMenuBarPackDirection+ attrClear _ = undefined type instance AttributeList MenuBar = MenuBarAttributeList type MenuBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("childPackDirection", MenuBarChildPackDirectionPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("packDirection", MenuBarPackDirectionPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("takeFocus", MenuShellTakeFocusPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +menuBarChildPackDirection :: AttrLabelProxy "childPackDirection"+menuBarChildPackDirection = AttrLabelProxy++menuBarPackDirection :: AttrLabelProxy "packDirection"+menuBarPackDirection = AttrLabelProxy+ type instance SignalList MenuBar = MenuBarSignalList type MenuBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCurrent", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("cycleFocus", MenuShellCycleFocusSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCurrent", MenuShellMoveCurrentSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSelected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionDone", MenuShellSelectionDoneSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -498,7 +510,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "MenuBar"+-- returnType : Just (TInterface "Gtk" "MenuBar") -- throws : False -- Skip return : False @@ -519,7 +531,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "MenuBar"+-- returnType : Just (TInterface "Gtk" "MenuBar") -- throws : False -- Skip return : False @@ -544,7 +556,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PackDirection"+-- returnType : Just (TInterface "Gtk" "PackDirection") -- throws : False -- Skip return : False @@ -572,7 +584,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PackDirection"+-- returnType : Just (TInterface "Gtk" "PackDirection") -- throws : False -- Skip return : False @@ -600,7 +612,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_pack_dir", argType = TInterface "Gtk" "PackDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -630,7 +642,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_dir", argType = TInterface "Gtk" "PackDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.MenuBar where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -86,8 +86,10 @@ -- * Properties -- ** AlignWidget MenuButtonAlignWidgetPropertyInfo ,+ clearMenuButtonAlignWidget , constructMenuButtonAlignWidget , getMenuButtonAlignWidget ,+ menuButtonAlignWidget , setMenuButtonAlignWidget , @@ -95,27 +97,34 @@ MenuButtonDirectionPropertyInfo , constructMenuButtonDirection , getMenuButtonDirection ,+ menuButtonDirection , setMenuButtonDirection , -- ** MenuModel MenuButtonMenuModelPropertyInfo ,+ clearMenuButtonMenuModel , constructMenuButtonMenuModel , getMenuButtonMenuModel ,+ menuButtonMenuModel , setMenuButtonMenuModel , -- ** Popover MenuButtonPopoverPropertyInfo ,+ clearMenuButtonPopover , constructMenuButtonPopover , getMenuButtonPopover ,+ menuButtonPopover , setMenuButtonPopover , -- ** Popup MenuButtonPopupPropertyInfo ,+ clearMenuButtonPopup , constructMenuButtonPopup , getMenuButtonPopup ,+ menuButtonPopup , setMenuButtonPopup , @@ -123,6 +132,7 @@ MenuButtonUsePopoverPropertyInfo , constructMenuButtonUsePopover , getMenuButtonUsePopover ,+ menuButtonUsePopover , setMenuButtonUsePopover , @@ -130,9 +140,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -540,30 +550,36 @@ -- VVV Prop "align-widget" -- Type: TInterface "Gtk" "Container" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getMenuButtonAlignWidget :: (MonadIO m, MenuButtonK o) => o -> m Container+getMenuButtonAlignWidget :: (MonadIO m, MenuButtonK o) => o -> m (Maybe Container) getMenuButtonAlignWidget obj = liftIO $ getObjectPropertyObject obj "align-widget" Container setMenuButtonAlignWidget :: (MonadIO m, MenuButtonK o, ContainerK a) => o -> a -> m ()-setMenuButtonAlignWidget obj val = liftIO $ setObjectPropertyObject obj "align-widget" val+setMenuButtonAlignWidget obj val = liftIO $ setObjectPropertyObject obj "align-widget" (Just val) constructMenuButtonAlignWidget :: (ContainerK a) => a -> IO ([Char], GValue)-constructMenuButtonAlignWidget val = constructObjectPropertyObject "align-widget" val+constructMenuButtonAlignWidget val = constructObjectPropertyObject "align-widget" (Just val) +clearMenuButtonAlignWidget :: (MonadIO m, MenuButtonK o) => o -> m ()+clearMenuButtonAlignWidget obj = liftIO $ setObjectPropertyObject obj "align-widget" (Nothing :: Maybe Container)+ data MenuButtonAlignWidgetPropertyInfo instance AttrInfo MenuButtonAlignWidgetPropertyInfo where- type AttrAllowedOps MenuButtonAlignWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps MenuButtonAlignWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuButtonAlignWidgetPropertyInfo = ContainerK type AttrBaseTypeConstraint MenuButtonAlignWidgetPropertyInfo = MenuButtonK- type AttrGetType MenuButtonAlignWidgetPropertyInfo = Container+ type AttrGetType MenuButtonAlignWidgetPropertyInfo = (Maybe Container) type AttrLabel MenuButtonAlignWidgetPropertyInfo = "align-widget" attrGet _ = getMenuButtonAlignWidget attrSet _ = setMenuButtonAlignWidget attrConstruct _ = constructMenuButtonAlignWidget+ attrClear _ = clearMenuButtonAlignWidget -- VVV Prop "direction" -- Type: TInterface "Gtk" "ArrowType" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getMenuButtonDirection :: (MonadIO m, MenuButtonK o) => o -> m ArrowType getMenuButtonDirection obj = liftIO $ getObjectPropertyEnum obj "direction"@@ -584,23 +600,28 @@ attrGet _ = getMenuButtonDirection attrSet _ = setMenuButtonDirection attrConstruct _ = constructMenuButtonDirection+ attrClear _ = undefined -- VVV Prop "menu-model" -- Type: TInterface "Gio" "MenuModel" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getMenuButtonMenuModel :: (MonadIO m, MenuButtonK o) => o -> m Gio.MenuModel-getMenuButtonMenuModel obj = liftIO $ getObjectPropertyObject obj "menu-model" Gio.MenuModel+getMenuButtonMenuModel obj = liftIO $ checkUnexpectedNothing "getMenuButtonMenuModel" $ getObjectPropertyObject obj "menu-model" Gio.MenuModel setMenuButtonMenuModel :: (MonadIO m, MenuButtonK o, Gio.MenuModelK a) => o -> a -> m ()-setMenuButtonMenuModel obj val = liftIO $ setObjectPropertyObject obj "menu-model" val+setMenuButtonMenuModel obj val = liftIO $ setObjectPropertyObject obj "menu-model" (Just val) constructMenuButtonMenuModel :: (Gio.MenuModelK a) => a -> IO ([Char], GValue)-constructMenuButtonMenuModel val = constructObjectPropertyObject "menu-model" val+constructMenuButtonMenuModel val = constructObjectPropertyObject "menu-model" (Just val) +clearMenuButtonMenuModel :: (MonadIO m, MenuButtonK o) => o -> m ()+clearMenuButtonMenuModel obj = liftIO $ setObjectPropertyObject obj "menu-model" (Nothing :: Maybe Gio.MenuModel)+ data MenuButtonMenuModelPropertyInfo instance AttrInfo MenuButtonMenuModelPropertyInfo where- type AttrAllowedOps MenuButtonMenuModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps MenuButtonMenuModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuButtonMenuModelPropertyInfo = Gio.MenuModelK type AttrBaseTypeConstraint MenuButtonMenuModelPropertyInfo = MenuButtonK type AttrGetType MenuButtonMenuModelPropertyInfo = Gio.MenuModel@@ -608,23 +629,28 @@ attrGet _ = getMenuButtonMenuModel attrSet _ = setMenuButtonMenuModel attrConstruct _ = constructMenuButtonMenuModel+ attrClear _ = clearMenuButtonMenuModel -- VVV Prop "popover" -- Type: TInterface "Gtk" "Popover" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Nothing) getMenuButtonPopover :: (MonadIO m, MenuButtonK o) => o -> m Popover-getMenuButtonPopover obj = liftIO $ getObjectPropertyObject obj "popover" Popover+getMenuButtonPopover obj = liftIO $ checkUnexpectedNothing "getMenuButtonPopover" $ getObjectPropertyObject obj "popover" Popover setMenuButtonPopover :: (MonadIO m, MenuButtonK o, PopoverK a) => o -> a -> m ()-setMenuButtonPopover obj val = liftIO $ setObjectPropertyObject obj "popover" val+setMenuButtonPopover obj val = liftIO $ setObjectPropertyObject obj "popover" (Just val) constructMenuButtonPopover :: (PopoverK a) => a -> IO ([Char], GValue)-constructMenuButtonPopover val = constructObjectPropertyObject "popover" val+constructMenuButtonPopover val = constructObjectPropertyObject "popover" (Just val) +clearMenuButtonPopover :: (MonadIO m, MenuButtonK o) => o -> m ()+clearMenuButtonPopover obj = liftIO $ setObjectPropertyObject obj "popover" (Nothing :: Maybe Popover)+ data MenuButtonPopoverPropertyInfo instance AttrInfo MenuButtonPopoverPropertyInfo where- type AttrAllowedOps MenuButtonPopoverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps MenuButtonPopoverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuButtonPopoverPropertyInfo = PopoverK type AttrBaseTypeConstraint MenuButtonPopoverPropertyInfo = MenuButtonK type AttrGetType MenuButtonPopoverPropertyInfo = Popover@@ -632,23 +658,28 @@ attrGet _ = getMenuButtonPopover attrSet _ = setMenuButtonPopover attrConstruct _ = constructMenuButtonPopover+ attrClear _ = clearMenuButtonPopover -- VVV Prop "popup" -- Type: TInterface "Gtk" "Menu" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Nothing) getMenuButtonPopup :: (MonadIO m, MenuButtonK o) => o -> m Menu-getMenuButtonPopup obj = liftIO $ getObjectPropertyObject obj "popup" Menu+getMenuButtonPopup obj = liftIO $ checkUnexpectedNothing "getMenuButtonPopup" $ getObjectPropertyObject obj "popup" Menu setMenuButtonPopup :: (MonadIO m, MenuButtonK o, MenuK a) => o -> a -> m ()-setMenuButtonPopup obj val = liftIO $ setObjectPropertyObject obj "popup" val+setMenuButtonPopup obj val = liftIO $ setObjectPropertyObject obj "popup" (Just val) constructMenuButtonPopup :: (MenuK a) => a -> IO ([Char], GValue)-constructMenuButtonPopup val = constructObjectPropertyObject "popup" val+constructMenuButtonPopup val = constructObjectPropertyObject "popup" (Just val) +clearMenuButtonPopup :: (MonadIO m, MenuButtonK o) => o -> m ()+clearMenuButtonPopup obj = liftIO $ setObjectPropertyObject obj "popup" (Nothing :: Maybe Menu)+ data MenuButtonPopupPropertyInfo instance AttrInfo MenuButtonPopupPropertyInfo where- type AttrAllowedOps MenuButtonPopupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps MenuButtonPopupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuButtonPopupPropertyInfo = MenuK type AttrBaseTypeConstraint MenuButtonPopupPropertyInfo = MenuButtonK type AttrGetType MenuButtonPopupPropertyInfo = Menu@@ -656,10 +687,12 @@ attrGet _ = getMenuButtonPopup attrSet _ = setMenuButtonPopup attrConstruct _ = constructMenuButtonPopup+ attrClear _ = clearMenuButtonPopup -- VVV Prop "use-popover" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getMenuButtonUsePopover :: (MonadIO m, MenuButtonK o) => o -> m Bool getMenuButtonUsePopover obj = liftIO $ getObjectPropertyBool obj "use-popover"@@ -680,10 +713,29 @@ attrGet _ = getMenuButtonUsePopover attrSet _ = setMenuButtonUsePopover attrConstruct _ = constructMenuButtonUsePopover+ attrClear _ = undefined type instance AttributeList MenuButton = MenuButtonAttributeList type MenuButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("alignWidget", MenuButtonAlignWidgetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("direction", MenuButtonDirectionPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawIndicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("menuModel", MenuButtonMenuModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popover", MenuButtonPopoverPropertyInfo), '("popup", MenuButtonPopupPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("usePopover", MenuButtonUsePopoverPropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +menuButtonAlignWidget :: AttrLabelProxy "alignWidget"+menuButtonAlignWidget = AttrLabelProxy++menuButtonDirection :: AttrLabelProxy "direction"+menuButtonDirection = AttrLabelProxy++menuButtonMenuModel :: AttrLabelProxy "menuModel"+menuButtonMenuModel = AttrLabelProxy++menuButtonPopover :: AttrLabelProxy "popover"+menuButtonPopover = AttrLabelProxy++menuButtonPopup :: AttrLabelProxy "popup"+menuButtonPopup = AttrLabelProxy++menuButtonUsePopover :: AttrLabelProxy "usePopover"+menuButtonUsePopover = AttrLabelProxy+ type instance SignalList MenuButton = MenuButtonSignalList type MenuButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -691,7 +743,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "MenuButton"+-- returnType : Just (TInterface "Gtk" "MenuButton") -- throws : False -- Skip return : False @@ -712,7 +764,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -741,7 +793,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "ArrowType"+-- returnType : Just (TInterface "Gtk" "ArrowType") -- throws : False -- Skip return : False @@ -769,7 +821,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "MenuModel"+-- returnType : Just (TInterface "Gio" "MenuModel") -- throws : False -- Skip return : False @@ -798,7 +850,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Popover"+-- returnType : Just (TInterface "Gtk" "Popover") -- throws : False -- Skip return : False @@ -827,7 +879,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Menu"+-- returnType : Just (TInterface "Gtk" "Menu") -- throws : False -- Skip return : False @@ -856,7 +908,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -884,7 +936,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -919,7 +971,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -949,7 +1001,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -984,7 +1036,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popover", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1019,7 +1071,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1054,7 +1106,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_popover", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.MenuButton where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.MenuButtonAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -119,8 +119,10 @@ -- * Properties -- ** AccelPath MenuItemAccelPathPropertyInfo ,+ clearMenuItemAccelPath , constructMenuItemAccelPath , getMenuItemAccelPath ,+ menuItemAccelPath , setMenuItemAccelPath , @@ -128,6 +130,7 @@ MenuItemLabelPropertyInfo , constructMenuItemLabel , getMenuItemLabel ,+ menuItemLabel , setMenuItemLabel , @@ -135,13 +138,16 @@ MenuItemRightJustifiedPropertyInfo , constructMenuItemRightJustified , getMenuItemRightJustified ,+ menuItemRightJustified , setMenuItemRightJustified , -- ** Submenu MenuItemSubmenuPropertyInfo ,+ clearMenuItemSubmenu , constructMenuItemSubmenu , getMenuItemSubmenu ,+ menuItemSubmenu , setMenuItemSubmenu , @@ -149,6 +155,7 @@ MenuItemUseUnderlinePropertyInfo , constructMenuItemUseUnderline , getMenuItemUseUnderline ,+ menuItemUseUnderline , setMenuItemUseUnderline , @@ -231,9 +238,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -848,19 +855,23 @@ -- VVV Prop "accel-path" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getMenuItemAccelPath :: (MonadIO m, MenuItemK o) => o -> m T.Text-getMenuItemAccelPath obj = liftIO $ getObjectPropertyString obj "accel-path"+getMenuItemAccelPath obj = liftIO $ checkUnexpectedNothing "getMenuItemAccelPath" $ getObjectPropertyString obj "accel-path" setMenuItemAccelPath :: (MonadIO m, MenuItemK o) => o -> T.Text -> m ()-setMenuItemAccelPath obj val = liftIO $ setObjectPropertyString obj "accel-path" val+setMenuItemAccelPath obj val = liftIO $ setObjectPropertyString obj "accel-path" (Just val) constructMenuItemAccelPath :: T.Text -> IO ([Char], GValue)-constructMenuItemAccelPath val = constructObjectPropertyString "accel-path" val+constructMenuItemAccelPath val = constructObjectPropertyString "accel-path" (Just val) +clearMenuItemAccelPath :: (MonadIO m, MenuItemK o) => o -> m ()+clearMenuItemAccelPath obj = liftIO $ setObjectPropertyString obj "accel-path" (Nothing :: Maybe T.Text)+ data MenuItemAccelPathPropertyInfo instance AttrInfo MenuItemAccelPathPropertyInfo where- type AttrAllowedOps MenuItemAccelPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps MenuItemAccelPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuItemAccelPathPropertyInfo = (~) T.Text type AttrBaseTypeConstraint MenuItemAccelPathPropertyInfo = MenuItemK type AttrGetType MenuItemAccelPathPropertyInfo = T.Text@@ -868,19 +879,21 @@ attrGet _ = getMenuItemAccelPath attrSet _ = setMenuItemAccelPath attrConstruct _ = constructMenuItemAccelPath+ attrClear _ = clearMenuItemAccelPath -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getMenuItemLabel :: (MonadIO m, MenuItemK o) => o -> m T.Text-getMenuItemLabel obj = liftIO $ getObjectPropertyString obj "label"+getMenuItemLabel obj = liftIO $ checkUnexpectedNothing "getMenuItemLabel" $ getObjectPropertyString obj "label" setMenuItemLabel :: (MonadIO m, MenuItemK o) => o -> T.Text -> m ()-setMenuItemLabel obj val = liftIO $ setObjectPropertyString obj "label" val+setMenuItemLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) constructMenuItemLabel :: T.Text -> IO ([Char], GValue)-constructMenuItemLabel val = constructObjectPropertyString "label" val+constructMenuItemLabel val = constructObjectPropertyString "label" (Just val) data MenuItemLabelPropertyInfo instance AttrInfo MenuItemLabelPropertyInfo where@@ -892,10 +905,12 @@ attrGet _ = getMenuItemLabel attrSet _ = setMenuItemLabel attrConstruct _ = constructMenuItemLabel+ attrClear _ = undefined -- VVV Prop "right-justified" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getMenuItemRightJustified :: (MonadIO m, MenuItemK o) => o -> m Bool getMenuItemRightJustified obj = liftIO $ getObjectPropertyBool obj "right-justified"@@ -916,34 +931,41 @@ attrGet _ = getMenuItemRightJustified attrSet _ = setMenuItemRightJustified attrConstruct _ = constructMenuItemRightJustified+ attrClear _ = undefined -- VVV Prop "submenu" -- Type: TInterface "Gtk" "Menu" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just True) -getMenuItemSubmenu :: (MonadIO m, MenuItemK o) => o -> m Menu+getMenuItemSubmenu :: (MonadIO m, MenuItemK o) => o -> m (Maybe Menu) getMenuItemSubmenu obj = liftIO $ getObjectPropertyObject obj "submenu" Menu setMenuItemSubmenu :: (MonadIO m, MenuItemK o, MenuK a) => o -> a -> m ()-setMenuItemSubmenu obj val = liftIO $ setObjectPropertyObject obj "submenu" val+setMenuItemSubmenu obj val = liftIO $ setObjectPropertyObject obj "submenu" (Just val) constructMenuItemSubmenu :: (MenuK a) => a -> IO ([Char], GValue)-constructMenuItemSubmenu val = constructObjectPropertyObject "submenu" val+constructMenuItemSubmenu val = constructObjectPropertyObject "submenu" (Just val) +clearMenuItemSubmenu :: (MonadIO m, MenuItemK o) => o -> m ()+clearMenuItemSubmenu obj = liftIO $ setObjectPropertyObject obj "submenu" (Nothing :: Maybe Menu)+ data MenuItemSubmenuPropertyInfo instance AttrInfo MenuItemSubmenuPropertyInfo where- type AttrAllowedOps MenuItemSubmenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps MenuItemSubmenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuItemSubmenuPropertyInfo = MenuK type AttrBaseTypeConstraint MenuItemSubmenuPropertyInfo = MenuItemK- type AttrGetType MenuItemSubmenuPropertyInfo = Menu+ type AttrGetType MenuItemSubmenuPropertyInfo = (Maybe Menu) type AttrLabel MenuItemSubmenuPropertyInfo = "submenu" attrGet _ = getMenuItemSubmenu attrSet _ = setMenuItemSubmenu attrConstruct _ = constructMenuItemSubmenu+ attrClear _ = clearMenuItemSubmenu -- VVV Prop "use-underline" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getMenuItemUseUnderline :: (MonadIO m, MenuItemK o) => o -> m Bool getMenuItemUseUnderline obj = liftIO $ getObjectPropertyBool obj "use-underline"@@ -964,10 +986,26 @@ attrGet _ = getMenuItemUseUnderline attrSet _ = setMenuItemUseUnderline attrConstruct _ = constructMenuItemUseUnderline+ attrClear _ = undefined type instance AttributeList MenuItem = MenuItemAttributeList type MenuItemAttributeList = ('[ '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +menuItemAccelPath :: AttrLabelProxy "accelPath"+menuItemAccelPath = AttrLabelProxy++menuItemLabel :: AttrLabelProxy "label"+menuItemLabel = AttrLabelProxy++menuItemRightJustified :: AttrLabelProxy "rightJustified"+menuItemRightJustified = AttrLabelProxy++menuItemSubmenu :: AttrLabelProxy "submenu"+menuItemSubmenu = AttrLabelProxy++menuItemUseUnderline :: AttrLabelProxy "useUnderline"+menuItemUseUnderline = AttrLabelProxy+ data MenuItemActivateSignalInfo instance SignalInfo MenuItemActivateSignalInfo where type HaskellCallbackType MenuItemActivateSignalInfo = MenuItemActivateCallback@@ -1005,7 +1043,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "MenuItem"+-- returnType : Just (TInterface "Gtk" "MenuItem") -- throws : False -- Skip return : False @@ -1026,7 +1064,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "MenuItem"+-- returnType : Just (TInterface "Gtk" "MenuItem") -- throws : False -- Skip return : False @@ -1051,7 +1089,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "MenuItem"+-- returnType : Just (TInterface "Gtk" "MenuItem") -- throws : False -- Skip return : False @@ -1076,7 +1114,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1103,7 +1141,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1130,7 +1168,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1159,7 +1197,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1188,7 +1226,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1216,7 +1254,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1244,7 +1282,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1273,7 +1311,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1301,7 +1339,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1328,7 +1366,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1363,7 +1401,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1394,7 +1432,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reserve", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1424,7 +1462,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_justified", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1454,7 +1492,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1489,7 +1527,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1517,15 +1555,15 @@ -- method MenuItem::toggle_size_allocate -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_menu_item_toggle_size_allocate" gtk_menu_item_toggle_size_allocate :: Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem"- Int32 -> -- allocation : TBasicType TInt32+ Int32 -> -- allocation : TBasicType TInt IO () @@ -1546,15 +1584,15 @@ -- method MenuItem::toggle_size_request -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_menu_item_toggle_size_request" gtk_menu_item_toggle_size_request :: Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem"- Ptr Int32 -> -- requisition : TBasicType TInt32+ Ptr Int32 -> -- requisition : TBasicType TInt IO ()
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.MenuItem where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.MenuItemAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -94,6 +94,7 @@ MenuShellTakeFocusPropertyInfo , constructMenuShellTakeFocus , getMenuShellTakeFocus ,+ menuShellTakeFocus , setMenuShellTakeFocus , @@ -200,9 +201,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -901,6 +902,7 @@ -- VVV Prop "take-focus" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getMenuShellTakeFocus :: (MonadIO m, MenuShellK o) => o -> m Bool getMenuShellTakeFocus obj = liftIO $ getObjectPropertyBool obj "take-focus"@@ -921,10 +923,14 @@ attrGet _ = getMenuShellTakeFocus attrSet _ = setMenuShellTakeFocus attrConstruct _ = constructMenuShellTakeFocus+ attrClear _ = undefined type instance AttributeList MenuShell = MenuShellAttributeList type MenuShellAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("takeFocus", MenuShellTakeFocusPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +menuShellTakeFocus :: AttrLabelProxy "takeFocus"+menuShellTakeFocus = AttrLabelProxy+ data MenuShellActivateCurrentSignalInfo instance SignalInfo MenuShellActivateCurrentSignalInfo where type HaskellCallbackType MenuShellActivateCurrentSignalInfo = MenuShellActivateCurrentCallback@@ -972,7 +978,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "force_deactivate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1006,7 +1012,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1037,7 +1043,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "with_separators", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1083,7 +1089,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1110,7 +1116,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1137,7 +1143,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1164,7 +1170,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1193,7 +1199,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1222,7 +1228,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1248,16 +1254,16 @@ -- method MenuShell::insert -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_menu_shell_insert" gtk_menu_shell_insert :: Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell" Ptr Widget -> -- child : TInterface "Gtk" "Widget"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt IO () @@ -1283,7 +1289,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1314,7 +1320,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1344,7 +1350,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1375,7 +1381,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "take_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.MenuShell where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.MenuShellAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -50,8 +50,10 @@ -- * Properties -- ** Menu MenuToolButtonMenuPropertyInfo ,+ clearMenuToolButtonMenu , constructMenuToolButtonMenu , getMenuToolButtonMenu ,+ menuToolButtonMenu , setMenuToolButtonMenu , @@ -74,9 +76,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -521,30 +523,38 @@ -- VVV Prop "menu" -- Type: TInterface "Gtk" "Menu" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getMenuToolButtonMenu :: (MonadIO m, MenuToolButtonK o) => o -> m Menu+getMenuToolButtonMenu :: (MonadIO m, MenuToolButtonK o) => o -> m (Maybe Menu) getMenuToolButtonMenu obj = liftIO $ getObjectPropertyObject obj "menu" Menu setMenuToolButtonMenu :: (MonadIO m, MenuToolButtonK o, MenuK a) => o -> a -> m ()-setMenuToolButtonMenu obj val = liftIO $ setObjectPropertyObject obj "menu" val+setMenuToolButtonMenu obj val = liftIO $ setObjectPropertyObject obj "menu" (Just val) constructMenuToolButtonMenu :: (MenuK a) => a -> IO ([Char], GValue)-constructMenuToolButtonMenu val = constructObjectPropertyObject "menu" val+constructMenuToolButtonMenu val = constructObjectPropertyObject "menu" (Just val) +clearMenuToolButtonMenu :: (MonadIO m, MenuToolButtonK o) => o -> m ()+clearMenuToolButtonMenu obj = liftIO $ setObjectPropertyObject obj "menu" (Nothing :: Maybe Menu)+ data MenuToolButtonMenuPropertyInfo instance AttrInfo MenuToolButtonMenuPropertyInfo where- type AttrAllowedOps MenuToolButtonMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps MenuToolButtonMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuToolButtonMenuPropertyInfo = MenuK type AttrBaseTypeConstraint MenuToolButtonMenuPropertyInfo = MenuToolButtonK- type AttrGetType MenuToolButtonMenuPropertyInfo = Menu+ type AttrGetType MenuToolButtonMenuPropertyInfo = (Maybe Menu) type AttrLabel MenuToolButtonMenuPropertyInfo = "menu" attrGet _ = getMenuToolButtonMenu attrSet _ = setMenuToolButtonMenu attrConstruct _ = constructMenuToolButtonMenu+ attrClear _ = clearMenuToolButtonMenu type instance AttributeList MenuToolButton = MenuToolButtonAttributeList type MenuToolButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconName", ToolButtonIconNamePropertyInfo), '("iconWidget", ToolButtonIconWidgetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("labelWidget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("menu", MenuToolButtonMenuPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stockId", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +menuToolButtonMenu :: AttrLabelProxy "menu"+menuToolButtonMenu = AttrLabelProxy+ data MenuToolButtonShowMenuSignalInfo instance SignalInfo MenuToolButtonShowMenuSignalInfo where type HaskellCallbackType MenuToolButtonShowMenuSignalInfo = MenuToolButtonShowMenuCallback@@ -557,7 +567,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "MenuToolButton"+-- returnType : Just (TInterface "Gtk" "MenuToolButton") -- throws : False -- Skip return : False @@ -594,7 +604,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "MenuToolButton"+-- returnType : Just (TInterface "Gtk" "MenuToolButton") -- throws : False -- Skip return : False @@ -619,7 +629,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -648,7 +658,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -679,7 +689,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -710,7 +720,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.MenuToolButton where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -43,31 +43,37 @@ -- ** Buttons MessageDialogButtonsPropertyInfo , constructMessageDialogButtons ,+ messageDialogButtons , -- ** Image MessageDialogImagePropertyInfo , constructMessageDialogImage , getMessageDialogImage ,+ messageDialogImage , setMessageDialogImage , -- ** MessageArea MessageDialogMessageAreaPropertyInfo , getMessageDialogMessageArea ,+ messageDialogMessageArea , -- ** MessageType MessageDialogMessageTypePropertyInfo , constructMessageDialogMessageType , getMessageDialogMessageType ,+ messageDialogMessageType , setMessageDialogMessageType , -- ** SecondaryText MessageDialogSecondaryTextPropertyInfo ,+ clearMessageDialogSecondaryText , constructMessageDialogSecondaryText , getMessageDialogSecondaryText ,+ messageDialogSecondaryText , setMessageDialogSecondaryText , @@ -75,13 +81,16 @@ MessageDialogSecondaryUseMarkupPropertyInfo, constructMessageDialogSecondaryUseMarkup, getMessageDialogSecondaryUseMarkup ,+ messageDialogSecondaryUseMarkup , setMessageDialogSecondaryUseMarkup , -- ** Text MessageDialogTextPropertyInfo ,+ clearMessageDialogText , constructMessageDialogText , getMessageDialogText ,+ messageDialogText , setMessageDialogText , @@ -89,6 +98,7 @@ MessageDialogUseMarkupPropertyInfo , constructMessageDialogUseMarkup , getMessageDialogUseMarkup ,+ messageDialogUseMarkup , setMessageDialogUseMarkup , @@ -96,9 +106,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -572,6 +582,7 @@ -- VVV Prop "buttons" -- Type: TInterface "Gtk" "ButtonsType" -- Flags: [PropertyWritable,PropertyConstructOnly]+ -- Nullable: (Nothing,Nothing) constructMessageDialogButtons :: ButtonsType -> IO ([Char], GValue) constructMessageDialogButtons val = constructObjectPropertyEnum "buttons" val@@ -586,19 +597,21 @@ attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructMessageDialogButtons+ attrClear _ = undefined -- VVV Prop "image" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getMessageDialogImage :: (MonadIO m, MessageDialogK o) => o -> m Widget-getMessageDialogImage obj = liftIO $ getObjectPropertyObject obj "image" Widget+getMessageDialogImage obj = liftIO $ checkUnexpectedNothing "getMessageDialogImage" $ getObjectPropertyObject obj "image" Widget setMessageDialogImage :: (MonadIO m, MessageDialogK o, WidgetK a) => o -> a -> m ()-setMessageDialogImage obj val = liftIO $ setObjectPropertyObject obj "image" val+setMessageDialogImage obj val = liftIO $ setObjectPropertyObject obj "image" (Just val) constructMessageDialogImage :: (WidgetK a) => a -> IO ([Char], GValue)-constructMessageDialogImage val = constructObjectPropertyObject "image" val+constructMessageDialogImage val = constructObjectPropertyObject "image" (Just val) data MessageDialogImagePropertyInfo instance AttrInfo MessageDialogImagePropertyInfo where@@ -610,17 +623,19 @@ attrGet _ = getMessageDialogImage attrSet _ = setMessageDialogImage attrConstruct _ = constructMessageDialogImage+ attrClear _ = undefined -- VVV Prop "message-area" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable]+ -- Nullable: (Just False,Nothing) getMessageDialogMessageArea :: (MonadIO m, MessageDialogK o) => o -> m Widget-getMessageDialogMessageArea obj = liftIO $ getObjectPropertyObject obj "message-area" Widget+getMessageDialogMessageArea obj = liftIO $ checkUnexpectedNothing "getMessageDialogMessageArea" $ getObjectPropertyObject obj "message-area" Widget data MessageDialogMessageAreaPropertyInfo instance AttrInfo MessageDialogMessageAreaPropertyInfo where- type AttrAllowedOps MessageDialogMessageAreaPropertyInfo = '[ 'AttrGet]+ type AttrAllowedOps MessageDialogMessageAreaPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MessageDialogMessageAreaPropertyInfo = (~) () type AttrBaseTypeConstraint MessageDialogMessageAreaPropertyInfo = MessageDialogK type AttrGetType MessageDialogMessageAreaPropertyInfo = Widget@@ -628,10 +643,12 @@ attrGet _ = getMessageDialogMessageArea attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "message-type" -- Type: TInterface "Gtk" "MessageType" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Nothing,Nothing) getMessageDialogMessageType :: (MonadIO m, MessageDialogK o) => o -> m MessageType getMessageDialogMessageType obj = liftIO $ getObjectPropertyEnum obj "message-type"@@ -652,34 +669,41 @@ attrGet _ = getMessageDialogMessageType attrSet _ = setMessageDialogMessageType attrConstruct _ = constructMessageDialogMessageType+ attrClear _ = undefined -- VVV Prop "secondary-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getMessageDialogSecondaryText :: (MonadIO m, MessageDialogK o) => o -> m T.Text+getMessageDialogSecondaryText :: (MonadIO m, MessageDialogK o) => o -> m (Maybe T.Text) getMessageDialogSecondaryText obj = liftIO $ getObjectPropertyString obj "secondary-text" setMessageDialogSecondaryText :: (MonadIO m, MessageDialogK o) => o -> T.Text -> m ()-setMessageDialogSecondaryText obj val = liftIO $ setObjectPropertyString obj "secondary-text" val+setMessageDialogSecondaryText obj val = liftIO $ setObjectPropertyString obj "secondary-text" (Just val) constructMessageDialogSecondaryText :: T.Text -> IO ([Char], GValue)-constructMessageDialogSecondaryText val = constructObjectPropertyString "secondary-text" val+constructMessageDialogSecondaryText val = constructObjectPropertyString "secondary-text" (Just val) +clearMessageDialogSecondaryText :: (MonadIO m, MessageDialogK o) => o -> m ()+clearMessageDialogSecondaryText obj = liftIO $ setObjectPropertyString obj "secondary-text" (Nothing :: Maybe T.Text)+ data MessageDialogSecondaryTextPropertyInfo instance AttrInfo MessageDialogSecondaryTextPropertyInfo where- type AttrAllowedOps MessageDialogSecondaryTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps MessageDialogSecondaryTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MessageDialogSecondaryTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint MessageDialogSecondaryTextPropertyInfo = MessageDialogK- type AttrGetType MessageDialogSecondaryTextPropertyInfo = T.Text+ type AttrGetType MessageDialogSecondaryTextPropertyInfo = (Maybe T.Text) type AttrLabel MessageDialogSecondaryTextPropertyInfo = "secondary-text" attrGet _ = getMessageDialogSecondaryText attrSet _ = setMessageDialogSecondaryText attrConstruct _ = constructMessageDialogSecondaryText+ attrClear _ = clearMessageDialogSecondaryText -- VVV Prop "secondary-use-markup" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getMessageDialogSecondaryUseMarkup :: (MonadIO m, MessageDialogK o) => o -> m Bool getMessageDialogSecondaryUseMarkup obj = liftIO $ getObjectPropertyBool obj "secondary-use-markup"@@ -700,34 +724,41 @@ attrGet _ = getMessageDialogSecondaryUseMarkup attrSet _ = setMessageDialogSecondaryUseMarkup attrConstruct _ = constructMessageDialogSecondaryUseMarkup+ attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getMessageDialogText :: (MonadIO m, MessageDialogK o) => o -> m T.Text+getMessageDialogText :: (MonadIO m, MessageDialogK o) => o -> m (Maybe T.Text) getMessageDialogText obj = liftIO $ getObjectPropertyString obj "text" setMessageDialogText :: (MonadIO m, MessageDialogK o) => o -> T.Text -> m ()-setMessageDialogText obj val = liftIO $ setObjectPropertyString obj "text" val+setMessageDialogText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructMessageDialogText :: T.Text -> IO ([Char], GValue)-constructMessageDialogText val = constructObjectPropertyString "text" val+constructMessageDialogText val = constructObjectPropertyString "text" (Just val) +clearMessageDialogText :: (MonadIO m, MessageDialogK o) => o -> m ()+clearMessageDialogText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text)+ data MessageDialogTextPropertyInfo instance AttrInfo MessageDialogTextPropertyInfo where- type AttrAllowedOps MessageDialogTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps MessageDialogTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MessageDialogTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint MessageDialogTextPropertyInfo = MessageDialogK- type AttrGetType MessageDialogTextPropertyInfo = T.Text+ type AttrGetType MessageDialogTextPropertyInfo = (Maybe T.Text) type AttrLabel MessageDialogTextPropertyInfo = "text" attrGet _ = getMessageDialogText attrSet _ = setMessageDialogText attrConstruct _ = constructMessageDialogText+ attrClear _ = clearMessageDialogText -- VVV Prop "use-markup" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getMessageDialogUseMarkup :: (MonadIO m, MessageDialogK o) => o -> m Bool getMessageDialogUseMarkup obj = liftIO $ getObjectPropertyBool obj "use-markup"@@ -748,10 +779,35 @@ attrGet _ = getMessageDialogUseMarkup attrSet _ = setMessageDialogUseMarkup attrConstruct _ = constructMessageDialogUseMarkup+ attrClear _ = undefined type instance AttributeList MessageDialog = MessageDialogAttributeList type MessageDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("buttons", MessageDialogButtonsPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("image", MessageDialogImagePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("messageArea", MessageDialogMessageAreaPropertyInfo), '("messageType", MessageDialogMessageTypePropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("secondaryText", MessageDialogSecondaryTextPropertyInfo), '("secondaryUseMarkup", MessageDialogSecondaryUseMarkupPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("text", MessageDialogTextPropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("useMarkup", MessageDialogUseMarkupPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +messageDialogButtons :: AttrLabelProxy "buttons"+messageDialogButtons = AttrLabelProxy++messageDialogImage :: AttrLabelProxy "image"+messageDialogImage = AttrLabelProxy++messageDialogMessageArea :: AttrLabelProxy "messageArea"+messageDialogMessageArea = AttrLabelProxy++messageDialogMessageType :: AttrLabelProxy "messageType"+messageDialogMessageType = AttrLabelProxy++messageDialogSecondaryText :: AttrLabelProxy "secondaryText"+messageDialogSecondaryText = AttrLabelProxy++messageDialogSecondaryUseMarkup :: AttrLabelProxy "secondaryUseMarkup"+messageDialogSecondaryUseMarkup = AttrLabelProxy++messageDialogText :: AttrLabelProxy "text"+messageDialogText = AttrLabelProxy++messageDialogUseMarkup :: AttrLabelProxy "useMarkup"+messageDialogUseMarkup = AttrLabelProxy+ type instance SignalList MessageDialog = MessageDialogSignalList type MessageDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -759,7 +815,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -788,7 +844,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -817,7 +873,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -848,7 +904,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.MessageDialog where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -44,6 +44,7 @@ MiscXalignPropertyInfo , constructMiscXalign , getMiscXalign ,+ miscXalign , setMiscXalign , @@ -51,6 +52,7 @@ MiscXpadPropertyInfo , constructMiscXpad , getMiscXpad ,+ miscXpad , setMiscXpad , @@ -58,6 +60,7 @@ MiscYalignPropertyInfo , constructMiscYalign , getMiscYalign ,+ miscYalign , setMiscYalign , @@ -65,6 +68,7 @@ MiscYpadPropertyInfo , constructMiscYpad , getMiscYpad ,+ miscYpad , setMiscYpad , @@ -72,9 +76,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -408,6 +412,7 @@ -- VVV Prop "xalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getMiscXalign :: (MonadIO m, MiscK o) => o -> m Float getMiscXalign obj = liftIO $ getObjectPropertyFloat obj "xalign"@@ -428,19 +433,21 @@ attrGet _ = getMiscXalign attrSet _ = setMiscXalign attrConstruct _ = constructMiscXalign+ attrClear _ = undefined -- VVV Prop "xpad"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getMiscXpad :: (MonadIO m, MiscK o) => o -> m Int32-getMiscXpad obj = liftIO $ getObjectPropertyCInt obj "xpad"+getMiscXpad obj = liftIO $ getObjectPropertyInt32 obj "xpad" setMiscXpad :: (MonadIO m, MiscK o) => o -> Int32 -> m ()-setMiscXpad obj val = liftIO $ setObjectPropertyCInt obj "xpad" val+setMiscXpad obj val = liftIO $ setObjectPropertyInt32 obj "xpad" val constructMiscXpad :: Int32 -> IO ([Char], GValue)-constructMiscXpad val = constructObjectPropertyCInt "xpad" val+constructMiscXpad val = constructObjectPropertyInt32 "xpad" val data MiscXpadPropertyInfo instance AttrInfo MiscXpadPropertyInfo where@@ -452,10 +459,12 @@ attrGet _ = getMiscXpad attrSet _ = setMiscXpad attrConstruct _ = constructMiscXpad+ attrClear _ = undefined -- VVV Prop "yalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getMiscYalign :: (MonadIO m, MiscK o) => o -> m Float getMiscYalign obj = liftIO $ getObjectPropertyFloat obj "yalign"@@ -476,19 +485,21 @@ attrGet _ = getMiscYalign attrSet _ = setMiscYalign attrConstruct _ = constructMiscYalign+ attrClear _ = undefined -- VVV Prop "ypad"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getMiscYpad :: (MonadIO m, MiscK o) => o -> m Int32-getMiscYpad obj = liftIO $ getObjectPropertyCInt obj "ypad"+getMiscYpad obj = liftIO $ getObjectPropertyInt32 obj "ypad" setMiscYpad :: (MonadIO m, MiscK o) => o -> Int32 -> m ()-setMiscYpad obj val = liftIO $ setObjectPropertyCInt obj "ypad" val+setMiscYpad obj val = liftIO $ setObjectPropertyInt32 obj "ypad" val constructMiscYpad :: Int32 -> IO ([Char], GValue)-constructMiscYpad val = constructObjectPropertyCInt "ypad" val+constructMiscYpad val = constructObjectPropertyInt32 "ypad" val data MiscYpadPropertyInfo instance AttrInfo MiscYpadPropertyInfo where@@ -500,10 +511,23 @@ attrGet _ = getMiscYpad attrSet _ = setMiscYpad attrConstruct _ = constructMiscYpad+ attrClear _ = undefined type instance AttributeList Misc = MiscAttributeList type MiscAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) +miscXalign :: AttrLabelProxy "xalign"+miscXalign = AttrLabelProxy++miscXpad :: AttrLabelProxy "xpad"+miscXpad = AttrLabelProxy++miscYalign :: AttrLabelProxy "yalign"+miscYalign = AttrLabelProxy++miscYpad :: AttrLabelProxy "ypad"+miscYpad = AttrLabelProxy+ type instance SignalList Misc = MiscSignalList type MiscSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -511,7 +535,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -546,16 +570,16 @@ -- method Misc::get_padding -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ypad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ypad", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_misc_get_padding" gtk_misc_get_padding :: Ptr Misc -> -- _obj : TInterface "Gtk" "Misc"- Ptr Int32 -> -- xpad : TBasicType TInt32- Ptr Int32 -> -- ypad : TBasicType TInt32+ Ptr Int32 -> -- xpad : TBasicType TInt+ Ptr Int32 -> -- ypad : TBasicType TInt IO () {-# DEPRECATED miscGetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties."]#-}@@ -583,7 +607,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -614,16 +638,16 @@ -- method Misc::set_padding -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypad", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_misc_set_padding" gtk_misc_set_padding :: Ptr Misc -> -- _obj : TInterface "Gtk" "Misc"- Int32 -> -- xpad : TBasicType TInt32- Int32 -> -- ypad : TBasicType TInt32+ Int32 -> -- xpad : TBasicType TInt+ Int32 -> -- ypad : TBasicType TInt IO () {-# DEPRECATED miscSetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties."]#-}
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Misc where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -28,6 +28,7 @@ ModelButtonActivePropertyInfo , constructModelButtonActive , getModelButtonActive ,+ modelButtonActive , setModelButtonActive , @@ -35,13 +36,16 @@ ModelButtonCenteredPropertyInfo , constructModelButtonCentered , getModelButtonCentered ,+ modelButtonCentered , setModelButtonCentered , -- ** Icon ModelButtonIconPropertyInfo ,+ clearModelButtonIcon , constructModelButtonIcon , getModelButtonIcon ,+ modelButtonIcon , setModelButtonIcon , @@ -49,6 +53,7 @@ ModelButtonIconicPropertyInfo , constructModelButtonIconic , getModelButtonIconic ,+ modelButtonIconic , setModelButtonIconic , @@ -56,13 +61,16 @@ ModelButtonInvertedPropertyInfo , constructModelButtonInverted , getModelButtonInverted ,+ modelButtonInverted , setModelButtonInverted , -- ** MenuName ModelButtonMenuNamePropertyInfo ,+ clearModelButtonMenuName , constructModelButtonMenuName , getModelButtonMenuName ,+ modelButtonMenuName , setModelButtonMenuName , @@ -70,13 +78,16 @@ ModelButtonRolePropertyInfo , constructModelButtonRole , getModelButtonRole ,+ modelButtonRole , setModelButtonRole , -- ** Text ModelButtonTextPropertyInfo ,+ clearModelButtonText , constructModelButtonText , getModelButtonText ,+ modelButtonText , setModelButtonText , @@ -84,9 +95,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -479,6 +490,7 @@ -- VVV Prop "active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getModelButtonActive :: (MonadIO m, ModelButtonK o) => o -> m Bool getModelButtonActive obj = liftIO $ getObjectPropertyBool obj "active"@@ -499,10 +511,12 @@ attrGet _ = getModelButtonActive attrSet _ = setModelButtonActive attrConstruct _ = constructModelButtonActive+ attrClear _ = undefined -- VVV Prop "centered" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getModelButtonCentered :: (MonadIO m, ModelButtonK o) => o -> m Bool getModelButtonCentered obj = liftIO $ getObjectPropertyBool obj "centered"@@ -523,34 +537,41 @@ attrGet _ = getModelButtonCentered attrSet _ = setModelButtonCentered attrConstruct _ = constructModelButtonCentered+ attrClear _ = undefined -- VVV Prop "icon" -- Type: TInterface "Gio" "Icon" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getModelButtonIcon :: (MonadIO m, ModelButtonK o) => o -> m Gio.Icon+getModelButtonIcon :: (MonadIO m, ModelButtonK o) => o -> m (Maybe Gio.Icon) getModelButtonIcon obj = liftIO $ getObjectPropertyObject obj "icon" Gio.Icon setModelButtonIcon :: (MonadIO m, ModelButtonK o, Gio.IconK a) => o -> a -> m ()-setModelButtonIcon obj val = liftIO $ setObjectPropertyObject obj "icon" val+setModelButtonIcon obj val = liftIO $ setObjectPropertyObject obj "icon" (Just val) constructModelButtonIcon :: (Gio.IconK a) => a -> IO ([Char], GValue)-constructModelButtonIcon val = constructObjectPropertyObject "icon" val+constructModelButtonIcon val = constructObjectPropertyObject "icon" (Just val) +clearModelButtonIcon :: (MonadIO m, ModelButtonK o) => o -> m ()+clearModelButtonIcon obj = liftIO $ setObjectPropertyObject obj "icon" (Nothing :: Maybe Gio.Icon)+ data ModelButtonIconPropertyInfo instance AttrInfo ModelButtonIconPropertyInfo where- type AttrAllowedOps ModelButtonIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ModelButtonIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ModelButtonIconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint ModelButtonIconPropertyInfo = ModelButtonK- type AttrGetType ModelButtonIconPropertyInfo = Gio.Icon+ type AttrGetType ModelButtonIconPropertyInfo = (Maybe Gio.Icon) type AttrLabel ModelButtonIconPropertyInfo = "icon" attrGet _ = getModelButtonIcon attrSet _ = setModelButtonIcon attrConstruct _ = constructModelButtonIcon+ attrClear _ = clearModelButtonIcon -- VVV Prop "iconic" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getModelButtonIconic :: (MonadIO m, ModelButtonK o) => o -> m Bool getModelButtonIconic obj = liftIO $ getObjectPropertyBool obj "iconic"@@ -571,10 +592,12 @@ attrGet _ = getModelButtonIconic attrSet _ = setModelButtonIconic attrConstruct _ = constructModelButtonIconic+ attrClear _ = undefined -- VVV Prop "inverted" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getModelButtonInverted :: (MonadIO m, ModelButtonK o) => o -> m Bool getModelButtonInverted obj = liftIO $ getObjectPropertyBool obj "inverted"@@ -595,34 +618,41 @@ attrGet _ = getModelButtonInverted attrSet _ = setModelButtonInverted attrConstruct _ = constructModelButtonInverted+ attrClear _ = undefined -- VVV Prop "menu-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getModelButtonMenuName :: (MonadIO m, ModelButtonK o) => o -> m T.Text+getModelButtonMenuName :: (MonadIO m, ModelButtonK o) => o -> m (Maybe T.Text) getModelButtonMenuName obj = liftIO $ getObjectPropertyString obj "menu-name" setModelButtonMenuName :: (MonadIO m, ModelButtonK o) => o -> T.Text -> m ()-setModelButtonMenuName obj val = liftIO $ setObjectPropertyString obj "menu-name" val+setModelButtonMenuName obj val = liftIO $ setObjectPropertyString obj "menu-name" (Just val) constructModelButtonMenuName :: T.Text -> IO ([Char], GValue)-constructModelButtonMenuName val = constructObjectPropertyString "menu-name" val+constructModelButtonMenuName val = constructObjectPropertyString "menu-name" (Just val) +clearModelButtonMenuName :: (MonadIO m, ModelButtonK o) => o -> m ()+clearModelButtonMenuName obj = liftIO $ setObjectPropertyString obj "menu-name" (Nothing :: Maybe T.Text)+ data ModelButtonMenuNamePropertyInfo instance AttrInfo ModelButtonMenuNamePropertyInfo where- type AttrAllowedOps ModelButtonMenuNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ModelButtonMenuNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ModelButtonMenuNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ModelButtonMenuNamePropertyInfo = ModelButtonK- type AttrGetType ModelButtonMenuNamePropertyInfo = T.Text+ type AttrGetType ModelButtonMenuNamePropertyInfo = (Maybe T.Text) type AttrLabel ModelButtonMenuNamePropertyInfo = "menu-name" attrGet _ = getModelButtonMenuName attrSet _ = setModelButtonMenuName attrConstruct _ = constructModelButtonMenuName+ attrClear _ = clearModelButtonMenuName -- VVV Prop "role" -- Type: TInterface "Gtk" "ButtonRole" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getModelButtonRole :: (MonadIO m, ModelButtonK o) => o -> m ButtonRole getModelButtonRole obj = liftIO $ getObjectPropertyEnum obj "role"@@ -643,34 +673,64 @@ attrGet _ = getModelButtonRole attrSet _ = setModelButtonRole attrConstruct _ = constructModelButtonRole+ attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getModelButtonText :: (MonadIO m, ModelButtonK o) => o -> m T.Text+getModelButtonText :: (MonadIO m, ModelButtonK o) => o -> m (Maybe T.Text) getModelButtonText obj = liftIO $ getObjectPropertyString obj "text" setModelButtonText :: (MonadIO m, ModelButtonK o) => o -> T.Text -> m ()-setModelButtonText obj val = liftIO $ setObjectPropertyString obj "text" val+setModelButtonText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructModelButtonText :: T.Text -> IO ([Char], GValue)-constructModelButtonText val = constructObjectPropertyString "text" val+constructModelButtonText val = constructObjectPropertyString "text" (Just val) +clearModelButtonText :: (MonadIO m, ModelButtonK o) => o -> m ()+clearModelButtonText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text)+ data ModelButtonTextPropertyInfo instance AttrInfo ModelButtonTextPropertyInfo where- type AttrAllowedOps ModelButtonTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ModelButtonTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ModelButtonTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ModelButtonTextPropertyInfo = ModelButtonK- type AttrGetType ModelButtonTextPropertyInfo = T.Text+ type AttrGetType ModelButtonTextPropertyInfo = (Maybe T.Text) type AttrLabel ModelButtonTextPropertyInfo = "text" attrGet _ = getModelButtonText attrSet _ = setModelButtonText attrConstruct _ = constructModelButtonText+ attrClear _ = clearModelButtonText type instance AttributeList ModelButton = ModelButtonAttributeList type ModelButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ModelButtonActivePropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("centered", ModelButtonCenteredPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("icon", ModelButtonIconPropertyInfo), '("iconic", ModelButtonIconicPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("inverted", ModelButtonInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("menuName", ModelButtonMenuNamePropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", ModelButtonRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("text", ModelButtonTextPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +modelButtonActive :: AttrLabelProxy "active"+modelButtonActive = AttrLabelProxy++modelButtonCentered :: AttrLabelProxy "centered"+modelButtonCentered = AttrLabelProxy++modelButtonIcon :: AttrLabelProxy "icon"+modelButtonIcon = AttrLabelProxy++modelButtonIconic :: AttrLabelProxy "iconic"+modelButtonIconic = AttrLabelProxy++modelButtonInverted :: AttrLabelProxy "inverted"+modelButtonInverted = AttrLabelProxy++modelButtonMenuName :: AttrLabelProxy "menuName"+modelButtonMenuName = AttrLabelProxy++modelButtonRole :: AttrLabelProxy "role"+modelButtonRole = AttrLabelProxy++modelButtonText :: AttrLabelProxy "text"+modelButtonText = AttrLabelProxy+ type instance SignalList ModelButton = ModelButtonSignalList type ModelButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -678,7 +738,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "ModelButton"+-- returnType : Just (TInterface "Gtk" "ModelButton") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ModelButton where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -56,8 +56,10 @@ -- ** Parent MountOperationParentPropertyInfo ,+ clearMountOperationParent , constructMountOperationParent , getMountOperationParent ,+ mountOperationParent , setMountOperationParent , @@ -65,6 +67,7 @@ MountOperationScreenPropertyInfo , constructMountOperationScreen , getMountOperationScreen ,+ mountOperationScreen , setMountOperationScreen , @@ -72,9 +75,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -160,6 +163,7 @@ -- VVV Prop "is-showing" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) getMountOperationIsShowing :: (MonadIO m, MountOperationK o) => o -> m Bool getMountOperationIsShowing obj = liftIO $ getObjectPropertyBool obj "is-showing"@@ -174,23 +178,28 @@ attrGet _ = getMountOperationIsShowing attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "parent" -- Type: TInterface "Gtk" "Window" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getMountOperationParent :: (MonadIO m, MountOperationK o) => o -> m Window-getMountOperationParent obj = liftIO $ getObjectPropertyObject obj "parent" Window+getMountOperationParent obj = liftIO $ checkUnexpectedNothing "getMountOperationParent" $ getObjectPropertyObject obj "parent" Window setMountOperationParent :: (MonadIO m, MountOperationK o, WindowK a) => o -> a -> m ()-setMountOperationParent obj val = liftIO $ setObjectPropertyObject obj "parent" val+setMountOperationParent obj val = liftIO $ setObjectPropertyObject obj "parent" (Just val) constructMountOperationParent :: (WindowK a) => a -> IO ([Char], GValue)-constructMountOperationParent val = constructObjectPropertyObject "parent" val+constructMountOperationParent val = constructObjectPropertyObject "parent" (Just val) +clearMountOperationParent :: (MonadIO m, MountOperationK o) => o -> m ()+clearMountOperationParent obj = liftIO $ setObjectPropertyObject obj "parent" (Nothing :: Maybe Window)+ data MountOperationParentPropertyInfo instance AttrInfo MountOperationParentPropertyInfo where- type AttrAllowedOps MountOperationParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps MountOperationParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MountOperationParentPropertyInfo = WindowK type AttrBaseTypeConstraint MountOperationParentPropertyInfo = MountOperationK type AttrGetType MountOperationParentPropertyInfo = Window@@ -198,19 +207,21 @@ attrGet _ = getMountOperationParent attrSet _ = setMountOperationParent attrConstruct _ = constructMountOperationParent+ attrClear _ = clearMountOperationParent -- VVV Prop "screen" -- Type: TInterface "Gdk" "Screen" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getMountOperationScreen :: (MonadIO m, MountOperationK o) => o -> m Gdk.Screen-getMountOperationScreen obj = liftIO $ getObjectPropertyObject obj "screen" Gdk.Screen+getMountOperationScreen obj = liftIO $ checkUnexpectedNothing "getMountOperationScreen" $ getObjectPropertyObject obj "screen" Gdk.Screen setMountOperationScreen :: (MonadIO m, MountOperationK o, Gdk.ScreenK a) => o -> a -> m ()-setMountOperationScreen obj val = liftIO $ setObjectPropertyObject obj "screen" val+setMountOperationScreen obj val = liftIO $ setObjectPropertyObject obj "screen" (Just val) constructMountOperationScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue)-constructMountOperationScreen val = constructObjectPropertyObject "screen" val+constructMountOperationScreen val = constructObjectPropertyObject "screen" (Just val) data MountOperationScreenPropertyInfo instance AttrInfo MountOperationScreenPropertyInfo where@@ -222,10 +233,17 @@ attrGet _ = getMountOperationScreen attrSet _ = setMountOperationScreen attrConstruct _ = constructMountOperationScreen+ attrClear _ = undefined type instance AttributeList MountOperation = MountOperationAttributeList type MountOperationAttributeList = ('[ '("anonymous", Gio.MountOperationAnonymousPropertyInfo), '("choice", Gio.MountOperationChoicePropertyInfo), '("domain", Gio.MountOperationDomainPropertyInfo), '("isShowing", MountOperationIsShowingPropertyInfo), '("parent", MountOperationParentPropertyInfo), '("password", Gio.MountOperationPasswordPropertyInfo), '("passwordSave", Gio.MountOperationPasswordSavePropertyInfo), '("screen", MountOperationScreenPropertyInfo), '("username", Gio.MountOperationUsernamePropertyInfo)] :: [(Symbol, *)]) +mountOperationParent :: AttrLabelProxy "parent"+mountOperationParent = AttrLabelProxy++mountOperationScreen :: AttrLabelProxy "screen"+mountOperationScreen = AttrLabelProxy+ type instance SignalList MountOperation = MountOperationSignalList type MountOperationSignalList = ('[ '("aborted", Gio.MountOperationAbortedSignalInfo), '("askPassword", Gio.MountOperationAskPasswordSignalInfo), '("askQuestion", Gio.MountOperationAskQuestionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("reply", Gio.MountOperationReplySignalInfo), '("showProcesses", Gio.MountOperationShowProcessesSignalInfo), '("showUnmountProgress", Gio.MountOperationShowUnmountProgressSignalInfo)] :: [(Symbol, *)]) @@ -233,7 +251,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "MountOperation"+-- returnType : Just (TInterface "Gtk" "MountOperation") -- throws : False -- Skip return : False @@ -262,7 +280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Window"+-- returnType : Just (TInterface "Gtk" "Window") -- throws : False -- Skip return : False @@ -291,7 +309,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Screen"+-- returnType : Just (TInterface "Gdk" "Screen") -- throws : False -- Skip return : False @@ -320,7 +338,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -348,7 +366,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -383,7 +401,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.MountOperation where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -248,13 +248,16 @@ NotebookEnablePopupPropertyInfo , constructNotebookEnablePopup , getNotebookEnablePopup ,+ notebookEnablePopup , setNotebookEnablePopup , -- ** GroupName NotebookGroupNamePropertyInfo ,+ clearNotebookGroupName , constructNotebookGroupName , getNotebookGroupName ,+ notebookGroupName , setNotebookGroupName , @@ -262,6 +265,7 @@ NotebookPagePropertyInfo , constructNotebookPage , getNotebookPage ,+ notebookPage , setNotebookPage , @@ -269,6 +273,7 @@ NotebookScrollablePropertyInfo , constructNotebookScrollable , getNotebookScrollable ,+ notebookScrollable , setNotebookScrollable , @@ -276,6 +281,7 @@ NotebookShowBorderPropertyInfo , constructNotebookShowBorder , getNotebookShowBorder ,+ notebookShowBorder , setNotebookShowBorder , @@ -283,6 +289,7 @@ NotebookShowTabsPropertyInfo , constructNotebookShowTabs , getNotebookShowTabs ,+ notebookShowTabs , setNotebookShowTabs , @@ -290,6 +297,7 @@ NotebookTabPosPropertyInfo , constructNotebookTabPos , getNotebookTabPos ,+ notebookTabPos , setNotebookTabPos , @@ -420,9 +428,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -1273,6 +1281,7 @@ -- VVV Prop "enable-popup" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getNotebookEnablePopup :: (MonadIO m, NotebookK o) => o -> m Bool getNotebookEnablePopup obj = liftIO $ getObjectPropertyBool obj "enable-popup"@@ -1293,23 +1302,28 @@ attrGet _ = getNotebookEnablePopup attrSet _ = setNotebookEnablePopup attrConstruct _ = constructNotebookEnablePopup+ attrClear _ = undefined -- VVV Prop "group-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getNotebookGroupName :: (MonadIO m, NotebookK o) => o -> m T.Text-getNotebookGroupName obj = liftIO $ getObjectPropertyString obj "group-name"+getNotebookGroupName obj = liftIO $ checkUnexpectedNothing "getNotebookGroupName" $ getObjectPropertyString obj "group-name" setNotebookGroupName :: (MonadIO m, NotebookK o) => o -> T.Text -> m ()-setNotebookGroupName obj val = liftIO $ setObjectPropertyString obj "group-name" val+setNotebookGroupName obj val = liftIO $ setObjectPropertyString obj "group-name" (Just val) constructNotebookGroupName :: T.Text -> IO ([Char], GValue)-constructNotebookGroupName val = constructObjectPropertyString "group-name" val+constructNotebookGroupName val = constructObjectPropertyString "group-name" (Just val) +clearNotebookGroupName :: (MonadIO m, NotebookK o) => o -> m ()+clearNotebookGroupName obj = liftIO $ setObjectPropertyString obj "group-name" (Nothing :: Maybe T.Text)+ data NotebookGroupNamePropertyInfo instance AttrInfo NotebookGroupNamePropertyInfo where- type AttrAllowedOps NotebookGroupNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps NotebookGroupNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint NotebookGroupNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint NotebookGroupNamePropertyInfo = NotebookK type AttrGetType NotebookGroupNamePropertyInfo = T.Text@@ -1317,19 +1331,21 @@ attrGet _ = getNotebookGroupName attrSet _ = setNotebookGroupName attrConstruct _ = constructNotebookGroupName+ attrClear _ = clearNotebookGroupName -- VVV Prop "page"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getNotebookPage :: (MonadIO m, NotebookK o) => o -> m Int32-getNotebookPage obj = liftIO $ getObjectPropertyCInt obj "page"+getNotebookPage obj = liftIO $ getObjectPropertyInt32 obj "page" setNotebookPage :: (MonadIO m, NotebookK o) => o -> Int32 -> m ()-setNotebookPage obj val = liftIO $ setObjectPropertyCInt obj "page" val+setNotebookPage obj val = liftIO $ setObjectPropertyInt32 obj "page" val constructNotebookPage :: Int32 -> IO ([Char], GValue)-constructNotebookPage val = constructObjectPropertyCInt "page" val+constructNotebookPage val = constructObjectPropertyInt32 "page" val data NotebookPagePropertyInfo instance AttrInfo NotebookPagePropertyInfo where@@ -1341,10 +1357,12 @@ attrGet _ = getNotebookPage attrSet _ = setNotebookPage attrConstruct _ = constructNotebookPage+ attrClear _ = undefined -- VVV Prop "scrollable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getNotebookScrollable :: (MonadIO m, NotebookK o) => o -> m Bool getNotebookScrollable obj = liftIO $ getObjectPropertyBool obj "scrollable"@@ -1365,10 +1383,12 @@ attrGet _ = getNotebookScrollable attrSet _ = setNotebookScrollable attrConstruct _ = constructNotebookScrollable+ attrClear _ = undefined -- VVV Prop "show-border" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getNotebookShowBorder :: (MonadIO m, NotebookK o) => o -> m Bool getNotebookShowBorder obj = liftIO $ getObjectPropertyBool obj "show-border"@@ -1389,10 +1409,12 @@ attrGet _ = getNotebookShowBorder attrSet _ = setNotebookShowBorder attrConstruct _ = constructNotebookShowBorder+ attrClear _ = undefined -- VVV Prop "show-tabs" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getNotebookShowTabs :: (MonadIO m, NotebookK o) => o -> m Bool getNotebookShowTabs obj = liftIO $ getObjectPropertyBool obj "show-tabs"@@ -1413,10 +1435,12 @@ attrGet _ = getNotebookShowTabs attrSet _ = setNotebookShowTabs attrConstruct _ = constructNotebookShowTabs+ attrClear _ = undefined -- VVV Prop "tab-pos" -- Type: TInterface "Gtk" "PositionType" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getNotebookTabPos :: (MonadIO m, NotebookK o) => o -> m PositionType getNotebookTabPos obj = liftIO $ getObjectPropertyEnum obj "tab-pos"@@ -1437,10 +1461,32 @@ attrGet _ = getNotebookTabPos attrSet _ = setNotebookTabPos attrConstruct _ = constructNotebookTabPos+ attrClear _ = undefined type instance AttributeList Notebook = NotebookAttributeList type NotebookAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("enablePopup", NotebookEnablePopupPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("groupName", NotebookGroupNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("page", NotebookPagePropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("scrollable", NotebookScrollablePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showBorder", NotebookShowBorderPropertyInfo), '("showTabs", NotebookShowTabsPropertyInfo), '("style", WidgetStylePropertyInfo), '("tabPos", NotebookTabPosPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +notebookEnablePopup :: AttrLabelProxy "enablePopup"+notebookEnablePopup = AttrLabelProxy++notebookGroupName :: AttrLabelProxy "groupName"+notebookGroupName = AttrLabelProxy++notebookPage :: AttrLabelProxy "page"+notebookPage = AttrLabelProxy++notebookScrollable :: AttrLabelProxy "scrollable"+notebookScrollable = AttrLabelProxy++notebookShowBorder :: AttrLabelProxy "showBorder"+notebookShowBorder = AttrLabelProxy++notebookShowTabs :: AttrLabelProxy "showTabs"+notebookShowTabs = AttrLabelProxy++notebookTabPos :: AttrLabelProxy "tabPos"+notebookTabPos = AttrLabelProxy+ data NotebookChangeCurrentPageSignalInfo instance SignalInfo NotebookChangeCurrentPageSignalInfo where type HaskellCallbackType NotebookChangeCurrentPageSignalInfo = NotebookChangeCurrentPageCallback@@ -1498,7 +1544,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "Notebook"+-- returnType : Just (TInterface "Gtk" "Notebook") -- throws : False -- Skip return : False @@ -1519,7 +1565,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1558,7 +1604,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1605,7 +1651,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1636,7 +1682,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1668,7 +1714,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1695,7 +1741,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1724,7 +1770,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1757,7 +1803,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1790,7 +1836,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1815,15 +1861,15 @@ -- method Notebook::get_nth_page -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False foreign import ccall "gtk_notebook_get_nth_page" gtk_notebook_get_nth_page :: Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"- Int32 -> -- page_num : TBasicType TInt32+ Int32 -> -- page_num : TBasicType TInt IO (Ptr Widget) @@ -1848,7 +1894,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1876,7 +1922,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1904,7 +1950,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1932,7 +1978,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1964,7 +2010,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt16+-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -1991,7 +2037,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -2024,7 +2070,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2057,7 +2103,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PositionType"+-- returnType : Just (TInterface "Gtk" "PositionType") -- throws : False -- Skip return : False @@ -2085,7 +2131,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2117,7 +2163,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt16+-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -2142,9 +2188,9 @@ -- method Notebook::insert_page -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2152,7 +2198,7 @@ Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" Ptr Widget -> -- child : TInterface "Gtk" "Widget" Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt IO Int32 @@ -2183,9 +2229,9 @@ -- method Notebook::insert_page_menu -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2194,7 +2240,7 @@ Ptr Widget -> -- child : TInterface "Gtk" "Widget" Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" Ptr Widget -> -- menu_label : TInterface "Gtk" "Widget"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt IO Int32 @@ -2234,7 +2280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2261,7 +2307,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2292,7 +2338,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2319,7 +2365,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2346,7 +2392,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2385,7 +2431,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2432,7 +2478,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2457,15 +2503,15 @@ -- method Notebook::remove_page -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_notebook_remove_page" gtk_notebook_remove_page :: Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"- Int32 -> -- page_num : TBasicType TInt32+ Int32 -> -- page_num : TBasicType TInt IO () @@ -2486,16 +2532,16 @@ -- method Notebook::reorder_child -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_notebook_reorder_child" gtk_notebook_reorder_child :: Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" Ptr Widget -> -- child : TInterface "Gtk" "Widget"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt IO () @@ -2521,7 +2567,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2553,15 +2599,15 @@ -- method Notebook::set_current_page -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_notebook_set_current_page" gtk_notebook_set_current_page :: Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"- Int32 -> -- page_num : TBasicType TInt32+ Int32 -> -- page_num : TBasicType TInt IO () @@ -2584,7 +2630,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2619,7 +2665,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2658,7 +2704,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2693,7 +2739,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scrollable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2723,7 +2769,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_border", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2753,7 +2799,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_tabs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2783,7 +2829,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detachable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2817,7 +2863,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2856,7 +2902,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2891,7 +2937,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2921,7 +2967,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Notebook where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.NotebookAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -30,9 +30,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -139,7 +139,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "notebook", argType = TInterface "Gtk" "NotebookAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "NotebookPageAccessible"+-- returnType : Just (TInterface "Gtk" "NotebookPageAccessible") -- throws : False -- Skip return : False @@ -168,7 +168,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NotebookPageAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.NotebookPageAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -80,15 +80,19 @@ -- * Properties -- ** BackgroundIcon NumerableIconBackgroundIconPropertyInfo ,+ clearNumerableIconBackgroundIcon , constructNumerableIconBackgroundIcon , getNumerableIconBackgroundIcon ,+ numerableIconBackgroundIcon , setNumerableIconBackgroundIcon , -- ** BackgroundIconName NumerableIconBackgroundIconNamePropertyInfo,+ clearNumerableIconBackgroundIconName , constructNumerableIconBackgroundIconName, getNumerableIconBackgroundIconName ,+ numerableIconBackgroundIconName , setNumerableIconBackgroundIconName , @@ -96,13 +100,16 @@ NumerableIconCountPropertyInfo , constructNumerableIconCount , getNumerableIconCount ,+ numerableIconCount , setNumerableIconCount , -- ** Label NumerableIconLabelPropertyInfo ,+ clearNumerableIconLabel , constructNumerableIconLabel , getNumerableIconLabel ,+ numerableIconLabel , setNumerableIconLabel , @@ -110,6 +117,7 @@ NumerableIconStyleContextPropertyInfo , constructNumerableIconStyleContext , getNumerableIconStyleContext ,+ numerableIconStyleContext , setNumerableIconStyleContext , @@ -117,9 +125,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -203,43 +211,52 @@ -- VVV Prop "background-icon" -- Type: TInterface "Gio" "Icon" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getNumerableIconBackgroundIcon :: (MonadIO m, NumerableIconK o) => o -> m Gio.Icon+getNumerableIconBackgroundIcon :: (MonadIO m, NumerableIconK o) => o -> m (Maybe Gio.Icon) getNumerableIconBackgroundIcon obj = liftIO $ getObjectPropertyObject obj "background-icon" Gio.Icon setNumerableIconBackgroundIcon :: (MonadIO m, NumerableIconK o, Gio.IconK a) => o -> a -> m ()-setNumerableIconBackgroundIcon obj val = liftIO $ setObjectPropertyObject obj "background-icon" val+setNumerableIconBackgroundIcon obj val = liftIO $ setObjectPropertyObject obj "background-icon" (Just val) constructNumerableIconBackgroundIcon :: (Gio.IconK a) => a -> IO ([Char], GValue)-constructNumerableIconBackgroundIcon val = constructObjectPropertyObject "background-icon" val+constructNumerableIconBackgroundIcon val = constructObjectPropertyObject "background-icon" (Just val) +clearNumerableIconBackgroundIcon :: (MonadIO m, NumerableIconK o) => o -> m ()+clearNumerableIconBackgroundIcon obj = liftIO $ setObjectPropertyObject obj "background-icon" (Nothing :: Maybe Gio.Icon)+ data NumerableIconBackgroundIconPropertyInfo instance AttrInfo NumerableIconBackgroundIconPropertyInfo where- type AttrAllowedOps NumerableIconBackgroundIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps NumerableIconBackgroundIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint NumerableIconBackgroundIconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint NumerableIconBackgroundIconPropertyInfo = NumerableIconK- type AttrGetType NumerableIconBackgroundIconPropertyInfo = Gio.Icon+ type AttrGetType NumerableIconBackgroundIconPropertyInfo = (Maybe Gio.Icon) type AttrLabel NumerableIconBackgroundIconPropertyInfo = "background-icon" attrGet _ = getNumerableIconBackgroundIcon attrSet _ = setNumerableIconBackgroundIcon attrConstruct _ = constructNumerableIconBackgroundIcon+ attrClear _ = clearNumerableIconBackgroundIcon -- VVV Prop "background-icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getNumerableIconBackgroundIconName :: (MonadIO m, NumerableIconK o) => o -> m T.Text-getNumerableIconBackgroundIconName obj = liftIO $ getObjectPropertyString obj "background-icon-name"+getNumerableIconBackgroundIconName obj = liftIO $ checkUnexpectedNothing "getNumerableIconBackgroundIconName" $ getObjectPropertyString obj "background-icon-name" setNumerableIconBackgroundIconName :: (MonadIO m, NumerableIconK o) => o -> T.Text -> m ()-setNumerableIconBackgroundIconName obj val = liftIO $ setObjectPropertyString obj "background-icon-name" val+setNumerableIconBackgroundIconName obj val = liftIO $ setObjectPropertyString obj "background-icon-name" (Just val) constructNumerableIconBackgroundIconName :: T.Text -> IO ([Char], GValue)-constructNumerableIconBackgroundIconName val = constructObjectPropertyString "background-icon-name" val+constructNumerableIconBackgroundIconName val = constructObjectPropertyString "background-icon-name" (Just val) +clearNumerableIconBackgroundIconName :: (MonadIO m, NumerableIconK o) => o -> m ()+clearNumerableIconBackgroundIconName obj = liftIO $ setObjectPropertyString obj "background-icon-name" (Nothing :: Maybe T.Text)+ data NumerableIconBackgroundIconNamePropertyInfo instance AttrInfo NumerableIconBackgroundIconNamePropertyInfo where- type AttrAllowedOps NumerableIconBackgroundIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps NumerableIconBackgroundIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint NumerableIconBackgroundIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint NumerableIconBackgroundIconNamePropertyInfo = NumerableIconK type AttrGetType NumerableIconBackgroundIconNamePropertyInfo = T.Text@@ -247,19 +264,21 @@ attrGet _ = getNumerableIconBackgroundIconName attrSet _ = setNumerableIconBackgroundIconName attrConstruct _ = constructNumerableIconBackgroundIconName+ attrClear _ = clearNumerableIconBackgroundIconName -- VVV Prop "count"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getNumerableIconCount :: (MonadIO m, NumerableIconK o) => o -> m Int32-getNumerableIconCount obj = liftIO $ getObjectPropertyCInt obj "count"+getNumerableIconCount obj = liftIO $ getObjectPropertyInt32 obj "count" setNumerableIconCount :: (MonadIO m, NumerableIconK o) => o -> Int32 -> m ()-setNumerableIconCount obj val = liftIO $ setObjectPropertyCInt obj "count" val+setNumerableIconCount obj val = liftIO $ setObjectPropertyInt32 obj "count" val constructNumerableIconCount :: Int32 -> IO ([Char], GValue)-constructNumerableIconCount val = constructObjectPropertyCInt "count" val+constructNumerableIconCount val = constructObjectPropertyInt32 "count" val data NumerableIconCountPropertyInfo instance AttrInfo NumerableIconCountPropertyInfo where@@ -271,23 +290,28 @@ attrGet _ = getNumerableIconCount attrSet _ = setNumerableIconCount attrConstruct _ = constructNumerableIconCount+ attrClear _ = undefined -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getNumerableIconLabel :: (MonadIO m, NumerableIconK o) => o -> m T.Text-getNumerableIconLabel obj = liftIO $ getObjectPropertyString obj "label"+getNumerableIconLabel obj = liftIO $ checkUnexpectedNothing "getNumerableIconLabel" $ getObjectPropertyString obj "label" setNumerableIconLabel :: (MonadIO m, NumerableIconK o) => o -> T.Text -> m ()-setNumerableIconLabel obj val = liftIO $ setObjectPropertyString obj "label" val+setNumerableIconLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) constructNumerableIconLabel :: T.Text -> IO ([Char], GValue)-constructNumerableIconLabel val = constructObjectPropertyString "label" val+constructNumerableIconLabel val = constructObjectPropertyString "label" (Just val) +clearNumerableIconLabel :: (MonadIO m, NumerableIconK o) => o -> m ()+clearNumerableIconLabel obj = liftIO $ setObjectPropertyString obj "label" (Nothing :: Maybe T.Text)+ data NumerableIconLabelPropertyInfo instance AttrInfo NumerableIconLabelPropertyInfo where- type AttrAllowedOps NumerableIconLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps NumerableIconLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint NumerableIconLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint NumerableIconLabelPropertyInfo = NumerableIconK type AttrGetType NumerableIconLabelPropertyInfo = T.Text@@ -295,19 +319,21 @@ attrGet _ = getNumerableIconLabel attrSet _ = setNumerableIconLabel attrConstruct _ = constructNumerableIconLabel+ attrClear _ = clearNumerableIconLabel -- VVV Prop "style-context" -- Type: TInterface "Gtk" "StyleContext" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getNumerableIconStyleContext :: (MonadIO m, NumerableIconK o) => o -> m StyleContext-getNumerableIconStyleContext obj = liftIO $ getObjectPropertyObject obj "style-context" StyleContext+getNumerableIconStyleContext obj = liftIO $ checkUnexpectedNothing "getNumerableIconStyleContext" $ getObjectPropertyObject obj "style-context" StyleContext setNumerableIconStyleContext :: (MonadIO m, NumerableIconK o, StyleContextK a) => o -> a -> m ()-setNumerableIconStyleContext obj val = liftIO $ setObjectPropertyObject obj "style-context" val+setNumerableIconStyleContext obj val = liftIO $ setObjectPropertyObject obj "style-context" (Just val) constructNumerableIconStyleContext :: (StyleContextK a) => a -> IO ([Char], GValue)-constructNumerableIconStyleContext val = constructObjectPropertyObject "style-context" val+constructNumerableIconStyleContext val = constructObjectPropertyObject "style-context" (Just val) data NumerableIconStyleContextPropertyInfo instance AttrInfo NumerableIconStyleContextPropertyInfo where@@ -319,10 +345,26 @@ attrGet _ = getNumerableIconStyleContext attrSet _ = setNumerableIconStyleContext attrConstruct _ = constructNumerableIconStyleContext+ attrClear _ = undefined type instance AttributeList NumerableIcon = NumerableIconAttributeList type NumerableIconAttributeList = ('[ '("backgroundIcon", NumerableIconBackgroundIconPropertyInfo), '("backgroundIconName", NumerableIconBackgroundIconNamePropertyInfo), '("count", NumerableIconCountPropertyInfo), '("gicon", Gio.EmblemedIconGiconPropertyInfo), '("label", NumerableIconLabelPropertyInfo), '("styleContext", NumerableIconStyleContextPropertyInfo)] :: [(Symbol, *)]) +numerableIconBackgroundIcon :: AttrLabelProxy "backgroundIcon"+numerableIconBackgroundIcon = AttrLabelProxy++numerableIconBackgroundIconName :: AttrLabelProxy "backgroundIconName"+numerableIconBackgroundIconName = AttrLabelProxy++numerableIconCount :: AttrLabelProxy "count"+numerableIconCount = AttrLabelProxy++numerableIconLabel :: AttrLabelProxy "label"+numerableIconLabel = AttrLabelProxy++numerableIconStyleContext :: AttrLabelProxy "styleContext"+numerableIconStyleContext = AttrLabelProxy+ type instance SignalList NumerableIcon = NumerableIconSignalList type NumerableIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -330,7 +372,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "Icon"+-- returnType : Just (TInterface "Gio" "Icon") -- throws : False -- Skip return : False @@ -359,7 +401,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -388,7 +430,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -415,7 +457,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -444,7 +486,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "StyleContext"+-- returnType : Just (TInterface "Gtk" "StyleContext") -- throws : False -- Skip return : False @@ -473,7 +515,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -508,7 +550,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -541,15 +583,15 @@ -- method NumerableIcon::set_count -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_numerable_icon_set_count" gtk_numerable_icon_set_count :: Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon"- Int32 -> -- count : TBasicType TInt32+ Int32 -> -- count : TBasicType TInt IO () {-# DEPRECATED numerableIconSetCount ["(Since version 3.14)"]#-}@@ -572,7 +614,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -607,7 +649,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -638,7 +680,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "Icon"+-- returnType : Just (TInterface "Gio" "Icon") -- throws : False -- Skip return : False @@ -663,7 +705,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "Icon"+-- returnType : Just (TInterface "Gio" "Icon") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.NumerableIcon where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -35,9 +35,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -506,7 +506,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "OffscreenWindow"+-- returnType : Just (TInterface "Gtk" "OffscreenWindow") -- throws : False -- Skip return : False @@ -527,7 +527,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -556,7 +556,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "cairo" "Surface"+-- returnType : Just (TInterface "cairo" "Surface") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.OffscreenWindow where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -45,9 +45,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -415,7 +415,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "Overlay"+-- returnType : Just (TInterface "Gtk" "Overlay") -- throws : False -- Skip return : False @@ -436,7 +436,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -467,7 +467,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -497,16 +497,16 @@ -- method Overlay::reorder_overlay -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_overlay_reorder_overlay" gtk_overlay_reorder_overlay :: Ptr Overlay -> -- _obj : TInterface "Gtk" "Overlay" Ptr Widget -> -- child : TInterface "Gtk" "Widget"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt IO () @@ -532,7 +532,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pass_through", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Overlay where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -143,9 +143,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -241,7 +241,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "PageSetup"+-- returnType : Just (TInterface "Gtk" "PageSetup") -- throws : False -- Skip return : False @@ -262,7 +262,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PageSetup"+-- returnType : Just (TInterface "Gtk" "PageSetup") -- throws : True -- Skip return : False @@ -292,7 +292,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PageSetup"+-- returnType : Just (TInterface "Gtk" "PageSetup") -- throws : True -- Skip return : False @@ -330,7 +330,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PageSetup"+-- returnType : Just (TInterface "Gtk" "PageSetup") -- throws : False -- Skip return : False @@ -359,7 +359,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -390,7 +390,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -421,7 +421,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PageOrientation"+-- returnType : Just (TInterface "Gtk" "PageOrientation") -- throws : False -- Skip return : False @@ -449,7 +449,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -480,7 +480,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -511,7 +511,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -542,7 +542,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PaperSize"+-- returnType : Just (TInterface "Gtk" "PaperSize") -- throws : False -- Skip return : False @@ -571,7 +571,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -602,7 +602,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -633,7 +633,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -664,7 +664,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -700,7 +700,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -744,7 +744,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -777,7 +777,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -810,7 +810,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -840,7 +840,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -871,7 +871,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -902,7 +902,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -935,7 +935,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -968,7 +968,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1004,7 +1004,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.PageSetup where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -82,17 +82,20 @@ -- ** MaxPosition PanedMaxPositionPropertyInfo , getPanedMaxPosition ,+ panedMaxPosition , -- ** MinPosition PanedMinPositionPropertyInfo , getPanedMinPosition ,+ panedMinPosition , -- ** Position PanedPositionPropertyInfo , constructPanedPosition , getPanedPosition ,+ panedPosition , setPanedPosition , @@ -100,6 +103,7 @@ PanedPositionSetPropertyInfo , constructPanedPositionSet , getPanedPositionSet ,+ panedPositionSet , setPanedPositionSet , @@ -107,6 +111,7 @@ PanedWideHandlePropertyInfo , constructPanedWideHandle , getPanedWideHandle ,+ panedWideHandle , setPanedWideHandle , @@ -189,9 +194,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -811,11 +816,12 @@ connectSignalFunPtr obj "toggle-handle-focus" cb' after -- VVV Prop "max-position"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) getPanedMaxPosition :: (MonadIO m, PanedK o) => o -> m Int32-getPanedMaxPosition obj = liftIO $ getObjectPropertyCInt obj "max-position"+getPanedMaxPosition obj = liftIO $ getObjectPropertyInt32 obj "max-position" data PanedMaxPositionPropertyInfo instance AttrInfo PanedMaxPositionPropertyInfo where@@ -827,13 +833,15 @@ attrGet _ = getPanedMaxPosition attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "min-position"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable]+ -- Nullable: (Nothing,Nothing) getPanedMinPosition :: (MonadIO m, PanedK o) => o -> m Int32-getPanedMinPosition obj = liftIO $ getObjectPropertyCInt obj "min-position"+getPanedMinPosition obj = liftIO $ getObjectPropertyInt32 obj "min-position" data PanedMinPositionPropertyInfo instance AttrInfo PanedMinPositionPropertyInfo where@@ -845,19 +853,21 @@ attrGet _ = getPanedMinPosition attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "position"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getPanedPosition :: (MonadIO m, PanedK o) => o -> m Int32-getPanedPosition obj = liftIO $ getObjectPropertyCInt obj "position"+getPanedPosition obj = liftIO $ getObjectPropertyInt32 obj "position" setPanedPosition :: (MonadIO m, PanedK o) => o -> Int32 -> m ()-setPanedPosition obj val = liftIO $ setObjectPropertyCInt obj "position" val+setPanedPosition obj val = liftIO $ setObjectPropertyInt32 obj "position" val constructPanedPosition :: Int32 -> IO ([Char], GValue)-constructPanedPosition val = constructObjectPropertyCInt "position" val+constructPanedPosition val = constructObjectPropertyInt32 "position" val data PanedPositionPropertyInfo instance AttrInfo PanedPositionPropertyInfo where@@ -869,10 +879,12 @@ attrGet _ = getPanedPosition attrSet _ = setPanedPosition attrConstruct _ = constructPanedPosition+ attrClear _ = undefined -- VVV Prop "position-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getPanedPositionSet :: (MonadIO m, PanedK o) => o -> m Bool getPanedPositionSet obj = liftIO $ getObjectPropertyBool obj "position-set"@@ -893,10 +905,12 @@ attrGet _ = getPanedPositionSet attrSet _ = setPanedPositionSet attrConstruct _ = constructPanedPositionSet+ attrClear _ = undefined -- VVV Prop "wide-handle" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getPanedWideHandle :: (MonadIO m, PanedK o) => o -> m Bool getPanedWideHandle obj = liftIO $ getObjectPropertyBool obj "wide-handle"@@ -917,10 +931,26 @@ attrGet _ = getPanedWideHandle attrSet _ = setPanedWideHandle attrConstruct _ = constructPanedWideHandle+ attrClear _ = undefined type instance AttributeList Paned = PanedAttributeList type PanedAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxPosition", PanedMaxPositionPropertyInfo), '("minPosition", PanedMinPositionPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("positionSet", PanedPositionSetPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("wideHandle", PanedWideHandlePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +panedMaxPosition :: AttrLabelProxy "maxPosition"+panedMaxPosition = AttrLabelProxy++panedMinPosition :: AttrLabelProxy "minPosition"+panedMinPosition = AttrLabelProxy++panedPosition :: AttrLabelProxy "position"+panedPosition = AttrLabelProxy++panedPositionSet :: AttrLabelProxy "positionSet"+panedPositionSet = AttrLabelProxy++panedWideHandle :: AttrLabelProxy "wideHandle"+panedWideHandle = AttrLabelProxy+ data PanedAcceptPositionSignalInfo instance SignalInfo PanedAcceptPositionSignalInfo where type HaskellCallbackType PanedAcceptPositionSignalInfo = PanedAcceptPositionCallback@@ -958,7 +988,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Paned"+-- returnType : Just (TInterface "Gtk" "Paned") -- throws : False -- Skip return : False @@ -982,7 +1012,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1013,7 +1043,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1044,7 +1074,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1073,7 +1103,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1102,7 +1132,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Window"+-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -1131,7 +1161,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1158,7 +1188,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1186,7 +1216,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shrink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1223,7 +1253,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shrink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1258,15 +1288,15 @@ -- method Paned::set_position -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_paned_set_position" gtk_paned_set_position :: Ptr Paned -> -- _obj : TInterface "Gtk" "Paned"- Int32 -> -- position : TBasicType TInt32+ Int32 -> -- position : TBasicType TInt IO () @@ -1289,7 +1319,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wide", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Paned where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.PanedAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -143,13 +143,16 @@ PlacesSidebarLocalOnlyPropertyInfo , constructPlacesSidebarLocalOnly , getPlacesSidebarLocalOnly ,+ placesSidebarLocalOnly , setPlacesSidebarLocalOnly , -- ** Location PlacesSidebarLocationPropertyInfo ,+ clearPlacesSidebarLocation , constructPlacesSidebarLocation , getPlacesSidebarLocation ,+ placesSidebarLocation , setPlacesSidebarLocation , @@ -157,6 +160,7 @@ PlacesSidebarOpenFlagsPropertyInfo , constructPlacesSidebarOpenFlags , getPlacesSidebarOpenFlags ,+ placesSidebarOpenFlags , setPlacesSidebarOpenFlags , @@ -164,6 +168,7 @@ PlacesSidebarPopulateAllPropertyInfo , constructPlacesSidebarPopulateAll , getPlacesSidebarPopulateAll ,+ placesSidebarPopulateAll , setPlacesSidebarPopulateAll , @@ -171,6 +176,7 @@ PlacesSidebarShowConnectToServerPropertyInfo, constructPlacesSidebarShowConnectToServer, getPlacesSidebarShowConnectToServer ,+ placesSidebarShowConnectToServer , setPlacesSidebarShowConnectToServer , @@ -178,6 +184,7 @@ PlacesSidebarShowDesktopPropertyInfo , constructPlacesSidebarShowDesktop , getPlacesSidebarShowDesktop ,+ placesSidebarShowDesktop , setPlacesSidebarShowDesktop , @@ -185,6 +192,7 @@ PlacesSidebarShowEnterLocationPropertyInfo, constructPlacesSidebarShowEnterLocation , getPlacesSidebarShowEnterLocation ,+ placesSidebarShowEnterLocation , setPlacesSidebarShowEnterLocation , @@ -192,6 +200,7 @@ PlacesSidebarShowOtherLocationsPropertyInfo, constructPlacesSidebarShowOtherLocations, getPlacesSidebarShowOtherLocations ,+ placesSidebarShowOtherLocations , setPlacesSidebarShowOtherLocations , @@ -199,6 +208,7 @@ PlacesSidebarShowRecentPropertyInfo , constructPlacesSidebarShowRecent , getPlacesSidebarShowRecent ,+ placesSidebarShowRecent , setPlacesSidebarShowRecent , @@ -206,6 +216,7 @@ PlacesSidebarShowTrashPropertyInfo , constructPlacesSidebarShowTrash , getPlacesSidebarShowTrash ,+ placesSidebarShowTrash , setPlacesSidebarShowTrash , @@ -324,9 +335,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -1142,6 +1153,7 @@ -- VVV Prop "local-only" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getPlacesSidebarLocalOnly :: (MonadIO m, PlacesSidebarK o) => o -> m Bool getPlacesSidebarLocalOnly obj = liftIO $ getObjectPropertyBool obj "local-only"@@ -1162,34 +1174,41 @@ attrGet _ = getPlacesSidebarLocalOnly attrSet _ = setPlacesSidebarLocalOnly attrConstruct _ = constructPlacesSidebarLocalOnly+ attrClear _ = undefined -- VVV Prop "location" -- Type: TInterface "Gio" "File" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just True) -getPlacesSidebarLocation :: (MonadIO m, PlacesSidebarK o) => o -> m Gio.File+getPlacesSidebarLocation :: (MonadIO m, PlacesSidebarK o) => o -> m (Maybe Gio.File) getPlacesSidebarLocation obj = liftIO $ getObjectPropertyObject obj "location" Gio.File setPlacesSidebarLocation :: (MonadIO m, PlacesSidebarK o, Gio.FileK a) => o -> a -> m ()-setPlacesSidebarLocation obj val = liftIO $ setObjectPropertyObject obj "location" val+setPlacesSidebarLocation obj val = liftIO $ setObjectPropertyObject obj "location" (Just val) constructPlacesSidebarLocation :: (Gio.FileK a) => a -> IO ([Char], GValue)-constructPlacesSidebarLocation val = constructObjectPropertyObject "location" val+constructPlacesSidebarLocation val = constructObjectPropertyObject "location" (Just val) +clearPlacesSidebarLocation :: (MonadIO m, PlacesSidebarK o) => o -> m ()+clearPlacesSidebarLocation obj = liftIO $ setObjectPropertyObject obj "location" (Nothing :: Maybe Gio.File)+ data PlacesSidebarLocationPropertyInfo instance AttrInfo PlacesSidebarLocationPropertyInfo where- type AttrAllowedOps PlacesSidebarLocationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps PlacesSidebarLocationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PlacesSidebarLocationPropertyInfo = Gio.FileK type AttrBaseTypeConstraint PlacesSidebarLocationPropertyInfo = PlacesSidebarK- type AttrGetType PlacesSidebarLocationPropertyInfo = Gio.File+ type AttrGetType PlacesSidebarLocationPropertyInfo = (Maybe Gio.File) type AttrLabel PlacesSidebarLocationPropertyInfo = "location" attrGet _ = getPlacesSidebarLocation attrSet _ = setPlacesSidebarLocation attrConstruct _ = constructPlacesSidebarLocation+ attrClear _ = clearPlacesSidebarLocation -- VVV Prop "open-flags" -- Type: TInterface "Gtk" "PlacesOpenFlags" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getPlacesSidebarOpenFlags :: (MonadIO m, PlacesSidebarK o) => o -> m [PlacesOpenFlags] getPlacesSidebarOpenFlags obj = liftIO $ getObjectPropertyFlags obj "open-flags"@@ -1210,10 +1229,12 @@ attrGet _ = getPlacesSidebarOpenFlags attrSet _ = setPlacesSidebarOpenFlags attrConstruct _ = constructPlacesSidebarOpenFlags+ attrClear _ = undefined -- VVV Prop "populate-all" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getPlacesSidebarPopulateAll :: (MonadIO m, PlacesSidebarK o) => o -> m Bool getPlacesSidebarPopulateAll obj = liftIO $ getObjectPropertyBool obj "populate-all"@@ -1234,10 +1255,12 @@ attrGet _ = getPlacesSidebarPopulateAll attrSet _ = setPlacesSidebarPopulateAll attrConstruct _ = constructPlacesSidebarPopulateAll+ attrClear _ = undefined -- VVV Prop "show-connect-to-server" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getPlacesSidebarShowConnectToServer :: (MonadIO m, PlacesSidebarK o) => o -> m Bool getPlacesSidebarShowConnectToServer obj = liftIO $ getObjectPropertyBool obj "show-connect-to-server"@@ -1258,10 +1281,12 @@ attrGet _ = getPlacesSidebarShowConnectToServer attrSet _ = setPlacesSidebarShowConnectToServer attrConstruct _ = constructPlacesSidebarShowConnectToServer+ attrClear _ = undefined -- VVV Prop "show-desktop" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getPlacesSidebarShowDesktop :: (MonadIO m, PlacesSidebarK o) => o -> m Bool getPlacesSidebarShowDesktop obj = liftIO $ getObjectPropertyBool obj "show-desktop"@@ -1282,10 +1307,12 @@ attrGet _ = getPlacesSidebarShowDesktop attrSet _ = setPlacesSidebarShowDesktop attrConstruct _ = constructPlacesSidebarShowDesktop+ attrClear _ = undefined -- VVV Prop "show-enter-location" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getPlacesSidebarShowEnterLocation :: (MonadIO m, PlacesSidebarK o) => o -> m Bool getPlacesSidebarShowEnterLocation obj = liftIO $ getObjectPropertyBool obj "show-enter-location"@@ -1306,10 +1333,12 @@ attrGet _ = getPlacesSidebarShowEnterLocation attrSet _ = setPlacesSidebarShowEnterLocation attrConstruct _ = constructPlacesSidebarShowEnterLocation+ attrClear _ = undefined -- VVV Prop "show-other-locations" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getPlacesSidebarShowOtherLocations :: (MonadIO m, PlacesSidebarK o) => o -> m Bool getPlacesSidebarShowOtherLocations obj = liftIO $ getObjectPropertyBool obj "show-other-locations"@@ -1330,10 +1359,12 @@ attrGet _ = getPlacesSidebarShowOtherLocations attrSet _ = setPlacesSidebarShowOtherLocations attrConstruct _ = constructPlacesSidebarShowOtherLocations+ attrClear _ = undefined -- VVV Prop "show-recent" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getPlacesSidebarShowRecent :: (MonadIO m, PlacesSidebarK o) => o -> m Bool getPlacesSidebarShowRecent obj = liftIO $ getObjectPropertyBool obj "show-recent"@@ -1354,10 +1385,12 @@ attrGet _ = getPlacesSidebarShowRecent attrSet _ = setPlacesSidebarShowRecent attrConstruct _ = constructPlacesSidebarShowRecent+ attrClear _ = undefined -- VVV Prop "show-trash" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getPlacesSidebarShowTrash :: (MonadIO m, PlacesSidebarK o) => o -> m Bool getPlacesSidebarShowTrash obj = liftIO $ getObjectPropertyBool obj "show-trash"@@ -1378,10 +1411,41 @@ attrGet _ = getPlacesSidebarShowTrash attrSet _ = setPlacesSidebarShowTrash attrConstruct _ = constructPlacesSidebarShowTrash+ attrClear _ = undefined type instance AttributeList PlacesSidebar = PlacesSidebarAttributeList type PlacesSidebarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrolledWindowHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollbarPolicy", ScrolledWindowHscrollbarPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("kineticScrolling", ScrolledWindowKineticScrollingPropertyInfo), '("localOnly", PlacesSidebarLocalOnlyPropertyInfo), '("location", PlacesSidebarLocationPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("minContentHeight", ScrolledWindowMinContentHeightPropertyInfo), '("minContentWidth", ScrolledWindowMinContentWidthPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("openFlags", PlacesSidebarOpenFlagsPropertyInfo), '("overlayScrolling", ScrolledWindowOverlayScrollingPropertyInfo), '("parent", WidgetParentPropertyInfo), '("populateAll", PlacesSidebarPopulateAllPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", ScrolledWindowShadowTypePropertyInfo), '("showConnectToServer", PlacesSidebarShowConnectToServerPropertyInfo), '("showDesktop", PlacesSidebarShowDesktopPropertyInfo), '("showEnterLocation", PlacesSidebarShowEnterLocationPropertyInfo), '("showOtherLocations", PlacesSidebarShowOtherLocationsPropertyInfo), '("showRecent", PlacesSidebarShowRecentPropertyInfo), '("showTrash", PlacesSidebarShowTrashPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrolledWindowVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollbarPolicy", ScrolledWindowVscrollbarPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPlacement", ScrolledWindowWindowPlacementPropertyInfo), '("windowPlacementSet", ScrolledWindowWindowPlacementSetPropertyInfo)] :: [(Symbol, *)]) +placesSidebarLocalOnly :: AttrLabelProxy "localOnly"+placesSidebarLocalOnly = AttrLabelProxy++placesSidebarLocation :: AttrLabelProxy "location"+placesSidebarLocation = AttrLabelProxy++placesSidebarOpenFlags :: AttrLabelProxy "openFlags"+placesSidebarOpenFlags = AttrLabelProxy++placesSidebarPopulateAll :: AttrLabelProxy "populateAll"+placesSidebarPopulateAll = AttrLabelProxy++placesSidebarShowConnectToServer :: AttrLabelProxy "showConnectToServer"+placesSidebarShowConnectToServer = AttrLabelProxy++placesSidebarShowDesktop :: AttrLabelProxy "showDesktop"+placesSidebarShowDesktop = AttrLabelProxy++placesSidebarShowEnterLocation :: AttrLabelProxy "showEnterLocation"+placesSidebarShowEnterLocation = AttrLabelProxy++placesSidebarShowOtherLocations :: AttrLabelProxy "showOtherLocations"+placesSidebarShowOtherLocations = AttrLabelProxy++placesSidebarShowRecent :: AttrLabelProxy "showRecent"+placesSidebarShowRecent = AttrLabelProxy++placesSidebarShowTrash :: AttrLabelProxy "showTrash"+placesSidebarShowTrash = AttrLabelProxy+ data PlacesSidebarDragActionAskSignalInfo instance SignalInfo PlacesSidebarDragActionAskSignalInfo where type HaskellCallbackType PlacesSidebarDragActionAskSignalInfo = PlacesSidebarDragActionAskCallback@@ -1434,7 +1498,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "PlacesSidebar"+-- returnType : Just (TInterface "Gtk" "PlacesSidebar") -- throws : False -- Skip return : False @@ -1455,7 +1519,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1486,7 +1550,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1514,7 +1578,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "File"+-- returnType : Just (TInterface "Gio" "File") -- throws : False -- Skip return : False @@ -1541,15 +1605,15 @@ -- method PlacesSidebar::get_nth_bookmark -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "File"+-- returnType : Just (TInterface "Gio" "File") -- throws : False -- Skip return : False foreign import ccall "gtk_places_sidebar_get_nth_bookmark" gtk_places_sidebar_get_nth_bookmark :: Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"- Int32 -> -- n : TBasicType TInt32+ Int32 -> -- n : TBasicType TInt IO (Ptr Gio.File) @@ -1574,7 +1638,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PlacesOpenFlags"+-- returnType : Just (TInterface "Gtk" "PlacesOpenFlags") -- throws : False -- Skip return : False @@ -1602,7 +1666,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1630,7 +1694,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1658,7 +1722,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1686,7 +1750,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1714,7 +1778,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1742,7 +1806,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1770,7 +1834,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TInterface "Gio" "File")+-- returnType : Just (TGSList (TInterface "Gio" "File")) -- throws : False -- Skip return : False @@ -1786,7 +1850,6 @@ placesSidebarListShortcuts _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_places_sidebar_list_shortcuts _obj'- checkUnexpectedReturnNULL "gtk_places_sidebar_list_shortcuts" result result' <- unpackGSList result result'' <- mapM (wrapObject Gio.File) result' g_slist_free result@@ -1801,7 +1864,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1832,7 +1895,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1866,7 +1929,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1896,7 +1959,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1931,7 +1994,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "PlacesOpenFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1961,7 +2024,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_connect_to_server", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1991,7 +2054,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_desktop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2021,7 +2084,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_enter_location", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2051,7 +2114,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_other_locations", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2081,7 +2144,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_recent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2111,7 +2174,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_trash", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.PlacesSidebar where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -56,11 +56,13 @@ -- ** Embedded PlugEmbeddedPropertyInfo , getPlugEmbedded ,+ plugEmbedded , -- ** SocketWindow PlugSocketWindowPropertyInfo , getPlugSocketWindow ,+ plugSocketWindow , @@ -82,9 +84,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -586,6 +588,7 @@ -- VVV Prop "embedded" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable]+ -- Nullable: (Just False,Nothing) getPlugEmbedded :: (MonadIO m, PlugK o) => o -> m Bool getPlugEmbedded obj = liftIO $ getObjectPropertyBool obj "embedded"@@ -600,17 +603,19 @@ attrGet _ = getPlugEmbedded attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "socket-window" -- Type: TInterface "Gdk" "Window" -- Flags: [PropertyReadable]+ -- Nullable: (Just False,Nothing) getPlugSocketWindow :: (MonadIO m, PlugK o) => o -> m Gdk.Window-getPlugSocketWindow obj = liftIO $ getObjectPropertyObject obj "socket-window" Gdk.Window+getPlugSocketWindow obj = liftIO $ checkUnexpectedNothing "getPlugSocketWindow" $ getObjectPropertyObject obj "socket-window" Gdk.Window data PlugSocketWindowPropertyInfo instance AttrInfo PlugSocketWindowPropertyInfo where- type AttrAllowedOps PlugSocketWindowPropertyInfo = '[ 'AttrGet]+ type AttrAllowedOps PlugSocketWindowPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PlugSocketWindowPropertyInfo = (~) () type AttrBaseTypeConstraint PlugSocketWindowPropertyInfo = PlugK type AttrGetType PlugSocketWindowPropertyInfo = Gdk.Window@@ -618,10 +623,17 @@ attrGet _ = getPlugSocketWindow attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined type instance AttributeList Plug = PlugAttributeList type PlugAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("embedded", PlugEmbeddedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("socketWindow", PlugSocketWindowPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +plugEmbedded :: AttrLabelProxy "embedded"+plugEmbedded = AttrLabelProxy++plugSocketWindow :: AttrLabelProxy "socketWindow"+plugSocketWindow = AttrLabelProxy+ data PlugEmbeddedSignalInfo instance SignalInfo PlugEmbeddedSignalInfo where type HaskellCallbackType PlugEmbeddedSignalInfo = PlugEmbeddedCallback@@ -632,20 +644,20 @@ -- method Plug::new -- method type : Constructor--- Args : [Arg {argCName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "socket_id", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Plug"+-- returnType : Just (TInterface "Gtk" "Plug") -- throws : False -- Skip return : False foreign import ccall "gtk_plug_new" gtk_plug_new :: - Word64 -> -- socket_id : TBasicType TUInt64+ CULong -> -- socket_id : TBasicType TULong IO (Ptr Plug) plugNew :: (MonadIO m) =>- Word64 -- socketId+ CULong -- socketId -> m Plug -- result plugNew socketId = liftIO $ do result <- gtk_plug_new socketId@@ -655,22 +667,22 @@ -- method Plug::new_for_display -- method type : Constructor--- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket_id", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Plug"+-- returnType : Just (TInterface "Gtk" "Plug") -- throws : False -- Skip return : False foreign import ccall "gtk_plug_new_for_display" gtk_plug_new_for_display :: Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display"- Word64 -> -- socket_id : TBasicType TUInt64+ CULong -> -- socket_id : TBasicType TULong IO (Ptr Plug) plugNewForDisplay :: (MonadIO m, Gdk.DisplayK a) => a -- display- -> Word64 -- socketId+ -> CULong -- socketId -> m Plug -- result plugNewForDisplay display socketId = liftIO $ do let display' = unsafeManagedPtrCastPtr display@@ -682,22 +694,22 @@ -- method Plug::construct -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket_id", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_plug_construct" gtk_plug_construct :: Ptr Plug -> -- _obj : TInterface "Gtk" "Plug"- Word64 -> -- socket_id : TBasicType TUInt64+ CULong -> -- socket_id : TBasicType TULong IO () plugConstruct :: (MonadIO m, PlugK a) => a -- _obj- -> Word64 -- socketId+ -> CULong -- socketId -> m () -- result plugConstruct _obj socketId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj@@ -706,21 +718,21 @@ return () data PlugConstructMethodInfo-instance (signature ~ (Word64 -> m ()), MonadIO m, PlugK a) => MethodInfo PlugConstructMethodInfo a signature where+instance (signature ~ (CULong -> m ()), MonadIO m, PlugK a) => MethodInfo PlugConstructMethodInfo a signature where overloadedMethod _ = plugConstruct -- method Plug::construct_for_display -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket_id", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_plug_construct_for_display" gtk_plug_construct_for_display :: Ptr Plug -> -- _obj : TInterface "Gtk" "Plug" Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display"- Word64 -> -- socket_id : TBasicType TUInt64+ CULong -> -- socket_id : TBasicType TULong IO () @@ -728,7 +740,7 @@ (MonadIO m, PlugK a, Gdk.DisplayK b) => a -- _obj -> b -- display- -> Word64 -- socketId+ -> CULong -- socketId -> m () -- result plugConstructForDisplay _obj display socketId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj@@ -739,14 +751,14 @@ return () data PlugConstructForDisplayMethodInfo-instance (signature ~ (b -> Word64 -> m ()), MonadIO m, PlugK a, Gdk.DisplayK b) => MethodInfo PlugConstructForDisplayMethodInfo a signature where+instance (signature ~ (b -> CULong -> m ()), MonadIO m, PlugK a, Gdk.DisplayK b) => MethodInfo PlugConstructForDisplayMethodInfo a signature where overloadedMethod _ = plugConstructForDisplay -- method Plug::get_embedded -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -774,19 +786,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt64+-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "gtk_plug_get_id" gtk_plug_get_id :: Ptr Plug -> -- _obj : TInterface "Gtk" "Plug"- IO Word64+ IO CULong plugGetId :: (MonadIO m, PlugK a) => a -- _obj- -> m Word64 -- result+ -> m CULong -- result plugGetId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_plug_get_id _obj'@@ -794,14 +806,14 @@ return result data PlugGetIdMethodInfo-instance (signature ~ (m Word64), MonadIO m, PlugK a) => MethodInfo PlugGetIdMethodInfo a signature where+instance (signature ~ (m CULong), MonadIO m, PlugK a) => MethodInfo PlugGetIdMethodInfo a signature where overloadedMethod _ = plugGetId -- method Plug::get_socket_window -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Window"+-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Plug where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -97,6 +97,7 @@ PopoverModalPropertyInfo , constructPopoverModal , getPopoverModal ,+ popoverModal , setPopoverModal , @@ -104,6 +105,7 @@ PopoverPointingToPropertyInfo , constructPopoverPointingTo , getPopoverPointingTo ,+ popoverPointingTo , setPopoverPointingTo , @@ -111,13 +113,16 @@ PopoverPositionPropertyInfo , constructPopoverPosition , getPopoverPosition ,+ popoverPosition , setPopoverPosition , -- ** RelativeTo PopoverRelativeToPropertyInfo ,+ clearPopoverRelativeTo , constructPopoverRelativeTo , getPopoverRelativeTo ,+ popoverRelativeTo , setPopoverRelativeTo , @@ -125,6 +130,7 @@ PopoverTransitionsEnabledPropertyInfo , constructPopoverTransitionsEnabled , getPopoverTransitionsEnabled ,+ popoverTransitionsEnabled , setPopoverTransitionsEnabled , @@ -147,9 +153,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -559,6 +565,7 @@ -- VVV Prop "modal" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getPopoverModal :: (MonadIO m, PopoverK o) => o -> m Bool getPopoverModal obj = liftIO $ getObjectPropertyBool obj "modal"@@ -579,34 +586,38 @@ attrGet _ = getPopoverModal attrSet _ = setPopoverModal attrConstruct _ = constructPopoverModal+ attrClear _ = undefined -- VVV Prop "pointing-to" -- Type: TInterface "Gdk" "Rectangle" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just False) -getPopoverPointingTo :: (MonadIO m, PopoverK o) => o -> m Gdk.Rectangle+getPopoverPointingTo :: (MonadIO m, PopoverK o) => o -> m (Maybe Gdk.Rectangle) getPopoverPointingTo obj = liftIO $ getObjectPropertyBoxed obj "pointing-to" Gdk.Rectangle setPopoverPointingTo :: (MonadIO m, PopoverK o) => o -> Gdk.Rectangle -> m ()-setPopoverPointingTo obj val = liftIO $ setObjectPropertyBoxed obj "pointing-to" val+setPopoverPointingTo obj val = liftIO $ setObjectPropertyBoxed obj "pointing-to" (Just val) constructPopoverPointingTo :: Gdk.Rectangle -> IO ([Char], GValue)-constructPopoverPointingTo val = constructObjectPropertyBoxed "pointing-to" val+constructPopoverPointingTo val = constructObjectPropertyBoxed "pointing-to" (Just val) data PopoverPointingToPropertyInfo instance AttrInfo PopoverPointingToPropertyInfo where type AttrAllowedOps PopoverPointingToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint PopoverPointingToPropertyInfo = (~) Gdk.Rectangle type AttrBaseTypeConstraint PopoverPointingToPropertyInfo = PopoverK- type AttrGetType PopoverPointingToPropertyInfo = Gdk.Rectangle+ type AttrGetType PopoverPointingToPropertyInfo = (Maybe Gdk.Rectangle) type AttrLabel PopoverPointingToPropertyInfo = "pointing-to" attrGet _ = getPopoverPointingTo attrSet _ = setPopoverPointingTo attrConstruct _ = constructPopoverPointingTo+ attrClear _ = undefined -- VVV Prop "position" -- Type: TInterface "Gtk" "PositionType" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getPopoverPosition :: (MonadIO m, PopoverK o) => o -> m PositionType getPopoverPosition obj = liftIO $ getObjectPropertyEnum obj "position"@@ -627,23 +638,28 @@ attrGet _ = getPopoverPosition attrSet _ = setPopoverPosition attrConstruct _ = constructPopoverPosition+ attrClear _ = undefined -- VVV Prop "relative-to" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getPopoverRelativeTo :: (MonadIO m, PopoverK o) => o -> m Widget-getPopoverRelativeTo obj = liftIO $ getObjectPropertyObject obj "relative-to" Widget+getPopoverRelativeTo obj = liftIO $ checkUnexpectedNothing "getPopoverRelativeTo" $ getObjectPropertyObject obj "relative-to" Widget setPopoverRelativeTo :: (MonadIO m, PopoverK o, WidgetK a) => o -> a -> m ()-setPopoverRelativeTo obj val = liftIO $ setObjectPropertyObject obj "relative-to" val+setPopoverRelativeTo obj val = liftIO $ setObjectPropertyObject obj "relative-to" (Just val) constructPopoverRelativeTo :: (WidgetK a) => a -> IO ([Char], GValue)-constructPopoverRelativeTo val = constructObjectPropertyObject "relative-to" val+constructPopoverRelativeTo val = constructObjectPropertyObject "relative-to" (Just val) +clearPopoverRelativeTo :: (MonadIO m, PopoverK o) => o -> m ()+clearPopoverRelativeTo obj = liftIO $ setObjectPropertyObject obj "relative-to" (Nothing :: Maybe Widget)+ data PopoverRelativeToPropertyInfo instance AttrInfo PopoverRelativeToPropertyInfo where- type AttrAllowedOps PopoverRelativeToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps PopoverRelativeToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PopoverRelativeToPropertyInfo = WidgetK type AttrBaseTypeConstraint PopoverRelativeToPropertyInfo = PopoverK type AttrGetType PopoverRelativeToPropertyInfo = Widget@@ -651,10 +667,12 @@ attrGet _ = getPopoverRelativeTo attrSet _ = setPopoverRelativeTo attrConstruct _ = constructPopoverRelativeTo+ attrClear _ = clearPopoverRelativeTo -- VVV Prop "transitions-enabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getPopoverTransitionsEnabled :: (MonadIO m, PopoverK o) => o -> m Bool getPopoverTransitionsEnabled obj = liftIO $ getObjectPropertyBool obj "transitions-enabled"@@ -675,10 +693,26 @@ attrGet _ = getPopoverTransitionsEnabled attrSet _ = setPopoverTransitionsEnabled attrConstruct _ = constructPopoverTransitionsEnabled+ attrClear _ = undefined type instance AttributeList Popover = PopoverAttributeList type PopoverAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("modal", PopoverModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pointingTo", PopoverPointingToPropertyInfo), '("position", PopoverPositionPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relativeTo", PopoverRelativeToPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transitionsEnabled", PopoverTransitionsEnabledPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +popoverModal :: AttrLabelProxy "modal"+popoverModal = AttrLabelProxy++popoverPointingTo :: AttrLabelProxy "pointingTo"+popoverPointingTo = AttrLabelProxy++popoverPosition :: AttrLabelProxy "position"+popoverPosition = AttrLabelProxy++popoverRelativeTo :: AttrLabelProxy "relativeTo"+popoverRelativeTo = AttrLabelProxy++popoverTransitionsEnabled :: AttrLabelProxy "transitionsEnabled"+popoverTransitionsEnabled = AttrLabelProxy+ data PopoverClosedSignalInfo instance SignalInfo PopoverClosedSignalInfo where type HaskellCallbackType PopoverClosedSignalInfo = PopoverClosedCallback@@ -691,7 +725,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Popover"+-- returnType : Just (TInterface "Gtk" "Popover") -- throws : False -- Skip return : False @@ -720,7 +754,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Popover"+-- returnType : Just (TInterface "Gtk" "Popover") -- throws : False -- Skip return : False @@ -753,7 +787,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -796,7 +830,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -825,7 +859,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -853,7 +887,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -884,7 +918,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PositionType"+-- returnType : Just (TInterface "Gtk" "PositionType") -- throws : False -- Skip return : False @@ -912,7 +946,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Widget"+-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -941,7 +975,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -969,7 +1003,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1004,7 +1038,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1034,7 +1068,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1065,7 +1099,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1095,7 +1129,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1130,7 +1164,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "transitions_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Popover where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.PopoverAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -31,8 +31,10 @@ -- * Properties -- ** VisibleSubmenu PopoverMenuVisibleSubmenuPropertyInfo ,+ clearPopoverMenuVisibleSubmenu , constructPopoverMenuVisibleSubmenu , getPopoverMenuVisibleSubmenu ,+ popoverMenuVisibleSubmenu , setPopoverMenuVisibleSubmenu , @@ -40,9 +42,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -413,30 +415,38 @@ -- VVV Prop "visible-submenu" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getPopoverMenuVisibleSubmenu :: (MonadIO m, PopoverMenuK o) => o -> m T.Text+getPopoverMenuVisibleSubmenu :: (MonadIO m, PopoverMenuK o) => o -> m (Maybe T.Text) getPopoverMenuVisibleSubmenu obj = liftIO $ getObjectPropertyString obj "visible-submenu" setPopoverMenuVisibleSubmenu :: (MonadIO m, PopoverMenuK o) => o -> T.Text -> m ()-setPopoverMenuVisibleSubmenu obj val = liftIO $ setObjectPropertyString obj "visible-submenu" val+setPopoverMenuVisibleSubmenu obj val = liftIO $ setObjectPropertyString obj "visible-submenu" (Just val) constructPopoverMenuVisibleSubmenu :: T.Text -> IO ([Char], GValue)-constructPopoverMenuVisibleSubmenu val = constructObjectPropertyString "visible-submenu" val+constructPopoverMenuVisibleSubmenu val = constructObjectPropertyString "visible-submenu" (Just val) +clearPopoverMenuVisibleSubmenu :: (MonadIO m, PopoverMenuK o) => o -> m ()+clearPopoverMenuVisibleSubmenu obj = liftIO $ setObjectPropertyString obj "visible-submenu" (Nothing :: Maybe T.Text)+ data PopoverMenuVisibleSubmenuPropertyInfo instance AttrInfo PopoverMenuVisibleSubmenuPropertyInfo where- type AttrAllowedOps PopoverMenuVisibleSubmenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps PopoverMenuVisibleSubmenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PopoverMenuVisibleSubmenuPropertyInfo = (~) T.Text type AttrBaseTypeConstraint PopoverMenuVisibleSubmenuPropertyInfo = PopoverMenuK- type AttrGetType PopoverMenuVisibleSubmenuPropertyInfo = T.Text+ type AttrGetType PopoverMenuVisibleSubmenuPropertyInfo = (Maybe T.Text) type AttrLabel PopoverMenuVisibleSubmenuPropertyInfo = "visible-submenu" attrGet _ = getPopoverMenuVisibleSubmenu attrSet _ = setPopoverMenuVisibleSubmenu attrConstruct _ = constructPopoverMenuVisibleSubmenu+ attrClear _ = clearPopoverMenuVisibleSubmenu type instance AttributeList PopoverMenu = PopoverMenuAttributeList type PopoverMenuAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("modal", PopoverModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pointingTo", PopoverPointingToPropertyInfo), '("position", PopoverPositionPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relativeTo", PopoverRelativeToPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transitionsEnabled", PopoverTransitionsEnabledPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleSubmenu", PopoverMenuVisibleSubmenuPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +popoverMenuVisibleSubmenu :: AttrLabelProxy "visibleSubmenu"+popoverMenuVisibleSubmenu = AttrLabelProxy+ type instance SignalList PopoverMenu = PopoverMenuSignalList type PopoverMenuSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("closed", PopoverClosedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -444,7 +454,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "PopoverMenu"+-- returnType : Just (TInterface "Gtk" "PopoverMenu") -- throws : False -- Skip return : False @@ -465,7 +475,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PopoverMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.PopoverMenu where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -76,9 +76,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -164,7 +164,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Context"+-- returnType : Just (TInterface "Pango" "Context") -- throws : False -- Skip return : False @@ -193,7 +193,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Layout"+-- returnType : Just (TInterface "Pango" "Layout") -- throws : False -- Skip return : False @@ -222,7 +222,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "cairo" "Context"+-- returnType : Just (TInterface "cairo" "Context") -- throws : False -- Skip return : False @@ -251,7 +251,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -279,7 +279,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -307,7 +307,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "bottom", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "left", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "right", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -355,7 +355,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -383,7 +383,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PageSetup"+-- returnType : Just (TInterface "Gtk" "PageSetup") -- throws : False -- Skip return : False @@ -412,7 +412,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "FontMap"+-- returnType : Just (TInterface "Pango" "FontMap") -- throws : False -- Skip return : False @@ -441,7 +441,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -469,7 +469,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dpi_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dpi_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.PrintContext where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -173,6 +173,7 @@ PrintOperationAllowAsyncPropertyInfo , constructPrintOperationAllowAsync , getPrintOperationAllowAsync ,+ printOperationAllowAsync , setPrintOperationAllowAsync , @@ -180,20 +181,25 @@ PrintOperationCurrentPagePropertyInfo , constructPrintOperationCurrentPage , getPrintOperationCurrentPage ,+ printOperationCurrentPage , setPrintOperationCurrentPage , -- ** CustomTabLabel PrintOperationCustomTabLabelPropertyInfo,+ clearPrintOperationCustomTabLabel , constructPrintOperationCustomTabLabel , getPrintOperationCustomTabLabel ,+ printOperationCustomTabLabel , setPrintOperationCustomTabLabel , -- ** DefaultPageSetup PrintOperationDefaultPageSetupPropertyInfo,+ clearPrintOperationDefaultPageSetup , constructPrintOperationDefaultPageSetup , getPrintOperationDefaultPageSetup ,+ printOperationDefaultPageSetup , setPrintOperationDefaultPageSetup , @@ -201,13 +207,16 @@ PrintOperationEmbedPageSetupPropertyInfo, constructPrintOperationEmbedPageSetup , getPrintOperationEmbedPageSetup ,+ printOperationEmbedPageSetup , setPrintOperationEmbedPageSetup , -- ** ExportFilename PrintOperationExportFilenamePropertyInfo,+ clearPrintOperationExportFilename , constructPrintOperationExportFilename , getPrintOperationExportFilename ,+ printOperationExportFilename , setPrintOperationExportFilename , @@ -215,6 +224,7 @@ PrintOperationHasSelectionPropertyInfo , constructPrintOperationHasSelection , getPrintOperationHasSelection ,+ printOperationHasSelection , setPrintOperationHasSelection , @@ -222,6 +232,7 @@ PrintOperationJobNamePropertyInfo , constructPrintOperationJobName , getPrintOperationJobName ,+ printOperationJobName , setPrintOperationJobName , @@ -229,18 +240,22 @@ PrintOperationNPagesPropertyInfo , constructPrintOperationNPages , getPrintOperationNPages ,+ printOperationNPages , setPrintOperationNPages , -- ** NPagesToPrint PrintOperationNPagesToPrintPropertyInfo , getPrintOperationNPagesToPrint ,+ printOperationNPagesToPrint , -- ** PrintSettings PrintOperationPrintSettingsPropertyInfo ,+ clearPrintOperationPrintSettings , constructPrintOperationPrintSettings , getPrintOperationPrintSettings ,+ printOperationPrintSettings , setPrintOperationPrintSettings , @@ -248,23 +263,27 @@ PrintOperationShowProgressPropertyInfo , constructPrintOperationShowProgress , getPrintOperationShowProgress ,+ printOperationShowProgress , setPrintOperationShowProgress , -- ** Status PrintOperationStatusPropertyInfo , getPrintOperationStatus ,+ printOperationStatus , -- ** StatusString PrintOperationStatusStringPropertyInfo , getPrintOperationStatusString ,+ printOperationStatusString , -- ** SupportSelection PrintOperationSupportSelectionPropertyInfo, constructPrintOperationSupportSelection , getPrintOperationSupportSelection ,+ printOperationSupportSelection , setPrintOperationSupportSelection , @@ -272,6 +291,7 @@ PrintOperationTrackPrintStatusPropertyInfo, constructPrintOperationTrackPrintStatus , getPrintOperationTrackPrintStatus ,+ printOperationTrackPrintStatus , setPrintOperationTrackPrintStatus , @@ -279,6 +299,7 @@ PrintOperationUnitPropertyInfo , constructPrintOperationUnit , getPrintOperationUnit ,+ printOperationUnit , setPrintOperationUnit , @@ -286,6 +307,7 @@ PrintOperationUseFullPagePropertyInfo , constructPrintOperationUseFullPage , getPrintOperationUseFullPage ,+ printOperationUseFullPage , setPrintOperationUseFullPage , @@ -428,9 +450,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -1019,6 +1041,7 @@ -- VVV Prop "allow-async" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just False) getPrintOperationAllowAsync :: (MonadIO m, PrintOperationK o) => o -> m Bool getPrintOperationAllowAsync obj = liftIO $ getObjectPropertyBool obj "allow-async"@@ -1039,19 +1062,21 @@ attrGet _ = getPrintOperationAllowAsync attrSet _ = setPrintOperationAllowAsync attrConstruct _ = constructPrintOperationAllowAsync+ attrClear _ = undefined -- VVV Prop "current-page"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just False) getPrintOperationCurrentPage :: (MonadIO m, PrintOperationK o) => o -> m Int32-getPrintOperationCurrentPage obj = liftIO $ getObjectPropertyCInt obj "current-page"+getPrintOperationCurrentPage obj = liftIO $ getObjectPropertyInt32 obj "current-page" setPrintOperationCurrentPage :: (MonadIO m, PrintOperationK o) => o -> Int32 -> m ()-setPrintOperationCurrentPage obj val = liftIO $ setObjectPropertyCInt obj "current-page" val+setPrintOperationCurrentPage obj val = liftIO $ setObjectPropertyInt32 obj "current-page" val constructPrintOperationCurrentPage :: Int32 -> IO ([Char], GValue)-constructPrintOperationCurrentPage val = constructObjectPropertyCInt "current-page" val+constructPrintOperationCurrentPage val = constructObjectPropertyInt32 "current-page" val data PrintOperationCurrentPagePropertyInfo instance AttrInfo PrintOperationCurrentPagePropertyInfo where@@ -1063,47 +1088,57 @@ attrGet _ = getPrintOperationCurrentPage attrSet _ = setPrintOperationCurrentPage attrConstruct _ = constructPrintOperationCurrentPage+ attrClear _ = undefined -- VVV Prop "custom-tab-label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just True) -getPrintOperationCustomTabLabel :: (MonadIO m, PrintOperationK o) => o -> m T.Text+getPrintOperationCustomTabLabel :: (MonadIO m, PrintOperationK o) => o -> m (Maybe T.Text) getPrintOperationCustomTabLabel obj = liftIO $ getObjectPropertyString obj "custom-tab-label" setPrintOperationCustomTabLabel :: (MonadIO m, PrintOperationK o) => o -> T.Text -> m ()-setPrintOperationCustomTabLabel obj val = liftIO $ setObjectPropertyString obj "custom-tab-label" val+setPrintOperationCustomTabLabel obj val = liftIO $ setObjectPropertyString obj "custom-tab-label" (Just val) constructPrintOperationCustomTabLabel :: T.Text -> IO ([Char], GValue)-constructPrintOperationCustomTabLabel val = constructObjectPropertyString "custom-tab-label" val+constructPrintOperationCustomTabLabel val = constructObjectPropertyString "custom-tab-label" (Just val) +clearPrintOperationCustomTabLabel :: (MonadIO m, PrintOperationK o) => o -> m ()+clearPrintOperationCustomTabLabel obj = liftIO $ setObjectPropertyString obj "custom-tab-label" (Nothing :: Maybe T.Text)+ data PrintOperationCustomTabLabelPropertyInfo instance AttrInfo PrintOperationCustomTabLabelPropertyInfo where- type AttrAllowedOps PrintOperationCustomTabLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps PrintOperationCustomTabLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PrintOperationCustomTabLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint PrintOperationCustomTabLabelPropertyInfo = PrintOperationK- type AttrGetType PrintOperationCustomTabLabelPropertyInfo = T.Text+ type AttrGetType PrintOperationCustomTabLabelPropertyInfo = (Maybe T.Text) type AttrLabel PrintOperationCustomTabLabelPropertyInfo = "custom-tab-label" attrGet _ = getPrintOperationCustomTabLabel attrSet _ = setPrintOperationCustomTabLabel attrConstruct _ = constructPrintOperationCustomTabLabel+ attrClear _ = clearPrintOperationCustomTabLabel -- VVV Prop "default-page-setup" -- Type: TInterface "Gtk" "PageSetup" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getPrintOperationDefaultPageSetup :: (MonadIO m, PrintOperationK o) => o -> m PageSetup-getPrintOperationDefaultPageSetup obj = liftIO $ getObjectPropertyObject obj "default-page-setup" PageSetup+getPrintOperationDefaultPageSetup obj = liftIO $ checkUnexpectedNothing "getPrintOperationDefaultPageSetup" $ getObjectPropertyObject obj "default-page-setup" PageSetup setPrintOperationDefaultPageSetup :: (MonadIO m, PrintOperationK o, PageSetupK a) => o -> a -> m ()-setPrintOperationDefaultPageSetup obj val = liftIO $ setObjectPropertyObject obj "default-page-setup" val+setPrintOperationDefaultPageSetup obj val = liftIO $ setObjectPropertyObject obj "default-page-setup" (Just val) constructPrintOperationDefaultPageSetup :: (PageSetupK a) => a -> IO ([Char], GValue)-constructPrintOperationDefaultPageSetup val = constructObjectPropertyObject "default-page-setup" val+constructPrintOperationDefaultPageSetup val = constructObjectPropertyObject "default-page-setup" (Just val) +clearPrintOperationDefaultPageSetup :: (MonadIO m, PrintOperationK o) => o -> m ()+clearPrintOperationDefaultPageSetup obj = liftIO $ setObjectPropertyObject obj "default-page-setup" (Nothing :: Maybe PageSetup)+ data PrintOperationDefaultPageSetupPropertyInfo instance AttrInfo PrintOperationDefaultPageSetupPropertyInfo where- type AttrAllowedOps PrintOperationDefaultPageSetupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps PrintOperationDefaultPageSetupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PrintOperationDefaultPageSetupPropertyInfo = PageSetupK type AttrBaseTypeConstraint PrintOperationDefaultPageSetupPropertyInfo = PrintOperationK type AttrGetType PrintOperationDefaultPageSetupPropertyInfo = PageSetup@@ -1111,10 +1146,12 @@ attrGet _ = getPrintOperationDefaultPageSetup attrSet _ = setPrintOperationDefaultPageSetup attrConstruct _ = constructPrintOperationDefaultPageSetup+ attrClear _ = clearPrintOperationDefaultPageSetup -- VVV Prop "embed-page-setup" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getPrintOperationEmbedPageSetup :: (MonadIO m, PrintOperationK o) => o -> m Bool getPrintOperationEmbedPageSetup obj = liftIO $ getObjectPropertyBool obj "embed-page-setup"@@ -1135,34 +1172,41 @@ attrGet _ = getPrintOperationEmbedPageSetup attrSet _ = setPrintOperationEmbedPageSetup attrConstruct _ = constructPrintOperationEmbedPageSetup+ attrClear _ = undefined -- VVV Prop "export-filename" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) -getPrintOperationExportFilename :: (MonadIO m, PrintOperationK o) => o -> m T.Text+getPrintOperationExportFilename :: (MonadIO m, PrintOperationK o) => o -> m (Maybe T.Text) getPrintOperationExportFilename obj = liftIO $ getObjectPropertyString obj "export-filename" setPrintOperationExportFilename :: (MonadIO m, PrintOperationK o) => o -> T.Text -> m ()-setPrintOperationExportFilename obj val = liftIO $ setObjectPropertyString obj "export-filename" val+setPrintOperationExportFilename obj val = liftIO $ setObjectPropertyString obj "export-filename" (Just val) constructPrintOperationExportFilename :: T.Text -> IO ([Char], GValue)-constructPrintOperationExportFilename val = constructObjectPropertyString "export-filename" val+constructPrintOperationExportFilename val = constructObjectPropertyString "export-filename" (Just val) +clearPrintOperationExportFilename :: (MonadIO m, PrintOperationK o) => o -> m ()+clearPrintOperationExportFilename obj = liftIO $ setObjectPropertyString obj "export-filename" (Nothing :: Maybe T.Text)+ data PrintOperationExportFilenamePropertyInfo instance AttrInfo PrintOperationExportFilenamePropertyInfo where- type AttrAllowedOps PrintOperationExportFilenamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps PrintOperationExportFilenamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PrintOperationExportFilenamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint PrintOperationExportFilenamePropertyInfo = PrintOperationK- type AttrGetType PrintOperationExportFilenamePropertyInfo = T.Text+ type AttrGetType PrintOperationExportFilenamePropertyInfo = (Maybe T.Text) type AttrLabel PrintOperationExportFilenamePropertyInfo = "export-filename" attrGet _ = getPrintOperationExportFilename attrSet _ = setPrintOperationExportFilename attrConstruct _ = constructPrintOperationExportFilename+ attrClear _ = clearPrintOperationExportFilename -- VVV Prop "has-selection" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getPrintOperationHasSelection :: (MonadIO m, PrintOperationK o) => o -> m Bool getPrintOperationHasSelection obj = liftIO $ getObjectPropertyBool obj "has-selection"@@ -1183,43 +1227,47 @@ attrGet _ = getPrintOperationHasSelection attrSet _ = setPrintOperationHasSelection attrConstruct _ = constructPrintOperationHasSelection+ attrClear _ = undefined -- VVV Prop "job-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just False) -getPrintOperationJobName :: (MonadIO m, PrintOperationK o) => o -> m T.Text+getPrintOperationJobName :: (MonadIO m, PrintOperationK o) => o -> m (Maybe T.Text) getPrintOperationJobName obj = liftIO $ getObjectPropertyString obj "job-name" setPrintOperationJobName :: (MonadIO m, PrintOperationK o) => o -> T.Text -> m ()-setPrintOperationJobName obj val = liftIO $ setObjectPropertyString obj "job-name" val+setPrintOperationJobName obj val = liftIO $ setObjectPropertyString obj "job-name" (Just val) constructPrintOperationJobName :: T.Text -> IO ([Char], GValue)-constructPrintOperationJobName val = constructObjectPropertyString "job-name" val+constructPrintOperationJobName val = constructObjectPropertyString "job-name" (Just val) data PrintOperationJobNamePropertyInfo instance AttrInfo PrintOperationJobNamePropertyInfo where type AttrAllowedOps PrintOperationJobNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint PrintOperationJobNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint PrintOperationJobNamePropertyInfo = PrintOperationK- type AttrGetType PrintOperationJobNamePropertyInfo = T.Text+ type AttrGetType PrintOperationJobNamePropertyInfo = (Maybe T.Text) type AttrLabel PrintOperationJobNamePropertyInfo = "job-name" attrGet _ = getPrintOperationJobName attrSet _ = setPrintOperationJobName attrConstruct _ = constructPrintOperationJobName+ attrClear _ = undefined -- VVV Prop "n-pages"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just False) getPrintOperationNPages :: (MonadIO m, PrintOperationK o) => o -> m Int32-getPrintOperationNPages obj = liftIO $ getObjectPropertyCInt obj "n-pages"+getPrintOperationNPages obj = liftIO $ getObjectPropertyInt32 obj "n-pages" setPrintOperationNPages :: (MonadIO m, PrintOperationK o) => o -> Int32 -> m ()-setPrintOperationNPages obj val = liftIO $ setObjectPropertyCInt obj "n-pages" val+setPrintOperationNPages obj val = liftIO $ setObjectPropertyInt32 obj "n-pages" val constructPrintOperationNPages :: Int32 -> IO ([Char], GValue)-constructPrintOperationNPages val = constructObjectPropertyCInt "n-pages" val+constructPrintOperationNPages val = constructObjectPropertyInt32 "n-pages" val data PrintOperationNPagesPropertyInfo instance AttrInfo PrintOperationNPagesPropertyInfo where@@ -1231,13 +1279,15 @@ attrGet _ = getPrintOperationNPages attrSet _ = setPrintOperationNPages attrConstruct _ = constructPrintOperationNPages+ attrClear _ = undefined -- VVV Prop "n-pages-to-print"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable]+ -- Nullable: (Just False,Nothing) getPrintOperationNPagesToPrint :: (MonadIO m, PrintOperationK o) => o -> m Int32-getPrintOperationNPagesToPrint obj = liftIO $ getObjectPropertyCInt obj "n-pages-to-print"+getPrintOperationNPagesToPrint obj = liftIO $ getObjectPropertyInt32 obj "n-pages-to-print" data PrintOperationNPagesToPrintPropertyInfo instance AttrInfo PrintOperationNPagesToPrintPropertyInfo where@@ -1249,23 +1299,28 @@ attrGet _ = getPrintOperationNPagesToPrint attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "print-settings" -- Type: TInterface "Gtk" "PrintSettings" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o) => o -> m PrintSettings-getPrintOperationPrintSettings obj = liftIO $ getObjectPropertyObject obj "print-settings" PrintSettings+getPrintOperationPrintSettings obj = liftIO $ checkUnexpectedNothing "getPrintOperationPrintSettings" $ getObjectPropertyObject obj "print-settings" PrintSettings setPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o, PrintSettingsK a) => o -> a -> m ()-setPrintOperationPrintSettings obj val = liftIO $ setObjectPropertyObject obj "print-settings" val+setPrintOperationPrintSettings obj val = liftIO $ setObjectPropertyObject obj "print-settings" (Just val) constructPrintOperationPrintSettings :: (PrintSettingsK a) => a -> IO ([Char], GValue)-constructPrintOperationPrintSettings val = constructObjectPropertyObject "print-settings" val+constructPrintOperationPrintSettings val = constructObjectPropertyObject "print-settings" (Just val) +clearPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o) => o -> m ()+clearPrintOperationPrintSettings obj = liftIO $ setObjectPropertyObject obj "print-settings" (Nothing :: Maybe PrintSettings)+ data PrintOperationPrintSettingsPropertyInfo instance AttrInfo PrintOperationPrintSettingsPropertyInfo where- type AttrAllowedOps PrintOperationPrintSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps PrintOperationPrintSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PrintOperationPrintSettingsPropertyInfo = PrintSettingsK type AttrBaseTypeConstraint PrintOperationPrintSettingsPropertyInfo = PrintOperationK type AttrGetType PrintOperationPrintSettingsPropertyInfo = PrintSettings@@ -1273,10 +1328,12 @@ attrGet _ = getPrintOperationPrintSettings attrSet _ = setPrintOperationPrintSettings attrConstruct _ = constructPrintOperationPrintSettings+ attrClear _ = clearPrintOperationPrintSettings -- VVV Prop "show-progress" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just False) getPrintOperationShowProgress :: (MonadIO m, PrintOperationK o) => o -> m Bool getPrintOperationShowProgress obj = liftIO $ getObjectPropertyBool obj "show-progress"@@ -1297,10 +1354,12 @@ attrGet _ = getPrintOperationShowProgress attrSet _ = setPrintOperationShowProgress attrConstruct _ = constructPrintOperationShowProgress+ attrClear _ = undefined -- VVV Prop "status" -- Type: TInterface "Gtk" "PrintStatus" -- Flags: [PropertyReadable]+ -- Nullable: (Just False,Nothing) getPrintOperationStatus :: (MonadIO m, PrintOperationK o) => o -> m PrintStatus getPrintOperationStatus obj = liftIO $ getObjectPropertyEnum obj "status"@@ -1315,17 +1374,19 @@ attrGet _ = getPrintOperationStatus attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "status-string" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable]+ -- Nullable: (Just False,Nothing) getPrintOperationStatusString :: (MonadIO m, PrintOperationK o) => o -> m T.Text-getPrintOperationStatusString obj = liftIO $ getObjectPropertyString obj "status-string"+getPrintOperationStatusString obj = liftIO $ checkUnexpectedNothing "getPrintOperationStatusString" $ getObjectPropertyString obj "status-string" data PrintOperationStatusStringPropertyInfo instance AttrInfo PrintOperationStatusStringPropertyInfo where- type AttrAllowedOps PrintOperationStatusStringPropertyInfo = '[ 'AttrGet]+ type AttrAllowedOps PrintOperationStatusStringPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PrintOperationStatusStringPropertyInfo = (~) () type AttrBaseTypeConstraint PrintOperationStatusStringPropertyInfo = PrintOperationK type AttrGetType PrintOperationStatusStringPropertyInfo = T.Text@@ -1333,10 +1394,12 @@ attrGet _ = getPrintOperationStatusString attrSet _ = undefined attrConstruct _ = undefined+ attrClear _ = undefined -- VVV Prop "support-selection" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getPrintOperationSupportSelection :: (MonadIO m, PrintOperationK o) => o -> m Bool getPrintOperationSupportSelection obj = liftIO $ getObjectPropertyBool obj "support-selection"@@ -1357,10 +1420,12 @@ attrGet _ = getPrintOperationSupportSelection attrSet _ = setPrintOperationSupportSelection attrConstruct _ = constructPrintOperationSupportSelection+ attrClear _ = undefined -- VVV Prop "track-print-status" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just False) getPrintOperationTrackPrintStatus :: (MonadIO m, PrintOperationK o) => o -> m Bool getPrintOperationTrackPrintStatus obj = liftIO $ getObjectPropertyBool obj "track-print-status"@@ -1381,10 +1446,12 @@ attrGet _ = getPrintOperationTrackPrintStatus attrSet _ = setPrintOperationTrackPrintStatus attrConstruct _ = constructPrintOperationTrackPrintStatus+ attrClear _ = undefined -- VVV Prop "unit" -- Type: TInterface "Gtk" "Unit" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just False) getPrintOperationUnit :: (MonadIO m, PrintOperationK o) => o -> m Unit getPrintOperationUnit obj = liftIO $ getObjectPropertyEnum obj "unit"@@ -1405,10 +1472,12 @@ attrGet _ = getPrintOperationUnit attrSet _ = setPrintOperationUnit attrConstruct _ = constructPrintOperationUnit+ attrClear _ = undefined -- VVV Prop "use-full-page" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Just False) getPrintOperationUseFullPage :: (MonadIO m, PrintOperationK o) => o -> m Bool getPrintOperationUseFullPage obj = liftIO $ getObjectPropertyBool obj "use-full-page"@@ -1429,10 +1498,65 @@ attrGet _ = getPrintOperationUseFullPage attrSet _ = setPrintOperationUseFullPage attrConstruct _ = constructPrintOperationUseFullPage+ attrClear _ = undefined type instance AttributeList PrintOperation = PrintOperationAttributeList type PrintOperationAttributeList = ('[ '("allowAsync", PrintOperationAllowAsyncPropertyInfo), '("currentPage", PrintOperationCurrentPagePropertyInfo), '("customTabLabel", PrintOperationCustomTabLabelPropertyInfo), '("defaultPageSetup", PrintOperationDefaultPageSetupPropertyInfo), '("embedPageSetup", PrintOperationEmbedPageSetupPropertyInfo), '("exportFilename", PrintOperationExportFilenamePropertyInfo), '("hasSelection", PrintOperationHasSelectionPropertyInfo), '("jobName", PrintOperationJobNamePropertyInfo), '("nPages", PrintOperationNPagesPropertyInfo), '("nPagesToPrint", PrintOperationNPagesToPrintPropertyInfo), '("printSettings", PrintOperationPrintSettingsPropertyInfo), '("showProgress", PrintOperationShowProgressPropertyInfo), '("status", PrintOperationStatusPropertyInfo), '("statusString", PrintOperationStatusStringPropertyInfo), '("supportSelection", PrintOperationSupportSelectionPropertyInfo), '("trackPrintStatus", PrintOperationTrackPrintStatusPropertyInfo), '("unit", PrintOperationUnitPropertyInfo), '("useFullPage", PrintOperationUseFullPagePropertyInfo)] :: [(Symbol, *)]) +printOperationAllowAsync :: AttrLabelProxy "allowAsync"+printOperationAllowAsync = AttrLabelProxy++printOperationCurrentPage :: AttrLabelProxy "currentPage"+printOperationCurrentPage = AttrLabelProxy++printOperationCustomTabLabel :: AttrLabelProxy "customTabLabel"+printOperationCustomTabLabel = AttrLabelProxy++printOperationDefaultPageSetup :: AttrLabelProxy "defaultPageSetup"+printOperationDefaultPageSetup = AttrLabelProxy++printOperationEmbedPageSetup :: AttrLabelProxy "embedPageSetup"+printOperationEmbedPageSetup = AttrLabelProxy++printOperationExportFilename :: AttrLabelProxy "exportFilename"+printOperationExportFilename = AttrLabelProxy++printOperationHasSelection :: AttrLabelProxy "hasSelection"+printOperationHasSelection = AttrLabelProxy++printOperationJobName :: AttrLabelProxy "jobName"+printOperationJobName = AttrLabelProxy++printOperationNPages :: AttrLabelProxy "nPages"+printOperationNPages = AttrLabelProxy++printOperationNPagesToPrint :: AttrLabelProxy "nPagesToPrint"+printOperationNPagesToPrint = AttrLabelProxy++printOperationPrintSettings :: AttrLabelProxy "printSettings"+printOperationPrintSettings = AttrLabelProxy++printOperationShowProgress :: AttrLabelProxy "showProgress"+printOperationShowProgress = AttrLabelProxy++printOperationStatus :: AttrLabelProxy "status"+printOperationStatus = AttrLabelProxy++printOperationStatusString :: AttrLabelProxy "statusString"+printOperationStatusString = AttrLabelProxy++printOperationSupportSelection :: AttrLabelProxy "supportSelection"+printOperationSupportSelection = AttrLabelProxy++printOperationTrackPrintStatus :: AttrLabelProxy "trackPrintStatus"+printOperationTrackPrintStatus = AttrLabelProxy++printOperationUnit :: AttrLabelProxy "unit"+printOperationUnit = AttrLabelProxy++printOperationUseFullPage :: AttrLabelProxy "useFullPage"+printOperationUseFullPage = AttrLabelProxy+ data PrintOperationBeginPrintSignalInfo instance SignalInfo PrintOperationBeginPrintSignalInfo where type HaskellCallbackType PrintOperationBeginPrintSignalInfo = PrintOperationBeginPrintCallback@@ -1495,7 +1619,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "PrintOperation"+-- returnType : Just (TInterface "Gtk" "PrintOperation") -- throws : False -- Skip return : False @@ -1516,7 +1640,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1543,7 +1667,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1570,7 +1694,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PageSetup"+-- returnType : Just (TInterface "Gtk" "PageSetup") -- throws : False -- Skip return : False @@ -1599,7 +1723,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1627,7 +1751,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : True -- Skip return : False @@ -1659,7 +1783,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1687,7 +1811,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1714,7 +1838,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PrintSettings"+-- returnType : Just (TInterface "Gtk" "PrintSettings") -- throws : False -- Skip return : False @@ -1743,7 +1867,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PrintStatus"+-- returnType : Just (TInterface "Gtk" "PrintStatus") -- throws : False -- Skip return : False @@ -1771,7 +1895,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1800,7 +1924,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1828,7 +1952,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1856,7 +1980,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "PrintOperationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PrintOperationResult"+-- returnType : Just (TInterface "Gtk" "PrintOperationResult") -- throws : True -- Skip return : False @@ -1900,7 +2024,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allow_async", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1928,15 +2052,15 @@ -- method PrintOperation::set_current_page -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_page", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_page", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_print_operation_set_current_page" gtk_print_operation_set_current_page :: Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"- Int32 -> -- current_page : TBasicType TInt32+ Int32 -> -- current_page : TBasicType TInt IO () @@ -1959,7 +2083,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1994,7 +2118,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2029,7 +2153,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2056,7 +2180,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "embed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2086,7 +2210,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2117,7 +2241,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2147,7 +2271,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "job_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2176,15 +2300,15 @@ -- method PrintOperation::set_n_pages -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_pages", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_pages", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_print_operation_set_n_pages" gtk_print_operation_set_n_pages :: Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"- Int32 -> -- n_pages : TBasicType TInt32+ Int32 -> -- n_pages : TBasicType TInt IO () @@ -2207,7 +2331,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "print_settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2242,7 +2366,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_progress", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2272,7 +2396,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "support_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2302,7 +2426,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "track_status", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2332,7 +2456,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2362,7 +2486,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "full_page", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.PrintOperation where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -388,9 +388,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -535,7 +535,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "PrintSettings"+-- returnType : Just (TInterface "Gtk" "PrintSettings") -- throws : False -- Skip return : False @@ -556,7 +556,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PrintSettings"+-- returnType : Just (TInterface "Gtk" "PrintSettings") -- throws : True -- Skip return : False @@ -586,7 +586,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PrintSettings"+-- returnType : Just (TInterface "Gtk" "PrintSettings") -- throws : True -- Skip return : False @@ -624,7 +624,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PrintSettings"+-- returnType : Just (TInterface "Gtk" "PrintSettings") -- throws : False -- Skip return : False @@ -651,16 +651,16 @@ -- method PrintSettings::foreach -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "PrintSettingsFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "PrintSettingsFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_print_settings_foreach" gtk_print_settings_foreach :: Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" FunPtr PrintSettingsFuncC -> -- func : TInterface "Gtk" "PrintSettingsFunc"- Ptr () -> -- user_data : TBasicType TVoid+ Ptr () -> -- user_data : TBasicType TPtr IO () @@ -686,7 +686,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -719,7 +719,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -751,7 +751,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -779,7 +779,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -808,7 +808,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -837,7 +837,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -869,7 +869,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "def", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -904,7 +904,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PrintDuplex"+-- returnType : Just (TInterface "Gtk" "PrintDuplex") -- throws : False -- Skip return : False @@ -932,7 +932,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -961,7 +961,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -990,16 +990,16 @@ -- method PrintSettings::get_int_with_default -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "def", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "def", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_print_settings_get_int_with_default" gtk_print_settings_get_int_with_default :: Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" CString -> -- key : TBasicType TUTF8- Int32 -> -- def : TBasicType TInt32+ Int32 -> -- def : TBasicType TInt IO Int32 @@ -1025,7 +1025,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1060,7 +1060,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1089,7 +1089,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1116,7 +1116,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1143,7 +1143,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "NumberUpLayout"+-- returnType : Just (TInterface "Gtk" "NumberUpLayout") -- throws : False -- Skip return : False @@ -1171,7 +1171,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PageOrientation"+-- returnType : Just (TInterface "Gtk" "PageOrientation") -- throws : False -- Skip return : False @@ -1199,7 +1199,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1226,15 +1226,15 @@ -- method PrintSettings::get_page_ranges -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_ranges", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "num_ranges", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : TCArray False (-1) 1 (TInterface "Gtk" "PageRange")+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_ranges", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "num_ranges", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Just (TCArray False (-1) 1 (TInterface "Gtk" "PageRange")) -- throws : False -- Skip return : False foreign import ccall "gtk_print_settings_get_page_ranges" gtk_print_settings_get_page_ranges :: Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"- Ptr Int32 -> -- num_ranges : TBasicType TInt32+ Ptr Int32 -> -- num_ranges : TBasicType TInt IO (Ptr PageRange) @@ -1263,7 +1263,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PageSet"+-- returnType : Just (TInterface "Gtk" "PageSet") -- throws : False -- Skip return : False @@ -1291,7 +1291,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1322,7 +1322,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PaperSize"+-- returnType : Just (TInterface "Gtk" "PaperSize") -- throws : False -- Skip return : False @@ -1351,7 +1351,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1382,7 +1382,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PrintPages"+-- returnType : Just (TInterface "Gtk" "PrintPages") -- throws : False -- Skip return : False @@ -1410,7 +1410,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1439,7 +1439,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1467,7 +1467,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "PrintQuality"+-- returnType : Just (TInterface "Gtk" "PrintQuality") -- throws : False -- Skip return : False @@ -1495,7 +1495,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1522,7 +1522,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1549,7 +1549,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1576,7 +1576,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1604,7 +1604,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1632,7 +1632,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1660,7 +1660,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1692,7 +1692,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1728,7 +1728,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1772,7 +1772,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1811,7 +1811,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1845,7 +1845,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "collate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1875,7 +1875,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1906,7 +1906,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dither", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1937,7 +1937,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1971,7 +1971,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "duplex", argType = TInterface "Gtk" "PrintDuplex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2001,7 +2001,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "finishings", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2030,16 +2030,16 @@ -- method PrintSettings::set_int -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_print_settings_set_int" gtk_print_settings_set_int :: Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" CString -> -- key : TBasicType TUTF8- Int32 -> -- value : TBasicType TInt32+ Int32 -> -- value : TBasicType TInt IO () @@ -2065,7 +2065,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2102,7 +2102,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "media_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2131,15 +2131,15 @@ -- method PrintSettings::set_n_copies -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_copies", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_copies", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_print_settings_set_n_copies" gtk_print_settings_set_n_copies :: Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"- Int32 -> -- num_copies : TBasicType TInt32+ Int32 -> -- num_copies : TBasicType TInt IO () @@ -2160,15 +2160,15 @@ -- method PrintSettings::set_number_up -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "number_up", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "number_up", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_print_settings_set_number_up" gtk_print_settings_set_number_up :: Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"- Int32 -> -- number_up : TBasicType TInt32+ Int32 -> -- number_up : TBasicType TInt IO () @@ -2191,7 +2191,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "number_up_layout", argType = TInterface "Gtk" "NumberUpLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2221,7 +2221,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2251,7 +2251,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "output_bin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2280,16 +2280,16 @@ -- method PrintSettings::set_page_ranges -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_ranges", argType = TCArray False (-1) 2 (TInterface "Gtk" "PageRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_ranges", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "num_ranges", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TVoid+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_ranges", argType = TCArray False (-1) 2 (TInterface "Gtk" "PageRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_ranges", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "num_ranges", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_print_settings_set_page_ranges" gtk_print_settings_set_page_ranges :: Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" Ptr PageRange -> -- page_ranges : TCArray False (-1) 2 (TInterface "Gtk" "PageRange")- Int32 -> -- num_ranges : TBasicType TInt32+ Int32 -> -- num_ranges : TBasicType TInt IO () @@ -2317,7 +2317,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_set", argType = TInterface "Gtk" "PageSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2347,7 +2347,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2380,7 +2380,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paper_size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2411,7 +2411,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2444,7 +2444,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pages", argType = TInterface "Gtk" "PrintPages", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2474,7 +2474,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "printer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2505,7 +2505,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lpi", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2535,7 +2535,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quality", argType = TInterface "Gtk" "PrintQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2563,15 +2563,15 @@ -- method PrintSettings::set_resolution -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_print_settings_set_resolution" gtk_print_settings_set_resolution :: Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"- Int32 -> -- resolution : TBasicType TInt32+ Int32 -> -- resolution : TBasicType TInt IO () @@ -2592,16 +2592,16 @@ -- method PrintSettings::set_resolution_xy -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_print_settings_set_resolution_xy" gtk_print_settings_set_resolution_xy :: Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"- Int32 -> -- resolution_x : TBasicType TInt32- Int32 -> -- resolution_y : TBasicType TInt32+ Int32 -> -- resolution_x : TBasicType TInt+ Int32 -> -- resolution_y : TBasicType TInt IO () @@ -2625,7 +2625,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reverse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2655,7 +2655,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2685,7 +2685,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2715,7 +2715,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -2751,7 +2751,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2786,7 +2786,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.PrintSettings where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -93,6 +93,7 @@ ProgressBarEllipsizePropertyInfo , constructProgressBarEllipsize , getProgressBarEllipsize ,+ progressBarEllipsize , setProgressBarEllipsize , @@ -100,6 +101,7 @@ ProgressBarFractionPropertyInfo , constructProgressBarFraction , getProgressBarFraction ,+ progressBarFraction , setProgressBarFraction , @@ -107,6 +109,7 @@ ProgressBarInvertedPropertyInfo , constructProgressBarInverted , getProgressBarInverted ,+ progressBarInverted , setProgressBarInverted , @@ -114,6 +117,7 @@ ProgressBarPulseStepPropertyInfo , constructProgressBarPulseStep , getProgressBarPulseStep ,+ progressBarPulseStep , setProgressBarPulseStep , @@ -121,13 +125,16 @@ ProgressBarShowTextPropertyInfo , constructProgressBarShowText , getProgressBarShowText ,+ progressBarShowText , setProgressBarShowText , -- ** Text ProgressBarTextPropertyInfo ,+ clearProgressBarText , constructProgressBarText , getProgressBarText ,+ progressBarText , setProgressBarText , @@ -135,9 +142,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -483,6 +490,7 @@ -- VVV Prop "ellipsize" -- Type: TInterface "Pango" "EllipsizeMode" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getProgressBarEllipsize :: (MonadIO m, ProgressBarK o) => o -> m Pango.EllipsizeMode getProgressBarEllipsize obj = liftIO $ getObjectPropertyEnum obj "ellipsize"@@ -503,10 +511,12 @@ attrGet _ = getProgressBarEllipsize attrSet _ = setProgressBarEllipsize attrConstruct _ = constructProgressBarEllipsize+ attrClear _ = undefined -- VVV Prop "fraction" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getProgressBarFraction :: (MonadIO m, ProgressBarK o) => o -> m Double getProgressBarFraction obj = liftIO $ getObjectPropertyDouble obj "fraction"@@ -527,10 +537,12 @@ attrGet _ = getProgressBarFraction attrSet _ = setProgressBarFraction attrConstruct _ = constructProgressBarFraction+ attrClear _ = undefined -- VVV Prop "inverted" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getProgressBarInverted :: (MonadIO m, ProgressBarK o) => o -> m Bool getProgressBarInverted obj = liftIO $ getObjectPropertyBool obj "inverted"@@ -551,10 +563,12 @@ attrGet _ = getProgressBarInverted attrSet _ = setProgressBarInverted attrConstruct _ = constructProgressBarInverted+ attrClear _ = undefined -- VVV Prop "pulse-step" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getProgressBarPulseStep :: (MonadIO m, ProgressBarK o) => o -> m Double getProgressBarPulseStep obj = liftIO $ getObjectPropertyDouble obj "pulse-step"@@ -575,10 +589,12 @@ attrGet _ = getProgressBarPulseStep attrSet _ = setProgressBarPulseStep attrConstruct _ = constructProgressBarPulseStep+ attrClear _ = undefined -- VVV Prop "show-text" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getProgressBarShowText :: (MonadIO m, ProgressBarK o) => o -> m Bool getProgressBarShowText obj = liftIO $ getObjectPropertyBool obj "show-text"@@ -599,23 +615,28 @@ attrGet _ = getProgressBarShowText attrSet _ = setProgressBarShowText attrConstruct _ = constructProgressBarShowText+ attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just True) getProgressBarText :: (MonadIO m, ProgressBarK o) => o -> m T.Text-getProgressBarText obj = liftIO $ getObjectPropertyString obj "text"+getProgressBarText obj = liftIO $ checkUnexpectedNothing "getProgressBarText" $ getObjectPropertyString obj "text" setProgressBarText :: (MonadIO m, ProgressBarK o) => o -> T.Text -> m ()-setProgressBarText obj val = liftIO $ setObjectPropertyString obj "text" val+setProgressBarText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructProgressBarText :: T.Text -> IO ([Char], GValue)-constructProgressBarText val = constructObjectPropertyString "text" val+constructProgressBarText val = constructObjectPropertyString "text" (Just val) +clearProgressBarText :: (MonadIO m, ProgressBarK o) => o -> m ()+clearProgressBarText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text)+ data ProgressBarTextPropertyInfo instance AttrInfo ProgressBarTextPropertyInfo where- type AttrAllowedOps ProgressBarTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrAllowedOps ProgressBarTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ProgressBarTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ProgressBarTextPropertyInfo = ProgressBarK type AttrGetType ProgressBarTextPropertyInfo = T.Text@@ -623,10 +644,29 @@ attrGet _ = getProgressBarText attrSet _ = setProgressBarText attrConstruct _ = constructProgressBarText+ attrClear _ = clearProgressBarText type instance AttributeList ProgressBar = ProgressBarAttributeList type ProgressBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", ProgressBarEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fraction", ProgressBarFractionPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", ProgressBarInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pulseStep", ProgressBarPulseStepPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showText", ProgressBarShowTextPropertyInfo), '("style", WidgetStylePropertyInfo), '("text", ProgressBarTextPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +progressBarEllipsize :: AttrLabelProxy "ellipsize"+progressBarEllipsize = AttrLabelProxy++progressBarFraction :: AttrLabelProxy "fraction"+progressBarFraction = AttrLabelProxy++progressBarInverted :: AttrLabelProxy "inverted"+progressBarInverted = AttrLabelProxy++progressBarPulseStep :: AttrLabelProxy "pulseStep"+progressBarPulseStep = AttrLabelProxy++progressBarShowText :: AttrLabelProxy "showText"+progressBarShowText = AttrLabelProxy++progressBarText :: AttrLabelProxy "text"+progressBarText = AttrLabelProxy+ type instance SignalList ProgressBar = ProgressBarSignalList type ProgressBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -634,7 +674,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "ProgressBar"+-- returnType : Just (TInterface "Gtk" "ProgressBar") -- throws : False -- Skip return : False @@ -655,7 +695,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "EllipsizeMode"+-- returnType : Just (TInterface "Pango" "EllipsizeMode") -- throws : False -- Skip return : False @@ -683,7 +723,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -711,7 +751,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -739,7 +779,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -767,7 +807,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -795,7 +835,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -824,7 +864,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -851,7 +891,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -881,7 +921,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -911,7 +951,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -941,7 +981,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -971,7 +1011,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1001,7 +1041,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ProgressBar where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.ProgressBarAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -53,12 +53,15 @@ RadioActionCurrentValuePropertyInfo , constructRadioActionCurrentValue , getRadioActionCurrentValue ,+ radioActionCurrentValue , setRadioActionCurrentValue , -- ** Group RadioActionGroupPropertyInfo ,+ clearRadioActionGroup , constructRadioActionGroup ,+ radioActionGroup , setRadioActionGroup , @@ -66,6 +69,7 @@ RadioActionValuePropertyInfo , constructRadioActionValue , getRadioActionValue ,+ radioActionValue , setRadioActionValue , @@ -88,9 +92,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -255,17 +259,18 @@ connectSignalFunPtr obj "changed" cb' after -- VVV Prop "current-value"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getRadioActionCurrentValue :: (MonadIO m, RadioActionK o) => o -> m Int32-getRadioActionCurrentValue obj = liftIO $ getObjectPropertyCInt obj "current-value"+getRadioActionCurrentValue obj = liftIO $ getObjectPropertyInt32 obj "current-value" setRadioActionCurrentValue :: (MonadIO m, RadioActionK o) => o -> Int32 -> m ()-setRadioActionCurrentValue obj val = liftIO $ setObjectPropertyCInt obj "current-value" val+setRadioActionCurrentValue obj val = liftIO $ setObjectPropertyInt32 obj "current-value" val constructRadioActionCurrentValue :: Int32 -> IO ([Char], GValue)-constructRadioActionCurrentValue val = constructObjectPropertyCInt "current-value" val+constructRadioActionCurrentValue val = constructObjectPropertyInt32 "current-value" val data RadioActionCurrentValuePropertyInfo instance AttrInfo RadioActionCurrentValuePropertyInfo where@@ -277,20 +282,25 @@ attrGet _ = getRadioActionCurrentValue attrSet _ = setRadioActionCurrentValue attrConstruct _ = constructRadioActionCurrentValue+ attrClear _ = undefined -- VVV Prop "group" -- Type: TInterface "Gtk" "RadioAction" -- Flags: [PropertyWritable]+ -- Nullable: (Nothing,Nothing) setRadioActionGroup :: (MonadIO m, RadioActionK o, RadioActionK a) => o -> a -> m ()-setRadioActionGroup obj val = liftIO $ setObjectPropertyObject obj "group" val+setRadioActionGroup obj val = liftIO $ setObjectPropertyObject obj "group" (Just val) constructRadioActionGroup :: (RadioActionK a) => a -> IO ([Char], GValue)-constructRadioActionGroup val = constructObjectPropertyObject "group" val+constructRadioActionGroup val = constructObjectPropertyObject "group" (Just val) +clearRadioActionGroup :: (MonadIO m, RadioActionK o) => o -> m ()+clearRadioActionGroup obj = liftIO $ setObjectPropertyObject obj "group" (Nothing :: Maybe RadioAction)+ data RadioActionGroupPropertyInfo instance AttrInfo RadioActionGroupPropertyInfo where- type AttrAllowedOps RadioActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct]+ type AttrAllowedOps RadioActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint RadioActionGroupPropertyInfo = RadioActionK type AttrBaseTypeConstraint RadioActionGroupPropertyInfo = RadioActionK type AttrGetType RadioActionGroupPropertyInfo = ()@@ -298,19 +308,21 @@ attrGet _ = undefined attrSet _ = setRadioActionGroup attrConstruct _ = constructRadioActionGroup+ attrClear _ = clearRadioActionGroup -- VVV Prop "value"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Nothing,Nothing) getRadioActionValue :: (MonadIO m, RadioActionK o) => o -> m Int32-getRadioActionValue obj = liftIO $ getObjectPropertyCInt obj "value"+getRadioActionValue obj = liftIO $ getObjectPropertyInt32 obj "value" setRadioActionValue :: (MonadIO m, RadioActionK o) => o -> Int32 -> m ()-setRadioActionValue obj val = liftIO $ setObjectPropertyCInt obj "value" val+setRadioActionValue obj val = liftIO $ setObjectPropertyInt32 obj "value" val constructRadioActionValue :: Int32 -> IO ([Char], GValue)-constructRadioActionValue val = constructObjectPropertyCInt "value" val+constructRadioActionValue val = constructObjectPropertyInt32 "value" val data RadioActionValuePropertyInfo instance AttrInfo RadioActionValuePropertyInfo where@@ -322,10 +334,20 @@ attrGet _ = getRadioActionValue attrSet _ = setRadioActionValue attrConstruct _ = constructRadioActionValue+ attrClear _ = undefined type instance AttributeList RadioAction = RadioActionAttributeList type RadioActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("active", ToggleActionActivePropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("currentValue", RadioActionCurrentValuePropertyInfo), '("drawAsRadio", ToggleActionDrawAsRadioPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("group", RadioActionGroupPropertyInfo), '("hideIfEmpty", ActionHideIfEmptyPropertyInfo), '("iconName", ActionIconNamePropertyInfo), '("isImportant", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("shortLabel", ActionShortLabelPropertyInfo), '("stockId", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("value", RadioActionValuePropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visibleHorizontal", ActionVisibleHorizontalPropertyInfo), '("visibleOverflown", ActionVisibleOverflownPropertyInfo), '("visibleVertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) +radioActionCurrentValue :: AttrLabelProxy "currentValue"+radioActionCurrentValue = AttrLabelProxy++radioActionGroup :: AttrLabelProxy "group"+radioActionGroup = AttrLabelProxy++radioActionValue :: AttrLabelProxy "value"+radioActionValue = AttrLabelProxy+ data RadioActionChangedSignalInfo instance SignalInfo RadioActionChangedSignalInfo where type HaskellCallbackType RadioActionChangedSignalInfo = RadioActionChangedCallback@@ -336,9 +358,9 @@ -- method RadioAction::new -- method type : Constructor--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RadioAction"+-- returnType : Just (TInterface "Gtk" "RadioAction") -- throws : False -- Skip return : False @@ -347,7 +369,7 @@ CString -> -- label : TBasicType TUTF8 CString -> -- tooltip : TBasicType TUTF8 CString -> -- stock_id : TBasicType TUTF8- Int32 -> -- value : TBasicType TInt32+ Int32 -> -- value : TBasicType TInt IO (Ptr RadioAction) {-# DEPRECATED radioActionNew ["(Since version 3.10)"]#-}@@ -389,7 +411,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -416,7 +438,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TInterface "Gtk" "RadioAction")+-- returnType : Just (TGSList (TInterface "Gtk" "RadioAction")) -- throws : False -- Skip return : False @@ -432,7 +454,6 @@ radioActionGetGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_radio_action_get_group _obj'- checkUnexpectedReturnNULL "gtk_radio_action_get_group" result result' <- unpackGSList result result'' <- mapM (newObject RadioAction) result' touchManagedPtr _obj@@ -446,7 +467,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_source", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -479,15 +500,15 @@ -- method RadioAction::set_current_value -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_value", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_radio_action_set_current_value" gtk_radio_action_set_current_value :: Ptr RadioAction -> -- _obj : TInterface "Gtk" "RadioAction"- Int32 -> -- current_value : TBasicType TInt32+ Int32 -> -- current_value : TBasicType TInt IO () {-# DEPRECATED radioActionSetCurrentValue ["(Since version 3.10)"]#-}@@ -510,7 +531,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioAction"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.RadioAction where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -61,7 +61,9 @@ -- * Properties -- ** Group RadioButtonGroupPropertyInfo ,+ clearRadioButtonGroup , constructRadioButtonGroup ,+ radioButtonGroup , setRadioButtonGroup , @@ -84,9 +86,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -526,16 +528,20 @@ -- VVV Prop "group" -- Type: TInterface "Gtk" "RadioButton" -- Flags: [PropertyWritable]+ -- Nullable: (Nothing,Nothing) setRadioButtonGroup :: (MonadIO m, RadioButtonK o, RadioButtonK a) => o -> a -> m ()-setRadioButtonGroup obj val = liftIO $ setObjectPropertyObject obj "group" val+setRadioButtonGroup obj val = liftIO $ setObjectPropertyObject obj "group" (Just val) constructRadioButtonGroup :: (RadioButtonK a) => a -> IO ([Char], GValue)-constructRadioButtonGroup val = constructObjectPropertyObject "group" val+constructRadioButtonGroup val = constructObjectPropertyObject "group" (Just val) +clearRadioButtonGroup :: (MonadIO m, RadioButtonK o) => o -> m ()+clearRadioButtonGroup obj = liftIO $ setObjectPropertyObject obj "group" (Nothing :: Maybe RadioButton)+ data RadioButtonGroupPropertyInfo instance AttrInfo RadioButtonGroupPropertyInfo where- type AttrAllowedOps RadioButtonGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct]+ type AttrAllowedOps RadioButtonGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint RadioButtonGroupPropertyInfo = RadioButtonK type AttrBaseTypeConstraint RadioButtonGroupPropertyInfo = RadioButtonK type AttrGetType RadioButtonGroupPropertyInfo = ()@@ -543,10 +549,14 @@ attrGet _ = undefined attrSet _ = setRadioButtonGroup attrConstruct _ = constructRadioButtonGroup+ attrClear _ = clearRadioButtonGroup type instance AttributeList RadioButton = RadioButtonAttributeList type RadioButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawIndicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("group", RadioButtonGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +radioButtonGroup :: AttrLabelProxy "group"+radioButtonGroup = AttrLabelProxy+ data RadioButtonGroupChangedSignalInfo instance SignalInfo RadioButtonGroupChangedSignalInfo where type HaskellCallbackType RadioButtonGroupChangedSignalInfo = RadioButtonGroupChangedCallback@@ -559,7 +569,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RadioButton"+-- returnType : Just (TInterface "Gtk" "RadioButton") -- throws : False -- Skip return : False @@ -586,7 +596,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RadioButton"+-- returnType : Just (TInterface "Gtk" "RadioButton") -- throws : False -- Skip return : False @@ -615,7 +625,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RadioButton"+-- returnType : Just (TInterface "Gtk" "RadioButton") -- throws : False -- Skip return : False @@ -646,7 +656,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RadioButton"+-- returnType : Just (TInterface "Gtk" "RadioButton") -- throws : False -- Skip return : False @@ -679,7 +689,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RadioButton"+-- returnType : Just (TInterface "Gtk" "RadioButton") -- throws : False -- Skip return : False @@ -710,7 +720,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RadioButton"+-- returnType : Just (TInterface "Gtk" "RadioButton") -- throws : False -- Skip return : False @@ -743,7 +753,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TInterface "Gtk" "RadioButton")+-- returnType : Just (TGSList (TInterface "Gtk" "RadioButton")) -- throws : False -- Skip return : False @@ -759,7 +769,6 @@ radioButtonGetGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_radio_button_get_group _obj'- checkUnexpectedReturnNULL "gtk_radio_button_get_group" result result' <- unpackGSList result result'' <- mapM (newObject RadioButton) result' touchManagedPtr _obj@@ -773,7 +782,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_source", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -808,7 +817,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.RadioButton where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.RadioButtonAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -61,7 +61,9 @@ -- * Properties -- ** Group RadioMenuItemGroupPropertyInfo ,+ clearRadioMenuItemGroup , constructRadioMenuItemGroup ,+ radioMenuItemGroup , setRadioMenuItemGroup , @@ -84,9 +86,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -515,16 +517,20 @@ -- VVV Prop "group" -- Type: TInterface "Gtk" "RadioMenuItem" -- Flags: [PropertyWritable]+ -- Nullable: (Nothing,Nothing) setRadioMenuItemGroup :: (MonadIO m, RadioMenuItemK o, RadioMenuItemK a) => o -> a -> m ()-setRadioMenuItemGroup obj val = liftIO $ setObjectPropertyObject obj "group" val+setRadioMenuItemGroup obj val = liftIO $ setObjectPropertyObject obj "group" (Just val) constructRadioMenuItemGroup :: (RadioMenuItemK a) => a -> IO ([Char], GValue)-constructRadioMenuItemGroup val = constructObjectPropertyObject "group" val+constructRadioMenuItemGroup val = constructObjectPropertyObject "group" (Just val) +clearRadioMenuItemGroup :: (MonadIO m, RadioMenuItemK o) => o -> m ()+clearRadioMenuItemGroup obj = liftIO $ setObjectPropertyObject obj "group" (Nothing :: Maybe RadioMenuItem)+ data RadioMenuItemGroupPropertyInfo instance AttrInfo RadioMenuItemGroupPropertyInfo where- type AttrAllowedOps RadioMenuItemGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct]+ type AttrAllowedOps RadioMenuItemGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint RadioMenuItemGroupPropertyInfo = RadioMenuItemK type AttrBaseTypeConstraint RadioMenuItemGroupPropertyInfo = RadioMenuItemK type AttrGetType RadioMenuItemGroupPropertyInfo = ()@@ -532,10 +538,14 @@ attrGet _ = undefined attrSet _ = setRadioMenuItemGroup attrConstruct _ = constructRadioMenuItemGroup+ attrClear _ = clearRadioMenuItemGroup type instance AttributeList RadioMenuItem = RadioMenuItemAttributeList type RadioMenuItemAttributeList = ('[ '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", CheckMenuItemActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawAsRadio", CheckMenuItemDrawAsRadioPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("group", RadioMenuItemGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inconsistent", CheckMenuItemInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +radioMenuItemGroup :: AttrLabelProxy "group"+radioMenuItemGroup = AttrLabelProxy+ data RadioMenuItemGroupChangedSignalInfo instance SignalInfo RadioMenuItemGroupChangedSignalInfo where type HaskellCallbackType RadioMenuItemGroupChangedSignalInfo = RadioMenuItemGroupChangedCallback@@ -548,7 +558,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RadioMenuItem"+-- returnType : Just (TInterface "Gtk" "RadioMenuItem") -- throws : False -- Skip return : False @@ -575,7 +585,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RadioMenuItem"+-- returnType : Just (TInterface "Gtk" "RadioMenuItem") -- throws : False -- Skip return : False @@ -604,7 +614,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RadioMenuItem"+-- returnType : Just (TInterface "Gtk" "RadioMenuItem") -- throws : False -- Skip return : False @@ -635,7 +645,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RadioMenuItem"+-- returnType : Just (TInterface "Gtk" "RadioMenuItem") -- throws : False -- Skip return : False @@ -672,7 +682,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RadioMenuItem"+-- returnType : Just (TInterface "Gtk" "RadioMenuItem") -- throws : False -- Skip return : False @@ -703,7 +713,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RadioMenuItem"+-- returnType : Just (TInterface "Gtk" "RadioMenuItem") -- throws : False -- Skip return : False @@ -740,7 +750,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TInterface "Gtk" "RadioMenuItem")+-- returnType : Just (TGSList (TInterface "Gtk" "RadioMenuItem")) -- throws : False -- Skip return : False @@ -756,7 +766,6 @@ radioMenuItemGetGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_radio_menu_item_get_group _obj'- checkUnexpectedReturnNULL "gtk_radio_menu_item_get_group" result result' <- unpackGSList result result'' <- mapM (newObject RadioMenuItem) result' touchManagedPtr _obj@@ -770,7 +779,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_source", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -805,7 +814,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.RadioMenuItem where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.RadioMenuItemAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -48,7 +48,9 @@ -- * Properties -- ** Group RadioToolButtonGroupPropertyInfo ,+ clearRadioToolButtonGroup , constructRadioToolButtonGroup ,+ radioToolButtonGroup , setRadioToolButtonGroup , @@ -56,9 +58,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -465,16 +467,20 @@ -- VVV Prop "group" -- Type: TInterface "Gtk" "RadioToolButton" -- Flags: [PropertyWritable]+ -- Nullable: (Nothing,Nothing) setRadioToolButtonGroup :: (MonadIO m, RadioToolButtonK o, RadioToolButtonK a) => o -> a -> m ()-setRadioToolButtonGroup obj val = liftIO $ setObjectPropertyObject obj "group" val+setRadioToolButtonGroup obj val = liftIO $ setObjectPropertyObject obj "group" (Just val) constructRadioToolButtonGroup :: (RadioToolButtonK a) => a -> IO ([Char], GValue)-constructRadioToolButtonGroup val = constructObjectPropertyObject "group" val+constructRadioToolButtonGroup val = constructObjectPropertyObject "group" (Just val) +clearRadioToolButtonGroup :: (MonadIO m, RadioToolButtonK o) => o -> m ()+clearRadioToolButtonGroup obj = liftIO $ setObjectPropertyObject obj "group" (Nothing :: Maybe RadioToolButton)+ data RadioToolButtonGroupPropertyInfo instance AttrInfo RadioToolButtonGroupPropertyInfo where- type AttrAllowedOps RadioToolButtonGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct]+ type AttrAllowedOps RadioToolButtonGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint RadioToolButtonGroupPropertyInfo = RadioToolButtonK type AttrBaseTypeConstraint RadioToolButtonGroupPropertyInfo = RadioToolButtonK type AttrGetType RadioToolButtonGroupPropertyInfo = ()@@ -482,10 +488,14 @@ attrGet _ = undefined attrSet _ = setRadioToolButtonGroup attrConstruct _ = constructRadioToolButtonGroup+ attrClear _ = clearRadioToolButtonGroup type instance AttributeList RadioToolButton = RadioToolButtonAttributeList type RadioToolButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleToolButtonActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("group", RadioToolButtonGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconName", ToolButtonIconNamePropertyInfo), '("iconWidget", ToolButtonIconWidgetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("labelWidget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stockId", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +radioToolButtonGroup :: AttrLabelProxy "group"+radioToolButtonGroup = AttrLabelProxy+ type instance SignalList RadioToolButton = RadioToolButtonSignalList type RadioToolButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("createMenuProxy", ToolItemCreateMenuProxySignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleToolButtonToggledSignalInfo), '("toolbarReconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -493,7 +503,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RadioToolButton"+-- returnType : Just (TInterface "Gtk" "RadioToolButton") -- throws : False -- Skip return : False @@ -520,7 +530,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RadioToolButton"+-- returnType : Just (TInterface "Gtk" "RadioToolButton") -- throws : False -- Skip return : False @@ -551,7 +561,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RadioToolButton"+-- returnType : Just (TInterface "Gtk" "RadioToolButton") -- throws : False -- Skip return : False @@ -580,7 +590,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RadioToolButton"+-- returnType : Just (TInterface "Gtk" "RadioToolButton") -- throws : False -- Skip return : False @@ -613,7 +623,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TInterface "Gtk" "RadioButton")+-- returnType : Just (TGSList (TInterface "Gtk" "RadioButton")) -- throws : False -- Skip return : False @@ -629,7 +639,6 @@ radioToolButtonGetGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_radio_tool_button_get_group _obj'- checkUnexpectedReturnNULL "gtk_radio_tool_button_get_group" result result' <- unpackGSList result result'' <- mapM (newObject RadioButton) result' touchManagedPtr _obj@@ -643,7 +652,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.RadioToolButton where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -164,6 +164,7 @@ RangeAdjustmentPropertyInfo , constructRangeAdjustment , getRangeAdjustment ,+ rangeAdjustment , setRangeAdjustment , @@ -171,6 +172,7 @@ RangeFillLevelPropertyInfo , constructRangeFillLevel , getRangeFillLevel ,+ rangeFillLevel , setRangeFillLevel , @@ -178,6 +180,7 @@ RangeInvertedPropertyInfo , constructRangeInverted , getRangeInverted ,+ rangeInverted , setRangeInverted , @@ -185,6 +188,7 @@ RangeLowerStepperSensitivityPropertyInfo, constructRangeLowerStepperSensitivity , getRangeLowerStepperSensitivity ,+ rangeLowerStepperSensitivity , setRangeLowerStepperSensitivity , @@ -192,6 +196,7 @@ RangeRestrictToFillLevelPropertyInfo , constructRangeRestrictToFillLevel , getRangeRestrictToFillLevel ,+ rangeRestrictToFillLevel , setRangeRestrictToFillLevel , @@ -199,6 +204,7 @@ RangeRoundDigitsPropertyInfo , constructRangeRoundDigits , getRangeRoundDigits ,+ rangeRoundDigits , setRangeRoundDigits , @@ -206,6 +212,7 @@ RangeShowFillLevelPropertyInfo , constructRangeShowFillLevel , getRangeShowFillLevel ,+ rangeShowFillLevel , setRangeShowFillLevel , @@ -213,6 +220,7 @@ RangeUpperStepperSensitivityPropertyInfo, constructRangeUpperStepperSensitivity , getRangeUpperStepperSensitivity ,+ rangeUpperStepperSensitivity , setRangeUpperStepperSensitivity , @@ -271,9 +279,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -804,15 +812,16 @@ -- VVV Prop "adjustment" -- Type: TInterface "Gtk" "Adjustment" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+ -- Nullable: (Just False,Just False) getRangeAdjustment :: (MonadIO m, RangeK o) => o -> m Adjustment-getRangeAdjustment obj = liftIO $ getObjectPropertyObject obj "adjustment" Adjustment+getRangeAdjustment obj = liftIO $ checkUnexpectedNothing "getRangeAdjustment" $ getObjectPropertyObject obj "adjustment" Adjustment setRangeAdjustment :: (MonadIO m, RangeK o, AdjustmentK a) => o -> a -> m ()-setRangeAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" val+setRangeAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" (Just val) constructRangeAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue)-constructRangeAdjustment val = constructObjectPropertyObject "adjustment" val+constructRangeAdjustment val = constructObjectPropertyObject "adjustment" (Just val) data RangeAdjustmentPropertyInfo instance AttrInfo RangeAdjustmentPropertyInfo where@@ -824,10 +833,12 @@ attrGet _ = getRangeAdjustment attrSet _ = setRangeAdjustment attrConstruct _ = constructRangeAdjustment+ attrClear _ = undefined -- VVV Prop "fill-level" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getRangeFillLevel :: (MonadIO m, RangeK o) => o -> m Double getRangeFillLevel obj = liftIO $ getObjectPropertyDouble obj "fill-level"@@ -848,10 +859,12 @@ attrGet _ = getRangeFillLevel attrSet _ = setRangeFillLevel attrConstruct _ = constructRangeFillLevel+ attrClear _ = undefined -- VVV Prop "inverted" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getRangeInverted :: (MonadIO m, RangeK o) => o -> m Bool getRangeInverted obj = liftIO $ getObjectPropertyBool obj "inverted"@@ -872,10 +885,12 @@ attrGet _ = getRangeInverted attrSet _ = setRangeInverted attrConstruct _ = constructRangeInverted+ attrClear _ = undefined -- VVV Prop "lower-stepper-sensitivity" -- Type: TInterface "Gtk" "SensitivityType" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getRangeLowerStepperSensitivity :: (MonadIO m, RangeK o) => o -> m SensitivityType getRangeLowerStepperSensitivity obj = liftIO $ getObjectPropertyEnum obj "lower-stepper-sensitivity"@@ -896,10 +911,12 @@ attrGet _ = getRangeLowerStepperSensitivity attrSet _ = setRangeLowerStepperSensitivity attrConstruct _ = constructRangeLowerStepperSensitivity+ attrClear _ = undefined -- VVV Prop "restrict-to-fill-level" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getRangeRestrictToFillLevel :: (MonadIO m, RangeK o) => o -> m Bool getRangeRestrictToFillLevel obj = liftIO $ getObjectPropertyBool obj "restrict-to-fill-level"@@ -920,19 +937,21 @@ attrGet _ = getRangeRestrictToFillLevel attrSet _ = setRangeRestrictToFillLevel attrConstruct _ = constructRangeRestrictToFillLevel+ attrClear _ = undefined -- VVV Prop "round-digits"- -- Type: TBasicType TInt32+ -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getRangeRoundDigits :: (MonadIO m, RangeK o) => o -> m Int32-getRangeRoundDigits obj = liftIO $ getObjectPropertyCInt obj "round-digits"+getRangeRoundDigits obj = liftIO $ getObjectPropertyInt32 obj "round-digits" setRangeRoundDigits :: (MonadIO m, RangeK o) => o -> Int32 -> m ()-setRangeRoundDigits obj val = liftIO $ setObjectPropertyCInt obj "round-digits" val+setRangeRoundDigits obj val = liftIO $ setObjectPropertyInt32 obj "round-digits" val constructRangeRoundDigits :: Int32 -> IO ([Char], GValue)-constructRangeRoundDigits val = constructObjectPropertyCInt "round-digits" val+constructRangeRoundDigits val = constructObjectPropertyInt32 "round-digits" val data RangeRoundDigitsPropertyInfo instance AttrInfo RangeRoundDigitsPropertyInfo where@@ -944,10 +963,12 @@ attrGet _ = getRangeRoundDigits attrSet _ = setRangeRoundDigits attrConstruct _ = constructRangeRoundDigits+ attrClear _ = undefined -- VVV Prop "show-fill-level" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getRangeShowFillLevel :: (MonadIO m, RangeK o) => o -> m Bool getRangeShowFillLevel obj = liftIO $ getObjectPropertyBool obj "show-fill-level"@@ -968,10 +989,12 @@ attrGet _ = getRangeShowFillLevel attrSet _ = setRangeShowFillLevel attrConstruct _ = constructRangeShowFillLevel+ attrClear _ = undefined -- VVV Prop "upper-stepper-sensitivity" -- Type: TInterface "Gtk" "SensitivityType" -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getRangeUpperStepperSensitivity :: (MonadIO m, RangeK o) => o -> m SensitivityType getRangeUpperStepperSensitivity obj = liftIO $ getObjectPropertyEnum obj "upper-stepper-sensitivity"@@ -992,10 +1015,35 @@ attrGet _ = getRangeUpperStepperSensitivity attrSet _ = setRangeUpperStepperSensitivity attrConstruct _ = constructRangeUpperStepperSensitivity+ attrClear _ = undefined type instance AttributeList Range = RangeAttributeList type RangeAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("lowerStepperSensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("upperStepperSensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +rangeAdjustment :: AttrLabelProxy "adjustment"+rangeAdjustment = AttrLabelProxy++rangeFillLevel :: AttrLabelProxy "fillLevel"+rangeFillLevel = AttrLabelProxy++rangeInverted :: AttrLabelProxy "inverted"+rangeInverted = AttrLabelProxy++rangeLowerStepperSensitivity :: AttrLabelProxy "lowerStepperSensitivity"+rangeLowerStepperSensitivity = AttrLabelProxy++rangeRestrictToFillLevel :: AttrLabelProxy "restrictToFillLevel"+rangeRestrictToFillLevel = AttrLabelProxy++rangeRoundDigits :: AttrLabelProxy "roundDigits"+rangeRoundDigits = AttrLabelProxy++rangeShowFillLevel :: AttrLabelProxy "showFillLevel"+rangeShowFillLevel = AttrLabelProxy++rangeUpperStepperSensitivity :: AttrLabelProxy "upperStepperSensitivity"+rangeUpperStepperSensitivity = AttrLabelProxy+ data RangeAdjustBoundsSignalInfo instance SignalInfo RangeAdjustBoundsSignalInfo where type HaskellCallbackType RangeAdjustBoundsSignalInfo = RangeAdjustBoundsCallback@@ -1023,7 +1071,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "Adjustment"+-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -1052,7 +1100,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1080,7 +1128,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1108,7 +1156,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1136,7 +1184,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "SensitivityType"+-- returnType : Just (TInterface "Gtk" "SensitivityType") -- throws : False -- Skip return : False @@ -1164,7 +1212,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1191,7 +1239,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "range_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1221,7 +1269,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1249,7 +1297,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1276,7 +1324,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1302,16 +1350,16 @@ -- method Range::get_slider_range -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "slider_start", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "slider_end", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "slider_start", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "slider_end", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_range_get_slider_range" gtk_range_get_slider_range :: Ptr Range -> -- _obj : TInterface "Gtk" "Range"- Ptr Int32 -> -- slider_start : TBasicType TInt32- Ptr Int32 -> -- slider_end : TBasicType TInt32+ Ptr Int32 -> -- slider_start : TBasicType TInt+ Ptr Int32 -> -- slider_end : TBasicType TInt IO () @@ -1339,7 +1387,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1367,7 +1415,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "SensitivityType"+-- returnType : Just (TInterface "Gtk" "SensitivityType") -- throws : False -- Skip return : False @@ -1395,7 +1443,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1423,7 +1471,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1454,7 +1502,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill_level", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1484,7 +1532,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flippable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1514,7 +1562,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1547,7 +1595,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1577,7 +1625,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1605,15 +1653,15 @@ -- method Range::set_min_slider_size -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_range_set_min_slider_size" gtk_range_set_min_slider_size :: Ptr Range -> -- _obj : TInterface "Gtk" "Range"- Int32 -> -- min_size : TBasicType TInt32+ Int32 -> -- min_size : TBasicType TInt IO () @@ -1636,7 +1684,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1669,7 +1717,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "restrict_to_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1697,15 +1745,15 @@ -- method Range::set_round_digits -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "round_digits", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "round_digits", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_range_set_round_digits" gtk_range_set_round_digits :: Ptr Range -> -- _obj : TInterface "Gtk" "Range"- Int32 -> -- round_digits : TBasicType TInt32+ Int32 -> -- round_digits : TBasicType TInt IO () @@ -1728,7 +1776,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1758,7 +1806,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size_fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1788,7 +1836,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1818,7 +1866,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.Range where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.RangeAccessible where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -30,9 +30,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -106,7 +106,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gtk" "RcStyle"+-- returnType : Just (TInterface "Gtk" "RcStyle") -- throws : False -- Skip return : False @@ -127,7 +127,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RcStyle"+-- returnType : Just (TInterface "Gtk" "RcStyle") -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.RcStyle where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
@@ -42,6 +42,7 @@ RecentActionShowNumbersPropertyInfo , constructRecentActionShowNumbers , getRecentActionShowNumbers ,+ recentActionShowNumbers , setRecentActionShowNumbers , @@ -49,9 +50,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -199,6 +200,7 @@ -- VVV Prop "show-numbers" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable]+ -- Nullable: (Just False,Just False) getRecentActionShowNumbers :: (MonadIO m, RecentActionK o) => o -> m Bool getRecentActionShowNumbers obj = liftIO $ getObjectPropertyBool obj "show-numbers"@@ -219,10 +221,14 @@ attrGet _ = getRecentActionShowNumbers attrSet _ = setRecentActionShowNumbers attrConstruct _ = constructRecentActionShowNumbers+ attrClear _ = undefined type instance AttributeList RecentAction = RecentActionAttributeList type RecentActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hideIfEmpty", ActionHideIfEmptyPropertyInfo), '("iconName", ActionIconNamePropertyInfo), '("isImportant", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("localOnly", RecentChooserLocalOnlyPropertyInfo), '("name", ActionNamePropertyInfo), '("recentManager", RecentChooserRecentManagerPropertyInfo), '("selectMultiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("shortLabel", ActionShortLabelPropertyInfo), '("showIcons", RecentChooserShowIconsPropertyInfo), '("showNotFound", RecentChooserShowNotFoundPropertyInfo), '("showNumbers", RecentActionShowNumbersPropertyInfo), '("showPrivate", RecentChooserShowPrivatePropertyInfo), '("showTips", RecentChooserShowTipsPropertyInfo), '("sortType", RecentChooserSortTypePropertyInfo), '("stockId", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visibleHorizontal", ActionVisibleHorizontalPropertyInfo), '("visibleOverflown", ActionVisibleOverflownPropertyInfo), '("visibleVertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) +recentActionShowNumbers :: AttrLabelProxy "showNumbers"+recentActionShowNumbers = AttrLabelProxy+ type instance SignalList RecentAction = RecentActionSignalList type RecentActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("itemActivated", RecentChooserItemActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("selectionChanged", RecentChooserSelectionChangedSignalInfo)] :: [(Symbol, *)]) @@ -230,7 +236,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RecentAction"+-- returnType : Just (TInterface "Gtk" "RecentAction") -- throws : False -- Skip return : False @@ -279,7 +285,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gtk" "RecentAction"+-- returnType : Just (TInterface "Gtk" "RecentAction") -- throws : False -- Skip return : False @@ -336,7 +342,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -364,7 +370,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_numbers", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False
@@ -1,8 +1,8 @@ module GI.Gtk.Objects.RecentAction where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff