[Gtk2hs-commit] gtk2hs/gtk/display AccelLabel.chs,1.5,1.6

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

Update of /cvsroot/gtk2hs/gtk2hs/gtk/display
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29523/gtk/display

Modified Files:
	AccelLabel.chs 
Log Message:
Add missing functions. Also tidy up documentation a bit.
Exclude deprecated and internal radio_menu_item and toolbar functions.


Index: AccelLabel.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/display/AccelLabel.chs,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- AccelLabel.chs	23 May 2004 15:50:26 -0000	1.5
+++ AccelLabel.chs	3 Aug 2004 02:58:25 -0000	1.6
@@ -33,7 +33,8 @@
   AccelLabelClass,
   castToAccelLabel,
   accelLabelNew,
-  accelLabelSetAccelWidget
+  accelLabelSetAccelWidget,
+  accelLabelGetAccelWidget
   ) where
 
 import Monad	(liftM)
@@ -61,3 +62,11 @@
 accelLabelSetAccelWidget acl w = {#call accel_label_set_accel_widget#}
   (toAccelLabel acl) (toWidget w)
 
+-- | Fetches the widget monitored by this accelerator label, or Nothing if it
+-- has not bee set.
+--
+accelLabelGetAccelWidget :: AccelLabelClass acl => acl -> IO (Maybe Widget)
+accelLabelGetAccelWidget acl = do
+  wPtr <- {#call unsafe accel_label_get_accel_widget#} (toAccelLabel acl)
+  if wPtr==nullPtr then return Nothing else liftM Just $
+    makeNewObject mkWidget (return wPtr)