X-Git-Url: https://git.stderr.nl/gitweb?p=projects%2Fchimara%2Fchimara.git;a=blobdiff_plain;f=libchimara%2Fwindow.c;fp=libchimara%2Fwindow.c;h=1cd23ef6ec63fa60337d04f260b5fcebc840f44a;hp=a4366b4b8ca4c6f11c15da94c38c504f42b53386;hb=17743f862a0295c3b9bdead66d05a74deaddea0e;hpb=67671e47878912eb915eabec7a80c45f1738a8c2

diff --git a/libchimara/window.c b/libchimara/window.c
index a4366b4..1cd23ef 100644
--- a/libchimara/window.c
+++ b/libchimara/window.c
@@ -15,6 +15,7 @@ window_new_common(glui32 rock)
 	
 	win->magic = MAGIC_WINDOW;
 	win->rock = rock;
+	win->librock = g_strdup_printf("%p", win);
 	if(glk_data->register_obj)
 		win->disprock = (*glk_data->register_obj)(win, gidisp_Class_Window);
 	
@@ -64,7 +65,8 @@ window_close_common(winid_t win, gboolean destroy_node)
 		g_node_destroy(win->window_node);
 	
 	win->magic = MAGIC_FREE;
-	
+
+	g_free(win->librock);
 	g_list_foreach(win->history, (GFunc)g_free, NULL);
 	g_list_free(win->history);
 	g_slist_free(win->extra_line_terminators);