[Stratagus-CVS] stratagus/src/ui ccl_ui.c

[address@hidden]

CVSROOT:        /home/strat
Module name:    stratagus
Changes by:      <address@hidden>       04/01/01 13:50:15

Modified files:
        src/ui         : ccl_ui.c 

Log message:
        Fixed extra comma in AllowArg

Patches:
Index: stratagus/src/ui/ccl_ui.c
diff -u stratagus/src/ui/ccl_ui.c:1.177 stratagus/src/ui/ccl_ui.c:1.178
--- stratagus/src/ui/ccl_ui.c:1.177     Wed Dec 24 11:35:23 2003
+++ stratagus/src/ui/ccl_ui.c   Thu Jan  1 13:50:14 2004
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//      $Id: ccl_ui.c,v 1.177 2003/12/24 00:35:23 wizzard Exp $
+//      $Id: ccl_ui.c,v 1.178 2004/01/01 02:50:14 jsalmon3 Exp $
 
 //@{
 
@@ -6682,7 +6682,9 @@
                                lua_pop(l, 1);
                                s1 = realloc(s1, strlen(s1) + strlen(s2) + 2);
                                strcat(s1, s2);
-                               strcat(s1, ",");
+                               if (k != subargs - 1) {
+                                       strcat(s1, ",");
+                               }
                        }
                        ba.AllowStr = s1;
                } else if (!strcmp(value, "Key")) {