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/Internal.dcl | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 src/Gtk/Internal.dcl (limited to 'src/Gtk/Internal.dcl') diff --git a/src/Gtk/Internal.dcl b/src/Gtk/Internal.dcl new file mode 100644 index 0000000..14bb9ab --- /dev/null +++ b/src/Gtk/Internal.dcl @@ -0,0 +1,25 @@ +definition module Gtk.Internal + +from StdMaybe import :: Maybe + +from System._Pointer import :: Pointer + +:: GSignalArgs = + { sig_id :: !Int + } + +g_object_unref :: !Pointer !.a -> .a + +g_signal_connect_void :: !Pointer !String !Int !.a -> .a +g_signal_pop :: !.a -> (!Maybe GSignalArgs, !.a) + +gtk_init :: !.a -> .a + +gtk_main_iteration :: !.a -> (!Bool, !.a) +gtk_main_quit :: !.a -> .a + +gtk_widget_set_size_request :: !Pointer !Int !Int !.a -> .a +gtk_widget_show_all :: !Pointer !.a -> .a + +gtk_window_new :: !Bool !.a -> (!Pointer, !.a) +gtk_window_set_title :: !Pointer !String !.a -> .a -- cgit v1.2.3