[Gtk2hs-commit] gtk2hs/gtk/Graphics/UI/Gtk/Abstract Widget.chs,1.4,1.5

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

Update of /cvsroot/gtk2hs/gtk2hs/gtk/Graphics/UI/Gtk/Abstract
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv535/gtk/Graphics/UI/Gtk/Abstract

Modified Files:
	Widget.chs 
Log Message:
remove widgetLockAccelerators and widgetUnlockAccelerators as they do not
exist in Gtk+ anymore (probably since version 2.0).


Index: Widget.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/Graphics/UI/Gtk/Abstract/Widget.chs,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- Widget.chs	25 Feb 2005 22:53:41 -0000	1.4
+++ Widget.chs	4 Mar 2005 22:10:44 -0000	1.5
@@ -108,8 +108,6 @@
   TextDirection(..),
   widgetSetDirection,		-- General Setup.
   widgetGetDirection,
---  widgetLockAccelerators,
---  widgetUnlockAccelerators,
 
 -- * Signals
   Event(..),
@@ -397,19 +395,6 @@
 widgetGetDirection w = liftM (toEnum.fromIntegral) $ 
   {#call widget_get_direction#} (toWidget w)
 
--- Accelerator handling.
-
--- Lock accelerators.
---
---widgetLockAccelerators :: WidgetClass w => w -> IO ()
---widgetLockAccelerators = {#call unsafe widget_lock_accelerators#}.toWidget
-
-
--- Unlock accelerators.
---
---widgetUnlockAccelerators :: WidgetClass w => w -> IO ()
---widgetUnlockAccelerators = {#call widget_unlock_accelerators#}.toWidget
-
 --------------------
 -- Signals