From 0c122b22f003ee3681341573e0b8f366b9f9dec9 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 23 Oct 2019 16:22:51 +0200
Subject: Add EnterPressedHandler for GtkSheet

---
 src/Gtk/Widgets/Sheet/Signal.icl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/Gtk/Widgets/Sheet/Signal.icl')

diff --git a/src/Gtk/Widgets/Sheet/Signal.icl b/src/Gtk/Widgets/Sheet/Signal.icl
index 562f806..adc6054 100644
--- a/src/Gtk/Widgets/Sheet/Signal.icl
+++ b/src/Gtk/Widgets/Sheet/Signal.icl
@@ -4,6 +4,7 @@ import StdEnv
 import StdMaybe
 
 import Control.Monad
+import Data.Functor
 import System._Pointer
 
 import Gtk
@@ -11,8 +12,10 @@ import Gtk
 instance signalHandler GtkSheetSignalHandler
 where
 	signalName handler = case handler of
-		TraverseHandler _ -> "traverse"
+		EnterPressedHandler _ -> "enter-pressed"
+		TraverseHandler _     -> "traverse"
 	signalHandler handler = case handler of
+		EnterPressedHandler f -> SHI_Pointer_Bool \_ -> not <$> f
 		TraverseHandler f -> SHI_Int_Int_Pointer_Pointer_Bool \oldrow oldcol newrowp newcolp ->
 			let newrow = readInt4S newrowp 0; newcol = readInt4S newcolp 0 in
 			f (if (oldrow<0) Nothing (Just (oldrow,oldcol))) (newrow,newcol) >>= \r -> case r of
-- 
cgit v1.2.3