diff options
| author | Camil Staps | 2019-10-19 19:57:53 +0200 |
|---|---|---|
| committer | Camil Staps | 2019-10-20 09:11:19 +0200 |
| commit | ad98343da1467653dacc811a9e52b7da2282c200 (patch) | |
| tree | 159ee3beadf5ddb022d1640ba441aebee7f39a54 /src/Gtk/Widgets.dcl | |
Initial commit
Diffstat (limited to 'src/Gtk/Widgets.dcl')
| -rw-r--r-- | src/Gtk/Widgets.dcl | 20 |
1 files changed, 20 insertions, 0 deletions
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 |