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

Add wrapper for gtk_window_set_title().

This commit is contained in:
Sergey Cherepanov 2012-11-26 10:37:12 +11:00 committed by Lassi Kortela
parent fd710559e0
commit d546ac8de3
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/gtkwindow.c
View File

@ -49,6 +49,12 @@ static Object P_Gtk_Window_New (Object sym) {
return Make_GtkWidget (w);
}
static Object P_Gtk_Window_Set_Title (Object w, Object title) {
gtk_window_set_title (GTK_WINDOW(Get_GtkWidget(w)), Get_String(title));
return Void;
}
void elk_init_gtk_gtkwindow () {
Define_Primitive (P_Gtk_Window_New, "gtk-window-new", 1, 1, EVAL);
Define_Primitive (P_Gtk_Window_Set_Title, "gtk-window-set-title", 2, 2, EVAL);
}