                                IO (ConnectId w)
 onGrabFocus = event "grab_focus" [] False
 afterGrabFocus = event "grab_focus" [] True
+
+-- @signal connectToDestroy@ The widget will be destroyed.
+--
+-- * This is the last signal this widget will receive.
+--
+onDestroy, afterDestroy :: WidgetClass w => w -> (IO ()) ->
+                           IO (ConnectId w)
+onDestroy = connect_NONE__NONE "destroy" False
+afterDestroy = connect_NONE__NONE "destroy" True
 
 -- @signal connectToHide@ The widget was asked to hide itself.
 --

  afterConfigure,
  onDelete,
  afterDelete,
  onDestroy,
  afterDestroy,
  onDirectionChanged,
  afterDirectionChanged,
  onEnterNotify,

--          
--  Created: 27 April 2001
--
--  Version $Revision: 1.4 $ from $Date: 2002/07/04 10:44:47 $
--
--  Copyright (c) 2001 Axel Simon
--
