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

Add wrapper for gtk_widow_new().

This commit is contained in:
Sergey Cherepanov 2012-11-26 10:30:26 +11:00 committed by Lassi Kortela
parent 8c45a1ac20
commit fd710559e0
1 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lib/gtk/gtkwindow.c
View File

@ -28,7 +28,27 @@
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
*/
#include <string.h>
#include "gtk.h"
void elk_init_gtk_gtkwindow () {
static Object P_Gtk_Window_New (Object sym) {
Object string;
char *str;
GtkWidget *w;
Check_Type (sym, T_Symbol);
string = P_Symbol_To_String (sym);
str = Get_String (string);
if (!strcmp(str, "gtk-window-toplevel"))
w = gtk_window_new(GTK_WINDOW_TOPLEVEL);
else if (!strcmp(str, "gtk-window-popup"))
w = gtk_window_new(GTK_WINDOW_POPUP);
else
Primitive_Error ("wrong symbol: %s", str);
return Make_GtkWidget (w);
}
void elk_init_gtk_gtkwindow () {
Define_Primitive (P_Gtk_Window_New, "gtk-window-new", 1, 1, EVAL);
}