From ad98343da1467653dacc811a9e52b7da2282c200 Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Sat, 19 Oct 2019 19:57:53 +0200 Subject: Initial commit --- src/Gtk/Widgets.dcl | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 src/Gtk/Widgets.dcl (limited to 'src/Gtk/Widgets.dcl') diff --git a/src/Gtk/Widgets.dcl b/src/Gtk/Widgets.dcl new file mode 100644 index 0000000..d27d70d --- /dev/null +++ b/src/Gtk/Widgets.dcl @@ -0,0 +1,20 @@ +definition module Gtk.Widgets + +from StdMaybe import :: Maybe + +from System._Pointer import :: Pointer + +from Gtk.State import :: State, :: StateT, :: Identity, :: GtkState + +:: GtkWidget +:: GtkWindow + +class gtkWidget a +where + gtkWidget :: !a -> GtkWidget + gtkPtr :: !a -> Pointer + +instance gtkWidget GtkWidget, GtkWindow + +newPopup :: !String !(Maybe (Int,Int)) -> State GtkState GtkWindow +newWindow :: !String !(Maybe (Int,Int)) -> State GtkState GtkWindow -- cgit v1.2.3