From: Andy S. <And...@co...> - 2010-03-25 11:00:52
|
Thu Mar 25 06:59:46 EDT 2010 Andy Stewart <laz...@gm...> * Update all `menuComboToolbar` modules to Gtk+ 2.18.3 Ignore-this: 1d668db72284a7b99d9f9d74ea54dc97 hunk ./ApiUpdateTodoList.txt 162 -*** TODO ToolShell.chs +*** DONE ToolShell.chs hunk ./ApiUpdateTodoList.txt 250 -*** TODO CheckMenuItem.chs.pp +*** DONE CheckMenuItem.chs.pp hunk ./ApiUpdateTodoList.txt 252 -*** TODO ComboBoxEntry.chs.pp +*** DONE ComboBoxEntry.chs.pp hunk ./ApiUpdateTodoList.txt 254 -*** TODO ImageMenuItem.chs -*** TODO MenuBar.chs.pp -*** TODO Menu.chs.pp -*** TODO MenuItem.chs -*** TODO MenuShell.chs.pp -*** TODO MenuToolButton.chs.pp +*** DEPRECATED ImageMenuItem.chs +*** DONE MenuBar.chs.pp +*** DONE Menu.chs.pp +*** DONE MenuItem.chs +*** DONE MenuShell.chs.pp +*** DONE MenuToolButton.chs.pp hunk ./ApiUpdateTodoList.txt 261 -*** TODO RadioMenuItem.chs -*** TODO RadioToolButton.chs.pp -*** TODO SeparatorMenuItem.chs.pp -*** TODO SeparatorToolItem.chs.pp -*** TODO TearoffMenuItem.chs -*** TODO ToggleToolButton.chs.pp -*** TODO Toolbar.chs.pp -*** TODO ToolButton.chs.pp -*** TODO ToolItem.chs.pp +*** DONE RadioMenuItem.chs +*** DONE RadioToolButton.chs.pp +*** DONE SeparatorMenuItem.chs.pp +*** DONE SeparatorToolItem.chs.pp +*** DONE TearoffMenuItem.chs +*** DONE ToggleToolButton.chs.pp +*** DONE Toolbar.chs.pp +*** DONE ToolButton.chs.pp +*** DONE ToolItem.chs.pp hunk ./Makefile.am 686 + gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolShell.chs.pp \ hunk ./gtk/Graphics/UI/Gtk.hs.pp 144 + module Graphics.UI.Gtk.MenuComboToolbar.ToolShell, hunk ./gtk/Graphics/UI/Gtk.hs.pp 357 +import Graphics.UI.Gtk.MenuComboToolbar.ToolShell hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/CheckMenuItem.chs.pp 8 --- Copyright (C) 1999-2005 Axel Simon +-- Copyright (C) 1999-2009 Axel Simon hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/CheckMenuItem.chs.pp 28 + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/CheckMenuItem.chs.pp 39 +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Combo.chs.pp 8 --- Copyright (C) 1999-2005 Axel Simon +-- Copyright (C) 1999-2009 Axel Simon hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Combo.chs.pp 37 --- [_$_] +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Combo.chs.pp 54 +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs.pp 8 --- Copyright (C) 2004-2007 Duncan Coutts, Axel Simon +-- Copyright (C) 2004-2009 Duncan Coutts, Axel Simon hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs.pp 29 +-- The following functions don't bind, use correspond attributes instead: +-- gtk_combo_box_set_button_sensitivity +-- gtk_combo_box_get_button_sensitivity +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs.pp 123 +#if GTK_CHECK_VERSION(2,14,0) + comboBoxButtonSensitivity, +#endif hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs.pp 149 + moveActive, + popdown, + popup, hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs.pp 167 +import Graphics.UI.Gtk.Abstract.Range (SensitivityType) hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs.pp 172 +import Graphics.UI.Gtk.General.Enums (ScrollType) hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs.pp 600 + +#if GTK_CHECK_VERSION(2,14,0) +-- | Whether the dropdown button is sensitive when the model is empty. +-- [_$_] +-- Default value: ''SensitivityAuto'' +-- [_$_] +-- Since 2.14 +comboBoxButtonSensitivity :: ComboBoxClass self => Attr self SensitivityType +comboBoxButtonSensitivity = newAttrFromEnumProperty "button-sensitivity" + {# call pure unsafe gtk_sensitivity_type_get_type #} +#endif + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs.pp 754 +-- | The 'moveActive' signal is a keybinding signal which gets emitted to move the active selection. +-- [_$_] +-- widget[_\c2_][_\a0_]: the object that received the signal +-- [_$_] +-- @scrollType@[_\c2_][_\a0_]: a 'ScrollType' +-- [_$_] +-- @userData@[_\c2_][_\a0_]: user data set when the signal handler was connected. +-- [_$_] +-- Since 2.12 +moveActive :: ComboBoxClass self => Signal self (ScrollType -> IO ()) +moveActive = Signal (connect_ENUM__NONE "move-active") + [_$_] +-- | The 'popdown' signal is a keybinding signal which gets emitted to popdown the combo box list. +-- [_$_] +-- The default bindings for this signal are Alt+Up and Escape. +-- [_$_] +-- button[_\c2_][_\a0_]: the object which received the signal +-- [_$_] +-- @userData@[_\c2_][_\a0_]: user data set when the signal handler was connected. +-- [_$_] +-- Since 2.12 +popdown :: ComboBoxClass self => Signal self (IO Bool) +popdown = Signal (connect_NONE__BOOL "popdown") + +-- | The 'popup' signal is a keybinding signal which gets emitted to popup the combo box list. +-- [_$_] +-- The default binding for this signal is Alt+Down. +-- [_$_] +-- widget[_\c2_][_\a0_]: the object that received the signal +-- [_$_] +-- @userData@[_\c2_][_\a0_]: user data set when the signal handler was connected. +-- [_$_] +-- Since 2.12 +popup :: ComboBoxClass self => Signal self (IO ()) +popup = Signal (connect_NONE__NONE "popup") + [_$_] hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ComboBoxEntry.chs.pp 8 --- Copyright (C) 2004-2005 Duncan Coutts +-- Copyright (C) 2004-2009 Duncan Coutts hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ComboBoxEntry.chs.pp 30 + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ComboBoxEntry.chs.pp 54 +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ImageMenuItem.chs 8 --- Copyright (C) 2002 Jonas Svensson +-- Copyright (C) 2002-2009 Jonas Svensson hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ImageMenuItem.chs 32 + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ImageMenuItem.chs 42 +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 8 --- Copyright (C) 1999-2005 Axel Simon +-- Copyright (C) 1999-2009 Axel Simon hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 20 --- TODO --- --- The following not bound functions might be useful: --- menuSetAccelGroup, menuSetAccelGroup, menuReposition --- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 33 + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 50 +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 59 +-- | +----'RecentChooserMenu' hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 77 +#if GTK_CHECK_VERSION(2,14,0) + menuGetAccelPath, + menuGetMonitor, +#endif hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 104 +#if GTK_CHECK_VERSION(2,14,0) + menuAccelPath, + menuAttachWidget, + menuMonitor, +#endif + menuTearoffTitle, +#if GTK_CHECK_VERSION(2,18,0) + menuReserveToggleSize, +#endif + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 126 + +-- * Signal + moveScroll, hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 140 +import Graphics.UI.Gtk.General.Enums (ScrollType) hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 142 +{#import Graphics.UI.Gtk.Signals#} hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 259 +#if GTK_CHECK_VERSION(2,14,0) +menuGetAccelPath :: MenuClass self => self + -> IO String -- ^ returns the accelerator path set on the menu. +menuGetAccelPath self = + {# call gtk_menu_get_accel_path #} + (toMenu self) + >>= peekUTFString + +menuGetMonitor :: MenuClass self => self + -> IO Int -- ^ returns the number of the monitor on which the menu should be + -- popped up or -1, if no monitor has been set +menuGetMonitor self = + liftM fromIntegral $ + {# call gtk_menu_get_monitor #} + (toMenu self) +#endif hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 479 +#if GTK_CHECK_VERSION(2,14,0) +-- | An accel path used to conveniently construct accel paths of child items. +-- [_$_] +-- Default value: 'Nothing' +-- [_$_] +-- Since 2.14 +menuAccelPath :: MenuClass self => Attr self String +menuAccelPath = newAttrFromStringProperty "accel-path" + +-- | The widget the menu is attached to. Setting this property attaches the menu without a +-- 'MenuDetachFunc'. If you need to use a detacher, use 'menuAttachToWidget' directly. +-- [_$_] +-- Since 2.14 +menuAttachWidget :: (MenuClass self, WidgetClass widget) => ReadWriteAttr self Widget widget +menuAttachWidget = newAttrFromObjectProperty "attach-widget" + {# call pure unsafe gtk_widget_get_type #} + +-- | The monitor the menu will be popped up on. +-- [_$_] +-- Allowed values: >= 'GMaxulong' +-- [_$_] +-- Default value: -1 +-- [_$_] +-- Since 2.14 +menuMonitor :: MenuClass self => Attr self Int +menuMonitor = newAttrFromIntProperty "monitor" + +#endif + +-- | A title that may be displayed by the window manager when this menu is torn-off. +-- [_$_] +-- Default value: 'Nothing' +menuTearoffTitle :: MenuClass self => Attr self String +menuTearoffTitle = newAttrFromStringProperty "tearoff-title" + +#if GTK_CHECK_VERSION(2,18,0) +-- | A boolean that indicates whether the menu reserves space for toggles and icons, regardless of their +-- actual presence. +-- [_$_] +-- This property should only be changed from its default value for special-purposes such as tabular +-- menus. Regular menus that are connected to a menu bar or context menus should reserve toggle space +-- for consistency. +-- [_$_] +-- Default value: 'True' +-- [_$_] +-- Since 2.18 +menuReserveToggleSize :: MenuClass self => Attr self Bool +menuReserveToggleSize = newAttrFromBoolProperty "reserve-toggle-size" + +#endif + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 582 + +------------- +-- Signal +moveScroll :: MenuClass self => Signal self (ScrollType -> IO ()) +moveScroll = Signal (connect_ENUM__NONE "move-scroll") + [_$_] hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuBar.chs.pp 8 --- Copyright (C) 1999-2005 Axel Simon +-- Copyright (C) 1999-2009 Axel Simon hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuBar.chs.pp 28 + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuBar.chs.pp 36 +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 8 --- Copyright (C) 1999-2005 Axel Simon +-- Copyright (C) 1999-2009 Axel Simon hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 26 --- TODO --- --- figure out what the signals \"toggle-size-allocate\" and [_$_] --- \"toggle-size-request\" are good for and bind them if useful --- --- figure out if the connectToToggle signal is useful at all +-- The following functions don't bind, use corresponding attributes instead: +-- gtk_menu_item_get_label +-- gtk_menu_item_set_label +-- gtk_menu_item_get_use_underline +-- gtk_menu_item_set_use_underline hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 40 + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 51 +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 88 + menuItemToggleSizeRequest, + menuItemToggleSizeAllocate, hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 94 + menuItemAccelPath, + menuItemLabel, + menuItemUseUnderline, hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 99 + activateItem, + toggleSizeRequest, + toggleSizeAllocate, + +-- * Deprecated [_$_] hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 121 +import System.Glib.Properties hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 265 +-- | Emits the \"toggle_size_request\" signal on the given item. +-- +menuItemToggleSizeRequest :: MenuItemClass self => self + -> IO Int -- ^ @requisition@ - the requisition to use as signal data. +menuItemToggleSizeRequest self = + alloca $ \requisitionPtr -> do + {# call gtk_menu_item_toggle_size_request #} + (toMenuItem self) + requisitionPtr + requisition <- peek requisitionPtr + return (fromIntegral requisition) + +-- | Emits the \"toggle_size_allocate\" signal on the given item. +-- +menuItemToggleSizeAllocate :: MenuItemClass self => self + -> Int -- ^ @allocation@ - the allocation to use as signal data. + -> IO () +menuItemToggleSizeAllocate self allocation = + {# call gtk_menu_item_toggle_size_allocate #} + (toMenuItem self) + (fromIntegral allocation) + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 305 +-- | Sets the accelerator path of the menu item, through which runtime changes of the menu item's +-- accelerator caused by the user can be identified and saved to persistant storage. +-- [_$_] +-- Default value: 'Nothing' +-- [_$_] +-- Since 2.14 +menuItemAccelPath :: MenuItemClass self => Attr self String +menuItemAccelPath = newAttrFromStringProperty "accel-path" + +-- | The text for the child label. +-- [_$_] +-- Default value: "" +-- [_$_] +-- Since 2.16 +menuItemLabel :: MenuItemClass self => Attr self String +menuItemLabel = newAttrFromStringProperty "label" + +-- | 'True' if underlines in the text indicate mnemonics +-- [_$_] +-- Default value: 'False' +-- [_$_] +-- Since 2.16 +menuItemUseUnderline :: MenuItemClass self => Attr self Bool +menuItemUseUnderline = newAttrFromBoolProperty "use-underline" + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 333 +-- | Emitted when the item is activated, but also if the menu item has a +-- submenu. For normal applications, the relevant signal is \"activate\". +-- +activateItem :: MenuItemClass self => Signal self (IO ()) +activateItem = Signal (connect_NONE__NONE "activate-item") + +-- | +-- +toggleSizeRequest :: MenuItemClass self => Signal self (IO ()) +toggleSizeRequest = Signal (connect_NONE__NONE "toggle-size-request") + +-- | +-- +toggleSizeAllocate :: MenuItemClass self => Signal self (Int -> IO ()) +toggleSizeAllocate = Signal (connect_INT__NONE "toggle-size-allocate") + + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs.pp 8 --- Copyright (C) 1999-2005 Axel Simon +-- Copyright (C) 1999-2009 Axel Simon hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs.pp 28 + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs.pp 40 +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs.pp 57 + MenuDirectionType(..), hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs.pp 84 + activateCurrent, + msCancel, + cycleFocus, + deactivated, + moveCurrent, + moveSelected, + selectionDone, + +#ifndef DISABLE_DEPRECATED hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs.pp 99 - MenuDirectionType(..), hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs.pp 103 +#endif hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs.pp 112 -import Graphics.UI.Gtk.General.Enums (MenuDirectionType(..)) +import Graphics.UI.Gtk.General.Enums (MenuDirectionType(..), DirectionType (..)) hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs.pp 286 +-- | This signal is called if an item is +-- activated. The boolean flag @hide@ is True whenever the menu will +-- behidden after this action. +-- +activateCurrent :: MenuShellClass self => Signal self (Bool -> IO ()) +activateCurrent = Signal (connect_BOOL__NONE "activate-current") + +-- | This signal will be emitted when a selection is +-- aborted and thus does not lead to an activation. This is in contrast to the +-- @selection@ done signal which is always emitted. +-- +msCancel :: MenuShellClass self => Signal self (IO ()) +msCancel = Signal (connect_NONE__NONE "cancel") + +-- | +cycleFocus :: MenuShellClass self => Signal self (DirectionType -> IO ()) +cycleFocus = Signal (connect_ENUM__NONE "cycle-focus") + [_$_] hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs.pp 305 +-- | This signal is sent whenever the menu shell +-- is deactivated (hidden). +-- +deactivated :: MenuShellClass self => Signal self (IO ()) [_$_] +deactivated = Signal (connect_NONE__NONE "deactivate") + +-- | This signal is emitted for each move the +-- cursor makes. +-- +moveCurrent :: MenuShellClass self => Signal self (MenuDirectionType -> IO ()) +moveCurrent = Signal (connect_ENUM__NONE "move-current") + +-- | The 'moveSelected' signal is emitted to move the selection to another item. +moveSelected :: MenuShellClass self => Signal self (Int -> IO Bool) +moveSelected = Signal (connect_INT__BOOL "move-selected") + +-- | This signal is emitted when the user +-- finished using the menu. Note that this signal is emitted even if no menu +-- item was activated. +-- +selectionDone :: MenuShellClass self => Signal self (IO ()) +selectionDone = Signal (connect_NONE__NONE "selection-done") + +#ifndef DISABLE_DEPRECATED hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs.pp 376 - +#endif hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuToolButton.chs.pp 8 --- Copyright (C) 2005 Duncan Coutts +-- Copyright (C) 2005-2009 Duncan Coutts hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuToolButton.chs.pp 30 + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuToolButton.chs.pp 42 +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuToolButton.chs.pp 69 - menuToolButtonSetArrowTooltip, +#if GTK_CHECK_VERSION(2,12,0) + menuToolButtonSetArrowTooltipText, + menuToolButtonSetArrowTooltipMarkup, +#endif hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuToolButton.chs.pp 78 + showMenu, + +-- * Deprecated +#ifndef DISABLE_DEPRECATED + menuToolButtonSetArrowTooltip, +#endif + +#ifndef DISABLE_DEPRECATED hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuToolButton.chs.pp 89 +#endif hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuToolButton.chs.pp 160 +#if GTK_CHECK_VERSION(2,12,0) +-- | Sets the tooltip text to be used as tooltip for the arrow button which +-- pops up the menu. See 'toolItemSetTooltip' for setting a tooltip on the +-- whole 'MenuToolButton'. +-- +-- * Available since Gtk+ version 2.12 +-- +menuToolButtonSetArrowTooltipText :: MenuToolButtonClass self => self + -> String -- ^ @text@ - text to be used as tooltip text for button's arrow + -- button + -> IO () +menuToolButtonSetArrowTooltipText self text = + withUTFString text $ \textPtr -> + {# call gtk_menu_tool_button_set_arrow_tooltip_text #} + (toMenuToolButton self) + textPtr hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuToolButton.chs.pp 177 +-- | Sets the tooltip markup text to be used as tooltip for the arrow button +-- which pops up the menu. See 'toolItemSetTooltip' for setting a tooltip on +-- the whole 'MenuToolButton'. +-- +-- * Available since Gtk+ version 2.12 +-- +menuToolButtonSetArrowTooltipMarkup :: MenuToolButtonClass self => self + -> String -- ^ @markup@ - markup text to be used as tooltip text for button's + -- arrow button + -> IO () +menuToolButtonSetArrowTooltipMarkup self markup = + withUTFString markup $ \markupPtr -> + {# call gtk_menu_tool_button_set_arrow_tooltip_markup #} + (toMenuToolButton self) + markupPtr +#endif + +#ifndef DISABLE_DEPRECATED hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuToolButton.chs.pp 212 +#endif hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuToolButton.chs.pp 226 +showMenu :: MenuToolButtonClass self => Signal self (IO ()) +showMenu = Signal (connect_NONE__NONE "show-menu") hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuToolButton.chs.pp 229 +#ifndef DISABLE_DEPRECATED hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuToolButton.chs.pp 238 - +#endif hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/OptionMenu.chs.pp 8 --- Copyright (C) 1999-2005 Axel Simon +-- Copyright (C) 1999-2009 Axel Simon hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/OptionMenu.chs.pp 32 --- [_$_] +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/OptionMenu.chs.pp 49 +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/RadioMenuItem.chs 8 --- Copyright (C) 1999-2005 Axel Simon +-- Copyright (C) 1999-2009 Axel Simon hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/RadioMenuItem.chs 24 +-- The following function don't bind, use corresponding attributes instead. +-- gtk_radio_menu_item_set_group +-- gtk_radio_menu_item_get_group +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/RadioMenuItem.chs 36 + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/RadioMenuItem.chs 43 +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/RadioMenuItem.chs 75 + +-- * Attributes + radioMenuItemGroup, + [_$_] +-- * Signal [_$_] + radioMenuItemGroupChanged, hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/RadioMenuItem.chs 87 +import System.Glib.Attributes +import System.Glib.Properties hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/RadioMenuItem.chs 90 +{#import Graphics.UI.Gtk.Signals#} hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/RadioMenuItem.chs 189 + +-------------------- +-- Attributes + +-- | The radio menu item whose group this widget belongs to. +-- [_$_] +-- Since 2.8 +radioMenuItemGroup :: (RadioMenuItemClass self, RadioMenuItemClass radioMenuItem) => WriteAttr self radioMenuItem +radioMenuItemGroup = writeAttrFromObjectProperty "group" + {# call pure unsafe gtk_radio_menu_item_get_type #} + +-------------------- +-- Signals + +-- | +-- +radioMenuItemGroupChanged :: RadioMenuItemClass self => Signal self (IO ()) +radioMenuItemGroupChanged = Signal (connect_NONE__NONE "group-changed") + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/RadioToolButton.chs.pp 8 --- Copyright (C) 2005 Duncan Coutts +-- Copyright (C) 2005-2009 Duncan Coutts hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/RadioToolButton.chs.pp 30 + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/RadioToolButton.chs.pp 44 +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/SeparatorMenuItem.chs.pp 8 --- Copyright (C) 2005 Duncan Coutts +-- Copyright (C) 2005-2009 Duncan Coutts hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/SeparatorMenuItem.chs.pp 28 + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/SeparatorMenuItem.chs.pp 36 +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/SeparatorToolItem.chs.pp 8 --- Copyright (C) 2005 Duncan Coutts +-- Copyright (C) 2005-2009 Duncan Coutts hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/SeparatorToolItem.chs.pp 30 + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/SeparatorToolItem.chs.pp 44 +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/TearoffMenuItem.chs 8 --- Copyright (C) 1999-2005 Axel Simon +-- Copyright (C) 1999-2009 Axel Simon hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/TearoffMenuItem.chs 28 + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/TearoffMenuItem.chs 44 +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToggleToolButton.chs.pp 8 --- Copyright (C) 2005 Duncan Coutts +-- Copyright (C) 2005-2009 Duncan Coutts hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToggleToolButton.chs.pp 30 + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToggleToolButton.chs.pp 40 +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToggleToolButton.chs.pp 74 --- * Signals +-- * SignalslButton + toggleToolButtonToggled, + +#ifndef DISABLE_DEPRECATED hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToggleToolButton.chs.pp 81 +#endif hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToggleToolButton.chs.pp 161 +-- | Emitted whenever the toggle tool button changes state. +-- +toggleToolButtonToggled :: ToggleToolButtonClass self => Signal self (IO ()) +toggleToolButtonToggled = Signal (connect_NONE__NONE "toggled") hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToggleToolButton.chs.pp 166 +#ifndef DISABLE_DEPRECATED hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToggleToolButton.chs.pp 175 +#endif hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolButton.chs.pp 8 --- Copyright (C) 2005 Duncan Coutts +-- Copyright (C) 2005-2009 Duncan Coutts hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolButton.chs.pp 30 + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolButton.chs.pp 54 +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolButton.chs.pp 106 + toolButtonClicked, + +#ifndef DISABLE_DEPRECATED hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolButton.chs.pp 112 +#endif hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolButton.chs.pp 380 +-- | This signal is emitted when the tool button is clicked with the mouse or +-- activated with the keyboard. +-- +toolButtonClicked :: ToolButtonClass self => Signal self (IO ()) +toolButtonClicked = Signal (connect_NONE__NONE "clicked") + +#ifndef DISABLE_DEPRECATED hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolButton.chs.pp 397 +#endif hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolItem.chs.pp 8 --- Copyright (C) 2004-2005 Duncan Coutts +-- Copyright (C) 2004-2009 Duncan Coutts hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolItem.chs.pp 30 + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolItem.chs.pp 41 +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolItem.chs.pp 69 - toolItemSetTooltip, +#if GTK_CHECK_VERSION(2,12,0) + toolItemSetTooltipText, + toolItemSetTooltipMarkup, +#endif hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolItem.chs.pp 92 +#if GTK_CHECK_VERSION(2,6,0) + toolItemRebuildMenu, +#if GTK_CHECK_VERSION(2,14,0) + toolItemToolbarReconfigured, +#endif +#endif hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolItem.chs.pp 100 + toolItemIsImportant, hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolItem.chs.pp 103 - toolItemIsImportant, hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolItem.chs.pp 106 + +-- * Signals + createMenuProxy, + toolbarReconfigured, + setTooltip, + +#ifndef DISABLE_DEPRECATED + toolItemSetTooltip, +#endif hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolItem.chs.pp 124 +{#import Graphics.UI.Gtk.Signals#} hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolItem.chs.pp 187 +#if GTK_CHECK_VERSION(2,12,0) +-- | Sets the text to be displayed as tooltip on the item. See +-- 'widgetSetTooltipText'. +-- +-- * Available since Gtk+ version 2.12 +-- +toolItemSetTooltipText :: ToolItemClass self => self + -> String -- ^ @text@ - text to be used as tooltip for @toolItem@ + -> IO () +toolItemSetTooltipText self text = + withUTFString text $ \textPtr -> + {# call gtk_tool_item_set_tooltip_text #} + (toToolItem self) + textPtr + +-- | Sets the markup text to be displayed as tooltip on the item. See +-- 'widgetSetTooltipMarkup'. +-- +-- * Available since Gtk+ version 2.12 +-- +toolItemSetTooltipMarkup :: ToolItemClass self => self + -> String -- ^ @markup@ - markup text to be used as tooltip for @toolItem@ + -> IO () +toolItemSetTooltipMarkup self markup = + withUTFString markup $ \markupPtr -> + {# call gtk_tool_item_set_tooltip_markup #} + (toToolItem self) + markupPtr +#endif + +#ifndef DISABLE_DEPRECATED hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolItem.chs.pp 235 +#endif hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolItem.chs.pp 396 +#if GTK_CHECK_VERSION(2,6,0) +-- | Calling this function signals to the toolbar that the overflow menu item +-- for @toolItem@ has changed. If the overflow menu is visible when this +-- function it called, the menu will be rebuilt. +-- +-- The function must be called when the tool item changes what it will do in +-- response to the \"create_menu_proxy\" signal. +-- +-- * Available since Gtk+ version 2.6 +-- +toolItemRebuildMenu :: ToolItemClass self => self -> IO () +toolItemRebuildMenu self = + {# call gtk_tool_item_rebuild_menu #} + (toToolItem self) + +#if GTK_CHECK_VERSION(2,14,0) +-- | Emits the signal {\"toolbar_reconfigured\", FIXME: unknown type\/value} +-- on @toolItem@. 'Toolbar' and other 'ToolShell' implementations use this +-- function to notify children, when some aspect of their configuration +-- changes. +-- +-- * Available since Gtk+ version 2.14 +-- +toolItemToolbarReconfigured :: ToolItemClass self => self -> IO () +toolItemToolbarReconfigured self = + {# call gtk_tool_item_toolbar_reconfigured #} + (toToolItem self) +#endif +#endif + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolItem.chs.pp 481 + +-------------- +-- Signal + +-- | This signal is emitted when the toolbar needs information from @toolItem@ +-- about whether the item should appear in the toolbar overflow menu. In +-- response the tool item should either call 'toolItemSetProxyMenuItem' with a +-- {@NULL@, FIXME: this should probably be converted to a Maybe data type} +-- pointer and return @True@ to indicate that the item should not appear in the +-- overflow menu call 'toolItemSetProxyMenuItem' with a new menu item and +-- return @True@, or return @False@ to indicate that the signal was not handled +-- by the item. This means that the item will not appear in the overflow menu +-- unless a later handler installs a menu item. +-- +-- The toolbar may cache the result of this signal. When the tool item +-- changes how it will respond to this signal it must call +-- 'toolItemRebuildMenu' to invalidate the cache and ensure that the toolbar +-- rebuilds its overflow menu. +-- +createMenuProxy :: ToolItemClass self => Signal self (IO Bool) +createMenuProxy = Signal (connect_NONE__BOOL "create-menu-proxy") + +-- | This signal is emitted when some property of the toolbar that the item is +-- a child of changes. For custom subclasses of 'ToolItem', the default handler +-- of this signal use the functions +-- 'toolShellGetOrientation''toolShellGetStyle''toolShellGetIconSize''toolShellGetReliefStyle' +-- to find out what the toolbar should look like and change themselves +-- accordingly. +-- +toolbarReconfigured :: ToolItemClass self => Signal self (IO ()) +toolbarReconfigured = Signal (connect_NONE__NONE "toolbar-reconfigured") + +-- | This signal is emitted when the toolitem's tooltip changes. Application +-- developers can use 'toolItemSetTooltip' to set the item's tooltip. +-- +setTooltip :: ToolItemClass self => Signal self (Tooltips -> String -> String -> IO Bool) +setTooltip = Signal (connect_OBJECT_STRING_STRING__BOOL "set-tooltip") + addfile ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolShell.chs.pp hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolShell.chs.pp 1 +-- -*-haskell-*- +-- GIMP Toolkit (GTK) Interface ToolShell +-- +-- Author : Andy Stewart +-- +-- Created: 25 Mar 2010 +-- +-- Copyright (C) 2010 Andy Stewart +-- +-- This library is free software; you can redistribute it and/or +-- modify it under the terms of the GNU Lesser General Public +-- License as published by the Free Software Foundation; either +-- version 2.1 of the License, or (at your option) any later version. +-- +-- This library is distributed in the hope that it will be useful, +-- but WITHOUT ANY WARRANTY; without even the implied warranty of +-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +-- Lesser General Public License for more details. +-- +-- | +-- Maintainer : gtk...@li... +-- Stability : provisional +-- Portability : portable (depends on GHC) +-- +-- Interface for containers containing 'ToolItem' widgets. +-- +-- * Module available since Gtk+ version 2.14 +-- +module Graphics.UI.Gtk.MenuComboToolbar.ToolShell ( + +-- * Detail +-- +-- | The 'ToolShell' interface allows container widgets to provide additional +-- information when embedding 'ToolItem' widgets. +-- +-- @seeAlso@: 'Toolbar', 'ToolItem' + +-- * Class Hierarchy +-- +-- | +-- @ +-- | 'GInterface' +-- | +----ToolShell +-- @ + +#if GTK_CHECK_VERSION(2,14,0) +-- * Types + ToolShell, + ToolShellClass, + castToToolShell, + toToolShell, + +-- * Methods + toolShellGetIconSize, + toolShellGetOrientation, + toolShellGetReliefStyle, + toolShellGetStyle, + toolShellRebuildMenu, +#endif + ) where + +import Control.Monad (liftM) + +import System.Glib.FFI +import Graphics.UI.Gtk.General.Structs (IconSize(..)) +{#import Graphics.UI.Gtk.Types#} +import Graphics.UI.Gtk.General.Enums (Orientation(..), ToolbarStyle(..), ReliefStyle(..)) + +{# context lib="gtk" prefix="gtk" #} + +#if GTK_CHECK_VERSION(2,14,0) +-------------------- +-- Methods + +-- | Retrieves the icon size for the tool shell. Tool items must not call this +-- function directly, but rely on 'toolItemGetIconSize' instead. +-- +toolShellGetIconSize :: ToolShellClass self => self + -> IO IconSize -- ^ returns the current size for icons of @shell@ +toolShellGetIconSize self = + liftM (toEnum . fromIntegral) $ + {# call gtk_tool_shell_get_icon_size #} + (toToolShell self) + +-- | Retrieves the current orientation for the tool shell. Tool items must not +-- call this function directly, but rely on 'toolItemGetOrientation' instead. +-- +toolShellGetOrientation :: ToolShellClass self => self + -> IO Orientation -- ^ returns the current orientation of @shell@ +toolShellGetOrientation self = + liftM (toEnum . fromIntegral) $ + {# call gtk_tool_shell_get_orientation #} + (toToolShell self) + +-- | Returns the relief style of buttons on @shell@. Tool items must not call +-- this function directly, but rely on 'toolItemGetReliefStyle' instead. +-- +toolShellGetReliefStyle :: ToolShellClass self => self + -> IO ReliefStyle -- ^ returns The relief style of buttons on @shell@. +toolShellGetReliefStyle self = + liftM (toEnum . fromIntegral) $ + {# call gtk_tool_shell_get_relief_style #} + (toToolShell self) + +-- | Retrieves whether the tool shell has text, icons, or both. Tool items +-- must not call this function directly, but rely on 'toolItemGetStyle' +-- instead. +-- +toolShellGetStyle :: ToolShellClass self => self + -> IO ToolbarStyle -- ^ returns the current style of @shell@ +toolShellGetStyle self = + liftM (toEnum . fromIntegral) $ + {# call gtk_tool_shell_get_style #} + (toToolShell self) + +-- | Calling this function signals the tool shell that the overflow menu item +-- for tool items have changed. If there is an overflow menu and if it is +-- visible when this function it called, the menu will be rebuilt. +-- +-- Tool items must not call this function directly, but rely on +-- 'toolItemRebuildMenu' instead. +-- +toolShellRebuildMenu :: ToolShellClass self => self -> IO () +toolShellRebuildMenu self = + {# call gtk_tool_shell_rebuild_menu #} + (toToolShell self) +#endif hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs.pp 8 --- Copyright (C) 1999-2005 Axel Simon +-- Copyright (C) 1999-2009 Axel Simon hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs.pp 28 + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs.pp 73 +-- hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs.pp 116 + toolbarUnsetIconSize, hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs.pp 136 + toolbarToolbarStyle, + toolbarIconSize, + toolbarIconSizeSet, + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs.pp 154 + focusHomeOrEnd, + orientationChanged, + popupContextMenu, + styleChanged, + +#ifndef DISABLE_DEPRECATED hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs.pp 166 +#endif hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs.pp 505 +-- | Unsets toolbar icon size set with 'toolbarSetIconSize', so that user +-- preferences will be used to determine the icon size. +-- +toolbarUnsetIconSize :: ToolbarClass self => self -> IO () +toolbarUnsetIconSize self = + {# call gtk_toolbar_unset_icon_size #} + (toToolbar self) + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs.pp 680 +-- | How to draw the toolbar. +-- [_$_] +-- Default value: ''ToolbarBoth'' +toolbarToolbarStyle :: ToolbarClass self => Attr self ToolbarStyle +toolbarToolbarStyle = newAttrFromEnumProperty "toolbar-style" + {# call pure unsafe gtk_toolbar_style_get_type #} + +-- | The size of the icons in a toolbar is normally determined by the toolbar-icon-size setting. When +-- this property is set, it overrides the setting. +-- [_$_] +-- This should only be used for special-purpose toolbars, normal application toolbars should respect +-- the user preferences for the size of icons. +-- [_$_] +-- Allowed values: >= 0 +-- [_$_] +-- Default value: 3 +-- [_$_] +-- Since 2.10 +toolbarIconSize :: ToolbarClass self => Attr self Int +toolbarIconSize = newAttrFromIntProperty "icon-size" + +-- | Is 'True' if the icon-size property has been set. +-- [_$_] +-- Default value: 'False' +-- [_$_] +-- Since 2.10 +toolbarIconSizeSet :: ToolbarClass self => Attr self Bool +toolbarIconSizeSet = newAttrFromBoolProperty "icon-size-set" + hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs.pp 757 +-- | A keybinding signal used internally by GTK+. This signal can't be used in application code +focusHomeOrEnd :: ToolbarClass self => Signal self (Bool -> IO Bool) +focusHomeOrEnd = Signal (connect_BOOL__BOOL "focus-home-or-end") + +-- | Emitted when the orientation of the toolbar changes. +orientationChanged :: ToolbarClass self => Signal self (Orientation -> IO ()) +orientationChanged = Signal (connect_ENUM__NONE "orientation-changed") + +-- | Emitted when the user right-clicks the toolbar or uses the keybinding to display a popup menu. +-- [_$_] +-- Application developers should handle this signal if they want to display a context menu on the +-- toolbar. The context-menu should appear at the coordinates given by x and y. The mouse button number +-- is given by the button parameter. If the menu was popped up using the keybaord, button is -1. +popupContextMenu :: ToolbarClass self => Signal self (Int -> Int -> Int -> IO Bool) +popupContextMenu = Signal (connect_INT_INT_INT__BOOL "popup-context-menu") + [_$_] +-- | Emitted when the style of the toolbar changes. +styleChanged :: ToolbarClass self => Signal self (ToolbarStyle -> IO ()) +styleChanged = Signal (connect_ENUM__NONE "style-changed") + +#ifndef DISABLE_DEPRECATED hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs.pp 810 - +#endif hunk ./tools/hierarchyGen/hierarchy.list 354 +# For GtkToolShell + GtkToolShell + |