conservatory
/
elk
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add wrapper for gtk_main_quit().

This commit is contained in:
Sergey Cherepanov 2012-12-04 12:32:45 +11:00 committed by Lassi Kortela
parent 1a4748717f
commit 7146e4176a
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/gtk/gtkmain.c
View File

@ -56,7 +56,13 @@ static Object P_Gtk_Main () {
return Void;
}
static Object P_Gtk_Main_Quit () {
gtk_main_quit ();
return Void;
}
void elk_init_gtk_gtkmain () {
Define_Primitive (P_Gtk_Init, "gtk-init", 1, 1, EVAL);
Define_Primitive (P_Gtk_Main, "gtk-main", 0, 0, EVAL);
Define_Primitive (P_Gtk_Main_Quit, "gtk-main-quit", 0, 0, EVAL);
}