Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix alloc size (+1) in gr_set_window_title in open.c 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6068 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Didier Rémy 2004-01-09 16:53:26 +00:00
parent 8b51687a78
commit eab1e22c19
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
otherlibs/graph/open.c
View File

@ -115,6 +115,7 @@ value gr_open_graph(value arg)
BORDER_WIDTH, grblack, grbackground);
p = window_name;
if (p == NULL) p = DEFAULT_WINDOW_NAME;
/* What not use XSetWMProperties? */
XSetStandardProperties(grdisplay, grwindow.win, p, p,
None, NULL, 0, &hints);
grwindow.gc = XCreateGC(grdisplay, grwindow.win, 0, NULL);
@ -238,7 +239,7 @@ value gr_window_id(void)
value gr_set_window_title(value n)
{
if (window_name != NULL) stat_free(window_name);
window_name = stat_alloc(strlen(String_val(n)));
window_name = stat_alloc(strlen(String_val(n))+1);
strcpy(window_name, String_val(n));
if (gr_initialized) {
XStoreName(grdisplay, grwindow.win, window_name);