diff options
Diffstat (limited to 'src/Gtk/Widgets/Sheet')
| -rw-r--r-- | src/Gtk/Widgets/Sheet/Signal.dcl | 3 | ||||
| -rw-r--r-- | src/Gtk/Widgets/Sheet/Signal.icl | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/src/Gtk/Widgets/Sheet/Signal.dcl b/src/Gtk/Widgets/Sheet/Signal.dcl index ad14d5a..39f77b0 100644 --- a/src/Gtk/Widgets/Sheet/Signal.dcl +++ b/src/Gtk/Widgets/Sheet/Signal.dcl @@ -6,7 +6,8 @@ from Gtk.Signal import class signalHandler, :: SignalHandlerInternal from Gtk.State import :: GtkM :: GtkSheetSignalHandler - = EnterPressedHandler !(GtkM Bool) + = DeactivateHandler !(Int Int -> GtkM Bool) + | EnterPressedHandler !(GtkM Bool) | TraverseHandler !((Maybe (Int,Int)) (Int,Int) -> GtkM (Maybe (Int, Int))) instance signalHandler GtkSheetSignalHandler diff --git a/src/Gtk/Widgets/Sheet/Signal.icl b/src/Gtk/Widgets/Sheet/Signal.icl index 6db3b6b..8cfa10f 100644 --- a/src/Gtk/Widgets/Sheet/Signal.icl +++ b/src/Gtk/Widgets/Sheet/Signal.icl @@ -12,9 +12,11 @@ import Gtk instance signalHandler GtkSheetSignalHandler where signalName handler = case handler of + DeactivateHandler _ -> "deactivate" EnterPressedHandler _ -> "enter-pressed" TraverseHandler _ -> "traverse" signalHandler handler = case handler of + DeactivateHandler f -> SHI_Int_Int_Bool f 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 |