 -- | Gets the response id of a widget in the action area of a dialog.
 dialogGetResponseForWidget :: (DialogClass self, WidgetClass widget) => self
  -> widget  -- ^ @widget@ - a widget in the action area of dialog                                                     
- -> IO Int  -- ^ return the response id of widget, or 'ResponseNone' if widget doesn't have a response id set. 
-dialogGetResponseForWidget self widget = liftM fromIntegral $
+ -> IO ResponseId  -- ^ return the response id of widget, or 'ResponseNone' if widget doesn't have a response id set. 
+dialogGetResponseForWidget self widget = liftM toResponse $
   {# call dialog_get_response_for_widget #}
     (toDialog self)
     (toWidget widget)

--
-- * Available since Gtk+ version 2.6
--
alternativeDialogButtonOrder :: 
   Maybe Screen  -- ^ @screen@ - a 'Screen', or @Nothing@ to use the default screen      
 -> IO Bool   -- ^ return Whether the alternative button order should be used 
alternativeDialogButtonOrder (Just screen) = liftM toBool $
  {# call alternative_dialog_button_order #} screen
alternativeDialogButtonOrder Nothing = liftM toBool $
  {# call alternative_dialog_button_order #} (Screen nullForeignPtr)

-- | Sets an alternative button order. 
-- If the 'alternativeButtonOrder' setting is set to @True@, the dialog buttons are reordered according to the order of the response ids in new_order.
--
-- See 'dialogSetAlternativeButtonOrder' for more information.
--


--------------------
-- Signals

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