diff: fixes for mtcltk.m

[Tyson Dowd]

Hi,

Here's a quick fix.

===================================================================

Estimated hours taken: 0.5

A few fixes for mtcltk.m

extras/graphics/mercury_tcltk/mtcltk.m:
	Fix the use of LVALUE_CAST - it was buggy.
	Remove references to gravity wars stuff which is
	no longer necessary (thanks to Tom for helping find this
	out quickly).


Index: extras/graphics/mercury_tcltk/mtcltk.m
===================================================================
RCS file: /home/staff/zs/imp/mercury/extras/graphics/mercury_tcltk/mtcltk.m,v
retrieving revision 1.1
diff -u -r1.1 mtcltk.m
--- mtcltk.m	1998/02/17 06:33:36	1.1
+++ mtcltk.m	1998/02/19 05:49:26
@@ -138,7 +138,7 @@
     argc = 0;
     for(l = Args; l != list_empty(); l = list_tail(l))
 	argc++;
-    incr_hp(LVAL_CAST(argv), argc + 1);
+    incr_hp(LVALUE_CAST(Word, argv), argc + 1);
 
     for(i = 0, l = Args; l != list_empty(); l = list_tail(l), i++)
 	argv[i] = (char *) list_head(l);
@@ -184,8 +184,6 @@
 Tcl_AppInit(Tcl_Interp *interp)
 {
     static char tk_str[] = ""Tk"";
-    static char tcl_rcFileName_str[] = ""tcl_rcFileName"";
-    static char gwarsrc_str[] = ""~/.gwarsrc"";
 
     if (Tcl_Init(interp) == TCL_ERROR) {
 	return TCL_ERROR;
@@ -196,8 +194,6 @@
     Tcl_StaticPackage(interp, tk_str, Tk_Init, (Tcl_PackageInitProc *) NULL);
 
     mtcltk_call_mercury_initializer(mtcltk_mercury_initializer, (Word)interp);
-
-    Tcl_SetVar(interp, tcl_rcFileName_str, gwarsrc_str, TCL_GLOBAL_ONLY);
 
     return TCL_OK;
 }


-- 
       Tyson Dowd           # There isn't any reason why Linux can't be
                            # implemented as an enterprise computing solution.
     trd at cs.mu.oz.au        # Find out what you've been missing while you've
http://www.cs.mu.oz.au/~trd # been rebooting Windows NT. -- InfoWorld, 1998.