Update of /cvsroot/gtk2hs/gtk2hs/gtk/general
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10993/gtk/general
Modified Files:
Structs.hsc
Log Message:
added missing functions, or functions that were new in gtk-2.4
removed a function that is no longer needed from general/Structs.hsc
Index: Structs.hsc
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/general/Structs.hsc,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- Structs.hsc 16 Jul 2004 15:12:59 -0000 1.24
+++ Structs.hsc 30 Jul 2004 16:38:52 -0000 1.25
@@ -74,7 +74,6 @@
iconSizeLargeToolbar,
iconSizeButton,
iconSizeDialog,
- checkMenuItemGetActive,
comboGetList,
priorityLow,
priorityDefault,
@@ -599,20 +598,6 @@
iconSizeDialog :: IconSize
iconSizeDialog = #const GTK_ICON_SIZE_DIALOG
--- entry Widget CheckMenuItem
-
--- | Return the current checked state.
---
--- * Return the state of the check of
--- the 'CheckMenuItem'.
---
-checkMenuItemGetActive :: CheckMenuItemClass mi => mi -> IO Bool
-checkMenuItemGetActive mi =
- withForeignPtr ((unCheckMenuItem.toCheckMenuItem) mi) $ \miPtr -> do
- let actPtr = miPtr `plusPtr` #const sizeof(GtkMenuItem)
- act <- peek (actPtr::Ptr #type guint)
- return $ testBit act 1
-
-- entry Widget Combo
-- | Extract the List container from a 'Combo'
|
