Menu
▾
▴
gtk2hs-commit — Mailing list for Darcs commit messages.
You can subscribe to this list here.
| 2003 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(4) |
Jun
|
Jul
(68) |
Aug
(4) |
Sep
|
Oct
(23) |
Nov
(95) |
Dec
(9) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2004 |
Jan
(3) |
Feb
|
Mar
|
Apr
(51) |
May
(81) |
Jun
(2) |
Jul
(86) |
Aug
(143) |
Sep
(3) |
Oct
(31) |
Nov
(63) |
Dec
(90) |
| 2005 |
Jan
(277) |
Feb
(157) |
Mar
(99) |
Apr
(195) |
May
(151) |
Jun
(148) |
Jul
(98) |
Aug
(123) |
Sep
(20) |
Oct
(174) |
Nov
(155) |
Dec
(26) |
| 2006 |
Jan
(51) |
Feb
(19) |
Mar
(16) |
Apr
(12) |
May
(5) |
Jun
|
Jul
(11) |
Aug
(7) |
Sep
(10) |
Oct
(31) |
Nov
(174) |
Dec
(56) |
| 2007 |
Jan
(45) |
Feb
(52) |
Mar
(10) |
Apr
(5) |
May
(47) |
Jun
(16) |
Jul
(80) |
Aug
(29) |
Sep
(14) |
Oct
(59) |
Nov
(46) |
Dec
(16) |
| 2008 |
Jan
(10) |
Feb
(1) |
Mar
|
Apr
|
May
(49) |
Jun
(26) |
Jul
(8) |
Aug
(4) |
Sep
(25) |
Oct
(53) |
Nov
(9) |
Dec
(1) |
| 2009 |
Jan
(66) |
Feb
(11) |
Mar
(1) |
Apr
(14) |
May
(8) |
Jun
(1) |
Jul
(2) |
Aug
(2) |
Sep
(9) |
Oct
(23) |
Nov
(35) |
Dec
|
| 2010 |
Jan
(7) |
Feb
(2) |
Mar
(39) |
Apr
(19) |
May
(161) |
Jun
(19) |
Jul
(32) |
Aug
(65) |
Sep
(113) |
Oct
(120) |
Nov
(2) |
Dec
|
| 2012 |
Jan
|
Feb
(5) |
Mar
(4) |
Apr
(7) |
May
(9) |
Jun
(14) |
Jul
(1) |
Aug
|
Sep
(1) |
Oct
(1) |
Nov
(12) |
Dec
(2) |
| 2013 |
Jan
(1) |
Feb
(17) |
Mar
(4) |
Apr
(4) |
May
(9) |
Jun
|
Jul
(8) |
Aug
|
Sep
(2) |
Oct
|
Nov
|
Dec
|
|
From: Andy S. <And...@co...> - 2010-10-23 11:11:16
|
diffing dir...
Sat Oct 23 00:12:25 EDT 2010 John Obbele <joh...@gm...>
* [wrapNewGObject] additional fix to ./gio/System/GIO/File/AppInfo.chs
Ignore-this: c68b6e7676944c01084405e9d51e7a97
{
hunk ./gio/System/GIO/File/AppInfo.chs 402
- maybeNull (makeNewGObject mkAppInfo) $
+ maybeNull (wrapNewGObject mkAppInfo) $
hunk ./gio/System/GIO/File/AppInfo.chs 414
- maybeNull (makeNewGObject mkAppInfo) $
+ maybeNull (wrapNewGObject mkAppInfo) $
}
|
|
From: Andy S. <And...@co...> - 2010-10-23 11:11:14
|
diffing dir...
Sat Oct 23 00:12:24 EDT 2010 John Obbele <joh...@gm...>
* [wrapNewGObject] additional fix to ./gio/System/GIO/Async/Cancellable.chs
Ignore-this: 2b95c64e6b980447ed46c6f75692f526
hunk ./gio/System/GIO/Async/Cancellable.chs 93
- maybeNull (constructNewGObject mkCancellable) $
+ maybeNull (makeNewGObject mkCancellable) $
|
|
From: Andy S. <And...@co...> - 2010-10-22 22:13:19
|
diffing dir...
Fri Oct 22 17:59:31 EDT 2010 Andy Stewart <laz...@gm...>
* New GTK+2.22 function : viewportGetViewWindow
Ignore-this: 6df073b6200d6fa9124968cb4148ba8
{
hunk ./gtk/Graphics/UI/Gtk/Misc/Viewport.chs 74
+#if GTK_CHECK_VERSION(2,22,0)
+ viewportGetViewWindow,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Misc/Viewport.chs 176
+#if GTK_CHECK_VERSION(2,22,0)
+-- | Gets the view window of the 'Viewport'.
+--
+-- * Available since Gtk+ version 2.22
+--
+viewportGetViewWindow :: ViewportClass self => self -> IO DrawWindow
+viewportGetViewWindow self =
+ makeNewGObject mkDrawWindow $
+ {#call gtk_viewport_get_view_window #}
+ (toViewport self)
+#endif
+
}
|
|
From: Andy S. <And...@co...> - 2010-10-22 22:13:16
|
diffing dir...
Fri Oct 22 17:58:37 EDT 2010 Andy Stewart <laz...@gm...>
* New GTK+2.22 functions : textViewImContextFilterKeypress, textViewResetImContext
Ignore-this: 5c78fbb4acf13c3ff3c9cdb53cbf19c1
{
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs 149
+ textViewImContextFilterKeypress,
+ textViewResetImContext,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs 198
+import Graphics.UI.Gtk.Gdk.EventM (EventM, EKey)
+import Control.Monad.Reader ( ask )
+import Control.Monad.Trans ( liftIO )
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs 1045
+
+-- | Allow the 'TextView' input method to internally handle key press and release events. If this
+-- function returns 'True', then no further processing should be done for this key event. See
+-- 'imContextFilterKeypress'.
+-- [_$_]
+-- Note that you are expected to call this function from your handler when overriding key event
+-- handling. This is needed in the case when you need to insert your own key handling between the input
+-- method and the default key event handling of the 'TextView'.
+--
+-- * Available since Gtk+ version 2.22
+--
+textViewImContextFilterKeypress :: TextViewClass self => self -> EventM EKey Bool
+textViewImContextFilterKeypress self = do
+ ptr <- ask
+ liftIO $ liftM toBool $
+ {# call gtk_text_view_im_context_filter_keypress #}
+ (toTextView self)
+ (castPtr ptr)
+
+-- | Reset the input method context of the text view if needed.
+-- [_$_]
+-- This can be necessary in the case where modifying the buffer would confuse on-going input method
+-- behavior.
+--
+-- * Available since Gtk+ version 2.22
+--
+textViewResetImContext :: TextViewClass self => self -> IO ()
+textViewResetImContext self =
+ {#call gtk_text_view_reset_im_context #} (toTextView self)
+
+
}
|
|
From: Andy S. <And...@co...> - 2010-10-22 22:13:15
|
diffing dir...
Fri Oct 22 17:52:22 EDT 2010 Andy Stewart <laz...@gm...>
* New GTK+2.22 functions : textViewGetHadjustment, textViewGetHadjustment
Ignore-this: f94b311eb59142070fa28ec57dd4280b
{
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs 146
+#if GTK_CHECK_VERSION(2,22,0)
+ textViewGetHadjustment,
+ textViewGetVadjustment,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs 1020
+#if GTK_CHECK_VERSION(2,22,0)
+-- | Gets the horizontal-scrolling 'Adjustment'.
+--
+-- * Available since Gtk+ version 2.22
+--
+textViewGetHadjustment :: TextViewClass self => self -> IO Adjustment
+textViewGetHadjustment self =
+ makeNewObject mkAdjustment $
+ {#call gtk_text_view_get_hadjustment #}
+ (toTextView self)
+
+-- | Gets the vertical-scrolling 'Adjustment'.
+--
+-- * Available since Gtk+ version 2.22
+--
+textViewGetVadjustment :: TextViewClass self => self -> IO Adjustment
+textViewGetVadjustment self =
+ makeNewObject mkAdjustment $
+ {#call gtk_text_view_get_vadjustment #}
+ (toTextView self)
+#endif
+
}
|
|
From: Andy S. <And...@co...> - 2010-10-22 22:13:13
|
diffing dir...
Fri Oct 22 17:52:03 EDT 2010 Andy Stewart <laz...@gm...>
* New GTK+2.22 function : tableGetSize
Ignore-this: daa5e65846d35a96279ebaff6be7405e
{
hunk ./gtk/Graphics/UI/Gtk/Layout/Table.chs 84
+#if GTK_CHECK_VERSION(2,22,0)
+ tableGetSize,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Layout/Table.chs 335
+#if GTK_CHECK_VERSION(2,22,0)
+-- | Returns the size of 'Table'.
+--
+-- * Available since Gtk+ version 2.22
+--
+tableGetSize :: TableClass self => self
+ -> IO (Int, Int) -- ^ returns (rows, columns) of table
+tableGetSize self =
+ alloca $ \ rowsPtr ->
+ alloca $ \ columnsPtr -> do
+ {# call unsafe gtk_table_get_size #}
+ (toTable self)
+ rowsPtr
+ columnsPtr
+ rows <- peek rowsPtr
+ columns <- peek columnsPtr
+ return (fromIntegral rows, fromIntegral columns)
+ [_$_]
+#endif
+
}
|
|
From: Andy S. <And...@co...> - 2010-10-22 22:13:10
|
diffing dir...
Fri Oct 22 17:41:55 EDT 2010 Andy Stewart <laz...@gm...>
* New GTK+2.22 function : statusbarRemoveAll
Ignore-this: 8a20c8a600c889c9e75d4fe04ce59280
{
hunk ./gtk/Graphics/UI/Gtk/Display/Statusbar.chs 91
+#if GTK_CHECK_VERSION(2,22,0)
+ statusbarRemoveAll,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Display/Statusbar.chs 223
+#if GTK_CHECK_VERSION(2,22,0)
+-- | Forces the removal of all messages from a statusbar's stack with the exact @contextId@.
+--
+-- * Available since Gtk+ version 2.22
+--
+statusbarRemoveAll :: StatusbarClass self => self [_$_]
+ -> Int -- ^ @contextId@ a context identifier [_$_]
+ -> IO ()
+statusbarRemoveAll self contextId = [_$_]
+ {#call gtk_statusbar_remove_all #}
+ (toStatusbar self)
+ (fromIntegral contextId)
+#endif
+
}
|
|
From: Andy S. <And...@co...> - 2010-10-22 22:13:08
|
diffing dir...
Fri Oct 22 17:36:15 EDT 2010 Andy Stewart <laz...@gm...>
* New GTK+2.22 attr : messageDialogMessageArea
Ignore-this: 74895385fc0670b109e22770d8011445
{
hunk ./gtk/Graphics/UI/Gtk/Windows/MessageDialog.chs 92
+#if GTK_CHECK_VERSION(2,22,0)
+ messageDialogMessageArea,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Windows/MessageDialog.chs 340
+#if GTK_CHECK_VERSION(2,22,0)
+-- | The 'VBox' that corresponds to the message area of this dialog. [_$_]
+--
+-- * Available since Gtk+ version 2.22
+--
+messageDialogMessageArea :: MessageDialogClass self => ReadAttr self VBox
+messageDialogMessageArea = readAttrFromObjectProperty "message-area"
+ {# call pure unsafe gtk_vbox_get_type #}
+#endif
+
}
|
|
From: Andy S. <And...@co...> - 2010-10-22 22:13:06
|
diffing dir...
Fri Oct 22 17:31:23 EDT 2010 Andy Stewart <laz...@gm...>
* New GTK+2.22 functions : iconViewGetItemRow, iconViewGetItemColumn
Ignore-this: 23e1d7564a2e2c96cf99108c0d818319
{
hunk ./gtk/Graphics/UI/Gtk/ModelView/IconView.chs 111
+#if GTK_CHECK_VERSION(2,22,0)
+ iconViewGetItemRow,
+ iconViewGetItemColumn,
+#endif
hunk ./gtk/Graphics/UI/Gtk/ModelView/IconView.chs 832
+#if GTK_CHECK_VERSION(2,22,0)
+-- | Gets the row in which the item path is currently displayed. Row numbers start at 0.
+--
+-- * Available since Gtk+ version 2.22
+--
+iconViewGetItemRow :: IconViewClass self => self
+ -> TreePath -- ^ @path@ the 'TreePath' of the item [_$_]
+ -> IO Int -- ^ returns The row in which the item is displayed [_$_]
+iconViewGetItemRow self path =
+ liftM fromIntegral $
+ withTreePath path $ \path ->
+ {# call gtk_icon_view_get_item_row #}
+ (toIconView self)
+ path
+
+-- | Gets the column in which the item path is currently displayed. Column numbers start at 0.
+--
+-- * Available since Gtk+ version 2.22
+--
+iconViewGetItemColumn :: IconViewClass self => self
+ -> TreePath -- ^ @path@ the 'TreePath' of the item [_$_]
+ -> IO Int -- ^ returns The column in which the item is displayed [_$_]
+iconViewGetItemColumn self path =
+ liftM fromIntegral $
+ withTreePath path $ \path ->
+ {# call gtk_icon_view_get_item_column #}
+ (toIconView self)
+ path
+
+#endif
+
}
|
|
From: Andy S. <And...@co...> - 2010-10-22 22:13:05
|
diffing dir...
Fri Oct 22 17:26:38 EDT 2010 Andy Stewart <laz...@gm...>
* New GTK+2.22 attr : iconViewItemOrientation
Ignore-this: 32e0f13d23c2ed7e0ff13cac9054476f
{
hunk ./gtk/Graphics/UI/Gtk/ModelView/IconView.chs 128
+#if GTK_CHECK_VERSION(2,22,0)
+ iconViewItemOrientation,
+#endif
hunk ./gtk/Graphics/UI/Gtk/ModelView/IconView.chs 979
+#if GTK_CHECK_VERSION(2,22,0)
+-- | The item-orientation property specifies how the cells (i.e. the icon and the text) of the item are
+-- positioned relative to each other.
+-- [_$_]
+-- Default value: 'OrientationVertical'
+--
+-- * Available since Gtk+ version 2.22
+--
+iconViewItemOrientation :: IconViewClass self => Attr self Orientation
+iconViewItemOrientation = newAttrFromEnumProperty "item-orientation"
+ {# call pure unsafe gtk_orientation_get_type #}
+#endif
+
}
|
|
From: Andy S. <And...@co...> - 2010-10-22 22:13:02
|
diffing dir...
Fri Oct 22 17:22:00 EDT 2010 Andy Stewart <laz...@gm...>
* Add missing functions in GTK+2.14 : fontSelectionDialogGetCancelButton, fontSelectionDialogGetOkButton
Ignore-this: 3392f24e718f6412d07c155497beb1a8
{
hunk ./gtk/Graphics/UI/Gtk/Selectors/FontSelectionDialog.chs 68
+#if GTK_CHECK_VERSION(2,14,0)
+ fontSelectionDialogGetCancelButton,
+ fontSelectionDialogGetOkButton,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Selectors/FontSelectionDialog.chs 147
+#if GTK_CHECK_VERSION(2,14,0)
+-- | Gets the 'Cancel' button.
+--
+-- * Available since Gtk+ version 2.14
+--
+fontSelectionDialogGetCancelButton :: FontSelectionDialogClass self => self
+ -> IO Widget -- ^ returns the 'Widget' used in the dialog for the 'Cancel' button. [_$_]
+fontSelectionDialogGetCancelButton self = [_$_]
+ makeNewObject mkWidget $
+ {#call gtk_font_selection_dialog_get_cancel_button #}
+ (toFontSelectionDialog self)
+
+-- | Gets the 'OK' button.
+--
+-- * Available since Gtk+ version 2.14
+--
+fontSelectionDialogGetOkButton :: FontSelectionDialogClass self => self
+ -> IO Widget -- ^ returns the 'Widget' used in the dialog for the 'OK' button. [_$_]
+fontSelectionDialogGetOkButton self = [_$_]
+ makeNewObject mkWidget $
+ {#call gtk_font_selection_dialog_get_ok_button #}
+ (toFontSelectionDialog self)
+
+#endif
+
}
|
|
From: Andy S. <And...@co...> - 2010-10-22 22:13:01
|
diffing dir...
Fri Oct 22 17:18:02 EDT 2010 Andy Stewart <laz...@gm...>
* New GTK+2.22 function : fontSelectionDialogGetFontSelection
Ignore-this: ff8515e60b9d0122c8d0553dd1646d1e
{
hunk ./gtk/Graphics/UI/Gtk/Selectors/FontSelectionDialog.chs 68
+#if GTK_CHECK_VERSION(2,22,0)
+ fontSelectionDialogGetFontSelection,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Selectors/FontSelectionDialog.chs 143
+#if GTK_CHECK_VERSION(2,22,0)
+-- | Retrieves the 'FontSelection' widget embedded in the dialog.
+--
+-- * Available since Gtk+ version 2.22
+--
+fontSelectionDialogGetFontSelection :: FontSelectionDialogClass self => self
+ -> IO FontSelection -- ^ returns the embedded 'FontSelection' [_$_]
+fontSelectionDialogGetFontSelection self = [_$_]
+ makeNewObject mkFontSelection $
+ liftM (castPtr :: Ptr Widget -> Ptr FontSelection) $
+ {#call gtk_font_selection_dialog_get_font_selection #}
+ (toFontSelectionDialog self)
+#endif
+
}
|
|
From: Andy S. <And...@co...> - 2010-10-22 22:12:58
|
diffing dir...
Fri Oct 22 17:11:40 EDT 2010 Andy Stewart <laz...@gm...>
* New GTK+2.22 attr : expanderLabelFill
Ignore-this: 4608c9d1ae55c98b27fcbfc300e26716
{
hunk ./gtk/Graphics/UI/Gtk/Layout/Expander.chs 85
+#if GTK_CHECK_VERSION(2,22,0)
+ expanderLabelFill,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Layout/Expander.chs 100
+import System.Glib.Properties
hunk ./gtk/Graphics/UI/Gtk/Layout/Expander.chs 321
+#if GTK_CHECK_VERSION(2,22,0)
+-- | Whether the label widget should fill all available horizontal space.
+-- [_$_]
+-- Default value: 'False'
+--
+expanderLabelFill :: Attr Expander Bool
+expanderLabelFill = newAttrFromBoolProperty "label-fill"
+#endif
+
}
|
|
From: Andy S. <And...@co...> - 2010-10-22 22:12:57
|
diffing dir...
Fri Oct 22 17:08:16 EDT 2010 Andy Stewart <laz...@gm...>
* New GTK+2.22 function : entryResetImContext
Ignore-this: 83c888182bfbd9eb44dd026afb5e2b34
{
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 87
+ entryResetImContext,
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 475
+
+-- | Reset the input method context of the entry if needed.
+-- [_$_]
+-- This can be necessary in the case where modifying the buffer would confuse on-going input method
+-- behavior.
+--
+-- * Available since Gtk+ version 2.22
+--
+entryResetImContext :: EntryClass self => self -> IO ()
+entryResetImContext self =
+ {#call gtk_entry_reset_im_context #} (toEntry self)
}
|
|
From: Andy S. <And...@co...> - 2010-10-22 22:12:54
|
diffing dir...
Fri Oct 22 17:04:55 EDT 2010 Andy Stewart <laz...@gm...>
* New GTK+2.22 function : entryImContextFilterKeypress
Ignore-this: 1339f16a2711425195e42926285c3f9a
{
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 85
+#if GTK_CHECK_VERSION(2,22,0)
+ entryImContextFilterKeypress,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 152
-import Graphics.UI.Gtk.Gdk.EventM (EventM, EButton)
+import Graphics.UI.Gtk.Gdk.EventM (EventM, EButton, EKey)
+import Control.Monad.Reader ( ask )
+import Control.Monad.Trans ( liftIO )
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 455
+#if GTK_CHECK_VERSION(2,22,0)
+-- | Allow the 'Entry' input method to internally handle key press and release events. If this function
+-- returns 'True', then no further processing should be done for this key event. See
+-- 'imContextFilterKeypress'.
+-- [_$_]
+-- Note that you are expected to call this function from your handler when overriding key event
+-- handling. This is needed in the case when you need to insert your own key handling between the input
+-- method and the default key event handling of the 'Entry'. See 'textViewResetImContext' for
+-- an example of use.
+--
+-- * Available since Gtk+ version 2.22
+--
+entryImContextFilterKeypress :: EntryClass self => self -> EventM EKey Bool
+entryImContextFilterKeypress self = do
+ ptr <- ask
+ liftIO $ liftM toBool $
+ {# call gtk_entry_im_context_filter_keypress #}
+ (toEntry self)
+ (castPtr ptr)
+#endif
+
}
|
|
From: Andy S. <And...@co...> - 2010-10-22 22:12:52
|
diffing dir...
Fri Oct 22 16:57:42 EDT 2010 Andy Stewart <laz...@gm...>
* New GTK+2.22 function : buttonGetEventWindow
Ignore-this: c6daf8cfcbae254f1d92f94a4c40b641
{
hunk ./gtk/Graphics/UI/Gtk/Buttons/Button.chs 96
+#if GTK_CHECK_VERSION(2,22,0)
+ buttonGetEventWindow,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Buttons/Button.chs 499
+#if GTK_CHECK_VERSION(2,22,0)
+-- | Returns the button's event window if it is realized, 'Nothing' otherwise. [_$_]
+--
+-- * Available since Gtk+ version 2.22
+--
+buttonGetEventWindow :: ButtonClass self => self [_$_]
+ -> IO (Maybe DrawWindow) -- ^ returns button's event window or 'Nothing'
+buttonGetEventWindow self =
+ maybeNull (makeNewGObject mkDrawWindow) $
+ {#call gtk_button_get_event_window #}
+ (toButton self)
+#endif
+
}
|
|
From: Andy S. <And...@co...> - 2010-10-22 22:12:49
|
diffing dir...
Fri Oct 22 16:50:57 EDT 2010 Andy Stewart <laz...@gm...>
* New function in GTK+2.22 : Windows.Assistant.assistantCommit
Ignore-this: e564d37d83a77318ba0b1bb147173e63
{
hunk ./gtk/Graphics/UI/Gtk/Windows/Assistant.chs 92
+#if GTK_CHECK_VERSION(2,22,0)
+ assistantCommit,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Windows/Assistant.chs 431
+#if GTK_CHECK_VERSION(2,22,0)
+-- | Erases the visited page history so the back button is not shown on the current page, and removes the
+-- cancel button from subsequent pages.
+-- [_$_]
+-- Use this when the information provided up to the current page is hereafter deemed permanent and
+-- cannot be modified or undone. For example, showing a progress page to track a long-running,
+-- unreversible operation after the user has clicked apply on a confirmation page.
+--
+-- * Available since Gtk+ version 2.22
+--
+assistantCommit :: AssistantClass self => self -> IO ()
+assistantCommit self =
+ {#call gtk_assistant_commit#} (toAssistant self)
+#endif
+
}
|
|
From: Andy S. <And...@co...> - 2010-10-22 22:12:48
|
diffing dir...
Fri Oct 22 16:46:15 EDT 2010 Andy Stewart <laz...@gm...>
* New module in GTK+2.22 : GtkAccessible
Ignore-this: d31c2b7c9e1fe0cb09c5c134fa8c88a8
{
hunk ./gtk/Graphics/UI/Gtk.chs 229
+ module Graphics.UI.Gtk.Misc.Accessible,
hunk ./gtk/Graphics/UI/Gtk.chs 464
+import Graphics.UI.Gtk.Misc.Accessible
addfile ./gtk/Graphics/UI/Gtk/Misc/Accessible.chs
hunk ./gtk/Graphics/UI/Gtk/Misc/Accessible.chs 1
+{-# LANGUAGE CPP #-}
+-- -*-haskell-*-
+-- GIMP Toolkit (GTK) Widget accessible
+--
+-- Author : Andy Stewart
+--
+-- Created: 23 Oct 2010
+--
+-- Copyright (C) 2010 Andy Stewart
+--
+-- This library is free software; you can redistribute it and/or
+-- modify it under the terms of the GNU Lesser General Public
+-- License as published by the Free Software Foundation; either
+-- version 2.1 of the License, or (at your option) any later version.
+--
+-- This library is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of
+-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+-- Lesser General Public License for more details.
+--
+-- |
+-- Maintainer : gtk...@li...
+-- Stability : provisional
+-- Portability : portable (depends on GHC)
+--
+-- A 'Object' representing an adjustable bounded value
+--
+module Graphics.UI.Gtk.Misc.Accessible (
+-- * Detail
+--
+-- | Accessible accessibility support for widgets.
+-- [_$_]
hunk ./gtk/Graphics/UI/Gtk/Misc/Accessible.chs 34
+-- * Class Hierarchy
+-- |
+-- @
+-- | 'GObject'
+-- | +----'AtkObject'
+-- | +----Accessible
+-- @
+
+#if GTK_CHECK_VERSION(2,22,0)
+-- * Types
+ Accessible,
+ AccessibleClass,
+ castToAccessible, gTypeAccessible,
+ toAccessible,
+
+-- * Methods
+ accessibleGetWidget,
+ accessibleSetWidget
+#endif
+) where
+
+import Control.Monad (liftM)
+
+import System.Glib.FFI
+import System.Glib.Attributes
+import System.Glib.Properties
+import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
+{#import Graphics.UI.Gtk.Types#}
+{#import Graphics.UI.Gtk.Signals#}
+
+{# context lib="gtk" prefix="gtk" #}
+
+#if GTK_CHECK_VERSION(2,22,0)
+--------------------
+-- Methods
+
+-- | Gets the 'Widget' corresponding to the 'Accessible'.
+--
+-- * Available since Gtk+ version 2.22
+--
+accessibleGetWidget :: AccessibleClass self => self
+ -> IO (Maybe Widget) -- ^ returns the 'Widget' corresponding to the 'Accessible', or 'Nothing'.
+accessibleGetWidget self =
+ maybeNull (makeNewObject mkWidget) $
+ {# call accessible_get_widget #}
+ (toAccessible self)
+
+-- | Sets the 'Widget' corresponding to the 'Accessible'.
+--
+-- * Available since Gtk+ version 2.22
+--
+accessibleSetWidget :: (AccessibleClass self, WidgetClass widget) [_$_]
+ => self -- ^ @accessible@ a 'Accessible' [_$_]
+ -> widget -- ^ @widget@ a 'Widget' [_$_]
+ -> IO ()
+accessibleSetWidget self widget = [_$_]
+ {#call accessible_set_widget #}
+ (toAccessible self)
+ (toWidget widget)
+#endif
hunk ./gtk/gtk.cabal 249
+ Graphics.UI.Gtk.Misc.Accessible
hunk ./gtk/hierarchy.list 25
+ AtkObject
+ GtkAccessible if gtk-2.22
}
|
|
From: Andy S. <And...@co...> - 2010-10-22 05:38:58
|
diffing dir...
Fri Oct 22 01:24:41 EDT 2010 Andy Stewart <laz...@gm...>
* Use wrapNewGObject instead some functions that need unref when return 'IO Pixbuf'
Ignore-this: 58476fee7515ced8bd7f8f456a6a00c8
{
hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1557
- maybeNull (makeNewGObject mkPixbuf) $
+ maybeNull (wrapNewGObject mkPixbuf) $
hunk ./gtk/Graphics/UI/Gtk/General/IconTheme.chs 419
- maybeNull (makeNewGObject mkPixbuf) $
+ maybeNull (wrapNewGObject mkPixbuf) $
hunk ./gtk/Graphics/UI/Gtk/General/IconTheme.chs 667
- makeNewGObject mkPixbuf $
+ wrapNewGObject mkPixbuf $
}
|
|
From: Andy S. <And...@co...> - 2010-10-22 00:33:04
|
diffing dir...
Thu Oct 21 20:28:14 EDT 2010 Andy Stewart <laz...@gm...>
* wrapNewGObject for gtk_text_mark_new
Ignore-this: f4adff30fabb20766625eb8e8c740e34
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextMark.chs 121
- makeNewGObject mkTextMark $
+ wrapNewGObject mkTextMark $
|
On Oct 21, 2010, at 19:21, Andy Stewart wrote:
> diffing dir...
> Thu Oct 21 13:04:44 EDT 2010 Andy Stewart <laz...@gm...>
> * Restore makeNewGObject for mkTextMark. From TextMark's Hierarchy,
> it should use wrapNewGObject, but after test, wrapNewGObject will
> finalized TextMark too early to crash program.
> Ignore-this: fb20a28ef97c18386eb3a98d64975a9e
> {
> hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs 616
> - wrapNewGObject mkTextMark $
> + makeNewGObject mkTextMark $
> hunk ./gtk/Graphics/UI/Gtk/Multiline/TextMark.chs 121
> - wrapNewGObject mkTextMark $
> + makeNewGObject mkTextMark $
> }
>
makeNewGObject is used for existing objects. These always need to be
ref'd once. Only new objects that may use constructGObject or
wrapNewGObject!
Axel
> ------------------------------------------------------------------------------
> Nokia and AT&T present the 2010 Calling All Innovators-North America
> contest
> Create new apps & games for the Nokia N8 for consumers in U.S. and
> Canada
> $10 million total in prizes - $4M cash, 500 devices, nearly $6M in
> marketing
> Develop with Nokia Qt SDK, Web Runtime, or Java and Publish to Ovi
> Store
> http://p.sf.net/sfu/nokia-dev2dev
> _______________________________________________
> Gtk2hs-commit mailing list
> Gtk...@li...
> https://lists.sourceforge.net/lists/listinfo/gtk2hs-commit
|
|
From: Andy S. <And...@co...> - 2010-10-21 17:21:31
|
diffing dir...
Thu Oct 21 13:14:44 EDT 2010 Andy Stewart <laz...@gm...>
* Make gio demo can compile again
Ignore-this: ac0907d6abbed92336699dcb2c7a83b2
{
hunk ./gio/demo/FileManager.hs 21
+import qualified Data.ByteString.UTF8 as UTF8
+
hunk ./gio/demo/FileManager.hs 52
- iconInfo <- iconThemeLookupByGicon iconTheme icon 24 IconLookupUseBuiltin
+ iconInfo <- iconThemeLookupByGIcon iconTheme icon 24 IconLookupUseBuiltin
hunk ./gio/demo/FileManager.hs 68
- return $ FMInfo pixbuf name desc size time
+ return $ FMInfo pixbuf (UTF8.toString name) desc size time
hunk ./gio/demo/FileManager.hs 142
- let dir = fileFromPath directory
+ let dir = fileFromPath (UTF8.fromString directory)
}
|
diffing dir...
Thu Oct 21 13:04:44 EDT 2010 Andy Stewart <laz...@gm...>
* Restore makeNewGObject for mkTextMark. From TextMark's Hierarchy, it should use wrapNewGObject, but after test, wrapNewGObject will finalized TextMark too early to crash program.
Ignore-this: fb20a28ef97c18386eb3a98d64975a9e
{
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs 616
- wrapNewGObject mkTextMark $
+ makeNewGObject mkTextMark $
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextMark.chs 121
- wrapNewGObject mkTextMark $
+ makeNewGObject mkTextMark $
}
|
|
From: Andy S. <And...@co...> - 2010-10-21 17:21:27
|
diffing dir...
Wed Oct 20 20:45:27 EDT 2010 John Obbele <joh...@gm...>
* [wrapNewGObject] Rewrite documentation for constructNewGObject
Ignore-this: c3ead30e29ce89287f538a007d98d38e
hunk ./glib/System/Glib/GObject.chs 132
--- | This function wraps any object that does not
--- derive from Object. The object is NOT reference, hence it should be used
--- when a new object is created. Newly created 'GObject's have a reference
--- count of one, hence don't need ref'ing.
+-- | This function wraps any newly created objects that derives from
+-- GInitiallyUnowned also known as objects with
+-- \"floating-references\". The object will be refSink (for glib
+-- versions >= 2.10). On non-floating objects, this function behaves
+-- exactly the same as "makeNewGObject".
|
|
From: Andy S. <And...@co...> - 2010-10-21 17:21:24
|
diffing dir...
Wed Oct 20 20:37:01 EDT 2010 John Obbele <joh...@gm...>
* Add wrapNewGObject to glib/**/GObject.chs
Ignore-this: 9f5af0a8896f9cc4b83f84da5c97a5ab
{
hunk ./glib/System/Glib/GObject.chs 43
+ wrapNewGObject,
hunk ./glib/System/Glib/GObject.chs 149
+-- | This function wraps any newly created object that does not derived
+-- from GInitiallyUnowned (that is a GObject with no floating
+-- reference). Since newly created 'GObject's have a reference count of
+-- one, they don't need ref'ing.
+--
+wrapNewGObject :: GObjectClass obj => [_$_]
+ (ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
+wrapNewGObject (constr, objectUnref) generator = do
+ objPtr <- generator
+ when (objPtr == nullPtr) (fail "wrapNewGObject: object is NULL")
+ obj <- newForeignPtr objPtr objectUnref
+ return $! constr obj
+
}
|
2 messages has been excluded from this view by a project administrator.
