From 0497dfb79211aa1e64304fa446d230c41ca73daa Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Fri, 1 Nov 2019 18:41:10 +0100 Subject: Cleanup and add documentation --- src/Gtk/Widgets/Sheet/Signal.dcl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'src/Gtk/Widgets/Sheet/Signal.dcl') diff --git a/src/Gtk/Widgets/Sheet/Signal.dcl b/src/Gtk/Widgets/Sheet/Signal.dcl index 5708651..9084b4d 100644 --- a/src/Gtk/Widgets/Sheet/Signal.dcl +++ b/src/Gtk/Widgets/Sheet/Signal.dcl @@ -4,11 +4,16 @@ from StdMaybe import :: Maybe from Gtk.Signal import class signalHandler, :: SignalHandlerInternal from Gtk.State import :: GtkM +from Gtk.Tune import class tune +from Gtk.Types import :: GtkPropagate +from Gtk.Widgets import class gtkWidget :: GtkSheetSignalHandler = DeactivateHandler !(Int Int -> GtkM Bool) - | EnterPressedHandler !(GtkM Bool) + | EnterPressedHandler !(GtkM GtkPropagate) | SheetActivateHandler !(Int Int -> GtkM ()) | TraverseHandler !((Maybe (Int,Int)) (Int,Int) -> GtkM (Maybe (Int, Int))) instance signalHandler GtkSheetSignalHandler + +instance tune w GtkSheetSignalHandler | gtkWidget w -- cgit v1.2.3