 
 --------------------
 -- Signals
-close :: DialogClass self => Signal self (IO ())
-close = Signal (connect_NONE__NONE "close")
-
-response :: DialogClass self => Signal self (Int -> IO ())
-response = Signal (connect_INT__NONE "response")
+
+-- | Emitted when an action widget is clicked, the dialog receives a delete
+-- event, or the application programmer calls 'dialogResponse'. On a delete
+-- event, the response ID is 'ResponseNone'. Otherwise, it depends on which
+-- action widget was clicked.
+--
+response :: DialogClass self => Signal self (ResponseId -> IO ())
+response = Signal (\after obj fun ->
+                   connect_INT__NONE "response" after obj (\i -> fun (toResponse i)))
 
 -- * Deprecated
 #ifndef DISABLE_DEPRECATED

  dialogContentAreaSpacing,

-- * Signals
  close,
  response,

-- * Deprecated

  dialogSetHasSeparator,
  dialogSetResponseSensitive,
  dialogGetResponseForWidget,
  dialogAlternativeDialogButtonOrder,
  dialogSetAlternativeButtonOrderFromArray,

-- * Attributes
