   afterConfigure,
   onDelete,
   afterDelete,
-  onDestroy,
-  afterDestroy,
+  onDestroyEvent,		-- you probably want onDestroy
+  afterDestroyEvent,
   onDirectionChanged,
   afterDirectionChanged,
   onEnterNotify,

  afterFocusOut,
  onGrabFocus,
  afterGrabFocus,
  onHide,
  afterHide,
  onHierarchyChanged,

                               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.
--
