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

[Martin Renold]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     Martin Renold <address@hidden>  03/08/09 15:44:04

Modified files:
        src/ui         : ccl_ui.c 
        data/ccl/human : ui.ccl 
        data/ccl/orc   : ui.ccl 

Log message:
        fixing typos and forgotten ui tags

Patches:
Index: stratagus/data/ccl/human/ui.ccl
diff -u stratagus/data/ccl/human/ui.ccl:1.36 
stratagus/data/ccl/human/ui.ccl:1.37
--- stratagus/data/ccl/human/ui.ccl:1.36        Fri Aug  8 06:16:43 2003
+++ stratagus/data/ccl/human/ui.ccl     Sat Aug  9 15:44:04 2003
@@ -26,7 +26,7 @@
 ;;      along with this program; if not, write to the Free Software
 ;;      Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  
USA
 ;;
-;;     $Id: ui.ccl,v 1.36 2003/08/08 10:16:43 martinxyz Exp $
+;;     $Id: ui.ccl,v 1.37 2003/08/09 19:44:04 martinxyz Exp $
 
 ;;=============================================================================
 ;;     Define a cursor.
@@ -72,7 +72,7 @@
         "/filler-right.png")
       'pos (list (- screen_width 16) 0))
 
-    'ressource-line (list
+    'resource-line (list
       (string-append "graphics/ui/human/"
         (number->string screen_width) "x" (number->string screen_height)
         "/resource.png")
Index: stratagus/data/ccl/orc/ui.ccl
diff -u stratagus/data/ccl/orc/ui.ccl:1.35 stratagus/data/ccl/orc/ui.ccl:1.36
--- stratagus/data/ccl/orc/ui.ccl:1.35  Fri Aug  8 06:16:43 2003
+++ stratagus/data/ccl/orc/ui.ccl       Sat Aug  9 15:44:04 2003
@@ -26,7 +26,7 @@
 ;;      along with this program; if not, write to the Free Software
 ;;      Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  
USA
 ;;
-;;     $Id: ui.ccl,v 1.35 2003/08/08 10:16:43 martinxyz Exp $
+;;     $Id: ui.ccl,v 1.36 2003/08/09 19:44:04 martinxyz Exp $
 
 ;;=============================================================================
 ;;     Define a cursor.
@@ -72,7 +72,7 @@
         "/filler-right.png")
       'pos (list (- screen_width 16) 0))
 
-    'ressource-line (list
+    'resource-line (list
       (string-append "graphics/ui/orc/"
         (number->string screen_width) "x" (number->string screen_height)
         "/resource.png")
Index: stratagus/src/ui/ccl_ui.c
diff -u stratagus/src/ui/ccl_ui.c:1.118 stratagus/src/ui/ccl_ui.c:1.119
--- stratagus/src/ui/ccl_ui.c:1.118     Fri Aug  8 06:16:44 2003
+++ stratagus/src/ui/ccl_ui.c   Sat Aug  9 15:44:04 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: ccl_ui.c,v 1.118 2003/08/08 10:16:44 martinxyz Exp $
+//     $Id: ccl_ui.c,v 1.119 2003/08/09 19:44:04 martinxyz Exp $
 
 //@{
 
@@ -1200,6 +1200,7 @@
     SCM value;
     SCM sublist;
     char* str;
+    char *s1;
     int        x;
     int        y;
     int i;
@@ -1787,6 +1788,19 @@
                sublist=gh_cdr(sublist);
                (*menupanel)->Panel.File=gh_scm2newstr(value,NULL);
            }
+       } else if( gh_eq_p(value,gh_symbol2scm("victory-background")) ) {
+           //  Backgrounds
+           value=gh_car(list);
+           list=gh_cdr(list);
+           ui->VictoryBackground.File=gh_scm2newstr(value,NULL);
+       } else if( gh_eq_p(value,gh_symbol2scm("defeat-background")) ) {
+           value=gh_car(list);
+           list=gh_cdr(list);
+           ui->DefeatBackground.File=gh_scm2newstr(value,NULL);
+       } else {
+           s1=gh_scm2newstr(value,NULL);
+           fprintf(stderr,"Unsupported tag %s\n",s1);
+           free(s1);
        }
     }