[Gtk2hs-commit] gtk2hs/gtk/general Structs.hsc,1.24,1.25

[Duncan C. <dun...@us...>]

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'