[Gtk2hs-commit] (main branch): Bindings for gtk_menu_item_get_label, gtk_menu_item_get_use_underline, and the associated setters.

[Daniel W. <dm...@lu...>]

diffing dir...
Wed Apr 11 15:05:17 BST 2012  ads...@ya...
  * Bindings for gtk_menu_item_get_label, gtk_menu_item_get_use_underline, and the associated setters.
  Ignore-this: cc9d70d06e02b6ae93fe8e39daf96ea7
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 79
    +#if GTK_CHECK_VERSION(2,16,0)
    +  menuItemSetLabel,
    +  menuItemGetLabel,
    +  menuItemSetUseUnderline,
    +  menuItemGetUseUnderline,
    +#endif
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 98
    +#if GTK_CHECK_VERSION(2,16,0)
    +  menuItemLabel,
    +  menuItemUseUnderline,
    +#endif
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 176
    +#if GTK_CHECK_VERSION(2,16,0)
    +-- | Sets text on the MenuItem label
    +
    +menuItemSetLabel :: (MenuItemClass self) => self -> String -> IO ()
    +menuItemSetLabel self label =
    +  withUTFString label $ {# call gtk_menu_item_set_label #} (toMenuItem self)
    +
    +-- | Gets text on the MenuItem label
    +menuItemGetLabel :: (MenuItemClass self) => self -> IO String
    +menuItemGetLabel self =
    +  {# call gtk_menu_item_get_label #}
    +    (toMenuItem self)
    +  >>= \strPtr -> if strPtr == nullPtr
    +                   then return ""
    +                   else peekUTFString strPtr
    +
    +-- | If True, an underline in the text indicates the next character should be used for the mnemonic accelerator key.
    +--
    +menuItemSetUseUnderline :: (MenuItemClass self) => self -> Bool -> IO ()
    +menuItemSetUseUnderline self =
    +  {# call gtk_menu_item_set_use_underline #} (toMenuItem self) . fromBool
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 198
    +-- | Checks if an underline in the text indicates the next character should be used for the mnemonic accelerator key.
    +--
    +menuItemGetUseUnderline :: (MenuItemClass self) => self -> IO Bool
    +menuItemGetUseUnderline self =
    +  liftM toBool $ {# call gtk_menu_item_get_use_underline #}
    +    (toMenuItem self)
    +
    +#endif
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 320
    +#if GTK_CHECK_VERSION(2,16,0)
    +-- | \'label\' property. See 'menuItemSetLabel' and 'menuItemGetLabel'
    +--
    +menuItemLabel :: MenuItemClass self => Attr self String
    +menuItemLabel = newAttr
    +  menuItemGetLabel
    +  menuItemSetLabel
    +
    +-- | \'useUnderline\' property. See 'menuItemSetUseUnderline' and [_$_]
    +-- 'menuItemGetUseEUnderline'
    +--
    +menuItemUseUnderline :: MenuItemClass self => Attr self Bool
    +menuItemUseUnderline = newAttr
    +  menuItemGetUseUnderline
    +  menuItemSetUseUnderline
    +#endif