[PD-cvs] SF.net SVN: pure-data: [9726] branches/pd-extended/v0-40/pd/src/g_canvas.c

[eighthave at users.sourceforge.net]

Revision: 9726
          http://pure-data.svn.sourceforge.net/pure-data/?rev=9726&view=rev
Author:   eighthave
Date:     2008-04-27 17:14:39 -0700 (Sun, 27 Apr 2008)

Log Message:
-----------
fixed up Luke's proxy_icon_and_modified_state.patch to eliminate crash (caused
by using %f in sys_vgui for an int value).  Also, made the title bar fully Mac
OS X-style.

Modified Paths:
--------------
    branches/pd-extended/v0-40/pd/src/g_canvas.c

Modified: branches/pd-extended/v0-40/pd/src/g_canvas.c
===================================================================
--- branches/pd-extended/v0-40/pd/src/g_canvas.c	2008-04-28 00:09:51 UTC (rev 9725)
+++ branches/pd-extended/v0-40/pd/src/g_canvas.c	2008-04-28 00:14:39 UTC (rev 9726)
@@ -598,9 +598,15 @@
         strcat(namebuf, ")");
     }
     else namebuf[0] = 0;
+#ifdef __APPLE__
+    sys_vgui("wm attributes .x%lx -modified %d -titlepath {%s/%s}\n",
+        x, x->gl_dirty, canvas_getdir(x)->s_name, x->gl_name->s_name);
+    sys_vgui("wm title .x%lx {%s%s}\n", x, x->gl_name->s_name, namebuf);
+#else
     sys_vgui("wm title .x%lx {%s%c%s - %s}\n", 
         x, x->gl_name->s_name, (x->gl_dirty? '*' : ' '), namebuf,
             canvas_getdir(x)->s_name);
+#endif
 }
 
 void canvas_dirty(t_canvas *x, t_int n)


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.