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-21 17:18:06
|
diffing dir...
Mon Oct 11 12:18:11 EDT 2010 John Obbele <joh...@gm...>
* [wrapNewGObject] ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs
Ignore-this: c0c51b9dd2cea723e331c5bcf3a6f5ed
{
hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 269
- constructNewGObject mkPixbuf $
+ wrapNewGObject mkPixbuf $
hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 292
- constructNewGObject mkPixbuf $
+ wrapNewGObject mkPixbuf $
hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 330
- constructNewGObject mkPixbuf $
+ wrapNewGObject mkPixbuf $
hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 400
- constructNewGObject mkPixbuf $
+ wrapNewGObject mkPixbuf $
hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 412
- constructNewGObject mkPixbuf $ {#call pixbuf_new_from_xpm_data#} strsPtr
+ wrapNewGObject mkPixbuf $ {#call pixbuf_new_from_xpm_data#} strsPtr
hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 461
- if pbPtr/=nullPtr then constructNewGObject mkPixbuf (return pbPtr)
+ if pbPtr/=nullPtr then wrapNewGObject mkPixbuf (return pbPtr)
hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 477
- constructNewGObject mkPixbuf $ do
+ wrapNewGObject mkPixbuf $ do
hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 487
-pixbufCopy pb = constructNewGObject mkPixbuf $ {#call unsafe pixbuf_copy#} pb
+pixbufCopy pb = wrapNewGObject mkPixbuf $ {#call unsafe pixbuf_copy#} pb
hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 534
- constructNewGObject mkPixbuf $ liftM castPtr $
+ wrapNewGObject mkPixbuf $ liftM castPtr $
hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 612
- constructNewGObject mkPixbuf $
+ wrapNewGObject mkPixbuf $
hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 622
- constructNewGObject mkPixbuf $
+ wrapNewGObject mkPixbuf $
hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 632
- constructNewGObject mkPixbuf $
+ wrapNewGObject mkPixbuf $
hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 658
-pixbufAddAlpha pb Nothing = constructNewGObject mkPixbuf $
+pixbufAddAlpha pb Nothing = wrapNewGObject mkPixbuf $
hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 660
-pixbufAddAlpha pb (Just (r,g,b)) = constructNewGObject mkPixbuf $
+pixbufAddAlpha pb (Just (r,g,b)) = wrapNewGObject mkPixbuf $
hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 712
- maybeNull (constructNewGObject mkPixbuf) $
+ maybeNull (wrapNewGObject mkPixbuf) $
hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 777
- pm <- constructNewGObject mkPixmap (peek pmRetPtr :: IO (Ptr Pixmap))
- bm <- maybeNull (constructNewGObject mkPixmap) (peek bmRetPtr :: IO (Ptr Bitmap))
+ pm <- wrapNewGObject mkPixmap (peek pmRetPtr :: IO (Ptr Pixmap))
+ bm <- maybeNull (wrapNewGObject mkPixmap) (peek bmRetPtr :: IO (Ptr Bitmap))
}
|
|
From: Andy S. <And...@co...> - 2010-10-21 17:18:02
|
diffing dir...
Mon Oct 11 12:18:10 EDT 2010 John Obbele <joh...@gm...>
* [wrapNewGObject] ./gtk/Graphics/UI/Gtk/Gdk/GC.chs
Ignore-this: db9b4b6bc69890eb49afcb110714030
{
hunk ./gtk/Graphics/UI/Gtk/Gdk/GC.chs 88
-import System.Glib.GObject (constructNewGObject)
+import System.Glib.GObject (wrapNewGObject)
hunk ./gtk/Graphics/UI/Gtk/Gdk/GC.chs 103
- else constructNewGObject mkGC (return gcPtr)
+ else wrapNewGObject mkGC (return gcPtr)
hunk ./gtk/Graphics/UI/Gtk/Gdk/GC.chs 111
- gc <- constructNewGObject mkGC $ {#call unsafe gc_new_with_values#} [_$_]
+ gc <- wrapNewGObject mkGC $ {#call unsafe gc_new_with_values#} [_$_]
}
|
|
From: Andy S. <And...@co...> - 2010-10-21 17:17:57
|
diffing dir...
Mon Oct 11 12:18:09 EDT 2010 John Obbele <joh...@gm...>
* [wrapNewGObject] ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs
Ignore-this: 2c2fa0dc17019cbe16ab54d7eae656a0
{
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 89
-import System.Glib.GObject (makeNewGObject)
+import System.Glib.GObject (wrapNewGObject,makeNewGObject)
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 558
-drawWindowForeignNew anid = maybeNull (makeNewGObject mkDrawWindow) $
+drawWindowForeignNew anid = maybeNull (wrapNewGObject mkDrawWindow) $
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 567
+
}
|
|
From: Andy S. <And...@co...> - 2010-10-21 17:17:53
|
diffing dir...
Mon Oct 11 12:18:08 EDT 2010 John Obbele <joh...@gm...>
* [wrapNewGObject] ./gtk/Graphics/UI/Gtk/Gdk/Display.chs
Ignore-this: 1ec19d41ff60d08b6b267a770e07649e
hunk ./gtk/Graphics/UI/Gtk/Gdk/Display.chs 141
- maybeNull (makeNewGObject mkDisplay) $
+ maybeNull (wrapNewGObject mkDisplay) $
|
|
From: Andy S. <And...@co...> - 2010-10-21 17:17:51
|
diffing dir...
Mon Oct 11 12:18:07 EDT 2010 John Obbele <joh...@gm...>
* [wrapNewGObject] ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs
Ignore-this: ce17273f24c2548c61dcfeb1cea11ef7
{
hunk ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs 55
-import System.Glib.GObject (constructNewGObject, makeNewGObject)
+import System.Glib.GObject (wrapNewGObject)
hunk ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs 71
- constructNewGObject mkAppLaunchContext $
+ wrapNewGObject mkAppLaunchContext $
}
|
|
From: Andy S. <And...@co...> - 2010-10-20 00:48:51
|
diffing dir...
Tue Oct 19 20:47:15 EDT 2010 Andy Stewart <laz...@gm...>
* Add new functions : quitAddDestroy, quitAdd, quitRemove
Ignore-this: 6adea0e9dbe60e1b73309da9adc44307
{
hunk ./gtk/Graphics/UI/Gtk/General/General.chs 21
--- TODO
---
--- quitAddDestroy, quitAdd, quitRemove
---
hunk ./gtk/Graphics/UI/Gtk/General/General.chs 50
+
+ -- ** Call when mainloop is left
+ quitAddDestroy,
+ quitAdd,
+ quitRemove,
hunk ./gtk/Graphics/UI/Gtk/General/General.chs 295
+-- | Trigger destruction of object in case the mainloop at level @mainLevel@ is quit.
+quitAddDestroy :: ObjectClass obj [_$_]
+ => Int -- ^ @mainLevel@ Level of the mainloop which shall trigger the destruction. [_$_]
+ -> obj -- ^ @object@ Object to be destroyed. [_$_]
+ -> IO ()
+quitAddDestroy mainLevel obj = [_$_]
+ {#call quit_add_destroy #}
+ (fromIntegral mainLevel)
+ (toObject obj)
+
+-- | Registers a function to be called when an instance of the mainloop is left.
+quitAdd :: Int -- ^ @mainLevel@ Level at which termination the function shall be called. You can pass 0 here to have the function run at the current mainloop. [_$_]
+ -> (IO Bool) -- ^ @function@ The function to call. This should return 'False' to be removed from the list of quit handlers. Otherwise the function might be called again.
+ -> IO Int -- ^ returns A handle for this quit handler (you need this for 'quitRemove')
+quitAdd mainLevel func = do
+ funcPtr <- mkGtkFunction $ \ _ -> [_$_]
+ liftM fromBool func
+ liftM fromIntegral $
+ {#call quit_add #} [_$_]
+ (fromIntegral mainLevel)
+ funcPtr
+ nullPtr
+
+{#pointer GtkFunction#}
+
+foreign import ccall "wrapper" mkGtkFunction ::
+ (Ptr () -> IO {#type gboolean#}) -> IO GtkFunction
+
+-- | Removes a quit handler by its identifier.
+quitRemove :: Int -- ^ @quitHandlerId@ Identifier for the handler returned when installing it. [_$_]
+ -> IO ()
+quitRemove quitHandlerId =
+ {#call quit_remove #} (fromIntegral quitHandlerId)
+
}
|
|
From: Andy S. <And...@co...> - 2010-10-19 18:39:02
|
diffing dir...
Tue Oct 19 14:33:33 EDT 2010 Andy Stewart <laz...@gm...>
* Remove outdate TODO comment since TreeList is departed
Ignore-this: f3a89f7ad24e7004db6e6146664e0322
hunk ./gtk/Graphics/UI/Gtk/TreeList/TreeView.chs 21
--- TODO
---
--- treeViewMoveColumnAfter and treeViewMoveColumnFirst are not dealt with in
--- Mogul
---
--- gtk_tree_view_get_bin_window is to compare the GDK window from incoming
--- events. We don't marshal that window parameter, so this function is not
--- bound either.
---
--- All functions related to drag and drop are missing.
---
--- get_search_equal_func is missing: proper memory management is impossible
---
--- gtk_tree_view_set_destroy_count_func is not meant to be useful
---
--- expand-collapse-cursor-row needs to be bound if it is useful to expand
--- and collapse rows in a user-defined manner. Would only work on Gtk 2.2
--- and higher since the return parameter changed
---
--- move_cursor, select_all, select_cursor_parent, select_cursor_row
--- toggle_cursor_row, unselect_all are not bound.
--- These functions are only useful to change the widgets
--- behaviour for these actions. Everything else can be done with
--- cursor_changed and columns_changed
---
--- set_scroll_adjustment makes sense if the user monitors the scroll bars
--- and the scroll bars can be replaced anytime (the latter is odd)
---
|
|
From: Andy S. <And...@co...> - 2010-10-19 18:38:37
|
diffing dir...
Tue Oct 19 14:32:49 EDT 2010 Andy Stewart <laz...@gm...>
* Remove outdate TODO comment
Ignore-this: 49c819d5839775b992aa70283deb0911
hunk ./gtk/Graphics/UI/Gtk/TreeList/TreePath.chs 22
--- #hide
-
--- TODO: the following varargs functions were not bound
--- gtk_tree_path_new_from_indices
---
|
|
From: Andy S. <And...@co...> - 2010-10-19 18:38:28
|
diffing dir...
Tue Oct 19 14:31:57 EDT 2010 Andy Stewart <laz...@gm...>
* Not this function in GTK+ : fileSelectionQueryButtons
Ignore-this: eb0a70431ab7d3e2c85cd1d6bf86d8bb
{
hunk ./gtk/Graphics/UI/Gtk/Selectors/FileSelection.chs 21
--- TODO
---
--- Fix fileSelectionQueryButtons
---
hunk ./gtk/Graphics/UI/Gtk/Selectors/FileSelection.chs 181
--- currently broken
--- -- query the widgets of the file selectors buttons
--- --
--- -- * this is useful to attach signals handlers to these buttons
--- --
--- -- * the buttons are OK & Cancel (in this order)
--- --
--- fileSelectionQueryButtons :: FileSelectionClass fsel [_$_]
--- => fsel
--- -> IO (Button, Button)
--- fileSelectionQueryButtons fsel =
--- withForeignPtr (unFileSelection $ toFileSelection fsel) $ \ ptr -> do
--- ok <- {#get FileSelection.ok_button #} ptr
--- cancel <- {#get FileSelection.cancel_button#} ptr
--- return (castToButton ok, castToButton cancel)
-
}
|
|
From: Andy S. <And...@co...> - 2010-10-19 18:38:24
|
diffing dir...
Tue Oct 19 14:26:32 EDT 2010 Andy Stewart <laz...@gm...>
* Code has check bound before delete, so it won't failed
Ignore-this: d86e6efa2bcaff136cbfae7753a1b85b
hunk ./gtk/Graphics/UI/Gtk/ModelView/ListStore.hs 262
- --TODO we should probably fail on a bad index
-
|
|
From: Andy S. <And...@co...> - 2010-10-19 18:38:20
|
diffing dir...
Tue Oct 19 14:22:05 EDT 2010 Andy Stewart <laz...@gm...>
* Remove outdate TODO comment
Ignore-this: 8f231a32e759e1c80f20b14779e50a6a
hunk ./gtk/Graphics/UI/Gtk/ModelView/CellLayout.chs 21
--- TODO: the following varargs functions were not bound
--- gtk_cell_layout_set_attributes
---
|
|
From: Andy S. <And...@co...> - 2010-10-19 18:38:16
|
diffing dir...
Tue Oct 19 14:19:10 EDT 2010 Andy Stewart <laz...@gm...>
* Remove outdate TODO comment
Ignore-this: 74ccbd1ef5ef8d25aa2922917d783977
hunk ./gtk/Graphics/UI/Gtk/General/IconFactory.chs 21
--- TODO
---
--- The following functions are not bound:
--- iconFactoryLookup, iconFactoryLookupDefault
--- It is not a good idea to lookup an IconSet directly. If an Icon needs to
--- be displayed it happends always in the context of a widget. The best
--- practice is to get the widgets Style and call styleLookupIconSet.
---
|
|
From: Andy S. <And...@co...> - 2010-10-19 01:08:08
|
diffing dir...
Mon Oct 18 18:31:35 EDT 2010 Maxime Henrion <mhe...@gm...>
* Remove outdated comments.
Ignore-this: 9d5c0993c1c066483acf79632fe89926
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 22
--- TODO
---
--- 'icon-press' and 'icon-release' signals not bind.
---
|
|
From: Andy S. <And...@co...> - 2010-10-18 22:17:02
|
diffing dir...
Mon Oct 18 17:41:34 EDT 2010 Andy Stewart <laz...@gm...>
* Add new signals : entryIconPress/entryIconRelease and version macro
Ignore-this: 67c230500aeb855582830c297e636095
{
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 118
- entryPreeditChanged,
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 119
+#if GTK_CHECK_VERSION(2,20,0)
+ entryPreeditChanged,
+#endif
+#if GTK_CHECK_VERSION(2,16,0)
+ entryIconPress,
+ entryIconRelease,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 143
+import Control.Monad.Reader (runReaderT)
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 153
+import Graphics.UI.Gtk.Gdk.EventM (EventM, EButton)
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 665
+#if GTK_CHECK_VERSION(2,20,0)
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 670
+#endif
+
+#if GTK_CHECK_VERSION(2,16,0)
+-- | The 'iconPress' signal is emitted when an activatable icon is clicked.
+--
+entryIconPress :: EntryClass ec =>
+ Signal ec (EntryIconPosition -> EventM EButton ())
+entryIconPress = Signal connect
+ where connect after obj f =
+ connect_ENUM_PTR__NONE "icon-press" after obj (runReaderT . f)
+
+-- | The 'iconRelease' signal is emitted on the button release from a mouse click over an activatable
+-- icon.
+--
+entryIconRelease :: EntryClass ec =>
+ Signal ec (EntryIconPosition -> EventM EButton ())
+entryIconRelease = Signal connect
+ where connect after obj f =
+ connect_ENUM_PTR__NONE "icon-press" after obj (runReaderT . f)
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 755
+
hunk ./gtk/marshal.list 167
+VOID:ENUM,POINTER
}
|
|
From: Andy S. <And...@co...> - 2010-10-18 06:09:24
|
diffing dir...
Mon Oct 18 02:07:55 EDT 2010 Andy Stewart <laz...@gm...>
* Add signal 'checkMenuItemToggled'
Ignore-this: 120bd4fe7f8855d9f396f54f40d7e3ec
{
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/CheckMenuItem.chs 66
- checkMenuItemToggled,
+ checkMenuItemEmitToggled,
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/CheckMenuItem.chs 80
+
+-- * Signals
+ checkMenuItemToggled
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/CheckMenuItem.chs 91
+{#import Graphics.UI.Gtk.Signals#}
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/CheckMenuItem.chs 156
-checkMenuItemToggled :: CheckMenuItemClass self => self -> IO ()
-checkMenuItemToggled self =
+checkMenuItemEmitToggled :: CheckMenuItemClass self => self -> IO ()
+checkMenuItemEmitToggled self =
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/CheckMenuItem.chs 238
-
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/CheckMenuItem.chs 239
+-- | This signal is emitted when the state of the check box is changed.
+--
+checkMenuItemToggled :: CheckMenuItemClass self => Signal self (IO ())
+checkMenuItemToggled = Signal (connect_NONE__NONE "toggled")
}
|
|
From: Andy S. <And...@co...> - 2010-10-18 06:09:24
|
diffing dir...
Mon Oct 18 02:08:29 EDT 2010 Andy Stewart <laz...@gm...>
* Add signal 'rowActivated'
Ignore-this: 5a9f931804f24ce36208163cddc8e14
{
hunk ./gtk/Graphics/UI/Gtk/ModelView/TreeView.chs 223
+ rowActivated,
hunk ./gtk/Graphics/UI/Gtk/ModelView/TreeView.chs 1767
+-- | A row was activated.
+--
+-- * Activation usually means the user has pressed return on a row.
+--
+rowActivated :: TreeViewClass self => Signal self (TreePath -> TreeViewColumn -> IO ())
+rowActivated = Signal (connect_BOXED_OBJECT__NONE "row-activated" readNTP)
+
}
|
|
From: Andy S. <And...@co...> - 2010-10-18 05:46:45
|
diffing dir...
Mon Oct 18 01:44:51 EDT 2010 Andy Stewart <laz...@gm...>
* Fix treeModelFilterSetVisibleFunc and treeSortableSetDefaultSortFunc
Ignore-this: 176e7dbecb78bc16fb66c4cbf413af2e
{
hunk ./gtk/Graphics/UI/Gtk/ModelView/TreeModelFilter.chs 151
- -> Maybe (TreeIter -> IO Bool) -- ^ @func@ - The visible function or
- -- @Nothing@ to reset this function.
+ -> (TreeIter -> IO Bool) -- ^ @func@ - The visible function
hunk ./gtk/Graphics/UI/Gtk/ModelView/TreeModelFilter.chs 153
-treeModelFilterSetVisibleFunc self Nothing =
- {# call gtk_tree_model_filter_set_visible_func #}
- (toTreeModelFilter self) nullFunPtr nullPtr nullFunPtr
-treeModelFilterSetVisibleFunc self (Just func) = do
+treeModelFilterSetVisibleFunc self func = do
hunk ./gtk/Graphics/UI/Gtk/ModelView/TreeSortable.chs 186
+-- | If @sortFunc@ is 'Nothing', then there will be no default comparison function. [_$_]
+-- This means that once the
+-- model has been sorted, it can't go back to the default state. In this case, when the current sort
+-- column id of sortable is 'TreeSortableDefaultSortColumnId', the model will be unsorted.
hunk ./gtk/Graphics/UI/Gtk/ModelView/TreeSortable.chs 191
- -> (TreeIter -> TreeIter -> IO Ordering)
+ -> Maybe (TreeIter -> TreeIter -> IO Ordering)
hunk ./gtk/Graphics/UI/Gtk/ModelView/TreeSortable.chs 193
+ -- or 'Nothing' to use default comparison function.
hunk ./gtk/Graphics/UI/Gtk/ModelView/TreeSortable.chs 195
-treeSortableSetDefaultSortFunc self sortFunc = do
+treeSortableSetDefaultSortFunc self Nothing = do
+ {# call tree_sortable_set_default_sort_func #}
+ (toTreeSortable self)
+ nullFunPtr nullPtr nullFunPtr
+treeSortableSetDefaultSortFunc self (Just sortFunc) = do
}
|
|
From: Andy S. <And...@co...> - 2010-10-05 02:48:33
|
diffing dir...
Mon Oct 4 22:45:17 EDT 2010 Andy Stewart <laz...@gm...>
* Fix signal docs
Ignore-this: d61d85d989921e6b3ab6da5b55104196
{
hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 2481
--- | The parent-set signal is emitted when a new parent has been set on a
+-- | The 'parentSet' signal is emitted when a new parent has been set on a
hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 2497
--- | The style-set signal is emitted when a new style has been set on a
+-- | The 'styleSet' signal is emitted when a new style has been set on a
hunk ./gtk/Graphics/UI/Gtk/Buttons/ScaleButton.chs 219
--- | The ::value-changed signal is emitted when the value field has changed.
+-- | The 'scaleButtonValueChanged' signal is emitted when the value field has changed.
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs 330
--- area changes. For other storage types, the size-changed signal can be used
+-- area changes. For other storage types, the 'sizeChanged' signal can be used
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 108
--- to connect directly to property-changed signals. If there is a need
+-- to connect directly to 'propertyChanged' signals. If there is a need
hunk ./gtk/Graphics/UI/Gtk/General/Drag.chs 634
--- | The ::drag-data-get signal is emitted on the drag source when the
+-- | The 'dragDataGet' signal is emitted on the drag source when the
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs 398
--- Implemented via emissions of the insert-text and apply-tag signals, so
+-- Implemented via emissions of the insert-text and 'applyTag' signals, so
hunk ./gtk/Graphics/UI/Gtk/Selectors/ColorButton.chs 243
--- | The ::color-set signal is emitted when the user selects a color. When
+-- | The 'colorSet' signal is emitted when the user selects a color. When
hunk ./gtk/Graphics/UI/Gtk/Selectors/FileChooser.chs 84
--- The default keys that activate the key-binding signals in
+-- The default keys that activate the 'keyBinding' signals in
hunk ./gtk/Graphics/UI/Gtk/Selectors/FileChooser.chs 1150
--- confirm-overwrite signal.
+-- 'confirmOverwrite' signal.
hunk ./gtk/Graphics/UI/Gtk/Selectors/FontButton.chs 319
--- | The ::font-set signal is emitted when the user selects a font. When
+-- | The 'fontSet' signal is emitted when the user selects a font. When
}
|
|
From: Andy S. <And...@co...> - 2010-10-04 14:09:42
|
diffing dir...
Mon Oct 4 10:08:33 EDT 2010 Andy Stewart <laz...@gm...>
* Add CPP option in *.chs file make them can compile correctly on Windows
Ignore-this: 3806d7f44d081dd1382097b0c350c81e
{
hunk ./gtk/Graphics/UI/Gtk/Abstract/Bin.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Abstract/Box.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Abstract/Misc.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Abstract/Scale.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Buttons/CheckButton.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Display/AccelLabel.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Entry/HScale.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Entry/SpinButton.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Entry/VScale.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Gdk/Cursor.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Gdk/Gdk.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Gdk/Keys.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/General/General.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/General/Style.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Layout/AspectFrame.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Layout/Fixed.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Layout/HBox.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Layout/HButtonBox.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Layout/HPaned.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Layout/Layout.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Layout/Table.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Layout/VBox.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Layout/VButtonBox.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Layout/VPaned.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ImageMenuItem.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/RadioMenuItem.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/TearoffMenuItem.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Misc/Arrow.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Misc/DrawingArea.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Misc/HandleBox.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Misc/Viewport.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/ModelView/TreeDrag.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/ModelView/TreeStore.hs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTagTable.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Ornaments/Frame.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Ornaments/HSeparator.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Ornaments/VSeparator.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Scrolling/HScrollbar.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Scrolling/VScrollbar.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Selectors/ColorSelection.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Selectors/ColorSelectionDialog.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Selectors/FontSelection.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Selectors/FontSelectionDialog.chs 1
+{-# LANGUAGE CPP #-}
hunk ./gtk/Graphics/UI/Gtk/Windows/Assistant.chs 1
+{-# LANGUAGE CPP #-}
}
|
|
From: Andy S. <And...@co...> - 2010-10-04 12:51:55
|
diffing dir...
Mon Oct 4 08:50:51 EDT 2010 Andy Stewart <laz...@gm...>
* Add GtkAnchorType enum
Ignore-this: 73084d0c31f953aeb1bf9d3d0b440dfe
{
hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 87
+ AnchorType (..),
hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 430
+
+-- |
+--
+{#enum AnchorType {underscoreToCase} deriving (Eq,Show)#}
+
}
|
|
From: Andy S. <And...@co...> - 2010-10-04 12:22:51
|
diffing dir...
Mon Oct 4 08:20:24 EDT 2010 Andy Stewart <laz...@gm...>
* Fix compile problem (when user haven't 2.24, because , before :: confuse compiler)
Ignore-this: 3ffd872619e9253aa62b5b073b770223
{
hunk ./gio/System/GIO/File/FileAttribute.hsc 293
- fileAttributeStandardDescription,
hunk ./gio/System/GIO/File/FileAttribute.hsc 295
- fileAttributeTrashDeletionDate
+ fileAttributeTrashDeletionDate,
hunk ./gio/System/GIO/File/FileAttribute.hsc 297
+ fileAttributeStandardDescription
}
|
|
From: Andy S. <And...@co...> - 2010-10-04 07:50:13
|
diffing dir...
Mon Oct 4 03:45:46 EDT 2010 Andy Stewart <laz...@gm...>
* Add notebook demo (include how to use GtkSpinner)
Ignore-this: d4eaecf74b81cb54670cbc7af18a5dc1
{
adddir ./gtk/demo/notebook
addfile ./gtk/demo/notebook/Makefile
hunk ./gtk/demo/notebook/Makefile 1
+
+PROGS = notebook
+SOURCES = Notebook.hs
+
+all : $(PROGS)
+
+notebook : Notebook.hs
+ $(HC_RULE)
+
+HC_RULE = $(HC) --make $< -o $@ $(HCFLAGS)
+
+clean:
+ rm -f $(SOURCES:.hs=.hi) $(SOURCES:.hs=.o) $(PROGS)
+
+HC=ghc
addfile ./gtk/demo/notebook/Notebook.hs
hunk ./gtk/demo/notebook/Notebook.hs 1
+-- | Notebook demo (include Spinner animation).
+-- Author : Andy Stewart
+-- Copyright : (c) 2010 Andy Stewart <laz...@gm...>
+
+module Main where
+
+import Control.Monad
+import Control.Monad.Trans
+import Data.Maybe
+import Graphics.UI.Gtk
+
+data NotebookTab =
+ NotebookTab {ntBox :: HBox
+ ,ntSpinner :: Spinner
+ ,ntLabel :: Label
+ ,ntCloseButton :: ToolButton
+ ,ntSize :: Int}
+
+-- | Main
+main :: IO ()
+main = do
+ -- Init.
+ initGUI
+
+ -- Create window and notebook.
+ window <- windowNew
+ notebook <- notebookNew
+
+ -- Set window.
+ windowSetDefaultSize window 800 600
+ windowSetPosition window WinPosCenter
+ set window [windowTitle := "Press Ctrl + n to create new tab."]
+
+ -- Handle key press action.
+ window `on` keyPressEvent $ tryEvent $ do
+ -- Create new tab when user press Ctrl+n
+ [Control] <- eventModifier
+ "n" <- eventKeyName
+ liftIO $ do
+ -- Create text view.
+ textView <- textViewNew
+ widgetShowAll textView -- must show before add notebook,
+ -- otherwise notebook won't display child widget [_$_]
+ -- even have add in notebook.
+
+ -- Create notebook tab.
+ tab <- notebookTabNew (Just "Cool tab") Nothing
+ menuLabel <- labelNew Nothing
+
+ -- Add widgets in notebook.
+ notebookAppendPageMenu notebook textView (ntBox tab) menuLabel
+
+ -- Start spinner animation when create tab.
+ notebookTabStart tab
+
+ -- Stop spinner animation after finish load.
+ timeoutAdd (notebookTabStop tab >> return False) 5000
+
+ -- Close tab when click button.
+ ntCloseButton tab `onToolButtonClicked` do
+ index <- notebookPageNum notebook textView
+ index ?>= \i -> notebookRemovePage notebook i
+
+ return ()
+ [_$_]
+ -- Show window.
+ window `containerAdd` notebook
+ widgetShowAll window
+ onDestroy window mainQuit
+ mainGUI
+
+-- | Create notebook tab.
+notebookTabNew :: Maybe String -> Maybe Int -> IO NotebookTab
+notebookTabNew name size = do
+ -- Init.
+ let iconSize = fromMaybe 12 size
+ box <- hBoxNew False 0
+ spinner <- spinnerNew
+ label <- labelNew name
+ image <- imageNewFromIcon "gtk-close" iconSize
+ closeButton <- toolButtonNew (Just image) Nothing
+
+ -- Show.
+ boxPackStart box label PackNatural 0
+ boxPackStart box closeButton PackNatural 0
+ widgetShowAll box
+
+ return $ NotebookTab box spinner label closeButton iconSize
+
+-- | Set tab name.
+notebookTabSetName :: NotebookTab -> String -> IO ()
+notebookTabSetName tab = [_$_]
+ labelSetText (ntLabel tab)
+
+-- | Start spinner animation.
+notebookTabStart :: NotebookTab -> IO ()
+notebookTabStart NotebookTab {ntBox = box
+ ,ntSpinner = spinner
+ ,ntSize = size} = do
+ boxTryPack box spinner PackNatural (Just 0) (size `div` 2)
+ spinnerStart spinner
+ widgetShow spinner
+
+-- | Stop spinner animation.
+notebookTabStop :: NotebookTab -> IO ()
+notebookTabStop NotebookTab {ntBox = box
+ ,ntSpinner = spinner} = do
+ containerTryRemove box spinner
+ spinnerStop spinner
+
+-- | Create image widget with given icon name and size. [_$_]
+imageNewFromIcon :: String -> Int -> IO Image
+imageNewFromIcon iconName size = do
+ iconTheme <- iconThemeGetDefault
+ pixbuf <- do [_$_]
+ -- Function 'iconThemeLoadIcon' can scale icon with specified size.
+ pixbuf <- iconThemeLoadIcon iconTheme iconName size IconLookupUseBuiltin
+ case pixbuf of
+ Just p -> return p
+ Nothing -> error $ "imageNewFromIcon : search icon " ++ iconName ++ " failed."
+ imageNewFromPixbuf pixbuf
+
+-- | Try to packing widget in box.
+-- If @child@ have exist parent, do nothing,
+-- otherwise, add @child@ to @parent@.
+boxTryPack :: (BoxClass parent, WidgetClass child) => parent -> child -> Packing -> Maybe Int -> Int -> IO ()
+boxTryPack box widget packing order space = do
+ parent <- widgetGetParent widget
+ when (isNothing parent) $ do
+ boxPackStart box widget packing space
+ order ?>= boxReorderChild box widget
+
+-- | Try to remove child from parent. [_$_]
+containerTryRemove :: (ContainerClass parent, WidgetClass child) => parent -> child -> IO () [_$_]
+containerTryRemove parent widget = do
+ hasParent <- widgetGetParent widget
+ unless (isNothing hasParent) $ containerRemove parent widget
+
+-- | Maybe.
+(?>=) :: Monad m => Maybe a -> (a -> m ()) -> m () [_$_]
+m ?>= f = maybe (return ()) f m
hunk ./gtk/gtk.cabal 80
+ notebook/Notebook.hs
+ notebook/Makefile
+ [_$_]
}
|
|
From: Andy S. <And...@co...> - 2010-10-04 07:10:11
|
diffing dir...
Mon Oct 4 03:07:59 EDT 2010 Andy Stewart <laz...@gm...>
* Ooops, fix version number
Ignore-this: 147692e34386795d095cc4e63679335c
{
hunk ./gio/System/GIO/File/FileAttribute.hsc 142
-#if GLIB_CHECK_VERSION(2,22,0)
+#if GLIB_CHECK_VERSION(2,24,0)
hunk ./gio/System/GIO/File/FileAttribute.hsc 294
-#if GLIB_CHECK_VERSION(2,22,0)
+#if GLIB_CHECK_VERSION(2,24,0)
hunk ./gio/System/GIO/File/FileAttribute.hsc 378
-#if GLIB_CHECK_VERSION(2,22,0)
+#if GLIB_CHECK_VERSION(2,24,0)
}
|
|
From: Andy S. <And...@co...> - 2010-09-30 08:52:56
|
diffing dir...
Thu Sep 30 04:51:05 EDT 2010 Andy Stewart <laz...@gm...>
* Fix docs of Container.setFocusChild
Ignore-this: a000e02eee358fd7deb0187414070d0
hunk ./gtk/Graphics/UI/Gtk/Abstract/Container.chs 530
--- | A widget in the container received the input focus.
+-- | A widget in the container received or lost the input focus.
|
|
From: Andy S. <And...@co...> - 2010-09-27 04:14:02
|
diffing dir...
Sun Sep 26 22:51:16 EDT 2010 Andy Stewart <laz...@gm...>
* Use 'useAsCString' replace 'unsafeUseAsCString' to avoid break referential transparency.
Ignore-this: 8229e8cbba934983942f2cdbaad832fc
unsafeUseAsCString just safe when user don't store ByteString, when user keep ByteString, any change of CString or ByteString will change each other, it's complete unsafe.
{
hunk ./gio/System/GIO/File/File.chs 235
-import Data.ByteString.Unsafe (unsafeUseAsCString, unsafePackCStringFinalizer)
+import Data.ByteString (useAsCString)
+import Data.ByteString.Unsafe (unsafePackCStringFinalizer)
hunk ./gio/System/GIO/File/File.chs 274
- unsafeUseAsCString path $ \cPath -> {# call file_new_for_path #} cPath
+ useAsCString path $ \cPath -> {# call file_new_for_path #} cPath
hunk ./gio/System/GIO/File/File.chs 290
- unsafeUseAsCString arg $ \cArg -> {# call file_new_for_commandline_arg #} cArg [_$_]
+ useAsCString arg $ \cArg -> {# call file_new_for_commandline_arg #} cArg [_$_]
hunk ./gio/System/GIO/File/File.chs 298
- unsafeUseAsCString parseName $ \cParseName -> {# call file_parse_name #} cParseName [_$_]
+ useAsCString parseName $ \cParseName -> {# call file_parse_name #} cParseName [_$_]
hunk ./gio/System/GIO/File/File.chs 396
- unsafeUseAsCString name $ \cName ->
+ useAsCString name $ \cName ->
hunk ./gio/System/GIO/File/File.chs 443
- unsafeUseAsCString relativePath $ \cRelativePath ->
+ useAsCString relativePath $ \cRelativePath ->
hunk ./gio/System/GIO/File/File.chs 852
+
hunk ./gio/System/GIO/File/File.chs 1353
- unsafeUseAsCString symlinkValue $ \cSymlinkValue -> do
+ useAsCString symlinkValue $ \cSymlinkValue -> do
hunk ./gio/System/GIO/File/FileInfo.chs 135
-import Data.ByteString.Unsafe (unsafeUseAsCString, unsafePackCStringFinalizer)
+import Data.ByteString (useAsCString)
+import Data.ByteString.Unsafe (unsafePackCStringFinalizer)
hunk ./gio/System/GIO/File/FileInfo.chs 368
- unsafeUseAsCString attrValue $ \ attrValuePtr -> [_$_]
+ useAsCString attrValue $ \ attrValuePtr -> [_$_]
hunk ./gio/System/GIO/File/FileInfo.chs 573
- unsafeUseAsCString name $ \ namePtr -> [_$_]
+ useAsCString name $ \ namePtr -> [_$_]
hunk ./gio/System/GIO/Icons/Icon.chs 63
-import Data.ByteString.Unsafe (unsafeUseAsCString, unsafePackCStringFinalizer)
+import Data.ByteString (useAsCString)
+import Data.ByteString.Unsafe (unsafePackCStringFinalizer)
hunk ./gio/System/GIO/Icons/Icon.chs 111
- unsafeUseAsCString str $ \ strPtr -> [_$_]
+ useAsCString str $ \ strPtr -> [_$_]
hunk ./gio/System/GIO/Icons/ThemedIcon.chs 49
-import Data.ByteString.Unsafe (unsafeUseAsCString, unsafePackCStringFinalizer)
+import Data.ByteString (useAsCString)
+import Data.ByteString.Unsafe (unsafePackCStringFinalizer)
hunk ./gio/System/GIO/Icons/ThemedIcon.chs 67
- unsafeUseAsCString iconName $ \ iconNamePtr -> [_$_]
+ useAsCString iconName $ \ iconNamePtr -> [_$_]
}
|
2 messages has been excluded from this view by a project administrator.
