You can subscribe to this list here.
2003 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(4) |
Jun
|
Jul
(68) |
Aug
(4) |
Sep
|
Oct
(23) |
Nov
(95) |
Dec
(9) |
---|---|---|---|---|---|---|---|---|---|---|---|---|
2004 |
Jan
(3) |
Feb
|
Mar
|
Apr
(51) |
May
(81) |
Jun
(2) |
Jul
(86) |
Aug
(143) |
Sep
(3) |
Oct
(31) |
Nov
(63) |
Dec
(90) |
2005 |
Jan
(277) |
Feb
(157) |
Mar
(99) |
Apr
(195) |
May
(151) |
Jun
(148) |
Jul
(98) |
Aug
(123) |
Sep
(20) |
Oct
(174) |
Nov
(155) |
Dec
(26) |
2006 |
Jan
(51) |
Feb
(19) |
Mar
(16) |
Apr
(12) |
May
(5) |
Jun
|
Jul
(11) |
Aug
(7) |
Sep
(10) |
Oct
(31) |
Nov
(174) |
Dec
(56) |
2007 |
Jan
(45) |
Feb
(52) |
Mar
(10) |
Apr
(5) |
May
(47) |
Jun
(16) |
Jul
(80) |
Aug
(29) |
Sep
(14) |
Oct
(59) |
Nov
(46) |
Dec
(16) |
2008 |
Jan
(10) |
Feb
(1) |
Mar
|
Apr
|
May
(49) |
Jun
(26) |
Jul
(8) |
Aug
(4) |
Sep
(25) |
Oct
(53) |
Nov
(9) |
Dec
(1) |
2009 |
Jan
(66) |
Feb
(11) |
Mar
(1) |
Apr
(14) |
May
(8) |
Jun
(1) |
Jul
(2) |
Aug
(2) |
Sep
(9) |
Oct
(23) |
Nov
(35) |
Dec
|
2010 |
Jan
(7) |
Feb
(2) |
Mar
(39) |
Apr
(19) |
May
(161) |
Jun
(19) |
Jul
(32) |
Aug
(65) |
Sep
(113) |
Oct
(120) |
Nov
(2) |
Dec
|
2012 |
Jan
|
Feb
(5) |
Mar
(4) |
Apr
(7) |
May
(9) |
Jun
(14) |
Jul
(1) |
Aug
|
Sep
(1) |
Oct
(1) |
Nov
(12) |
Dec
(2) |
2013 |
Jan
(1) |
Feb
(17) |
Mar
(4) |
Apr
(4) |
May
(9) |
Jun
|
Jul
(8) |
Aug
|
Sep
(2) |
Oct
|
Nov
|
Dec
|
From: Axel S. <si...@co...> - 2008-07-09 00:11:24
|
Tue Jul 8 16:00:51 EDT 2008 A....@ke... * Add a few attributes in to Widget. hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 93 - widgetIsFocus, hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 142 + widgetName, + widgetParent, + widgetWidthRequest, + widgetHeightRequest, + widgetVisible, + widgetSensitive, + widgetAppPaintable, + widgetCanFocus, + widgetHasFocus, + widgetIsFocus, + widgetCanDefault, + widgetHasDefault, + widgetReceivesDefault, + widgetCompositeChild, + widgetStyle, + widgetEvents, hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 159 + widgetNoShowAll, + widgetCompositeName, hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 162 - widgetCanFocus, hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 516 --- | Determines if the widget is the focus widget within its toplevel. --- -widgetIsFocus :: WidgetClass self => self - -> IO Bool -- ^ returns @True@ if the widget is the focus widget. -widgetIsFocus self = - liftM toBool $ - {# call unsafe widget_is_focus #} - (toWidget self) - hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 1204 +-- %hash c:6f7f d:9384 +-- | The name of the widget. +-- +-- Default value: {@NULL@, FIXME: this should probably be converted to a +-- Maybe data type} +-- +widgetName :: WidgetClass self => Attr self String +widgetName = newAttrFromStringProperty "name" + +-- %hash c:1533 d:3213 +-- | The parent widget of this widget. Must be a Container widget. +-- +widgetParent :: (WidgetClass self, ContainerClass container) => ReadWriteAttr self Container container +widgetParent = newAttrFromObjectProperty "parent" + {# call pure unsafe gtk_container_get_type #} + +-- %hash c:2b4c d:3c31 +-- | Override for width request of the widget, or -1 if natural request should +-- be used. +-- +-- Allowed values: >= -1 +-- +-- Default value: -1 +-- +widgetWidthRequest :: WidgetClass self => Attr self Int +widgetWidthRequest = newAttrFromIntProperty "width-request" + +-- %hash c:fa97 d:172a +-- | Override for height request of the widget, or -1 if natural request +-- should be used. +-- +-- Allowed values: >= -1 +-- +-- Default value: -1 +-- +widgetHeightRequest :: WidgetClass self => Attr self Int +widgetHeightRequest = newAttrFromIntProperty "height-request" + +-- %hash c:70d0 d:e8e2 +-- | Whether the widget is visible. +-- +-- Default value: @False@ +-- +widgetVisible :: WidgetClass self => Attr self Bool +widgetVisible = newAttrFromBoolProperty "visible" + +-- %hash c:4dd4 d:594e +-- | Whether the widget responds to input. +-- +-- Default value: @True@ +-- +widgetSensitive :: WidgetClass self => Attr self Bool +widgetSensitive = newAttrFromBoolProperty "sensitive" + +-- %hash c:7506 d:1dde +-- | Whether the application will paint directly on the widget. +-- +-- Default value: @False@ +-- +widgetAppPaintable :: WidgetClass self => Attr self Bool +widgetAppPaintable = newAttrFromBoolProperty "app-paintable" + +-- %hash c:6289 d:72ab +-- | Whether the widget can accept the input focus. +-- +-- Default value: @False@ +-- +widgetCanFocus :: WidgetClass self => Attr self Bool +widgetCanFocus = newAttrFromBoolProperty "can-focus" + +-- %hash c:8e7 d:2645 +-- | Whether the widget has the input focus. +-- +-- Default value: @False@ +-- +widgetHasFocus :: WidgetClass self => Attr self Bool +widgetHasFocus = newAttrFromBoolProperty "has-focus" + +-- %hash c:7547 d:1d78 +-- | Whether the widget is the focus widget within the toplevel. +-- +-- Default value: @False@ +-- +widgetIsFocus :: WidgetClass self => Attr self Bool +widgetIsFocus = newAttrFromBoolProperty "is-focus" + +-- %hash c:f2d8 d:1cbb +-- | Whether the widget can be the default widget. +-- +-- Default value: @False@ +-- +widgetCanDefault :: WidgetClass self => Attr self Bool +widgetCanDefault = newAttrFromBoolProperty "can-default" + +-- %hash c:836 d:4cbe +-- | Whether the widget is the default widget. +-- +-- Default value: @False@ +-- +widgetHasDefault :: WidgetClass self => Attr self Bool +widgetHasDefault = newAttrFromBoolProperty "has-default" + +-- %hash c:f964 d:b62f +-- | If @True@, the widget will receive the default action when it is focused. +-- +-- Default value: @False@ +-- +widgetReceivesDefault :: WidgetClass self => Attr self Bool +widgetReceivesDefault = newAttrFromBoolProperty "receives-default" + +-- %hash c:2ca6 d:cad8 +-- | Whether the widget is part of a composite widget. +-- +-- Default value: @False@ +-- +widgetCompositeChild :: WidgetClass self => ReadAttr self Bool +widgetCompositeChild = readAttrFromBoolProperty "composite-child" + +-- %hash c:4f01 d:bd3 +-- | The style of the widget, which contains information about how it will +-- look (colors etc). +-- +widgetStyle :: WidgetClass self => Attr self Style +widgetStyle = newAttrFromObjectProperty "style" + {# call pure unsafe gtk_style_get_type #} + +-- %hash c:e2a4 d:9296 +-- | The event mask that decides what kind of GdkEvents this widget gets. +-- +-- Default value: 'StructureMask' +-- +widgetEvents :: WidgetClass self => Attr self [EventMask] +widgetEvents = newAttrFromFlagsProperty "events" + {# call pure unsafe gdk_event_mask_get_type #} + +-- %hash c:ba80 hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 1349 +-- %hash c:1605 d:48ea +-- | Whether 'widgetShowAll' should not affect this widget. +-- +-- Default value: @False@ +-- +widgetNoShowAll :: WidgetClass self => Attr self Bool +widgetNoShowAll = newAttrFromBoolProperty "no-show-all" + +-- %hash c:a7fd d:55b8 +-- | \'compositeName\' property. See 'widgetGetCompositeName' and +-- 'widgetSetCompositeName' +-- +widgetCompositeName :: WidgetClass self => ReadWriteAttr self (Maybe String) String +widgetCompositeName = newAttr + widgetGetCompositeName + widgetSetCompositeName + +-- %hash c:6c03 d:ce3b hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 1374 --- | Whether the widget can have the input focus. --- -widgetCanFocus :: WidgetClass self => Attr self Bool -widgetCanFocus = newAttrFromBoolProperty "can_focus" - |
From: Axel S. <si...@co...> - 2008-07-09 00:11:23
|
Tue Jul 8 15:32:56 EDT 2008 A....@ke... * Make ComboBox entry work with the new tree stores. hunk ./gtk/Graphics/UI/Gtk/ModelView/ComboBoxEntry.chs.pp 42 --- The convenience API to construct simple text-only 'ComboBox'es can also --- be used with 'ComboBoxEntry's which have been constructed with --- 'comboBoxEntryNewText'. +-- The changed signal will be emitted while typing into a 'ComboBoxEntry', +-- as well as when selecting an item from the 'ComboBoxEntry''s list. Use +-- 'comboBoxGetActive' or 'comboBoxGetActiveIter' to discover whether an item +-- was actually selected from the list. +-- +-- Connect to the activate signal of the 'Entry' (use 'binGetChild') to +-- detect when the user actually finishes entering text. +-- hunk ./gtk/Graphics/UI/Gtk/ModelView/ComboBoxEntry.chs.pp 74 - comboBoxEntrySetTextModel hunk ./gtk/Graphics/UI/Gtk/ModelView/ComboBoxEntry.chs.pp 75 +-- * Methods + comboBoxEntrySetTextColumn, + comboBoxEntryGetTextColumn, + +-- * Attributes + comboBoxEntryTextColumn, hunk ./gtk/Graphics/UI/Gtk/ModelView/ComboBoxEntry.chs.pp 89 -{#import Graphics.UI.Gtk.Types#} +{#import Graphics.UI.Gtk.Types#} hiding ( ListStore ) hunk ./gtk/Graphics/UI/Gtk/ModelView/ComboBoxEntry.chs.pp 94 +{#import Graphics.UI.Gtk.ModelView.CustomStore#} +import Graphics.UI.Gtk.ModelView.ListStore ( ListStore, listStoreNew ) hunk ./gtk/Graphics/UI/Gtk/ModelView/ComboBoxEntry.chs.pp 118 -comboBoxEntryNewWithModel :: (TypedTreeModelClass model, - TreeModelClass (model String)) => [_$_] - model String -- ^ @model@ - A 'CustomStore'. +comboBoxEntryNewWithModel :: TreeModelClass model => [_$_] + model -- ^ @model@ - A 'CustomStore'. hunk ./gtk/Graphics/UI/Gtk/ModelView/ComboBoxEntry.chs.pp 127 --- which is a 'ComboBoxEntry' just displaying strings. If you use this function --- to create a text combo box, you should only manipulate its data source with --- the following convenience functions: 'comboBoxAppendText', --- 'comboBoxInsertText', 'comboBoxPrependText' and 'comboBoxRemoveText'. +-- which is a 'ComboBoxEntry' just displaying strings. Note that this +-- function does not setup any functionality to insert newly typed +-- text into the model. See the module introduction for information +-- about this. hunk ./gtk/Graphics/UI/Gtk/ModelView/ComboBoxEntry.chs.pp 132 -comboBoxEntryNewText :: IO ComboBoxEntry -comboBoxEntryNewText = - makeNewObject mkComboBoxEntry $ - liftM (castPtr :: Ptr Widget -> Ptr ComboBoxEntry) $ - {# call gtk_combo_box_entry_new_text #} +comboBoxEntryNewText :: + (a -> String) -- ^ a function to extract elements from a the store + -> [a] -- ^ the initial entries in the 'ComboBoxEntry' + -> IO (ComboBoxEntry, ListStore a) +comboBoxEntryNewText extract initial = do + store <- listStoreNew initial + let colId = makeColumnIdString 0 + treeModelSetColumn store colId extract + combo <- makeNewObject mkComboBoxEntry $ + liftM (castPtr :: Ptr Widget -> Ptr ComboBoxEntry) $ + {# call gtk_combo_box_entry_new_with_model #} + (toTreeModel store) + (fromIntegral (columnIdToNumber colId)) + return (combo, store) + +-------------------- +-- Methods hunk ./gtk/Graphics/UI/Gtk/ModelView/ComboBoxEntry.chs.pp 150 --- | Sets the model of 'String's, inserts a 'CellRendererText'. +-- %hash c:b7d7 d:2818 +-- | Sets the model column should be use to get strings from to +-- be @textColumn@. hunk ./gtk/Graphics/UI/Gtk/ModelView/ComboBoxEntry.chs.pp 154 -comboBoxEntrySetTextModel :: (TypedTreeModelClass model, - TreeModelClass (model String)) - => ComboBoxEntry - -> model String -- ^ @model@ - The model of 'String's. +comboBoxEntrySetTextColumn :: ComboBoxEntryClass self => self + -> ColumnId row String -- ^ @textColumn@ - A column in @model@ to get the strings from. hunk ./gtk/Graphics/UI/Gtk/ModelView/ComboBoxEntry.chs.pp 157 -comboBoxEntrySetTextModel self model = do - comboBoxSetModel self (Just model) - cell <- cellRendererTextNew - cellLayoutPackStart self cell True - cellLayoutSetAttributes self cell model (\str -> [cellText := str]) +comboBoxEntrySetTextColumn self textColumn = + {# call gtk_combo_box_entry_set_text_column #} + (toComboBoxEntry self) + (fromIntegral (columnIdToNumber textColumn)) + +-- %hash c:a3e3 d:6441 +-- | Returns the column which is used to get the strings from. +-- +comboBoxEntryGetTextColumn :: ComboBoxEntryClass self => self + -> IO (ColumnId row String) -- ^ returns A column in the data source model of @entryBox@. +comboBoxEntryGetTextColumn self = + liftM (makeColumnIdString . fromIntegral) $ + {# call gtk_combo_box_entry_get_text_column #} + (toComboBoxEntry self) + +-------------------- +-- Attributes + +-- %hash c:84ff d:be07 +-- | A column in the data source model to get the strings from. +-- +-- Allowed values: >= 0 +-- +-- Default value: 'Graphics.UI.Gtk.ModelView.CustomStore.invalidColumnId' +-- +comboBoxEntryTextColumn :: ComboBoxEntryClass self => Attr self (ColumnId row String) +comboBoxEntryTextColumn = newAttr + comboBoxEntryGetTextColumn + comboBoxEntrySetTextColumn |
From: Peter g. <pg...@co...> - 2008-06-28 02:36:33
|
Fri Jun 27 17:55:55 EDT 2008 Marco T[_\c3_][_\ba_]lio Gontijo e Silva <ma...@ri...> * Correct Dialog syntax for Haddock tree hunk ./gtk/Graphics/UI/Gtk/Windows/Dialog.chs.pp 72 --- + |
From: Peter g. <pg...@co...> - 2008-06-28 02:36:33
|
Fri Jun 27 21:37:50 EDT 2008 Marco T[_\c3_][_\ba_]lio Gontijo e Silva <ma...@ri...> * data IconSize instead of just Int hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 1119 --- size such as 'Graphics.UI.Gtk.General.IconFactory.iconSizeMenu'. +-- size such as 'Graphics.UI.Gtk.General.IconFactory.IconSizeMenu'. hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 1131 - -- 'Graphics.UI.Gtk.General.IconFactory.iconSizeInvalid' means + -- 'Graphics.UI.Gtk.General.IconFactory.IconSizeInvalid' means hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs.pp 119 - IconSize, - iconSizeMenu, - iconSizeSmallToolbar, - iconSizeLargeToolbar, - iconSizeButton, - iconSizeDialog, + IconSize(..), hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs.pp 148 -import Graphics.UI.Gtk.General.Structs (IconSize, iconSizeMenu, - iconSizeSmallToolbar, iconSizeButton, - iconSizeLargeToolbar, iconSizeDialog) +import Graphics.UI.Gtk.General.Structs (IconSize(..)) hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs.pp 220 - (fromIntegral size) + ((fromIntegral . fromEnum) size) hunk ./gtk/Graphics/UI/Gtk/General/IconFactory.chs.pp 105 - IconSize, - iconSizeInvalid, - iconSizeMenu, - iconSizeSmallToolbar, - iconSizeLargeToolbar, - iconSizeButton, - iconSizeDialog, + IconSize(..), hunk ./gtk/Graphics/UI/Gtk/General/IconFactory.chs.pp 121 -import Graphics.UI.Gtk.General.Structs (IconSize, iconSizeInvalid, - iconSizeMenu, iconSizeSmallToolbar, - iconSizeLargeToolbar, iconSizeButton, - iconSizeDialog) +import Graphics.UI.Gtk.General.Structs (IconSize(..)) hunk ./gtk/Graphics/UI/Gtk/General/IconFactory.chs.pp 266 - {#call icon_size_lookup#} (fromIntegral size) nullPtr nullPtr + {#call icon_size_lookup#} ((fromIntegral . fromEnum) size) nullPtr nullPtr hunk ./gtk/Graphics/UI/Gtk/General/IconFactory.chs.pp 271 -iconSizeRegister height name width = liftM fromIntegral $ +iconSizeRegister height name width = liftM (toEnum . fromIntegral) $ hunk ./gtk/Graphics/UI/Gtk/General/IconFactory.chs.pp 279 - {#call unsafe icon_size_register_alias#} strPtr (fromIntegral target) + {#call unsafe icon_size_register_alias#} strPtr ((fromIntegral . fromEnum) target) hunk ./gtk/Graphics/UI/Gtk/General/IconFactory.chs.pp 287 -iconSizeFromName name = liftM fromIntegral $ +iconSizeFromName name = liftM (toEnum . fromIntegral) $ hunk ./gtk/Graphics/UI/Gtk/General/IconFactory.chs.pp 296 - strPtr <- {#call unsafe icon_size_get_name#} (fromIntegral size) + strPtr <- {#call unsafe icon_size_get_name#} ((fromIntegral . fromEnum) size) hunk ./gtk/Graphics/UI/Gtk/General/IconFactory.chs.pp 333 - if (toBool res) then return Nothing else liftM (Just .fromIntegral) $ + if (toBool res) then return Nothing else liftM (Just . toEnum . fromIntegral) $ hunk ./gtk/Graphics/UI/Gtk/General/IconFactory.chs.pp 406 - {#call unsafe icon_source_set_size#} is (fromIntegral size) + {#call unsafe icon_source_set_size#} is ((fromIntegral . fromEnum) size) hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 56 - IconSize, - iconSizeInvalid, - iconSizeMenu, - iconSizeSmallToolbar, - iconSizeLargeToolbar, - iconSizeButton, - iconSizeDialog, + IconSize(..), hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 565 -type IconSize = Int +data IconSize = + -- | Don't scale but use any of the available sizes. + IconSizeInvalid hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 569 --- | Don't scale but use any of the available sizes. -iconSizeInvalid :: IconSize -iconSizeInvalid = #const GTK_ICON_SIZE_INVALID + -- | Icon size to use in next to menu items in drop-down menus. + | IconSizeMenu hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 572 --- | Icon size to use in next to menu items in drop-down menus. -iconSizeMenu :: IconSize -iconSizeMenu = #const GTK_ICON_SIZE_MENU + -- | Icon size for small toolbars. + | IconSizeSmallToolBar hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 575 --- | Icon size for small toolbars. -iconSizeSmallToolbar :: IconSize -iconSizeSmallToolbar = #const GTK_ICON_SIZE_SMALL_TOOLBAR + -- | Icon size for larger toolbars. + | IconSizeLargeToolBar hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 578 --- | Icon size for larger toolbars. -iconSizeLargeToolbar :: IconSize -iconSizeLargeToolbar = #const GTK_ICON_SIZE_LARGE_TOOLBAR + -- | Icon size for icons in buttons, next to the label. + | IconSizeButton hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 581 --- | Icon size for icons in buttons, next to the label. -iconSizeButton :: IconSize -iconSizeButton = #const GTK_ICON_SIZE_BUTTON + -- | Icon size for icons in DragNDrop. + | IconSizeDnd hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 584 --- | Icon size for icons next to dialog text. -iconSizeDialog :: IconSize -iconSizeDialog = #const GTK_ICON_SIZE_DIALOG + -- | Icon size for icons next to dialog text. + | IconSizeDialog + deriving (Show, Eq, Enum) hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs.pp 114 - IconSize, - iconSizeInvalid, - iconSizeSmallToolbar, - iconSizeLargeToolbar, + IconSize(..), hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs.pp 174 - IconSize, iconSizeInvalid, - iconSizeSmallToolbar, - iconSizeLargeToolbar) + IconSize(..)) hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs.pp 506 - (fromIntegral iconSize) + ((fromIntegral . fromEnum) iconSize) |
From: Peter g. <pg...@co...> - 2008-06-27 13:11:50
|
Wed Jun 25 00:02:27 EDT 2008 Peter Gavin <pg...@gm...> * gtk: add conditional compilation for Gdk.Screen.screenGetActiveWindows (>= gtk-2.10) hunk ./gtk/Graphics/UI/Gtk/Gdk/Screen.chs.pp 458 +#if GTK_CHECK_VERSION(2,10,0) hunk ./gtk/Graphics/UI/Gtk/Gdk/Screen.chs.pp 478 +#endif |
From: Peter g. <pg...@co...> - 2008-06-25 03:11:26
|
Tue Jun 24 19:21:21 EDT 2008 Malebria <mal...@ri...> * Some improvements in MessageDialog documentation hunk ./gtk/Graphics/UI/Gtk/Windows/MessageDialog.chs.pp 40 --- + hunk ./gtk/Graphics/UI/Gtk/Windows/MessageDialog.chs.pp 138 --- user may want to see. When the user clicks a button a "response" signal +-- user may want to see. When the user clicks a button a \"response\" signal hunk ./gtk/Graphics/UI/Gtk/Windows/MessageDialog.chs.pp 142 -messageDialogNew :: Maybe Window -> [DialogFlags] -> MessageType -> - ButtonsType -> String -> IO MessageDialog +messageDialogNew + :: Maybe Window -- ^ Transient parent of the dialog (or none) + -> [DialogFlags] + -> MessageType + -> ButtonsType + -> String -- ^ The text of the message + -> IO MessageDialog hunk ./gtk/Graphics/UI/Gtk/Windows/MessageDialog.chs.pp 177 --- a button a "response" signal is emitted with response IDs from +-- a button a \"response\" signal is emitted with response IDs from hunk ./gtk/Graphics/UI/Gtk/Windows/MessageDialog.chs.pp 182 -messageDialogNewWithMarkup :: Maybe Window -> [DialogFlags] -> [_$_] - MessageType -> ButtonsType -> Markup -> - IO MessageDialog +messageDialogNewWithMarkup + :: Maybe Window -- ^ Transient parent of the dialog (or none) + -> [DialogFlags] + -> MessageType + -> ButtonsType + -> Markup -- ^ The text of the message + -> IO MessageDialog |
From: Peter g. <pg...@co...> - 2008-06-25 03:11:25
|
Fri May 30 08:50:36 EDT 2008 Malebria <mal...@ri...> * String -> StockId hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/Action.chs.pp 148 +import Graphics.UI.Gtk.General.StockItems hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/Action.chs.pp 163 - String -- ^ @name@ - A unique name for the action - -> String -- ^ @label@ - the label displayed in menu items and on - -- buttons - -> Maybe String -- ^ @tooltip@ - a tooltip for the action - -> Maybe String -- ^ @stockId@ - the stock icon to display in widgets - -- representing the action + String -- ^ @name@ - A unique name for the action + -> String -- ^ @label@ - the label displayed in menu items and on + -- buttons + -> Maybe String -- ^ @tooltip@ - a tooltip for the action + -> Maybe StockId -- ^ @stockId@ - the stock icon to display in widgets + -- representing the action hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/RadioAction.chs.pp 84 +import Graphics.UI.Gtk.General.StockItems hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/RadioAction.chs.pp 101 - -> Maybe String -- ^ @stockId@ - The stock icon to display in widgets + -> Maybe StockId -- ^ @stockId@ - The stock icon to display in widgets hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/ToggleAction.chs.pp 79 +import Graphics.UI.Gtk.General.StockItems hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/ToggleAction.chs.pp 96 - -> Maybe String -- ^ @stockId@ - The stock icon to display in widgets + -> Maybe StockId -- ^ @stockId@ - The stock icon to display in widgets hunk ./gtk/Graphics/UI/Gtk/Buttons/Button.chs.pp 132 +import Graphics.UI.Gtk.General.StockItems hunk ./gtk/Graphics/UI/Gtk/Buttons/Button.chs.pp 183 - String -- ^ @stockId@ - the name of the stock item + StockId -- ^ @stockId@ - the name of the stock item hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs.pp 152 +import Graphics.UI.Gtk.General.StockItems hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs.pp 218 - String -- ^ @stockId@ - a stock icon name + StockId -- ^ @stockId@ - a stock icon name hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs.pp 294 - -> String -- ^ @stockId@ - a stock icon name + -> StockId -- ^ @stockId@ - a stock icon name hunk ./gtk/Graphics/UI/Gtk/General/IconFactory.chs.pp 126 +import Graphics.UI.Gtk.General.StockItems hunk ./gtk/Graphics/UI/Gtk/General/IconFactory.chs.pp 162 -iconFactoryAdd :: IconFactory -> String -> IconSet -> IO () +iconFactoryAdd :: IconFactory -> StockId -> IconSet -> IO () hunk ./gtk/Graphics/UI/Gtk/General/IconFactory.chs.pp 181 -iconFactoryLookup :: IconFactory -> String -> IO (Maybe IconSet) +iconFactoryLookup :: IconFactory -> StockId -> IO (Maybe IconSet) hunk ./gtk/Graphics/UI/Gtk/General/IconFactory.chs.pp 196 -iconFactoryLookupDefault :: String -> IO (Maybe IconSet) +iconFactoryLookupDefault :: StockId -> IO (Maybe IconSet) hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ImageMenuItem.chs 80 +import Graphics.UI.Gtk.General.StockItems hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ImageMenuItem.chs 99 - String -- ^ @stockId@ - the name of the stock item. + StockId -- ^ @stockId@ - the name of the stock item. hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuToolButton.chs.pp 86 +import Graphics.UI.Gtk.General.StockItems hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuToolButton.chs.pp 115 - String -- ^ @stockId@ - the name of a stock item + StockId -- ^ @stockId@ - the name of a stock item hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/RadioToolButton.chs.pp 86 +import Graphics.UI.Gtk.General.StockItems hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/RadioToolButton.chs.pp 108 - String -- ^ @stockId@ - the name of a stock item + StockId -- ^ @stockId@ - the name of a stock item hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/RadioToolButton.chs.pp 138 - -> String -- ^ @stockId@ - the name of a stock item + -> StockId -- ^ @stockId@ - the name of a stock item hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToggleToolButton.chs.pp 86 +import Graphics.UI.Gtk.General.StockItems hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToggleToolButton.chs.pp 108 - String -- ^ @stockId@ - the name of the stock item + StockId -- ^ @stockId@ - the name of the stock item hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolButton.chs.pp 117 +import Graphics.UI.Gtk.General.StockItems hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolButton.chs.pp 148 - String -- ^ @stockId@ - the name of the stock item + StockId -- ^ @stockId@ - the name of the stock item hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolButton.chs.pp 215 - -> Maybe String -- ^ @stockId@ - a name of a stock item, or @Nothing@ + -> Maybe StockId -- ^ @stockId@ - a name of a stock item, or @Nothing@ hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs.pp 171 +import Graphics.UI.Gtk.General.StockItems hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs.pp 226 - -> String + -> StockId hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs.pp 277 - -> String + -> StockId hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs.pp 337 - -> String + -> StockId |
From: Peter g. <pg...@co...> - 2008-06-25 03:11:23
|
Tue Jun 24 15:18:19 EDT 2008 Peter Gavin <pg...@gm...> * win32 installer: remove old code, correct the ghc version in some of the error messages hunk ./tools/win32/gtk2hs.iss 179 - RegQueryStringValue(HKEY_CURRENT_USER, 'Software\Haskell\GHC\ghc-6.6.1', 'InstallDir', GhcInstallDir);[_^M_][_$_] + RegQueryStringValue(HKEY_CURRENT_USER, 'Software\Haskell\GHC\ghc-6.8.3', 'InstallDir', GhcInstallDir);[_^M_][_$_] hunk ./tools/win32/gtk2hs.iss 182 -{-[_^M_][_$_] - if (Result = False) and RegKeyExists(HKEY_CURRENT_USER, 'Software\Haskell\GHC') then[_^M_][_$_] - begin[_^M_][_$_] - Log('DetectValidGhcInstallation: found HKCU\Software\Haskell\GHC');[_^M_][_$_] - HaveSomeGHCInstalled := True;[_^M_][_$_] - RegQueryStringValue(HKEY_CURRENT_USER, 'Software\Haskell\GHC\ghc-6.4.2', 'InstallDir', GhcInstallDir);[_^M_][_$_] - Result := CheckGhcVersionIsOk(GhcInstallDir, GHCVersion);[_^M_][_$_] - end;[_^M_][_$_] --}[_^M_][_$_] - if (Result = False) and RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Haskell\GHC') then[_^M_][_$_] - begin[_^M_][_$_] - Log('DetectValidGhcInstallation: found HKLM\SOFTWARE\Haskell\GHC');[_^M_][_$_] - HaveSomeGHCInstalled := True;[_^M_][_$_] - RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Haskell\GHC\ghc-6.6.1', 'InstallDir', GhcInstallDir);[_^M_][_$_] - Result := CheckGhcVersionIsOk(GhcInstallDir, GHCVersion);[_^M_][_$_] - end;[_^M_][_$_] -{-[_^M_][_$_] hunk ./tools/win32/gtk2hs.iss 186 - RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Haskell\GHC\ghc-6.4.2', 'InstallDir', GhcInstallDir);[_^M_][_$_] + RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Haskell\GHC\ghc-6.8.3', 'InstallDir', GhcInstallDir);[_^M_][_$_] hunk ./tools/win32/gtk2hs.iss 189 --}[_^M_][_$_] hunk ./tools/win32/gtk2hs.iss 195 - InstallationErrorMessage := 'This version of Gtk2Hs requires GHC version 6.6.1.' #13#10 #13#10[_^M_][_$_] + InstallationErrorMessage := 'This version of Gtk2Hs requires GHC version 6.8.3.' #13#10 #13#10[_^M_][_$_] hunk ./tools/win32/gtk2hs.iss 203 - InstallationErrorMessage := 'GHC does not appear to be installed correctly, try reinstalling GHC version 6.6.1' #13#10 #13#10[_^M_][_$_] + InstallationErrorMessage := 'GHC does not appear to be installed correctly, try reinstalling GHC version 6.8.3' #13#10 #13#10[_^M_][_$_] hunk ./tools/win32/gtk2hs.iss 211 - InstallationErrorMessage := 'GHC does not appear to be installed (or the installation is corrupted), please install GHC version 6.6.1';[_^M_][_$_] + InstallationErrorMessage := 'GHC does not appear to be installed (or the installation is corrupted), please install GHC version 6.8.3';[_^M_][_$_] hunk ./tools/win32/gtk2hs.iss 217 - InstallationErrorMessage := 'Gtk2Hs requires GHC to be installed first, please install GHC version 6.6.1' #13#10 #13#10[_^M_][_$_] + InstallationErrorMessage := 'Gtk2Hs requires GHC to be installed first, please install GHC version 6.8.3' #13#10 #13#10[_^M_][_$_] |
From: Peter g. <pg...@co...> - 2008-06-25 03:11:23
|
Mon Jun 23 14:56:20 EDT 2008 Peter Gavin <pg...@gm...> * make the win32 installer not require admin rights hunk ./tools/win32/gtk2hs.iss 24 +[_^M_][_$_] +PrivilegesRequired=none[_^M_][_$_] |
From: Peter g. <pg...@co...> - 2008-06-23 18:12:00
|
Mon Jun 23 12:06:07 EDT 2008 Duncan Coutts <du...@ha...> * Add widgetSensitivity attribute Just noticed that the Real World Haskell book should be using this attribute except that it was missing. hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 146 + widgetSensitivity, hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 1218 +-- | The sensitivity of a widget. A widget is sensitive if the user can +-- interact with it. Insensitive widgets are \"grayed out\" and the user can't +-- interact with them. Insensitive widgets are known as \"inactive\", +-- \"disabled\", or \"ghosted\" in some other toolkits. +-- +widgetSensitivity :: WidgetClass self => WriteAttr self Bool +widgetSensitivity = writeAttr + widgetSetSensitivity + |
From: Peter g. <pg...@co...> - 2008-06-23 18:11:59
|
Sun Jun 22 15:06:39 EDT 2008 Duncan Coutts <du...@ha...> * Add widgetGet/SetColormap and widgetGetScreen hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 138 + widgetGetColormap, + widgetSetColormap, + widgetGetScreen, hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs.pp 1159 +widgetGetColormap :: WidgetClass self => self + -> IO Colormap -- ^ returns the colormap used by @widget@ +widgetGetColormap self = + makeNewGObject mkColormap $ + {# call gtk_widget_get_colormap #} + (toWidget self) + +widgetSetColormap :: WidgetClass self => self + -> Colormap -- ^ @colormap@ - a colormap + -> IO () +widgetSetColormap self colormap = + {# call gtk_widget_set_colormap #} + (toWidget self) + colormap + +#if GTK_CHECK_VERSION(2,2,0) +-- | Get the 'Screen' from the toplevel window associated with this widget. +-- This function can only be called after the widget has been added to a widget +-- hierarchy with a 'Window' at the top. +-- +-- In general, you should only create screen specific resources when a +-- widget has been realized, and you should free those resources when the +-- widget is unrealized. +-- +-- * Available since Gtk+ version 2.2 +-- +widgetGetScreen :: WidgetClass self => self + -> IO Screen -- ^ returns the 'Screen' for the toplevel for this widget. +widgetGetScreen self = + makeNewGObject mkScreen $ + {# call gtk_widget_get_screen #} + (toWidget self) +#endif + |
From: Peter g. <pg...@co...> - 2008-06-23 18:11:58
|
Sat Jun 21 17:29:47 EDT 2008 Peter Gavin <pg...@gm...> * win32 build script updates hunk ./tools/win32/clean.sh 5 -rm -rf zips/*/ -rm -f zips/*.tar +pushd zips +rm -rf */ +rm -f *.tar +popd hunk ./tools/win32/clean.sh 10 -rm -rf gtk+-${GTK_VERSION} -rm -f gtk+-${GTK_VERSION}.tar.gz +rm -rf gtk2hs-clibs-${GTK_VERSION} +rm -f gtk2hs-clibs-${GTK_VERSION}.tar.gz hunk ./tools/win32/clean.sh 13 -rm -rf gtk+-dev-${GTK_VERSION} -rm -f gtk+-dev-${GTK_VERSION}.tar.gz +rm -rf gtk2hs-clibs-dev-${GTK_VERSION} +rm -f gtk2hs-clibs-dev-${GTK_VERSION}.tar.gz hunk ./tools/win32/combine.sh 17 -rm -rf gtk+-dev-${GTK_VERSION}-win32 -mkdir gtk+-dev-${GTK_VERSION}-win32 -pushd gtk+-dev-${GTK_VERSION}-win32 +rm -rf gtk2hs-clibs-dev-${GTK2HS_VERSION}-win32 +mkdir gtk2hs-clibs-dev-${GTK2HS_VERSION}-win32 +pushd gtk2hs-clibs-dev-${GTK2HS_VERSION}-win32 hunk ./tools/win32/combine.sh 25 +cp -v ../pc/*.pc lib/pkgconfig/ +for file in lib/pkgconfig/*.pc ; do + sed "s,^prefix=.*,prefix=/gtk2hs-clibs-dev-${GTK2HS_VERSION}-win32/${GTK2HS_VERSION}," < "$file" > "$file".new + mv -v "$file".new "$file" +done hunk ./tools/win32/combine.sh 32 -rm -rf gtk+-${GTK_VERSION}-win32 -cp -rl gtk+-dev-${GTK_VERSION}-win32 gtk+-${GTK_VERSION}-win32 -pushd gtk+-${GTK_VERSION}-win32 - rm bin/pkg-config.exe +rm -rf gtk2hs-clibs-${GTK2HS_VERSION}-win32 +cp -rl gtk2hs-clibs-dev-${GTK2HS_VERSION}-win32 gtk2hs-clibs-${GTK2HS_VERSION}-win32 +pushd gtk2hs-clibs-${GTK2HS_VERSION}-win32 + rm -f bin/pkg-config.exe hunk ./tools/win32/combine.sh 38 - rm -r lib/pkgconfig - rm -r lib/*/include - rmdir lib/glib-2.0 lib/gtkglext-1.0 + rm -rf lib/pkgconfig + rm -rf lib/*/include + rm -rf lib/glib-2.0 lib/gtkglext-1.0 hunk ./tools/win32/combine.sh 43 -rm -f gtk+-dev-${GTK_VERSION}-win32.zip -zip -9 -q -r gtk+-dev-${GTK_VERSION}-win32.zip gtk+-dev-${GTK_VERSION}-win32/ -echo "created gtk+-dev-${GTK_VERSION}-win32.zip" +rm -f gtk2hs-clibs-dev-${GTK2HS_VERSION}-win32.zip +zip -9 -q -r gtk2hs-clibs-dev-${GTK2HS_VERSION}-win32.zip gtk2hs-clibs-dev-${GTK2HS_VERSION}-win32/ +echo "created gtk2hs-clibs-dev-${GTK2HS_VERSION}-win32.zip" hunk ./tools/win32/combine.sh 47 -rm -f gtk+-${GTK_VERSION}-win32.zip -zip -9 -q -r gtk+-${GTK_VERSION}-win32.zip gtk+-${GTK_VERSION}-win32/ -echo "created gtk+-${GTK_VERSION}-win32.zip" +rm -f gtk2hs-clibs-${GTK2HS_VERSION}-win32.zip +zip -9 -q -r gtk2hs-clibs-${GTK2HS_VERSION}-win32.zip gtk2hs-clibs-${GTK2HS_VERSION}-win32/ +echo "created gtk2hs-clibs-${GTK2HS_VERSION}-win32.zip" hunk ./tools/win32/download.sh 10 -wget -c $BASE_URL/glib/2.12/glib-${GLIB_VERSION}.zip || exit -wget -c $BASE_URL/glib/2.12/glib-dev-${GLIB_VERSION}.zip || exit +#wget -c $BASE_URL/glib/2.12/glib-${GLIB_VERSION}.zip [_$_] +#wget -c $BASE_URL/glib/2.12/glib-dev-${GLIB_VERSION}.zip [_$_] hunk ./tools/win32/download.sh 13 -wget -c $BASE_URL/pango/1.16/pango-${PANGO_VERSION}.zip || exit -wget -c $BASE_URL/pango/1.16/pango-dev-${PANGO_VERSION}.zip || exit +#wget -c $BASE_URL/pango/1.16/pango-${PANGO_VERSION}.zip [_$_] +#wget -c $BASE_URL/pango/1.16/pango-dev-${PANGO_VERSION}.zip [_$_] hunk ./tools/win32/download.sh 16 -wget -c $BASE_URL/atk/1.18/atk-${ATK_VERSION}.zip || exit -wget -c $BASE_URL/atk/1.18/atk-dev-${ATK_VERSION}.zip || exit +#wget -c $BASE_URL/atk/1.18/atk-${ATK_VERSION}.zip [_$_] +#wget -c $BASE_URL/atk/1.18/atk-dev-${ATK_VERSION}.zip [_$_] hunk ./tools/win32/download.sh 19 -wget -c $BASE_URL/dependencies/cairo-${CAIRO_VERSION}.zip || exit -wget -c $BASE_URL/dependencies/cairo-dev-${CAIRO_VERSION}.zip || exit +#wget -c $BASE_URL/dependencies/cairo-${CAIRO_VERSION}.zip [_$_] +#wget -c $BASE_URL/dependencies/cairo-dev-${CAIRO_VERSION}.zip [_$_] hunk ./tools/win32/download.sh 22 -wget -c $BASE_URL/gtk+/2.10/gtk+-${GTK_VERSION}.zip || exit -wget -c $BASE_URL/gtk+/2.10/gtk+-dev-${GTK_VERSION}.zip || exit +#wget -c $BASE_URL/gtk+/2.10/gtk+-${GTK_VERSION}.zip [_$_] +#wget -c $BASE_URL/gtk+/2.10/gtk+-dev-${GTK_VERSION}.zip [_$_] hunk ./tools/win32/download.sh 25 -wget -c $BASE_URL/libglade/2.6/libglade-${LIBGLADE_VERSION}.zip || exit -wget -c $BASE_URL/libglade/2.6/libglade-dev-${LIBGLADE_VERSION}.zip || exit +wget -c $BASE_URL/gtk+/2.12/gtk+-bundle-${GTK_VERSION}.zip [_$_] hunk ./tools/win32/download.sh 27 -wget -c http://downloads.sourceforge.net/gtkglext/gtkglext-win32-${GTKGLEXT_VERSION}.zip +wget -c $BASE_URL/libglade/2.6/libglade-${LIBGLADE_VERSION}.zip [_$_] +wget -c $BASE_URL/libglade/2.6/libglade-dev-${LIBGLADE_VERSION}.zip [_$_] hunk ./tools/win32/download.sh 30 -wget -c $BASE_URL/gtksourceview/1.8/gtksourceview-${SOURCEVIEW_VERSION}.zip -wget -c $BASE_URL/gtksourceview/1.8/gtksourceview-dev-${SOURCEVIEW_VERSION}.zip +#wget -c http://downloads.sourceforge.net/gtkglext/gtkglext-win32-${GTKGLEXT_VERSION}.zip hunk ./tools/win32/download.sh 32 -wget -c $BASE_URL/dependencies/libiconv-${LIBICONV_VERSION}.bin.woe32.zip || exit -wget -c $BASE_URL/dependencies/gettext-${GETTEXT_VERSION}.zip || exit -wget -c $BASE_URL/dependencies/gettext-dev-${GETTEXT_VERSION}.zip || exit +#wget -c $BASE_URL/gtksourceview/1.8/gtksourceview-${SOURCEVIEW_VERSION}.zip +#wget -c $BASE_URL/gtksourceview/1.8/gtksourceview-dev-${SOURCEVIEW_VERSION}.zip hunk ./tools/win32/download.sh 35 -wget -c $BASE_URL/dependencies/libpng-${LIBPNG_VERSION}.zip || exit -wget -c $BASE_URL/dependencies/libjpeg-${LIBJPEG_VERSION}.zip || exit +wget -c $BASE_URL/dependencies/libiconv-${LIBICONV_VERSION}.bin.woe32.zip [_$_] +#wget -c $BASE_URL/dependencies/gettext-${GETTEXT_VERSION}.zip [_$_] +#wget -c $BASE_URL/dependencies/gettext-dev-${GETTEXT_VERSION}.zip [_$_] hunk ./tools/win32/download.sh 39 -wget -c $BASE_URL/dependencies/libxml2-${LIBXML_VERSION}.zip || exit -wget -c $BASE_URL/dependencies/libxml2-dev-${LIBXML_VERSION}.zip || exit +#wget -c $BASE_URL/dependencies/libpng-${LIBPNG_VERSION}.zip [_$_] +#wget -c $BASE_URL/dependencies/libjpeg-${LIBJPEG_VERSION}.zip [_$_] hunk ./tools/win32/download.sh 42 -wget -c $BASE_URL/dependencies/zlib-${ZLIB_VERSION}.zip || exit +wget -c $BASE_URL/dependencies/libxml2-${LIBXML_VERSION}.zip [_$_] +wget -c $BASE_URL/dependencies/libxml2-dev-${LIBXML_VERSION}.zip [_$_] hunk ./tools/win32/download.sh 45 -wget -c $BASE_URL/dependencies/pkg-config-${PKGCONFIG_VERSION}.zip || exit +#wget -c $BASE_URL/dependencies/zlib-${ZLIB_VERSION}.zip [_$_] hunk ./tools/win32/download.sh 47 -#if test ${GTK_EXTRAS} -#then -#wget -c $BASE_URL/librsvg/2.16/librsvg-${LIBRSVG_VERSION}.zip -#wget -c $BASE_URL/librsvg/2.16/librsvg-dev-${LIBRSVG_VERSION}.zip -#fi +#wget -c $BASE_URL/dependencies/pkg-config-${PKGCONFIG_VERSION}.zip [_$_] + +wget -c $BASE_URL/librsvg/2.22/librsvg-${LIBRSVG_VERSION}.zip +wget -c $BASE_URL/librsvg/2.22/librsvg-dev-${LIBRSVG_VERSION}.zip + +wget -c $BASE_URL/GConf/2.22/GConf-${GCONF_VERSION}.zip +wget -c $BASE_URL/GConf/2.22/GConf-dev-${GCONF_VERSION}.zip + +wget -c $BASE_URL/ORBit2/2.14/ORBit2-${ORBIT_VERSION}.zip +wget -c $BASE_URL/ORBit2/2.14/ORBit2-dev-${ORBIT_VERSION}.zip + +wget -c $BASE_URL/gnome-vfs/2.22/gnome-vfs-${GNOMEVFS_VERSION}.zip +wget -c $BASE_URL/gnome-vfs/2.22/gnome-vfs-dev-${GNOMEVFS_VERSION}.zip + +wget -c http://gstreamer.freedesktop.org/pkg/windows/releases/gstreamer/gstreamer-${GSTREAMER_VERSION}.win32{,dev}.zip +wget -c http://gstreamer.freedesktop.org/pkg/windows/releases/gst-plugins-base/gst-plugins-base-${GSTREAMER_VERSION}.win32{,dev}.zip hunk ./tools/win32/fix.sh 10 -pushd cairo-dev-${CAIRO_VERSION} -sed -i -e 's/Requires.private: libpng13/#Requires.private: libpng13/' lib/pkgconfig/cairo.pc -sed -i -e 's/Libs.private: -lz -lm/Libs.private: -lm -lpng13/' lib/pkgconfig/cairo.pc -sed -i -e 's/-lz//' lib/pkgconfig/cairo-pdf.pc -popd +#pushd cairo-dev-${CAIRO_VERSION} +#sed -i -e 's/Requires.private: libpng13/#Requires.private: libpng13/' lib/pkgconfig/cairo.pc +#sed -i -e 's/Libs.private: -lz -lm/Libs.private: -lm -lpng13/' lib/pkgconfig/cairo.pc +#sed -i -e 's/-lz//' lib/pkgconfig/cairo-pdf.pc +#popd hunk ./tools/win32/fix.sh 16 -pushd gtk+-${GTK_VERSION} +pushd gtk+-bundle-${GTK_VERSION} hunk ./tools/win32/fix.sh 20 -pushd libglade-dev-${LIBGLADE_VERSION} -mv lib/libglade-2.0.dll.a lib/glade-2.0.lib -popd - +# the gtkglext binaries are now only available as an installer +# copy them from where the installer put them hunk ./tools/win32/fix.sh 24 -mv gtkglext-win32-${GTKGLEXT_VERSION}/bin gtkglext-${GTKGLEXT_VERSION} -mv gtkglext-win32-${GTKGLEXT_VERSION}/include gtkglext-dev-${GTKGLEXT_VERSION} -mv gtkglext-win32-${GTKGLEXT_VERSION}/lib gtkglext-dev-${GTKGLEXT_VERSION} -rm -rf gtkglext-win32-${GTKGLEXT_VERSION} +cp -av /c/GtkGLExt/1.0/bin gtkglext-${GTKGLEXT_VERSION} +cp -av /c/GtkGLExt/1.0/{lib,include} gtkglext-dev-${GTKGLEXT_VERSION} hunk ./tools/win32/fix.sh 27 -pushd libxml2-dev-${LIBXML_VERSION} -rm lib/libxml2_a.lib -mv lib/libxml2.lib lib/xml2.lib -sed -i -e 's/-lz//' lib/pkgconfig/libxml-2.0.pc -popd +rm -vf libxml2-dev-${LIBXML_VERSION}/lib/libxml2_a.lib + +rm */lib/*.def +for file in */lib/lib*.dll.a ; do + mv -v "$file" "$(echo "$file" | sed 's,/lib\([^/]*\)\.dll\.a,/\1.lib,' )" +done +for file in */lib/lib*.lib ; do + mv -v "$file" "$(echo "$file" | sed 's,/lib\([^/]*\)\.lib,/\1.lib,' )" +done hunk ./tools/win32/fix.sh 37 -pushd gtksourceview-dev-${SOURCEVIEW_VERSION} -mv lib/libgtksourceview-1.0.dll.a lib/gtksourceview-1.0.lib -sed -i -e 's/libgnomeprint-2.2//' lib/pkgconfig/gtksourceview-1.0.pc [_$_] -popd hunk ./tools/win32/fix.sh 38 -#if test ${GTK_EXTRAS} -#then -#pushd librsvg-dev-${LIBRSVG_VERSION} -#mv lib/librsvg-2.dll.a lib/rsvg-2.lib -#popd -#fi hunk ./tools/win32/gtk2hs.iss 7 -AppVerName=Gtk2Hs 0.9.12[_^M_][_$_] -AppVersion=0.9.12[_^M_][_$_] +AppVerName=Gtk2Hs 0.9.13[_^M_][_$_] +AppVersion=0.9.13[_^M_][_$_] hunk ./tools/win32/gtk2hs.iss 15 -OutputBaseFilename=gtk2hs-0.9.12[_^M_][_$_] +OutputBaseFilename=gtk2hs-0.9.13[_^M_][_$_] hunk ./tools/win32/gtk2hs.iss 17 -VersionInfoVersion=0.9.12[_^M_][_$_] -VersionInfoCopyright=Copyright (C) 2001-2007 The Gtk2Hs Team[_^M_][_$_] +VersionInfoVersion=0.9.13[_^M_][_$_] +VersionInfoCopyright=Copyright (C) 2001-2008 The Gtk2Hs Team[_^M_][_$_] hunk ./tools/win32/gtk2hs.iss 26 -Name: "gtk"; Description: "Gtk+ libraries"; Types: full compact custom; Flags: fixed[_^M_][_$_] -;Name: "gtk2hs1"; Description: "Gtk2Hs libraries for GHC 6.4.2"; Check: UseWithGhcVersion('6.4.2'); Types: full compact custom; Flags: fixed[_^M_][_$_] -Name: "gtk2hs2"; Description: "Gtk2Hs libraries for GHC 6.6.1"; Check: UseWithGhcVersion('6.6.1'); Types: full compact custom; Flags: fixed[_^M_][_$_] +Name: "clibs"; Description: "Required C libraries"; Types: full compact custom; Flags: fixed[_^M_][_$_] +Name: "gtk2hs"; Description: "Gtk2Hs libraries for GHC 6.8.3"; Check: UseWithGhcVersion('6.8.3'); Types: full compact custom; Flags: fixed[_^M_][_$_] hunk ./tools/win32/gtk2hs.iss 32 -Source: "gtk+-2.10.14\*"; DestDir: "{app}"; Components: gtk; Flags: ignoreversion recursesubdirs createallsubdirs;[_^M_][_$_] -;Source: "gtk2hs-0.9.12-ghc-6.4.2-gtk-2.10\*"; DestDir: "{app}"; Components: gtk2hs1; Flags: ignoreversion recursesubdirs createallsubdirs; AfterInstall: AfterPkgInstall;[_^M_][_$_] -Source: "gtk2hs-0.9.12-ghc-6.6.1-gtk-2.10\*"; DestDir: "{app}"; Components: gtk2hs2; Flags: ignoreversion recursesubdirs createallsubdirs; AfterInstall: AfterPkgInstall;[_^M_][_$_] -Source: "gtk2hs-0.9.12-demo\*"; DestDir: "{app}\demos"; Components: demos; Flags: ignoreversion recursesubdirs createallsubdirs;[_^M_][_$_] -Source: "gtk2hs-0.9.12-docs\*"; DestDir: "{app}\docs"; Components: docs; Flags: ignoreversion recursesubdirs createallsubdirs;[_^M_][_$_] +Source: "gtk2hs-clibs-0.9.13\*"; DestDir: "{app}"; Components: clibs; Flags: ignoreversion recursesubdirs createallsubdirs;[_^M_][_$_] +Source: "gtk2hs-0.9.13-ghc-6.8.3\*"; DestDir: "{app}"; Components: gtk2hs; Flags: ignoreversion recursesubdirs createallsubdirs; AfterInstall: AfterPkgInstall;[_^M_][_$_] +Source: "gtk2hs-demo-0.9.13\*"; DestDir: "{app}\demos"; Components: demos; Flags: ignoreversion recursesubdirs createallsubdirs;[_^M_][_$_] +Source: "gtk2hs-docs-0.9.13\*"; DestDir: "{app}\docs"; Components: docs; Flags: ignoreversion recursesubdirs createallsubdirs;[_^M_][_$_] hunk ./tools/win32/gtk2hs.iss 43 -Filename: "{code:ghcpkg}"; Parameters: "update ""{app}\glib.package.conf"""; StatusMsg: "Registering glib package..."; Flags: runhidden[_^M_][_$_] -Filename: "{code:ghcpkg}"; Parameters: "update ""{app}\cairo.package.conf"""; StatusMsg: "Registering cairo package..."; Flags: runhidden[_^M_][_$_] -;Filename: "{code:ghcpkg}"; Parameters: "update ""{app}\svgcairo.package.conf"""; StatusMsg: "Registering svgcairo package..."; Flags: runhidden[_^M_][_$_] -Filename: "{code:ghcpkg}"; Parameters: "update ""{app}\gtk.package.conf"""; StatusMsg: "Registering gtk package..."; Flags: runhidden[_^M_][_$_] -Filename: "{code:ghcpkg}"; Parameters: "update ""{app}\glade.package.conf"""; StatusMsg: "Registering glade package..."; Flags: runhidden[_^M_][_$_] -Filename: "{code:ghcpkg}"; Parameters: "update ""{app}\soegtk.package.conf"""; StatusMsg: "Registering soegtk package..."; Flags: runhidden[_^M_][_$_] -Filename: "{code:ghcpkg}"; Parameters: "update ""{app}\gtkglext.package.conf"""; StatusMsg: "Registering gtkglext package..."; Flags: runhidden[_^M_][_$_] -Filename: "{code:ghcpkg}"; Parameters: "update ""{app}\sourceview.package.conf"""; StatusMsg: "Registering sourceview package..."; Flags: runhidden[_^M_][_$_] +Filename: "{code:ghcpkg}"; Parameters: "update ""{app}\glib.package.conf"""; StatusMsg: "Registering glib package..."; Flags: runhidden[_^M_][_$_] +Filename: "{code:ghcpkg}"; Parameters: "update ""{app}\cairo.package.conf"""; StatusMsg: "Registering cairo package..."; Flags: runhidden[_^M_][_$_] +Filename: "{code:ghcpkg}"; Parameters: "update ""{app}\svgcairo.package.conf"""; StatusMsg: "Registering svgcairo package..."; Flags: runhidden[_^M_][_$_] +Filename: "{code:ghcpkg}"; Parameters: "update ""{app}\gtk.package.conf"""; StatusMsg: "Registering gtk package..."; Flags: runhidden[_^M_][_$_] +Filename: "{code:ghcpkg}"; Parameters: "update ""{app}\glade.package.conf"""; StatusMsg: "Registering glade package..."; Flags: runhidden[_^M_][_$_] +Filename: "{code:ghcpkg}"; Parameters: "update ""{app}\soegtk.package.conf"""; StatusMsg: "Registering soegtk package..."; Flags: runhidden[_^M_][_$_] +Filename: "{code:ghcpkg}"; Parameters: "update ""{app}\gtkglext.package.conf"""; StatusMsg: "Registering gtkglext package..."; Flags: runhidden[_^M_][_$_] +;Filename: "{code:ghcpkg}"; Parameters: "update ""{app}\sourceview.package.conf"""; StatusMsg: "Registering sourceview package..."; Flags: runhidden[_^M_][_$_] +Filename: "{code:ghcpkg}"; Parameters: "update ""{app}\gnomevfs.package.conf"""; StatusMsg: "Registering gnomevfs package..."; Flags: runhidden[_^M_][_$_] +Filename: "{code:ghcpkg}"; Parameters: "update ""{app}\gstreamer.package.conf"""; StatusMsg: "Registering gstreamer package..."; Flags: runhidden[_^M_][_$_] +[_^M_][_$_] hunk ./tools/win32/gtk2hs.iss 55 -Filename: "{code:ghcpkg}"; Parameters: "unregister sourceview-0.9.12"; RunOnceId: "gtkglext"; Flags: runhidden[_^M_][_$_] -Filename: "{code:ghcpkg}"; Parameters: "unregister gtkglext-0.9.12"; RunOnceId: "gtkglext"; Flags: runhidden[_^M_][_$_] -Filename: "{code:ghcpkg}"; Parameters: "unregister soegtk-0.9.12"; RunOnceId: "soegtk"; Flags: runhidden[_^M_][_$_] -Filename: "{code:ghcpkg}"; Parameters: "unregister glade-0.9.12"; RunOnceId: "glade"; Flags: runhidden[_^M_][_$_] -Filename: "{code:ghcpkg}"; Parameters: "unregister gtk-0.9.12"; RunOnceId: "gtk"; Flags: runhidden[_^M_][_$_] -;Filename: "{code:ghcpkg}"; Parameters: "unregister svgcairo-0.9.12"; RunOnceId: "svgcairo"; Flags: runhidden[_^M_][_$_] -Filename: "{code:ghcpkg}"; Parameters: "unregister cairo-0.9.12"; RunOnceId: "cairo"; Flags: runhidden[_^M_][_$_] -Filename: "{code:ghcpkg}"; Parameters: "unregister glib-0.9.12"; RunOnceId: "glib"; Flags: runhidden[_^M_][_$_] +Filename: "{code:ghcpkg}"; Parameters: "unregister gstreamer-0.9.13"; RunOnceId: "gstreamer"; Flags: runhidden[_^M_][_$_] +Filename: "{code:ghcpkg}"; Parameters: "unregister gnomevfs-0.9.13"; RunOnceId: "gnomevfs"; Flags: runhidden[_^M_][_$_] +;Filename: "{code:ghcpkg}"; Parameters: "unregister sourceview-0.9.13"; RunOnceId: "gtkglext"; Flags: runhidden[_^M_][_$_] +Filename: "{code:ghcpkg}"; Parameters: "unregister gtkglext-0.9.13"; RunOnceId: "gtkglext"; Flags: runhidden[_^M_][_$_] +Filename: "{code:ghcpkg}"; Parameters: "unregister soegtk-0.9.13"; RunOnceId: "soegtk"; Flags: runhidden[_^M_][_$_] +Filename: "{code:ghcpkg}"; Parameters: "unregister glade-0.9.13"; RunOnceId: "glade"; Flags: runhidden[_^M_][_$_] +Filename: "{code:ghcpkg}"; Parameters: "unregister gtk-0.9.13"; RunOnceId: "gtk"; Flags: runhidden[_^M_][_$_] +Filename: "{code:ghcpkg}"; Parameters: "unregister svgcairo-0.9.13"; RunOnceId: "svgcairo"; Flags: runhidden[_^M_][_$_] +Filename: "{code:ghcpkg}"; Parameters: "unregister cairo-0.9.13"; RunOnceId: "cairo"; Flags: runhidden[_^M_][_$_] +Filename: "{code:ghcpkg}"; Parameters: "unregister glib-0.9.13"; RunOnceId: "glib"; Flags: runhidden[_^M_][_$_] hunk ./tools/win32/gtk2hs.iss 141 - Result := {-(Version = '6.4.2')[_^M_][_$_] - or-} (Version = '6.6.1');[_^M_][_$_] + Result := (Version = '6.8.3');[_^M_][_$_] hunk ./tools/win32/gtk2hs.iss 285 - DllFiles := ['charset.dll', 'gspawn-win32-helper-console.exe',[_^M_][_$_] - 'gspawn-win32-helper.exe', 'iconv.dll', 'intl.dll', 'jpeg62.dll',[_^M_][_$_] - 'libatk-1.0-0.dll', 'libcairo-2.dll', 'libgdk_pixbuf-2.0-0.dll',[_^M_][_$_] - 'libgdkglext-win32-1.0-0.dll', 'libgdk-win32-2.0-0.dll',[_^M_][_$_] - 'libglade-2.0-0.dll', 'libglib-2.0-0.dll',[_^M_][_$_] - 'libgmodule-2.0-0.dll', 'libgobject-2.0-0.dll',[_^M_][_$_] - 'libgthread-2.0-0.dll', 'libgtkglext-win32-1.0-0.dll',[_^M_][_$_] - 'libgtksourceview-1.0-0.dll', 'libgtk-win32-2.0-0.dll',[_^M_][_$_] - 'libpango-1.0-0.dll', 'libpangocairo-1.0-0.dll',[_^M_][_$_] - 'libpangoft2-1.0-0.dll', 'libpangowin32-1.0-0.dll',[_^M_][_$_] - 'libpng13.dll', 'libxml2.dll', 'zlib1.dll'];[_^M_][_$_] + DllFiles := [[_^M_][_$_] + 'gspawn-win32-helper-console.exe',[_^M_][_$_] + 'gspawn-win32-helper.exe',[_^M_][_$_] + 'gst-inspect-0.10.exe',[_^M_][_$_] + 'gst-launch-0.10.exe',[_^M_][_$_] + 'charset.dll',[_^M_][_$_] + 'iconv.dll',[_^M_][_$_] + 'intl.dll',[_^M_][_$_] + 'jpeg62.dll',[_^M_][_$_] + 'libORBit-2-0.dll',[_^M_][_$_] + 'libORBit-imodule-2-0.dll',[_^M_][_$_] + 'libORBitCosNaming-2-0.dll',[_^M_][_$_] + 'libatk-1.0-0.dll',[_^M_][_$_] + 'libcairo-2.dll',[_^M_][_$_] + 'libgconf-2-4.dll',[_^M_][_$_] + 'libgdk-win32-2.0-0.dll',[_^M_][_$_] + 'libgdk_pixbuf-2.0-0.dll',[_^M_][_$_] + 'libgdkglext-win32-1.0-0.dll',[_^M_][_$_] + 'libgio-2.0-0.dll',[_^M_][_$_] + 'libglade-2.0-0.dll',[_^M_][_$_] + 'libglib-2.0-0.dll',[_^M_][_$_] + 'libgmodule-2.0-0.dll',[_^M_][_$_] + 'libgnomevfs-2-0.dll',[_^M_][_$_] + 'libgobject-2.0-0.dll',[_^M_][_$_] + 'libgstaudio-0.10.dll',[_^M_][_$_] + 'libgstbase-0.10.dll',[_^M_][_$_] + 'libgstcdda-0.10.dll',[_^M_][_$_] + 'libgstcontroller-0.10.dll',[_^M_][_$_] + 'libgstdataprotocol-0.10.dll',[_^M_][_$_] + 'libgstfft-0.10.dll',[_^M_][_$_] + 'libgstinterfaces-0.10.dll',[_^M_][_$_] + 'libgstnet-0.10.dll',[_^M_][_$_] + 'libgstnetbuffer-0.10.dll',[_^M_][_$_] + 'libgstpbutils-0.10.dll',[_^M_][_$_] + 'libgstreamer-0.10.dll',[_^M_][_$_] + 'libgstriff-0.10.dll',[_^M_][_$_] + 'libgstrtp-0.10.dll',[_^M_][_$_] + 'libgstrtsp-0.10.dll',[_^M_][_$_] + 'libgstsdp-0.10.dll',[_^M_][_$_] + 'libgsttag-0.10.dll',[_^M_][_$_] + 'libgstvideo-0.10.dll',[_^M_][_$_] + 'libgthread-2.0-0.dll',[_^M_][_$_] + 'libgtk-win32-2.0-0.dll',[_^M_][_$_] + 'libgtkglext-win32-1.0-0.dll',[_^M_][_$_] + 'libpango-1.0-0.dll',[_^M_][_$_] + 'libpangocairo-1.0-0.dll',[_^M_][_$_] + 'libpangoft2-1.0-0.dll',[_^M_][_$_] + 'libpangowin32-1.0-0.dll',[_^M_][_$_] + 'libpng12-0.dll',[_^M_][_$_] + 'librsvg-2-2.dll',[_^M_][_$_] + 'libtiff3.dll',[_^M_][_$_] + 'libxml2.dll',[_^M_][_$_] + 'zlib1.dll'[_^M_][_$_] + ];[_^M_][_$_] adddir ./tools/win32/pc addfile ./tools/win32/pc/gstreamer-0.10.pc hunk ./tools/win32/pc/gstreamer-0.10.pc 1 +prefix=/c/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include +toolsdir=${exec_prefix}/bin +pluginsdir=${exec_prefix}/lib/gstreamer-0.10 +gstcontrol_libs=-lgstcontrol-0.10 + +Name: GStreamer +Description: Streaming media framework +Requires: glib-2.0, gobject-2.0, gmodule-no-export-2.0, gthread-2.0, libxml-2.0 +Version: 0.10.17 +Libs: -L${libdir} -lgstreamer-0.10 +Cflags: -I${includedir} addfile ./tools/win32/pc/gstreamer-audio-0.10.pc hunk ./tools/win32/pc/gstreamer-audio-0.10.pc 1 +prefix=/c/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include + +Name: GStreamer Audio library +Description: Audio helper functions and base classes +Requires: gstreamer-0.10 gstreamer-base-0.10 gstreamer-interfaces-0.10 +Version: 0.10.17 +Libs: -L${libdir} -lgstaudio-0.10 +Cflags: -I${includedir} + addfile ./tools/win32/pc/gstreamer-base-0.10.pc hunk ./tools/win32/pc/gstreamer-base-0.10.pc 1 +prefix=/c/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include + +Name: GStreamer base classes +Description: Base classes for GStreamer elements +Requires: gstreamer-0.10 +Version: 0.10.17 +Libs: -L${libdir} -lgstbase-0.10 +Cflags: -I${includedir} addfile ./tools/win32/pc/gstreamer-cdda-0.10.pc hunk ./tools/win32/pc/gstreamer-cdda-0.10.pc 1 +prefix=/c/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include + +Name: GStreamer CDDA Library +Description: CDDA base classes +Requires: gstreamer-0.10 gstreamer-base-0.10 gstreamer-tag-0.10 +Version: 0.10.17 +Libs: -L${libdir} -lgstcdda-0.10 +Cflags: -I${includedir} + addfile ./tools/win32/pc/gstreamer-controller-0.10.pc hunk ./tools/win32/pc/gstreamer-controller-0.10.pc 1 +prefix=/c/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include + +Name: GStreamer controller +Description: Dynamic parameter control for GStreamer elements +Requires: gstreamer-0.10 +Version: 0.10.17 +Libs: -L${libdir} -lgstcontroller-0.10 +Cflags: -I${includedir} addfile ./tools/win32/pc/gstreamer-dataprotocol-0.10.pc hunk ./tools/win32/pc/gstreamer-dataprotocol-0.10.pc 1 +prefix=/c/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include + +Name: GStreamer data protocol library +Description: Data protocol for plug-ins +Requires: gstreamer-0.10 +Version: 0.10.17 +Libs: -L${libdir} -lgstdataprotocol-0.10 +Cflags: -I${includedir} addfile ./tools/win32/pc/gstreamer-fft-0.10.pc hunk ./tools/win32/pc/gstreamer-fft-0.10.pc 1 +prefix=/c/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include + +Name: GStreamer FFT Library +Description: FFT implementation +Requires: gstreamer-0.10 +Version: 0.10.17 +Libs: -L${libdir} -lgstfft-0.10 -lm +Cflags: -I${includedir} + addfile ./tools/win32/pc/gstreamer-floatcast-0.10.pc hunk ./tools/win32/pc/gstreamer-floatcast-0.10.pc 1 +prefix=/c/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include + +Name: GStreamer Floatcast Library +Description: Platform independent floating point macros +Requires: glib-2.0 +Version: 0.10.17 +Cflags: -I${includedir} +Libs: -lm + addfile ./tools/win32/pc/gstreamer-interfaces-0.10.pc hunk ./tools/win32/pc/gstreamer-interfaces-0.10.pc 1 +prefix=/c/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include + +Name: GStreamer Interfaces Library +Description: Interfaces for GStreamer elements +Requires: gstreamer-0.10 +Version: 0.10.17 +Libs: -L${libdir} -lgstinterfaces-0.10 +Cflags: -I${includedir} + addfile ./tools/win32/pc/gstreamer-net-0.10.pc hunk ./tools/win32/pc/gstreamer-net-0.10.pc 1 +prefix=/c/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include + +Name: GStreamer networking library +Description: Network-enabled GStreamer plug-ins and clocking +Requires: gstreamer-0.10 +Version: 0.10.17 +Libs: -L${libdir} -lgstnet-0.10 +Cflags: -I${includedir} addfile ./tools/win32/pc/gstreamer-netbuffer-0.10.pc hunk ./tools/win32/pc/gstreamer-netbuffer-0.10.pc 1 +prefix=/c/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include + +Name: GStreamer Network Buffer Library +Description: Network buffer for use in network sources/sinks +Requires: gstreamer-0.10 +Version: 0.10.17 +Libs: -L${libdir} -lgstnetbuffer-0.10 +Cflags: -I${includedir} + addfile ./tools/win32/pc/gstreamer-pbutils-0.10.pc hunk ./tools/win32/pc/gstreamer-pbutils-0.10.pc 1 +prefix=/c/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include + +Name: GStreamer Base Utils Library +Description: General utility functions +Requires: gstreamer-0.10 +Version: 0.10.17 +Libs: -L${libdir} -lgstpbutils-0.10 +Cflags: -I${includedir} + addfile ./tools/win32/pc/gstreamer-plugins-base-0.10.pc hunk ./tools/win32/pc/gstreamer-plugins-base-0.10.pc 1 +prefix=/c/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include +pluginsdir=${exec_prefix}/lib/gstreamer-0.10 + +Name: GStreamer Base Plugins Libraries +Description: Streaming media framework, base plugins libraries +Requires: gstreamer-0.10 [_$_] +Version: 0.10.17 +Libs: -L${libdir} +Cflags: -I${includedir} + +libraries=audio cdda fft floatcast interfaces netbuffer riff rtp tag pbutils video addfile ./tools/win32/pc/gstreamer-riff-0.10.pc hunk ./tools/win32/pc/gstreamer-riff-0.10.pc 1 +prefix=/c/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include + +Name: GStreamer RIFF Library +Description: RIFF helper functions +Requires: gstreamer-0.10 +Version: 0.10.17 +Libs: -L${libdir} -lgstriff-0.10 +Cflags: -I${includedir} + addfile ./tools/win32/pc/gstreamer-rtp-0.10.pc hunk ./tools/win32/pc/gstreamer-rtp-0.10.pc 1 +prefix=/c/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include + +Name: GStreamer RTP Library +Description: RTP base classes and helper functions +Requires: gstreamer-0.10 gstreamer-base-0.10 +Version: 0.10.17 +Libs: -L${libdir} -lgstrtp-0.10 +Cflags: -I${includedir} + addfile ./tools/win32/pc/gstreamer-rtsp-0.10.pc hunk ./tools/win32/pc/gstreamer-rtsp-0.10.pc 1 +prefix=/c/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include + +Name: GStreamer RTSP Library +Description: RTSP base classes and helper functions +Requires: gstreamer-0.10 gstreamer-sdp-0.10 +Version: 0.10.17 +Libs: -L${libdir} -lgstrtsp-0.10 +Cflags: -I${includedir} + addfile ./tools/win32/pc/gstreamer-sdp-0.10.pc hunk ./tools/win32/pc/gstreamer-sdp-0.10.pc 1 +prefix=/c/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include + +Name: GStreamer SDP Library +Description: SDP helper functions +Requires: glib-2.0 +Version: 0.10.17 +Libs: -L${libdir} -lgstsdp-0.10 +Cflags: -I${includedir} + addfile ./tools/win32/pc/gstreamer-tag-0.10.pc hunk ./tools/win32/pc/gstreamer-tag-0.10.pc 1 +prefix=/c/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include + +Name: GStreamer Tag Library +Description: Tag base classes and helper functions +Requires: gstreamer-0.10 +Version: 0.10.17 +Libs: -L${libdir} -lgsttag-0.10 +Cflags: -I${includedir} + addfile ./tools/win32/pc/gstreamer-video-0.10.pc hunk ./tools/win32/pc/gstreamer-video-0.10.pc 1 +prefix=/c/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include + +Name: GStreamer Video Library +Description: Video base classes and helper functions +Requires: gstreamer-0.10 gstreamer-base-0.10 +Version: 0.10.17 +Libs: -L${libdir} -lgstvideo-0.10 +Cflags: -I${includedir} + addfile ./tools/win32/pc/libxml-2.0.pc hunk ./tools/win32/pc/libxml-2.0.pc 1 +prefix=/gtk/gtk+-2.12.10 +exec_prefix=${prefix} +libdir=${exec_prefix}/lib +includedir=${prefix}/include +modules=1 + +Name: libXML +Version: 2.6.32 +Description: libXML library version2. +Requires: +Libs: -L${libdir} -lxml2 +Libs.private: -lz -liconv -lm +Cflags: -I${includedir}/libxml2 hunk ./tools/win32/prune.sh 11 -rm -rf */make/ */man/ */share/gtk-doc/ */share/doc/ +rm -rf */make/ */share/man/ */man/ */share/gtk-doc/ */share/doc/ hunk ./tools/win32/prune.sh 32 +pushd gtk+-bundle-${GTK_VERSION} hunk ./tools/win32/prune.sh 34 -pushd gtk+-dev-${GTK_VERSION} -rm -rf share/gtk-2.0 -popd - +rm -rf share/gtk-2.0/ +rmdir share/gtk-2.0 hunk ./tools/win32/prune.sh 37 -pushd glib-dev-${GLIB_VERSION} -rm -rf share/glib-2.0 -popd - -pushd pango-${PANGO_VERSION} +rm -rf share/glib-2.0/ +rmdir share/glib-2.0 hunk ./tools/win32/prune.sh 40 +rm lib/libz.a lib/zdll.lib hunk ./tools/win32/prune.sh 47 -pushd gettext-dev-${GETTEXT_VERSION} -rm -rf share -popd +#pushd gettext-dev-${GETTEXT_VERSION} +#rm -rf share +#popd hunk ./tools/win32/prune.sh 51 -pushd libglade-dev-${LIBGLADE_VERSION} -rm -rf share/xml +pushd gtkglext-${GTKGLEXT_VERSION} +rm -rf bin/gtkglext-env.{bat,sh} hunk ./tools/win32/prune.sh 55 -pushd libxml2-dev-${LIBXML_VERSION} -rm -rf include -popd +find -depth -type d -empty -exec rmdir -v {} \; hunk ./tools/win32/versions.conf 1 -GLIB_VERSION=2.12.13 -PANGO_VERSION=1.16.4 -ATK_VERSION=1.18.0 -CAIRO_VERSION=1.4.8 -GTK_VERSION=2.10.14 -LIBGLADE_VERSION=2.6.0 -GTKGLEXT_VERSION=1.0.6 -SOURCEVIEW_VERSION=1.8.5 +GTK2HS_VERSION=0.9.13 +#GLIB_VERSION=2.16.3 +#PANGO_VERSION=1.20.3 +#ATK_VERSION=1.22.0 +#CAIRO_VERSION=1.6.4 +GTK_VERSION=2.12.10 +LIBGLADE_VERSION=2.6.2 +GTKGLEXT_VERSION=1.2.0 +#SOURCEVIEW_VERSION=1.8.5 hunk ./tools/win32/versions.conf 11 -GETTEXT_VERSION=0.14.5 -LIBPNG_VERSION=1.2.8 -LIBJPEG_VERSION=6b-4 +#GETTEXT_VERSION=0.14.5 +#LIBPNG_VERSION=1.2.8 +#LIBJPEG_VERSION=6b-4 hunk ./tools/win32/versions.conf 15 -ZLIB_VERSION=1.2.3 -PKGCONFIG_VERSION=0.20 - -#if test ${GTK_EXTRAS} -#then -#LIBRSVG_VERSION=2.16.1 -#fi +#ZLIB_VERSION=1.2.3 +#PKGCONFIG_VERSION=0.20 +GCONF_VERSION=2.22.0 +ORBIT_VERSION=2.14.13 +GSTREAMER_VERSION=0.10.17 +GNOMEVFS_VERSION=2.22.0 +LIBRSVG_VERSION=2.22.2 hunk ./tools/win32/win32-build-version.sh 7 - ghc-6.2.2) PATH="${PATH}:${GHC_622_PATH}";;[_^M_][_$_] - ghc-6.4.2) PATH="${PATH}:${GHC_642_PATH}";;[_^M_][_$_] - ghc-6.6.1) PATH="${PATH}:${GHC_661_PATH}";;[_^M_][_$_] - *) echo "GHC version parameter must be one of ghc-6.2.2, ghc-6.4.2 or ghc-6.6.1"; exit;;[_^M_][_$_] -esac[_^M_][_$_] -case $2 in[_^M_][_$_] - gtk-2.4) GTK_BASEPATH=${GTK_24_BASEPATH};;[_^M_][_$_] - gtk-2.6) GTK_BASEPATH=${GTK_26_BASEPATH};;[_^M_][_$_] - gtk-2.8) GTK_BASEPATH=${GTK_28_BASEPATH}; CONFIGURE_EXTRAFLAGS="--enable-cairo"[_^M_][_$_] - export PKG_CONFIG_PATH="${GTK_BASEPATH}/lib/pkgconfig";;[_^M_][_$_] - gtk-2.10) GTK_BASEPATH=${GTK_210_BASEPATH}; CONFIGURE_EXTRAFLAGS="--enable-cairo"[_^M_][_$_] - export PKG_CONFIG_PATH="${GTK_BASEPATH}/lib/pkgconfig";;[_^M_][_$_] - *) echo "Gtk version parameter must be one of gtk-2.6, gtk-2.8 or gtk-2.10"; exit;;[_^M_][_$_] + ghc-6.8.3) PATH="${PATH}:${GHC_683_PATH}";;[_^M_][_$_] + *) echo "GHC version parameter must be ghc-6.8.3"; exit;;[_^M_][_$_] hunk ./tools/win32/win32-build-version.sh 11 -export PATH="${PATH}:${GTK_BASEPATH}/bin"[_^M_][_$_] -export INCLUDE="${GTK_BASEPATH}/include"[_^M_][_$_] -export LIB="${GTK_BASEPATH}/lib"[_^M_][_$_] +export PATH="${PATH}:${CLIBS_BASEPATH}/bin"[_^M_][_$_] +export INCLUDE="${CLIBS_BASEPATH}/include"[_^M_][_$_] +export LIB="${CLIBS_BASEPATH}/lib"[_^M_][_$_] hunk ./tools/win32/win32-build-version.sh 25 -VERSION_SUFFIX="ghc-${GHC_VERSION}-gtk-${GTK_VERSION}"[_^M_][_$_] +VERSION_SUFFIX="ghc-${GHC_VERSION}"[_^M_][_$_] hunk ./tools/win32/win32-build-version.sh 29 -CONFIGURE_FLAGS="--enable-packager-mode --enable-split-objs --enable-profiling"[_^M_][_$_] -ENABLE_PACKAGES="--enable-libglade --enable-opengl --enable-sourceview"[_^M_][_$_] +CONFIGURE_FLAGS="--enable-packager-mode --enable-split-objs --enable-profiling --enable-docs"[_^M_][_$_] +ENABLE_PACKAGES="--enable-libglade --enable-opengl --enable-gnomevfs --enable-gstreamer --enable-cairo --enable-svg --enable-gconf"[_^M_][_$_] hunk ./tools/win32/win32-build-version.sh 32 -rm -rf ${BUILD_DIR}[_^M_][_$_] -mkdir ${BUILD_DIR}[_^M_][_$_] -cd ${BUILD_DIR}[_^M_][_$_] -tar -xzf ../gtk2hs-${VERSION}.tar.gz[_^M_][_$_] +#rm -rf ${BUILD_DIR}[_^M_][_$_] +if [ ! -d ${BUILD_DIR} ] ; then + mkdir ${BUILD_DIR}[_^M_][_$_] + cd ${BUILD_DIR}[_^M_][_$_] + tar -xzf ../gtk2hs-${VERSION}.tar.gz[_^M_][_$_] +else + cd ${BUILD_DIR}[_^M_][_$_] +fi hunk ./tools/win32/win32-build-version.sh 41 -./configure --prefix=/ ${CONFIGURE_FLAGS} ${ENABLE_PACKAGES} ${CONFIGURE_EXTRAFLAGS}[_^M_][_$_] -make[_^M_][_$_] +if [ ! -f Makefile ] ; then + ./configure --prefix=/ ${CONFIGURE_FLAGS} ${ENABLE_PACKAGES} ${CONFIGURE_EXTRAFLAGS}[_^M_][_$_] +fi +make HSTOOLFLAGS=-M256m[_^M_][_$_] hunk ./tools/win32/win32-build-version.sh 48 +mv ${INSTALL_SOURCE_DIR}/tmp-${VERSIONED_DIR}/share/doc/gtk2hs/html ${INSTALL_SOURCE_DIR}/${VERSIONED_DIR}[_^M_][_$_] hunk ./tools/win32/win32-build-version.sh 50 +rmdir ${INSTALL_SOURCE_DIR}/tmp-${VERSIONED_DIR}/share{/doc{/gtk2hs,},} hunk ./tools/win32/win32-build.conf 2 -VERSION=0.9.12[_^M_][_$_] +VERSION=0.9.13[_^M_][_$_] hunk ./tools/win32/win32-build.conf 5 -INSTALL_SOURCE_DIR=~/gtk2hs-win32[_^M_][_$_] +INSTALL_SOURCE_DIR=/gtk2hs-win32[_^M_][_$_] hunk ./tools/win32/win32-build.conf 7 -INNOSETUP_BIN_DIR="d:/dcoutts/Inno Setup 5"[_^M_][_$_] +INNOSETUP_BIN_DIR="/c/Program Files/Inno Setup 5"[_^M_][_$_] hunk ./tools/win32/win32-build.conf 15 -GTK_26_BASEPATH="/d/dcoutts/gtk+-2.6.10"[_^M_][_$_] -GTK_28_BASEPATH="/d/dcoutts/gtk+-2.8.20"[_^M_][_$_] -GTK_210_BASEPATH="/d/dcoutts/gtk+-2.10.14"[_^M_][_$_] +CLIBS_BASEPATH="/gtk2hs-clibs-dev-${VERSION}-win32"[_^M_][_$_] hunk ./tools/win32/win32-build.conf 18 -GHC_622_PATH="/d/dcoutts/ghc-6.2.2/bin"[_^M_][_$_] -GHC_642_PATH="/d/dcoutts/ghc-6.4.2/bin"[_^M_][_$_] -GHC_661_PATH="/d/dcoutts/ghc-6.6.1/bin"[_^M_][_$_] +#GHC_622_PATH="/d/dcoutts/ghc-6.2.2/bin"[_^M_][_$_] +#GHC_642_PATH="/d/dcoutts/ghc-6.4.2/bin"[_^M_][_$_] +#GHC_661_PATH="/d/dcoutts/ghc-6.6.1/bin"[_^M_][_$_] +GHC_683_PATH="/c/ghc/ghc-6.8.3/bin" |
From: Peter g. <pg...@co...> - 2008-06-23 18:11:57
|
Sat Jun 21 18:15:02 EDT 2008 Peter Gavin <pg...@gm...> * Makefile.am: URI.chs -> URI.chs.pp hunk ./Makefile.am 1746 - gnomevfs/System/Gnome/VFS/URI.chs \ + gnomevfs/System/Gnome/VFS/URI.chs.pp \ |
From: Peter g. <pg...@co...> - 2008-06-23 18:11:56
|
Sat Jun 21 18:10:54 EDT 2008 Peter Gavin <pg...@gm...> * demos/fastdraw: comment out Show instance for Rectangle (as it's been implemented in the library) hunk ./demo/fastdraw/FastDraw.hs 74 +{- hunk ./demo/fastdraw/FastDraw.hs 78 +-} |
From: Peter g. <pg...@co...> - 2008-06-23 18:11:53
|
Sat Jun 21 17:08:33 EDT 2008 Peter Gavin <pg...@gm...> * Makefile.am: add gstreamer & gnomevfs demos hunk ./Makefile.am 2286 +endif +if ENABLE_GSTREAMER +DEMOS += demo/gstreamer +endif +if ENABLE_GNOMEVFS +DEMOS += demo/gnomevfs |
From: Peter g. <pg...@co...> - 2008-06-23 18:11:52
|
Sat Jun 21 17:08:12 EDT 2008 Peter Gavin <pg...@gm...> * gstreamer: fix demo so it works again hunk ./demo/gstreamer/VorbisPlay.hs 8 +import qualified System.Glib.Signals as G hunk ./demo/gstreamer/VorbisPlay.hs 34 - source <- mkElement $ Gst.elementFactoryMake "filesrc" "file-source" - parser <- mkElement $ Gst.elementFactoryMake "oggdemux" "ogg-parser" - decoder <- mkElement $ Gst.elementFactoryMake "vorbisdec" "vorbis-decoder" - conv <- mkElement $ Gst.elementFactoryMake "audioconvert" "convert" - sink <- mkElement $ Gst.elementFactoryMake "alsasink" "alsa-output" + source <- mkElement $ Gst.elementFactoryMake "filesrc" $ Just "file-source" + parser <- mkElement $ Gst.elementFactoryMake "oggdemux" $ Just "ogg-parser" + decoder <- mkElement $ Gst.elementFactoryMake "vorbisdec" $ Just "vorbis-decoder" + conv <- mkElement $ Gst.elementFactoryMake "audioconvert" $ Just "convert" + sink <- mkElement $ Gst.elementFactoryMake "alsasink" $ Just "alsa-output" hunk ./demo/gstreamer/VorbisPlay.hs 64 - Gst.onElementPadAdded parser $ \pad -> - do sinkPad <- Gst.elementGetPad decoder "sink" + G.on parser Gst.elementPadAdded $ \pad -> + do sinkPad <- Gst.elementGetStaticPad decoder "sink" |
From: Peter g. <pg...@co...> - 2008-06-23 18:11:51
|
Sat Jun 21 16:28:31 EDT 2008 Peter Gavin <pg...@gm...> * gnomevfs: add mtl to depends in gnomevfs.package.conf.in hunk ./gnomevfs/gnomevfs.package.conf.in 16 -depends: glib-@PACKAGE_VERSION@ @GNOMEVFS_SPLITBASE_DEPENDS@ +depends: glib-@PACKAGE_VERSION@ mtl @GNOMEVFS_SPLITBASE_DEPENDS@ |
From: Peter g. <pg...@co...> - 2008-06-23 18:11:51
|
Sat Jun 21 13:03:12 EDT 2008 Peter Gavin <pg...@gm...> * gnomevfs: Types: only include S[GU]ID bits in perms if not windows; remove the Perm*All flags the Perm*All flags should really be values, not constructors hunk ./Makefile.am 1713 -libHSgnomevfs_a_CPPFLAGS = $(filter -I% -D%,$(GLIB_CFLAGS) $(GNOMEVFS_CFLAGS)) +libHSgnomevfs_a_CPPFLAGS = $(filter -I% -D%,$(GLIB_CFLAGS) $(GNOMEVFS_CFLAGS)) -I. hunk ./Makefile.am 1736 + gnomevfs/System/Gnome/VFS/Constants.hsc \ addfile ./gnomevfs/System/Gnome/VFS/Constants.hsc hunk ./gnomevfs/System/Gnome/VFS/Constants.hsc 1 +-- GIMP Toolkit (GTK) Binding for Haskell: binding to libgnomevfs -*-haskell-*- +-- +-- Author : Peter Gavin +-- Created: 21-Jun-2008 +-- +-- Copyright (c) 2008 Peter Gavin +-- +-- 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 3 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. +-- [_$_] +-- You should have received a copy of the GNU Lesser General Public +-- License along with this program. If not, see +-- <http://www.gnu.org/licenses/>. +-- [_$_] +-- GnomeVFS, the C library which this Haskell library depends on, is +-- available under LGPL Version 2. The documentation included with +-- this library is based on the original GnomeVFS documentation, +-- Copyright (c) 2001 Seth Nickell <sni...@st...>. The +-- documentation is covered by the GNU Free Documentation License, +-- version 1.2. + +-- #hide + +-- | Maintainer : gtk...@li... +-- Stability : alpha +-- Portability : portable (depends on GHC) +module System.Gnome.VFS.Constants ( + + FilePermissions (..), + permUserAll, + permGroupAll, + permOtherAll + + ) where + +import System.Glib.Flags + +-- | UNIX-like permissions for a file. +data FilePermissions [_$_] +#ifndef WIN32 + = PermSUID + | PermSGID + | PermSticky +#else + = PermSticky +#endif + | PermUserRead + | PermUserWrite + | PermUserExec + | PermGroupRead + | PermGroupWrite + | PermGroupExec + | PermOtherRead + | PermOtherWrite + | PermOtherExec + | PermAccessReadable + | PermAccessWritable + | PermAccessExecutable + deriving (Eq, Ord, Bounded, Show, Read) +instance Flags FilePermissions +permUserAll, permGroupAll, permOtherAll :: [FilePermissions] +permUserAll = [ PermUserRead, PermUserWrite, PermUserExec ] +permGroupAll = [ PermGroupRead, PermGroupWrite, PermGroupExec ] +permOtherAll = [ PermOtherRead, PermOtherWrite, PermOtherExec ] + +instance Enum FilePermissions where +#ifndef WIN32 + fromEnum PermSUID = #{const GNOME_VFS_PERM_SUID} + fromEnum PermSGID = #{const GNOME_VFS_PERM_SGID} +#endif + fromEnum PermSticky = #{const GNOME_VFS_PERM_STICKY} + fromEnum PermUserRead = #{const GNOME_VFS_PERM_USER_READ} + fromEnum PermUserWrite = #{const GNOME_VFS_PERM_USER_WRITE} + fromEnum PermUserExec = #{const GNOME_VFS_PERM_USER_EXEC} + fromEnum PermGroupRead = #{const GNOME_VFS_PERM_GROUP_READ} + fromEnum PermGroupWrite = #{const GNOME_VFS_PERM_GROUP_WRITE} + fromEnum PermGroupExec = #{const GNOME_VFS_PERM_GROUP_EXEC} + fromEnum PermOtherRead = #{const GNOME_VFS_PERM_OTHER_READ} + fromEnum PermOtherWrite = #{const GNOME_VFS_PERM_OTHER_WRITE} + fromEnum PermOtherExec = #{const GNOME_VFS_PERM_OTHER_EXEC} + fromEnum PermAccessReadable = #{const GNOME_VFS_PERM_ACCESS_READABLE} + fromEnum PermAccessWritable = #{const GNOME_VFS_PERM_ACCESS_WRITABLE} + fromEnum PermAccessExecutable = #{const GNOME_VFS_PERM_ACCESS_EXECUTABLE} + [_$_] +#ifndef WIN32 + toEnum #{const GNOME_VFS_PERM_SUID} = PermSUID + toEnum #{const GNOME_VFS_PERM_SGID} = PermSGID +#endif + toEnum #{const GNOME_VFS_PERM_STICKY} = PermSticky + toEnum #{const GNOME_VFS_PERM_USER_READ} = PermUserRead + toEnum #{const GNOME_VFS_PERM_USER_WRITE} = PermUserWrite + toEnum #{const GNOME_VFS_PERM_USER_EXEC} = PermUserExec + toEnum #{const GNOME_VFS_PERM_GROUP_READ} = PermGroupRead + toEnum #{const GNOME_VFS_PERM_GROUP_WRITE} = PermGroupWrite + toEnum #{const GNOME_VFS_PERM_GROUP_EXEC} = PermGroupExec + toEnum #{const GNOME_VFS_PERM_OTHER_READ} = PermOtherRead + toEnum #{const GNOME_VFS_PERM_OTHER_WRITE} = PermOtherWrite + toEnum #{const GNOME_VFS_PERM_OTHER_EXEC} = PermOtherExec + toEnum #{const GNOME_VFS_PERM_ACCESS_READABLE} = PermAccessReadable + toEnum #{const GNOME_VFS_PERM_ACCESS_WRITABLE} = PermAccessWritable + toEnum #{const GNOME_VFS_PERM_ACCESS_EXECUTABLE} = PermAccessExecutable hunk ./gnomevfs/System/Gnome/VFS/Types.chs.pp 36 + module System.Gnome.VFS.Constants, + [_$_] hunk ./gnomevfs/System/Gnome/VFS/Types.chs.pp 52 - FilePermissions(..), hunk ./gnomevfs/System/Gnome/VFS/Types.chs.pp 138 +import System.Gnome.VFS.Constants hunk ./gnomevfs/System/Gnome/VFS/Types.chs.pp 244 --- | UNIX-like permissions for a file. -{# enum GnomeVFSFilePermissions as FilePermissions { - GNOME_VFS_PERM_SUID as PermSUID, - GNOME_VFS_PERM_SGID as PermSGID, - GNOME_VFS_PERM_STICKY as PermSticky, - GNOME_VFS_PERM_USER_READ as PermUserRead, - GNOME_VFS_PERM_USER_WRITE as PermUserWrite, - GNOME_VFS_PERM_USER_EXEC as PermUserExec, - GNOME_VFS_PERM_USER_ALL as PermUserAll, - GNOME_VFS_PERM_GROUP_READ as PermGroupRead, - GNOME_VFS_PERM_GROUP_WRITE as PermGroupWrite, - GNOME_VFS_PERM_GROUP_EXEC as PermGroupExec, - GNOME_VFS_PERM_GROUP_ALL as PermGroupAll, - GNOME_VFS_PERM_OTHER_READ as PermOtherRead, - GNOME_VFS_PERM_OTHER_WRITE as PermOtherWrite, - GNOME_VFS_PERM_OTHER_EXEC as PermOtherExec, - GNOME_VFS_PERM_OTHER_ALL as PermOtherAll, - GNOME_VFS_PERM_ACCESS_READABLE as PermAccessReadable, - GNOME_VFS_PERM_ACCESS_WRITABLE as PermAccessWritable, - GNOME_VFS_PERM_ACCESS_EXECUTABLE as PermAccessExecutable - } deriving (Eq, Bounded, Show) #} -instance Flags FilePermissions - |
From: Peter g. <pg...@co...> - 2008-06-23 18:11:48
|
Sat Jun 21 12:00:15 EDT 2008 Peter Gavin <pg...@gm...> * Makefile.am: win32 version of haddock doesn't generate doc-index-*.html, just the doc-index.html file hunk ./Makefile.am 2218 - docs/reference/gtk2hs.haddock \ - $(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 \ + docs/reference/gtk2hs.haddock +if WIN32 +htmldoc_DATA += + $(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 2223 +endif |
From: Peter g. <pg...@co...> - 2008-06-23 18:11:48
|
Sat Jun 21 11:32:44 EDT 2008 Peter Gavin <pg...@gm...> * Makefile.am: add gstreamer/marshal.list; fix typo hunk ./Makefile.am 25 + gstreamer/marshal.list \ hunk ./Makefile.am 1879 -$(libHSgnomevfs_a_PRECOMP): $(libHSgnomevfs_a_HEADER) +$(libHSgstreamer_a_PRECOMP): $(libHSgstreamer_a_HEADER) |
From: Peter g. <pg...@co...> - 2008-06-22 06:00:44
|
Fri Jun 20 20:36:31 EDT 2008 Peter Gavin <pg...@gm...> * Makefile.am: typo: I added gnomevfs/hsgnomevfs-2.16.h, not gnomevfs/hsgnomevfs-2.14.h! hunk ./Makefile.am 22 - gnomevfs/hsgnomevfs-2.16.h \ + gnomevfs/hsgnomevfs-2.14.h \ |
From: Peter g. <pg...@co...> - 2008-06-22 06:00:42
|
Fri Jun 20 20:23:15 EDT 2008 Peter Gavin <pg...@gm...> * gstreamer: a few small doc fixes hunk ./gstreamer/Media/Streaming/GStreamer/Core/Clock.chs.pp 280 - => clock -- ^ @clock@ + => clock -- ^ @clock@ - [_$_] hunk ./gstreamer/Media/Streaming/GStreamer/Core/Clock.chs.pp 286 --- | Gets the current time of @clock@. The time is always +-- | Get the current time stored in @clock@. The time is always hunk ./gstreamer/Media/Streaming/GStreamer/Core/Element.chs.pp 153 - => elementT + => elementT -- ^ @element@ - an element hunk ./gstreamer/Media/Streaming/GStreamer/Core/Element.chs.pp 182 - => elementT -- ^ @element@ - [_$_] + => elementT -- ^ @element@ - an element hunk ./gstreamer/Media/Streaming/GStreamer/Core/Element.chs.pp 188 --- | Look for an unlinked pad to which the given pad can link. It is not +-- | Look for an unlinked pad to which the @pad@ can link. It is not hunk ./gstreamer/Media/Streaming/GStreamer/Core/Element.chs.pp 192 - => elementT -- ^ @element@ - the element for - -- which a pad should be found - -> padT -- ^ @pad@ - the pad to find - -- a compatible one for + => elementT -- ^ @element@ - an element + -> padT -- ^ @pad@ - a pad hunk ./gstreamer/Media/Streaming/GStreamer/Core/Element.chs.pp 196 - -> IO (Maybe Pad) -- ^ the compatible 'Pad', or + -> IO (Maybe Pad) -- ^ a 'Pad' that is compatible with @pad@, or hunk ./gstreamer/Media/Streaming/GStreamer/Core/Element.chs.pp 206 - => elementT -- ^ @element@ - [_$_] - -> padTemplateT -- ^ @padTemplate@ - [_$_] - -> IO (Maybe PadTemplate) -- ^ the compatible'PadTemplate', - -- or 'Nothing' if none was found + => elementT -- ^ @element@ - an element + -> padTemplateT -- ^ @padTemplate@ - a pad template + -> IO (Maybe PadTemplate) -- ^ the compatible 'PadTemplate', + -- or 'Nothing' if none was found hunk ./gstreamer/Media/Streaming/GStreamer/Core/Element.chs.pp 218 - => elementT -- ^ @element@ - [_$_] + => elementT -- ^ @element@ - an element hunk ./gstreamer/Media/Streaming/GStreamer/Core/Element.chs.pp 229 - => elementT -- ^ @element@ - [_$_] + => elementT -- ^ @element@ - an element |
From: Peter g. <pg...@co...> - 2008-06-21 06:00:44
|
Fri Jun 20 20:22:27 EDT 2008 Peter Gavin <pg...@gm...> * Makefile.am: add gnomevfs precomp stuff hunk ./Makefile.am 1702 +libHSgnomevfs_a_PRECOMP = gnomevfs/gnomevfs.precomp hunk ./Makefile.am 1705 +$(libHSgnomevfs_a_PRECOMP): $(libHSgnomevfs_a_HEADER) hunk ./Makefile.am 1709 -libHSgnomevfs_a_PRECOMP = gnomevfs/gnomevfs.precomp hunk ./Makefile.am 1878 +$(libHSgnomevfs_a_PRECOMP): $(libHSgnomevfs_a_HEADER) |
From: Peter g. <pg...@co...> - 2008-06-21 06:00:41
|
Fri Jun 20 20:37:19 EDT 2008 Peter Gavin <pg...@gm...> * configure.ac: bump version to 0.9.13 hunk ./configure.ac 25 -AC_INIT([gtk2hs],[0.9.12.2]) +AC_INIT([gtk2hs],[0.9.13]) |
From: Peter g. <pg...@co...> - 2008-06-20 15:05:51
|
Fri Jun 20 06:15:02 EDT 2008 Duncan Coutts <du...@ha...> * Add Screen type This gives us the functions for getting colour maps with alpha channels which lets us make transparent windows. hunk ./Makefile.am 585 + gtk/Graphics/UI/Gtk/Gdk/Screen.chs.pp \ hunk ./gtk/Graphics/UI/Gtk.hs.pp 61 + module Graphics.UI.Gtk.Gdk.Screen, hunk ./gtk/Graphics/UI/Gtk.hs.pp 240 +import Graphics.UI.Gtk.Gdk.Screen addfile ./gtk/Graphics/UI/Gtk/Gdk/Screen.chs.pp hunk ./gtk/Graphics/UI/Gtk/Gdk/Screen.chs.pp 1 +-- -*-haskell-*- +-- GIMP Toolkit (GTK) Widget Screen +-- +-- Author : Duncan Coutts +-- +-- Created: 29 October 2007 +-- +-- Copyright (C) 2007 Duncan Coutts +-- +-- 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) +-- +-- Object representing a physical screen +-- +-- * Module available since Gdk version 2.2 +-- +module Graphics.UI.Gtk.Gdk.Screen ( + +-- * Detail +-- +-- | 'Screen' objects are the GDK representation of a physical screen. It is +-- used throughout GDK and Gtk+ to specify which screen the top level windows +-- are to be displayed on. It is also used to query the screen specification +-- and default settings such as the default colormap +-- ('screenGetDefaultColormap'), the screen width ('screenGetWidth'), etc. +-- +-- Note that a screen may consist of multiple monitors which are merged to +-- form a large screen area. + +-- * Class Hierarchy +-- +-- | +-- @ +-- | 'GObject' +-- | +----Screen +-- @ + +#if GTK_CHECK_VERSION(2,2,0) +-- * Types + Screen, + ScreenClass, + castToScreen, + toScreen, + +-- * Methods + screenGetDefault, + screenGetSystemColormap, +-- screenGetSystemVisual, + screenGetRGBColormap, +-- screenGetRGBVisual, +#if GTK_CHECK_VERSION(2,8,0) + screenGetRGBAColormap, +-- screenGetRGBAVisual, +#if GTK_CHECK_VERSION(2,10,0) + screenIsComposited, +#endif +#endif + screenGetRootWindow, + screenGetDisplay, + screenGetNumber, + screenGetWidth, + screenGetHeight, + screenGetWidthMm, + screenGetHeightMm, +-- screenListVisuals, +-- screenGetToplevelWindows, + screenMakeDisplayName, + screenGetNMonitors, +-- screenGetMonitorGeometry, + screenGetMonitorAtPoint, + screenGetMonitorAtWindow, +-- screenBroadcastClientMessage, +-- screenGetSetting, +#if GTK_CHECK_VERSION(2,10,0) + screenGetActiveWindow, +-- screenGetWindowStack, +#endif + +-- * Attributes +-- screenFontOptions, + screenResolution, + screenDefaultColormap, + +-- * Signals + screenSizeChanged, +#if GTK_CHECK_VERSION(2,10,0) + screenCompositedChanged, +#endif + +#endif + ) where + +import Control.Monad (liftM) + +import System.Glib.FFI +import System.Glib.UTFString +import System.Glib.Signals +import System.Glib.Attributes +import System.Glib.Properties +{#import Graphics.UI.Gtk.Types#} +import Graphics.UI.Gtk.Signals + +{# context lib="gdk" prefix="gdk" #} + +#if GTK_CHECK_VERSION(2,2,0) +-------------------- +-- Methods + +-- | Gets the default screen for the default display. (See +-- 'displayGetDefault'). +-- +screenGetDefault :: + IO (Maybe Screen) -- ^ returns a 'Screen', or @Nothing@ if there is no + -- default display. +screenGetDefault = + maybeNull (makeNewGObject mkScreen) $ + {# call gdk_screen_get_default #} + +screenGetDefaultColormap :: Screen + -> IO Colormap -- ^ returns the default 'Colormap'. +screenGetDefaultColormap self = + makeNewGObject mkColormap $ + {# call gdk_screen_get_default_colormap #} + self + +screenSetDefaultColormap :: Screen + -> Colormap -- ^ @colormap@ - a 'Colormap' + -> IO () +screenSetDefaultColormap self colormap = + {# call gdk_screen_set_default_colormap #} + self + colormap + +-- | Gets the system's default colormap for @screen@ +-- +screenGetSystemColormap :: Screen + -> IO Colormap -- ^ returns the default colormap for @screen@. +screenGetSystemColormap self = + makeNewGObject mkColormap $ + {# call gdk_screen_get_system_colormap #} + self + +{- +-- | Get the system's default visual for @screen@. This is the visual for the +-- root window of the display. The return value should not be freed. +-- +screenGetSystemVisual :: Screen + -> IO Visual -- ^ returns the system visual +screenGetSystemVisual self = + makeNewGObject mkVisual $ + {# call gdk_screen_get_system_visual #} + self +-} + +-- | Gets the preferred colormap for rendering image data on @screen@. Not a +-- very useful function; historically, GDK could only render RGB image data to +-- one colormap and visual, but in the current version it can render to any +-- colormap and visual. So there's no need to call this function. +-- +screenGetRGBColormap :: Screen + -> IO Colormap -- ^ returns the preferred colormap +screenGetRGBColormap self = + makeNewGObject mkColormap $ + {# call gdk_screen_get_rgb_colormap #} + self + +{- +-- | Gets a \"preferred visual\" chosen by GdkRGB for rendering image data on +-- @screen@. In previous versions of GDK, this was the only visual GdkRGB could +-- use for rendering. In current versions, it's simply the visual GdkRGB would +-- have chosen as the optimal one in those previous versions. GdkRGB can now +-- render to drawables with any visual. +-- +screenGetRGBVisual :: Screen + -> IO Visual -- ^ returns The 'Visual' chosen by GdkRGB. +screenGetRGBVisual self = + makeNewGObject mkVisual $ + {# call gdk_screen_get_rgb_visual #} + self +-} + +#if GTK_CHECK_VERSION(2,8,0) +-- | Gets a colormap to use for creating windows or pixmaps with an alpha +-- channel. The windowing system on which Gtk+ is running may not support this +-- capability, in which case @Nothing@ will be returned. Even if a +-- non-@Nothing@ value is returned, its possible that the window's alpha +-- channel won't be honored when displaying the window on the screen: in +-- particular, for X an appropriate windowing manager and compositing manager +-- must be running to provide appropriate display. +-- +-- * Available since Gdk version 2.8 +-- +screenGetRGBAColormap :: Screen + -> IO (Maybe Colormap) -- ^ returns a colormap to use for windows with an + -- alpha channel or @Nothing@ if the capability is not + -- available. +screenGetRGBAColormap self = + maybeNull (makeNewGObject mkColormap) $ + {# call gdk_screen_get_rgba_colormap #} + self + +{- +-- | Gets a visual to use for creating windows or pixmaps with an alpha +-- channel. See the docs for 'screenGetRGBAColormap' for caveats. +-- +-- * Available since Gdk version 2.8 +-- +screenGetRGBAVisual :: Screen + -> IO Visual -- ^ returns a visual to use for windows with an alpha channel + -- or {@NULL@, FIXME: this should probably be converted to a + -- Maybe data type} if the capability is not available. +screenGetRGBAVisual self = + makeNewGObject mkVisual $ + {# call gdk_screen_get_rgba_visual #} + self +-} + +#if GTK_CHECK_VERSION(2,10,0) +-- | Returns whether windows with an RGBA visual can reasonably be expected to +-- have their alpha channel drawn correctly on the screen. +-- +-- On X11 this function returns whether a compositing manager is compositing +-- @screen@. +-- +-- * Available since Gdk version 2.10 +-- +screenIsComposited :: Screen + -> IO Bool -- ^ returns Whether windows with RGBA visuals can reasonably be + -- expected to have their alpha channels drawn correctly on the + -- screen. +screenIsComposited self = + liftM toBool $ + {# call gdk_screen_is_composited #} + self +#endif +#endif + +-- | Gets the root window of @screen@. +-- +screenGetRootWindow :: Screen + -> IO DrawWindow -- ^ returns the root window +screenGetRootWindow self = + makeNewGObject mkDrawWindow $ + {# call gdk_screen_get_root_window #} + self + +-- | Gets the display to which the @screen@ belongs. +-- +screenGetDisplay :: Screen + -> IO Display -- ^ returns the display to which @screen@ belongs +screenGetDisplay self = + makeNewGObject mkDisplay $ + {# call gdk_screen_get_display #} + self + +-- | Gets the index of @screen@ among the screens in the display to which it +-- belongs. (See 'screenGetDisplay') +-- +screenGetNumber :: Screen + -> IO Int -- ^ returns the index +screenGetNumber self = + liftM fromIntegral $ + {# call gdk_screen_get_number #} + self + +-- | Gets the width of @screen@ in pixels +-- +screenGetWidth :: Screen + -> IO Int -- ^ returns the width of @screen@ in pixels. +screenGetWidth self = + liftM fromIntegral $ + {# call gdk_screen_get_width #} + self + +-- | Gets the height of @screen@ in pixels +-- +screenGetHeight :: Screen + -> IO Int -- ^ returns the height of @screen@ in pixels. +screenGetHeight self = + liftM fromIntegral $ + {# call gdk_screen_get_height #} + self + +-- | Gets the width of @screen@ in millimeters. Note that on some X servers +-- this value will not be correct. +-- +screenGetWidthMm :: Screen + -> IO Int -- ^ returns the width of @screen@ in millimeters. +screenGetWidthMm self = + liftM fromIntegral $ + {# call gdk_screen_get_width_mm #} + self + +-- | Returns the height of @screen@ in millimeters. Note that on some X +-- servers this value will not be correct. +-- +screenGetHeightMm :: Screen + -> IO Int -- ^ returns the heigth of @screen@ in millimeters. +screenGetHeightMm self = + liftM fromIntegral $ + {# call gdk_screen_get_height_mm #} + self + +{- +-- | Lists the available visuals for the specified @screen@. A visual +-- describes a hardware image data format. For example, a visual might support +-- 24-bit color, or 8-bit color, and might expect pixels to be in a certain +-- format. +-- +-- Call 'gListFree' on the return value when you\'re finished with it. +-- +screenListVisuals :: Screen + -> IO [{- element type -}] -- ^ returns a list of visuals; the list must be + -- freed, but not its contents +screenListVisuals self = + {# call gdk_screen_list_visuals #} + self + >>= fromGList + >>= mapM (\elemPtr -> {-marshal elem-}) + + +-- | Obtains a list of all toplevel windows known to GDK on the screen +-- @screen@. A toplevel window is a child of the root window (see +-- 'getDefaultRootWindow'). +-- +-- The returned list should be freed with 'gListFree', but its elements need +-- not be freed. +-- +screenGetToplevelWindows :: Screen + -> IO [{- element type -}] -- ^ returns list of toplevel windows, free with + -- 'gListFree' +screenGetToplevelWindows self = + {# call gdk_screen_get_toplevel_windows #} + self + >>= fromGList + >>= mapM (\elemPtr -> {-marshal elem-}) +-} + +-- | Determines the name to pass to 'displayOpen' to get a 'Display' with this +-- screen as the default screen. +-- +screenMakeDisplayName :: Screen + -> IO String -- ^ returns a newly allocated string, free with 'gFree' +screenMakeDisplayName self = + {# call gdk_screen_make_display_name #} + self + >>= readUTFString + +-- | Returns the number of monitors which @screen@ consists of. +-- +screenGetNMonitors :: Screen + -> IO Int -- ^ returns number of monitors which @screen@ consists of. +screenGetNMonitors self = + liftM fromIntegral $ + {# call gdk_screen_get_n_monitors #} + self + +{- +-- | Retrieves the {GdkRectangle, FIXME: boxed type} representing the size and +-- position of the individual monitor within the entire screen area. +-- +-- Note that the size of the entire screen area can be retrieved via +-- 'screenGetWidth' and 'screenGetHeight'. +-- +screenGetMonitorGeometry :: Screen + -> Int -- ^ @monitorNum@ - the monitor number. + -> {-GdkRectangle*-} -- ^ @dest@ - a {GdkRectangle, FIXME: boxed type} to be + -- filled with the monitor geometry + -> IO () +screenGetMonitorGeometry self monitorNum dest = + {# call gdk_screen_get_monitor_geometry #} + self + (fromIntegral monitorNum) + {-dest-} +-} + +-- | Returns the monitor number in which the point (@x@,@y@) is located. +-- +screenGetMonitorAtPoint :: Screen + -> Int -- ^ @x@ - the x coordinate in the virtual screen. + -> Int -- ^ @y@ - the y coordinate in the virtual screen. + -> IO Int -- ^ returns the monitor number in which the point (@x@,@y@) lies, + -- or a monitor close to (@x@,@y@) if the point is not in any + -- monitor. +screenGetMonitorAtPoint self x y = + liftM fromIntegral $ + {# call gdk_screen_get_monitor_at_point #} + self + (fromIntegral x) + (fromIntegral y) + +-- | Returns the number of the monitor in which the largest area of the +-- bounding rectangle of @window@ resides. +-- +screenGetMonitorAtWindow :: Screen + -> DrawWindow -- ^ @window@ - a 'DrawWindow' + -> IO Int -- ^ returns the monitor number in which most of @window@ is + -- located, or if @window@ does not intersect any monitors, a + -- monitor, close to @window@. +screenGetMonitorAtWindow self window = + liftM fromIntegral $ + {# call gdk_screen_get_monitor_at_window #} + self + window + +{- +-- | On X11, sends an X ClientMessage event to all toplevel windows on +-- @screen@. +-- +-- Toplevel windows are determined by checking for the WM_STATE property, as +-- described in the Inter-Client Communication Conventions Manual (ICCCM). If +-- no windows are found with the WM_STATE property set, the message is sent to +-- all children of the root window. +-- +-- On Windows, broadcasts a message registered with the name +-- GDK_WIN32_CLIENT_MESSAGE to all top-level windows. The amount of data is +-- limited to one long, i.e. four bytes. +-- +screenBroadcastClientMessage :: Screen + -> {-GdkEvent*-} -- ^ @event@ - the {GdkEvent, FIXME: unknown type\/value}. + -> IO () +screenBroadcastClientMessage self event = + {# call gdk_screen_broadcast_client_message #} + self + {-event-} + +-- | Retrieves a desktop-wide setting such as double-click time for the +-- 'Screen'@screen@. +-- +-- FIXME needs a list of valid settings here, or a link to more information. +-- +screenGetSetting :: Screen + -> String -- ^ @name@ - the name of the setting + -> {-GValue*-} -- ^ @value@ - location to store the value of the setting + -> IO Bool -- ^ returns @True@ if the setting existed and a value was + -- stored in @value@, @False@ otherwise. +screenGetSetting self name value = + liftM toBool $ + withUTFString name $ \namePtr -> + {# call gdk_screen_get_setting #} + self + namePtr + {-value-} +-} + +-- | Returns the screen's currently active window. +-- +-- On X11, this is done by inspecting the _NET_ACTIVE_WINDOW property on the +-- root window, as described in the Extended Window Manager Hints. If there is +-- no currently currently active window, or the window manager does not support +-- the _NET_ACTIVE_WINDOW hint, this function returns @Nothing@. +-- +-- On other platforms, this function may return @Nothing@, depending on whether +-- it is implementable on that platform. +-- +-- * Available since Gdk version 2.10 +-- +screenGetActiveWindow :: Screen + -> IO (Maybe DrawWindow) -- ^ returns the currently active window, or + -- @Nothing@. +screenGetActiveWindow self = + maybeNull (makeNewGObject mkDrawWindow) $ + {# call gdk_screen_get_active_window #} + self + +{- +-- | Returns a {GList, FIXME: struct type} of 'DrawWindow's representing the +-- current window stack. +-- +-- On X11, this is done by inspecting the _NET_CLIENT_LIST_STACKING property +-- on the root window, as described in the Extended Window Manager Hints. If +-- the window manager does not support the _NET_CLIENT_LIST_STACKING hint, this +-- function returns {@NULL@, FIXME: this should probably be converted to a +-- Maybe data type}. +-- +-- On other platforms, this function may return {@NULL@, FIXME: this should +-- probably be converted to a Maybe data type}, depending on whether it is +-- implementable on that platform. +-- +-- The returned list is newly allocated and owns references to the windows +-- it contains, so it should be freed using 'gListFree' and its windows unrefed +-- using 'gObjectUnref' when no longer needed. +-- +-- * Available since Gdk version 2.10 +-- +screenGetWindowStack :: Screen + -> IO [{- element type -}] -- ^ returns a list of 'DrawWindow's for the + -- current window stack, or {@NULL@, FIXME: this + -- should probably be converted to a Maybe data + -- type}. +screenGetWindowStack self = + {# call gdk_screen_get_window_stack #} + self + >>= fromGList + >>= mapM (\elemPtr -> {-marshal elem-}) +#endif +-} + +-------------------- +-- Attributes + +{- +-- | The default font options for the screen. +-- +screenFontOptions :: Attr Screen {-gpointer-} +screenFontOptions = newAttrFrom{-gpointer-}Property "font-options" +-} + +-- | The resolution for fonts on the screen. +-- +-- Default value: -1 +-- +screenResolution :: Attr Screen Double +screenResolution = newAttrFromDoubleProperty "resolution" + +-- | Sets the default @colormap@ for @screen@. +-- +-- Gets the default colormap for @screen@. +-- +screenDefaultColormap :: Attr Screen Colormap +screenDefaultColormap = newAttr + screenGetDefaultColormap + screenSetDefaultColormap + +-------------------- +-- Signals + +-- | The ::size_changed signal is emitted when the pixel width or height of a +-- screen changes. +-- +screenSizeChanged :: ScreenClass self => Signal self (IO ()) +screenSizeChanged = Signal (connect_NONE__NONE "size_changed") + +#if GTK_CHECK_VERSION(2,10,0) +-- | The ::composited_changed signal is emitted when the composited status of +-- the screen changes +-- +-- * Available since Gdk version 2.10 +-- +screenCompositedChanged :: ScreenClass self => Signal self (IO ()) +screenCompositedChanged = Signal (connect_NONE__NONE "composited_changed") +#endif |