From d546ac8de3a9180b6d8f1da846e0c86500a959bb Mon Sep 17 00:00:00 2001 From: Sergey Cherepanov Date: Mon, 26 Nov 2012 10:37:12 +1100 Subject: [PATCH] Add wrapper for gtk_window_set_title(). --- lib/gtk/gtkwindow.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lib/gtk/gtkwindow.c b/lib/gtk/gtkwindow.c index 374f77f..22c820d 100644 --- a/lib/gtk/gtkwindow.c +++ b/lib/gtk/gtkwindow.c @@ -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); }