X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=libchimara%2Fwindow.c;fp=libchimara%2Fwindow.c;h=04ffbe0bd66ee21b26b86b70154ed26b24125268;hb=3e1486e070255caf90c098d4195134438e7250dc;hp=7d597b73265773f775b78f61880e73dd1845c93e;hpb=daf49ed63048401a38b5c04917880203b099beb7;p=projects%2Fchimara%2Fchimara.git

diff --git a/libchimara/window.c b/libchimara/window.c
index 7d597b7..04ffbe0 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);