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: Axel S. <si...@co...> - 2010-05-01 15:18:40
|
Wed Apr 21 11:21:05 EDT 2010 Duncan Coutts <du...@ha...>
* Adjust hackage category of build tools
Ignore-this: b0b2a6179fcff848c756d6e6d7ee4b5d
hunk ./tools/gtk2hs-buildtools.cabal 22
-Category: GUI
+Category: Development
|
|
From: Axel S. <si...@co...> - 2010-05-01 15:18:38
|
Wed Apr 21 11:16:40 EDT 2010 Duncan Coutts <du...@ha...>
* Add source repository info to package .cabal files
Ignore-this: 9e55a05581df93c5642547ab964fc9be
hunk ./cairo/cairo.cabal 21
+Source-Repository head
+ type: darcs
+ location: http://code.haskell.org/gtk2hs/
+ subdir: cairo
+
hunk ./glib/glib.cabal 24
+Source-Repository head
+ type: darcs
+ location: http://code.haskell.org/gtk2hs/
+ subdir: glib
+
hunk ./gtk/gtk.cabal 28
+Source-Repository head
+ type: darcs
+ location: http://code.haskell.org/gtk2hs/
+ subdir: gtk
+
hunk ./pango/pango.cabal 27
+Source-Repository head
+ type: darcs
+ location: http://code.haskell.org/gtk2hs/
+ subdir: pango
+
hunk ./tools/gtk2hs-buildtools.cabal 30
+Source-Repository head
+ type: darcs
+ location: http://code.haskell.org/gtk2hs/
+ subdir: tools
+
|
|
From: Axel S. <si...@co...> - 2010-05-01 15:18:35
|
Wed Apr 21 11:05:49 EDT 2010 Duncan Coutts <du...@ha...>
* Fix license name/version in .cabal files for glib, pango, gtk and tools
Ignore-this: 9e316a7f7ac55dbf2ff8d6f87d8dcdfd
glib, pango and gtk are LGPL not GPL.
Cabal now allows us to specify the license version, so specify that too.
hunk ./glib/glib.cabal 3
-License: GPL
+License: LGPL-2.1
hunk ./gtk/gtk.cabal 3
-License: GPL
+License: LGPL-2.1
hunk ./pango/pango.cabal 3
-License: GPL
+License: LGPL-2.1
hunk ./tools/gtk2hs-buildtools.cabal 3
-License: GPL
+License: GPL-2
|
|
From: Axel S. <si...@co...> - 2010-05-01 15:18:34
|
Thu Apr 22 03:56:09 EDT 2010 Andy Stewart <laz...@gm...>
* Fix hierarchy.list typo and make Multiline.Types expose to support Sourceview2 Cabal package
Ignore-this: a81b85782f8480c633ebcd882bd8a6ba
hunk ./gtk/gtk.cabal 220
+ Graphics.UI.Gtk.Multiline.Types
hunk ./gtk/gtk.cabal 227
- Graphics.UI.Gtk.Multiline.Types
hunk ./tools/hierarchyGen/hierarchy.list 50
- GtkSourceMark if gtksourceview2-2.2
+ GtkSourceMark if gtksourceview2
|
|
From: Axel S. <si...@co...> - 2010-05-01 15:18:33
|
Thu Apr 22 03:04:45 EDT 2010 Andy Stewart <laz...@gm...>
* Fix gtk.cabal, make some modules expose to support WebKit Cabal package.
Ignore-this: 4e1d125b2bf655f4a502aa73b9a6a9b6
hunk ./gtk/gtk.cabal 60
+ Graphics.UI.Gtk.Types
hunk ./gtk/gtk.cabal 217
- other-modules:
+ Graphics.UI.Gtk.General.Threading
hunk ./gtk/gtk.cabal 219
+ Graphics.UI.Gtk.General.DNDTypes
+ other-modules:
hunk ./gtk/gtk.cabal 228
- Graphics.UI.Gtk.General.DNDTypes
- Graphics.UI.Gtk.General.Threading
- Graphics.UI.Gtk.Types
|
|
From: Axel S. <si...@co...> - 2010-05-01 15:18:31
|
Wed Apr 21 17:36:15 EDT 2010 Andy Stewart <laz...@gm...>
* Fix WebKit name in hierarchy.list
Ignore-this: 1f1d0daa69c2b9d08af7086ee6aad926
hunk ./tools/hierarchyGen/hierarchy.list 60
- WebkitWebView as WebView if webkit [_$_]
+ WebKitWebView as WebView, webkit_web_view_get_type if webkit [_$_]
hunk ./tools/hierarchyGen/hierarchy.list 319
- WebkitWebFrame as WebFrame if webkit [_$_]
- WebkitWebSettings as WebSettings if webkit
- WebkitNetworkRequest as NetworkRequest if webkit
- WebkitNetworkResponse as NetworkResponse if webkit
- WebkitDownload as Download if webkit
- WebkitWebBackForwardList as WebBackForwardList if webkit
- WebkitWebHistoryItem as WebHistoryItem if webkit
- WebkitWebInspector as WebInspector if webkit
- WebkitHitTestResult as HitTestResult if webkit
- WebkitSecurityOrigin as SecurityOrigin if webkit
- WebkitSoupAuthDialog as SoupAuthDialog if webkit
- WebkitWebDatabase as WebDatabase if webkit
- WebkitWebDataSource as WebDataSource if webkit
- WebkitWebNavigationAction as WebNavigationAction if webkit
- WebkitWebPolicyDecision as WebPolicyDecision if webkit
- WebkitWebResource as WebResource if webkit
- WebkitWebWindowFeatures as WebWindowFeatures if webkit
+ WebKitWebFrame as WebFrame, webkit_web_frame_get_type if webkit [_$_]
+ WebKitWebSettings as WebSettings, webkit_web_settings_get_type if webkit
+ WebKitNetworkRequest as NetworkRequest, webkit_network_request_get_type if webkit
+ WebKitNetworkResponse as NetworkResponse, webkit_network_response_get_type if webkit
+ WebKitDownload as Download, webkit_download_get_type if webkit
+ WebKitWebBackForwardList as WebBackForwardList, webkit_web_back_forward_list_get_type if webkit
+ WebKitWebHistoryItem as WebHistoryItem, webkit_web_history_item_get_type if webkit
+ WebKitWebInspector as WebInspector, webkit_web_inspector_get_type if webkit
+ WebKitHitTestResult as HitTestResult, webkit_hit_test_result_get_type if webkit
+ WebKitSecurityOrigin as SecurityOrigin, webkit_security_origin_get_type if webkit
+ WebKitSoupAuthDialog as SoupAuthDialog, webkit_soup_auth_dialog_get_type if webkit
+ WebKitWebDatabase as WebDatabase, webkit_web_database_get_type if webkit
+ WebKitWebDataSource as WebDataSource, webkit_web_data_source_get_type if webkit
+ WebKitWebNavigationAction as WebNavigationAction, webkit_web_navigation_action_get_type if webkit
+ WebKitWebPolicyDecision as WebPolicyDecision, webkit_web_policy_decision_get_type if webkit
+ WebKitWebResource as WebResource, webkit_web_resource_get_type if webkit
+ WebKitWebWindowFeatures as WebWindowFeatures, webkit_web_window_features_get_type if webkit
|
|
From: Axel S. <si...@co...> - 2010-05-01 15:18:30
|
Wed Apr 21 09:38:56 EDT 2010 Axe...@in...
* Undo moving the Types file to the exposed modules. This can't build.
Ignore-this: 3fd910eb3ba8f76a41d68d595c8d053b
hunk ./gtk/gtk.cabal 60
- Graphics.UI.Gtk.Types
hunk ./gtk/gtk.cabal 227
+ Graphics.UI.Gtk.Types
|
|
From: Axel S. <si...@co...> - 2010-05-01 15:18:29
|
Wed Apr 21 08:26:40 EDT 2010 Axe...@in... tagged 0.10.5 Ignore-this: 2b933470cd14a19e695a4387c97c83e7 |
|
From: Axel S. <si...@co...> - 2010-05-01 15:18:27
|
Wed Apr 21 03:45:02 EDT 2010 Axe...@in...
* Make the Types module externally visible.
Ignore-this: ebd0f3f9c689e0619fa1458bfa6ac738
hunk ./gtk/gtk.cabal 60
+ Graphics.UI.Gtk.Types
hunk ./gtk/gtk.cabal 228
- Graphics.UI.Gtk.Types
|
|
From: Axel S. <si...@co...> - 2010-05-01 15:18:27
|
Tue Apr 20 09:20:39 EDT 2010 Axe...@in...
* Don't bind attributes we don't understand.
Ignore-this: 2bcd488e24b82b0f6117aa07cd6b582a
hunk ./glib/System/Glib/GValueTypes.chs 38
- valueSetUChar,
- valueGetUChar,
- valueSetChar,
- valueGetChar,
hunk ./glib/System/Glib/GValueTypes.chs 108
-valueSetUChar :: GValue -> Word8 -> IO ()
-valueSetUChar gvalue value =
- {# call unsafe value_set_uchar #} gvalue (fromIntegral value)
-
-valueGetUChar :: GValue -> IO Word8
-valueGetUChar gvalue =
- liftM fromIntegral $ {# call unsafe value_get_uchar #} gvalue
-
---these belong somewhere else, are in new c2hs's C2HS module
-cToEnum :: (Integral i, Enum e) => i -> e
-cToEnum = toEnum . fromIntegral
-
-cFromEnum :: (Enum e, Integral i) => e -> i
-cFromEnum = fromIntegral . fromEnum
-
---valueSetChar :: GValue -> {#type gchar#} -> IO ()
-valueSetChar :: GValue -> Char -> IO ()
-valueSetChar gvalue value =
- {# call unsafe value_set_char #} gvalue (cFromEnum value)
-
---valueGetChar :: GValue -> IO {#type gchar#}
-valueGetChar :: GValue -> IO Char
-valueGetChar gvalue =
- liftM cToEnum $ {# call unsafe value_get_char #} gvalue
-
|
|
From: Axel S. <si...@co...> - 2010-05-01 15:18:26
|
Tue Apr 20 09:20:57 EDT 2010 Axe...@in...
* Fix the glib cabal file to compile and link in Duncan's magic signal connection mechanism.
Ignore-this: bfabe7fb6eb622138457c9a11af2739
hunk ./glib/System/Glib/Signals.chs 2
+{-# CFILES hsgclosure.c #-}
hunk ./glib/glib.cabal 21
+Extra-Source-Files:
+ System/Glib/hsgclosure.c
+ System/Glib/hsgclosure.h
hunk ./glib/glib.cabal 27
- [_$_]
+
+
hunk ./glib/glib.cabal 34
+ c-sources: System/Glib/hsgclosure.c
+ include-dirs: System/Glib
|
|
From: Axel S. <si...@co...> - 2010-05-01 15:18:24
|
Tue Apr 20 09:20:19 EDT 2010 Axe...@in...
* Ensure the user doesn't use autoconf anymore by mistake.
Ignore-this: cdef806f7dc50df4f2849748fe74f45f
move ./Makefile.am ./Makefile.am.stale
move ./configure.ac ./configure.ac.stale
|
|
From: Andy S. <And...@co...> - 2010-04-09 16:45:31
|
Fri Apr 9 12:44:12 EDT 2010 Andy Stewart <laz...@gm...>
* Add version-tag for support Gtk+ 2.12, and fix some functions.
Ignore-this: 5dc38c456b096aed3f71062f91e58097
hunk ./gtk/Graphics/UI/Gtk/Abstract/Range.chs.pp 104
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Abstract/Range.chs.pp 106
+#endif
hunk ./gtk/Graphics/UI/Gtk/Abstract/Range.chs.pp 468
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Abstract/Range.chs.pp 478
+#endif
hunk ./gtk/Graphics/UI/Gtk/Buttons/LinkButton.chs.pp 78
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Buttons/LinkButton.chs.pp 80
+#endif
hunk ./gtk/Graphics/UI/Gtk/Buttons/LinkButton.chs.pp 213
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Buttons/LinkButton.chs.pp 219
+#endif
hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs.pp 144
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs.pp 148
+#endif
hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs.pp 585
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs.pp 595
+#endif
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 118
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 122
+#endif
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 146
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 149
+#endif
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 540
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 550
+#endif
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 715
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 734
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 163
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 166
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 1133
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 1151
+#endif
hunk ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs.pp 27
-
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs.pp 43
+#endif
hunk ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs.pp 58
-
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs.pp 141
-
+#endif
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 101
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 103
+#endif
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 122
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 125
- drawWindowReparent,
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 126
+#endif
+ drawWindowReparent,
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 144
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 146
+#endif
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 157
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 159
+#endif
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 171
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 173
+#endif
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 177
+#endif
+ drawGetDefaultRootWindow,
+#if GTK_CHECK_VERSION(2,18,0)
+ drawOffscreenWindowGetPixmap,
+ drawOffscreenWindowSetEmbedder,
+ drawOffscreenWindowGetEmbedder,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 186
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 188
+#endif
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 767
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 772
+#endif
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 977
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 1004
--- | Reparents window into the given @newParent@. The window being reparented will be unmapped as a side
--- effect.
-drawWindowReparent :: (DrawWindowClass window, DrawWindowClass parent) => window -> parent -> Int -> Int -> IO ()
-drawWindowReparent window newParent x y =
- {#call gdk_window_reparent#} [_$_]
- (toDrawWindow window) [_$_]
- (toDrawWindow newParent)
- (fromIntegral x)
- (fromIntegral y)
-
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 1017
+#endif
+
+-- | Reparents window into the given @newParent@. The window being reparented will be unmapped as a side
+-- effect.
+drawWindowReparent :: (DrawWindowClass window, DrawWindowClass parent) => window -> parent -> Int -> Int -> IO ()
+drawWindowReparent window newParent x y =
+ {#call gdk_window_reparent#} [_$_]
+ (toDrawWindow window) [_$_]
+ (toDrawWindow newParent)
+ (fromIntegral x)
+ (fromIntegral y)
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 1252
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 1260
+#endif
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 1426
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 1441
+#endif
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 1594
-drawWetDefaultRootWindow :: IO DrawWindow
-drawWetDefaultRootWindow = [_$_]
+drawGetDefaultRootWindow :: IO DrawWindow
+drawGetDefaultRootWindow = [_$_]
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 1598
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 1601
-drawWffscreenWindowGetPixmap :: DrawWindowClass self => self -> IO Pixmap
-drawWffscreenWindowGetPixmap window =
+drawOffscreenWindowGetPixmap :: DrawWindowClass self => self -> IO Pixmap
+drawOffscreenWindowGetPixmap window =
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 1611
-drawWffscreenWindowSetEmbedder :: (DrawWindowClass window, DrawWindowClass embedder) => window -> embedder -> IO ()
-drawWffscreenWindowSetEmbedder window embedder =
+drawOffscreenWindowSetEmbedder :: (DrawWindowClass window, DrawWindowClass embedder) => window -> embedder -> IO ()
+drawOffscreenWindowSetEmbedder window embedder =
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 1618
-drawWffscreenWindowGetEmbedder :: DrawWindowClass self => self -> IO DrawWindow
-drawWffscreenWindowGetEmbedder window =
+drawOffscreenWindowGetEmbedder :: DrawWindowClass self => self -> IO DrawWindow
+drawOffscreenWindowGetEmbedder window =
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 1622
+#endif
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 1624
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 1630
+#endif
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 1632
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 1651
+#endif
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 1655
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 1660
-
+#endif
hunk ./gtk/Graphics/UI/Gtk/General/Clipboard.chs.pp 136
+ clipboardWaitForURIs,
+ clipboardWaitIsURIsAvailable,
hunk ./gtk/Graphics/UI/Gtk/General/Clipboard.chs.pp 140
+ clipboardWaitForText,
+ clipboardWaitForImage,
+ clipboardWaitForRichText,
+ clipboardWaitIsTextAvailable,
+ clipboardWaitIsImageAvailable,
+ clipboardWaitIsRichTextAvailable,
+ clipboardWaitForTargets,
+ clipboardWaitIsTargetAvailable,
hunk ./gtk/Graphics/UI/Gtk/General/IconInfo.chs.pp 34
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/General/IconInfo.chs.pp 36
+#endif
hunk ./gtk/Graphics/UI/Gtk/General/IconInfo.chs.pp 74
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/General/IconInfo.chs.pp 83
+#endif
hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs.pp 86
+#if GTK_CHECK_VERSION(2,14,0)
+ selectionDataGetLength,
hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs.pp 89
+#endif
hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs.pp 328
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs.pp 333
+#endif
hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs.pp 425
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs.pp 431
+#endif
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 46
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 48
+#endif [_$_]
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 514
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 524
+#endif [_$_]
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 75
- menuGetAccelGroup,
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 77
+ menuGetAccelGroup,
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 117
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 120
+#endif
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 145
-import Graphics.UI.Gtk.General.Enums (ScrollType(..), ArrowPlacement(..))
+import Graphics.UI.Gtk.General.Enums (ScrollType(..))
+#if GTK_CHECK_VERSION(2,16,0)
+import Graphics.UI.Gtk.General.Enums (ArrowPlacement(..))
+#endif
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 229
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 239
+#endif
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 546
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 560
+#endif
hunk ./gtk/Graphics/UI/Gtk/Misc/Adjustment.chs.pp 64
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Misc/Adjustment.chs.pp 75
+#endif
hunk ./gtk/Graphics/UI/Gtk/Misc/Adjustment.chs.pp 152
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Misc/Adjustment.chs.pp 192
+#endif
hunk ./gtk/Graphics/UI/Gtk/Misc/Adjustment.chs.pp 356
+
hunk ./gtk/Graphics/UI/Gtk/Pango/Bidirectional.chs.pp 30
+#if PANGO_CHECK_VERSION(1,22,0)
hunk ./gtk/Graphics/UI/Gtk/Pango/Bidirectional.chs.pp 32
+#endif
hunk ./gtk/Graphics/UI/Gtk/Pango/Bidirectional.chs.pp 69
+#if PANGO_CHECK_VERSION(1,22,0)
hunk ./gtk/Graphics/UI/Gtk/Pango/Bidirectional.chs.pp 78
-
+#endif
hunk ./gtk/Graphics/UI/Gtk/Pango/Context.chs.pp 49
+#if PANGO_CHECK_VERSION(1,22,0)
hunk ./gtk/Graphics/UI/Gtk/Pango/Context.chs.pp 52
+#endif
hunk ./gtk/Graphics/UI/Gtk/Pango/Context.chs.pp 103
+#if PANGO_CHECK_VERSION(1,22,0)
hunk ./gtk/Graphics/UI/Gtk/Pango/Context.chs.pp 124
+#endif
hunk ./gtk/Graphics/UI/Gtk/Pango/Enums.chs.pp 43
+#if PANGO_CHECK_VERSION(1,22,0)
hunk ./gtk/Graphics/UI/Gtk/Pango/Enums.chs.pp 45
+#endif
hunk ./gtk/Graphics/UI/Gtk/Pango/Enums.chs.pp 92
+#if PANGO_CHECK_VERSION(1,22,0)
hunk ./gtk/Graphics/UI/Gtk/Pango/Enums.chs.pp 96
+#endif
hunk ./gtk/Graphics/UI/Gtk/Pango/Font.chs.pp 82
+#if PANGO_CHECK_VERSION(1,22,0)
hunk ./gtk/Graphics/UI/Gtk/Pango/Font.chs.pp 84
+#endif
hunk ./gtk/Graphics/UI/Gtk/Pango/Font.chs.pp 267
+#if PANGO_CHECK_VERSION(1,22,0)
hunk ./gtk/Graphics/UI/Gtk/Pango/Font.chs.pp 278
+#endif
hunk ./gtk/Graphics/UI/Gtk/Pango/Script.chs.pp 36
+#if PANGO_CHECK_VERSION(1,22,0)
hunk ./gtk/Graphics/UI/Gtk/Pango/Script.chs.pp 38
+#endif
hunk ./gtk/Graphics/UI/Gtk/Pango/Script.chs.pp 41
+#if PANGO_CHECK_VERSION(1,22,0)
hunk ./gtk/Graphics/UI/Gtk/Pango/Script.chs.pp 43
+#endif
hunk ./gtk/Graphics/UI/Gtk/Pango/Script.chs.pp 141
+#if PANGO_CHECK_VERSION(1,22,0)
hunk ./gtk/Graphics/UI/Gtk/Pango/Script.chs.pp 147
+#endif
hunk ./gtk/Graphics/UI/Gtk/Pango/Script.chs.pp 172
+#if PANGO_CHECK_VERSION(1,22,0)
hunk ./gtk/Graphics/UI/Gtk/Pango/Script.chs.pp 194
+#endif
hunk ./gtk/Graphics/UI/Gtk/Printing/PrintSettings.chs.pp 68
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Printing/PrintSettings.chs.pp 70
+#endif
hunk ./gtk/Graphics/UI/Gtk/Printing/PrintSettings.chs.pp 195
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Printing/PrintSettings.chs.pp 198
+#endif
hunk ./gtk/Graphics/UI/Gtk/Recent/RecentChooserMenu.chs.pp 101
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Recent/RecentChooserMenu.chs.pp 103
+#endif
hunk ./gtk/Graphics/UI/Gtk/Windows/Dialog.chs.pp 110
- dialogGetActionArea,
hunk ./gtk/Graphics/UI/Gtk/Windows/Dialog.chs.pp 111
+ dialogGetActionArea,
|
|
From: Andy S. <And...@co...> - 2010-04-09 13:23:07
|
Fri Apr 9 09:22:15 EDT 2010 Andy Stewart <laz...@gm...>
* Add version tag info for ArrowPlacement.
Ignore-this: 625f1aed12b6b59a9fe24e27d6dc1635
hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs.pp 30
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs.pp 32
+#endif
hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs.pp 106
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs.pp 109
+#endif
|
|
From: Andy S. <And...@co...> - 2010-04-09 12:38:41
|
Fri Apr 9 08:36:44 EDT 2010 Andy Stewart <laz...@gm...>
* Add version tag in source code for old gtk+ library.
Ignore-this: 9b1c44b0a46fe9530b85f5150f48432a
hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 248
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 251
+#endif
hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 282
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 284
+#endif
hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 2435
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 2449
+#endif
hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 2670
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 2675
+#endif
hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/Action.chs.pp 158
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/Action.chs.pp 160
+#endif
hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/Action.chs.pp 170
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/Action.chs.pp 174
+#endif
hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/Action.chs.pp 571
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/Action.chs.pp 580
+#endif
hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/Action.chs.pp 627
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/Action.chs.pp 639
+#endif
hunk ./gtk/Graphics/UI/Gtk/Display/InfoBar.chs.pp 65
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Display/InfoBar.chs.pp 73
-#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Display/InfoBar.chs.pp 74
-#endif
hunk ./gtk/Graphics/UI/Gtk/Display/InfoBar.chs.pp 76
-#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Display/InfoBar.chs.pp 83
-#endif
hunk ./gtk/Graphics/UI/Gtk/Display/InfoBar.chs.pp 88
-#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Display/InfoBar.chs.pp 125
-#endif
hunk ./gtk/Graphics/UI/Gtk/Display/InfoBar.chs.pp 129
-#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Display/InfoBar.chs.pp 228
-#endif
hunk ./gtk/Graphics/UI/Gtk/Display/InfoBar.chs.pp 241
-#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Display/Label.chs.pp 203
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Display/Label.chs.pp 206
+#endif
hunk ./gtk/Graphics/UI/Gtk/Display/Label.chs.pp 1000
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Display/Label.chs.pp 1018
- [_$_]
+#endif [_$_]
+
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 131
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 135
+#endif
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 138
+#endif
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 146
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 148
+#endif
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 619
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 668
+#endif
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 670
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 679
+#endif
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 735
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 751
- [_$_]
+#endif [_$_]
+
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 154
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 157
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 166
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 189
+ entryStateHint,
+#endif
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 193
+#endif
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 196
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 216
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 218
- -- iconRelease,
+ iconRelease,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 1063
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 1085
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 1157
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 1348
+-- | Indicates whether to pass a proper widget state when drawing the shadow and the widget background.
+-- [_$_]
+-- Default value: 'False'
+-- [_$_]
+-- Since 2.16
+entryStateHint :: EntryClass self => ReadAttr self Bool [_$_]
+entryStateHint = readAttrFromBoolProperty "state-hint"
+#endif
+
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 1366
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 1368
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 1376
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 1537
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 1541
- [_$_]
+
+-- | The 'iconRelease' signal is emitted when an activatable icon is clicked.
+iconRelease :: EntryClass self => Signal self (IconPosition -> Event -> IO ())
+iconRelease = Signal (connect_ENUM_BOXED__NONE "icon-release" marshalEvent)
+
+#endif [_$_]
+
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 1606
+
hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs.pp 30
+ ArrowPlacement(..),
hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs.pp 104
+-- | Used to specify the placement of scroll arrows in scrolling menus.
+{#enum ArrowPlacement {underscoreToCase} deriving (Bounded,Eq,Show)#}
+
hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs.pp 94
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs.pp 96
+#endif
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs.pp 102
+#endif
hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs.pp 509
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs.pp 515
+#endif
hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs.pp 517
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs.pp 543
+#endif
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ImageMenuItem.chs 73
+ imageMenuItemUseStock,
+ imageMenuItemAlwaysShowImage,
+ imageMenuItemAccelGroup,
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ImageMenuItem.chs 83
+import System.Glib.Properties
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ImageMenuItem.chs 177
+
+-- | If 'True', the label set in the menuitem is used as a stock id to select the stock item for the item.
+-- [_$_]
+-- Default value: 'False'
+-- [_$_]
+-- Since 2.16
+imageMenuItemUseStock :: ImageMenuItemClass self => Attr self Bool
+imageMenuItemUseStock = newAttrFromBoolProperty "use-stock"
+
+-- | If 'True', the menu item will ignore the 'gtkMenuImages' setting and always show the image, if
+-- available.
+-- [_$_]
+-- Use this property if the menuitem would be useless or hard to use without the image.
+-- [_$_]
+-- Default value: 'False'
+-- [_$_]
+-- Since 2.16
+imageMenuItemAlwaysShowImage :: ImageMenuItemClass self => Attr self Bool
+imageMenuItemAlwaysShowImage = newAttrFromBoolProperty "always-show-image"
+
+-- | The Accel Group to use for stock accelerator keys
+-- [_$_]
+-- Since 2.16
+imageMenuItemAccelGroup :: ImageMenuItemClass self => WriteAttr self AccelGroup
+imageMenuItemAccelGroup = writeAttrFromObjectProperty "accel-group"
+ {# call pure unsafe gtk_accel_group_get_type #}
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 120
+#if GTK_CHECK_VERSION(2,16,0)
+ menuArrowPlacement,
+#endif
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 143
-import Graphics.UI.Gtk.General.Enums (ScrollType)
+import Graphics.UI.Gtk.General.Enums (ScrollType(..), ArrowPlacement(..))
hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs.pp 471
+#if GTK_CHECK_VERSION(2,16,0)
+menuArrowPlacement :: MenuClass self => ReadAttr self ArrowPlacement [_$_]
+menuArrowPlacement = readAttrFromEnumProperty "arrow-placement"
+ {# call pure unsafe gtk_arrow_placement_get_type #}
+#endif
+
hunk ./gtk/Graphics/UI/Gtk/Misc/IMMulticontext.chs.pp 49
+#if GTK_CHECK_VERSION(2,16,0)
+ imMulticontextGetContextId,
+ imMulticontextSetContextId,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Misc/IMMulticontext.chs.pp 58
+import System.Glib.UTFString
hunk ./gtk/Graphics/UI/Gtk/Misc/IMMulticontext.chs.pp 87
+
+#if GTK_CHECK_VERSION(2,16,0)
+imMulticontextGetContextId :: IMMulticontextClass self => self
+ -> IO String -- ^ returns the id of the currently active slave
+imMulticontextGetContextId self =
+ {# call gtk_im_multicontext_get_context_id #}
+ (toIMMulticontext self)
+ >>= peekUTFString
+
+imMulticontextSetContextId :: IMMulticontextClass self => self
+ -> String -- ^ @contextId@ - the id to use
+ -> IO ()
+imMulticontextSetContextId self contextId =
+ withUTFString contextId $ \contextIdPtr ->
+ {# call gtk_im_multicontext_set_context_id #}
+ (toIMMulticontext self)
+ contextIdPtr
+#endif
hunk ./gtk/Graphics/UI/Gtk/ModelView/CellRendererToggle.chs.pp 60
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/ModelView/CellRendererToggle.chs.pp 63
+#endif
hunk ./gtk/Graphics/UI/Gtk/ModelView/CellRendererToggle.chs.pp 144
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/ModelView/CellRendererToggle.chs.pp 166
+#endif
hunk ./gtk/Graphics/UI/Gtk/ModelView/TreeViewColumn.chs.pp 139
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/ModelView/TreeViewColumn.chs.pp 141
+#endif
hunk ./gtk/Graphics/UI/Gtk/ModelView/TreeViewColumn.chs.pp 905
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/ModelView/TreeViewColumn.chs.pp 913
+#endif
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 189
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 191
+#endif
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 1499
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 1502
+#endif
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs.pp 141
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs.pp 143
+#endif
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs.pp 1100
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs.pp 1110
+#endif
hunk ./gtk/Graphics/UI/Gtk/Printing/PrintOperation.chs.pp 136
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Printing/PrintOperation.chs.pp 141
+#endif
hunk ./gtk/Graphics/UI/Gtk/Printing/PrintOperation.chs.pp 663
+#if GTK_CHECK_VERSION(2,18,0)
hunk ./gtk/Graphics/UI/Gtk/Printing/PrintOperation.chs.pp 705
+#endif
hunk ./gtk/Graphics/UI/Gtk/Windows/Dialog.chs.pp 132
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Windows/Dialog.chs.pp 134
+#endif
hunk ./gtk/Graphics/UI/Gtk/Windows/Dialog.chs.pp 402
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Windows/Dialog.chs.pp 414
+#endif
|
|
From: Andy S. <And...@co...> - 2010-04-08 15:52:07
|
Thu Apr 8 11:50:37 EDT 2010 Andy Stewart <laz...@gm...>
* Add missing function `entryUnsetInvisibleChar` and fix #ifdef with Enum `IconPosition`.
Ignore-this: b7969f614491d44c9c57bf4916c85cac
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 74
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 76
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 95
+#if GTK_CHECK_VERSION(2,16,0)
+ entryUnsetInvisibleChar,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 259
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 261
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 382
+#if GTK_CHECK_VERSION(2,16,0)
+-- | Unsets the invisible char previously set with 'entrySetInvisibleChar'. So that the default
+-- invisible char is used again.
+entryUnsetInvisibleChar :: EntryClass self => self -> IO ()
+entryUnsetInvisibleChar self =
+ {#call unsafe entry_unset_invisible_char#} (toEntry self)
+#endif
+
|
|
From: Andy S. <And...@co...> - 2010-04-08 12:59:26
|
Thu Apr 8 08:52:16 EDT 2010 Andy Stewart <laz...@gm...>
* Add gtk-2.xx tag in hierarchy.list and configure.ac for fix compile error (HSV, InfoBar, Activatable, ToolShell).
Ignore-this: 5706470d5db2e6595ae63a93d88e0ea5
hunk ./configure.ac 484
+HAVE_GTK_VERSION_2_16=`$PKG_CONFIG gtk+-2.0 --atleast-version=2.16 && echo yes || echo no`
+HAVE_GTK_VERSION_2_18=`$PKG_CONFIG gtk+-2.0 --atleast-version=2.18 && echo yes || echo no`
hunk ./configure.ac 494
+AM_CONDITIONAL(HAVE_GTK_VERSION_2_16, test "$HAVE_GTK_VERSION_2_16" = "yes")
+AM_CONDITIONAL(HAVE_GTK_VERSION_2_18, test "$HAVE_GTK_VERSION_2_18" = "yes")
hunk ./configure.ac 504
+CREATE_TYPES="$CREATE_TYPES `test "$HAVE_GTK_VERSION_2_16" = "yes" && echo gtk-2.16`"
+CREATE_TYPES="$CREATE_TYPES `test "$HAVE_GTK_VERSION_2_18" = "yes" && echo gtk-2.18`"
hunk ./tools/hierarchyGen/hierarchy.list 57
- GtkHSV as HSV, gtk_hsv_get_type
+ GtkHSV as HSV, gtk_hsv_get_type if gtk-2.14
hunk ./tools/hierarchyGen/hierarchy.list 129
- GtkInfoBar
+ GtkInfoBar if gtk-2.18
hunk ./tools/hierarchyGen/hierarchy.list 363
- GtkActivatable
+ GtkActivatable if gtk-2.16
hunk ./tools/hierarchyGen/hierarchy.list 366
- GtkToolShell
+ GtkToolShell if gtk-2.18
|
|
From: Andy S. <And...@co...> - 2010-04-08 12:59:26
|
Thu Apr 8 08:58:14 EDT 2010 Andy Stewart <laz...@gm...>
* Add gtk-2.xx tag in hierarchy.list for fix compile error (EntryBuffer).
Ignore-this: aa2e0ebb0a1b00b37a0b0f1f27e5e3f3
hunk ./tools/hierarchyGen/hierarchy.list 357
- GtkEntryBuffer
+ GtkEntryBuffer if gtk-2.18
|
|
From: Axel S. <si...@co...> - 2010-04-08 11:14:47
|
Thu Apr 8 06:56:14 EDT 2010 Simon Marlow <mar...@gm...>
* unqualify Map.findWithDefault in import list, fixes 'make depend'
Ignore-this: 4b026de2b54f0ce5128e5112a5b908de
hunk ./tools/c2hs/base/syms/Attributes.hs 100
- Map.findWithDefault, empty)
+ findWithDefault, empty)
|
|
From: Axel S. <si...@co...> - 2010-04-08 11:14:46
|
Sun Mar 21 22:07:32 EDT 2010 Rohan Drape <rd...@sl...>
* add GTK_CHECK_VERSION to gtk/Graphics/UI/Gtk/Builder.chs.pp
Ignore-this: 771ab99e3c20de5b2af636ea9e509e68
hunk ./gtk/Graphics/UI/Gtk/Builder.chs.pp 88
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Builder.chs.pp 91
+#endif
hunk ./gtk/Graphics/UI/Gtk/Builder.chs.pp 158
+#if GTK_CHECK_VERSION(2,14,0)
hunk ./gtk/Graphics/UI/Gtk/Builder.chs.pp 200
+#endif
|
|
From: Axel S. <si...@co...> - 2010-04-08 11:14:46
|
Sun Mar 21 22:06:35 EDT 2010 Rohan Drape <rd...@sl...>
* add GTK_CHECK_VERSION to gtk/Graphics/UI/Gtk/Abstract/Scale, rename as required, edit Makefile.am as required
Ignore-this: 78a4a8404e7c5f51aaec969db26dcc9a
move ./gtk/Graphics/UI/Gtk/Abstract/Scale.chs ./gtk/Graphics/UI/Gtk/Abstract/Scale.chs.pp
hunk ./Makefile.am 629
- gtk/Graphics/UI/Gtk/Abstract/Scale.chs \
+ gtk/Graphics/UI/Gtk/Abstract/Scale.chs.pp \
hunk ./gtk/Graphics/UI/Gtk/Abstract/Scale.chs.pp 75
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Abstract/Scale.chs.pp 78
+#endif
hunk ./gtk/Graphics/UI/Gtk/Abstract/Scale.chs.pp 211
+#if GTK_CHECK_VERSION(2,16,0)
hunk ./gtk/Graphics/UI/Gtk/Abstract/Scale.chs.pp 249
+#endif
|
|
From: Andy S. <And...@co...> - 2010-04-05 21:16:00
|
Mon Apr 5 17:14:57 EDT 2010 Andy Stewart <laz...@gm...>
* Apply "Sergei Trofimovich" patch: add gio.a as a depend of gtk.a . Thanks. :)
Ignore-this: ac7dfab4a029330028d7a3421c8cec74
hunk ./Makefile.am 996
+if ENABLE_GIO
+libHSgtk_a_objects_deps += $(libHSgio_a_OBJECTS)
+endif
+
|
|
From: Andy S. <And...@co...> - 2010-04-05 06:43:35
|
Mon Apr 5 02:41:39 EDT 2010 Andy Stewart <laz...@gm...>
* Finish update APIs (gtk, gdk, pango) to newest version, and remove ApiTodoList from repo.
Ignore-this: ef3d687695ef00d4c1a8ddef3e86a2e4
hunk ./ApiUpdateTodoList.txt 1
--- | Below is TODO List that Update all Gtk+ API to 2.18.3
---
--- This file will remove after udpate all API complete.
--- Before that, we will convert tag `TODO` to tag `DONE`
--- when we finish update work with some module.
---
--- This TODO list is share list for gtk2hs developer (or anyone want to contribute)
--- So please make sure convert `DONE` tag here to avoid duplicate work.
---
--- For udpate new module, just unpack http://www.di.ens.fr/~simona/gtk-modules.tgz
--- Then do `diff` with same module in current version, then merge it. That's all.
--- Welcome help!
--- [_$_]
--- -- Andy Stewart
---
-
-** TODO Directory: gtk-modules
-*** DONE Accel.chs
-*** DONE Accelerator.chs
-*** DONE AccelGroup.chs
-*** DONE AccelMap.chs
-*** DONE Accessible.chs
-*** DONE Activatable.chs
-*** DONE AppLaunchContext.chs
-*** DONE Assistant.chs
-*** DONE Bindings.chs
-*** DONE Bitmap.chs
-*** DONE Border.chs
-*** DONE Buildable.chs
-*** DONE Builder.chs
-*** DONE CellEditable.chs
-*** DONE CellRendererAccel.chs
-*** DONE CellRendererSpin.chs
-*** DONE Char.chs
-*** DEPRECATED CList.chs
-*** DONE Color.chs
-*** DONE Colormap.chs
-*** DONE Colors.chs
-*** DEPRECATED CTree.chs
-*** DONE Cursor.chs
-*** DEPRECATED Curve.chs
-*** DONE CustomPaperUnixDialog.chs
-*** DONE Device.chs
-*** DONE Display.chs.pp
-*** DONE DisplayManager.chs
-*** DONE DragContext.chs
-*** DONE Drawable.chs
-*** DONE Draw.chs
-*** DONE Drop.chs
-*** DONE EntryBuffer.chs
-*** DONE Error.chs
-*** DONE Event.chs
-*** DONE FileChooserEmbed.chs
-*** DONE Font.chs
-*** DONE Fontset.chs
-*** DEPRECATED GammaCurve.chs
-*** DONE Gc.chs
-*** DONE GC.chs
-*** DONE Global.chs
-*** DONE Grab.chs
-*** DONE HRuler.chs
-*** DONE HSV.chs
-*** DONE Icon.chs
-*** TODO IconInfo.chs
-*** DONE IconSet.chs
-*** DONE IconSource.chs
-*** DONE IconTheme.chs
-*** DONE Idle.chs
-*** DONE IMContextSimple.chs
-*** DONE InfoBar.chs
-*** DONE Init.chs
-*** DONE Input.chs
-*** DONE InputDialog.chs
-*** DONE Invisible.chs
-*** DONE Item.chs
-*** DEPRECATED ItemFactory.chs
-*** DONE Keyboard.chs
-*** DONE Key.chs
-*** DONE Keymap.chs
-*** DONE Keyval.chs
-*** DONE LinkButton.chs
-*** DEPRECATED List.chs
-*** DEPRECATED ListItem.chs
-*** DONE Main.chs
-*** DONE MountOperation.chs
-*** DONE Notify.chs
-*** DONE Offscreen.chs
-*** DEPRECATED OldEditable.chs
-*** DONE Orientable.chs
-*** DONE PageSetup.chs
-*** DONE PageSetupUnixDialog.chs
-*** DONE Pango.chs
-*** DONE PangoRenderer.chs
-*** DONE PaperSize.chs
-*** DONE PixbufAniAnim.chs
-*** DONE PixbufAniAnimIter.chs
-*** DONE PixbufAnimation.chs
-*** DONE PixbufAnimationIter.chs
-*** DONE Pixbuf.chs
-*** DONE PixbufGdipAnim.chs
-*** DONE PixbufGdipAnimIter.chs
-*** DONE PixbufGifAnim.chs
-*** DONE PixbufGifAnimIter.chs
-*** DONE PixbufLoader.chs
-*** DONE PixbufSimpleAnim.chs
-*** DEPRECATED Pixmap.chs
-*** DONE Pointer.chs
-*** DEPRECATED Preview.chs
-*** NON-PORTABLE PrintBackend.chs
-*** NON-PORTABLE Print.chs
-*** DONE PrintContext.chs
-*** NON-PORTABLE Printer.chs
-*** DONE PrinterOption.chs
-*** DONE PrinterOptionSet.chs
-*** DONE PrinterOptionWidget.chs
-*** NON-PORTABLE PrintJob.chs
-*** DONE PrintOperation.chs
-*** DONE PrintOperationPreview.chs
-*** DONE PrintSettings.chs
-*** NON-PORTABLE PrintUnixDialog.chs
-*** DEPRECATED Progress.chs
-*** DONE Property.chs
-*** DONE Query.chs
-*** DONE Quit.chs
-*** DONE Rc.chs
-*** DONE RcStyle.chs
-*** DONE RecentAction.chs
-*** DONE RecentChooser.chs
-*** DONE RecentChooserDefault.chs
-*** DONE RecentChooserDialog.chs
-*** DONE RecentChooserMenu.chs
-*** DONE RecentChooserWidget.chs
-*** DONE RecentFilter.chs
-*** DONE RecentInfo.chs
-*** DONE RecentManager.chs
-*** DONE Rectangle.chs
-*** DONE Requisition.chs
-*** DONE Rgb.chs
-*** DONE Ruler.chs
-*** DONE ScaleButton.chs
-*** DONE Screen.chs
-*** DONE SearchEngineBeagle.chs
-*** DONE SearchEngine.chs
-*** DONE SearchEngineQuartz.chs
-*** DONE SearchEngineSimple.chs
-*** DONE SearchEngineTracker.chs
-*** DONE SelectionData.chs
-*** DONE Settings.chs
-*** DONE Signal.chs
-*** DONE Spawn.chs
-*** DONE Stock.chs
-*** DONE Target.chs
-*** DONE TargetList.chs
-*** DONE Targets.chs
-*** DONE TextAttributes.chs
-*** DONE TextChildAnchor.chs
-*** DEPRECATED Text.chs
-*** DONE Threads.chs
-*** DONE Timeout.chs
-*** DEPRECATED TipsQuery.chs
-*** DONE ToolShell.chs
-*** DONE Tooltip.chs
-*** DONE TrayIcon.chs
-*** DEPRECATED Tree.chs
-*** DONE TreeDragDest.chs
-*** DONE TreeDragSource.chs
-*** DONE TreeModelFilter.chs
-*** DONE Type.chs
-*** DONE Visual.chs
-*** DONE VolumeButton.chs
-*** DONE VRuler.chs
-*** DONE Win32EmbedWidget.chs
-*** DONE WindowImpl.chs
-
-** DONE Directory: gtk-modules/Graphics/UI/Gtk
-*** DONE Cairo.chs.pp
-
-** TODO Directory: gtk-modules/Graphics/UI/Gtk/Abstract
-*** DONE Bin.chs
-*** DONE Box.chs
-*** DONE ButtonBox.chs.pp
-*** TODO Container.chs.pp
-*** DONE IMContext.chs.pp
-*** DONE Misc.chs
-*** DONE Object.chs.pp
-*** DONE Paned.chs.pp
-*** DONE Range.chs.pp
-*** DONE Scale.chs
-*** DONE Scrollbar.hs
-*** DONE Separator.hs
-*** TODO Widget.chs.pp
-
-** TODO Directory: gtk-modules/Graphics/UI/Gtk/ActionMenuToolbar
-*** TODO Action.chs.pp
-*** DONE ActionGroup.chs.pp
-*** DONE RadioAction.chs.pp
-*** DONE ToggleAction.chs.pp
-*** DONE UIManager.chs.pp
-
-** DONE Directory: gtk-modules/Graphics/UI/Gtk/Buttons
-*** DONE Button.chs.pp
-*** DONE CheckButton.chs
-*** DONE RadioButton.chs.pp
-*** DONE ToggleButton.chs
-
-** TODO Directory: gtk-modules/Graphics/UI/Gtk/Display
-*** TODO AccelLabel.chs
-*** DONE Image.chs.pp
-*** DONE Label.chs.pp
-*** DONE ProgressBar.chs.pp
-*** DONE Statusbar.chs
-*** DONE StatusIcon.chs.pp
-
-** DONE Directory: gtk-modules/Graphics/UI/Gtk/Embedding
-*** DONE Plug.chs.pp
-*** DONE Socket.chs.pp
-
-** DONE Directory: gtk-modules/Graphics/UI/Gtk/Entry
-*** DONE Editable.chs.pp
-*** DONE Entry.chs.pp
-*** DONE EntryCompletion.chs.pp
-*** DONE HScale.chs
-*** DONE SpinButton.chs
-*** DONE VScale.chs
-
-** DONE Directory: gtk-modules/Graphics/UI/Gtk/General
-*** DONE Clipboard.chs.pp
-*** DONE Drag.chs.pp
-*** DONE IconFactory.chs.pp
-*** DONE Selection.chs.pp
-*** DONE Style.chs
-
-** TODO Directory: gtk-modules/Graphics/UI/Gtk/Layout
-*** DONE Alignment.chs.pp
-*** DONE AspectFrame.chs
-*** DONE Expander.chs.pp
-*** DONE Fixed.chs
-*** DONE HBox.chs
-*** DONE HButtonBox.chs
-*** DONE HPaned.chs
-*** DONE Layout.chs
-*** TODO Notebook.chs.pp
-*** DONE Table.chs
-*** DONE VBox.chs
-*** DONE VButtonBox.chs
-*** DONE VPaned.chs
-
-** DONE Directory: gtk-modules/Graphics/UI/Gtk/MenuComboToolbar
-*** DONE CheckMenuItem.chs.pp
-*** DONE ComboBox.chs.pp
-*** DONE ComboBoxEntry.chs.pp
-*** DEPRECATED Combo.chs.pp
-*** DEPRECATED ImageMenuItem.chs
-*** DONE MenuBar.chs.pp
-*** DONE Menu.chs.pp
-*** DONE MenuItem.chs
-*** DONE MenuShell.chs.pp
-*** DONE MenuToolButton.chs.pp
-*** DEPRECATED OptionMenu.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
-
-** DONE Directory: gtk-modules/Graphics/UI/Gtk/Misc
-*** DONE Adjustment.chs.pp
-*** DONE Arrow.chs
-*** DONE Calendar.chs.pp
-*** DONE DrawingArea.chs
-*** DONE EventBox.chs.pp
-*** DONE HandleBox.chs
-*** DONE IMMulticontext.chs.pp
-*** DONE SizeGroup.chs.pp
-*** DEPRECATED Tooltips.chs.pp
-*** DONE Viewport.chs
-
-
-** TODO Directory: gtk-modules/Graphics/UI/Gtk/ModelView
-*** DONE CellLayout.chs.pp
-*** DONE CellRenderer.chs.pp
-*** DONE CellRendererCombo.chs.pp
-*** DONE CellRendererPixbuf.chs.pp
-*** DONE CellRendererProgress.chs.pp
-*** TODO CellRendererText.chs.pp
-*** DONE CellRendererToggle.chs.pp
-*** DONE CellView.chs.pp
-*** DONE CustomStore.chs
-*** TODO IconView.chs.pp
-*** TODO ListStore.hs.pp
-*** TODO ListStoreStatic.hs
-*** DONE Sequence.hs.pp
-*** DONE TreeDrag.chs
-*** DONE TreeModel.chs.pp
-*** DONE TreeModelFilter.chs.pp
-*** DONE TreeModelSort.chs.pp
-*** DONE TreeRowReference.chs.pp
-*** DONE TreeSelection.chs.pp
-*** DONE TreeSortable.chs.pp
-*** TODO TreeStore.hs
-*** TODO TreeStoreStatic.hs
-*** TODO TreeView.chs.pp
-*** DONE TreeViewColumn.chs.pp
-
-** DONE Directory: gtk-modules/Graphics/UI/Gtk/Multiline
-*** DONE TextBuffer.chs.pp
-*** DONE TextIter.chs.pp
-*** DONE TextMark.chs
-*** DONE TextTag.chs.pp
-*** DONE TextTagTable.chs
-*** DONE TextView.chs.pp
-
-** DONE Directory: gtk-modules/Graphics/UI/Gtk/Ornaments
-*** DONE Frame.chs
-*** DONE HSeparator.chs
-*** DONE VSeparator.chs
-
-** DONE Directory: gtk-modules/Graphics/UI/Gtk/Scrolling
-*** DONE HScrollbar.chs
-*** DONE ScrolledWindow.chs.pp
-*** DONE VScrollbar.chs
-
-** DONE Directory: gtk-modules/Graphics/UI/Gtk/Selectors
-*** DONE ColorButton.chs.pp
-*** DONE ColorSelection.chs
-*** DONE ColorSelectionDialog.chs
-*** DONE FileChooserButton.chs.pp
-*** DONE FileChooser.chs.pp
-*** DONE FileChooserDialog.chs.pp
-*** DONE FileChooserWidget.chs.pp
-*** DONE FileFilter.chs.pp
-*** DEPRECATED FileSelection.chs.pp
-*** DONE FontButton.chs.pp
-*** DONE FontSelection.chs
-*** DONE FontSelectionDialog.chs
-
-** DEPRECATED Directory: gtk-modules/Graphics/UI/Gtk/TreeList
-*** DEPRECATED CellRenderer.hs
-*** DEPRECATED CellRendererPixbuf.chs
-*** DEPRECATED CellRendererText.chs
-*** DEPRECATED CellRendererToggle.chs
-*** DEPRECATED CellView.chs.pp
-*** DEPRECATED IconView.chs.pp
-*** DEPRECATED ListStore.chs.pp
-*** DEPRECATED TreeIter.chs.pp
-*** DEPRECATED TreeModel.chs.pp
-*** DEPRECATED TreeModelSort.chs.pp
-*** DEPRECATED TreePath.chs.pp
-*** DEPRECATED TreeRowReference.chs.pp
-*** DEPRECATED TreeSelection.chs.pp
-*** DEPRECATED TreeStore.chs.pp
-*** DEPRECATED TreeView.chs.pp
-*** DEPRECATED TreeViewColumn.chs.pp
-
-** DONE Directory: gtk-modules/Graphics/UI/Gtk/Windows
-*** DONE AboutDialog.chs.pp
-*** DONE Dialog.chs.pp
-*** DONE MessageDialog.chs.pp
-*** DONE Window.chs.pp
-*** DONE WindowGroup.chs
rmfile ./ApiUpdateTodoList.txt
hunk ./Makefile.am 298
+ glib/System/Glib/GScanner.chs.pp \
hunk ./Makefile.am 329
+ glib/System/Glib/GScanner_stub.o \
hunk ./glib/System/Glib.hs 8
+ module System.Glib.GScanner,
hunk ./glib/System/Glib.hs 20
+import System.Glib.GScanner
addfile ./glib/System/Glib/GScanner.chs.pp
hunk ./glib/System/Glib/GScanner.chs.pp 1
+-- -*-haskell-*-
+-- GIMP Toolkit (GTK)
+--
+-- Author : Andy Stewart
+--
+-- Created: 4 Apr 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)
+--
+-- TODO:
+-- GTokenValue [_$_]
+-- gScannerCurValue
+--
+module System.Glib.GScanner (
+-- * Details
+-- | The GScanner and its associated functions provide a general purpose lexical scanner.
+
+-- * Types
+ GScanner(GScanner),
+ GScannerConfig,
+ -- GTokenValue,
+
+-- * Enums
+ GTokenType,
+ GErrorType,
+
+-- * Methods [_$_]
+ -- gScannerNew,
+ gScannerInputFile,
+ gScannerSyncFileOffset,
+ gScannerInputText,
+ gScannerPeekNextToken,
+ gScannerCurLine,
+ gScannerCurPosition,
+ gScannerCurToken,
+ -- gScannerCurValue,
+ gScannerSetScope,
+ gScannerScopeAddSymbol,
+ gScannerScopeForeachSymbol,
+ gScannerScopeLookupSymbol,
+ gScannerLookupSymbol,
+ gScannerUnexpToken,
+ ) where
+
+import Control.Monad (liftM)
+
+import System.Glib.FFI
+import System.Glib.UTFString
+
+{# context lib="glib" prefix="g" #}
+
+----------------
+-- Types
+-- | The data structure representing a lexical scanner.
+-- [_$_]
+-- You should set @inputName@ after creating the scanner, since it is used by the default message
+-- handler when displaying warnings and errors. If you are scanning a file, the file name would be a
+-- good choice.
+-- [_$_]
+-- The @userData@ and @maxParseErrors@ fields are not used. If you need to associate extra data with the
+-- scanner you can place them here.
+-- [_$_]
+-- If you want to use your own message handler you can set the @msgHandler@ field. The type of the
+-- message handler function is declared by
+{#pointer *GScanner newtype#}
+
+-- | A union holding the value of the token.
+-- {#pointer *GTokenValue newtype#}
+
+data GScannerConfig = GScannerConfig {
+ -- Character sets.
+ csetSkipCharacters :: String,
+ csetIdentifierFirst :: String,
+ csetIdentifierNth :: String,
+ cpairCommentSingle :: String,
+
+ -- Should symbol lookup work case sensitive?
+ caseSensitive :: Bool,
+ [_$_]
+ -- Boolean value to be adjusted "on the the fly"
+ -- to configure scanning behaviour
+ skipCommentMulti :: Bool,
+ skipCommentSingle :: Bool,
+ scanIdentifier :: Bool,
+ scanIdentifier1char :: Bool,
+ scanIdentifierNull :: Bool,
+ scanSymbols :: Bool,
+ scanBinary :: Bool,
+ scanOctal :: Bool,
+ scanFloat :: Bool,
+ scanHex :: Bool,
+ scanHexDollar :: Bool,
+ scanStringSq :: Bool,
+ scanStringDq :: Bool,
+ numbers2Int :: Bool,
+ int2Float :: Bool,
+ identifier2String :: Bool,
+ char2Token :: Bool,
+ symbol2Token :: Bool,
+ scope0Fallback :: Bool,
+ storeInt64 :: Bool,
+ paddingDummy :: Bool
+ } deriving (Eq, Ord)
+
+----------------
+-- Enums
+-- | The possible types of token returned from each 'scannerGetNextToken' call.
+{#enum GTokenType {underscoreToCase} deriving (Bounded,Eq,Show)#}
+
+-- | The possible errors, used in the @vError@ field of GTokenValue, when the token is a GTokenError.
+{#enum GErrorType {underscoreToCase} deriving (Bounded,Eq,Show)#}
+
+-----------------
+-- Methods
+-- | Creates a new GScanner. The @configTempl@ structure specifies the initial settings of the scanner,
+-- which are copied into the GScanner config field. If you pass 'Nothing' then the default settings are
+-- used.
+-- gScannerNew :: GScannerConfig -> IO GScanner
+-- gScannerNew config =
+-- liftM GScanner $ [_$_]
+-- with config $ \ configPtr -> [_$_]
+-- {#call g_scanner_new#} (castPtr configPtr)
+
+-- | Prepares to scan a file.
+gScannerInputFile :: GScanner -> Int -> IO ()
+gScannerInputFile scanner fd =
+ {#call g_scanner_input_file#} scanner (fromIntegral fd)
+
+-- | Rewinds the filedescriptor to the current buffer position and blows the file read ahead buffer. This
+-- is useful for third party uses of the scanners filedescriptor, which hooks onto the current scanning
+-- position.
+gScannerSyncFileOffset :: GScanner -> IO ()
+gScannerSyncFileOffset scanner =
+ {#call g_scanner_sync_file_offset#} scanner
+
+-- | Prepares to scan a text buffer.
+gScannerInputText :: GScanner -> String -> Int -> IO ()
+gScannerInputText scanner text len =
+ withUTFString text $ \ textPtr -> [_$_]
+ {#call g_scanner_input_text#} [_$_]
+ scanner
+ textPtr
+ (fromIntegral len)
+
+-- | Parses the next token, without removing it from the input stream. The token data is placed in the
+-- @nextToken@, @nextValue@, @nextLine@, and @nextPosition@ fields of the GScanner structure.
+-- [_$_]
+-- Note that, while the token is not removed from the input stream (i.e. the next call to
+-- 'scannerGetNextToken', it will not be reevaluated. This can lead to
+-- surprising results when changing scope or the scanner configuration after peeking the next
+-- token. Getting the next token after switching the scope or configuration will return whatever was
+-- peeked before, regardless of any symbols that may have been added or removed in the new scope.
+gScannerPeekNextToken :: GScanner -> IO GTokenType
+gScannerPeekNextToken scanner =
+ liftM (toEnum . fromIntegral) $
+ {#call g_scanner_peek_next_token#} scanner
+
+-- | Parses the next token just like 'scannerPeekNextToken' and also removes it from the input
+-- stream. The token data is placed in the token, value, line, and position fields of the GScanner
+-- structure.
+gScannerGetNextToken :: GScanner -> IO GTokenType
+gScannerGetNextToken scanner =
+ liftM (toEnum . fromIntegral) $
+ {#call g_scanner_get_next_token#} scanner
+
+-- | Returns 'True' if the scanner has reached the end of the file or text buffer.
+gScannerEof :: GScanner -> IO Bool
+gScannerEof scanner =
+ liftM toBool $
+ {#call g_scanner_eof#} scanner
+
+-- | Returns the current line in the input stream (counting from 1). This is the line of the last token
+-- parsed via 'scannerGetNextToken'.
+gScannerCurLine :: GScanner -> IO Int
+gScannerCurLine scanner =
+ liftM fromIntegral $
+ {#call g_scanner_cur_line#} scanner
+ [_$_]
+-- | Returns the current position in the current line (counting from 0). This is the position of the last
+-- token parsed via 'scannerGetNextToken'.
+gScannerCurPosition :: GScanner -> IO Int
+gScannerCurPosition scanner =
+ liftM fromIntegral $
+ {#call g_scanner_cur_position#} scanner
+
+-- | Gets the current token type. This is simply the token field in the GScanner structure.
+gScannerCurToken :: GScanner -> IO GTokenType
+gScannerCurToken scanner =
+ liftM (toEnum . fromIntegral) $
+ {#call g_scanner_cur_token#} scanner
+
+-- | Gets the current token value. This is simply the value field in the GScanner structure.
+-- gScannerCurValue :: GScanner -> IO GTokenValue
+-- gScannerCurValue scanner =
+-- liftM GTokenValue $
+-- {#call g_scanner_cur_value#} scanner
+
+-- | Sets the current scope.
+gScannerSetScope :: GScanner -> Int -> IO Int
+gScannerSetScope scanner scopId =
+ liftM fromIntegral $
+ {#call g_scanner_set_scope#}
+ scanner
+ (fromIntegral scopId)
+
+-- | Adds a symbol to the given scope.
+gScannerScopeAddSymbol :: GScanner -> Int -> String -> String -> IO ()
+gScannerScopeAddSymbol scanner scopeId symbol value =
+ withUTFString symbol $ \ symbolPtr -> [_$_]
+ withUTFString value $ \ valuePtr -> [_$_]
+ {#call g_scanner_scope_add_symbol#}
+ scanner
+ (fromIntegral scopeId)
+ symbolPtr
+ (castPtr valuePtr)
+
+-- | Calls the given function for each of the symbol/value pairs in the given scope of the GScanner. The
+-- function is passed the symbol and value of each pair, and the given @userData@ parameter.
+gScannerScopeForeachSymbol :: GScanner -> Int -> ((String, String) -> IO ()) -> IO ()
+gScannerScopeForeachSymbol scanner scopeId func = do
+ funcPtr <- mkGHFunc $ \keyPtr valuePtr _ -> do
+ key <- peekCString keyPtr
+ value <- peekCString valuePtr
+ func (key, value)
+ {#call g_scanner_scope_foreach_symbol#}
+ scanner
+ (fromIntegral scopeId)
+ funcPtr
+ (castFunPtrToPtr funcPtr)
+ [_$_]
+{#pointer GHFunc#}
+
+foreign import ccall "wrapper" mkGHFunc :: [_$_]
+ (CString -> CString -> Ptr () -> IO ())
+ -> IO GHFunc [_$_]
+
+-- | Looks up a symbol in a scope and return its value. If the symbol is not bound in the scope, 'Nothing' is
+-- returned.
+gScannerScopeLookupSymbol :: GScanner -> Int -> String -> IO String
+gScannerScopeLookupSymbol scanner scopeId symbol =
+ withUTFString symbol $ \ symbolPtr -> do
+ valuePtr <- {#call g_scanner_scope_lookup_symbol#}
+ scanner
+ (fromIntegral scopeId)
+ symbolPtr
+ peekUTFString (castPtr valuePtr)
+
+-- | Removes a symbol from a scope.
+gScannerScopeRemoveSymbol :: GScanner -> Int -> String -> IO ()
+gScannerScopeRemoveSymbol scanner scopeId symbol =
+ withUTFString symbol $ \ symbolPtr -> [_$_]
+ {#call g_scanner_scope_remove_symbol#}
+ scanner [_$_]
+ (fromIntegral scopeId)
+ symbolPtr
+
+-- | Looks up a symbol in the current scope and return its value. If the symbol is not bound in the
+-- current scope, 'Nothing' is returned.
+gScannerLookupSymbol :: GScanner -> String -> IO String
+gScannerLookupSymbol scanner symbol =
+ withUTFString symbol $ \ symbolPtr -> do
+ valuePtr <- {#call g_scanner_lookup_symbol#}
+ scanner
+ symbolPtr
+ peekUTFString (castPtr valuePtr)
+
+-- | Outputs a message through the scanner's @msgHandler@, resulting from an unexpected token in the input
+-- stream. Note that you should not call 'scannerPeekNextToken' followed by
+-- 'scannerUnexpToken', as
+-- 'scannerUnexpToken' to construct
+-- part of the message.
+gScannerUnexpToken :: GScanner -> GTokenType -> String -> String -> String -> String -> Bool -> IO ()
+gScannerUnexpToken scanner expectedToken identifierSpec symbolSpec symbolName message isError =
+ withUTFString identifierSpec $ \ indentifierSpecPtr -> [_$_]
+ withUTFString symbolSpec $ \ symbolSpecPtr -> [_$_]
+ withUTFString symbolName $ \ symbolNamePtr -> [_$_]
+ withUTFString message $ \ messagePtr -> [_$_]
+ {#call g_scanner_unexp_token#}
+ scanner
+ ((fromIntegral . fromEnum) expectedToken)
+ indentifierSpecPtr
+ symbolSpecPtr
+ symbolNamePtr
+ messagePtr
+ (fromBool isError)
+
hunk ./gtk/Graphics/UI/Gtk/General/AccelMap.chs.pp 27
+--
hunk ./gtk/Graphics/UI/Gtk/General/AccelMap.chs.pp 53
- -- accelMapLoadScanner,
+ accelMapLoadScanner,
hunk ./gtk/Graphics/UI/Gtk/General/AccelMap.chs.pp 75
+import System.Glib.GScanner
hunk ./gtk/Graphics/UI/Gtk/General/AccelMap.chs.pp 226
--- |
---
--- accelMapLoadScanner ::
--- {-GScanner*-} -- ^ @scanner@ - a 'GScanner'
--- -- which has already been provided with an input file
--- -> IO ()
--- accelMapLoadScanner scanner =
--- {# call gtk_accel_map_load_scanner #}
--- {-scanner-}
+-- | GScanner variant of 'accelMapLoad'.
+accelMapLoadScanner ::
+ GScanner -- ^ @scanner@ - a 'GScanner'
+ -- which has already been provided with an input file
+ -> IO ()
+accelMapLoadScanner (GScanner scanner) =
+ {# call gtk_accel_map_load_scanner #}
+ (castPtr scanner)
hunk ./gtk/Graphics/UI/Gtk/General/General.chs 30
+-- gtk_get_option_group
hunk ./gtk/Graphics/UI/Gtk/Pango/GlyphStorage.chs.pp 33
+ extentsToPixels,
+
hunk ./gtk/Graphics/UI/Gtk/Pango/GlyphStorage.chs.pp 42
- -- matrixTransformRectangle,
- -- matrixTransformPixelRectangle,
+ matrixTransformRectangle,
+ matrixTransformPixelRectangle,
hunk ./gtk/Graphics/UI/Gtk/Pango/GlyphStorage.chs.pp 61
+ glyphItemApplyAttrs,
hunk ./gtk/Graphics/UI/Gtk/Pango/GlyphStorage.chs.pp 67
+import System.Glib.GList
hunk ./gtk/Graphics/UI/Gtk/Pango/GlyphStorage.chs.pp 88
+-- | Converts extents from Pango units to device units, dividing by the PangoScale factor and performing
+-- rounding.
+-- [_$_]
+-- The inclusive rectangle is converted by flooring the x/y coordinates and extending width/height,
+-- such that the final rectangle completely includes the original rectangle.
+-- [_$_]
+-- The nearest rectangle is converted by rounding the coordinates of the rectangle to the nearest
+-- device unit (pixel).
+-- [_$_]
+-- The rule to which argument to use is: if you want the resulting device-space rectangle to completely
+-- contain the original rectangle, pass it in as inclusive. If you want two
+-- touching-but-not-overlapping rectangles stay touching-but-not-overlapping after rounding to device
+-- units, pass them in as nearest.
+extentsToPixels :: PangoRectangle -> PangoRectangle -> IO ()
+extentsToPixels inclusive nearest =
+ with inclusive $ \ inclusivePtr -> [_$_]
+ with nearest $ \ nearestPtr -> [_$_]
+ {#call extents_to_pixels#} (castPtr inclusivePtr) (castPtr nearestPtr)
+
hunk ./gtk/Graphics/UI/Gtk/Pango/GlyphStorage.chs.pp 187
--- matrixTransformRectangle :: Matrix -> PangoRectangle -> IO PangoRectangle
--- matrixTransformRectangle mat rect =
--- with mat $ \ matPtr -> [_$_]
--- with rect $ \ rectPtr -> do
--- {#call matrix_transform_rectangle#} (castPtr matPtr) (castPtr rectPtr)
--- peek rectPtr
+matrixTransformRectangle :: Matrix -> PangoRectangle -> IO PangoRectangle
+matrixTransformRectangle mat rect =
+ with mat $ \ matPtr -> [_$_]
+ with rect $ \ rectPtr -> do
+ {#call matrix_transform_rectangle#} (castPtr matPtr) (castPtr rectPtr)
+ peek rectPtr
hunk ./gtk/Graphics/UI/Gtk/Pango/GlyphStorage.chs.pp 203
--- matrixTransformPixelRectangle :: Matrix -> PangoRectangle -> IO PangoRectangle
--- matrixTransformPixelRectangle mat rect =
--- with mat $ \ matPtr -> [_$_]
--- with rect $ \ rectPtr -> do
--- {#call matrix_transform_pixel_rectangle#} (castPtr matPtr) (castPtr rectPtr)
--- peek rectPtr
+matrixTransformPixelRectangle :: Matrix -> PangoRectangle -> IO PangoRectangle
+matrixTransformPixelRectangle mat rect =
+ with mat $ \ matPtr -> [_$_]
+ with rect $ \ rectPtr -> do
+ {#call matrix_transform_pixel_rectangle#} (castPtr matPtr) (castPtr rectPtr)
+ peek rectPtr
hunk ./gtk/Graphics/UI/Gtk/Pango/GlyphStorage.chs.pp 384
+
+-- | Splits a shaped item (PangoGlyphItem) into multiple items based on an attribute list. The idea is
+-- that if you have attributes that don't affect shaping, such as color or underline, to avoid
+-- affecting shaping, you filter them out ('attrListFilter', apply the shaping process and
+-- then reapply them to the result using this function.
+-- [_$_]
+-- All attributes that start or end inside a cluster are applied to that cluster; for instance, if half
+-- of a cluster is underlined and the other-half strikethrough, then the cluster will end up with both
+-- underline and strikethrough attributes. In these cases, it may happen that item->@extraAttrs@ for
+-- some of the result items can have multiple attributes of the same type.
+-- [_$_]
+-- This function takes ownership of @glyphItem@; it will be reused as one of the elements in the list.
+glyphItemApplyAttrs :: GlyphItem -> String -> PangoAttrList -> IO [GlyphItem]
+glyphItemApplyAttrs (GlyphItem (PangoItem ps pir) gs) text list = do
+ pirPtr1 <- {#call unsafe pango_item_copy#} pir
+ gsrPtr1 <- {#call unsafe glyph_string_copy#} gs
+ gslist <- [_$_]
+ withUTFString text $ \ textPtr -> [_$_]
+ allocaBytes {#sizeof PangoGlyphItem#} $ \giPtr1 -> do
+ {#set PangoGlyphItem.item#} giPtr1 pirPtr1
+ {#set PangoGlyphItem.glyphs#} giPtr1 gsrPtr1
+ {#call glyph_item_apply_attrs#} giPtr1 textPtr list
+ itemList <- fromGSList gslist
+ mapM (\giPtr2 -> do
+ pirPtr2 <- {#get PangoGlyphItem.item#} giPtr2
+ gsrPtr2 <- {#get PangoGlyphItem.glyphs#} giPtr2
+ {#call unsafe g_free#} giPtr2
+ pir2 <- makeNewPangoItemRaw pirPtr2
+ gsr2 <- makeNewGlyphStringRaw gsrPtr2
+ return (GlyphItem (PangoItem ps pir2) gsr2)
+ ) itemList
hunk ./gtk/Graphics/UI/Gtk/Pango/Rendering.chs.pp 46
- -- * 'PangoAttribute': Apply emphasis to parts of an output string.
- PangoAttribute(..),
-
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 1
+{-# LANGUAGE ScopedTypeVariables #-}
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 267
+
+instance Storable PangoRectangle where
+ sizeOf _ = #{const sizeof(PangoRectangle)}
+ alignment _ = alignment (undefined:: #gtk2hs_type gdouble)
+ peek ptr = do
+ (x_ ::#gtk2hs_type gdouble) <- #{peek PangoRectangle, x} ptr
+ (y_ ::#gtk2hs_type gdouble) <- #{peek PangoRectangle, y} ptr
+ (width_ ::#gtk2hs_type gdouble) <- #{peek PangoRectangle, width} ptr
+ (height_ ::#gtk2hs_type gdouble) <- #{peek PangoRectangle, height} ptr
+ return $ PangoRectangle (realToFrac x_) (realToFrac y_) [_$_]
+ (realToFrac width_) (realToFrac height_)
+ poke ptr (PangoRectangle x y width height) = do
+ #{poke PangoRectangle, x} ptr ((realToFrac x)::#gtk2hs_type gdouble)
+ #{poke PangoRectangle, y} ptr ((realToFrac y)::#gtk2hs_type gdouble)
+ #{poke PangoRectangle, width} ptr ((realToFrac width)::#gtk2hs_type gdouble)
+ #{poke PangoRectangle, height} ptr ((realToFrac height)::#gtk2hs_type gdouble)
hunk ./gtk/Graphics/UI/Gtk/Pango/Types.chs.pp 87
+ PangoAttrClass(PangoAttrClass),
hunk ./gtk/Graphics/UI/Gtk/Pango/Types.chs.pp 90
+ PangoLogAttr(PangoLogAttr),
hunk ./gtk/Graphics/UI/Gtk/Pango/Types.chs.pp 580
+-- | The PangoAttrClass structure stores the type and operations for a particular type of attribute. The
+-- functions in this structure should not be called directly. Instead, one should use the wrapper
+-- functions provided for PangoAttribute.
+{#pointer *PangoAttrClass newtype#}
+
hunk ./gtk/Graphics/UI/Gtk/Pango/Types.chs.pp 598
+-- | The PangoLogAttr structure stores information about the attributes of a single character.
+data PangoLogAttr = PangoLogAttr {
+ -- | Can break line in front of character
+ isLineBreak :: Bool,
+ -- | Must break line in front of character
+ isMandatoryBreak :: Bool,
+ -- | Can break here when doing char wrap
+ isCharBreak :: Bool,
+ -- | Whitespace character
+ isWhite :: Bool,
+ -- | Cursor can appear in front of character (i.e. this is a grapheme boundary, or the first character in the text).
+ isCursorPosition :: Bool,
+ -- | Note that in degenerate cases, you could have both start/end set on
+ -- some text, most likely for sentences (e.g. no space after a period, so
+ -- the next sentence starts right away).
+ isWordStart :: Bool,
+ isWordEnd :: Bool,
+ -- | There are two ways to divide sentences. The first assigns all
+ -- intersentence whitespace/control/format chars to some sentence,
+ -- so all chars are in some sentence; is_sentence_boundary denotes
+ -- the boundaries there. The second way doesn't assign
+ -- between-sentence spaces, etc. to any sentence, so
+ -- is_sentence_start/is_sentence_end mark the boundaries of those
+ -- sentences.
+ isSentenceBoundary :: Bool,
+ isSentenceStart :: Bool,
+ isSentenceEnd :: Bool,
+ -- | If set, backspace deletes one character rather than the entire grapheme cluster. [_$_]
+ backspaceDeletesCharacter :: Bool,
+ -- | Only few space variants (U+0020 and U+00A0) have variable width during justification. [_$_]
+ isExpandableSpace :: Bool,
+ -- | Word boundary as defined by UAX#29
+ isWordBoundary :: Bool
+}
|
|
From: Andy S. <And...@co...> - 2010-04-04 10:42:05
|
Sun Apr 4 06:41:06 EDT 2010 Andy Stewart <laz...@gm...>
* Add GIcon functions and update some unfinished functions.
Ignore-this: 6067876f02e99b5d995c3d4b328f9266
hunk ./ApiUpdateTodoList.txt 44
-*** TODO Display.chs.pp
+*** DONE Display.chs.pp
hunk ./ApiUpdateTodoList.txt 67
-*** TODO IconTheme.chs
+*** DONE IconTheme.chs
hunk ./ApiUpdateTodoList.txt 90
-*** TODO PageSetup.chs
-*** TODO PageSetupUnixDialog.chs
+*** DONE PageSetup.chs
+*** DONE PageSetupUnixDialog.chs
hunk ./ApiUpdateTodoList.txt 94
-*** TODO PaperSize.chs
+*** DONE PaperSize.chs
hunk ./ApiUpdateTodoList.txt 111
-*** TODO PrintContext.chs
+*** DONE PrintContext.chs
hunk ./ApiUpdateTodoList.txt 119
-*** TODO PrintSettings.chs
+*** DONE PrintSettings.chs
hunk ./ApiUpdateTodoList.txt 130
-*** TODO RecentChooserDialog.chs
+*** DONE RecentChooserDialog.chs
hunk ./ApiUpdateTodoList.txt 140
-*** TODO ScaleButton.chs
+*** DONE ScaleButton.chs
hunk ./ApiUpdateTodoList.txt 148
-*** TODO Settings.chs
+*** DONE Settings.chs
hunk ./ApiUpdateTodoList.txt 208
-*** TODO Image.chs.pp
+*** DONE Image.chs.pp
hunk ./ApiUpdateTodoList.txt 212
-*** TODO StatusIcon.chs.pp
+*** DONE StatusIcon.chs.pp
hunk ./ApiUpdateTodoList.txt 218
-** TODO Directory: gtk-modules/Graphics/UI/Gtk/Entry
+** DONE Directory: gtk-modules/Graphics/UI/Gtk/Entry
hunk ./ApiUpdateTodoList.txt 220
-*** TODO Entry.chs.pp
+*** DONE Entry.chs.pp
hunk ./ApiUpdateTodoList.txt 223
-*** TODO SpinButton.chs
+*** DONE SpinButton.chs
hunk ./ApiUpdateTodoList.txt 226
-** TODO Directory: gtk-modules/Graphics/UI/Gtk/General
-*** TODO Clipboard.chs.pp
+** DONE Directory: gtk-modules/Graphics/UI/Gtk/General
+*** DONE Clipboard.chs.pp
hunk ./ApiUpdateTodoList.txt 231
-*** TODO Style.chs
+*** DONE Style.chs
hunk ./ApiUpdateTodoList.txt 248
-** TODO Directory: gtk-modules/Graphics/UI/Gtk/MenuComboToolbar
+** DONE Directory: gtk-modules/Graphics/UI/Gtk/MenuComboToolbar
hunk ./ApiUpdateTodoList.txt 250
-*** TODO ComboBox.chs.pp
+*** DONE ComboBox.chs.pp
hunk ./ApiUpdateTodoList.txt 285
-*** TODO CellRenderer.chs.pp
+*** DONE CellRenderer.chs.pp
hunk ./ApiUpdateTodoList.txt 287
-*** TODO CellRendererPixbuf.chs.pp
+*** DONE CellRendererPixbuf.chs.pp
hunk ./ApiUpdateTodoList.txt 327
-** TODO Directory: gtk-modules/Graphics/UI/Gtk/Selectors
+** DONE Directory: gtk-modules/Graphics/UI/Gtk/Selectors
hunk ./ApiUpdateTodoList.txt 332
-*** TODO FileChooser.chs.pp
+*** DONE FileChooser.chs.pp
hunk ./Makefile.am 601
+if ENABLE_GIO
+libHSgtk_a_INTERNALDEPS += gio
+endif
+
hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/Action.chs.pp 168
+#ifdef ENABLE_GIO
+ actionGicon,
+#endif
hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/Action.chs.pp 196
+#ifdef ENABLE_GIO
+{#import System.GIO.Types#}
+#endif
hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/Action.chs.pp 621
+#ifdef ENABLE_GIO
+-- | The GIcon displayed in the 'Action'.
+-- [_$_]
+-- Note that the stock icon is preferred, if the 'stockId' property holds the id of an existing stock
+-- icon.
+-- [_$_]
+-- This is an appearance property and thus only applies if 'useActionAppearance' is 'True'.
+actionGicon :: ActionClass self => Attr self Icon
+actionGicon = newAttrFromObjectProperty "gicon"
+ {#call pure unsafe g_icon_get_type#}
+#endif
+
hunk ./gtk/Graphics/UI/Gtk/Buttons/ScaleButton.chs.pp 74
- -- scaleButtonIcons,
+ scaleButtonIcons,
hunk ./gtk/Graphics/UI/Gtk/Buttons/ScaleButton.chs.pp 254
--- scaleButtonIcons :: ScaleButtonClass self => Attr self [String]
--- scaleButtonIcons = newAttrFromStringsProperty "icons"
+scaleButtonIcons :: ScaleButtonClass self => ReadWriteAttr self [String] (Maybe [String])
+scaleButtonIcons =
+ newAttr (objectGetPropertyBoxedOpaque (peekUTFStringArray0 . castPtr) gtype "search-path")
+ (objectSetPropertyBoxedOpaque (\dirs f -> maybeWith withUTFStringArray0 dirs (f . castPtr)) gtype "search-path")
+ where gtype = {#call pure g_strv_get_type#}
+
hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs.pp 106
+ imageGetIconSet,
+ imageGetImage,
+ imageGetPixmap,
+ imageGetStock,
+ imageGetIconName,
+ imageGetAnimation,
+ imageGetStorageType,
+ imageNewFromIconSet, [_$_]
+ imageNewFromImage,
+ imageNewFromPixmap,
+ imageSetFromIconSet,
+ imageSetFromImage,
+ imageSetFromPixmap,
+
hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs.pp 144
+#ifdef ENABLE_GIO
+ imageGicon,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs.pp 169
+import Graphics.UI.Gtk.General.IconFactory (IconSet(IconSet), mkIconSet)
+import Graphics.UI.Gtk.General.Structs (IconSize(..))
+import Graphics.UI.Gtk.Gdk.Pixmap (Bitmap, mkBitmap)
+#ifdef ENABLE_GIO
+{#import System.GIO.Types#}
+#endif
hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs.pp 286
+-- | Gets the icon set and size being displayed by the 'Image'. The storage type of the image must be
+-- 'ImageEmpty' or 'IMAGEIconSet (See 'ImageGetStorageType''.
+imageGetIconSet :: Image -> IO ([IconSet], IconSize)
+imageGetIconSet image =
+ allocaArray 0 $ \ setPtr -> [_$_]
+ alloca $ \ sizePtr -> do
+ {#call unsafe image_get_icon_set#}
+ image
+ (castPtr setPtr)
+ sizePtr
+ set_ <- peekArray 0 setPtr
+ set <- mapM mkIconSet set_
+ size <- peek sizePtr
+ return (set, (toEnum (fromIntegral size)))
+
+-- | Gets the 'Image' and mask being displayed by the 'Image'. The storage type of the image must be
+-- 'ImageEmpty' or 'IMAGEImage (See 'ImageGetStorageType''. The caller of this function
+-- does not own a reference to the returned image and mask.
+imageGetImage :: Image -> IO ([Image], [Bitmap])
+imageGetImage image =
+ allocaArray 0 $ \ imagesPtr -> [_$_]
+ allocaArray 0 $ \ bitmapsPtr -> do
+ {#call image_get_image#}
+ image
+ (castPtr imagesPtr)
+ (castPtr bitmapsPtr)
+ images <- mapM (makeNewObject mkImage . return) =<< peekArray 0 imagesPtr
+ bitmaps_ <- peekArray 0 bitmapsPtr
+ bitmaps <- mapM mkBitmap bitmaps_
+ return (images, bitmaps)
+
+-- | Gets the pixmap and mask being displayed by the 'Image'. The storage type of the image must be
+-- 'ImageEmpty' or 'IMAGEPixmap (See 'ImageGetStorageType''. The caller of this function
+-- does not own a reference to the returned pixmap and mask.
+imageGetPixmap :: Image -> IO ([Pixmap], [Bitmap])
+imageGetPixmap image = [_$_]
+ allocaArray 0 $ \ imagesPtr -> [_$_]
+ allocaArray 0 $ \ bitmapsPtr -> do
+ {#call image_get_image#}
+ image
+ (castPtr imagesPtr)
+ (castPtr bitmapsPtr)
+ images <- mapM (makeNewGObject mkPixmap . return) =<< peekArray 0 imagesPtr
+ bitmaps_ <- peekArray 0 bitmapsPtr
+ bitmaps <- mapM mkBitmap bitmaps_
+ return (images, bitmaps)
+
+-- | Gets the stock icon name and size being displayed by the 'Image'. The storage type of the image
+-- must be 'ImageEmpty' or 'IMAGEStock (See 'ImageGetStorageType''. The returned string
+-- is owned by the 'Image' and should not be freed.
+imageGetStock :: Image -> IO ([String], IconSize)
+imageGetStock image =
+ allocaArray 0 $ \ idPtr -> [_$_]
+ alloca $ \ sizePtr -> do
+ {#call image_get_stock#}
+ image
+ idPtr
+ sizePtr
+ idStr <- mapM peekCString =<< peekArray 0 idPtr
+ size <- peek sizePtr
+ return (idStr, (toEnum (fromIntegral size)))
+
+-- | Gets the icon name and size being displayed by the 'Image'. The storage type of the image must be
+-- 'ImageEmpty' or 'IMAGEIconName (See 'ImageGetStorageType''. The returned string is
+-- owned by the 'Image' and should not be freed.
+imageGetIconName :: Image -> IO ([String], IconSize)
+imageGetIconName image =
+ allocaArray 0 $ \ idPtr -> [_$_]
+ alloca $ \ sizePtr -> do
+ {#call image_get_stock#}
+ image
+ idPtr
+ sizePtr
+ idStr <- mapM peekCString =<< peekArray 0 idPtr
+ size <- peek sizePtr
+ return (idStr, (toEnum (fromIntegral size)))
+
+-- | Gets the 'PixbufAnimation' being displayed by the 'Image'. The storage type of the image must be
+-- 'ImageEmpty' or 'IMAGEAnimation (See 'ImageGetStorageType''. The caller of this
+-- function does not own a reference to the returned animation.
+imageGetAnimation :: Image -> IO PixbufAnimation
+imageGetAnimation image =
+ makeNewGObject mkPixbufAnimation $
+ {#call image_get_animation#} image
+
+-- | Gets the type of representation being used by the 'Image' to store image data. If the 'Image' has
+-- no image data, the return value will be 'ImageEmpty'.
+imageGetStorageType :: Image -> IO ImageType
+imageGetStorageType image =
+ liftM (toEnum . fromIntegral) $
+ {#call image_get_storage_type#} image
+
+-- | Creates a 'Image' displaying an icon set. Sample stock sizes are 'IconSizeMenu',
+-- 'IconSizeSmallToolbar'. Instead of using this function, usually it's better to create a
+-- 'IconFactory', put your icon sets in the icon factory, add the icon factory to the list of default
+-- factories with 'iconFactoryAddDefault'. This will
+-- allow themes to override the icon you ship with your application.
+-- [_$_]
+-- The 'Image' does not assume a reference to the icon set; you still need to unref it if you own
+-- references. 'Image' will add its own reference rather than adopting yours.
+imageNewFromIconSet :: IconSet -> IconSize -> IO Image
+imageNewFromIconSet (IconSet set) size =
+ makeNewObject mkImage $ liftM castPtr $
+ withForeignPtr set $ \setPtr ->
+ {#call image_new_from_icon_set#} (castPtr setPtr) ((fromIntegral . fromEnum) size)
+
+-- | Creates a 'Image' widget displaying a image with a mask. A 'Image' is a client-side image buffer
+-- in the pixel format of the current display. The 'Image' does not assume a reference to the image or
+-- mask; you still need to unref them if you own references. 'Image' will add its own reference rather
+-- than adopting yours.
+imageNewFromImage :: Image -> Bitmap -> IO Image
+imageNewFromImage (Image image) (Pixmap mask) =
+ makeNewObject mkImage $ liftM castPtr $
+ withForeignPtr image $ \imagePtr ->
+ withForeignPtr mask $ \maskPtr ->
+ {#call image_new_from_image#} (castPtr imagePtr) (castPtr maskPtr)
+
+-- | Creates a 'Image' widget displaying pixmap with a mask. A 'Pixmap' is a server-side image buffer
+-- in the pixel format of the current display. The 'Image' does not assume a reference to the pixmap
+-- or mask; you still need to unref them if you own references. 'Image' will add its own reference
+-- rather than adopting yours.
+imageNewFromPixmap :: Pixmap -> Bitmap -> IO Image
+imageNewFromPixmap pixmap (Pixmap mask) =
+ makeNewObject mkImage $ liftM castPtr $
+ withForeignPtr mask $ \ maskPtr -> [_$_]
+ {#call image_new_from_pixmap#} pixmap (castPtr maskPtr)
+
+-- | See 'imageNewFromIconSet' for details.
+imageSetFromIconSet :: Image -> IconSet -> IconSize -> IO ()
+imageSetFromIconSet image (IconSet set) size =
+ withForeignPtr set $ \setPtr ->
+ {#call image_set_from_icon_set#}
+ image
+ (castPtr setPtr)
+ ((fromIntegral . fromEnum) size)
+
+-- | See 'imageNewFromImage' for details.
+imageSetFromImage :: Image -> Image -> Bitmap -> IO ()
+imageSetFromImage image (Image gdkImage) (Pixmap mask) =
+ withForeignPtr gdkImage $ \ gdkImagePtr -> [_$_]
+ withForeignPtr mask $ \ maskPtr -> [_$_]
+ {#call image_set_from_image#}
+ image
+ (castPtr gdkImagePtr)
+ (castPtr maskPtr)
+
+-- | See 'imageNewFromPixmap' for details.
+imageSetFromPixmap :: Image -> Pixmap -> Bitmap -> IO ()
+imageSetFromPixmap image pixmap (Pixmap mask) =
+ withForeignPtr mask $ \maskPtr ->
+ {#call image_set_from_pixmap#}
+ image
+ pixmap
+ (castPtr maskPtr)
+
hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs.pp 583
+#ifdef ENABLE_GIO
+-- | The GIcon displayed in the 'Image'. For themed icons, If the icon theme is changed, the image will
+-- be updated automatically.
+-- [_$_]
+-- Since 2.14
+imageGicon :: Attr Image Icon
+imageGicon = newAttrFromObjectProperty "gicon"
+ {#call pure unsafe g_icon_get_type#}
+#endif
+
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 118
+#ifdef ENABLE_GIO
+ statusIconGicon,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 171
-
+#ifdef ENABLE_GIO
+{#import System.GIO.Types#}
+#endif
hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs.pp 530
+#ifdef ENABLE_GIO
+-- | The GIcon displayed in the 'StatusIcon'. For themed icons, the image will be updated automatically
+-- if the theme changes.
+-- [_$_]
+-- Since 2.14
+statusIconGicon :: StatusIconClass self => Attr self Icon
+statusIconGicon = newAttrFromObjectProperty "gicon"
+ {#call pure unsafe g_icon_get_type#}
+#endif
+
hunk ./gtk/Graphics/UI/Gtk/Entry/Editable.chs.pp 294
-insertText = Signal (connect_STRINGPTR_INT__INTPTR "insert-text")
-
--- | Singal helper functions.
-connect_STRINGPTR_INT__INTPTR ::
- EditableClass self => SignalName ->
- ConnectAfter -> self ->
- (String -> Int -> IO Int) ->
- IO (ConnectId self)
-connect_STRINGPTR_INT__INTPTR signal after obj user =
- connectGeneric signal after obj
- (\strPtr strLen posPtr -> do
- str <- if strLen<0 then peekUTFString strPtr
- else peekUTFStringLen (strPtr, strLen)
- pos <- peek (posPtr :: Ptr {#type gint#})
- pos' <- user str (fromIntegral pos)
- poke (posPtr :: Ptr {#type gint#}) (fromIntegral pos')
- )
+insertText = Signal (\after obj user -> connect_PTR_INT_PTR__NONE "insert-text" after obj [_$_]
+ (\strPtr strLen posPtr -> do
+ str <- if strLen < 0 [_$_]
+ then peekUTFString strPtr
+ else peekUTFStringLen (strPtr, strLen)
+ pos <- peek (posPtr :: Ptr {#type gint#})
+ pos' <- user str (fromIntegral pos)
+ poke (posPtr :: Ptr {#type gint#}) (fromIntegral pos'))) [_$_]
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 123
- -- entrySetIconFromGicon,
+#ifdef ENABLE_GIO
+ entrySetIconFromGicon,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 130
- -- entryGetIconGicon,
+#ifdef ENABLE_GIO
+ entryGetIconGicon,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 167
- -- entryPrimaryIconGicon,
- -- entrySecondaryIconGicon,
+#ifdef ENABLE_GIO
+ entryPrimaryIconGicon,
+ entrySecondaryIconGicon,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 246
+#ifdef ENABLE_GIO
+{#import System.GIO.Types#}
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 720
+#ifdef ENABLE_GIO
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 729
--- entrySetIconFromGicon :: EntryClass self => self
--- -> IconPosition -- ^ @iconPos@ - The position at which to set the icon
--- -> Maybe GIcon -- ^ @icon@ - The icon to set, or 'Nothing'
--- -> IO ()
--- entrySetIconFromGicon self iconPos icon =
--- {# call entry_set_icon_from_gicon #}
--- (toEntry self)
--- ((fromIntegral . fromEnum) iconPos)
--- icon
+entrySetIconFromGicon :: (EntryClass self, IconClass icon) => self
+ -> IconPosition -- ^ @iconPos@ - The position at which to set the icon
+ -> icon -- ^ @icon@ - The icon to set, or 'Nothing'
+ -> IO ()
+entrySetIconFromGicon self iconPos icon =
+ {# call entry_set_icon_from_gicon #}
+ (toEntry self)
+ ((fromIntegral . fromEnum) iconPos)
+ (toIcon icon)
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 808
+#ifdef ENABLE_GIO
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 814
--- entryGetIconGicon :: EntryClass self => self
--- -> IconPosition -- ^ @iconPos@ - Icon position
--- -> IO GIcon -- ^ returns A {GIcon, FIXME: unknown type\/value}, or
--- -- {@NULL@, FIXME: this should probably be converted to a
--- -- Maybe data type} if no icon is set or if the icon is
--- -- not a {GIcon, FIXME: unknown type\/value}
--- entryGetIconGicon self iconPos =
--- {# call entry_get_icon_gicon #}
--- (toEntry self)
--- ((fromIntegral . fromEnum) iconPos)
+entryGetIconGicon :: EntryClass self => self
+ -> IconPosition -- ^ @iconPos@ - Icon position
+ -> IO Icon -- ^ returns A {GIcon, FIXME: unknown type\/value}, or
+ -- {@NULL@, FIXME: this should probably be converted to a
+ -- Maybe data type} if no icon is set or if the icon is
+ -- not a {GIcon, FIXME: unknown type\/value}
+entryGetIconGicon self iconPos =
+ makeNewGObject mkIcon $
+ {# call entry_get_icon_gicon #}
+ (toEntry self)
+ ((fromIntegral . fromEnum) iconPos)
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs.pp 1194
--- entryPrimaryIconGicon :: EntryClass self => Attr self {-GIcon-}
--- entryPrimaryIconGicon = newAttrFrom{-GIcon-}Property "primary-icon-gicon"
-
--- |
---
--- entrySecondaryIconGicon :: EntryClass self => Attr self {-GIcon-}
--- entrySecondaryIconGicon = newAttrFrom{-GIcon-}Property "secondary-icon-gicon"
+#ifdef ENABLE_GIO
+-- | The GIcon to use for the primary icon for the entry.
+entryPrimaryIconGicon :: EntryClass self => Attr self Icon
+entryPrimaryIconGicon = newAttrFromObjectProperty "primary-icon-gicon"
+ {#call pure unsafe g_icon_get_type#}
+-- | The GIcon to use for the secondary icon for the entry.
+-- [_$_]
+-- Since 2.16
+entrySecondaryIconGicon :: EntryClass self => Attr self Icon
+entrySecondaryIconGicon = newAttrFromObjectProperty "secondary-icon-gicon"
+ {#call pure unsafe g_icon_get_type#}
+#endif
hunk ./gtk/Graphics/UI/Gtk/Entry/SpinButton.chs 27
--- TODO: signal `input`, then deprecated `onInput` and `afterInput`.
---
hunk ./gtk/Graphics/UI/Gtk/Entry/SpinButton.chs 99
- -- input,
+ input,
hunk ./gtk/Graphics/UI/Gtk/Entry/SpinButton.chs 508
--- input :: SpinButtonClass self => Signal self (IO (Maybe Double) -> IO ())
+input :: SpinButtonClass self => Signal self (IO (Maybe Double))
+input = Signal (\after obj user -> connect_PTR__INT "input" after obj [_$_]
+ (\dPtr -> do
+ mVal <- user
+ case mVal of
+ (Just val) -> do
+ poke dPtr ((realToFrac val)::{#type gdouble#})
+ return 0
+ Nothing -> return (fromIntegral inputError)
+ ))
hunk ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs.pp 37
- -- appLaunchContextSetIcon,
+#ifdef ENABLE_GIO
+ appLaunchContextSetIcon,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs.pp 51
+#ifdef ENABLE_GIO
+{#import System.GIO.Types#}
+#endif
hunk ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs.pp 65
--- |
---
+-- | Creates a new 'AppLaunchContext'.
hunk ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs.pp 74
--- |
---
+-- | Sets the workspace on which applications will be launched when using this context when running under
+-- a window manager that supports multiple workspaces, as described in the Extended Window Manager
+-- Hints.
+-- [_$_]
+-- When the workspace is not specified or desktop is set to -1, it is up to the window manager to pick
+-- one, typically it will be the current workspace.
hunk ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs.pp 86
--- |
---
+-- | Sets the display on which applications will be launched when using this context. See also
+-- 'appLaunchContextSetScreen'.
hunk ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs.pp 94
--- |
---
--- appLaunchContextSetIcon :: AppLaunchContext -> {-GIcon*-} -> IO ()
--- appLaunchContextSetIcon self icon =
--- {# call gdk_app_launch_context_set_icon #}
--- self
--- {-icon-}
+#ifdef ENABLE_GIO
+-- | Sets the icon for applications that are launched with this context.
+-- [_$_]
+-- Window Managers can use this information when displaying startup notification.
+appLaunchContextSetIcon :: IconClass icon => AppLaunchContext -> icon -> IO ()
+appLaunchContextSetIcon self icon =
+ {# call gdk_app_launch_context_set_icon #}
+ self
+ (toIcon icon)
+#endif
hunk ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs.pp 105
--- |
---
+-- | Sets the icon for applications that are launched with this context. The @iconName@ will be
+-- interpreted in the same way as the Icon field in desktop files. See also
+-- 'appLaunchContextSetIcon'.
+-- [_$_]
+-- If both icon and @iconName@ are set, the @iconName@ takes priority. If neither icon or @iconName@ is
+-- set, the icon is taken from either the file that is passed to launched application or from the
+-- GAppInfo for the launched application itself.
hunk ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs.pp 119
--- |
---
+-- | Sets the screen on which applications will be launched when using this context. See also
+-- 'appLaunchContextSetDisplay'.
+-- [_$_]
+-- If both screen and display are set, the screen takes priority. If neither screen or display are set,
+-- the default screen and display are used.
hunk ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs.pp 130
--- |
---
+-- | Sets the timestamp of context. The timestamp should ideally be taken from the event that triggered
+-- the launch.
+-- [_$_]
+-- Window managers can use this information to avoid moving the focus to the newly launched application
+-- when the user is busy typing in another window. This is also known as 'focus stealing prevention'.
hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixmap.chs.pp 45
+ mkBitmap,
hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixmap.chs.pp 285
- liftM Pixmap $ newForeignPtr_ (castPtr bitmapPtr)
+ mkBitmap $ castPtr bitmapPtr
+
+-- | Helper functions for build 'Bitmap'.
+mkBitmap :: Ptr Bitmap -> IO Bitmap
+mkBitmap bitmapPtr =
+ liftM Pixmap $ newForeignPtr_ bitmapPtr
hunk ./gtk/Graphics/UI/Gtk/General/IconFactory.chs.pp 82
- IconSet,
+ IconSet(IconSet),
hunk ./gtk/Graphics/UI/Gtk/General/IconTheme.chs.pp 102
+#ifdef ENABLE_GIO
hunk ./gtk/Graphics/UI/Gtk/General/IconTheme.chs.pp 104
- -- iconThemeLookupByGicon,
+ iconThemeLookupByGicon,
+#endif
hunk ./gtk/Graphics/UI/Gtk/General/IconTheme.chs.pp 139
+#ifdef ENABLE_GIO
+{#import System.GIO.Types#}
+#endif
hunk ./gtk/Graphics/UI/Gtk/General/IconTheme.chs.pp 361
+#ifdef ENABLE_GIO
hunk ./gtk/Graphics/UI/Gtk/General/IconTheme.chs.pp 369
--- iconThemeLookupByGicon :: IconThemeClass self => self
--- -> {-GIcon*-} -- ^ @icon@ - the {GIcon, FIXME: unknown type\/value}
--- -- to look up
--- -> Int -- ^ @size@ - desired icon size
--- -> [IconLookupFlags] -- ^ @flags@ - flags modifying the behavior of the
--- -- icon lookup
--- -> IO IconInfo -- ^ returns a 'IconInfo'
--- -- structure containing information about the icon, or
--- -- {@NULL@, FIXME: this should probably be converted to
--- -- a Maybe data type} if the icon wasn't found. Free
--- -- with 'iconInfoFree'
--- iconThemeLookupByGicon self icon size flags =
--- {# call gtk_icon_theme_lookup_by_gicon #}
--- (toIconTheme self)
--- {-icon-}
--- (fromIntegral size)
--- ((fromIntegral . fromFlags) flags)
+iconThemeLookupByGicon :: (IconThemeClass self, IconClass icon) => self
+ -> icon -- ^ @icon@ - the 'Icon' to look up
+ -> Int -- ^ @size@ - desired icon size
+ -> IconLookupFlags -- ^ @flags@ - flags modifying the behavior of the
+ -- icon lookup
+ -> IO (Maybe IconInfo) -- ^ returns a 'IconInfo'
+ -- structure containing information about the icon, or
+ -- 'Nothing' if the icon wasn't found. Free
+ -- with 'iconInfoFree'
+iconThemeLookupByGicon self icon size flags = do
+ iiPtr <- {# call gtk_icon_theme_lookup_by_gicon #}
+ (toIconTheme self)
+ (toIcon icon)
+ (fromIntegral size)
+ ((fromIntegral . fromEnum) flags)
+ if iiPtr == nullPtr [_$_]
+ then return Nothing
+ else liftM Just (mkIconInfo (castPtr iiPtr))
+#endif
hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs.pp 9
--- Copyright (C) 2009 Andy Stewart
+-- Copyright (C) 2009-2010 Andy Stewart
hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs.pp 28
--- Signals:
--- focusTab
hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs.pp 31
--- Don't binding `group-id` attribute, even set/get_group_id functions is deprecated)
+-- Don't binding `group-id` attribute, even set/get_group_id functions is deprecated
hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs.pp 72
+-- * Enums
+ NotebookTab(..),
+
hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs.pp 117
- Packing(..), PackType(..),
+ Packing(..), [_$_]
+ PackType(..),
hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs.pp 169
+ focusTab,
hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs.pp 205
+--------------------
+-- Enums
+{#enum NotebookTab {underscoreToCase} deriving (Bounded,Eq,Show)#}
+
hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs.pp 1268
+-- |
+focusTab :: NotebookClass self => Signal self (NotebookTab -> IO Bool)
+focusTab = Signal (connect_ENUM__BOOL "focus-tab")
+
hunk ./gtk/Graphics/UI/Gtk/Misc/IMContextSimple.chs.pp 1
+{-# LANGUAGE ScopedTypeVariables #-}
hunk ./gtk/Graphics/UI/Gtk/Misc/IMContextSimple.chs.pp 49
- -- imContextSimpleAddTable,
+ imContextSimpleAddTable,
hunk ./gtk/Graphics/UI/Gtk/Misc/IMContextSimple.chs.pp 53
+import Data.Map (Map)
hunk ./gtk/Graphics/UI/Gtk/Misc/IMContextSimple.chs.pp 56
+import System.Glib.UTFString
hunk ./gtk/Graphics/UI/Gtk/Misc/IMContextSimple.chs.pp 58
--- CHECKME: extra imports may be required
hunk ./gtk/Graphics/UI/Gtk/Misc/IMContextSimple.chs.pp 61
+import qualified Data.Map as M
+
hunk ./gtk/Graphics/UI/Gtk/Misc/IMContextSimple.chs.pp 76
--- | Adds an additional table to search to the input context. Each row of the
--- table consists of @maxSeqLen@ key symbols followed by two {guint16, FIXME:
--- unknown type\/value} interpreted as the high and low words of a {gunicode,
--- FIXME: unknown type\/value} value. Tables are searched starting from the
--- last added.
---
--- The table must be sorted in dictionary order on the numeric value of the
--- key symbol fields. (Values beyond the length of the sequence should be
--- zero.)
+-- | Adds an additional table to search to the input context. Each row of the table consists of
+-- @maxSeqLen@ key symbols followed by two 'Int' interpreted as the high and low words of a gunicode
+-- value. Tables are searched starting from the last added.
+-- [_$_]
+-- The table must be sorted in dictionary order on the numeric value of the key symbol fields. (Values
+-- beyond the length of the sequence should be zero.)
hunk ./gtk/Graphics/UI/Gtk/Misc/IMContextSimple.chs.pp 83
--- imContextSimpleAddTable :: IMContextSimpleClass self => self
--- -> {-guint16*-} -- ^ @data@ - the table
--- -> Int -- ^ @maxSeqLen@ - Maximum length of a sequence in the table
--- -- (cannot be greater than {GTK_MAX_COMPOSE_LEN, FIXME:
--- -- unknown type\/value})
--- -> Int -- ^ @nSeqs@ - number of sequences in the table
--- -> IO ()
--- imContextSimpleAddTable self data_ maxSeqLen nSeqs =
--- {# call gtk_im_context_simple_add_table #}
--- (toIMContextSimple self)
--- {-data_-}
--- (fromIntegral maxSeqLen)
--- (fromIntegral nSeqs)
+imContextSimpleAddTable :: IMContextSimpleClass self => self
+ -> Map String String -- ^ @data@ - the table
+ -> Int -- ^ @maxSeqLen@ - Maximum length of a sequence in the table
+ -- (cannot be greater than 'MaxComposeLen')
+ -> Int -- ^ @nSeqs@ - number of sequences in the table
+ -> IO ()
+imContextSimpleAddTable self table maxSeqLen nSeqs = do
+ tableList <- mapM (\(x,y) -> do
+ nx <- newUTFString x
+ ny <- newUTFString y
+ return (nx, ny)) (M.toList table)
+ withArray (concatMap (\(x,y) -> [x, y]) tableList) $ \(tablePtr :: Ptr CString) -> [_$_]
+ {# call gtk_im_context_simple_add_table #}
+ (toIMContextSimple self)
+ (castPtr tablePtr)
+ (fromIntegral maxSeqLen)
+ (fromIntegral nSeqs)
hunk ./gtk/Graphics/UI/Gtk/ModelView/CellRendererPixbuf.chs.pp 73
+#ifdef ENABLE_GIO
+ cellPixbufGicon,
+#endif
hunk ./gtk/Graphics/UI/Gtk/ModelView/CellRendererPixbuf.chs.pp 85
+#ifdef ENABLE_GIO
+{#import System.GIO.Types#}
+#endif
hunk ./gtk/Graphics/UI/Gtk/ModelView/CellRendererPixbuf.chs.pp 162
+#ifdef ENABLE_GIO
+-- | The GIcon representing the icon to display. If the icon theme is changed, the image will be updated
+-- automatically.
+-- [_$_]
+-- Since 2.14
+cellPixbufGicon :: CellRendererPixbufClass self => Attr self Icon
+cellPixbufGicon = newAttrFromObjectProperty "gicon"
+ {#call pure unsafe g_icon_get_type#}
+#endif
hunk ./gtk/Graphics/UI/Gtk/Printing/PageSetup.chs.pp 49
+--
+-- Note:
+-- Don't bind `KeyFile` functions, because `KeyFile` is inconvenience
+-- for haskeller, just use corresponding `File` version is enough.
+-- [_$_]
hunk ./gtk/Graphics/UI/Gtk/Printing/PageSetup.chs.pp 74
- -- pageSetupNewFromKeyFile,
hunk ./gtk/Graphics/UI/Gtk/Printing/PageSetup.chs.pp 93
- -- pageSetupLoadKeyFile,
hunk ./gtk/Graphics/UI/Gtk/Printing/PageSetup.chs.pp 96
- -- pageSetupToKeyFile,
hunk ./gtk/Graphics/UI/Gtk/Printing/PageSetup.chs.pp 149
--- | Reads the page setup from the group @groupName@ in the key file
--- @keyFile@. Returns a new 'PageSetup' object with the restored page setup, or
--- {@NULL@, FIXME: this should probably be converted to a Maybe data type} if
--- an error occurred.
---
--- * Available since Gtk+ version 2.12
---
--- pageSetupNewFromKeyFile ::
--- {-GKeyFile*-} -- ^ @keyFile@ - the 'KeyFile' to
--- -- retrieve the page_setup from
--- -> String -- ^ @groupName@ - the name of the group in the key_file to
--- -- read, or {@NULL@, FIXME: this should probably be converted
--- -- to a Maybe data type} to use the default name \"Page
--- -- Setup\"
--- -> IO PageSetup
--- pageSetupNewFromKeyFile keyFile groupName =
--- constructNewGObject mkPageSetup $
--- propagateGError $ \errorPtr ->
--- withUTFString groupName $ \groupNamePtr ->
--- {# call gtk_page_setup_new_from_key_file #}
--- {-keyFile-}
--- groupNamePtr
--- errorPtr
hunk ./gtk/Graphics/UI/Gtk/Printing/PageSetup.chs.pp 372
--- | Reads the page setup from the group @groupName@ in the key file
--- @keyFile@.
---
--- * Available since Gtk+ version 2.14
---
--- pageSetupLoadKeyFile :: PageSetupClass self => self
--- -> {-GKeyFile*-} -- ^ @keyFile@ - the 'KeyFile' to
--- -- retrieve the page_setup from
--- -> String -- ^ @groupName@ - the name of the group in the key_file to
--- -- read, or {@NULL@, FIXME: this should probably be converted
--- -- to a Maybe data type} to use the default name \"Page
--- -- Setup\"
--- -> IO Bool -- ^ returns @True@ on success
--- pageSetupLoadKeyFile self keyFile groupName =
--- liftM toBool $
--- propagateGError $ \errorPtr ->
--- withUTFString groupName $ \groupNamePtr ->
--- {# call gtk_page_setup_load_key_file #}
--- (toPageSetup self)
--- {-keyFile-}
--- groupNamePtr
--- errorPtr
hunk ./gtk/Graphics/UI/Gtk/Printing/PageSetup.chs.pp 391
--- | This function adds the page setup from @setup@ to @keyFile@.
---
--- * Available since Gtk+ version 2.12
---
--- pageSetupToKeyFile :: PageSetupClass self => self
--- -> {-GKeyFile*-} -- ^ @keyFile@ - the 'KeyFile' to save
--- -- the page setup to
--- -> String -- ^ @groupName@ - the group to add the settings to in
--- -- @keyFile@, or {@NULL@, FIXM: Ethis should probably be
--- -- converted to a Maybe data type} to use the default name
--- -- \"Page Setup\"
--- -> IO ()
--- pageSetupToKeyFile self keyFile groupName =
--- withUTFString groupName $ \groupNamePtr ->
--- {# call gtk_page_setup_to_key_file #}
--- (toPageSetup self)
--- {-keyFile-}
--- groupNamePtr
hunk ./gtk/Graphics/UI/Gtk/Printing/PaperSize.chs.pp 27
+-- Note:
+-- Don't bind `KeyFile` functions, because `KeyFile` is inconvenience
+-- for haskeller, just use corresponding `File` version is enough.
+--
hunk ./gtk/Graphics/UI/Gtk/Printing/PaperSize.chs.pp 59
-#if GTK_CHECK_VERSION(2,12,0)
- -- paperSizeNewFromKeyFile,
-#endif
hunk ./gtk/Graphics/UI/Gtk/Printing/PaperSize.chs.pp 83
-#if GTK_CHECK_VERSION(2,12,0)
- -- paperSizeToKeyFile,
-#endif
hunk ./gtk/Graphics/UI/Gtk/Printing/PaperSize.chs.pp 173
-#if GTK_CHECK_VERSION(2,12,0)
--- | Reads a paper size from the group @groupName@ in the key file @keyFile@.
---
--- * Available since Gtk+ version 2.12
---
--- paperSizeNewFromKeyFile ::
--- {-GKeyFile*-} -- ^ @keyFile@ - the 'KeyFile' to
--- -- retrieve the papersize from
--- -> String -- ^ @groupName@ - the name ofthe group in the key file to
--- -- read, emptry to read the first group
--- -> IO PaperSize
--- paperSizeNewFromKeyFile keyFile groupName =
--- propagateGError $ \errorPtr ->
--- withUTFString groupName $ \groupNamePtr ->
--- {# call gtk_paper_size_new_from_key_file #}
--- {-keyFile-}
--- groupNamePtr
--- errorPtr
-#endif
hunk ./gtk/Graphics/UI/Gtk/Printing/PaperSize.chs.pp 380
-#if GTK_CHECK_VERSION(2,12,0)
--- | This function adds the paper size from @size@ to @keyFile@.
---
--- * Available since Gtk+ version 2.12
---
--- paperSizeToKeyFile :: PaperSize
--- -> {-GKeyFile*-} -- ^ @keyFile@ - the 'KeyFile' to save
--- -- the paper size to
--- -> String -- ^ @groupName@ - the group to add the settings to in
--- -- @keyFile@
--- -> IO ()
--- paperSizeToKeyFile self keyFile groupName =
--- withUTFString groupName $ \groupNamePtr ->
--- {# call gtk_paper_size_to_key_file #}
--- self
--- {-keyFile-}
--- groupNamePtr
-#endif
hunk ./gtk/Graphics/UI/Gtk/Printing/PrintContext.chs.pp 60
- -- printContextGetCairoContext,
- -- printContextSetCairoContext,
+ printContextGetCairoContext,
+ printContextSetCairoContext,
hunk ./gtk/Graphics/UI/Gtk/Printing/PrintContext.chs.pp 79
+{#import Graphics.Rendering.Cairo.Types#}
hunk ./gtk/Graphics/UI/Gtk/Printing/PrintContext.chs.pp 89
--- printContextGetCairoContext :: PrintContextClass self => self
--- -> IO {-cairo_t*-} -- ^ returns the cairo context of @context@
--- printContextGetCairoContext self =
--- {# call gtk_print_context_get_cairo_context #}
--- (toPrintContext self)
+printContextGetCairoContext :: PrintContextClass self => self
+ -> IO Cairo -- ^ returns the cairo context of @context@
+printContextGetCairoContext self = [_$_]
+ liftM Cairo $
+ {# call gtk_print_context_get_cairo_context #} (toPrintContext self)
hunk ./gtk/Graphics/UI/Gtk/Printing/PrintContext.chs.pp 101
--- printContextSetCairoContext :: PrintContextClass self => self
--- -> {-cairo_t*-} -- ^ @cr@ - the cairo context
--- -> Double -- ^ @dpiX@ - the horizontal resolution to use with @cr@
--- -> Double -- ^ @dpiY@ - the vertical resolution to use with @cr@
--- -> IO ()
--- printContextSetCairoContext self cr dpiX dpiY =
--- {# call gtk_print_context_set_cairo_context #}
--- (toPrintContext self)
--- {-cr-}
--- (realToFrac dpiX)
--- (realToFrac dpiY)
+printContextSetCairoContext :: PrintContextClass self => self
+ -> Cairo -- ^ @cr@ - the cairo context
+ -> Double -- ^ @dpiX@ - the horizontal resolution to use with @cr@
+ -> Double -- ^ @dpiY@ - the vertical resolution to use with @cr@
+ -> IO ()
+printContextSetCairoContext self cr dpiX dpiY =
+ {# call gtk_print_context_set_cairo_context #}
+ (toPrintContext self)
+ cr
+ (realToFrac dpiX)
+ (realToFrac dpiY)
hunk ./gtk/Graphics/UI/Gtk/Printing/PrintSettings.chs.pp 45
-
+--
+-- Note:
+-- Don't bind `KeyFile` functions, because `KeyFile` is inconvenience
+-- for haskeller, just use corresponding `File` version is enough.
+--
hunk ./gtk/Graphics/UI/Gtk/Printing/PrintSettings.chs.pp 78
- -- printSettingsNewFromKeyFile,
hunk ./gtk/Graphics/UI/Gtk/Printing/PrintSettings.chs.pp 110
- -- printSettingsLoadKeyFile,
hunk ./gtk/Graphics/UI/Gtk/Printing/PrintSettings.chs.pp 113
- -- printSettingsToKeyFile,
hunk ./gtk/Graphics/UI/Gtk/Printing/PrintSettings.chs.pp 226
--- | Reads the print settings from the group @groupName@ in @keyFile@. Returns
--- a new 'PrintSettings' object with the restored settings, or {@NULL@, FIXME:
--- this should probably be converted to a Maybe data type} if an error
--- occurred.
---
--- * Available since Gtk+ version 2.12
---
--- printSettingsNewFromKeyFile ::
--- {-GKeyFile*-} -- ^ @keyFile@ - the 'KeyFile' to
--- -- retrieve the settings from
--- -> String -- ^ @groupName@ - the name of the group to use, or {@NULL@,
--- -- FIXME: this should probably be converted to a Maybe data
--- -- type} to use the default \"Print Settings\"
--- -> IO PrintSettings
--- printSettingsNewFromKeyFile keyFile groupName =
--- constructNewGObject mkPrintSettings $
--- propagateGError $ \errorPtr ->
--- withUTFString groupName $ \groupNamePtr ->
--- {# call gtk_print_settings_new_from_key_file #}
--- {-keyFile-}
--- groupNamePtr
--- errorPtr
hunk ./gtk/Graphics/UI/Gtk/Printing/PrintSettings.chs.pp 947
--- | Reads the print settings from the group @groupName@ in @keyFile@.
---
--- * Available since Gtk+ version 2.14
---
--- printSettingsLoadKeyFile :: PrintSettingsClass self => self
--- -> {-GKeyFile*-} -- ^ @keyFile@ - the 'KeyFile' to
--- -- retrieve the settings from
--- -> String -- ^ @groupName@ - the name of the group to use, or {@NULL@,
--- -- FIXME: this should probably be converted to a Maybe data
--- -- type} to use the default \"Print Settings\"
--- -> IO Bool -- ^ returns @True@ on success
--- printSettingsLoadKeyFile self keyFile groupName =
--- liftM toBool $
--- propagateGError $ \errorPtr ->
--- withUTFString groupName $ \groupNamePtr ->
--- {# call gtk_print_settings_load_key_file #}
--- (toPrintSettings self)
--- {-keyFile-}
--- groupNamePtr
--- errorPtr
hunk ./gtk/Graphics/UI/Gtk/Printing/PrintSettings.chs.pp 966
--- | This function adds the print settings from @settings@ to @keyFile@.
---
--- * Available since Gtk+ version 2.12
---
--- printSettingsToKeyFile :: PrintSettingsClass self => self
--- -> {-GKeyFile*-} -- ^ @keyFile@ - the 'KeyFile' to save
--- -- the print settings to
--- -> String -- ^ @groupName@ - the group to add the settings to in
--- -- @keyFile@, or {@NULL@, FIXME: this should probably be
--- -- converted to a Maybe data type} to use the default \"Print
--- -- Settings\"
--- -> IO ()
--- printSettingsToKeyFile self keyFile groupName =
--- withUTFString groupName $ \groupNamePtr ->
--- {# call gtk_print_settings_to_key_file #}
--- (toPrintSettings self)
--- {-keyFile-}
--- groupNamePtr
hunk ./gtk/Graphics/UI/Gtk/Selectors/FileChooser.chs.pp 188
--- #if GTK_CHECK_VERSION(2,14,0)
--- fileChooserGetCurrentFolderFile,
--- #endif
+#if GTK_CHECK_VERSION(2,14,0)
+#ifdef ENABLE_GIO
+ fileChooserGetCurrentFolderFile,
+ fileChooserSetCurrentFolderFile,
+ fileChooserGetFile,
+ fileChooserSetFile,
+ fileChooserGetPreviewFile,
+ fileChooserGetFiles,
+ fileChooserSelectFile,
+ fileChooserUnselectFile,
+#endif
+#endif
hunk ./gtk/Graphics/UI/Gtk/Selectors/FileChooser.chs.pp 264
+#ifdef ENABLE_GIO
+{#import System.GIO.Types#}
+#endif
hunk ./gtk/Graphics/UI/Gtk/Selectors/FileChooser.chs.pp 476
+#endif
hunk ./gtk/Graphics/UI/Gtk/Selectors/FileChooser.chs.pp 939
--- #if GTK_CHECK_VERSION(2,14,0)
--- -- | Gets the current folder of @chooser@ as {GFile, FIXME: unknown
--- -- type\/value}. See 'fileChooserGetCurrentFolderURI'.
--- --
--- -- * Available since Gtk+ version 2.14
--- --
--- fileChooserGetCurrentFolderFile :: FileChooserClass self => self
--- -> IO GFile -- ^ returns the {GFile, FIXME: unknown type\/value} for the
--- -- current folder.
--- fileChooserGetCurrentFolderFile self =
--- {# call gtk_file_chooser_get_current_folder_file #}
--- (toFileChooser self)
--- #endif
+#if GTK_CHECK_VERSION(2,14,0)
+#ifdef ENABLE_GIO
+-- | Gets the current folder of @chooser@ as {GFile, FIXME: unknown
+-- type\/value}. See 'fileChooserGetCurrentFolderURI'.
+--
+-- * Available since Gtk+ version 2.14
+--
+fileChooserGetCurrentFolderFile :: FileChooserClass self => self
+ -> IO File -- ^ returns the {GFile, FIXME: unknown type\/value} for the
+ -- current folder.
+fileChooserGetCurrentFolderFile self =
+ makeNewGObject mkFile $
+ {# call gtk_file_chooser_get_current_folder_file #}
+ (toFileChooser self)
+
+-- | Sets the current folder for chooser from a GFile. Internal function, see
+-- 'fileChooserSetCurrentFolderUri'.
+fileChooserSetCurrentFolderFile :: FileChooserClass self => self -> File -> IO Bool
+fileChooserSetCurrentFolderFile self file =
+ liftM toBool $
+ propagateGError $ \errorPtr ->
+ {#call gtk_file_chooser_set_current_folder_file#}
+ (toFileChooser self)
+ (toFile file)
+ errorPtr
+ [_$_]
+-- | Gets the GFile for the currently selected file in the file selector. If multiple files are selected,
+-- one of the files will be returned at random.
+-- [_$_]
+-- If the file chooser is in folder mode, this function returns the selected folder.
+fileChooserGetFile :: FileChooserClass self => self -> IO File
+fileChooserGetFile self =
+ makeNewGObject mkFile $
+ {#call gtk_file_chooser_get_file#} [_$_]
+ (toFileChooser self)
+
+-- | Sets file as the current filename for the file chooser, by changing to the file's parent folder and
+-- actually selecting the file in list. If the chooser is in 'FileChooserActionSave' mode, the
+-- file's base name will also appear in the dialog's file name entry.
+-- [_$_]
+-- If the file name isn't in the current folder of chooser, then the current folder of chooser will be
+-- changed to the folder containing filename. This is equivalent to a sequence of
+-- 'fileChooserUnselectAll'.
+-- [_$_]
+-- Note that the file must exist, or nothing will be done except for the directory change.
+fileChooserSetFile :: FileChooserClass self => self -> File -> IO Bool
+fileChooserSetFile self file =
+ liftM toBool $
+ propagateGError $ \errorPtr ->
+ {#call gtk_file_chooser_set_file#}
+ (toFileChooser self)
+ (toFile file)
+ errorPtr
+
+-- | Gets the GFile that should be previewed in a custom preview Internal function, see
+-- 'fileChooserGetPreviewUri'.
+fileChooserGetPreviewFile :: FileChooserClass self => self -> IO File
+fileChooserGetPreviewFile self =
+ makeNewGObject mkFile $
+ {#call gtk_file_chooser_get_preview_file#} (toFileChooser self)
+
+-- | Lists all the selected files and subfolders in the current folder of chooser as GFile. An internal
+-- function, see @gtkFileChooserGetUris@
+fileChooserGetFiles :: FileChooserClass self => self -> IO [File]
+fileChooserGetFiles self = do
+ gslist <- {#call gtk_file_chooser_get_files#} (toFileChooser self)
+ list <- fromGSList gslist
+ mapM (makeNewGObject mkFile . return) list
+
+-- | Selects the file referred to by file. An internal function. See _'fileChooserSelectUri'.
+fileChooserSelectFile :: FileChooserClass self => self -> File -> IO Bool
+fileChooserSelectFile self file =
+ liftM toBool $
+ propagateGError $ \errorPtr ->
+ {#call gtk_file_chooser_select_file#}
+ (toFileChooser self)
+ (toFile file)
+ errorPtr
+
+-- | Unselects the file referred to by file. If the file is not in the current directory, does not exist,
+-- or is otherwise not currently selected, does nothing.
+fileChooserUnselectFile :: FileChooserClass self => self -> File -> IO ()
+fileChooserUnselectFile self file =
+ {#call gtk_file_chooser_unselect_file#}
+ (toFileChooser self)
+ (toFile file)
+#endif
hunk ./gtk/gtk.cabal.in 9
-build-depends: base-@PKG_BASE_VERSION@ glib==@PACKAGE_VERSION@ @GTK_CAIRO_DEPEND@
+build-depends: base-@PKG_BASE_VERSION@ glib==@PACKAGE_VERSION@ gio==@PACKAGE_VERSION@ @GTK_CAIRO_DEPEND@
hunk ./gtk/gtk.package.conf.in 17
-depends: @PKG_BASE_ID@ @PKG_MTL_ID@ glib-@PACKAGE_VERSION@ @GTK_CAIRO_DEPEND@ @GTK_SPLITBASE_DEPENDS@
+depends: @PKG_BASE_ID@ @PKG_MTL_ID@ glib-@PACKAGE_VERSION@ gio-@PACKAGE_VERSION@ @GTK_CAIRO_DEPEND@ @GTK_SPLITBASE_DEPENDS@ [_$_]
|
2 messages has been excluded from this view by a project administrator.
