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: Peter g. <pg...@co...> - 2009-01-12 05:03:29
|
Sun Jan 11 23:13:51 EST 2009 Peter Gavin <pg...@gm...>
* gtksourceview2: add sourceLanguageManagerGuessLanguage
move ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceLanguageManager.chs ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceLanguageManager.chs.pp
hunk ./Makefile.am 1386
- gtksourceview2/Graphics/UI/Gtk/SourceView/SourceLanguageManager.chs \
+ gtksourceview2/Graphics/UI/Gtk/SourceView/SourceLanguageManager.chs.pp \
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceLanguageManager.chs.pp 92
+#if GTKSOURCEVIEW2_CHECK_VERSION(2,4,0)
+-- |
+--
+sourceLanguageManagerGuessLanguage slm filename contentType = makeNewGObject mkSourceLanguage $ liftM castPtr $
+ withUTFString filename $ \cFilename ->
+ withUTFString contentType $ \cContentType ->
+ {#call unsafe source_language_manager_guess_language#} slm cFilename cContentType
+#endif
+
|
|
From: Peter g. <pg...@co...> - 2009-01-12 03:00:57
|
Sun Jan 11 10:58:51 EST 2009 Peter Gavin <pg...@gm...>
* configure.ac: use AC_ARG_VAR for HADDOCK
hunk ./configure.ac 820
+ AC_ARG_VAR(HADDOCK,[path to Haddock (versions 0.8 & 0.9, or versions 2.4 and above)])
|
|
From: Peter g. <pg...@co...> - 2009-01-12 02:19:23
|
Sun Jan 11 11:02:47 EST 2009 Peter Gavin <pg...@gm...>
* gconf: S.G.G.GConfValue: remove -fallow-overlapping-instances (it's handled in the makefile)
hunk ./gconf/System/Gnome/GConf/GConfValue.chs 1
-{-# OPTIONS -fallow-overlapping-instances #-} -- String & [a] overlap
+-- String & [a] overlap
|
|
From: Peter g. <pg...@co...> - 2009-01-12 02:19:22
|
Sun Jan 11 21:01:50 EST 2009 Peter Gavin <pg...@gm...>
* gtksourceview2: add GtkSourceMark to hierarchy.list and add version checking code to configure.ac
hunk ./Makefile.am 1383
- gtksourceview2/Graphics/UI/Gtk/SourceView/SourceMark.chs \
hunk ./Makefile.am 1393
+if HAVE_GTKSOURCEVIEW2_VERSION_2_2
+libHSgtksourceview2_a_SOURCES += \
+ gtksourceview2/Graphics/UI/Gtk/SourceView/SourceMark.chs
+endif
+
hunk ./Makefile.am 1411
- $@ --tag=gtksourceview2 --parentname=Graphics.UI.Gtk.Types \
+ $@ $(addprefix --tag=,$(GTKSOURCEVIEW2_CREATE_TYPES)) \
+ --parentname=Graphics.UI.Gtk.Types \
hunk ./configure.ac 467
+dnl Also allow us to conditionally compile binding to GtkSourceView-2.0 APIs.
+GTKHS_PACKAGE_ADD_CHECK_VERSION(gtksourceview-2.0, GTKSOURCEVIEW2, gtksourceview2)
+HAVE_GTKSOURCEVIEW2_VERSION_2_2=`$PKG_CONFIG gtksourceview-2.0 --atleast-version=2.2 && echo yes || echo no`
+AM_CONDITIONAL(HAVE_GTKSOURCEVIEW2_VERSION_2_2, test "$HAVE_GTKSOURCEVIEW2_VERSION_2_2" = "yes")
+GTKSOURCEVIEW2_CREATE_TYPES=gtksourceview2
+GTKSOURCEVIEW2_CREATE_TYPES="$GTKSOURCEVIEW2_CREATE_TYPES `test "$HAVE_GTKSOURCEVIEW2_VERSION_2_2" = "yes" && echo gtksourceview2-2.2`"
+AC_SUBST(GTKSOURCEVIEW2_CREATE_TYPES)
+
hunk ./tools/hierarchyGen/hierarchy.list 201
+ GtkSourceMark if gtksourceview2-2.2
|
|
From: Peter g. <pg...@co...> - 2009-01-12 02:19:19
|
Sun Jan 11 21:16:12 EST 2009 Peter Gavin <pg...@gm...>
* configure.ac, mk/link-splitobjs: add xargs back, but only use it if it's available
I originally took it out for portability, but xargs speeds things up enough to make it worth putting back
hunk ./configure.ac 60
+AC_PATH_PROG(XARGS,xargs)
hunk ./mk/link-splitobjs.sh.in 15
-cat ${lib}.list | while read file ; do @AR@ q ${lib} ${file} ; done
+if [ -z "@XARGS@" ] ; then
+ cat ${lib}.list | while read file ; do @AR@ q ${lib} ${file} ; done
+else
+ cat ${lib}.list | @XARGS@ @AR@ q ${lib}
+fi
|
|
From: Peter g. <pg...@co...> - 2009-01-12 02:19:11
|
Sun Jan 11 20:58:38 EST 2009 Peter Gavin <pg...@gm...>
* configure.ac: use --enable-deprecated-packages for deprecated packages instead of --enable-deprecated
hunk ./acinclude.m4 159
-if test "$DISABLE_DEPRECATED" = "yes" ; then
+if test "$DISABLE_DEPRECATED_PACKAGES" = "yes" ; then
hunk ./configure.ac 181
+AC_MSG_CHECKING([whether to build deprecated packages (gnomevfs, sourceview)])
+AC_ARG_ENABLE(deprecated-packages,
+ [AS_HELP_STRING([--disable-deprecated-packages], [do not build deprecated packages])],
+ [ENABLE_DEPRECATED_PACKAGES=$enableval],[ENABLE_DEPRECATED_PACKAGES=yes])
+AC_MSG_RESULT($ENABLE_DEPRECATED_PACKAGES)
+DISABLE_DEPRECATED_PACKAGES=`test $ENABLE_DEPRECATED_PACKAGES = yes && echo no || echo yes`
+
+
|
|
From: Peter g. <pg...@co...> - 2009-01-12 02:19:08
|
Sun Jan 11 10:58:21 EST 2009 Peter Gavin <pg...@gm...>
* configure.ac: use AS_HELP_STRING where appropriate
hunk ./configure.ac 88
- [ --with-hc=HC use Haskell compiler HC],
+ [AS_HELP_STRING([--with-hc=HC], [use Haskell compiler HC])],
hunk ./configure.ac 92
- [ --with-hcflags=HCFLAGS flags for Haskell tools, default: -O],
+ [AS_HELP_STRING([--with-hcflags=HCFLAGS], [flags for Haskell tools, default: -O])],
hunk ./configure.ac 164
- [ --enable-profiling additionally build profiling versions of all libs],
+ [AS_HELP_STRING([--enable-profiling], [additionally build profiling versions of all libs])],
hunk ./configure.ac 169
- [ --enable-split-objs produce smaller executables (on supported platforms)],
+ [AS_HELP_STRING([--enable-split-objs], [produce smaller executables (on supported platforms)])],
hunk ./configure.ac 176
- [ --disable-deprecated do not generate bindings for any deprecated APIs],
+ [AS_HELP_STRING([--disable-deprecated], [do not generate bindings for any deprecated APIs])],
hunk ./configure.ac 212
- [ --without-pkgreg Do not reigster Haskell packages (useful for distributors)],
+ [AS_HELP_STRING([--without-pkgreg], [Do not reigster Haskell packages (useful for distributors)])],
hunk ./configure.ac 218
- [ --with-user-pkgconf use the current user's GHC package database],
+ [AS_HELP_STRING([--with-user-pkgconf], [use the current user's GHC package database])],
hunk ./configure.ac 222
- [ --with-pkgconf=FILE GHC package file to install packages],
+ [AS_HELP_STRING([--with-pkgconf=FILE], [GHC package file to install packages])],
hunk ./configure.ac 817
- [ --enable-docs build html documentation],
+ [AS_HELP_STRING([--enable-docs], [build html documentation])],
|
|
From: Peter g. <pg...@co...> - 2009-01-11 15:50:49
|
Thu Jan 8 12:03:24 EST 2009 Hamish Mackenzie <ha...@fi...>
* Add SourceMark to gtksourceview2
hunk ./Makefile.am 1383
+ gtksourceview2/Graphics/UI/Gtk/SourceView/SourceMark.chs \
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceBuffer.chs 48
+ sourceBufferCreateSourceMark,
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceBuffer.chs 74
+import Graphics.UI.Gtk.SourceView.SourceMark
+
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceBuffer.chs 191
+-- | Creates a marker in the buffer of the given type.
+--
+-- * A marker is
+-- semantically very similar to a 'Graphics.UI.Gtk.Multiline.TextMark',
+-- except it has a type
+-- which is used by the 'SourceView' displaying the buffer to show a
+-- pixmap on the left margin, at the line the marker is in. Because
+-- of this, a marker is generally associated to a line and not a
+-- character position. Markers are also accessible through a position
+-- or range in the buffer.
+--
+-- * Markers are implemented using 'Graphics.UI.Gtk.Multiline.TextMark',
+-- so all characteristics
+-- and restrictions to marks apply to markers too. These includes
+-- life cycle issues and 'Graphics.UI.Gtk.Multiline.TextMark.onMarkSet'
+-- and 'Graphics.UI.Gtk.Multiline.TextMark.onMarkDeleted' signal
+-- emissions.
+--
+-- * Like a 'Graphics.UI.Gtk.Multiline.TextMark', a 'SourceMarker'
+-- can be anonymous if the
+-- passed name is @Nothing@. Also, the buffer owns the markers so you
+-- shouldn't unreference it.
+
+sourceBufferCreateSourceMark :: SourceBuffer -- the buffer
+ -> Maybe String -- the name of the mark
+ -> String -- the category of the mark
+ -> TextIter -> IO SourceMark
+sourceBufferCreateSourceMark sb name category iter =
+ makeNewGObject mkSourceMark $
+ maybeWith withCString name $ \strPtr1 ->
+ withCString category $ \strPtr2 ->
+ {#call source_buffer_create_source_mark#} sb strPtr1 strPtr2 iter
+
addfile ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceMark.chs
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceMark.chs 1
+-- -*-haskell-*-
+-- GIMP Toolkit (GTK) SourceMark
+--
+-- Author : Duncan Coutts
+-- derived from GtkTextView bindings by Axel Simon
+--
+-- Created: 26 October 2003
+--
+-- Copyright (C) 2003-2005 Duncan Coutts, Axel Simon
+--
+-- 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)
+--
+module Graphics.UI.Gtk.SourceView.SourceMark (
+ SourceMark,
+ castToSourceMark,
+ sourceMarkGetCategory,
+ sourceMarkNext,
+ sourceMarkPrev
+) where
+
+import Control.Monad (liftM)
+
+import System.Glib.FFI
+import System.Glib.UTFString
+import System.Glib.GObject (makeNewGObject)
+{#import Graphics.UI.Gtk.Types#}
+{#import Graphics.UI.Gtk.SourceView.Types#}
+
+{# context lib="gtk" prefix="gtk" #}
+
+-- methods
+
+-- | [_$_]
+-- [_$_]
+sourceMarkGetCategory :: SourceMark -> IO String
+sourceMarkGetCategory mark = do
+ strPtr <- {#call unsafe source_mark_get_category#} mark
+ markType <- peekUTFString strPtr
+ {#call unsafe g_free#} (castPtr strPtr)
+ return markType
+
+-- | [_$_]
+-- [_$_]
+sourceMarkNext :: SourceMark -> String -> IO SourceMark
+sourceMarkNext mark category = makeNewGObject mkSourceMark $
+ withUTFString category $ {#call unsafe source_mark_next#} mark
+
+-- | [_$_]
+-- [_$_]
+sourceMarkPrev :: SourceMark -> String -> IO SourceMark
+sourceMarkPrev mark category = makeNewGObject mkSourceMark $
+ withUTFString category $ {#call unsafe source_mark_prev#} mark
+
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceView.chs 45
+ sourceViewSetShowLineMarks,
+ sourceViewGetShowLineMarks,
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceView.chs 55
+ sourceViewSetMarkCategoryPixbuf,
+ sourceViewGetMarkCategoryPixbuf,
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceView.chs 172
+sourceViewSetShowLineMarks :: SourceViewClass sv => sv -> Bool -> IO ()
+sourceViewSetShowLineMarks sv newVal =
+ {#call source_view_set_show_line_marks#} (toSourceView sv) (fromBool newVal)
+ [_$_]
+-- | [_$_]
+--
+sourceViewGetShowLineMarks :: SourceViewClass sv => sv -> IO Bool [_$_]
+sourceViewGetShowLineMarks sv = liftM toBool $
+ {#call unsafe source_view_get_show_line_marks#} (toSourceView sv)
+
+--- | [_$_]
+--
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceView.chs 230
+-- |
+--
+sourceViewSetMarkCategoryPriority :: SourceViewClass sv => sv -> String -> Int -> IO ()
+sourceViewSetMarkCategoryPriority sv markerType priority = withCString markerType $ \strPtr ->
+ {#call source_view_set_mark_category_priority#} (toSourceView sv) strPtr (fromIntegral priority)
+
+-- |
+--
+sourceViewGetMarkCategoryPriority :: SourceViewClass sv => sv -> String -> IO Int
+sourceViewGetMarkCategoryPriority sv markerType = withCString markerType $ \strPtr ->
+ liftM fromIntegral $
+ {#call unsafe source_view_get_mark_category_priority#} (toSourceView sv) strPtr
+
+--- |
+--
+sourceViewSetMarkCategoryPixbuf :: SourceViewClass sv => sv -> String -> Pixbuf -> IO ()
+sourceViewSetMarkCategoryPixbuf sv markerType marker = withCString markerType $ \strPtr ->
+ {#call source_view_set_mark_category_pixbuf#} (toSourceView sv) strPtr marker
+
+-- |
+--
+sourceViewGetMarkCategoryPixbuf :: SourceViewClass sv => sv -> String -> IO Pixbuf
+sourceViewGetMarkCategoryPixbuf sv markerType = withCString markerType $ \strPtr ->
+ constructNewGObject mkPixbuf $
+ {#call unsafe source_view_get_mark_category_pixbuf#} (toSourceView sv) strPtr
+
|
|
From: Peter g. <pg...@co...> - 2009-01-11 15:47:21
|
Tue Jan 6 22:09:56 EST 2009 Peter Gavin <pg...@gm...>
* gtk: make NativeWindowId a newtype; under Win32 it's a pointer, not an integer
hunk ./gtk/Graphics/UI/Gtk/Embedding/Plug.chs.pp 103
- (fromIntegral (fromMaybe 0 socketId))
+ (fromNativeWindowId (fromMaybe nativeWindowIdNone socketId))
hunk ./gtk/Graphics/UI/Gtk/Embedding/Plug.chs.pp 115
- liftM fromIntegral $
+ liftM toNativeWindowId $
hunk ./gtk/Graphics/UI/Gtk/Embedding/Socket.chs.pp 158
- (fromIntegral windowId)
+ (fromNativeWindowId windowId)
hunk ./gtk/Graphics/UI/Gtk/Embedding/Socket.chs.pp 169
- liftM fromIntegral $
+ liftM toNativeWindowId $
hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs.pp 526
- liftM castPtr $ {#call gdk_window_foreign_new#} (fromIntegral anid)
+ liftM castPtr $ {#call gdk_window_foreign_new#} (fromNativeWindowId anid)
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 51
+ toNativeWindowId,
+ fromNativeWindowId,
+ nativeWindowIdNone,
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 570
-type NativeWindowId = #type GdkNativeWindow
+#ifdef GDK_NATIVE_WINDOW_POINTER
+newtype NativeWindowId = NativeWindowId (Ptr ()) deriving (Eq, Show)
+unNativeWindowId :: NativeWindowId -> Ptr a
+unNativeWindowId (NativeWindowId id) = castPtr id
+toNativeWindowId :: Ptr a -> NativeWindowId
+toNativeWindowId = NativeWindowId . castPtr
+fromNativeWindowId :: NativeWindowId -> Ptr a
+fromNativeWindowId = castPtr . unNativeWindowId
+nativeWindowIdNone :: NativeWindowId
+nativeWindowIdNone = NativeWindowId nullPtr
+#else
+newtype NativeWindowId = NativeWindowId #{type GdkNativeWindow} deriving (Eq, Show)
+unNativeWindowId :: Integral a => NativeWindowId -> a
+unNativeWindowId (NativeWindowId id) = fromIntegral id
+toNativeWindowId :: Integral a => a -> NativeWindowId
+toNativeWindowId = NativeWindowId . fromIntegral
+fromNativeWindowId :: Integral a => NativeWindowId -> a
+fromNativeWindowId = fromIntegral . unNativeWindowId
+nativeWindowIdNone :: NativeWindowId
+nativeWindowIdNone = NativeWindowId 0
+#endif
|
|
From: Peter g. <pg...@co...> - 2009-01-11 15:47:19
|
Sat Jan 10 17:02:57 EST 2009 Peter Gavin <pg...@gm...>
* workaround several warnings caused by hsc2hs on amd64
hunk ./Makefile.am 14
+ template-hsc-gtk2hs.h \
hunk ./gstreamer/Media/Streaming/GStreamer/Core/Constants.hsc 62
-newtype FormatId = FormatId #{type GstFormat}
+newtype FormatId = FormatId #{gtk2hs_type GstFormat}
hunk ./gstreamer/Media/Streaming/GStreamer/Core/Constants.hsc 74
-toFormat :: #{type GstFormat} -> Format
+toFormat :: #{gtk2hs_type GstFormat} -> Format
hunk ./gstreamer/Media/Streaming/GStreamer/Core/Constants.hsc 82
-fromFormat :: Format -> #{type GstFormat}
+fromFormat :: Format -> #{gtk2hs_type GstFormat}
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 280
- (ty :: #{type GdkEventType}) <- peek (castPtr ptr)
+ (ty :: #{gtk2hs_type GdkEventType}) <- peek (castPtr ptr)
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 285
- (x :: #{type gdouble}) <- #{peek GdkEventButton, x} ptr
- (y :: #{type gdouble}) <- #{peek GdkEventButton, y} ptr
+ (x :: #{gtk2hs_type gdouble}) <- #{peek GdkEventButton, x} ptr
+ (y :: #{gtk2hs_type gdouble}) <- #{peek GdkEventButton, y} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 289
- (x :: #{type gdouble}) <- #{peek GdkEventScroll, x} ptr
- (y :: #{type gdouble}) <- #{peek GdkEventScroll, y} ptr
+ (x :: #{gtk2hs_type gdouble}) <- #{peek GdkEventScroll, x} ptr
+ (y :: #{gtk2hs_type gdouble}) <- #{peek GdkEventScroll, y} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 293
- (x :: #{type gdouble}) <- #{peek GdkEventMotion, x} ptr
- (y :: #{type gdouble}) <- #{peek GdkEventMotion, y} ptr
+ (x :: #{gtk2hs_type gdouble}) <- #{peek GdkEventMotion, x} ptr
+ (y :: #{gtk2hs_type gdouble}) <- #{peek GdkEventMotion, y} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 298
- (x :: #{type gdouble}) <- #{peek GdkEventCrossing, x} ptr
- (y :: #{type gdouble}) <- #{peek GdkEventCrossing, y} ptr
+ (x :: #{gtk2hs_type gdouble}) <- #{peek GdkEventCrossing, x} ptr
+ (y :: #{gtk2hs_type gdouble}) <- #{peek GdkEventCrossing, y} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 315
- (ty :: #{type GdkEventType}) <- peek (castPtr ptr)
+ (ty :: #{gtk2hs_type GdkEventType}) <- peek (castPtr ptr)
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 320
- (x :: #{type gdouble}) <- #{peek GdkEventButton, x_root} ptr
- (y :: #{type gdouble}) <- #{peek GdkEventButton, y_root} ptr
+ (x :: #{gtk2hs_type gdouble}) <- #{peek GdkEventButton, x_root} ptr
+ (y :: #{gtk2hs_type gdouble}) <- #{peek GdkEventButton, y_root} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 324
- (x :: #{type gdouble}) <- #{peek GdkEventScroll, x_root} ptr
- (y :: #{type gdouble}) <- #{peek GdkEventScroll, y_root} ptr
+ (x :: #{gtk2hs_type gdouble}) <- #{peek GdkEventScroll, x_root} ptr
+ (y :: #{gtk2hs_type gdouble}) <- #{peek GdkEventScroll, y_root} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 328
- (x :: #{type gdouble}) <- #{peek GdkEventMotion, x_root} ptr
- (y :: #{type gdouble}) <- #{peek GdkEventMotion, y_root} ptr
+ (x :: #{gtk2hs_type gdouble}) <- #{peek GdkEventMotion, x_root} ptr
+ (y :: #{gtk2hs_type gdouble}) <- #{peek GdkEventMotion, y_root} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 333
- (x :: #{type gdouble}) <- #{peek GdkEventCrossing, x_root} ptr
- (y :: #{type gdouble}) <- #{peek GdkEventCrossing, y_root} ptr
+ (x :: #{gtk2hs_type gdouble}) <- #{peek GdkEventCrossing, x_root} ptr
+ (y :: #{gtk2hs_type gdouble}) <- #{peek GdkEventCrossing, y_root} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 360
- defModMask :: #type guint
+ defModMask :: #gtk2hs_type guint
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 367
- (ty :: #{type GdkEventType}) <- peek (castPtr ptr)
+ (ty :: #{gtk2hs_type GdkEventType}) <- peek (castPtr ptr)
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 370
- (modif ::#type guint) <- #{peek GdkEventKey, state} ptr
+ (modif ::#gtk2hs_type guint) <- #{peek GdkEventKey, state} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 376
- (modif ::#type guint) <- #{peek GdkEventButton, state} ptr
+ (modif ::#gtk2hs_type guint) <- #{peek GdkEventButton, state} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 379
- (modif ::#type guint) <- #{peek GdkEventScroll, state} ptr
+ (modif ::#gtk2hs_type guint) <- #{peek GdkEventScroll, state} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 382
- (modif ::#type guint) <- #{peek GdkEventMotion, state} ptr
+ (modif ::#gtk2hs_type guint) <- #{peek GdkEventMotion, state} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 386
- (modif ::#type guint) <- #{peek GdkEventCrossing, state} ptr
+ (modif ::#gtk2hs_type guint) <- #{peek GdkEventCrossing, state} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 415
- (ty :: #{type GdkEventType}) <- peek (castPtr ptr)
+ (ty :: #{gtk2hs_type GdkEventType}) <- peek (castPtr ptr)
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 418
- (time :: #type guint32) <- #{peek GdkEventKey, time} ptr
+ (time :: #gtk2hs_type guint32) <- #{peek GdkEventKey, time} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 424
- (time :: #type guint32) <- #{peek GdkEventButton, time} ptr
+ (time :: #gtk2hs_type guint32) <- #{peek GdkEventButton, time} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 427
- (time :: #type guint32) <- #{peek GdkEventScroll, time} ptr
+ (time :: #gtk2hs_type guint32) <- #{peek GdkEventScroll, time} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 430
- (time :: #type guint32) <- #{peek GdkEventMotion, time} ptr
+ (time :: #gtk2hs_type guint32) <- #{peek GdkEventMotion, time} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 434
- (time :: #type guint32) <- #{peek GdkEventCrossing, time} ptr
+ (time :: #gtk2hs_type guint32) <- #{peek GdkEventCrossing, time} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 437
- (time :: #type guint32) <- #{peek GdkEventProperty, time} ptr
+ (time :: #gtk2hs_type guint32) <- #{peek GdkEventProperty, time} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 441
- (time :: #type guint32) <- #{peek GdkEventProximity, time} ptr
+ (time :: #gtk2hs_type guint32) <- #{peek GdkEventProximity, time} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 444
- (time :: #type guint32) <- #{peek GdkEventOwnerChange, time} ptr
+ (time :: #gtk2hs_type guint32) <- #{peek GdkEventOwnerChange, time} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 451
- (#{peek GdkEventKey, keyval} ptr :: IO #{type guint}) [_$_]
+ (#{peek GdkEventKey, keyval} ptr :: IO #{gtk2hs_type guint}) [_$_]
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 460
- (#{peek GdkEventKey, hardware_keycode} ptr :: IO #{type guint16})
+ (#{peek GdkEventKey, hardware_keycode} ptr :: IO #{gtk2hs_type guint16})
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 465
- (#{peek GdkEventKey, group} ptr :: IO #{type guint8})
+ (#{peek GdkEventKey, group} ptr :: IO #{gtk2hs_type guint8})
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 470
- (#{peek GdkEventButton, button} ptr :: IO #{type guint})
+ (#{peek GdkEventButton, button} ptr :: IO #{gtk2hs_type guint})
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 475
- (#{peek GdkEventScroll, direction} ptr :: IO #{type GdkScrollDirection})
+ (#{peek GdkEventScroll, direction} ptr :: IO #{gtk2hs_type GdkScrollDirection})
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 481
- (#{peek GdkEventMotion, is_hint} ptr :: IO #{type gint16})
+ (#{peek GdkEventMotion, is_hint} ptr :: IO #{gtk2hs_type gint16})
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 501
- (#{peek GdkEventVisibility, state} ptr :: IO #{type GdkVisibilityState})
+ (#{peek GdkEventVisibility, state} ptr :: IO #{gtk2hs_type GdkVisibilityState})
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 506
- (#{peek GdkEventCrossing, mode} ptr :: IO #{type GdkCrossingMode})
+ (#{peek GdkEventCrossing, mode} ptr :: IO #{gtk2hs_type GdkCrossingMode})
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 511
- (#{peek GdkEventCrossing, detail} ptr :: IO #{type GdkNotifyType})
+ (#{peek GdkEventCrossing, detail} ptr :: IO #{gtk2hs_type GdkNotifyType})
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 516
- (#{peek GdkEventCrossing, focus} ptr :: IO #{type gboolean})
+ (#{peek GdkEventCrossing, focus} ptr :: IO #{gtk2hs_type gboolean})
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 521
- (#{peek GdkEventFocus, in} ptr :: IO #{type gint16})
+ (#{peek GdkEventFocus, in} ptr :: IO #{gtk2hs_type gint16})
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 526
- (x :: #{type gint}) <- #{peek GdkEventConfigure, x} ptr
- (y :: #{type gint}) <- #{peek GdkEventConfigure, y} ptr
+ (x :: #{gtk2hs_type gint}) <- #{peek GdkEventConfigure, x} ptr
+ (y :: #{gtk2hs_type gint}) <- #{peek GdkEventConfigure, y} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 533
- (x :: #{type gint}) <- #{peek GdkEventConfigure, width} ptr
- (y :: #{type gint}) <- #{peek GdkEventConfigure, height} ptr
+ (x :: #{gtk2hs_type gint}) <- #{peek GdkEventConfigure, width} ptr
+ (y :: #{gtk2hs_type gint}) <- #{peek GdkEventConfigure, height} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 544
- (#{peek GdkEventWindowState, changed_mask} ptr :: IO #{type GdkWindowState})
+ (#{peek GdkEventWindowState, changed_mask} ptr :: IO #{gtk2hs_type GdkWindowState})
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 549
- (#{peek GdkEventWindowState, new_window_state} ptr :: IO #{type GdkWindowState})
+ (#{peek GdkEventWindowState, new_window_state} ptr :: IO #{gtk2hs_type GdkWindowState})
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 555
- (#{peek GdkEventOwnerChange, reason} ptr :: IO #{type GdkOwnerChange})
+ (#{peek GdkEventOwnerChange, reason} ptr :: IO #{gtk2hs_type GdkOwnerChange})
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 565
- (#{peek GdkEventOwnerChange, selection_time} ptr :: IO (#{type guint32}))
+ (#{peek GdkEventOwnerChange, selection_time} ptr :: IO (#{gtk2hs_type guint32}))
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 573
- (#{peek GdkEventGrabBroken, keyboard} ptr :: IO #{type gboolean})
+ (#{peek GdkEventGrabBroken, keyboard} ptr :: IO #{gtk2hs_type gboolean})
hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 578
- (#{peek GdkEventGrabBroken, implicit} ptr :: IO #{type gboolean})
+ (#{peek GdkEventGrabBroken, implicit} ptr :: IO #{gtk2hs_type gboolean})
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 387
- (eType::#type GdkEventType) <- #{peek GdkEventAny,type} ptr
+ (eType::#gtk2hs_type GdkEventType) <- #{peek GdkEventAny,type} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 417
- (sent ::#type gint8) <- #{peek GdkEventAny, send_event} ptr
+ (sent ::#gtk2hs_type gint8) <- #{peek GdkEventAny, send_event} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 423
- (#{const GDK_EXPOSE}::#type GdkEventType) <- #{peek GdkEventAny,type} ptr
- (sent_ ::#type gint8) <- #{peek GdkEventExpose, send_event} ptr
+ (#{const GDK_EXPOSE}::#gtk2hs_type GdkEventType) <- #{peek GdkEventAny,type} ptr
+ (sent_ ::#gtk2hs_type gint8) <- #{peek GdkEventExpose, send_event} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 429
- (count_ ::#type gint) <- #{peek GdkEventExpose, count} ptr
+ (count_ ::#gtk2hs_type gint) <- #{peek GdkEventExpose, count} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 441
- (#{const GDK_EXPOSE}::#type GdkEventType) <- #{peek GdkEventAny,type} ptr
+ (#{const GDK_EXPOSE}::#gtk2hs_type GdkEventType) <- #{peek GdkEventAny,type} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 446
- (sent_ ::#type gint8) <- #{peek GdkEventMotion, send_event} ptr
- (time_ ::#type guint32) <- #{peek GdkEventMotion, time} ptr
- (x_ ::#type gdouble) <- #{peek GdkEventMotion, x} ptr
- (y_ ::#type gdouble) <- #{peek GdkEventMotion, y} ptr
- (modif_ ::#type guint) <- #{peek GdkEventMotion, state} ptr
- (isHint_ ::#type gint16) <- #{peek GdkEventMotion, is_hint} ptr
- (xRoot_ ::#type gdouble) <- #{peek GdkEventMotion, x_root} ptr
- (yRoot_ ::#type gdouble) <- #{peek GdkEventMotion, y_root} ptr
+ (sent_ ::#gtk2hs_type gint8) <- #{peek GdkEventMotion, send_event} ptr
+ (time_ ::#gtk2hs_type guint32) <- #{peek GdkEventMotion, time} ptr
+ (x_ ::#gtk2hs_type gdouble) <- #{peek GdkEventMotion, x} ptr
+ (y_ ::#gtk2hs_type gdouble) <- #{peek GdkEventMotion, y} ptr
+ (modif_ ::#gtk2hs_type guint) <- #{peek GdkEventMotion, state} ptr
+ (isHint_ ::#gtk2hs_type gint16) <- #{peek GdkEventMotion, is_hint} ptr
+ (xRoot_ ::#gtk2hs_type gdouble) <- #{peek GdkEventMotion, x_root} ptr
+ (yRoot_ ::#gtk2hs_type gdouble) <- #{peek GdkEventMotion, y_root} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 465
- (sent_ ::#type gint8) <- #{peek GdkEventButton, send_event} ptr
- (time_ ::#type guint32) <- #{peek GdkEventButton, time} ptr
- (x_ ::#type gdouble) <- #{peek GdkEventButton, x} ptr
- (y_ ::#type gdouble) <- #{peek GdkEventButton, y} ptr
- (modif_ ::#type guint) <- #{peek GdkEventButton, state} ptr
- (button_ ::#type guint) <- #{peek GdkEventButton, button} ptr
- (xRoot_ ::#type gdouble) <- #{peek GdkEventButton, x_root} ptr
- (yRoot_ ::#type gdouble) <- #{peek GdkEventButton, y_root} ptr
+ (sent_ ::#gtk2hs_type gint8) <- #{peek GdkEventButton, send_event} ptr
+ (time_ ::#gtk2hs_type guint32) <- #{peek GdkEventButton, time} ptr
+ (x_ ::#gtk2hs_type gdouble) <- #{peek GdkEventButton, x} ptr
+ (y_ ::#gtk2hs_type gdouble) <- #{peek GdkEventButton, y} ptr
+ (modif_ ::#gtk2hs_type guint) <- #{peek GdkEventButton, state} ptr
+ (button_ ::#gtk2hs_type guint) <- #{peek GdkEventButton, button} ptr
+ (xRoot_ ::#gtk2hs_type gdouble) <- #{peek GdkEventButton, x_root} ptr
+ (yRoot_ ::#gtk2hs_type gdouble) <- #{peek GdkEventButton, y_root} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 486
- (sent_ ::#type gint8) <- #{peek GdkEventKey, send_event} ptr
- (time_ ::#type guint32) <- #{peek GdkEventKey, time} ptr
- (modif_ ::#type guint) <- #{peek GdkEventKey, state} ptr
- (keyval_ ::#type guint) <- #{peek GdkEventKey, keyval} ptr
+ (sent_ ::#gtk2hs_type gint8) <- #{peek GdkEventKey, send_event} ptr
+ (time_ ::#gtk2hs_type guint32) <- #{peek GdkEventKey, time} ptr
+ (modif_ ::#gtk2hs_type guint) <- #{peek GdkEventKey, state} ptr
+ (keyval_ ::#gtk2hs_type guint) <- #{peek GdkEventKey, keyval} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 491
- (length_ ::#type gint) <- #{peek GdkEventKey, length} ptr
+ (length_ ::#gtk2hs_type gint) <- #{peek GdkEventKey, length} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 507
- (sent_ ::#type gint8) <- #{peek GdkEventCrossing, send_event} ptr
- (time_ ::#type guint32) <- #{peek GdkEventCrossing, time} ptr
- (x_ ::#type gdouble) <- #{peek GdkEventCrossing, x} ptr
- (y_ ::#type gdouble) <- #{peek GdkEventCrossing, y} ptr
- (modif_ ::#type guint) <- #{peek GdkEventCrossing, state} ptr
- (xRoot_ ::#type gdouble) <- #{peek GdkEventCrossing, x_root} ptr
- (yRoot_ ::#type gdouble) <- #{peek GdkEventCrossing, y_root} ptr
- (cMode_ ::#type GdkCrossingMode) [_$_]
+ (sent_ ::#gtk2hs_type gint8) <- #{peek GdkEventCrossing, send_event} ptr
+ (time_ ::#gtk2hs_type guint32) <- #{peek GdkEventCrossing, time} ptr
+ (x_ ::#gtk2hs_type gdouble) <- #{peek GdkEventCrossing, x} ptr
+ (y_ ::#gtk2hs_type gdouble) <- #{peek GdkEventCrossing, y} ptr
+ (modif_ ::#gtk2hs_type guint) <- #{peek GdkEventCrossing, state} ptr
+ (xRoot_ ::#gtk2hs_type gdouble) <- #{peek GdkEventCrossing, x_root} ptr
+ (yRoot_ ::#gtk2hs_type gdouble) <- #{peek GdkEventCrossing, y_root} ptr
+ (cMode_ ::#gtk2hs_type GdkCrossingMode) [_$_]
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 516
- (nType_ ::#type GdkNotifyType)
+ (nType_ ::#gtk2hs_type GdkNotifyType)
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 518
- (modif_ ::#type guint) <- #{peek GdkEventCrossing, state} ptr
+ (modif_ ::#gtk2hs_type guint) <- #{peek GdkEventCrossing, state} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 533
- (sent_ ::#type gint8) <- #{peek GdkEventFocus, send_event} ptr
- (inFocus_::#type gint16) <- #{peek GdkEventFocus, in} ptr
+ (sent_ ::#gtk2hs_type gint8) <- #{peek GdkEventFocus, send_event} ptr
+ (inFocus_::#gtk2hs_type gint16) <- #{peek GdkEventFocus, in} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 540
- (sent_ ::#type gint8) <- #{peek GdkEventConfigure, send_event} ptr
- (xPar_ ::#type gint) <- #{peek GdkEventConfigure, x} ptr
- (yPar_ ::#type gint) <- #{peek GdkEventConfigure, y} ptr
- (width_ ::#type gint) <- #{peek GdkEventConfigure, width} ptr
- (height_ ::#type gint) <- #{peek GdkEventConfigure, height} ptr
+ (sent_ ::#gtk2hs_type gint8) <- #{peek GdkEventConfigure, send_event} ptr
+ (xPar_ ::#gtk2hs_type gint) <- #{peek GdkEventConfigure, x} ptr
+ (yPar_ ::#gtk2hs_type gint) <- #{peek GdkEventConfigure, y} ptr
+ (width_ ::#gtk2hs_type gint) <- #{peek GdkEventConfigure, width} ptr
+ (height_ ::#gtk2hs_type gint) <- #{peek GdkEventConfigure, height} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 554
- (sent_ ::#type gint8) <- #{peek GdkEventProperty, send_event} ptr
- (time_ ::#type guint32) <- #{peek GdkEventProperty, time} ptr
+ (sent_ ::#gtk2hs_type gint8) <- #{peek GdkEventProperty, send_event} ptr
+ (time_ ::#gtk2hs_type guint32) <- #{peek GdkEventProperty, time} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 562
- (sent_ ::#type gint8) <- #{peek GdkEventProximity, send_event} ptr
- (time_ ::#type guint32) <- #{peek GdkEventProximity, time} ptr
+ (sent_ ::#gtk2hs_type gint8) <- #{peek GdkEventProximity, send_event} ptr
+ (time_ ::#gtk2hs_type guint32) <- #{peek GdkEventProximity, time} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 570
- (sent_ ::#type gint8) <- #{peek GdkEventVisibility, send_event} ptr
- (state_ ::#type GdkVisibilityState)
+ (sent_ ::#gtk2hs_type gint8) <- #{peek GdkEventVisibility, send_event} ptr
+ (state_ ::#gtk2hs_type GdkVisibilityState)
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 578
- (sent_ ::#type gint8) <- #{peek GdkEventScroll, send_event} ptr
- (time_ ::#type guint32) <- #{peek GdkEventScroll, time} ptr
- (x_ ::#type gdouble) <- #{peek GdkEventScroll, x} ptr
- (y_ ::#type gdouble) <- #{peek GdkEventScroll, y} ptr
- (direc_ ::#type GdkScrollDirection)
+ (sent_ ::#gtk2hs_type gint8) <- #{peek GdkEventScroll, send_event} ptr
+ (time_ ::#gtk2hs_type guint32) <- #{peek GdkEventScroll, time} ptr
+ (x_ ::#gtk2hs_type gdouble) <- #{peek GdkEventScroll, x} ptr
+ (y_ ::#gtk2hs_type gdouble) <- #{peek GdkEventScroll, y} ptr
+ (direc_ ::#gtk2hs_type GdkScrollDirection)
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 584
- (xRoot_ ::#type gdouble) <- #{peek GdkEventScroll, x_root} ptr
- (yRoot_ ::#type gdouble) <- #{peek GdkEventScroll, y_root} ptr
+ (xRoot_ ::#gtk2hs_type gdouble) <- #{peek GdkEventScroll, x_root} ptr
+ (yRoot_ ::#gtk2hs_type gdouble) <- #{peek GdkEventScroll, y_root} ptr
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 597
- (sent_ ::#type gint8) <- #{peek GdkEventWindowState, send_event} ptr
- (wMask_ ::#type GdkWindowState)
+ (sent_ ::#gtk2hs_type gint8) <- #{peek GdkEventWindowState, send_event} ptr
+ (wMask_ ::#gtk2hs_type GdkWindowState)
hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 600
- (wState_ ::#type GdkWindowState)
+ (wState_ ::#gtk2hs_type GdkWindowState)
hunk ./gtk/Graphics/UI/Gtk/General/StockItems.hsc 188
- (modifier :: #type GdkModifierType)
+ (modifier :: #gtk2hs_type GdkModifierType)
hunk ./gtk/Graphics/UI/Gtk/General/StockItems.hsc 190
- (keyval :: #type guint)
+ (keyval :: #gtk2hs_type guint)
hunk ./gtk/Graphics/UI/Gtk/General/StockItems.hsc 216
- ((fromIntegral (fromFlags modifier))::#{type GdkModifierType})
- #{poke GtkStockItem, keyval} siPtr ((fromIntegral keyval)::#{type guint})
+ ((fromIntegral (fromFlags modifier))::#{gtk2hs_type GdkModifierType})
+ #{poke GtkStockItem, keyval} siPtr ((fromIntegral keyval)::#{gtk2hs_type guint})
hunk ./gtk/Graphics/UI/Gtk/General/StockItems.hsc 260
- stock_add :: Ptr StockItem -> #{type guint} -> IO ()
+ stock_add :: Ptr StockItem -> #{gtk2hs_type guint} -> IO ()
hunk ./gtk/Graphics/UI/Gtk/General/StockItems.hsc 263
- stock_lookup :: CString -> Ptr StockItem -> IO #type gboolean
+ stock_lookup :: CString -> Ptr StockItem -> IO #gtk2hs_type gboolean
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 131
- alignment _ = alignment (undefined:: #type gint)
+ alignment _ = alignment (undefined:: #gtk2hs_type gint)
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 133
- (x_ ::#type gint) <- #{peek GdkRectangle, x} ptr
- (y_ ::#type gint) <- #{peek GdkRectangle, y} ptr
- (width_ ::#type gint) <- #{peek GdkRectangle, width} ptr
- (height_ ::#type gint) <- #{peek GdkRectangle, height} ptr
+ (x_ ::#gtk2hs_type gint) <- #{peek GdkRectangle, x} ptr
+ (y_ ::#gtk2hs_type gint) <- #{peek GdkRectangle, y} ptr
+ (width_ ::#gtk2hs_type gint) <- #{peek GdkRectangle, width} ptr
+ (height_ ::#gtk2hs_type gint) <- #{peek GdkRectangle, height} ptr
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 140
- #{poke GdkRectangle, x} ptr ((fromIntegral x)::#type gint)
- #{poke GdkRectangle, y} ptr ((fromIntegral y)::#type gint)
- #{poke GdkRectangle, width} ptr ((fromIntegral width)::#type gint)
- #{poke GdkRectangle, height} ptr ((fromIntegral height)::#type gint)
+ #{poke GdkRectangle, x} ptr ((fromIntegral x)::#gtk2hs_type gint)
+ #{poke GdkRectangle, y} ptr ((fromIntegral y)::#gtk2hs_type gint)
+ #{poke GdkRectangle, width} ptr ((fromIntegral width)::#gtk2hs_type gint)
+ #{poke GdkRectangle, height} ptr ((fromIntegral height)::#gtk2hs_type gint)
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 150
-data Color = Color (#type guint16) (#type guint16) (#type guint16)
+data Color = Color (#gtk2hs_type guint16) (#gtk2hs_type guint16) (#gtk2hs_type guint16)
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 154
- alignment _ = alignment (undefined::#type guint32)
+ alignment _ = alignment (undefined::#gtk2hs_type guint32)
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 161
- #{poke GdkColor, pixel} ptr (0::#{type gint32})
+ #{poke GdkColor, pixel} ptr (0::#{gtk2hs_type gint32})
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 226
- (function_ :: #{type GdkFunction}) <- #{peek GdkGCValues, function} ptr
- (fill_ :: #{type GdkFill}) <- #{peek GdkGCValues, fill} ptr
+ (function_ :: #{gtk2hs_type GdkFunction}) <- #{peek GdkGCValues, function} ptr
+ (fill_ :: #{gtk2hs_type GdkFill}) <- #{peek GdkGCValues, fill} ptr
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 240
- (subwindow_ :: #{type GdkSubwindowMode}) [_$_]
+ (subwindow_ :: #{gtk2hs_type GdkSubwindowMode}) [_$_]
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 242
- (tsXOrigin_ :: #{type gint}) [_$_]
+ (tsXOrigin_ :: #{gtk2hs_type gint}) [_$_]
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 244
- (tsYOrigin_ :: #{type gint}) [_$_]
+ (tsYOrigin_ :: #{gtk2hs_type gint}) [_$_]
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 246
- (clipXOrigin_:: #{type gint}) [_$_]
+ (clipXOrigin_:: #{gtk2hs_type gint}) [_$_]
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 248
- (clipYOrigin_:: #{type gint}) [_$_]
+ (clipYOrigin_:: #{gtk2hs_type gint}) [_$_]
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 250
- (graphics_ :: #{type gint})
+ (graphics_ :: #{gtk2hs_type gint})
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 252
- (lineWidth_ :: #{type gint})
+ (lineWidth_ :: #{gtk2hs_type gint})
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 254
- (lineStyle_ :: #{type GdkLineStyle}) [_$_]
+ (lineStyle_ :: #{gtk2hs_type GdkLineStyle}) [_$_]
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 256
- (capStyle_ :: #{type GdkCapStyle}) [_$_]
+ (capStyle_ :: #{gtk2hs_type GdkCapStyle}) [_$_]
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 258
- (joinStyle_ :: #{type GdkJoinStyle}) [_$_]
+ (joinStyle_ :: #{gtk2hs_type GdkJoinStyle}) [_$_]
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 307
- (fromIntegral (fromEnum function_):: #{type GdkFunction})
+ (fromIntegral (fromEnum function_):: #{gtk2hs_type GdkFunction})
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 310
- (fromIntegral (fromEnum fill_):: #{type GdkFill})
+ (fromIntegral (fromEnum fill_):: #{gtk2hs_type GdkFill})
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 328
- (fromIntegral (fromEnum subwindow_):: #{type GdkSubwindowMode})
+ (fromIntegral (fromEnum subwindow_):: #{gtk2hs_type GdkSubwindowMode})
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 331
- (fromIntegral tsXOrigin_:: #{type gint})
+ (fromIntegral tsXOrigin_:: #{gtk2hs_type gint})
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 334
- (fromIntegral tsYOrigin_:: #{type gint})
+ (fromIntegral tsYOrigin_:: #{gtk2hs_type gint})
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 337
- (fromIntegral clipXOrigin_:: #{type gint})
+ (fromIntegral clipXOrigin_:: #{gtk2hs_type gint})
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 340
- (fromIntegral clipYOrigin_:: #{type gint})
+ (fromIntegral clipYOrigin_:: #{gtk2hs_type gint})
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 343
- (fromBool graphics_:: #{type gint})
+ (fromBool graphics_:: #{gtk2hs_type gint})
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 346
- (fromIntegral lineWidth_:: #{type gint})
+ (fromIntegral lineWidth_:: #{gtk2hs_type gint})
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 349
- (fromIntegral (fromEnum lineStyle_):: #{type GdkLineStyle})
+ (fromIntegral (fromEnum lineStyle_):: #{gtk2hs_type GdkLineStyle})
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 352
- (fromIntegral (fromEnum capStyle_):: #{type GdkCapStyle})
+ (fromIntegral (fromEnum capStyle_):: #{gtk2hs_type GdkCapStyle})
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 355
- (fromIntegral (fromEnum joinStyle_):: #{type GdkJoinStyle})
+ (fromIntegral (fromEnum joinStyle_):: #{gtk2hs_type GdkJoinStyle})
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 398
- liftM (\x -> toEnum (fromIntegral (x :: #type guint8))) $
+ liftM (\x -> toEnum (fromIntegral (x :: #gtk2hs_type guint8))) $
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 408
- liftM (\x -> toEnum (fromIntegral (x :: #type guint8))) $
+ liftM (\x -> toEnum (fromIntegral (x :: #gtk2hs_type guint8))) $
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 430
- alignment _ = alignment (undefined::#type gint)
+ alignment _ = alignment (undefined::#gtk2hs_type gint)
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 432
- (width_ ::#type gint) <- #{peek GtkRequisition, width} ptr
- (height_ ::#type gint) <- #{peek GtkRequisition, height} ptr
+ (width_ ::#gtk2hs_type gint) <- #{peek GtkRequisition, width} ptr
+ (height_ ::#gtk2hs_type gint) <- #{peek GtkRequisition, height} ptr
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 436
- #{poke GtkRequisition, width} ptr ((fromIntegral width)::#type gint)
- #{poke GtkRequisition, height} ptr ((fromIntegral height)::#type gint)
+ #{poke GtkRequisition, width} ptr ((fromIntegral width)::#gtk2hs_type gint)
+ #{poke GtkRequisition, height} ptr ((fromIntegral height)::#gtk2hs_type gint)
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 444
-inputError :: #{type gint}
+inputError :: #{gtk2hs_type gint}
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 581
-newtype NativeWindowId = NativeWindowId #{type GdkNativeWindow} deriving (Eq, Show)
+newtype NativeWindowId = NativeWindowId #{gtk2hs_type GdkNativeWindow} deriving (Eq, Show)
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 599
- CInt -- \#type GtkToolbarChildType
+ CInt -- \#gtk2hs_type GtkToolbarChildType
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 707
- (width :: #{type gint}) <- #{peek GtkAllocation, width} [_$_]
+ (width :: #{gtk2hs_type gint}) <- #{peek GtkAllocation, width} [_$_]
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 709
- (height :: #{type gint}) <- #{peek GtkAllocation, height}
+ (height :: #{gtk2hs_type gint}) <- #{peek GtkAllocation, height}
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 855
-dragContextGetActions dc = liftM (fromIntegral :: #{type int} -> Int) $
+dragContextGetActions dc = liftM (fromIntegral :: #{gtk2hs_type int} -> Int) $
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 860
- #{poke GdkDragContext, actions} ptr (fromIntegral val :: #{type int})
+ #{poke GdkDragContext, actions} ptr (fromIntegral val :: #{gtk2hs_type int})
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 863
-dragContextGetAction dc = liftM (fromIntegral :: #{type int} -> Int) $
+dragContextGetAction dc = liftM (fromIntegral :: #{gtk2hs_type int} -> Int) $
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 868
- #{poke GdkDragContext, action} ptr (fromIntegral val :: #{type int})
+ #{poke GdkDragContext, action} ptr (fromIntegral val :: #{gtk2hs_type int})
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 871
-dragContextGetSuggestedAction dc = liftM (fromIntegral :: #{type int} -> Int) $
+dragContextGetSuggestedAction dc = liftM (fromIntegral :: #{gtk2hs_type int} -> Int) $
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 876
- #{poke GdkDragContext, suggested_action} ptr (fromIntegral val :: #{type int})
+ #{poke GdkDragContext, suggested_action} ptr (fromIntegral val :: #{gtk2hs_type int})
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 937
-data TargetEntry = TargetEntry (Ptr #{type gchar}) InfoId
+data TargetEntry = TargetEntry (Ptr #{gtk2hs_type gchar}) InfoId
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 955
- gdk_atom_name :: Ptr () -> IO (Ptr #{type gchar})
+ gdk_atom_name :: Ptr () -> IO (Ptr #{gtk2hs_type gchar})
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 958
- g_free :: Ptr #{type gchar} -> IO ()
+ g_free :: Ptr #{gtk2hs_type gchar} -> IO ()
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 962
- alignment _ = alignment (undefined::#type guint32)
+ alignment _ = alignment (undefined::#gtk2hs_type guint32)
hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 966
- #{poke GtkTargetEntry, flags} ptr (0::#{type guint})
+ #{poke GtkTargetEntry, flags} ptr (0::#{gtk2hs_type guint})
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 156
- return (toBool (level :: #{type guint8}))
+ return (toBool (level :: #{gtk2hs_type guint8}))
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 163
- (fromIntegral (ofsToUTF start correct) :: #{type guint})
+ (fromIntegral (ofsToUTF start correct) :: #{gtk2hs_type guint})
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 165
- (fromIntegral (ofsToUTF end correct) :: #{type guint})
+ (fromIntegral (ofsToUTF end correct) :: #{gtk2hs_type guint})
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 176
- b = ofsFromUTF (fromIntegral (startByte :: #{type guint})) correct
+ b = ofsFromUTF (fromIntegral (startByte :: #{gtk2hs_type guint})) correct
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 178
- e = ofsFromUTF (fromIntegral (endByte :: #{type guint})) correct
- case ty :: #{type PangoAttrType} of
+ e = ofsFromUTF (fromIntegral (endByte :: #{gtk2hs_type guint})) correct
+ case ty :: #{gtk2hs_type PangoAttrType} of
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 189
- return $ AttrStyle b e (toEnum (fromIntegral (v::#{type int})))
+ return $ AttrStyle b e (toEnum (fromIntegral (v::#{gtk2hs_type int})))
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 192
- return $ AttrWeight b e (toEnum (fromIntegral (v::#{type int})))
+ return $ AttrWeight b e (toEnum (fromIntegral (v::#{gtk2hs_type int})))
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 195
- return $ AttrVariant b e (toEnum (fromIntegral (v::#{type int})))
+ return $ AttrVariant b e (toEnum (fromIntegral (v::#{gtk2hs_type int})))
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 198
- return $ AttrStretch b e (toEnum (fromIntegral (v::#{type int})))
+ return $ AttrStretch b e (toEnum (fromIntegral (v::#{gtk2hs_type int})))
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 201
- return $ AttrSize b e (realToFrac (v::#{type double}))
+ return $ AttrSize b e (realToFrac (v::#{gtk2hs_type double}))
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 205
- return $ AttrAbsSize b e (realToFrac (v::#{type double}))
+ return $ AttrAbsSize b e (realToFrac (v::#{gtk2hs_type double}))
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 219
- return $ AttrUnderline b e (toEnum (fromIntegral (v::#{type int})))
+ return $ AttrUnderline b e (toEnum (fromIntegral (v::#{gtk2hs_type int})))
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 228
- return $ AttrStrikethrough b e (toEnum (fromIntegral (v::#{type int})))
+ return $ AttrStrikethrough b e (toEnum (fromIntegral (v::#{gtk2hs_type int})))
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 237
- return $ AttrRise b e (realToFrac (v::#{type double}))
+ return $ AttrRise b e (realToFrac (v::#{gtk2hs_type double}))
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 246
- return $ AttrScale b e (realToFrac (v::#{type double}))
+ return $ AttrScale b e (realToFrac (v::#{gtk2hs_type double}))
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 250
- return $ AttrFallback b e (toBool (v::#{type int}))
+ return $ AttrFallback b e (toBool (v::#{gtk2hs_type int}))
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 255
- return $ AttrLetterSpacing b e (realToFrac (v::#{type double}))
+ return $ AttrLetterSpacing b e (realToFrac (v::#{gtk2hs_type double}))
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 260
- return $ AttrGravity b e (toEnum (fromIntegral (v::#{type int})))
+ return $ AttrGravity b e (toEnum (fromIntegral (v::#{gtk2hs_type int})))
hunk ./gtk/Graphics/UI/Gtk/Pango/Structs.hsc 263
- return $ AttrGravityHint b e (toEnum (fromIntegral (v::#{type int})))
+ return $ AttrGravityHint b e (toEnum (fromIntegral (v::#{gtk2hs_type int})))
hunk ./mk/common.mk 192
-.hsc.hs: $(CONFIG_HEADER)
+.hsc.hs: $(CONFIG_HEADER) template-hsc-gtk2hs.h
hunk ./mk/common.mk 200
+ -C'-optc-include' -C'-optctemplate-hsc-gtk2hs.h' \
addfile ./template-hsc-gtk2hs.h
hunk ./template-hsc-gtk2hs.h 1
+#ifndef _TEMPLATE_HSC_GTK2HS_H_
+#define _TEMPLATE_HSC_GTK2HS_H_
+
+#include <glib.h>
+
+#define hsc_gtk2hs_type(t) \
+ if ((t)(int)(t)1.4 == (t)1.4) \
+ printf ("%s%" G_GSIZE_FORMAT, \
+ (t)(-1) < (t)0 ? "Int" : "Word", \
+ sizeof (t) * 8); \
+ else \
+ printf ("%s", \
+ sizeof (t) > sizeof (double) ? "LDouble" : \
+ sizeof (t) == sizeof (double) ? "Double" : \
+ "Float");
+
+#endif
|
|
From: Peter g. <pg...@co...> - 2009-01-11 15:47:19
|
Sun Jan 11 10:39:32 EST 2009 Peter Gavin <pg...@gm...>
* mk/link-splitobjs.sh: don't use xargs
hunk ./mk/link-splitobjs.sh.in 15
-cat ${lib}.list | xargs @AR@ q ${lib}
+cat ${lib}.list | while read file ; do @AR@ q ${lib} ${file} ; done
|
|
From: Peter g. <pg...@co...> - 2009-01-11 15:47:17
|
Thu Jan 8 22:56:20 EST 2009 Peter Gavin <pg...@gm...>
* Makefile.am: clean up _hsc_make files
hunk ./Makefile.am 362
+glib_CLEANFILES += \
+ $(libHSglib_a_HSCFILES:.hsc=_hsc_make$(EXEEXT)) \
+ $(libHSglib_a_HSCFILES:.hsc=_hsc_make.c) \
+ $(libHSglib_a_HSCFILES:.hsc=_hsc_make.o)
+
hunk ./Makefile.am 510
+gio_CLEANFILES += \
+ $(libHSgio_a_HSCFILES:.hsc=_hsc_make$(EXEEXT)) \
+ $(libHSgio_a_HSCFILES:.hsc=_hsc_make.c) \
+ $(libHSgio_a_HSCFILES:.hsc=_hsc_make.o)
hunk ./Makefile.am 913
+gtk_CLEANFILES += \
+ $(libHSgtk_a_HSCFILES:.hsc=_hsc_make$(EXEEXT)) \
+ $(libHSgtk_a_HSCFILES:.hsc=_hsc_make.c) \
+ $(libHSgtk_a_HSCFILES:.hsc=_hsc_make.o)
hunk ./Makefile.am 1031
+glade_CLEANFILES += \
+ $(libHSglade_a_HSCFILES:.hsc=_hsc_make$(EXEEXT)) \
+ $(libHSglade_a_HSCFILES:.hsc=_hsc_make.c) \
+ $(libHSglade_a_HSCFILES:.hsc=_hsc_make.o)
hunk ./Makefile.am 1177
+gconf_CLEANFILES += \
+ $(libHSgconf_a_HSCFILES:.hsc=_hsc_make$(EXEEXT)) \
+ $(libHSgconf_a_HSCFILES:.hsc=_hsc_make.c) \
+ $(libHSgconf_a_HSCFILES:.hsc=_hsc_make.o)
hunk ./Makefile.am 1306
+sourceview_CLEANFILES += \
+ $(libHSsourceview_a_HSCFILES:.hsc=_hsc_make$(EXEEXT)) \
+ $(libHSsourceview_a_HSCFILES:.hsc=_hsc_make.c) \
+ $(libHSsourceview_a_HSCFILES:.hsc=_hsc_make.o)
hunk ./Makefile.am 1446
+gtksourceview2_CLEANFILES += \
+ $(libHSgtksourceview2_a_HSCFILES:.hsc=_hsc_make$(EXEEXT)) \
+ $(libHSgtksourceview2_a_HSCFILES:.hsc=_hsc_make.c) \
+ $(libHSgtksourceview2_a_HSCFILES:.hsc=_hsc_make.o)
hunk ./Makefile.am 1564
+mozembed_CLEANFILES += \
+ $(libHSmozembed_a_HSCFILES:.hsc=_hsc_make$(EXEEXT)) \
+ $(libHSmozembed_a_HSCFILES:.hsc=_hsc_make.c) \
+ $(libHSmozembed_a_HSCFILES:.hsc=_hsc_make.o)
hunk ./Makefile.am 1706
+cairo_CLEANFILES += \
+ $(libHScairo_a_HSCFILES:.hsc=_hsc_make$(EXEEXT)) \
+ $(libHScairo_a_HSCFILES:.hsc=_hsc_make.c) \
+ $(libHScairo_a_HSCFILES:.hsc=_hsc_make.o)
hunk ./Makefile.am 1806
+svgcairo_CLEANFILES += \
+ $(libHSsvgcairo_a_HSCFILES:.hsc=_hsc_make$(EXEEXT)) \
+ $(libHSsvgcairo_a_HSCFILES:.hsc=_hsc_make.c) \
+ $(libHSsvgcairo_a_HSCFILES:.hsc=_hsc_make.o)
hunk ./Makefile.am 1928
+gtkglext_CLEANFILES += \
+ $(libHSgtkglext_a_HSCFILES:.hsc=_hsc_make$(EXEEXT)) \
+ $(libHSgtkglext_a_HSCFILES:.hsc=_hsc_make.c) \
+ $(libHSgtkglext_a_HSCFILES:.hsc=_hsc_make.o)
hunk ./Makefile.am 2194
+gnomevfs_CLEANFILES += \
+ $(libHSgnomevfs_a_HSCFILES:.hsc=_hsc_make$(EXEEXT)) \
+ $(libHSgnomevfs_a_HSCFILES:.hsc=_hsc_make.c) \
+ $(libHSgnomevfs_a_HSCFILES:.hsc=_hsc_make.o)
hunk ./Makefile.am 2502
+gstreamer_CLEANFILES += \
+ $(libHSgstreamer_a_HSCFILES:.hsc=_hsc_make$(EXEEXT)) \
+ $(libHSgstreamer_a_HSCFILES:.hsc=_hsc_make.c) \
+ $(libHSgstreamer_a_HSCFILES:.hsc=_hsc_make.o)
|
|
From: Peter g. <pg...@co...> - 2009-01-11 15:47:15
|
Thu Jan 8 22:22:52 EST 2009 Peter Gavin <pg...@gm...>
* Makefile.am, others: fix various haddock problems
hunk ./Makefile.am 780
+ gtk/Graphics/UI/Gtk/General/Structs.hs \
hunk ./Makefile.am 788
+ gtk/Graphics/UI/Gtk/ModelView/Sequence.hs \
hunk ./Makefile.am 2089
+ gnomevfs/System/Gnome/VFS/Constants.hs \
hunk ./Makefile.am 2303
- gstreamer/Media/Streaming/GStreamer/Core/GObjectHierarchyBase.hs \
- gstreamer/Media/Streaming/GStreamer/Core/HierarchyBase.hs \
hunk ./Makefile.am 2304
+ gstreamer/Media/Streaming/GStreamer/Core/Constants.hs \
hunk ./Makefile.am 2307
- gstreamer/Media/Streaming/GStreamer/Controller/Types.hs
+ gstreamer/Media/Streaming/GStreamer/Audio/Types.hs \
+ gstreamer/Media/Streaming/GStreamer/Controller/Types.hs \
+ gstreamer/Media/Streaming/GStreamer/Net/Types.hs
hunk ./Makefile.am 2543
- docs/reference/haddock-util.js \
hunk ./Makefile.am 2546
-if !WIN32
hunk ./Makefile.am 2554
+ docs/reference/haddock-util.js \
hunk ./Makefile.am 2557
+endif
hunk ./Makefile.am 2559
-else
-htmldoc_haddock_files +=
- $(foreach LETTER, A B C D E F G H I J K L M N O P Q R S T U V W X Y
+htmldoc_haddock_files += \
+ $(foreach LETTER, A B C D E F G H I J K L M N O P Q R S T U V W X Y \
hunk ./Makefile.am 2562
-endif
-endif
hunk ./Makefile.am 2674
-htmldoc_HSFILES = $(foreach DEPPKG,$(PACKAGES),$(libHS$(DEPPKG)_a_HSFILES))
+htmldoc_HSFILES = $(foreach PACKAGE,$(PACKAGES),$(libHS$(PACKAGE)_a_HSFILES))
hunk ./Makefile.am 2680
+if !WIN32
hunk ./Makefile.am 2683
+else
+htmldoc_haddock_interfaces = \
+ $(foreach DEPPKG,$(all_externaldeps),$(shell $(GHCPKG) field $(DEPPKG) haddock-interfaces | sed -e 's,^[^:]*:,,' -e 's,\\,/,g' ))
+endif
hunk ./Makefile.am 2690
- echo $(all_externaldeps)
- echo $(htmldoc_haddock_interfaces)
hunk ./gstreamer/Media/Streaming/GStreamer/Hierarchy.chs.template 26
-
+--
hunk ./gstreamer/Media/Streaming/GStreamer/MiniHierarchy.chs.template 26
-
+--
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceStyle/Internal.chs 23
---
+
|
|
From: Peter g. <pg...@co...> - 2009-01-11 15:47:15
|
Tue Jan 6 22:14:07 EST 2009 Peter Gavin <pg...@gm...>
* gio: S.G.File: don't export FileClass's nonexistent methods
hunk ./gio/System/GIO/File.chs 31
- FileClass(..),
+ FileClass,
|
|
From: Peter g. <pg...@co...> - 2009-01-11 15:47:13
|
Tue Jan 6 21:51:21 EST 2009 Peter Gavin <pg...@gm...>
* configure.ac: use 256 megs of ram under windows
hunk ./configure.ac 763
- HSTOOLFLAGS="-M120m"
+ HSTOOLFLAGS="-M256m"
|
|
From: Peter g. <pg...@co...> - 2009-01-02 00:47:37
|
Thu Jan 1 19:46:27 EST 2009 Peter Gavin <pg...@gm...>
* gtk: add marshallers required for Range.{on,after}ChangeValue to gtkmarshal.list
hunk ./tools/callbackGen/gtkmarshal.list 123
-
-
+# for GtkRange::change-value
+BOOLEAN:ENUM,DOUBLE
|
|
From: Peter g. <pg...@co...> - 2009-01-01 18:43:07
|
Thu Jan 1 13:41:56 EST 2009 Peter Gavin <pg...@gm...>
* gio: S.G.File: only export File(..) and FileClass(..), not all of module S.G.Types
hunk ./gio/System/GIO/File.chs 30
- module System.GIO.Types,
+ File(..),
+ FileClass(..),
|
|
From: Peter g. <pg...@co...> - 2009-01-01 18:29:13
|
Fri Dec 19 13:38:34 EST 2008 Peter Gavin <pg...@gm...>
* add gtksourceview2 package
hunk ./Makefile.am 22
+ gtksourceview2/gtksourceview2.h \
hunk ./Makefile.am 72
+if ENABLE_GTKSOURCEVIEW2
+pkglib_LIBRARIES += libHSgtksourceview2.a
+endif
hunk ./Makefile.am 1323
+#
+# gtksourceview2 package
+#
+################################################################################
+
+if ENABLE_GTKSOURCEVIEW2
+
+gtksourceview2_PKGNAME = libHSgtksourceview2_a
+
+libHSgtksourceview2_a_NAME = gtksourceview2
+libHSgtksourceview2_a_CONFIG = gtksourceview2/gtksourceview2.package.conf
+libHSgtksourceview2_a_EXTERNALDEPS = base-$(PKG_BASE_VERSION)
+libHSgtksourceview2_a_INTERNALDEPS = glib gtk
+libHSgtksourceview2_a_HEADER = gtksourceview2.h
+libHSgtksourceview2_a_PRECOMP = gtksourceview2/gtksourceview2.precomp
+libHSgtksourceview2_a_LIBS = $(GLIB_LIBS) $(GTK_LIBS) $(GTKSOURCEVIEW2_LIBS)
+libHSgtksourceview2_a_HCFLAGS = $(FFI)
+libHSgtksourceview2_a_CFLAGS = $(filter-out -I% -D%,$(GLIB_CFLAGS) $(GTK_CFLAGS) $(GTKSOURCEVIEW2_CFLAGS))
+libHSgtksourceview2_a_CPPFLAGS = $(filter -I% -D%,$(GLIB_CFLAGS) $(GTK_CFLAGS) $(GTKSOURCEVIEW2_CFLAGS)) -Igtksourceview2
+
+libHSgtksourceview2_a_SOURCESDIRS = gtksourceview2
+
+gtksourceview2/libHSgtksourceview2_a.deps : gtk/libHSgtk_a.deps
+
+libHSgtksourceview2_a_GENERATEDSOURCES = \
+ gtksourceview2/Graphics/UI/Gtk/SourceView/Types.chs \
+ gtksourceview2/Graphics/UI/Gtk/SourceView/Signals.chs
+
+nodist_libHSgtksourceview2_a_SOURCES = $(libHSgtksourceview2_a_GENERATEDSOURCES)
+
+libHSgtksourceview2_a_SOURCES = \
+ gtksourceview2/Graphics/UI/Gtk/SourceView.hs \
+ gtksourceview2/Graphics/UI/Gtk/SourceView/SourceBuffer.chs \
+ gtksourceview2/Graphics/UI/Gtk/SourceView/SourceIter.chs \
+ gtksourceview2/Graphics/UI/Gtk/SourceView/SourceLanguage.chs \
+ gtksourceview2/Graphics/UI/Gtk/SourceView/SourceLanguageManager.chs \
+ gtksourceview2/Graphics/UI/Gtk/SourceView/SourceStyle.hs \
+ gtksourceview2/Graphics/UI/Gtk/SourceView/SourceStyle/Internal.chs \
+ gtksourceview2/Graphics/UI/Gtk/SourceView/SourceStyleScheme.chs \
+ gtksourceview2/Graphics/UI/Gtk/SourceView/SourceStyleSchemeManager.chs \
+ gtksourceview2/Graphics/UI/Gtk/SourceView/SourceView.chs
+
+htmldoc_HSFILES_HIDDEN += $(libHSgtksourceview2_a_GENERATEDSOURCES:.chs=.hs) \
+ gtksourceview2/Graphics/UI/Gtk/SourceView/SourceStyle/Internal.hs
+
+gtksourceview2_Graphics_UI_Gtk_SourceView_Types_hs_HCFLAGS = -fglasgow-exts
+gtksourceview2_Graphics_UI_Gtk_SourceView_SourceTagStyle_hs_HCFLAGS = -fglasgow-exts
+
+gtksourceview2/Graphics/UI/Gtk/SourceView/Types.chs : \
+ $(srcdir)/tools/hierarchyGen/hierarchy.list \
+ $(srcdir)/tools/hierarchyGen/TypeGenerator$(EXEEXT) \
+ $(srcdir)/tools/hierarchyGen/Hierarchy.chs.template
+ $(strip $(srcdir)/tools/hierarchyGen/TypeGenerator$(EXEEXT) \
+ $(srcdir)/tools/hierarchyGen/hierarchy.list \
+ $(srcdir)/tools/hierarchyGen/Hierarchy.chs.template \
+ $@ --tag=gtksourceview2 --parentname=Graphics.UI.Gtk.Types \
+ --modname=Graphics.UI.Gtk.SourceView.Types)
+
+gtksourceview2/Graphics/UI/Gtk/SourceView/Signals.chs : \
+ $(srcdir)/tools/callbackGen/Signal.chs.template \
+ $(srcdir)/gtksourceview2/marshal.list \
+ $(srcdir)/tools/callbackGen/HookGenerator$(EXEEXT)
+ $(strip $(srcdir)/tools/callbackGen/HookGenerator$(EXEEXT) \
+ $(srcdir)/gtksourceview2/marshal.list \
+ $(srcdir)/tools/callbackGen/Signal.chs.template $@ \
+ Graphics.UI.Gtk.SourceView.Signals)
+
+libHSgtksourceview2_a_ALLSOURCES = $(libHSgtksourceview2_a_SOURCES) $(nodist_libHSgtksourceview2_a_SOURCES)
+
+am_libHSgtksourceview2_a_OBJECTS = \
+ $(addsuffix .$(OBJEXT),$(basename $(basename $(libHSgtksourceview2_a_ALLSOURCES))))
+
+libHSgtksourceview2_a_HSPPFILES = $(filter %.hs.pp, $(libHSgtksourceview2_a_ALLSOURCES))
+libHSgtksourceview2_a_CHSPPFILES = $(filter %.chs.pp,$(libHSgtksourceview2_a_ALLSOURCES))
+libHSgtksourceview2_a_CHSFILES = \
+ $(filter %.chs,$(libHSgtksourceview2_a_ALLSOURCES:.chs.pp=.chs))
+libHSgtksourceview2_a_CHSFILES_HS = $(libHSgtksourceview2_a_CHSFILES:.chs=.hs)
+libHSgtksourceview2_a_HSCFILES = $(filter %.hsc, $(libHSgtksourceview2_a_ALLSOURCES))
+libHSgtksourceview2_a_HSCFILES_HS = $(libHSgtksourceview2_a_HSCFILES:.hsc=.hs)
+libHSgtksourceview2_a_BUILDSOURCES = \
+ $(libHSgtksourceview2_a_HSPPFILES:.hs.pp=.hs) \
+ $(libHSgtksourceview2_a_CHSPPFILES:.chs.pp=.chs) \
+ $(libHSgtksourceview2_a_CHSFILES_HS) \
+ $(libHSgtksourceview2_a_HSCFILES_HS) \
+ $(libHSgtksourceview2_a_GENERATEDSOURCES)
+libHSgtksourceview2_a_HSFILES = \
+ $(filter %.hs,$(libHSgtksourceview2_a_BUILDSOURCES)) \
+ $(filter %.hs,$(libHSgtksourceview2_a_ALLSOURCES))
+
+nobase_hi_DATA += $(libHSgtksourceview2_a_HSFILES:.hs=.hi)
+
+gtksourceview2_MOSTLYCLEANFILES = $(am_libHSgtksourceview2_a_OBJECTS)
+gtksourceview2_MOSTLYCLEANFILES += $(libHSgtksourceview2_a_HSFILES:.hs=.hi)
+gtksourceview2_MOSTLYCLEANFILES += $(libHSgtksourceview2_a_CHSFILES:.chs=.chi)
+gtksourceview2_CLEANFILES = $(libHSgtksourceview2_a_BUILDSOURCES)
+gtksourceview2_CLEANFILES += $(libHSgtksourceview2_a_CHSFILES_HS:.hs=.dep)
+
+$(libHSgtksourceview2_a_CHSFILES:.chs=.dep) : \
+ $(libHSgtk_a_GENERATEDSOURCES) \
+ $(libHSgtksourceview2_a_GENERATEDSOURCES)
+
+ifeq (,$(findstring clean,$(MAKECMDGOALS)))
+-include $(libHSgtksourceview2_a_CHSFILES:.chs=.dep) gtksourceview2/libHSgtksourceview2_a.deps
+ endif
+
+if ENABLE_SPLITOBJS
+libHSgtksourceview2_a_AR = $(srcdir)/mk/link-splitobjs.sh
+gtksourceview2_CLEANFILES_SPLIT = $(libHSgtksourceview2_a_HSFILES:.hs=_split/)
+else
+libHSgtksourceview2_a_AR = $(AR) $(ARFLAGS)
+endif
+
+libHSgtksourceview2_a_DEPENDENCIES = HSgtksourceview2.o
+pkglib_DATA += HSgtksourceview2.o
+HSgtksourceview2.o : $(libHSgtksourceview2_a_OBJECTS)
+ $(LD) -r $(LD_X) -o $@ $(libHSgtksourceview2_a_OBJECTS) $(libHSgtksourceview2_a_LIBADD)
+
+if ENABLE_PROFILING
+libHSgtksourceview2_a_DEPENDENCIES += libHSgtksourceview2_p.a
+pkglib_DATA += libHSgtksourceview2_p.a
+libHSgtksourceview2_p.a : $(libHSgtksourceview2_a_HSFILES:.hs=.p_o) \
+ $(libHSgtksourceview2_a_LIBADD:.o=.p_o)
+ $(AR) $(ARFLAGS) $@ $^
+
+ifeq (,$(findstring clean,$(MAKECMDGOALS)))
+-include gtksourceview2/libHSgtksourceview2_a.p_deps
+ endif
+
+nobase_hi_DATA += $(libHSgtksourceview2_a_HSFILES:.hs=.p_hi)
+gtksourceview2_MOSTLYCLEANFILES += $(libHSgtksourceview2_a_HSFILES:.hs=.p_hi)
+gtksourceview2_MOSTLYCLEANFILES += $(libHSgtksourceview2_a_HSFILES:.hs=.p_o)
+gtksourceview2_MOSTLYCLEANFILES += $(libHSgtksourceview2_a_LIBADD:.o=.p_o)
+endif
+
+endif #ENABLE_GTKSOURCEVIEW2
+
hunk ./Makefile.am 2933
+ rm -f $(gtksourceview2_MOSTLYCLEANFILES)
hunk ./Makefile.am 2958
+ rm -f $(gtksourceview2_CLEANFILES)
+ rm -rf $(gtksourceview2_CLEANFILES_SPLIT)
hunk ./configure.ac 313
+GTKHS_PKG_CHECK(gtksourceview2, gtksourceview2, GTKSOURCEVIEW2, [gtksourceview-2.0 >= 2.0.2], [GLIB GTK],
+ [build gtksourceview2 package (default=auto)],
+ [GtkSourceView-2.0 requirement not met. Perhaps you need to install gtksourceview-2.0 or gtksourceview-devel-2.0])
+
+dnl Don't build sourceview and gtksourceview2 at the same time
+dnl (prefer gtksourceview2 if both are auto)
+ENABLE_PKG_DEFAULT_sourceview_save="$ENABLE_PKG_DEFAULT"
+if test "$ENABLE_GTKSOURCEVIEW2" = "yes" ; then
+ ENABLE_PKG_DEFAULT=no
+fi
hunk ./configure.ac 326
+ENABLE_PKG_DEFAULT="$ENABLE_PKG_DEFAULT_sourceview_save"
+if test "$ENABLE_GTKSOURCEVIEW2" = "yes" -a "$ENABLE_SOURCEVIEW" = "yes" ; then
+ AC_ERROR([The sourceview and gtksourceview2 packages cannot be enabled simultaneously.
+ If you want to build sourceview, you must use --disable-gtksourceview2.])
+fi
hunk ./configure.ac 429
+ GTKHS_GLIBC_PTHREAD_HACK(GTKSOURCEVIEW2_LIBS)
hunk ./configure.ac 581
+GTKHS_PACKAGE_FILTER_CFLAGS([GTKSOURCEVIEW2_CFLAGS], [$GLIB_CFLAGS $GTK_CFLAGS], [$GTKSOURCEVIEW2_CFLAGS])
+GTKHS_PACKAGE_FILTER_LIBS([GTKSOURCEVIEW2_LIBS], [$GLIB_LIBS $GTK_LIBS], [$GTKSOURCEVIEW2_LIBS])
+
hunk ./configure.ac 648
+GTKHS_REFORMAT_PACKAGE_CFLAGS(GTKSOURCEVIEW2_CFLAGS, GTKSOURCEVIEW2_CFLAGS_CQ)
+GTKHS_REFORMAT_PACKAGE_LIBS(GTKSOURCEVIEW2_LIBS, GTKSOURCEVIEW2_LIBS_CQ,
+ GTKSOURCEVIEW2_LIBDIR_CQ, GTKSOURCEVIEW2_LIBEXTRA_CQ)
+AC_SUBST(GTKSOURCEVIEW2_CFLAGS_CQ)
+AC_SUBST(GTKSOURCEVIEW2_LIBS_CQ)
+AC_SUBST(GTKSOURCEVIEW2_LIBDIR_CQ)
+AC_SUBST(GTKSOURCEVIEW2_LIBEXTRA_CQ)
+
hunk ./configure.ac 890
- glib/glib.package.conf glib/glib.cabal
- gtk/gtk.package.conf gtk/gtk.cabal
- gio/gio.package.conf gio/gio.cabal
- glade/glade.package.conf glade/glade.cabal
- gconf/gconf.package.conf gconf/gconf.cabal
- sourceview/sourceview.package.conf sourceview/sourceview.cabal
- mozembed/mozembed.package.conf mozembed/mozembed.cabal
- cairo/cairo.package.conf cairo/cairo.cabal
- svgcairo/svgcairo.package.conf svgcairo/svgcairo.cabal
- gtkglext/gtkglext.package.conf gtkglext/gtkglext.cabal
- soegtk/soegtk.package.conf soegtk/soegtk.cabal
- gnomevfs/gnomevfs.package.conf gnomevfs/gnomevfs.cabal
- gstreamer/gstreamer.package.conf gstreamer/gstreamer.cabal
+ glib/glib.package.conf glib/glib.cabal
+ gtk/gtk.package.conf gtk/gtk.cabal
+ gio/gio.package.conf gio/gio.cabal
+ glade/glade.package.conf glade/glade.cabal
+ gconf/gconf.package.conf gconf/gconf.cabal
+ sourceview/sourceview.package.conf sourceview/sourceview.cabal
+ gtksourceview2/gtksourceview2.package.conf gtksourceview2/gtksourceview2.cabal
+ mozembed/mozembed.package.conf mozembed/mozembed.cabal
+ cairo/cairo.package.conf cairo/cairo.cabal
+ svgcairo/svgcairo.package.conf svgcairo/svgcairo.cabal
+ gtkglext/gtkglext.package.conf gtkglext/gtkglext.cabal
+ soegtk/soegtk.package.conf soegtk/soegtk.cabal
+ gnomevfs/gnomevfs.package.conf gnomevfs/gnomevfs.cabal
+ gstreamer/gstreamer.package.conf gstreamer/gstreamer.cabal
hunk ./configure.ac 914
-echo "* glib : yes "
-echo "* gtk : ${ENABLE_GTK} "
-echo "* gio : ${ENABLE_GIO} "
-echo "* glade : ${ENABLE_LIBGLADE} "
-echo "* cairo : ${ENABLE_CAIRO} "
-echo "* svgcairo : ${ENABLE_SVGCAIRO} "
-echo "* gtkglext : ${ENABLE_GTKGLEXT} "
-echo "* gconf : ${ENABLE_GCONF} "
-echo "* sourceview : ${ENABLE_SOURCEVIEW} "
-echo "* mozembed : ${ENABLE_MOZEMBED} "
-echo "* soegtk : ${ENABLE_GTK} "
-echo "* gnomevfs : ${ENABLE_GNOMEVFS} "
-echo "* gstreamer : ${ENABLE_GSTREAMER} "
-echo "* documentation : ${BUILDDOCS} "
+echo "* glib : yes "
+echo "* gtk : ${ENABLE_GTK} "
+echo "* gio : ${ENABLE_GIO} "
+echo "* glade : ${ENABLE_LIBGLADE} "
+echo "* cairo : ${ENABLE_CAIRO} "
+echo "* svgcairo : ${ENABLE_SVGCAIRO} "
+echo "* gtkglext : ${ENABLE_GTKGLEXT} "
+echo "* gconf : ${ENABLE_GCONF} "
+echo "* sourceview : ${ENABLE_SOURCEVIEW} "
+echo "* gtksourceview2 : ${ENABLE_GTKSOURCEVIEW2} "
+echo "* mozembed : ${ENABLE_MOZEMBED} "
+echo "* soegtk : ${ENABLE_GTK} "
+echo "* gnomevfs : ${ENABLE_GNOMEVFS} "
+echo "* gstreamer : ${ENABLE_GSTREAMER} "
+echo "* documentation : ${BUILDDOCS} "
adddir ./gtksourceview2
adddir ./gtksourceview2/Graphics
adddir ./gtksourceview2/Graphics/UI
adddir ./gtksourceview2/Graphics/UI/Gtk
adddir ./gtksourceview2/Graphics/UI/Gtk/SourceView
addfile ./gtksourceview2/Graphics/UI/Gtk/SourceView.hs
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView.hs 1
+module Graphics.UI.Gtk.SourceView (
+ module Graphics.UI.Gtk.SourceView.SourceBuffer,
+ module Graphics.UI.Gtk.SourceView.SourceIter,
+ module Graphics.UI.Gtk.SourceView.SourceLanguage,
+ module Graphics.UI.Gtk.SourceView.SourceLanguageManager,
+ module Graphics.UI.Gtk.SourceView.SourceStyle,
+ module Graphics.UI.Gtk.SourceView.SourceStyleScheme,
+ module Graphics.UI.Gtk.SourceView.SourceStyleSchemeManager,
+ module Graphics.UI.Gtk.SourceView.SourceView
+ ) where
+
+import Graphics.UI.Gtk.SourceView.SourceBuffer
+import Graphics.UI.Gtk.SourceView.SourceIter
+import Graphics.UI.Gtk.SourceView.SourceLanguage
+import Graphics.UI.Gtk.SourceView.SourceLanguageManager
+import Graphics.UI.Gtk.SourceView.SourceStyle
+import Graphics.UI.Gtk.SourceView.SourceStyleScheme
+import Graphics.UI.Gtk.SourceView.SourceStyleSchemeManager
+import Graphics.UI.Gtk.SourceView.SourceView
addfile ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceBuffer.chs
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceBuffer.chs 1
+-- -*-haskell-*-
+-- GIMP Toolkit (GTK) SourceBuffer
+--
+-- Author : Peter Gavin
+-- derived from sourceview bindings by Axel Simon and Duncan Coutts
+--
+-- Created: 18 December 2008
+--
+-- Copyright (C) 2003-2008 Peter Gavin, Duncan Coutts, Axel Simon
+--
+-- 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)
+--
+module Graphics.UI.Gtk.SourceView.SourceBuffer (
+ SourceBuffer,
+ SourceBufferClass,
+ castToSourceBuffer,
+ sourceBufferNew,
+ sourceBufferNewWithLanguage,
+ sourceBufferSetHighlightSyntax,
+ sourceBufferGetHighlightSyntax,
+ sourceBufferSetLanguage,
+ sourceBufferGetLanguage,
+ sourceBufferSetHighlightMatchingBrackets,
+ sourceBufferGetHighlightMatchingBrackets,
+ sourceBufferSetStyleScheme,
+ sourceBufferGetStyleScheme,
+ sourceBufferSetMaxUndoLevels,
+ sourceBufferGetMaxUndoLevels,
+ sourceBufferGetCanUndo,
+ sourceBufferGetCanRedo,
+ sourceBufferUndo,
+ sourceBufferRedo,
+ sourceBufferBeginNotUndoableAction,
+ sourceBufferEndNotUndoableAction,
+ sourceBufferEnsureHighlight,
+ sourceBufferCanRedo,
+ sourceBufferCanUndo,
+ sourceBufferHighlightMatchingBrackets,
+ sourceBufferHighlightSyntax,
+ sourceBufferLanguage,
+ sourceBufferSourceStyleScheme,
+ sourceBufferHighlightUpdated
+ ) where
+
+import Control.Monad (liftM)
+import Data.Maybe (fromMaybe)
+
+import System.Glib.FFI
+import System.Glib.GObject (constructNewGObject,
+ makeNewGObject)
+{#import System.Glib.Properties#}
+import System.Glib.Attributes
+import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
+{#import Graphics.UI.Gtk.Types#}
+{#import Graphics.UI.Gtk.SourceView.Types#}
+{#import Graphics.UI.Gtk.Signals#}
+{#import Graphics.UI.Gtk.Multiline.Types#}
+{#import Graphics.UI.Gtk.Multiline.TextIter#}
+
+{# context lib="gtk" prefix="gtk" #}
+
+-- methods
+
+-- | Create a new 'SourceBuffer', possibly
+-- taking a 'TextTagTable'.
+--
+sourceBufferNew :: Maybe TextTagTable -> IO SourceBuffer
+sourceBufferNew tt = constructNewGObject mkSourceBuffer $
+ {#call unsafe source_buffer_new#} [_$_]
+ (fromMaybe (mkTextTagTable nullForeignPtr) tt)
+
+-- | Create a new 'SourceBuffer'
+-- with a 'SourceLanguage'.
+--
+sourceBufferNewWithLanguage :: SourceLanguage -> IO SourceBuffer
+sourceBufferNewWithLanguage lang = constructNewGObject mkSourceBuffer $
+ {#call unsafe source_buffer_new_with_language#} lang
+
+-- | [_$_]
+--
+sourceBufferSetHighlightSyntax :: SourceBuffer -> Bool -> IO ()
+sourceBufferSetHighlightSyntax sb newVal =
+ {#call unsafe source_buffer_set_highlight_syntax#} sb (fromBool newVal)
+ [_$_]
+-- | [_$_]
+--
+sourceBufferGetHighlightSyntax :: SourceBuffer -> IO Bool [_$_]
+sourceBufferGetHighlightSyntax sb = liftM toBool $
+ {#call unsafe source_buffer_get_highlight_syntax#} sb
+
+-- | [_$_]
+--
+sourceBufferSetLanguage :: SourceBuffer -> SourceLanguage -> IO ()
+sourceBufferSetLanguage sb lang =
+ {#call unsafe source_buffer_set_language#} sb lang
+ [_$_]
+-- | [_$_]
+--
+sourceBufferGetLanguage :: SourceBuffer -> IO SourceLanguage
+sourceBufferGetLanguage sb = makeNewGObject mkSourceLanguage $
+ {#call unsafe source_buffer_get_language#} sb
+
+-- | [_$_]
+--
+sourceBufferSetHighlightMatchingBrackets :: SourceBuffer -> Bool -> IO ()
+sourceBufferSetHighlightMatchingBrackets sb newVal =
+ {#call unsafe source_buffer_set_highlight_matching_brackets#} sb (fromBool newVal)
+ [_$_]
+-- | [_$_]
+--
+sourceBufferGetHighlightMatchingBrackets :: SourceBuffer -> IO Bool [_$_]
+sourceBufferGetHighlightMatchingBrackets sb = liftM toBool $
+ {#call unsafe source_buffer_get_highlight_matching_brackets#} sb
+
+-- |
+-- [_$_]
+sourceBufferSetStyleScheme :: SourceBuffer -> SourceStyleScheme -> IO ()
+sourceBufferSetStyleScheme sb sss =
+ {#call unsafe source_buffer_set_style_scheme#} sb sss
+
+-- |
+-- [_$_]
+sourceBufferGetStyleScheme :: SourceBuffer -> IO SourceStyleScheme
+sourceBufferGetStyleScheme sb = makeNewGObject mkSourceStyleScheme $
+ {#call unsafe source_buffer_get_style_scheme#} sb
+
+-- | [_$_]
+--
+sourceBufferSetMaxUndoLevels :: SourceBuffer -> Int -> IO ()
+sourceBufferSetMaxUndoLevels sb newVal =
+ {#call unsafe source_buffer_set_max_undo_levels#} sb (fromIntegral newVal)
+ [_$_]
+-- | [_$_]
+--
+sourceBufferGetMaxUndoLevels :: SourceBuffer -> IO Int
+sourceBufferGetMaxUndoLevels sb = liftM fromIntegral $
+ {#call unsafe source_buffer_get_max_undo_levels#} sb
+
+-- | [_$_]
+--
+sourceBufferGetCanUndo :: SourceBuffer -> IO Bool
+sourceBufferGetCanUndo sb = liftM toBool $
+ {#call unsafe source_buffer_can_undo#} sb
+ [_$_]
+-- | [_$_]
+--
+sourceBufferGetCanRedo :: SourceBuffer -> IO Bool
+sourceBufferGetCanRedo sb = liftM toBool $
+ {#call unsafe source_buffer_can_redo#} sb
+
+-- | [_$_]
+--
+sourceBufferUndo :: SourceBuffer -> IO ()
+sourceBufferUndo sb =
+ {#call source_buffer_undo#} sb
+ [_$_]
+-- | [_$_]
+--
+sourceBufferRedo :: SourceBuffer -> IO ()
+sourceBufferRedo sb =
+ {#call source_buffer_redo#} sb
+
+-- | [_$_]
+--
+sourceBufferBeginNotUndoableAction :: SourceBuffer -> IO ()
+sourceBufferBeginNotUndoableAction sb =
+ {#call source_buffer_begin_not_undoable_action#} sb
+ [_$_]
+-- | [_$_]
+--
+sourceBufferEndNotUndoableAction :: SourceBuffer -> IO ()
+sourceBufferEndNotUndoableAction sb =
+ {#call source_buffer_end_not_undoable_action#} sb
+
+-- |
+-- [_$_]
+sourceBufferEnsureHighlight :: SourceBuffer -> TextIter -> TextIter -> IO ()
+sourceBufferEnsureHighlight sb start end =
+ {#call source_buffer_ensure_highlight#} sb start end
+
+-- |
+-- [_$_]
+sourceBufferCanRedo :: ReadAttr SourceBuffer Bool
+sourceBufferCanRedo = readAttrFromBoolProperty "can-redo"
+
+-- |
+-- [_$_]
+sourceBufferCanUndo :: ReadAttr SourceBuffer Bool
+sourceBufferCanUndo = readAttrFromBoolProperty "can-redo"
+
+-- |
+--
+sourceBufferHighlightMatchingBrackets :: Attr SourceBuffer Bool
+sourceBufferHighlightMatchingBrackets = newAttrFromBoolProperty "highlight-matching-brackets"
+
+-- |
+--
+sourceBufferHighlightSyntax :: Attr SourceBuffer Bool
+sourceBufferHighlightSyntax = newAttrFromBoolProperty "highlight-matching-brackets"
+
+-- |
+-- [_$_]
+sourceBufferLanguage :: Attr SourceBuffer (Maybe SourceLanguage)
+sourceBufferLanguage = newAttrFromMaybeObjectProperty "language" gTypeSourceLanguage
+
+-- |
+--
+sourceBufferMaxUndoLevels :: Attr SourceBuffer Int
+sourceBufferMaxUndoLevels = newAttrFromIntProperty "max-undo-levels"
+
+-- |
+-- [_$_]
+sourceBufferSourceStyleScheme :: Attr SourceBuffer (Maybe SourceStyleScheme)
+sourceBufferSourceStyleScheme = newAttrFromMaybeObjectProperty "style-scheme" gTypeSourceStyleScheme
+
+-- |
+--
+sourceBufferHighlightUpdated :: Signal SourceBuffer (TextIter -> TextIter -> IO ())
+sourceBufferHighlightUpdated = Signal $ connect_BOXED_BOXED__NONE "highlight-updated" mkTextIterCopy mkTextIterCopy
addfile ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceIter.chs
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceIter.chs 1
+-- -*-haskell-*-
+-- GIMP Toolkit (GTK) SourceIter
+--
+-- Author : Peter Gavin
+-- derived from sourceview bindings by Axel Simon and Duncan Coutts
+--
+-- Created: 18 December 2008
+--
+-- Copyright (C) 2004-2008 Peter Gavin, Duncan Coutts, Axel Simon
+--
+-- 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)
+--
+-- Adds extra useful methods for "TextIter" for searching forwards and
+-- backwards within a region in the buffer and matching brackets.
+--
+-- * There is no SourceIter object, just extra methods for "TextIter"
+--
+module Graphics.UI.Gtk.SourceView.SourceIter (
+ SourceSearchFlags(..),
+ sourceIterForwardSearch,
+ sourceIterBackwardSearch,
+) where
+
+import Control.Monad (liftM)
+import Data.Maybe (fromMaybe)
+
+import System.Glib.FFI
+import System.Glib.Flags (Flags, fromFlags)
+import System.Glib.UTFString
+import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
+{#import Graphics.UI.Gtk.Types#}
+{#import Graphics.UI.Gtk.SourceView.Types#}
+{#import Graphics.UI.Gtk.Multiline.Types#}
+{#import Graphics.UI.Gtk.Multiline.TextIter#}
+
+{# context lib="gtk" prefix="gtk" #}
+
+{# enum SourceSearchFlags {underscoreToCase} deriving(Eq,Bounded,Show,Read) #}
+
+instance Flags SourceSearchFlags
+
+-- methods
+
+-- | same as 'textIterForwardSearch' but allows
+-- case insensitive search and possibly in the future regular expressions.
+--
+sourceIterForwardSearch :: TextIter -> String -> [SourceSearchFlags] -> [_$_]
+ Maybe TextIter -> IO (Maybe (TextIter, TextIter))
+sourceIterForwardSearch ti str flags limit = do
+ start <- makeEmptyTextIter
+ end <- makeEmptyTextIter
+ found <- liftM toBool $ withUTFString str $ \cStr ->
+ {#call unsafe source_iter_forward_search#} ti cStr
+ ((fromIntegral.fromFlags) flags) start end
+ (fromMaybe (TextIter nullForeignPtr) limit)
+ return $ if found then Just (start,end) else Nothing
+
+-- | same as 'textIterForwardSearch' but allows
+-- case insensitive search and possibly in the future regular expressions.
+--
+sourceIterBackwardSearch :: TextIter -> String -> [SourceSearchFlags] -> [_$_]
+ Maybe TextIter -> IO (Maybe (TextIter, TextIter))
+sourceIterBackwardSearch ti str flags limit = do
+ start <- makeEmptyTextIter
+ end <- makeEmptyTextIter
+ found <- liftM toBool $ withUTFString str $ \cStr ->
+ {#call unsafe source_iter_backward_search#} ti cStr
+ ((fromIntegral.fromFlags) flags) start end
+ (fromMaybe (TextIter nullForeignPtr) limit)
+ return $ if found then Just (start,end) else Nothing
addfile ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceLanguage.chs
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceLanguage.chs 1
+-- -*-haskell-*-
+-- GIMP Toolkit (GTK) Widget SourceView
+--
+-- Author : Peter Gavin
+-- derived from sourceview bindings by Axel Simon and Duncan Coutts
+--
+-- Created: 18 December 2008
+--
+-- Copyright (C) 2004-2008 Peter Gavin, Duncan Coutts, Axel Simon
+--
+-- 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)
+--
+module Graphics.UI.Gtk.SourceView.SourceLanguage (
+ SourceLanguage,
+ SourceLanguageClass,
+ castToSourceLanguage,
+ sourceLanguageGetId,
+ sourceLanguageGetName,
+ sourceLanguageGetSection,
+ sourceLanguageGetHidden,
+ sourceLanguageGetMetadata,
+ sourceLanguageGetMimeTypes,
+ sourceLanguageGetGlobs,
+ sourceLanguageHidden,
+ sourceLanguageId,
+ sourceLanguageName,
+ sourceLanguageSection
+ ) where
+
+import Control.Monad (liftM)
+
+import System.Glib.FFI
+import System.Glib.UTFString
+{#import System.Glib.Properties#}
+import System.Glib.Attributes
+{#import Graphics.UI.Gtk.Types#}
+{#import Graphics.UI.Gtk.SourceView.Types#}
+{#import Graphics.UI.Gtk.Signals#}
+import Graphics.UI.Gtk.SourceView.SourceStyleScheme
+
+{# context lib="gtk" prefix="gtk" #}
+
+
+-- methods
+
+-- | [_$_]
+--
+sourceLanguageGetId :: SourceLanguage -> IO String
+sourceLanguageGetId sl =
+ {#call unsafe source_language_get_id#} sl >>= peekUTFString
+
+-- | [_$_]
+--
+sourceLanguageGetName :: SourceLanguage -> IO String
+sourceLanguageGetName sl =
+ {#call unsafe source_language_get_name#} sl >>= peekUTFString
+
+-- | [_$_]
+--
+sourceLanguageGetSection :: SourceLanguage -> IO String
+sourceLanguageGetSection sl =
+ {#call unsafe source_language_get_section#} sl >>= peekUTFString
+
+-- |
+--
+sourceLanguageGetHidden :: SourceLanguage -> IO Bool
+sourceLanguageGetHidden sl = liftM toBool $
+ {#call unsafe source_language_get_hidden#} sl
+
+-- |
+--
+sourceLanguageGetMetadata :: SourceLanguage -> String -> IO String
+sourceLanguageGetMetadata sl name = do
+ withUTFString name ({#call unsafe source_language_get_metadata#} sl) >>= peekUTFString
+
+-- |
+--
+sourceLanguageGetMimeTypes :: SourceLanguage -> IO [String]
+sourceLanguageGetMimeTypes sl = do
+ mimeTypesArray <- {#call unsafe source_language_get_mime_types#} sl
+ mimeTypes <- peekUTFStringArray0 mimeTypesArray
+ {# call g_strfreev #} mimeTypesArray
+ return mimeTypes
+
+-- |
+--
+sourceLanguageGetGlobs :: SourceLanguage -> IO [String]
+sourceLanguageGetGlobs sl = do
+ globsArray <- {#call unsafe source_language_get_globs#} sl
+ globs <- peekUTFStringArray0 globsArray
+ {# call g_strfreev #} globsArray
+ return globs
+
+-- |
+--
+sourceLanguageHidden :: ReadAttr SourceLanguage Bool
+sourceLanguageHidden = readAttrFromBoolProperty "hidden"
+
+-- |
+--
+sourceLanguageId :: ReadAttr SourceLanguage String
+sourceLanguageId = readAttrFromStringProperty "id"
+
+-- |
+--
+sourceLanguageName :: ReadAttr SourceLanguage String
+sourceLanguageName = readAttrFromStringProperty "name"
+
+-- |
+--
+sourceLanguageSection :: ReadAttr SourceLanguage String
+sourceLanguageSection = readAttrFromStringProperty "section"
addfile ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceLanguageManager.chs
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceLanguageManager.chs 1
+-- -*-haskell-*-
+-- GIMP Toolkit (GTK) Widget SourceView
+--
+-- Author : Peter Gavin
+-- derived from sourceview bindings by Axel Simon and Duncan Coutts
+--
+-- Created: 18 December 2008
+--
+-- Copyright (C) 2004-2008 Peter Gavin, Duncan Coutts, Axel Simon
+--
+-- 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)
+--
+module Graphics.UI.Gtk.SourceView.SourceLanguageManager (
+ SourceLanguageManager,
+ SourceLanguageManagerClass,
+ castToSourceLanguageManager,
+ sourceLanguageManagerNew,
+ sourceLanguageManagerGetDefault,
+ sourceLanguageManagerSetSearchPath,
+ sourceLanguageManagerGetSearchPath,
+ sourceLanguageManagerGetLanguageIds,
+ sourceLanguageManagerGetLanguage,
+ ) where
+
+import Control.Monad (liftM)
+import Data.Maybe (fromMaybe)
+
+import System.Glib.FFI
+import System.Glib.GObject (constructNewGObject, makeNewGObject)
+import System.Glib.UTFString
+import System.Glib.Attributes
+import System.Glib.Properties
+{#import Graphics.UI.Gtk.SourceView.Types#}
+{#import Graphics.UI.Gtk.Signals#}
+
+{# context lib="gtk" prefix="gtk" #}
+
+{# enum SourceSmartHomeEndType {underscoreToCase} deriving (Eq, Bounded, Show, Read) #}
+
+-- |
+--
+sourceLanguageManagerNew :: IO SourceLanguageManager
+sourceLanguageManagerNew = constructNewGObject mkSourceLanguageManager $ liftM castPtr
+ {#call unsafe source_language_manager_new#}
+
+-- |
+--
+sourceLanguageManagerGetDefault :: IO SourceLanguageManager
+sourceLanguageManagerGetDefault = makeNewGObject mkSourceLanguageManager $ liftM castPtr
+ {#call unsafe source_language_manager_new#}
+
+-- |
+--
+sourceLanguageManagerSetSearchPath :: SourceLanguageManager -> Maybe [String] -> IO ()
+sourceLanguageManagerSetSearchPath slm dirs =
+ maybeWith withUTFStringArray0 dirs $ \dirsPtr -> do
+ {#call unsafe source_language_manager_set_search_path#} slm dirsPtr
+
+-- |
+--
+sourceLanguageManagerGetSearchPath :: SourceLanguageManager -> IO [String]
+sourceLanguageManagerGetSearchPath slm = do
+ dirsPtr <- {#call unsafe source_language_manager_get_search_path#} slm
+ peekUTFStringArray0 dirsPtr
+
+-- |
+--
+sourceLanguageManagerGetLanguageIds :: SourceLanguageManager -> IO [String]
+sourceLanguageManagerGetLanguageIds slm = do
+ idsPtr <- {#call unsafe source_language_manager_get_language_ids#} slm
+ liftM (fromMaybe []) $ maybePeek peekUTFStringArray0 idsPtr
+
+-- |
+--
+sourceLanguageManagerGetLanguage :: SourceLanguageManager -> String -> IO SourceLanguage
+sourceLanguageManagerGetLanguage slm id = makeNewGObject mkSourceLanguage $ liftM castPtr $
+ withUTFString id ({#call unsafe source_language_manager_get_language#} slm)
+
+-- |
+--
+sourceLanguageManagerLanguageIds :: ReadAttr SourceLanguageManager [String]
+sourceLanguageManagerLanguageIds =
+ readAttrFromBoxedOpaqueProperty (liftM (fromMaybe []) . maybePeek peekUTFStringArray0 . castPtr)
+ "language-ids" {#call pure g_strv_get_type#}
+
+-- |
+--
+sourceLanguageManagerSearchPath :: ReadWriteAttr SourceLanguageManager [String] (Maybe [String])
+sourceLanguageManagerSearchPath =
+ 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#}
adddir ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceStyle
addfile ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceStyle.hs
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceStyle.hs 1
+-- -*-haskell-*-
+-- GIMP Toolkit (GTK) Widget SourceView
+--
+-- Author : Peter Gavin
+-- derived from sourceview bindings by Axel Simon and Duncan Coutts
+--
+-- Created: 18 December 2008
+--
+-- Copyright (C) 2004-2008 Peter Gavin, Duncan Coutts, Axel Simon
+--
+-- 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)
+--
+module Graphics.UI.Gtk.SourceView.SourceStyle (
+ SourceStyle(..),
+ ) where
+
+data SourceStyle =
+ SourceStyle
+ { sourceStyleBackground :: Maybe String
+ , sourceStyleBold :: Maybe Bool
+ , sourceStyleForeground :: Maybe String
+ , sourceStyleItalic :: Maybe Bool
+ , sourceStyleLineBackground :: Maybe String
+ , sourceStyleStrikethrough :: Maybe Bool
+ , sourceStyleUnderline :: Maybe Bool
+ }
addfile ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceStyle/Internal.chs
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceStyle/Internal.chs 1
+{-# OPTIONS_HADDOCK hide #-}
+-- -*-haskell-*-
+-- GIMP Toolkit (GTK) Widget SourceView
+--
+-- Author : Peter Gavin
+-- derived from sourceview bindings by Axel Simon and Duncan Coutts
+--
+-- Created: 18 December 2008
+--
+-- Copyright (C) 2004-2008 Peter Gavin, Duncan Coutts, Axel Simon
+--
+-- 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.
+--
+-- #hide
+--
+-- |
+-- Maintainer : gtk...@li...
+-- Stability : provisional
+-- Portability : portable (depends on GHC)
+module Graphics.UI.Gtk.SourceView.SourceStyle.Internal (
+ sourceStyleFromObject,
+ sourceStyleToObject
+ ) where
+
+import Control.Monad (liftM, sequence)
+import Data.Maybe (catMaybes)
+
+import System.Glib.FFI
+{#import System.Glib.GObject#} (constructNewGObject)
+import System.Glib.GType (GType)
+import qualified System.Glib.GTypeConstants as GType
+import System.Glib.GValue (GValue, valueInit, allocaGValue)
+import System.Glib.GValueTypes (valueSetString, valueSetBool)
+{#import System.Glib.Properties#}
+{#import Graphics.UI.Gtk.SourceView.Types#}
+import Graphics.UI.Gtk.SourceView.SourceStyle
+
+{# context lib="gtk" prefix="gtk" #}
+
+sourceStyleFromObject :: SourceStyleObject -> IO SourceStyle
+sourceStyleFromObject obj = do
+ background <- objectGetPropertyMaybeString "background" obj
+ backgroundSet <- objectGetPropertyBool "background-set" obj
+ bold <- objectGetPropertyBool "bold" obj
+ boldSet <- objectGetPropertyBool "bold-set" obj
+ foreground <- objectGetPropertyMaybeString "foreground" obj
+ foregroundSet <- objectGetPropertyBool "foreground-set" obj
+ italic <- objectGetPropertyBool "italic" obj
+ italicSet <- objectGetPropertyBool "italic-set" obj
+ lineBackground <- objectGetPropertyMaybeString "line-background" obj
+ lineBackgroundSet <- objectGetPropertyBool "line-background-set" obj
+ strikethrough <- objectGetPropertyBool "strikethrough" obj
+ strikethroughSet <- objectGetPropertyBool "strikethrough-set" obj
+ underline <- objectGetPropertyBool "underline" obj
+ underlineSet <- objectGetPropertyBool "underline-set" obj
+ return $ SourceStyle
+ { sourceStyleBackground = if backgroundSet then background else Nothing
+ , sourceStyleBold = if boldSet then Just bold else Nothing
+ , sourceStyleForeground = if foregroundSet then foreground else Nothing
+ , sourceStyleItalic = if italicSet then Just italic else Nothing
+ , sourceStyleLineBackground = if lineBackgroundSet then lineBackground else Nothing
+ , sourceStyleStrikethrough = if strikethroughSet then Just strikethrough else Nothing
+ , sourceStyleUnderline = if underlineSet then Just underline else Nothing
+ }
+
+sourceStyleToObject :: SourceStyle -> IO SourceStyleObject
+sourceStyleToObject ss =
+ allocaGValue $ \backgroundV ->
+ allocaGValue $ \backgroundSetV ->
+ allocaGValue $ \boldV ->
+ allocaGValue $ \boldSetV ->
+ allocaGValue $ \foregroundV ->
+ allocaGValue $ \foregroundSetV ->
+ allocaGValue $ \italicV ->
+ allocaGValue $ \italicSetV ->
+ allocaGValue $ \lineBackgroundV ->
+ allocaGValue $ \lineBackgroundSetV ->
+ allocaGValue $ \strikethroughV ->
+ allocaGValue $ \strikethroughSetV ->
+ allocaGValue $ \underlineV ->
+ allocaGValue $ \underlineSetV -> do
+ params <- liftM concat . sequence $
+ [ makeParam "background" sourceStyleBackground backgroundSetV backgroundV GType.string valueSetString
+ , makeParam "bold" sourceStyleBold boldSetV boldV GType.bool valueSetBool
+ , makeParam "foreground" sourceStyleForeground foregroundSetV foregroundV GType.string valueSetString
+ , makeParam "italic" sourceStyleItalic italicSetV italicV GType.bool valueSetBool
+ , makeParam "line-background" sourceStyleLineBackground lineBackgroundSetV lineBackgroundV GType.string valueSetString
+ , makeParam "strikethrough" sourceStyleStrikethrough strikethroughSetV strikethroughV GType.bool valueSetBool
+ , makeParam "underline" sourceStyleUnderline underlineSetV underlineV GType.bool valueSetBool
+ ]
+ constructNewGObject mkSourceStyleObject (liftM castPtr $ objectNew gTypeSourceStyleObject params)
+ where makeParam name field setV v gtype valueSet = do
+ valueInit setV GType.bool
+ case field ss of
+ Just field' -> do
+ valueSetBool setV True
+ valueInit v gtype
+ valueSet v field'
+ return [(name ++ "-set", setV), (name, v)]
+ Nothing -> do
+ valueSetBool setV False
+ return [(name ++ "-set", setV)]
addfile ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceStyleScheme.chs
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceStyleScheme.chs 1
+-- -*-haskell-*-
+-- GIMP Toolkit (GTK) SourceStyleScheme
+--
+-- Author : Peter Gavin
+-- derived from sourceview bindings by Axel Simon and Duncan Coutts
+--
+-- Created: 18 December 2008
+--
+-- Copyright (C) 2004-2008 Peter Gavin, Duncan Coutts, Axel Simon
+--
+-- 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)
+--
+module Graphics.UI.Gtk.SourceView.SourceStyleScheme (
+ SourceStyleScheme,
+ castToSourceStyleScheme,
+ sourceStyleSchemeGetId,
+ sourceStyleSchemeGetName,
+ sourceStyleSchemeGetDescription,
+ sourceStyleSchemeGetAuthors,
+ sourceStyleSchemeGetFilename,
+ sourceStyleSchemeGetStyle,
+ sourceStyleSchemeDescription,
+ sourceStyleSchemeFilename,
+ sourceStyleSchemeId,
+ sourceStyleSchemeName,
+ ) where
+
+import Control.Monad (liftM)
+
+import System.Glib.FFI
+import System.Glib.UTFString
+import System.Glib.GObject (constructNewGObject)
+import System.Glib.Attributes
+{#import System.Glib.Properties#}
+{#import Graphics.UI.Gtk.Types#}
+{#import Graphics.UI.Gtk.SourceView.Types#}
+import Graphics.UI.Gtk.SourceView.SourceStyle
+{#import Graphics.UI.Gtk.SourceView.SourceStyle.Internal#}
+
+{# context lib="gtk" prefix="gtk" #}
+
+-- methods
+
+-- | [_$_]
+-- [_$_]
+sourceStyleSchemeGetId :: SourceStyleScheme -> IO String
+sourceStyleSchemeGetId ss =
+ {#call source_style_scheme_get_id#} ss >>= peekUTFString
+
+-- | [_$_]
+-- [_$_]
+sourceStyleSchemeGetName :: SourceStyleScheme -> IO String
+sourceStyleSchemeGetName ss =
+ {#call source_style_scheme_get_name#} ss >>= peekUTFString
+
+-- | [_$_]
+-- [_$_]
+sourceStyleSchemeGetDescription :: SourceStyleScheme -> IO String
+sourceStyleSchemeGetDescription ss =
+ {#call source_style_scheme_get_description#} ss >>= peekUTFString
+
+-- |
+--
+sourceStyleSchemeGetAuthors :: SourceStyleScheme -> IO [String]
+sourceStyleSchemeGetAuthors ss =
+ {#call source_style_scheme_get_authors#} ss >>= peekUTFStringArray0
+
+-- | [_$_]
+-- [_$_]
+sourceStyleSchemeGetFilename :: SourceStyleScheme -> IO String
+sourceStyleSchemeGetFilename ss =
+ {#call source_style_scheme_get_filename#} ss >>= peekUTFString
+
+-- | [_$_]
+-- [_$_]
+sourceStyleSchemeGetStyle :: SourceStyleScheme -> String -> IO SourceStyle
+sourceStyleSchemeGetStyle ss id = do
+ styleObj <- makeNewGObject mkSourceStyleObject $
+ withUTFString id ({#call source_style_scheme_get_style#} ss)
+ sourceStyleFromObject styleObj
+
+-- |
+--
+sourceStyleSchemeDescription :: ReadAttr SourceStyleScheme String
+sourceStyleSchemeDescription = readAttrFromStringProperty "description"
+
+-- |
+--
+sourceStyleSchemeFilename :: ReadAttr SourceStyleScheme FilePath
+sourceStyleSchemeFilename = readAttrFromStringProperty "filename"
+
+-- |
+--
+sourceStyleSchemeId :: ReadAttr SourceStyleScheme String
+sourceStyleSchemeId = readAttrFromStringProperty "id"
+
+-- |
+--
+sourceStyleSchemeName :: ReadAttr SourceStyleScheme String
+sourceStyleSchemeName = readAttrFromStringProperty "name"
addfile ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceStyleSchemeManager.chs
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceStyleSchemeManager.chs 1
+-- -*-haskell-*-
+-- GIMP Toolkit (GTK) Widget SourceView
+--
+-- Author : Peter Gavin
+-- derived from sourceview bindings by Axel Simon and Duncan Coutts
+--
+-- Created: 18 December 2008
+--
+-- Copyright (C) 2004-2008 Peter Gavin, Duncan Coutts, Axel Simon
+--
+-- 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)
+--
+module Graphics.UI.Gtk.SourceView.SourceStyleSchemeManager (
+ SourceStyleSchemeManager,
+ SourceStyleSchemeManagerClass,
+ sourceStyleSchemeManagerNew,
+ sourceStyleSchemeManagerGetDefault,
+ sourceStyleSchemeManagerSetSearchPath,
+ sourceStyleSchemeManagerAppendSearchPath,
+ sourceStyleSchemeManagerPrependSearchPath,
+ sourceStyleSchemeManagerGetSearchPath,
+ sourceStyleSchemeManagerGetSchemeIds,
+ sourceStyleSchemeManagerGetScheme,
+ sourceStyleSchemeManagerForceRescan,
+ sourceStyleSchemeManagerStyleIds,
+ sourceStyleSchemeManagerSearchPath
+ ) where
+
+{# context lib="gtk" prefix="gtk" #}
+
+import Control.Monad (liftM)
+import Data.Maybe (fromMaybe)
+
+import System.Glib.FFI
+import System.Glib.GObject (constructNewGObject, makeNewGObject)
+import System.Glib.UTFString
+import System.Glib.Attributes
+{#import System.Glib.Properties#}
+{#import Graphics.UI.Gtk.SourceView.Types#}
+{#import Graphics.UI.Gtk.SourceView.SourceStyleScheme#}
+
+-- |
+--
+sourceStyleSchemeManagerNew :: IO SourceStyleSchemeManager
+sourceStyleSchemeManagerNew = constructNewGObject mkSourceStyleSchemeManager $ liftM castPtr
+ {#call unsafe source_style_scheme_manager_new#}
+
+-- |
+--
+sourceStyleSchemeManagerGetDefault :: IO SourceStyleSchemeManager
+sourceStyleSchemeManagerGetDefault = makeNewGObject mkSourceStyleSchemeManager $ liftM castPtr
+ {#call unsafe source_style_scheme_manager_get_default#}
+
+-- |
+--
+sourceStyleSchemeManagerSetSearchPath :: SourceStyleSchemeManager -> Maybe [String] -> IO ()
+sourceStyleSchemeManagerSetSearchPath ssm dirs =
+ maybeWith withUTFStringArray0 dirs $ \dirsPtr -> do
+ {#call unsafe source_style_scheme_manager_set_search_path#} ssm dirsPtr
+
+-- |
+--
+sourceStyleSchemeManagerAppendSearchPath :: SourceStyleSchemeManager -> String -> IO ()
+sourceStyleSchemeManagerAppendSearchPath ssm dir =
+ withUTFString dir $ {#call unsafe source_style_scheme_manager_append_search_path#} ssm
+
+-- |
+--
+sourceStyleSchemeManagerPrependSearchPath :: SourceStyleSchemeManager -> String -> IO ()
+sourceStyleSchemeManagerPrependSearchPath ssm dir =
+ withUTFString dir $ {#call unsafe source_style_scheme_manager_prepend_search_path#} ssm
+
+-- |
+--
+sourceStyleSchemeManagerGetSearchPath :: SourceStyleSchemeManager -> IO [String]
+sourceStyleSchemeManagerGetSearchPath ssm = do
+ dirsPtr <- {#call unsafe source_style_scheme_manager_get_search_path#} ssm
+ peekUTFStringArray0 dirsPtr
+
+-- |
+--
+sourceStyleSchemeManagerGetSchemeIds :: SourceStyleSchemeManager -> IO [String]
+sourceStyleSchemeManagerGetSchemeIds ssm = do
+ idsPtr <- {#call unsafe source_style_scheme_manager_get_scheme_ids#} ssm
+ liftM (fromMaybe []) $ maybePeek peekUTFStringArray0 idsPtr
+
+-- |
+--
+sourceStyleSchemeManagerGetScheme :: SourceStyleSchemeManager -> String -> IO SourceStyleScheme
+sourceStyleSchemeManagerGetScheme ssm id = makeNewGObject mkSourceStyleScheme $
+ withUTFString id $ {#call unsafe source_style_scheme_manager_get_scheme#} ssm
+
+-- |
+--
+sourceStyleSchemeManagerForceRescan :: SourceStyleSchemeManager -> IO ()
+sourceStyleSchemeManagerForceRescan =
+ {#call unsafe source_style_scheme_manager_force_rescan#}
+
+-- |
+--
+sourceStyleSchemeManagerStyleIds :: ReadAttr SourceStyleSchemeManager [String]
+sourceStyleSchemeManagerStyleIds =
+ readAttrFromBoxedOpaqueProperty (liftM (fromMaybe []) . maybePeek peekUTFStringArray0 . castPtr)
+ "style-ids" {#call pure g_strv_get_type#}
+
+-- |
+--
+sourceStyleSchemeManagerSearchPath :: ReadWriteAttr SourceStyleSchemeManager [String] (Maybe [String])
+sourceStyleSchemeManagerSearchPath =
+ 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#}
addfile ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceView.chs
hunk ./gtksourceview2/Graphics/UI/Gtk/SourceView/SourceView.chs 1
+-- -*-haskell-*-
+-- GIMP Toolkit (GTK) Widget SourceView
+--
+-- Author : Peter Gavin
+-- derived from sourceview bindings by Axel Simon and Duncan Coutts
+--
+-- Created: 18 December 2008
+--
+-- Copyright (C) 2004-2008 Peter Gavin, Duncan Coutts, Axel Simon
+--
+-- 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)
+--
+module Graphics.UI.Gtk.SourceView.SourceView (
+ SourceView,
+ SourceViewClass,
+ SourceSmartHomeEndType(..),
+ castToSourceView,
+ sourceViewNew,
+ sourceViewNewWithBuffer,
+ sourceViewSetAutoIndent,
+ sourceViewGetAutoIndent,
+ sourceViewSetIndentOnTab,
+ sourceViewGetIndentOnTab,
+ sourceViewSetIndentWidth,
+ sourceViewGetIndentWidth,
+ sourceViewSetInsertSpacesInsteadOfTabs,
+ sourceViewGetInsertSpacesInsteadOfTabs,
+ sourceViewSetSmartHomeEnd,
+ sourceViewGetSmartHomeEnd,
+ sourceViewSetHighlightCurrentLine,
+ sourceViewGetHighlightCurrentLine,
+ sourceViewSetShowLineNumbers,
+ sourceViewGetShowLineNumbers,
+ sourceViewSetShowRightMargin,
+ sourceViewGetShowRightMargin,
+ sourceViewSetRightMarginPosition,
+ sourceViewGetRightMarginPosition,
+ sourceViewSetTabWidth,
+ sourceViewGetTabWidth,
+ sourceViewAutoIndent,
+ sourceViewHighlightCurrentLine,
+ sourceViewIndentOnTab,
+ sourceViewIndentWidth,
+ sourceViewInsertSpacesInsteadOfTabs,
+ sourceViewRightMarginPosition,
+ sourceViewShowLineNumbers,
+ sourceViewShowRightMargin,
+ sourceViewSmartHomeEnd,
+ sourceViewTabWidth,
+ sourceViewUndo,
+ sourceViewRedo
+ ) where
+
+import Control.Monad (liftM)
+
+import System.Glib.FFI
+{#import System.Glib.Properties#}
+import System.Glib.Attributes
+import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
+{#import Graphics.UI.Gtk.Types#}
+{#import Graphics.UI.Gtk.SourceView.Types#}
+{#import Graphics.UI.Gtk.Signals#}
+
+{# context lib="gtk" prefix="gtk" #}
+
+{# enum SourceSmartHomeEndType {underscoreToCase} deriving (Eq, Bounded, Show, Read) #}
+
+-- | Create a new 'SourceView' widget with a default 'SourceBuffer'.
+--
+sourceViewNew :: IO SourceView
+sourceViewNew = makeNewObject mkSourceView $ liftM castPtr
+ {#call unsafe source_view_new#}
+
+-- | Create a new 'SourceView'
+-- widget with the given 'SourceBuffer'.
+--
+sourceViewNewWithBuffer :: SourceBuffer -> IO SourceView
+sourceViewNewWithBuffer sb = makeNewObject mkSourceView $ liftM castPtr $
+ {#call source_view_new_with_buffer#} sb
+
+-- | [_$_]
+--
+sourceViewSetAutoIndent :: SourceViewClass sv => sv -> Bool -> IO ()
+sourceViewSetAutoIndent sv newVal =
+ {#call source_view_set_auto_indent#} (toSourceView sv) (fromBool newVal)
+ [_$_]
+-- | [_$_]
+--
+sourceViewGetAutoIndent :: SourceViewClass sv => sv -> IO Bool [_$_]
+sourceViewGetAutoIndent sv = liftM toBool $
+ {#call unsafe source_view_get_auto_indent#} (toSourceView sv)
+
+-- | [_$_]
+--
+sourceViewSetIndentOnTab :: SourceViewClass sv => sv -> Bool -> IO ()
+sourceViewSetIndentOnTab sv newVal =
+ {#call source_view_set_indent_on_tab#} (toSourceView sv) (fromBool newVal)
+ [_$_]
+-- | [_$_]
+--
+sourceViewGetIndentOnTab :: SourceViewClass sv => sv -> IO Bool [_$_]
+sourceViewGetIndentOnTab sv = liftM toBool $
+ {#call unsafe source_view_get_indent_on_tab#} (toSourceView sv)
+
+-- | [_$_]
+--
+sourceViewSetIndentWidth :: SourceViewClass sv => sv -> Int -> IO ()
+sourceViewSetIndentWidth sv newVal =
+ {#call source_view_set_indent_width#} (toSourceView sv) (fromIntegral newVal)
+
+-- | [_$_]
+--
+sourceViewGetIndentWidth :: SourceViewClass sv => sv -> IO Int
+sourceViewGetIndentWidth sv = liftM fromIntegral $
+ {#call unsafe source_view_get_indent_width#} (toSourceView sv)
+
+-- | [_$_]
+--
+sourceViewSetInsertSpacesInsteadOfTabs :: SourceViewClass sv => sv -> Bool -> IO ()
+sourceViewSetInsertSpacesInsteadOfTabs sv newVal =
+ {#call source_view_set_insert_spaces_instead_of_tabs#} (toSourceView sv) (fromBool newVal)
+ [_$_]
+-- | [_$_]
+--
+sourceViewGetInsertSpacesInsteadOfTabs :: SourceViewClass sv => sv -> IO Bool [_$_]
+sourceViewGetInsertSpacesInsteadOfTabs sv = liftM toBool $
+ {#call unsafe source_view_get_insert_spaces_instead_of_tabs#} (toSourceView sv)
+
+-- | [_$_]
+--
+sourceViewSetSmartHomeEnd :: SourceViewClass sv => sv -> SourceSmartHomeEndType -> IO ()
+sourceViewSetSmartHomeEnd sv newVal =
+ {#call source_view_set_smart_home_end#} (toSourceView sv) (fromIntegral $ fromEnum newVal)
+ [_$_]
+-- | [_$_]
+--
+sourceViewGetSmartHomeEnd :: SourceViewClass sv => sv -> IO SourceSmartHomeEndType
+sourceViewGetSmartHomeEnd sv = liftM (toEnum . fromIntegral) $
+ {#call unsafe source_view_get_smart_home_end#} (toSourceView sv)
+
+-- | [_$_]
+--
+sourceViewSetHighlightCurrentLine :: SourceViewClass sv => sv -> Bool -> IO ()
+sourceViewSetHighlightCurrentLine sv newVal =
+ {#call source_view_set_highlight_current_line#} (toSourceView sv) (fromBool newVal)
+ [_$_]
+-- | [_$_]
+--
+sourceViewGetHighlightCurrentLine :: SourceViewClass sv => sv -> IO Bool [_$_]
+sourceViewGetHighlightCurrentLine sv = liftM toBool $
+ {#call unsafe source_view_get_highlight_current_line#} (toSourceView sv)
+
+-- | [_$_]
+--
+sourceViewSetShowLineNumbers :: SourceViewClass sv => sv -> Bool -> IO ()
+sourceViewSetShowLineNumbers sv newVal =
+ {#call source_view_set_show_line_numbers#} (toSourceView sv) (fromBool newVal)
+ [_$_]
+-- | [_$_]
+--
+sourceViewGetShowLineNumbers :: SourceViewClass sv => sv -> IO Bool [_$_]
+sourceViewGetShowLineNumbers sv = liftM toBool $
+ {#call unsafe source_view_get_show_line_numbers#} (toSourceView sv)
+
+-- | [_$_]
+--
+sourceViewSetShowRightMargin :: SourceViewClass sv => sv -> Bool -> IO ()
+sourceViewSetShowRightMargin sv newVal =
+ {#call source_view_set_show_right_margin#} (toSourceView sv) (fromBool newVal)
+ [_$_]
+-- | [_$_]
+--
+sourceViewGetShowRightMargin :: SourceViewClass sv => sv -> IO Bool
+sourceViewGetShowRightMargin sv = liftM toBool $
+ {#call source_view_get_show_right_margin#} (toSourceView sv)
+ [_$_]
+-- | [_$_]
+--
+sourceViewSetRightMarginPosition :: SourceViewClass sv => sv -> Word -> IO ()
+sourceViewSetRightMarginPosition sv margin =
+ {#call source_view_set_right_margin_position#} (toSourceView sv) (fromIntegral margin)
+ [_$_]
+-- | [_$_]
+--
+sourceViewGetRightMarginPosition :: SourceViewClass sv => sv -> IO Int [_$_]
+sourceViewGetRightMarginPosition sv = liftM fromIntegral $
+ {#call unsafe source_view_get_right_margin_position#} (toSourceView sv)
+
+-- | [_$_]
+--
+sourceViewSetTabWidth :: SourceViewClass sv => sv -> Int -> IO ()
+sourceViewSetTabWidth sv width =
+ {#call source_view_set_tab_width#} ...
[truncated message content] |
|
From: Peter g. <pg...@co...> - 2009-01-01 18:29:08
|
Thu Jan 1 13:25:17 EST 2009 Peter Gavin <pg...@gm...>
* gtk: G.U.G.Abstract.Range: add onRangeChangeValue/afterRangeChangeValue
hunk ./gtk/Graphics/UI/Gtk/Abstract/Range.chs.pp 75
+#if GTK_CHECK_VERSION(2,6,0)
+ onRangeChangeValue,
+ afterRangeChangeValue,
+#endif
hunk ./gtk/Graphics/UI/Gtk/Abstract/Range.chs.pp 256
+#if GTK_CHECK_VERSION(2,6,0)
+-- | Emitted when a scroll action is performed on a range. It allows
+-- an application to determine the type of scroll event that
+-- occurred and the resultant new value. The application can handle
+-- the event itself and return 'True' to prevent further
+-- processing. Or, by returning 'False', it can pass the event to
+-- other handlers until the default GTK+ handler is reached.
+-- [_$_]
+-- * Since Gtk 2.6
+-- [_$_]
+onRangeChangeValue, afterRangeChangeValue :: RangeClass self => self
+ -> (ScrollType -> Double -> IO Bool)
+ -> IO (ConnectId self)
+onRangeChangeValue = connect_ENUM_DOUBLE__BOOL "change_value" False
+afterRangeChangeValue = connect_ENUM_DOUBLE__BOOL "change_value" True
+#endif
+
|
|
From: Peter g. <pg...@co...> - 2009-01-01 18:29:07
|
Thu Jan 1 13:24:45 EST 2009 Peter Gavin <pg...@gm...>
* gtk: Range.chs -> Range.chs.pp
move ./gtk/Graphics/UI/Gtk/Abstract/Range.chs ./gtk/Graphics/UI/Gtk/Abstract/Range.chs.pp
hunk ./Makefile.am 597
- gtk/Graphics/UI/Gtk/Abstract/Range.chs \
+ gtk/Graphics/UI/Gtk/Abstract/Range.chs.pp \
|
|
From: Peter g. <pg...@co...> - 2009-01-01 18:29:06
|
Fri Dec 19 13:37:00 EST 2008 Peter Gavin <pg...@gm...>
* Makefile.am: add missing html files to htmldoc_haddock_files for Haddock 2
hunk ./Makefile.am 2404
-if !HADDOCK2
+if HADDOCK2
+htmldoc_haddock_files += \
+ $(foreach HSFILE, $(filter-out \
+ $(htmldoc_HSFILES_HIDDEN),$(htmldoc_HSFILES)), \
+ $(patsubst $(firstword $(subst /, \
+ ,$(HSFILE)))-%.hs, \
+ docs/reference/mini_%.html, \
+ $(subst /,-,$(HSFILE:.uncpp=)))) \
+ docs/reference/frames.html \
+ docs/reference/index-frames.html
+
+else
|
|
From: Peter g. <pg...@co...> - 2009-01-01 18:29:04
|
Fri Dec 19 12:43:08 EST 2008 Peter Gavin <pg...@gm...>
* mk/common.mk: use -dep-makefile instead of -optdep-f for ghc >= 6.10
hunk ./mk/common.mk 108
+if GHC_VERSION_610
+DEP_MAKEFILE=-dep-makefile
+OPTDEP_F=
+else
+DEP_MAKEFILE=
+OPTDEP_F=-f
+endif
+
hunk ./mk/common.mk 124
- $(HC) -M $(addprefix -optdep,-f $@) -fglasgow-exts \
+ $(HC) -M $(DEP_MAKEFILE) $(addprefix -optdep,$(OPTDEP_F) $@) -fglasgow-exts \
hunk ./mk/common.mk 138
- $(HC) -M $(addprefix -optdep,-f $@) -fglasgow-exts \
+ $(HC) -M $(DEP_MAKEFILE) $(addprefix -optdep,$(OPTDEP_F) $@) -fglasgow-exts \
|
|
From: Peter g. <pg...@co...> - 2009-01-01 18:29:02
|
Fri Dec 19 11:55:01 EST 2008 Peter Gavin <pg...@gm...>
* configure.ac: deprecate sourceview and gnomevfs packages
hunk ./configure.ac 313
-GTKHS_PKG_CHECK(sourceview, sourceview, SOURCEVIEW, [gtksourceview-1.0 >= 0.6.0], [GLIB GTK],
- [build sourceview package (default=auto)],
+GTKHS_PKG_CHECK_DEPRECATED(sourceview, sourceview, SOURCEVIEW, [gtksourceview-1.0 >= 0.6.0], [GLIB GTK],
+ [build sourceview package [[DEPRECATED]] (default=no with --disable-deprecated, default=auto otherwise)],
hunk ./configure.ac 378
-GTKHS_PKG_CHECK(gnomevfs, gnomevfs, GNOMEVFS, [gnome-vfs-2.0 >= 2.0.0 gnome-vfs-module-2.0 >= 2.0.0 ], [GLIB],
- [build gnome-vfs package (default=auto)],
+GTKHS_PKG_CHECK_DEPRECATED(gnomevfs, gnomevfs, GNOMEVFS, [gnome-vfs-2.0 >= 2.0.0 gnome-vfs-module-2.0 >= 2.0.0 ], [GLIB],
+ [build gnome-vfs package [[DEPRECATED]] (default=no with --disable-deprecated, default=auto otherwise)],
|
|
From: Peter g. <pg...@co...> - 2009-01-01 18:29:02
|
Fri Dec 19 11:53:08 EST 2008 Peter Gavin <pg...@gm...>
* glib: S.G.Properties: add readAttrFromBoxedOpaqueProperty
hunk ./glib/System/Glib/Properties.chs 80
+ readAttrFromBoxedOpaqueProperty,
hunk ./glib/System/Glib/Properties.chs 305
+readAttrFromBoxedOpaqueProperty :: GObjectClass gobj => (Ptr boxed -> IO boxed) -> String -> GType -> ReadAttr gobj boxed
+readAttrFromBoxedOpaqueProperty peek propName gtype =
+ readAttr (objectGetPropertyBoxedOpaque peek gtype propName)
+
|
|
From: Peter g. <pg...@co...> - 2009-01-01 18:28:59
|
Fri Dec 19 11:31:45 EST 2008 Peter Gavin <pg...@gm...>
* acinclude.m4: add GTKHS_PKG_CHECK_DEPRECATED: like GTKHS_PKG_CHECK but for a deprecated package
hunk ./acinclude.m4 156
+AC_DEFUN([GTKHS_PKG_CHECK_DEPRECATED],
+[
+ENABLE_PKG_DEFAULT_save="$ENABLE_PKG_DEFAULT"
+if test "$DISABLE_DEPRECATED" = "yes" ; then
+ ENABLE_PKG_DEFAULT=no
+fi
+GTKHS_PKG_CHECK($@)
+ENABLE_PKG_DEFAULT="$ENABLE_PKG_DEFAULT_save"
+])
+
|
2 messages has been excluded from this view by a project administrator.
