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

  dialogContentAreaSpacing,

-- * Signals
  close,
  response,

-- * Deprecated

--
-- * Available since Gtk+ version 2.6
--
dialogAlternativeDialogButtonOrder :: 
   Maybe Screen  -- ^ @screen@ - a 'Screen', or @Nothing@ to use the default screen      
 -> IO Bool   -- ^ returns whether the alternative button order should be used 
dialogAlternativeDialogButtonOrder (Just screen) = liftM toBool $
  {# call alternative_dialog_button_order #} screen
dialogAlternativeDialogButtonOrder 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
-- @newOrder@.
--
-- See 'dialogSetAlternativeButtonOrder' for more information.
--
