[Gtk2hs-commit] gtk2hs/gtk/general Structs.hsc,1.20,1.21

[Duncan C. <dun...@us...>]

Update of /cvsroot/gtk2hs/gtk2hs/gtk/general
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32489/gtk/general

Modified Files:
	Structs.hsc 
Log Message:
bug fix for toResponse. Can now get response code back from dialogs ok.


Index: Structs.hsc
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/general/Structs.hsc,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- Structs.hsc	9 Jul 2003 22:42:44 -0000	1.20
+++ Structs.hsc	30 Apr 2004 20:32:44 -0000	1.21
@@ -527,17 +527,17 @@
 fromResponse (ResponseUser i) | i > 0 = fromIntegral i
 
 toResponse :: Integral a => a -> ResponseId
-toResponse -1 = ResponseNone
-toResponse -2 = ResponseReject
-toResponse -3 = ResponseAccept
-toResponse -4 = ResponseDeleteEvent
-toResponse -5 = ResponseOk
-toResponse -6 = ResponseCancel
-toResponse -7 = ResponseClose
-toResponse -8 = ResponseYes
-toResponse -9 = ResponseNo
-toResponse -10 = ResponseApply
-toResponse -11 = ResponseHelp
+toResponse (-1) = ResponseNone
+toResponse (-2) = ResponseReject
+toResponse (-3) = ResponseAccept
+toResponse (-4) = ResponseDeleteEvent
+toResponse (-5) = ResponseOk
+toResponse (-6) = ResponseCancel
+toResponse (-7) = ResponseClose
+toResponse (-8) = ResponseYes
+toResponse (-9) = ResponseNo
+toResponse (-10) = ResponseApply
+toResponse (-11) = ResponseHelp
 toResponse i | i > 0  = ResponseUser $ fromIntegral i
 
 -- include<gdk/gdkx.h>