Fix toInt and fromInt for GtkResponse

1 files changed, 22 insertions, 22 deletions

diff --git a/src/Gtk/Types.icl b/src/Gtk/Types.icl
index ad9acca..435ce9e 100644
--- a/src/Gtk/Types.icl
+++ b/src/Gtk/Types.icl
@@ -106,33 +106,33 @@ where
 instance fromInt GtkResponse
 where
 	fromInt response = case response of
-		0  -> ResponseNone
-		1  -> ResponseReject
-		2  -> ResponseAccept
-		3  -> ResponseDeleteEvent
-		4  -> ResponseOk
-		5  -> ResponseCancel
-		6  -> ResponseClose
-		7  -> ResponseYes
-		8  -> ResponseNo
-		9  -> ResponseApply
-		10 -> ResponseHelp
+		-1  -> ResponseNone
+		-2  -> ResponseReject
+		-3  -> ResponseAccept
+		-4  -> ResponseDeleteEvent
+		-5  -> ResponseOk
+		-6  -> ResponseCancel
+		-7  -> ResponseClose
+		-8  -> ResponseYes
+		-9  -> ResponseNo
+		-10 -> ResponseApply
+		-11 -> ResponseHelp
 		r  -> trace_n ("fromInt GtkResponse: illegal value "+++toString r) ResponseNone
 
 instance toInt GtkResponse
 where
 	toInt response = case response of
-		ResponseNone        ->  0
-		ResponseReject      ->  1
-		ResponseAccept      ->  2
-		ResponseDeleteEvent ->  3
-		ResponseOk          ->  4
-		ResponseCancel      ->  5
-		ResponseClose       ->  6
-		ResponseYes         ->  7
-		ResponseNo          ->  8
-		ResponseApply       ->  9
-		ResponseHelp        -> 10
+		ResponseNone        ->  -1
+		ResponseReject      ->  -2
+		ResponseAccept      ->  -3
+		ResponseDeleteEvent ->  -4
+		ResponseOk          ->  -5
+		ResponseCancel      ->  -6
+		ResponseClose       ->  -7
+		ResponseYes         ->  -8
+		ResponseNo          ->  -9
+		ResponseApply       -> -10
+		ResponseHelp        -> -11
 
 instance toInt GtkScrollbarPolicy
 where